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

⟦a00180572⟧ 

    Length: 26910 (0x691e)
    Notes: pts_type(SC)
    Names: »DRDU01.SC«

Derivation

└─⟦6349b94c6⟧ Bits:30009684 Philips computer tape "600308"
    └─⟦this⟧ »M:92D1/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	1 
* 
* 
*   THIS DRIVER CAN HANDLE TWO DISC UNITS 
*   IF X:B := 2 
* 
X:B	EQU	1 
NUNITS	EQU	1
* 
* 
*   DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 
*   BY SETTING X:C = 1
* 
X:C	EQU	0 
TYPE1	EQU	1 
* 
* 
*   DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 
*   BY SETTING X:D = 1
* 
X:D	EQU	0 
TYPE2	EQU	0 
* 
	EJECT			DRDU01 
* 
* 
*	A PROGRAM VERSION USING TOSS MMU PAGING 
*	IS OBTAINED BY SETTING MMUPAG EQU 1.
* 
MMUPAG	EQU	1
* 
* 
*   IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA 
*   MANAGEMENT, AND MMUPAG=1, THEN X:E := 1, ELSE 0.
* 
X:E	EQU	0 
ONLYDM	EQU	1
* 
* 
*	A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
*	SET IS OBTAINED BY SETTING CPU852 EQU 0.
* 
CPU852	EQU	0
* 
* 
*	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…0910              Head {h00=0x000e, h01=0x0050, text=»RAW EQU 1 «, t00=0x0005, t01=0x0132}
0x0910…091a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0144}
0x091a…0924              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x014e}
0x0924…0956              Head {h00=0x002e, h01=0x0050, text=»*   THIS DRIVER CAN HANDLE TWO DISC UNITS «, t00=0x0005, t01=0x0158}
0x0956…096e              Head {h00=0x0014, h01=0x0050, text=»*   IF X:B := 2 «, t00=0x0005, t01=0x018a}
0x096e…0978              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0012}
0x0978…098a              Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x0006, t01=0x001c}
0x098a…099e              Head {h00=0x0010, h01=0x0050, text=»NUNITS EQU 1«, t00=0x0006, t01=0x002e}
0x099e…09a8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0042}
0x09a8…09b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004c}
0x09b2…09ea              Head {h00=0x0034, h01=0x0050, text=»*   DRIVE 1 MAY BE A X/1216 INSTEAD OF A X/1215 «, t00=0x0006, t01=0x0056}
0x09ea…0a08              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:C = 1«, t00=0x0006, t01=0x008e}
0x0a08…0a12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00ac}
0x0a12…0a24              Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0006, t01=0x00b6}
0x0a24…0a38              Head {h00=0x0010, h01=0x0050, text=»TYPE1 EQU 1 «, t00=0x0006, t01=0x00c8}
0x0a38…0a42              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00dc}
0x0a42…0a4c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e6}
0x0a4c…0a84              Head {h00=0x0034, h01=0x0050, text=»*   DRIVE 2 MAY BE A X/1216 INSTEAD OF A X/1215 «, t00=0x0006, t01=0x00f0}
0x0a84…0aa2              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:D = 1«, t00=0x0006, t01=0x0128}
0x0aa2…0aac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0146}
0x0aac…0abe              Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x0006, t01=0x0150}
0x0abe…0ad2              Head {h00=0x0010, h01=0x0050, text=»TYPE2 EQU 0 «, t00=0x0006, t01=0x0162}
0x0ad2…0adc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0adc…0af4              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0006, t01=0x0180}
0x0af4…0afe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0008}
0x0afe…0b08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0012}
0x0b08…0b3a              Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0007, t01=0x001c}
0x0b3a…0b68              Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0007, t01=0x004e}
0x0b68…0b72              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b72…0b86              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0007, t01=0x0086}
0x0b86…0b90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x009a}
0x0b90…0b9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a4}
0x0b9a…0bd4              Head {h00=0x0036, h01=0x0050, text=»*   IF DISC ACCESSES ARE MADE EXCLUSIVELY BY DATA «, t00=0x0007, t01=0x00ae}
0x0bd4…0c10              Head {h00=0x0038, h01=0x0050, text=»*   MANAGEMENT, AND MMUPAG=1, THEN X:E := 1, ELSE 0.«, t00=0x0007, t01=0x00e8}
0x0c10…0c1a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0124}
0x0c1a…0c2c              Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0007, t01=0x012e}
0x0c2c…0c40              Head {h00=0x0010, h01=0x0050, text=»ONLYDM EQU 1«, t00=0x0007, t01=0x0140}
0x0c40…0c4a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0154}
0x0c4a…0c54              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015e}
0x0c54…0c8e              Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x0168}
0x0c8e…0cc0              Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0012}
0x0cc0…0cca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cde              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0008, t01=0x004e}
0x0cde…0ce8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce8…0cf2              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x006c}
0x0cf2…0d24              Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0008, t01=0x0076}
0x0d24…0d52              Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0008, t01=0x00a8}
0x0d52…0d5c              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x00d6}
0x0d5c…0d70              Head {h00=0x0010, h01=0x0050, text=»DSKPAG EQU 0«, t00=0x0008, t01=0x00e0}
0x0d70…0d7a              Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0008, t01=0x00f4}
0x0d7a…0d9a              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0008, t01=0x00fe}
0x0d9a…0da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011e}
0x0da4…0dae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0dae…0dc4              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x0132}
0x0dc4…0dda              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0008, t01=0x0148}
0x0dda…0df0              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0008, t01=0x015e}
0x0df0…0dfa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0174}
0x0dfa…0e04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017e}
0x0e04…0e38              Head {h00=0x0030, h01=0x0050, text=»DAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1«, t00=0x0008, t01=0x0188}
0x0e38…0e70              Head {h00=0x0034, h01=0x0050, text=»DAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1«, t00=0x0009, t01=0x002c}
0x0e70…0ea4              Head {h00=0x0030, h01=0x0050, text=»DAF2 EQU /38 DEVICE ADDRESS FIXED DISC NO. 2«, t00=0x0009, t01=0x0064}
0x0ea4…0edc              Head {h00=0x0034, h01=0x0050, text=»DAC2 EQU /18 DEVICE ADDRESS CARTRIDGE DISC NO. 2«, t00=0x0009, t01=0x0098}
0x0edc…0f04              Head {h00=0x0024, h01=0x0050, text=»WER1 EQU /10 MULTIPLEXOR ADDRESS«, t00=0x0009, t01=0x00d0}
0x0f04…0f2e              Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /08 CONTROL UNIT ADDRESS«, t00=0x0009, t01=0x00f8}
0x0f2e…0f38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f38…0f66              Head {h00=0x002a, h01=0x0050, text=»MAXCY5 EQU 203 MAX CYLINDER NO X/1215 «, t00=0x0009, t01=0x012c}
0x0f66…0f94              Head {h00=0x002a, h01=0x0050, text=»MAXCY6 EQU 407 MAX CYLINDER NO X/1216 «, t00=0x0009, t01=0x015a}
0x0f94…0fc4              Head {h00=0x002c, h01=0x0050, text=»LENGTH EQU 410 SECTOR LENGTH, CHARACTERS«, t00=0x0009, t01=0x0188}
0x0fc4…0fe6              Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x000a, t01=0x0028}
0x0fe6…1008              Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x000a, t01=0x004a}
0x1008…1012              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x006c}
0x1012…1032              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000a, t01=0x0076}
0x1032…103c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0096}
0x103c…1046              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a0}
0x1046…106e              Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x000a, t01=0x00aa}
0x106e…1090              Head {h00=0x001e, h01=0x0050, text=» DATA 4 DISC DEVICE INDEX «, t00=0x000a, t01=0x00d2}
0x1090…10ba              Head {h00=0x0026, h01=0x0050, text=»DUADR DATA DUAD ACTIVATION ADDRESS«, t00=0x000a, t01=0x00f4}
0x10ba…10e0              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000a, t01=0x011e}
0x10e0…10ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0144}
0x10ea…1116              Head {h00=0x0028, h01=0x0050, text=»BUF RES 5 SECTOR BUFFER - 200 WORDS «, t00=0x000a, t01=0x014e}
0x1116…1128              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x000a, t01=0x017a}
0x1128…1150              Head {h00=0x0024, h01=0x0050, text=» RES 200 READ AFTER WRITE BUFFER«, t00=0x000a, t01=0x018c}
0x1150…115c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0024}
0x115c…1166              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0030}
0x1166…117e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000b, t01=0x003a}
0x117e…1188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0052}
0x1188…11b4              Head {h00=0x0028, h01=0x0050, text=»*   RETRY IS USED TO DETECT RETRIES «, t00=0x000b, t01=0x005c}
0x11b4…11be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0088}
0x11be…11e2              Head {h00=0x0020, h01=0x0050, text=»RETRY DATA 0 MAX NO OF TRIES«, t00=0x000b, t01=0x0092}
0x11e2…11ec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00b6}
0x11ec…11f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00c0}
0x11f6…1230              Head {h00=0x0036, h01=0x0050, text=»*   TABLE FOR CONVERSION FROM LOGICAL TO PHYSICAL «, t00=0x000b, t01=0x00ca}
0x1230…124a              Head {h00=0x0016, h01=0x0050, text=»*   SECTOR NUMBER «, t00=0x000b, t01=0x0104}
0x124a…1254              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1254…125e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0128}
0x125e…12a2              Head {h00=0x0040, h01=0x0050, text=»SECTAB DATA /0003,/0609,/0C0F,/0205,/080B,/0E01,/0407,/0A0D «, t00=0x000b, t01=0x0132}
0x12a2…12e0              Head {h00=0x003a, h01=0x0050, text=» DATA /1013,/1619,/1C1F,/1215,/181B,/1E11,/1417,/1A1D «, t00=0x000b, t01=0x0176}
0x12e0…12ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0024}
0x12ea…130a              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x000c, t01=0x002e}
0x130a…1314              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x004e}
0x1314…131e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0058}
0x131e…1338              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x0062}
0x1338…1352              Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000c, t01=0x007c}
0x1352…136c              Head {h00=0x0016, h01=0x0050, text=»*  ACTIVATION   * «, t00=0x000c, t01=0x0096}
0x136c…1386              Head {h00=0x0016, h01=0x0050, text=»*               * «, t00=0x000c, t01=0x00b0}
0x1386…13a0              Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x000c, t01=0x00ca}
0x13a0…13aa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00e4}
0x13aa…13b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00ee}
0x13b4…13d8              Head {h00=0x0020, h01=0x0050, text=»DUAD EQU * ACTIVATION ENTRY «, t00=0x000c, t01=0x00f8}
0x13d8…13ee              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x000c, t01=0x011c}
0x13ee…1404              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/7FFF«, t00=0x000c, t01=0x0132}
0x1404…1430              Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A6 GET OTHER DISC UNIT DWT «, t00=0x000c, t01=0x0148}
0x1430…1462              Head {h00=0x002e, h01=0x0050, text=» ANS A1,DWTST,A2 SET OTHER DISC UNIT BUSY «, t00=0x000c, t01=0x0174}
0x1462…146e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0016}
0x146e…1478              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0022}
0x1478…148c              Head {h00=0x0010, h01=0x0050, text=»DUA:00 EQU *«, t00=0x000d, t01=0x002c}
0x148c…14c0              Head {h00=0x0030, h01=0x0050, text=» LDK A4,QRETRY GET MAX NO OF RETRIES TO MAKE«, t00=0x000d, t01=0x0040}
0x14c0…14d8              Head {h00=0x0014, h01=0x0050, text=» ADK A7,0 SET CR«, t00=0x000d, t01=0x0074}
0x14d8…14fe              Head {h00=0x0022, h01=0x0050, text=» RF(Z) TEST TEST STATUS ORDER «, t00=0x000d, t01=0x008c}
0x14fe…1508              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b2}
0x1508…151e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x00bc}
0x151e…153c              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x000d, t01=0x00d2}
0x153c…1566              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x000d, t01=0x00f0}
0x1566…159c              Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/3000 GET BITS 0-1 IN 18-BIT ADDRESS «, t00=0x000d, t01=0x011a}
0x159c…15c8              Head {h00=0x0028, h01=0x0050, text=» RF(Z) DUA:05 BUFFER IN SYSTEM AREA?«, t00=0x000d, t01=0x0150}
0x15c8…15d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017c}
0x15d2…15ea              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000d, t01=0x0186}
0x15ea…15f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000e}
0x15f4…15fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0018}
0x15fe…1624              Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x000e, t01=0x0022}
0x1624…1636              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x000e, t01=0x0048}
0x1636…164c              Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/F000«, t00=0x000e, t01=0x005a}
0x164c…165e              Head {h00=0x000e, h01=0x0050, text=» SRL A2,2 «, t00=0x000e, t01=0x0070}
0x165e…1670              Head {h00=0x000e, h01=0x0050, text=» SLL A1,2 «, t00=0x000e, t01=0x0082}
0x1670…1682              Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x000e, t01=0x0094}
0x1682…16ba              Head {h00=0x0034, h01=0x0050, text=» ST A1,DWT:PA,A6 PAGE NUMBER (PSEUDO MMU TABLE) «, t00=0x000e, t01=0x00a6}
0x16ba…16d0              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFF «, t00=0x000e, t01=0x00de}
0x16d0…16e2              Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x000e, t01=0x00f4}
0x16e2…170e              Head {h00=0x0028, h01=0x0050, text=» ORK A1,1 INDICATE ADDRESS NOT ZERO «, t00=0x000e, t01=0x0106}
0x170e…1718              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0132}
0x1718…1754              Head {h00=0x0038, h01=0x0050, text=»DUA:05 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS«, t00=0x000e, t01=0x013c}
0x1754…1760              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x0178}
0x1760…176a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0184}
0x176a…1782              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x000e, t01=0x018e}
0x1782…178c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0016}
0x178c…1796              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0020}
0x1796…17c2              Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTOR,A6 GET INDEX AND ORDER «, t00=0x000f, t01=0x002a}
0x17c2…17f0              Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE IT FOR RECOVERY «, t00=0x000f, t01=0x0056}
0x17f0…1816              Head {h00=0x0022, h01=0x0050, text=» SRL A2,7 GET INDEX (DOUBLED) «, t00=0x000f, t01=0x0084}
0x1816…1828              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x000f, t01=0x00aa}
0x1828…1840              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTBSY,A2«, t00=0x000f, t01=0x00bc}
0x1840…1858              Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) END:15 «, t00=0x000f, t01=0x00d4}
0x1858…1876              Head {h00=0x001a, h01=0x0050, text=» LDR A1,A7 CHECK ORDER«, t00=0x000f, t01=0x00ec}
0x1876…1888              Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000f, t01=0x010a}
0x1888…18a8              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUA:30 BASIC READ«, t00=0x000f, t01=0x011c}
0x18a8…18ba              Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x000f, t01=0x013c}
0x18ba…18dc              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUA:30 BASIC WRITE «, t00=0x000f, t01=0x014e}
0x18dc…18f0              Head {h00=0x0010, h01=0x0050, text=» SUK A1,12  «, t00=0x000f, t01=0x0170}
0x18f0…1914              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:30 PHYSICAL READ «, t00=0x000f, t01=0x0184}
0x1914…1926              Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0010, t01=0x0018}
0x1926…194a              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUA:30 PHYSICAL WRITE«, t00=0x0010, t01=0x002a}
0x194a…1954              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x004e}
0x1954…197a              Head {h00=0x0022, h01=0x0050, text=»DUERR ABL DISIOE REQUEST ERROR«, t00=0x0010, t01=0x0058}
0x197a…1984              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x007e}
0x1984…19a4              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0010, t01=0x0088}
0x19a4…19ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a8}
0x19ae…19b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b2}
0x19b8…19d6              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x00bc}
0x19d6…19f4              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x00da}
0x19f4…1a12              Head {h00=0x001a, h01=0x0050, text=»*   TEST STATUS     * «, t00=0x0010, t01=0x00f8}
0x1a12…1a30              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0010, t01=0x0116}
0x1a30…1a4e              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0010, t01=0x0134}
0x1a4e…1a58              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0152}
0x1a58…1a62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a62…1a74              Head {h00=0x000e, h01=0x0050, text=»TEST EQU *«, t00=0x0010, t01=0x0166}
0x1a74…1a9a              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x0010, t01=0x0178}
0x1a9a…1aba              Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x0011, t01=0x000e}
0x1aba…1ac4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1ac4…1adc              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0011, t01=0x0038}
0x1adc…1ae6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0050}
0x1ae6…1af0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005a}
0x1af0…1b1a              Head {h00=0x0026, h01=0x0050, text=»DUA:30 LD A1,4,A8 REQUESTED LENGTH«, t00=0x0011, t01=0x0064}
0x1b1a…1b32              Head {h00=0x0014, h01=0x0050, text=» SUKL A1,LENGTH «, t00=0x0011, t01=0x008e}
0x1b32…1b5e              Head {h00=0x0028, h01=0x0050, text=» RB(NZ) DUERR REQUESTED LENGTH # 410«, t00=0x0011, t01=0x00a6}
0x1b5e…1b8a              Head {h00=0x0028, h01=0x0050, text=» LD A2,10,A8 RELATIVE SECTOR NUMBER «, t00=0x0011, t01=0x00d2}
0x1b8a…1b9c              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0011, t01=0x00fe}
0x1b9c…1bc6              Head {h00=0x0026, h01=0x0050, text=» ANK A3,/1F LOGICAL SECTOR NUMBER «, t00=0x0011, t01=0x0110}
0x1bc6…1bf6              Head {h00=0x002c, h01=0x0050, text=» LC A3,SECTAB,A3 PHYSICAL SECTOR NUMBER «, t00=0x0011, t01=0x013a}
0x1bf6…1c16              Head {h00=0x001c, h01=0x0050, text=» SC A3,DWTSEC,A6 SAVE IT«, t00=0x0011, t01=0x016a}
0x1c16…1c38              Head {h00=0x001e, h01=0x0050, text=» SRL A2,5 CYLINDER NUMBER «, t00=0x0011, t01=0x018a}
0x1c38…1c50              Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTCMX,A6«, t00=0x0012, t01=0x001c}
0x1c50…1c82              Head {h00=0x002e, h01=0x0050, text=» RB(G) DUERR CYLINDER NO GREATER THAN MAX.«, t00=0x0012, t01=0x0034}
0x1c82…1cc0              Head {h00=0x003a, h01=0x0050, text=» CW A2,DWTCYL,A6 COMPARE WITH CURRENT CYLINDER NUMBER «, t00=0x0012, t01=0x0066}
0x1cc0…1cf2              Head {h00=0x002e, h01=0x0050, text=» RF(E) DU:030 DISC HEAD ALREADY POSITIONED«, t00=0x0012, t01=0x00a4}
0x1cf2…1d20              Head {h00=0x002a, h01=0x0050, text=» ST A2,DWTCYL,A6 SAVE CYLINDER NUMBER «, t00=0x0012, t01=0x00d6}
0x1d20…1d2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0104}
0x1d2a…1d34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x010e}
0x1d34…1d54              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0012, t01=0x0118}
0x1d54…1d74              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0012, t01=0x0138}
0x1d74…1d94              Head {h00=0x001c, h01=0x0050, text=»*   SEEK SECTOR N      *«, t00=0x0012, t01=0x0158}
0x1d94…1db4              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0012, t01=0x0178}
0x1db4…1dd4              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x0008}
0x1dd4…1dde              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0028}
0x1dde…1de8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de8…1e12              Head {h00=0x0026, h01=0x0050, text=»DU:010 CF A5,SEEK SEEK CYLINDER N «, t00=0x0013, t01=0x003c}
0x1e12…1e24              Head {h00=0x000e, h01=0x0050, text=» SLC A1,5 «, t00=0x0013, t01=0x0066}
0x1e24…1e4c              Head {h00=0x0024, h01=0x0050, text=» RF(N) DU:030 OK. SEEK COMPLETED«, t00=0x0013, t01=0x0078}
0x1e4c…1e56              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a0}
0x1e56…1e6e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0013, t01=0x00aa}
0x1e6e…1e78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c2}
0x1e78…1e82              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00cc}
0x1e82…1ea2              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x00d6}
0x1ea2…1ec2              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0013, t01=0x00f6}
0x1ec2…1ee2              Head {h00=0x001c, h01=0x0050, text=»*   SEEK CYLINDER 0    *«, t00=0x0013, t01=0x0116}
0x1ee2…1f02              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0013, t01=0x0136}
0x1f02…1f22              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0013, t01=0x0156}
0x1f22…1f2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0176}
0x1f2c…1f36              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0180}
0x1f36…1f60              Head {h00=0x0026, h01=0x0050, text=»DU:015 CF A5,SEEKZ SEEK CYLINDER 0«, t00=0x0013, t01=0x018a}
0x1f60…1f72              Head {h00=0x000e, h01=0x0050, text=» SLC A1,6 «, t00=0x0014, t01=0x0024}
0x1f72…1f9a              Head {h00=0x0024, h01=0x0050, text=» RF(N) DU:020 SECTOR 0 NOT FOUND«, t00=0x0014, t01=0x0036}
0x1f9a…1fac              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x005e}
0x1fac…1fcc              Head {h00=0x001c, h01=0x0050, text=» RB(NZ) DU:010 TRY AGAIN«, t00=0x0014, t01=0x0070}
0x1fcc…1fd6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0090}
0x1fd6…2004              Head {h00=0x002a, h01=0x0050, text=»DU:020 LDKL A3,/FFFF ALL RETRIES DONE «, t00=0x0014, t01=0x009a}
0x2004…2038              Head {h00=0x0030, h01=0x0050, text=» ST A3,DWTCYL,A6 SET ILLEGAL CYLINDER NUMBER«, t00=0x0014, t01=0x00c8}
0x2038…2064              Head {h00=0x0028, h01=0x0050, text=» LDKL A1,/200 SEEK ERROR RETURN CODE«, t00=0x0014, t01=0x00fc}
0x2064…2084              Head {h00=0x001c, h01=0x0050, text=» RF DENDIO PERFORM ENDIO«, t00=0x0014, t01=0x0128}
0x2084…208e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0148}
0x208e…20ae              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0014, t01=0x0152}
0x20ae…20b8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0172}
0x20b8…20c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017c}
0x20c2…20e4              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0014, t01=0x0186}
0x20e4…2106              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0015, t01=0x0018}
0x2106…2128              Head {h00=0x001e, h01=0x0050, text=»*  GO AND EXECUTE ORDER  *«, t00=0x0015, t01=0x003a}
0x2128…214a              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0015, t01=0x005c}
0x214a…216c              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0015, t01=0x007e}
0x216c…2176              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2176…2180              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00aa}
0x2180…219e              Head {h00=0x001a, h01=0x0050, text=»DU:030 LDR A1,A7 ORDER«, t00=0x0015, t01=0x00b4}
0x219e…21b0              Head {h00=0x000e, h01=0x0050, text=» SUK A1,5 «, t00=0x0015, t01=0x00d2}
0x21b0…21d2              Head {h00=0x001e, h01=0x0050, text=» RF(Z) WRIT:N BASIC WRITE «, t00=0x0015, t01=0x00e4}
0x21d2…21e4              Head {h00=0x000e, h01=0x0050, text=» SUK A1,12«, t00=0x0015, t01=0x0106}
0x21e4…2200              Head {h00=0x0018, h01=0x0050, text=» RF(NP) READ:N READ «, t00=0x0015, t01=0x0118}
0x2200…220a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0134}
0x220a…2214              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x013e}
0x2214…2234              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0015, t01=0x0148}
0x2234…2254              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0015, t01=0x0168}
0x2254…2274              Head {h00=0x001c, h01=0x0050, text=»*   READ SECTOR N-1    *«, t00=0x0015, t01=0x0188}
0x2274…2294              Head {h00=0x001c, h01=0x0050, text=»*                      *«, t00=0x0016, t01=0x0018}
0x2294…22b4              Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0016, t01=0x0038}
0x22b4…22be              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0058}
0x22be…22c8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0062}
0x22c8…22fc              Head {h00=0x0030, h01=0x0050, text=»P:WRIT CF A5,WER:R5 EXECUTE WER INSTRUCTIONS«, t00=0x0016, t01=0x006c}
0x22fc…2320              Head {h00=0x0020, h01=0x0050, text=» CF A5,READ5 READ FIVE WORDS«, t00=0x0016, t01=0x00a0}
0x2320…2332              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x0016, t01=0x00c4}
0x2332…2362              Head {h00=0x002c, h01=0x0050, text=» RF(Z) P:WR10 OK. CHECK CYLINDER NUMBER «, t00=0x0016, t01=0x00d6}
0x2362…238c              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0016, t01=0x0106}
0x238c…23ae              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) P:WRIT TRY AGAIN? «, t00=0x0016, t01=0x0130}
0x23ae…23da              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0016, t01=0x0152}
0x23da…23e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017e}
0x23e4…2412              Head {h00=0x002a, h01=0x0050, text=»P:WR10 LD A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0016, t01=0x0188}
0x2412…244c              Head {h00=0x0036, h01=0x0050, text=» CW A2,BUF+1 COMPARE WITH CURRENT CYLINDER NUMBER «, t00=0x0017, t01=0x0026}
0x244c…2478              Head {h00=0x0028, h01=0x0050, text=» RB(NE) DU:015 ERROR.SEEK CYLINDER 0«, t00=0x0017, t01=0x0060}
0x2478…2482              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x008c}
0x2482…249a              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0017, t01=0x0096}
0x249a…24a4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ae}
0x24a4…24ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b8}
0x24ae…24cc              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0017, t01=0x00c2}
0x24cc…24ea              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0017, t01=0x00e0}
0x24ea…2508              Head {h00=0x001a, h01=0x0050, text=»*   WRITE SECTOR N  * «, t00=0x0017, t01=0x00fe}
0x2508…2526              Head {h00=0x001a, h01=0x0050, text=»*                   * «, t00=0x0017, t01=0x011c}
0x2526…2544              Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0017, t01=0x013a}
0x2544…254e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0158}
0x254e…2558              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0162}
0x2558…258c              Head {h00=0x0030, h01=0x0050, text=»WRIT:N CF A5,WER:W EXECUTE WER INSTRUCTIONS «, t00=0x0017, t01=0x016c}
0x258c…25b0              Head {h00=0x0020, h01=0x0050, text=» CF A5,WRITE WRITE SECTOR N «, t00=0x0018, t01=0x0010}
0x25b0…25c4              Head {h00=0x0010, h01=0x0050, text=» ANK A1,/1F «, t00=0x0018, t01=0x0034}
0x25c4…25ec              Head {h00=0x0024, h01=0x0050, text=» RF(Z) WRIT20 OK. NO RETURN CODE«, t00=0x0018, t01=0x0048}
0x25ec…2616              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0018, t01=0x0070}
0x2616…2638              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) WRIT:N TRY AGAIN? «, t00=0x0018, t01=0x009a}
0x2638…2664              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0018, t01=0x00bc}
0x2664…266e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00e8}
0x266e…2682              Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0018, t01=0x00f2}
0x2682…2694              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0018, t01=0x0106}
0x2694…26a6              Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x0018, t01=0x0118}
0x26a6…26d0              Head {h00=0x0026, h01=0x0050, text=» RF(E) DENDIO JUMP IF BASIC WRITE «, t00=0x0018, t01=0x012a}
0x26d0…26fa              Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF DRIVER BUFFER ADDRESS«, t00=0x0018, t01=0x0154}
0x26fa…2704              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x017e}
0x2704…2738              Head {h00=0x0030, h01=0x0050, text=»WRIT30 CF A5,WER:R EXECUTE WER INSTRUCTIONS «, t00=0x0018, t01=0x0188}
0x2738…275a              Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ SECTOR N «, t00=0x0019, t01=0x002c}
0x275a…276c              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x0019, t01=0x004e}
0x276c…278c              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DENDIO JUMP IF OK«, t00=0x0019, t01=0x0060}
0x278c…27b6              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x0019, t01=0x0080}
0x27b6…27d8              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) WRIT30 TRY AGAIN? «, t00=0x0019, t01=0x00aa}
0x27d8…27e4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x00cc}
0x27e4…27ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d8}
0x27ee…281a              Head {h00=0x0028, h01=0x0050, text=» RF DENDIO ALL RETRIES DONE, GIVE UP«, t00=0x0019, t01=0x00e2}
0x281a…2824              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010e}
0x2824…2844              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0019, t01=0x0118}
0x2844…284e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0138}
0x284e…2858              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0142}
0x2858…2876              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0019, t01=0x014c}
0x2876…2894              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0019, t01=0x016a}
0x2894…28b2              Head {h00=0x001a, h01=0x0050, text=»*   READ SECTOR N    *«, t00=0x0019, t01=0x0188}
0x28b2…28d0              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x001a, t01=0x0016}
0x28d0…28ee              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x001a, t01=0x0034}
0x28ee…28f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0052}
0x28f8…2902              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x2902…2936              Head {h00=0x0030, h01=0x0050, text=»READ:N CF A5,WER:R EXECUTE WER INSTRUCTIONS «, t00=0x001a, t01=0x0066}
0x2936…2958              Head {h00=0x001e, h01=0x0050, text=» CF A5,READ READ SECTOR N «, t00=0x001a, t01=0x009a}
0x2958…296a              Head {h00=0x000e, h01=0x0050, text=» ANK A1,/F«, t00=0x001a, t01=0x00bc}
0x296a…2992              Head {h00=0x0024, h01=0x0050, text=» RF(Z) READ10 OK. NO RETURN CODE«, t00=0x001a, t01=0x00ce}
0x2992…29bc              Head {h00=0x0026, h01=0x0050, text=» SUK A4,1 DECREMENT RETRY COUNTER «, t00=0x001a, t01=0x00f6}
0x29bc…29de              Head {h00=0x001e, h01=0x0050, text=» RB(NZ) READ:N TRY AGAIN? «, t00=0x001a, t01=0x0120}
0x29de…29e8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0142}
0x29e8…2a10              Head {h00=0x0024, h01=0x0050, text=»DENDIO EQU * COMMON BRANCH LABEL«, t00=0x001a, t01=0x014c}
0x2a10…2a36              Head {h00=0x0022, h01=0x0050, text=» ABL  END:IO ALL RETRIES DONE «, t00=0x001a, t01=0x0174}
0x2a36…2a40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000a}
0x2a40…2a58              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001b, t01=0x0014}
0x2a58…2a62              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002c}
0x2a62…2a6c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0036}
0x2a6c…2a90              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001b, t01=0x0040}
0x2a90…2ab4              Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x001b, t01=0x0064}
0x2ab4…2ad8              Head {h00=0x0020, h01=0x0050, text=»*  CHECK CYLINDER NUMBER  * «, t00=0x001b, t01=0x0088}
0x2ad8…2afc              Head {h00=0x0020, h01=0x0050, text=»*                         * «, t00=0x001b, t01=0x00ac}
0x2afc…2b20              Head {h00=0x0020, h01=0x0050, text=»*************************** «, t00=0x001b, t01=0x00d0}
0x2b20…2b2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f4}
0x2b2a…2b34              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fe}
0x2b34…2b48              Head {h00=0x0010, h01=0x0050, text=»READ10 EQU *«, t00=0x001b, t01=0x0108}
0x2b48…2b5e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001b, t01=0x011c}
0x2b5e…2b8e              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001b, t01=0x0132}
0x2b8e…2b9a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0162}
0x2b9a…2ba4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x016e}
0x2ba4…2bba              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0178}
0x2bba…2bd8              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x001b, t01=0x018e}
0x2bd8…2c10              Head {h00=0x0034, h01=0x0050, text=» LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x001c, t01=0x001c}
0x2c10…2c44              Head {h00=0x0030, h01=0x0050, text=» RF(Z) READ30 JUMP IF BUFFER IN SYSTEM AREA «, t00=0x001c, t01=0x0054}
0x2c44…2c74              Head {h00=0x002c, h01=0x0050, text=» TS -30,A15 SAVE MMU REGISTERS ON STACK «, t00=0x001c, t01=0x0088}
0x2c74…2ca0              Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x001c, t01=0x00b8}
0x2ca0…2cce              Head {h00=0x002a, h01=0x0050, text=» ELR A2,A2 GET CURRENT CYLINDER NUMBER«, t00=0x001c, t01=0x00e4}
0x2cce…2d02              Head {h00=0x0030, h01=0x0050, text=» TL -30,A15 RESTORE MMU REGISTERS FROM STACK«, t00=0x001c, t01=0x0112}
0x2d02…2d14              Head {h00=0x000e, h01=0x0050, text=» RF READ40«, t00=0x001c, t01=0x0146}
0x2d14…2d1e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0158}
0x2d1e…2d32              Head {h00=0x0010, h01=0x0050, text=»READ30 EQU *«, t00=0x001c, t01=0x0162}
0x2d32…2d62              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001c, t01=0x0176}
0x2d62…2d6e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x0016}
0x2d6e…2d78              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0022}
0x2d78…2d90              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001d, t01=0x002c}
0x2d90…2d9a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0044}
0x2d9a…2da4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x004e}
0x2da4…2dba              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001d, t01=0x0058}
0x2dba…2dd6              Head {h00=0x0018, h01=0x0050, text=» IFT ONLYDM-DSKPAG=1«, t00=0x001d, t01=0x006e}
0x2dd6…2e06              Head {h00=0x002c, h01=0x0050, text=» LD* A2,2,A8 GET CURRENT CYLINDER NUMBER«, t00=0x001d, t01=0x008a}
0x2e06…2e12              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001d, t01=0x00ba}
0x2e12…2e1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c6}
0x2e1c…2e30              Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x001d, t01=0x00d0}
0x2e30…2e70              Head {h00=0x003c, h01=0x0050, text=» CW A2,DWTCYL,A6 COMPARE WITH REQUESTED CYLINDER NUMBER «, t00=0x001d, t01=0x00e4}
0x2e70…2e98              Head {h00=0x0024, h01=0x0050, text=» RB(E) DENDIO OK, PERFORM ENDIO «, t00=0x001d, t01=0x0124}
0x2e98…2ec2              Head {h00=0x0026, h01=0x0050, text=» RB  DU:015 ERROR. SEEK CYLINDER 0«, t00=0x001d, t01=0x014c}
0x2ec2…2ecc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0176}
0x2ecc…2eec              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x001d, t01=0x0180}
0x2eec…2ef6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0010}
0x2ef6…2f00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x001a}
0x2f00…2f26              Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x0024}
0x2f26…2f4c              Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x004a}
0x2f4c…2f72              Head {h00=0x0022, h01=0x0050, text=»*  EXECUTE WER INSTRUCTIONS  *«, t00=0x001e, t01=0x0070}
0x2f72…2f98              Head {h00=0x0022, h01=0x0050, text=»*                            *«, t00=0x001e, t01=0x0096}
0x2f98…2fbe              Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x001e, t01=0x00bc}
0x2fbe…2fc8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e2}
0x2fc8…2fd2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ec}
0x2fd2…2ffc              Head {h00=0x0026, h01=0x0050, text=»WER:R5 LDKL A2,/8005 READ 5 WORDS «, t00=0x001e, t01=0x00f6}
0x2ffc…3026              Head {h00=0x0026, h01=0x0050, text=» LDKL A3,BUF DRIVER BUFFER ADDRESS«, t00=0x001e, t01=0x0120}
0x3026…3038              Head {h00=0x000e, h01=0x0050, text=» RF EX:WER«, t00=0x001e, t01=0x014a}
0x3038…3042              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x015c}
0x3042…306c              Head {h00=0x0026, h01=0x0050, text=»WER:R LDKL A2,/80CD READ 1 SECTOR «, t00=0x001e, t01=0x0166}
0x306c…3080              Head {h00=0x0010, h01=0x0050, text=» CWK A3,BUF «, t00=0x001e, t01=0x0190}
0x3080…3096              Head {h00=0x0012, h01=0x0050, text=» RF(E) EX:WER «, t00=0x001f, t01=0x0014}
0x3096…30a8              Head {h00=0x000e, h01=0x0050, text=» RF WER:WB«, t00=0x001f, t01=0x002a}
0x30a8…30b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x003c}
0x30b2…30dc              Head {h00=0x0026, h01=0x0050, text=»WER:W LDKL A2,/C0CD WRITE 1 SECTOR«, t00=0x001f, t01=0x0046}
0x30dc…30e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0070}
0x30e6…30fe              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x001f, t01=0x007a}
0x30fe…3108              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0092}
0x3108…3112              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x009c}
0x3112…3140              Head {h00=0x002a, h01=0x0050, text=»WER:WB LD A3,2,A8 USER BUFFER ADDRESS «, t00=0x001f, t01=0x00a6}
0x3140…314a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x314a…3160              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001f, t01=0x00de}
0x3160…317e              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x001f, t01=0x00f4}
0x317e…31a8              Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A8 GET FIRST WORD OF ECB «, t00=0x001f, t01=0x0112}
0x31a8…31e0              Head {h00=0x0034, h01=0x0050, text=» ANKL A1,/3000 GET BITS 16-17 IN BUFFER ADDRESS «, t00=0x001f, t01=0x013c}
0x31e0…31f2              Head {h00=0x000e, h01=0x0050, text=» ORR A2,A1«, t00=0x001f, t01=0x0174}
0x31f2…31fe              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0186}
0x31fe…3208 (32, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0004}
0x3208…321c              Head {h00=0x0010, h01=0x0050, text=»EX:WER EQU *«, t00=0x0020, t01=0x000e}
0x321c…3242              Head {h00=0x0022, h01=0x0050, text=» EX DWTWR1,A6 EXECUTE 1:ST WER«, t00=0x0020, t01=0x0022}
0x3242…3268              Head {h00=0x0022, h01=0x0050, text=» EX DWTWR2,A6 EXECUTE 2:ND WER«, t00=0x0020, t01=0x0048}
0x3268…3278              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0020, t01=0x006e}
0x3278…3282              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x007e}
0x3282…32a2              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0020, t01=0x0088}
0x32a2…32ac              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00a8}
0x32ac…32b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b2}
0x32b6…32d2              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0020, t01=0x00bc}
0x32d2…32ee              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0020, t01=0x00d8}
0x32ee…330a              Head {h00=0x0018, h01=0x0050, text=»*  SEEK CYLINDER  * «, t00=0x0020, t01=0x00f4}
0x330a…3326              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0020, t01=0x0110}
0x3326…3342              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0020, t01=0x012c}
0x3342…334c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0148}
0x334c…3356              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0152}
0x3356…3382              Head {h00=0x0028, h01=0x0050, text=»SEEK LD A2,DWTCYL,A6 CYLINDER NUMBER«, t00=0x0020, t01=0x015c}
0x3382…3394              Head {h00=0x000e, h01=0x0050, text=» SLL A2,3 «, t00=0x0020, t01=0x0188}
0x3394…33a6              Head {h00=0x000e, h01=0x0050, text=» ORK A2,2 «, t00=0x0021, t01=0x000a}
0x33a6…33c8              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x001c}
0x33c8…33d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x003e}
0x33d2…33e6              Head {h00=0x0010, h01=0x0050, text=»SEEKZ EQU * «, t00=0x0021, t01=0x0048}
0x33e6…33f8              Head {h00=0x000e, h01=0x0050, text=» LDK A2,3 «, t00=0x0021, t01=0x005c}
0x33f8…341a              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x006e}
0x341a…3424              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0090}
0x3424…3450              Head {h00=0x0028, h01=0x0050, text=»READ5 LC A2,DWTSEC,A6 SECTOR NUMBER «, t00=0x0021, t01=0x009a}
0x3450…3464              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0021, t01=0x00c6}
0x3464…3480              Head {h00=0x0018, h01=0x0050, text=» SUK A2,3 SECTOR N-1«, t00=0x0021, t01=0x00da}
0x3480…3494              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0021, t01=0x00f6}
0x3494…34a6              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0021, t01=0x010a}
0x34a6…34c8              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0021, t01=0x011c}
0x34c8…34d2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013e}
0x34d2…34f2              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0021, t01=0x0148}
0x34f2…34fc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0168}
0x34fc…3506              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0172}
0x3506…3530              Head {h00=0x0026, h01=0x0050, text=»READ LC A2,DWTSEC,A6 SECTOR NUMBER«, t00=0x0021, t01=0x017c}
0x3530…3544              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/1F «, t00=0x0022, t01=0x0016}
0x3544…3556              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0022, t01=0x002a}
0x3556…3578              Head {h00=0x001e, h01=0x0050, text=» RF CIO EXECUTE CIO-START «, t00=0x0022, t01=0x003c}
0x3578…3582              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x005e}
0x3582…35b0              Head {h00=0x002a, h01=0x0050, text=»WRITE LD A2,DWTCYL,A6 CYLINDER NUMBER «, t00=0x0022, t01=0x0068}
0x35b0…35ba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0096}
0x35ba…35d0              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0022, t01=0x00a0}
0x35d0…3600              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYL. NR IN USER BUFFER «, t00=0x0022, t01=0x00b6}
0x3600…360c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00e6}
0x360c…3616              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f2}
0x3616…362c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0022, t01=0x00fc}
0x362c…364a              Head {h00=0x001a, h01=0x0050, text=» IFF 1-ONLYDM+DSKPAG=0«, t00=0x0022, t01=0x0112}
0x364a…3682              Head {h00=0x0034, h01=0x0050, text=» LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS«, t00=0x0022, t01=0x0130}
0x3682…36b6              Head {h00=0x0030, h01=0x0050, text=» RF(Z) WRITE3 JUMP IF BUFFER IN SYSTEM AREA «, t00=0x0022, t01=0x0168}
0x36b6…36e6              Head {h00=0x002c, h01=0x0050, text=» TS -30,A15 SAVE MMU REGISTERS ON STACK «, t00=0x0023, t01=0x000c}
0x36e6…3712              Head {h00=0x0028, h01=0x0050, text=» TL DWT:PA,A6 LOAD PSEUDO MMU TABLE «, t00=0x0023, t01=0x003c}
0x3712…3740              Head {h00=0x002a, h01=0x0050, text=» ESR A2,A1 PUT CYL. NR IN USER BUFFER «, t00=0x0023, t01=0x0068}
0x3740…3774              Head {h00=0x0030, h01=0x0050, text=» TL -30,A15 RESTORE MMU REGISTERS FROM STACK«, t00=0x0023, t01=0x0096}
0x3774…3786              Head {h00=0x000e, h01=0x0050, text=» RF WRITE4«, t00=0x0023, t01=0x00ca}
0x3786…3790              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00dc}
0x3790…37a4              Head {h00=0x0010, h01=0x0050, text=»WRITE3 EQU *«, t00=0x0023, t01=0x00e6}
0x37a4…37d4              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYL. NR IN USER BUFFER «, t00=0x0023, t01=0x00fa}
0x37d4…37e0              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x012a}
0x37e0…37ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0136}
0x37ea…3802              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0023, t01=0x0140}
0x3802…380c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0158}
0x380c…3816              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0162}
0x3816…382c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0023, t01=0x016c}
0x382c…3848              Head {h00=0x0018, h01=0x0050, text=» IFT ONLYDM-DSKPAG=1«, t00=0x0023, t01=0x0182}
0x3848…3878              Head {h00=0x002c, h01=0x0050, text=» ST* A2,2,A8 PUT CYLNMB. IN USER BUFFER «, t00=0x0024, t01=0x000e}
0x3878…3884              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x003e}
0x3884…388e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x004a}
0x388e…38a2              Head {h00=0x0010, h01=0x0050, text=»WRITE4 EQU *«, t00=0x0024, t01=0x0054}
0x38a2…38c8              Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTSEC,A6 SECTOR NUMBER«, t00=0x0024, t01=0x0068}
0x38c8…38da              Head {h00=0x000e, h01=0x0050, text=» SLL A2,2 «, t00=0x0024, t01=0x008e}
0x38da…38ec              Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0024, t01=0x00a0}
0x38ec…38f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b2}
0x38f6…3916              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0024, t01=0x00bc}
0x3916…3920              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00dc}
0x3920…392a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e6}
0x392a…393c              Head {h00=0x000e, h01=0x0050, text=»CIO EQU * «, t00=0x0024, t01=0x00f0}
0x393c…3956              Head {h00=0x0016, h01=0x0050, text=»  LC A1,DWTOR,A6  «, t00=0x0024, t01=0x0102}
0x3956…396e              Head {h00=0x0014, h01=0x0050, text=» ANK A1,1 INDEX «, t00=0x0024, t01=0x011c}
0x396e…398e              Head {h00=0x001c, h01=0x0050, text=» ADR A1,A1 DOUBLE INDEX «, t00=0x0024, t01=0x0134}
0x398e…39a0              Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x0024, t01=0x0154}
0x39a0…39c8              Head {h00=0x0024, h01=0x0050, text=» EX DWTCIO,A1 EXECUTE CIO-START «, t00=0x0024, t01=0x0166}
0x39c8…39da              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0024, t01=0x018e}
0x39da…3a08              Head {h00=0x002a, h01=0x0050, text=» ABL(3) END:20 DEVICE ADDRESS UNKNOWN?«, t00=0x0025, t01=0x0010}
0x3a08…3a2e              Head {h00=0x0022, h01=0x0050, text=» ST A4,DWTA4,A6            A4 «, t00=0x0025, t01=0x003e}
0x3a2e…3a54              Head {h00=0x0022, h01=0x0050, text=» ST A5,DWTA5,A6            A5 «, t00=0x0025, t01=0x0064}
0x3a54…3a5e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x008a}
0x3a5e…3a88              Head {h00=0x0026, h01=0x0050, text=»T:DISP ABL TDISP GO TO DISPATCHER «, t00=0x0025, t01=0x0094}
0x3a88…3a92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a92…3ab2              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0025, t01=0x00c8}
0x3ab2…3abc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e8}
0x3abc…3ac6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f2}
0x3ac6…3ae4              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0025, t01=0x00fc}
0x3ae4…3b02              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0025, t01=0x011a}
0x3b02…3b20              Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0025, t01=0x0138}
0x3b20…3b3e              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0025, t01=0x0156}
0x3b3e…3b5c              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0025, t01=0x0174}
0x3b5c…3b66 (38, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0004}
0x3b66…3b70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x000e}
0x3b70…3b82              Head {h00=0x000e, h01=0x0050, text=»DUON EQU *«, t00=0x0026, t01=0x0018}
0x3b82…3b98              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0026, t01=0x002a}
0x3b98…3bc2              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0026, t01=0x0040}
0x3bc2…3bce              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x006a}
0x3bce…3bd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0076}
0x3bd8…3bee              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0026, t01=0x0080}
0x3bee…3c14              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0026, t01=0x0096}
0x3c14…3c20              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x00bc}
0x3c20…3c2a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00c8}
0x3c2a…3c42              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU01 «, t00=0x0026, t01=0x00d2}
0x3c42…3c6c              Head {h00=0x0026, h01=0x0050, text=» LD A1,INIFLG INITIALIZATION FLAG «, t00=0x0026, t01=0x00ea}
0x3c6c…3c8a              Head {h00=0x001a, h01=0x0050, text=» RF(Z) DUON20 POWER UP«, t00=0x0026, t01=0x0114}
0x3c8a…3c94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0132}
0x3c94…3ca8              Head {h00=0x0010, h01=0x0050, text=»DURED2 EQU *«, t00=0x0026, t01=0x013c}
0x3ca8…3cbe              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/7FFF«, t00=0x0026, t01=0x0150}
0x3cbe…3cea              Head {h00=0x0028, h01=0x0050, text=» ANS A1,DWTST,A6 SET DISC UNIT BUSY «, t00=0x0026, t01=0x0166}
0x3cea…3cf4 (39, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0004}
0x3cf4…3d0a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0027, t01=0x000e}
0x3d0a…3d34              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x0027, t01=0x0024}
0x3d34…3d5a              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET DWT BUSY «, t00=0x0027, t01=0x004e}
0x3d5a…3d66              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0074}
0x3d66…3d70              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0080}
0x3d70…3d88              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0027, t01=0x008a}
0x3d88…3d92              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a2}
0x3d92…3d9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ac}
0x3d9c…3db0              Head {h00=0x0010, h01=0x0050, text=»DUON05 EQU *«, t00=0x0027, t01=0x00b6}
0x3db0…3dd4              Head {h00=0x0020, h01=0x0050, text=»  LDKL A5,DWTSB2 STACK BASE «, t00=0x0027, t01=0x00ca}
0x3dd4…3df2              Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0027, t01=0x00ee}
0x3df2…3e18              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0027, t01=0x010c}
0x3e18…3e22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0132}
0x3e22…3e38              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0027, t01=0x013c}
0x3e38…3e68              Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 OTHER DISC UNIT DWT ADDRESS «, t00=0x0027, t01=0x0152}
0x3e68…3e80              Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DWTSB2 «, t00=0x0027, t01=0x0182}
0x3e80…3e9e              Head {h00=0x001a, h01=0x0050, text=» ADR A5,A6 STACK BASE «, t00=0x0028, t01=0x000a}
0x3e9e…3ec4              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0028, t01=0x0028}
0x3ec4…3eec              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0028, t01=0x004e}
0x3eec…3f12              Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DUON10 ANY REQUEST ON?«, t00=0x0028, t01=0x0076}
0x3f12…3f3a              Head {h00=0x0024, h01=0x0050, text=» LDR* A6,A6 NO, CHECK NEXT DRIVE«, t00=0x0028, t01=0x009c}
0x3f3a…3f46              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00c4}
0x3f46…3f50              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00d0}
0x3f50…3f78              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0028, t01=0x00da}
0x3f78…3f9c              Head {h00=0x0020, h01=0x0050, text=» RF(Z) DUON15 NO REQUEST ON?«, t00=0x0028, t01=0x0102}
0x3f9c…3fa6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0126}
0x3fa6…3fce              Head {h00=0x0024, h01=0x0050, text=»DUON10 LD A7,DWTORD,A6 GET ORDER«, t00=0x0028, t01=0x0130}
0x3fce…3ffe              Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0028, t01=0x0158}
0x3ffe…4012              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0028, t01=0x0188}
0x4012…4034              Head {h00=0x001e, h01=0x0050, text=» ABL DUA:00 REPEAT REQUEST«, t00=0x0029, t01=0x000c}
0x4034…403e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x002e}
0x403e…4056              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0029, t01=0x0038}
0x4056…4060              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0050}
0x4060…406a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x005a}
0x406a…4086              Head {h00=0x0018, h01=0x0050, text=»DUON15 CF A15,TENDIO«, t00=0x0029, t01=0x0064}
0x4086…4090              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0080}
0x4090…40a6              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0029, t01=0x008a}
0x40a6…40d0              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x0029, t01=0x00a0}
0x40d0…40e6              Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0029, t01=0x00ca}
0x40e6…40f2              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00e0}
0x40f2…410e              Head {h00=0x0018, h01=0x0050, text=» RB T:DISP DISPATCH «, t00=0x0029, t01=0x00ec}
0x410e…4118              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0108}
0x4118…4134              Head {h00=0x0018, h01=0x0050, text=»*    READY INTERRUPT«, t00=0x0029, t01=0x0112}
0x4134…413e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x012e}
0x413e…4158              Head {h00=0x0016, h01=0x0050, text=»DUREDY LD A1,TIMER«, t00=0x0029, t01=0x0138}
0x4158…417e              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DURED2 NO TIMER ACTIVE «, t00=0x0029, t01=0x0152}
0x417e…4188              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0178}
0x4188…419e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x0029, t01=0x0182}
0x419e…41bc              Head {h00=0x001a, h01=0x0050, text=» CM* TIMER KILL TIMER «, t00=0x002a, t01=0x0008}
0x41bc…41ce              Head {h00=0x000e, h01=0x0050, text=» RF DUON40«, t00=0x002a, t01=0x0026}
0x41ce…41da              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0038}
0x41da…41e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0044}
0x41e4…4204              Head {h00=0x001c, h01=0x0050, text=» RB T:DISP TIMER ACTIVE «, t00=0x002a, t01=0x004e}
0x4204…420e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x006e}
0x420e…4226              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x002a, t01=0x0078}
0x4226…4230              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0090}
0x4230…4258              Head {h00=0x0024, h01=0x0050, text=»*  SET DISC BUSY AND START TIMER«, t00=0x002a, t01=0x009a}
0x4258…4262              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c2}
0x4262…427e              Head {h00=0x0018, h01=0x0050, text=»DUON20 LDKL A1,/7FFF«, t00=0x002a, t01=0x00cc}
0x427e…4294              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002a, t01=0x00e8}
0x4294…42ba              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET UNIT BUSY«, t00=0x002a, t01=0x00fe}
0x42ba…42e0              Head {h00=0x0022, h01=0x0050, text=» LDR* A6,A6 OTHER DWT ADDRESS «, t00=0x002a, t01=0x0124}
0x42e0…42ec              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x014a}
0x42ec…4312              Head {h00=0x0022, h01=0x0050, text=» ANS A1,DWTST,A6 SET UNIT BUSY«, t00=0x002a, t01=0x0156}
0x4312…4338              Head {h00=0x0022, h01=0x0050, text=» LDKL A5,DWTSB2 GET STACK BASE«, t00=0x002a, t01=0x017c}
0x4338…434a              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x0012}
0x434a…4370              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x002b, t01=0x0024}
0x4370…437a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x004a}
0x437a…4390              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002b, t01=0x0054}
0x4390…43b4              Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 SAVE RETURN CODE «, t00=0x002b, t01=0x006a}
0x43b4…43de              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x002b, t01=0x008e}
0x43de…4404              Head {h00=0x0022, h01=0x0050, text=» LDKL A5,DWTSB2 GET STACK BASE«, t00=0x002b, t01=0x00b8}
0x4404…4416              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x002b, t01=0x00de}
0x4416…443c              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM READ VOLUME NAME«, t00=0x002b, t01=0x00f0}
0x443c…4460              Head {h00=0x0020, h01=0x0050, text=» LDR A3,A1 SAVE RETURN CODE «, t00=0x002b, t01=0x0116}
0x4460…4488              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x002b, t01=0x013a}
0x4488…44b6              Head {h00=0x002a, h01=0x0050, text=» RF(Z) DUON23 NO REQUEST ON THIS DISC?«, t00=0x002b, t01=0x0162}
0x44b6…44da              Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x002b, t01=0x0190}
0x44da…4500              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DUON10 REPEAT REQUEST? «, t00=0x002c, t01=0x0024}
0x4500…450a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x004a}
0x450a…451e              Head {h00=0x0010, h01=0x0050, text=»DUON23 EQU *«, t00=0x002c, t01=0x0054}
0x451e…4548              Head {h00=0x0026, h01=0x0050, text=» LDR* A6,A6 GET OTHER DWT ADDRESS «, t00=0x002c, t01=0x0068}
0x4548…457e              Head {h00=0x0032, h01=0x0050, text=» LDR A1,A4 RESTORE RETURN CODE FROM OTHER DISC«, t00=0x002c, t01=0x0092}
0x457e…458a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00c8}
0x458a…4594              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00d4}
0x4594…45bc              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x002c, t01=0x00de}
0x45bc…45ea              Head {h00=0x002a, h01=0x0050, text=» RF(Z) DUON26 NO REQUEST ON THIS DISC?«, t00=0x002c, t01=0x0106}
0x45ea…460e              Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x002c, t01=0x0134}
0x460e…4634              Head {h00=0x0022, h01=0x0050, text=» RB(Z) DUON10 REPEAT REQUEST? «, t00=0x002c, t01=0x0158}
0x4634…463e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x017e}
0x463e…4656              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x002c, t01=0x0188}
0x4656…4660              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0010}
0x4660…466a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001a}
0x466a…467e              Head {h00=0x0010, h01=0x0050, text=»DUON26 EQU *«, t00=0x002d, t01=0x0024}
0x467e…4694              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002d, t01=0x0038}
0x4694…46ba              Head {h00=0x0022, h01=0x0050, text=» ADR A1,A3 CHECK RETURN CODES «, t00=0x002d, t01=0x004e}
0x46ba…46ee              Head {h00=0x0030, h01=0x0050, text=» RB(Z) DUON15 NO REQUESTS AND BOTH OPERABLE?«, t00=0x002d, t01=0x0074}
0x46ee…46fa              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x00a8}
0x46fa…4704              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b4}
0x4704…471a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=1 «, t00=0x002d, t01=0x00be}
0x471a…4732              Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x002d, t01=0x00d4}
0x4732…4760              Head {h00=0x002a, h01=0x0050, text=» RB(Z) DUON15 NO REQUEST AND OPERABLE?«, t00=0x002d, t01=0x00ec}
0x4760…476c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x011a}
0x476c…4776              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0126}
0x4776…47a2              Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x002d, t01=0x0130}
0x47a2…47b6              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x002d, t01=0x015c}
0x47b6…47dc              Head {h00=0x0022, h01=0x0050, text=» RF(Z) DUON30 NO TIMER ACTIVE «, t00=0x002d, t01=0x0170}
0x47dc…47f2              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x002e, t01=0x0008}
0x47f2…4812              Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x002e, t01=0x001e}
0x4812…4824              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x002e, t01=0x003e}
0x4824…482e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0050}
0x482e…4856              Head {h00=0x0024, h01=0x0050, text=»DUON30 CF A15,SETIMP START TIMER«, t00=0x002e, t01=0x005a}
0x4856…4886              Head {h00=0x002c, h01=0x0050, text=» DATA DUON40,TIME TIME OUT ADDRESS, TIME«, t00=0x002e, t01=0x0082}
0x4886…4898              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x002e, t01=0x00b2}
0x4898…48a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c4}
0x48a2…48b6              Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x002e, t01=0x00ce}
0x48b6…48c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48c0…48de              Head {h00=0x001a, h01=0x0050, text=»DUON40 LDKL A6,DWDU01 «, t00=0x002e, t01=0x00ec}
0x48de…48f0              Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x002e, t01=0x010a}
0x48f0…4902              Head {h00=0x000e, h01=0x0050, text=» RB DUON05«, t00=0x002e, t01=0x011c}
0x4902…490c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x012e}
0x490c…492c              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x002e, t01=0x0138}
0x492c…4936              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0158}
0x4936…4940              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0162}
0x4940…4960              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x002e, t01=0x016c}
0x4960…4980              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x002e, t01=0x018c}
0x4980…49a0              Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x002f, t01=0x001c}
0x49a0…49c0              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x002f, t01=0x003c}
0x49c0…49e0              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x002f, t01=0x005c}
0x49e0…49ea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007c}
0x49ea…49f4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0086}
0x49f4…4a08              Head {h00=0x0010, h01=0x0050, text=»IHDU2 EQU * «, t00=0x002f, t01=0x0090}
0x4a08…4a1e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002f, t01=0x00a4}
0x4a1e…4a46              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x002f, t01=0x00ba}
0x4a46…4a5c              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002f, t01=0x00e2}
0x4a5c…4a86              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x002f, t01=0x00f8}
0x4a86…4a92              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0122}
0x4a92…4a9c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012e}
0x4a9c…4ab2              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x002f, t01=0x0138}
0x4ab2…4ac8              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002f, t01=0x014e}
0x4ac8…4aee              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x002f, t01=0x0164}
0x4aee…4afa              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x018a}
0x4afa…4b04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0008}
0x4b04…4b1a              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0030, t01=0x0012}
0x4b1a…4b42              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU02 DISC UNIT NO. 2 «, t00=0x0030, t01=0x0028}
0x4b42…4b54              Head {h00=0x000e, h01=0x0050, text=» RF IHDU10«, t00=0x0030, t01=0x0050}
0x4b54…4b60              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0062}
0x4b60…4b6a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x006e}
0x4b6a…4b82              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0030, t01=0x0078}
0x4b82…4b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0090}
0x4b8c…4b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x009a}
0x4b96…4ba8              Head {h00=0x000e, h01=0x0050, text=»IHDU EQU *«, t00=0x0030, t01=0x00a4}
0x4ba8…4bbc              Head {h00=0x0010, h01=0x0050, text=»IHDU1 EQU * «, t00=0x0030, t01=0x00b6}
0x4bbc…4be4              Head {h00=0x0024, h01=0x0050, text=» ST P,INTSAV SAVE LAST INTERRUPT«, t00=0x0030, t01=0x00ca}
0x4be4…4bfa              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0030, t01=0x00f2}
0x4bfa…4c24              Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x0030, t01=0x0108}
0x4c24…4c30              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0132}
0x4c30…4c3a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x013e}
0x4c3a…4c50              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0030, t01=0x0148}
0x4c50…4c76              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0030, t01=0x015e}
0x4c76…4c82              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x0184}
0x4c82…4c8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0190}
0x4c8c…4cb4              Head {h00=0x0024, h01=0x0050, text=» LDKL A6,DWDU01 DISC UNIT NO. 1 «, t00=0x0031, t01=0x000a}
0x4cb4…4cbe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0032}
0x4cbe…4cd6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0031, t01=0x003c}
0x4cd6…4ce0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0054}
0x4ce0…4cea              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x005e}
0x4cea…4d10              Head {h00=0x0022, h01=0x0050, text=»IHDU10 SST A1,CUADR GET STATUS«, t00=0x0031, t01=0x0068}
0x4d10…4d26              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0031, t01=0x008e}
0x4d26…4d38              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0031, t01=0x00a4}
0x4d38…4d4c              Head {h00=0x0010, h01=0x0050, text=» ANK A2,/40 «, t00=0x0031, t01=0x00b6}
0x4d4c…4d62              Head {h00=0x0012, h01=0x0050, text=» RF(Z) IHDU20 «, t00=0x0031, t01=0x00ca}
0x4d62…4d7a              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWDU02 «, t00=0x0031, t01=0x00e0}
0x4d7a…4d86              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00f8}
0x4d86…4d90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0104}
0x4d90…4dbe              Head {h00=0x002a, h01=0x0050, text=»IHDU20 ANKL A1,/460F MASK RETURN CODE «, t00=0x0031, t01=0x010e}
0x4dbe…4dd0              Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0031, t01=0x013c}
0x4dd0…4df6              Head {h00=0x0022, h01=0x0050, text=» RB(N) DUREDY READY INTERRUPT «, t00=0x0031, t01=0x014e}
0x4df6…4e08              Head {h00=0x000e, h01=0x0050, text=» SRL A1,1 «, t00=0x0031, t01=0x0174}
0x4e08…4e20              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0031, t01=0x0186}
0x4e20…4e34              Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x0032, t01=0x000e}
0x4e34…4e46              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0032, t01=0x0022}
0x4e46…4e58              Head {h00=0x000e, h01=0x0050, text=» ANK A3,1 «, t00=0x0032, t01=0x0034}
0x4e58…4e86              Head {h00=0x002a, h01=0x0050, text=» RF(NZ) END:IO DISC UNIT NOT OPERABLE «, t00=0x0032, t01=0x0046}
0x4e86…4e90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0074}
0x4e90…4ebe              Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x0032, t01=0x007e}
0x4ebe…4eea              Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x0032, t01=0x00ac}
0x4eea…4f02              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0032, t01=0x00d8}
0x4f02…4f1c              Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0032, t01=0x00f0}
0x4f1c…4f40              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0032, t01=0x010a}
0x4f40…4f50              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0032, t01=0x012e}
0x4f50…4f5a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x013e}
0x4f5a…4f7a              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0032, t01=0x0148}
0x4f7a…4f84              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0168}
0x4f84…4f8e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f8e…4faa              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0032, t01=0x017c}
0x4faa…4fc6              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0033, t01=0x0008}
0x4fc6…4fe2              Head {h00=0x0018, h01=0x0050, text=»*  PERFORM ENDIO  * «, t00=0x0033, t01=0x0024}
0x4fe2…4ffe              Head {h00=0x0018, h01=0x0050, text=»*                 * «, t00=0x0033, t01=0x0040}
0x4ffe…501a              Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0033, t01=0x005c}
0x501a…5024              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0078}
0x5024…502e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0082}
0x502e…5042              Head {h00=0x0010, h01=0x0050, text=»END:IO EQU *«, t00=0x0033, t01=0x008c}
0x5042…5068              Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/20F MASK RETURN CODE«, t00=0x0033, t01=0x00a0}
0x5068…5084              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) END:10 ERROR«, t00=0x0033, t01=0x00c6}
0x5084…50aa              Head {h00=0x0022, h01=0x0050, text=» LD A2,4,A8 REQUESTED LENGTH =«, t00=0x0033, t01=0x00e2}
0x50aa…50ce              Head {h00=0x0020, h01=0x0050, text=» ST A2,6,A8 EFFECTIVE LENGTH«, t00=0x0033, t01=0x0108}
0x50ce…50d8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012c}
0x50d8…50ec              Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0033, t01=0x0136}
0x50ec…5118              Head {h00=0x0028, h01=0x0050, text=» LDK A2,QRETRY GET MAX NO OF RETRIES«, t00=0x0033, t01=0x014a}
0x5118…5130              Head {h00=0x0014, h01=0x0050, text=» CW A2,DWTA4,A6 «, t00=0x0033, t01=0x0176}
0x5130…514e              Head {h00=0x001a, h01=0x0050, text=» RF(E) END:15 NO RETRY«, t00=0x0033, t01=0x018e}
0x514e…5174              Head {h00=0x0022, h01=0x0050, text=» ORKL A1,/100 BIT 7 = RETRIES «, t00=0x0034, t01=0x001c}
0x5174…517e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0042}
0x517e…5192              Head {h00=0x0010, h01=0x0050, text=»END:15 EQU *«, t00=0x0034, t01=0x004c}
0x5192…51b0              Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 ORDER «, t00=0x0034, t01=0x0060}
0x51b0…51c8              Head {h00=0x0014, h01=0x0050, text=» ANK A2,1 INDEX «, t00=0x0034, t01=0x007e}
0x51c8…51da              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A2«, t00=0x0034, t01=0x0096}
0x51da…51ec              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0034, t01=0x00a8}
0x51ec…5212              Head {h00=0x0022, h01=0x0050, text=» CM DWTBSY,A2 RESET READY WORD«, t00=0x0034, t01=0x00ba}
0x5212…521c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e0}
0x521c…5234              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0034, t01=0x00ea}
0x5234…523e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0102}
0x523e…5248              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x5248…525c              Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0034, t01=0x0116}
0x525c…5272              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x0034, t01=0x012a}
0x5272…52a2              Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 OTHER DISC UNIT DWT ADDRESS «, t00=0x0034, t01=0x0140}
0x52a2…52c6              Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0034, t01=0x0170}
0x52c6…52f6 (53, 0, 400) Head {h00=0x002c, h01=0x0050, text=» LDR* A6,A6 ACTIVE DISC UNIT DWT ADDRESS«, t00=0x0035, t01=0x0004}
0x52f6…5302              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x0034}
0x5302…530c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0040}
0x530c…5330              Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0035, t01=0x004a}
0x5330…5354              Head {h00=0x0020, h01=0x0050, text=»  ABL TDISP GO TO DISPATCHER«, t00=0x0035, t01=0x006e}
0x5354…535e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0092}
0x535e…5376              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0035, t01=0x009c}
0x5376…5380              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00b4}
0x5380…538a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00be}
0x538a…539e              Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0035, t01=0x00c8}
0x539e…53d0              Head {h00=0x002e, h01=0x0050, text=» CM DWTSAV,A6 INDICATE VOLUME NAME READING«, t00=0x0035, t01=0x00dc}
0x53d0…53ec              Head {h00=0x0018, h01=0x0050, text=» CM DWTOR,A6 INDEX=0«, t00=0x0035, t01=0x010e}
0x53ec…53f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x012a}
0x53f6…540a              Head {h00=0x0010, h01=0x0050, text=»VO:NA5 EQU *«, t00=0x0035, t01=0x0134}
0x540a…542e              Head {h00=0x0020, h01=0x0050, text=»  CF A5,SEEKZ SEEK SECTOR 0 «, t00=0x0035, t01=0x0148}
0x542e…5444              Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/203 «, t00=0x0035, t01=0x016c}
0x5444…547e              Head {h00=0x0036, h01=0x0050, text=» RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0035, t01=0x0182}
0x547e…54ac              Head {h00=0x002a, h01=0x0050, text=» CF A5,WER:R5 EXECUTE WER INSTRUCTIONS«, t00=0x0036, t01=0x002c}
0x54ac…54d2              Head {h00=0x0022, h01=0x0050, text=» LDK A2,0 CYLINDER NUMBER = 0 «, t00=0x0036, t01=0x005a}
0x54d2…54ea              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYL,A6«, t00=0x0036, t01=0x0080}
0x54ea…550e              Head {h00=0x0020, h01=0x0050, text=» CF A5,CIO READ VOLUME LABEL«, t00=0x0036, t01=0x0098}
0x550e…5520              Head {h00=0x000e, h01=0x0050, text=» ANK A1,3 «, t00=0x0036, t01=0x00bc}
0x5520…5554              Head {h00=0x0030, h01=0x0050, text=» RF(NZ) VO:NA8 THROUGHPUT ERROR,NOT OPERABLE«, t00=0x0036, t01=0x00ce}
0x5554…556a              Head {h00=0x0012, h01=0x0050, text=» LDK A2,DWTNAM«, t00=0x0036, t01=0x0102}
0x556a…557c              Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0036, t01=0x0118}
0x557c…5594              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTOR,A6 «, t00=0x0036, t01=0x012a}
0x5594…55b4              Head {h00=0x001c, h01=0x0050, text=» RF(Z) DUNA10 FIXED DISC«, t00=0x0036, t01=0x0142}
0x55b4…55d4              Head {h00=0x001c, h01=0x0050, text=» ADK A2,6 CARTRIDGE DISC«, t00=0x0036, t01=0x0162}
0x55d4…55de              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0182}
0x55de…55f6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0036, t01=0x018c}
0x55f6…5600              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0014}
0x5600…560a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001e}
0x560a…563a              Head {h00=0x002c, h01=0x0050, text=»DUNA10 LDKL A3,BUF+2 GET BUFFER ADDRESS «, t00=0x0037, t01=0x0028}
0x563a…5664              Head {h00=0x0026, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE RETRY COUNTER«, t00=0x0037, t01=0x0058}
0x5664…5676              Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x0037, t01=0x0082}
0x5676…5680              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0094}
0x5680…56aa              Head {h00=0x0026, h01=0x0050, text=»DUNA20 LDR* A7,A3 GET VOLUME NAME «, t00=0x0037, t01=0x009e}
0x56aa…56dc              Head {h00=0x002e, h01=0x0050, text=» CWR* A7,A2 COMPARE WITH LAST VOLUME NAME «, t00=0x0037, t01=0x00c8}
0x56dc…56fc              Head {h00=0x001c, h01=0x0050, text=» RF(E) DUNA30 SAME DISC «, t00=0x0037, t01=0x00fa}
0x56fc…5720              Head {h00=0x0020, h01=0x0050, text=» LDK A1,/80 NEW DISC LOADED «, t00=0x0037, t01=0x011a}
0x5720…572a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x013e}
0x572a…5752              Head {h00=0x0024, h01=0x0050, text=»DUNA30 STR A7,A2 SAVE DISC NAME «, t00=0x0037, t01=0x0148}
0x5752…5776              Head {h00=0x0020, h01=0x0050, text=» ADK A2,2 INCREMENT POINTERS«, t00=0x0037, t01=0x0170}
0x5776…5788 (56, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0038, t01=0x0004}
0x5788…579a              Head {h00=0x000e, h01=0x0050, text=» SUK A4,2 «, t00=0x0038, t01=0x0016}
0x579a…57be              Head {h00=0x0020, h01=0x0050, text=» RB(NZ) DUNA20 GET NEXT WORD«, t00=0x0038, t01=0x0028}
0x57be…57d6              Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0038, t01=0x004c}
0x57d6…57f8              Head {h00=0x001e, h01=0x0050, text=» RF(Z) DUNA40 VOLUME MATCH«, t00=0x0038, t01=0x0064}
0x57f8…5828              Head {h00=0x002c, h01=0x0050, text=» LD A4,INIFLG CHECK INITIALIZATION FLAG «, t00=0x0038, t01=0x0086}
0x5828…584c              Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DUNA40 NOT POWER UP?«, t00=0x0038, t01=0x00b6}
0x584c…586a              Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x0038, t01=0x00da}
0x586a…587c              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A4«, t00=0x0038, t01=0x00f8}
0x587c…588e              Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x0038, t01=0x010a}
0x588e…58b8              Head {h00=0x0026, h01=0x0050, text=» ST A1,DWTBSY,A4 NEW VOLUME LOADED«, t00=0x0038, t01=0x011c}
0x58b8…58c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0146}
0x58c2…58da              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0038, t01=0x0150}
0x58da…58e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0168}
0x58e4…58ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0172}
0x58ee…5902              Head {h00=0x0010, h01=0x0050, text=»DUNA40 EQU *«, t00=0x0038, t01=0x017c}
0x5902…5930              Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTA4,A6 RESTORE RETRY COUNTER «, t00=0x0038, t01=0x0190}
0x5930…594e              Head {h00=0x001a, h01=0x0050, text=» LD A1,DWTOR,A6 ORDER «, t00=0x0039, t01=0x002e}
0x594e…5964              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) VO:NA6«, t00=0x0039, t01=0x004c}
0x5964…5976              Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0039, t01=0x0062}
0x5976…5996              Head {h00=0x001c, h01=0x0050, text=» SC A1,DWTOR,A6 INDEX=1 «, t00=0x0039, t01=0x0074}
0x5996…59a8              Head {h00=0x000e, h01=0x0050, text=» RB VO:NA5«, t00=0x0039, t01=0x0094}
0x59a8…59b2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a6}
0x59b2…59dc              Head {h00=0x0026, h01=0x0050, text=»VO:NA6 LDK A1,0 RESET RETURN CODE «, t00=0x0039, t01=0x00b0}
0x59dc…59e6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00da}
0x59e6…59fa              Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0039, t01=0x00e4}
0x59fa…5a0e              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0039, t01=0x00f8}
0x5a0e…5a26              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTSAV,A6«, t00=0x0039, t01=0x010c}
0x5a26…5a36              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0039, t01=0x0124}
0x5a36…5a40              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0134}
0x5a40…5a5a              Head {h00=0x0016, h01=0x0050, text=»*   TIMER POINTER «, t00=0x0039, t01=0x013e}
0x5a5a…5a64              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0158}
0x5a64…5a86              Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x0039, t01=0x0162}
0x5a86…5a90              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0184}
0x5a90…5ab0              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x0039, t01=0x018e}
0x5ab0…5aba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001e}
0x5aba…5ac4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5ac4…5af2              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE DISC UNIT NO. 2 «, t00=0x003a, t01=0x0032}
0x5af2…5afc              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0060}
0x5afc…5b06              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x006a}
0x5b06…5b1a              Head {h00=0x0010, h01=0x0050, text=»DWDU02 EQU *«, t00=0x003a, t01=0x0074}
0x5b1a…5b30              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003a, t01=0x0088}
0x5b30…5b5a              Head {h00=0x0026, h01=0x0050, text=» DATA DWDU01 POINTER TO OTHER DWT «, t00=0x003a, t01=0x009e}
0x5b5a…5b78              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x003a, t01=0x00c8}
0x5b78…5b94              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003a, t01=0x00e6}
0x5b94…5baa              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003a, t01=0x0102}
0x5baa…5bd0              Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x003a, t01=0x0118}
0x5bd0…5bec              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003a, t01=0x013e}
0x5bec…5c14              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003a, t01=0x015a}
0x5c14…5c32              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003a, t01=0x0182}
0x5c32…5c48              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003b, t01=0x0010}
0x5c48…5c72              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003b, t01=0x0026}
0x5c72…5c96              Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU2 MMU ECB ADDRESS«, t00=0x003b, t01=0x0050}
0x5c96…5ca2              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003b, t01=0x0074}
0x5ca2…5cb8              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003b, t01=0x0080}
0x5cb8…5ce4              Head {h00=0x0028, h01=0x0050, text=» DATA /00FF LEFT BYTE=SECTOR NUMBER «, t00=0x003b, t01=0x0096}
0x5ce4…5d10              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x003b, t01=0x00c2}
0x5d10…5d28              Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x003b, t01=0x00ee}
0x5d28…5d3a              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003b, t01=0x0106}
0x5d3a…5d62              Head {h00=0x0024, h01=0x0050, text=» DATA 0 DISC UNIT BUSY INDICATOR«, t00=0x003b, t01=0x0118}
0x5d62…5d72              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003b, t01=0x0140}
0x5d72…5d9a              Head {h00=0x0024, h01=0x0050, text=»   RIGHT BYTE = CYLINDER NUMBER «, t00=0x003b, t01=0x0150}
0x5d9a…5dc6              Head {h00=0x0028, h01=0x0050, text=» CIO A2,1,DAF2 CIO-START FIXED DISC «, t00=0x003b, t01=0x0178}
0x5dc6…5df6              Head {h00=0x002c, h01=0x0050, text=» CIO A2,1,DAC2 CIO-START CARTRIDGE DISC «, t00=0x003c, t01=0x0014}
0x5df6…5e00              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0044}
0x5e00…5e18              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x003c, t01=0x004e}
0x5e18…5e22              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0066}
0x5e22…5e2c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0070}
0x5e2c…5e40              Head {h00=0x0010, h01=0x0050, text=» WER A2,WER1«, t00=0x003c, t01=0x007a}
0x5e40…5e56              Head {h00=0x0012, h01=0x0050, text=» WER A3,WER1+1«, t00=0x003c, t01=0x008e}
0x5e56…5e80              Head {h00=0x0026, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME FIXED DISC«, t00=0x003c, t01=0x00a4}
0x5e80…5eae              Head {h00=0x002a, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME CARTRIDGE DISC«, t00=0x003c, t01=0x00ce}
0x5eae…5ebe              Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x003c, t01=0x00fc}
0x5ebe…5ece              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x003c, t01=0x010c}
0x5ece…5eee              Head {h00=0x001c, h01=0x0050, text=» DATA /FFFF CYLINDER NO.«, t00=0x003c, t01=0x011c}
0x5eee…5f02              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE2=0«, t00=0x003c, t01=0x013c}
0x5f02…5f26              Head {h00=0x0020, h01=0x0050, text=» DATA MAXCY5 MAX CYLINDER NO«, t00=0x003c, t01=0x0150}
0x5f26…5f32              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x0174}
0x5f32…5f4e              Head {h00=0x0018, h01=0x0050, text=» IFT NUNITS+TYPE2=3 «, t00=0x003c, t01=0x0180}
0x5f4e…5f72              Head {h00=0x0020, h01=0x0050, text=» DATA MAXCY6 MAX CYLINDER NO«, t00=0x003d, t01=0x000c}
0x5f72…5f7e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x0030}
0x5f7e…5f88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x003c}
0x5f88…5f9e              Head {h00=0x0012, h01=0x0050, text=» IFT NUNITS=2 «, t00=0x003d, t01=0x0046}
0x5f9e…5fb4              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x003d, t01=0x005c}
0x5fb4…5fe2              Head {h00=0x002a, h01=0x0050, text=» DATA 0 PAGE NUMBER (PSEUDO MMU TABLE)«, t00=0x003d, t01=0x0072}
0x5fe2…6010              Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x003d, t01=0x00a0}
0x6010…6024              Head {h00=0x0010, h01=0x0050, text=»ECBDU2 EQU *«, t00=0x003d, t01=0x00ce}
0x6024…603e              Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x003d, t01=0x00e2}
0x603e…604a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00fc}
0x604a…6054              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0108}
0x6054…6074              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRDU01   DRDU01«, t00=0x003d, t01=0x0112}
0x6074…607e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0132}
0x607e…6088              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x013c}
0x6088…60b6              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE DISC UNIT NO. 1 «, t00=0x003d, t01=0x0146}
0x60b6…60c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0174}
0x60c0…60ca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x017e}
0x60ca…60de              Head {h00=0x0010, h01=0x0050, text=»DWDU01 EQU *«, t00=0x003d, t01=0x0188}
0x60de…6108              Head {h00=0x0026, h01=0x0050, text=» DATA DWDU02 POINTER TO OTHER DWT «, t00=0x003e, t01=0x000c}
0x6108…6126              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x003e, t01=0x0036}
0x6126…6142              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x003e, t01=0x0054}
0x6142…6158              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x003e, t01=0x0070}
0x6158…617e              Head {h00=0x0022, h01=0x0050, text=» DATA DUADR ACTIVATION ADDRESS«, t00=0x003e, t01=0x0086}
0x617e…619a              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x003e, t01=0x00ac}
0x619a…61c2              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x003e, t01=0x00c8}
0x61c2…61e0              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x003e, t01=0x00f0}
0x61e0…61f6              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x003e, t01=0x010e}
0x61f6…6220              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x003e, t01=0x0124}
0x6220…6244              Head {h00=0x0020, h01=0x0050, text=» DATA ECBDU1 MMU ECB ADDRESS«, t00=0x003e, t01=0x014e}
0x6244…6250              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x003e, t01=0x0172}
0x6250…626c              Head {h00=0x0018, h01=0x0050, text=»DWTSEC EQU *-DWDU01 «, t00=0x003e, t01=0x017e}
0x626c…6298              Head {h00=0x0028, h01=0x0050, text=» DATA /00FF LEFT BYTE=SECTOR NUMBER «, t00=0x003f, t01=0x000a}
0x6298…62c4              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x003f, t01=0x0036}
0x62c4…62dc              Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x003f, t01=0x0062}
0x62dc…62ee              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x003f, t01=0x007a}
0x62ee…630a              Head {h00=0x0018, h01=0x0050, text=»DWTBSY EQU *-DWDU01 «, t00=0x003f, t01=0x008c}
0x630a…632e              Head {h00=0x0020, h01=0x0050, text=» DATA 0 UNIT BUSY INDICATOR «, t00=0x003f, t01=0x00a8}
0x632e…6352              Head {h00=0x0020, h01=0x0050, text=» DATA 0 UNIT BUSY INDICATOR «, t00=0x003f, t01=0x00cc}
0x6352…6378              Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWDU01 CIO-START «, t00=0x003f, t01=0x00f0}
0x6378…638e              Head {h00=0x0012, h01=0x0050, text=» CIO A2,1,DAF1«, t00=0x003f, t01=0x0116}
0x638e…63a4              Head {h00=0x0012, h01=0x0050, text=» CIO A2,1,DAC1«, t00=0x003f, t01=0x012c}
0x63a4…63ae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0142}
0x63ae…63c6              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x003f, t01=0x014c}
0x63c6…63d0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0164}
0x63d0…63da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x016e}
0x63da…640a              Head {h00=0x002c, h01=0x0050, text=»DWTWR1 EQU *-DWDU01 1:ST WER INSTRUCTION«, t00=0x003f, t01=0x0178}
0x640a…641e              Head {h00=0x0010, h01=0x0050, text=» WER A2,WER1«, t00=0x0040, t01=0x0018}
0x641e…644e              Head {h00=0x002c, h01=0x0050, text=»DWTWR2 EQU *-DWDU01 2:ND WER INSTRUCTION«, t00=0x0040, t01=0x002c}
0x644e…6464              Head {h00=0x0012, h01=0x0050, text=» WER A3,WER1+1«, t00=0x0040, t01=0x005c}
0x6464…6480              Head {h00=0x0018, h01=0x0050, text=»DWTNAM EQU *-DWDU01 «, t00=0x0040, t01=0x0072}
0x6480…64aa              Head {h00=0x0026, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME FIXED DISC«, t00=0x0040, t01=0x008e}
0x64aa…64d8              Head {h00=0x002a, h01=0x0050, text=» DATA 0,0,0 VOLUME NAME CARTRIDGE DISC«, t00=0x0040, t01=0x00b8}
0x64d8…64f4              Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWDU01 «, t00=0x0040, t01=0x00e6}
0x64f4…6504              Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0040, t01=0x0102}
0x6504…6520              Head {h00=0x0018, h01=0x0050, text=»DWTORD EQU *-DWDU01 «, t00=0x0040, t01=0x0112}
0x6520…6530              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0040, t01=0x012e}
0x6530…654c              Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWDU01 «, t00=0x0040, t01=0x013e}
0x654c…6570              Head {h00=0x0020, h01=0x0050, text=» DATA /FFFF CYLINDER NUMBER «, t00=0x0040, t01=0x015a}
0x6570…6584              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE1=0«, t00=0x0040, t01=0x017e}
0x6584…65a0 (65, 0, 400) Head {h00=0x0018, h01=0x0050, text=»DWTCMX EQU *-DWDU01 «, t00=0x0041, t01=0x0004}
0x65a0…65c8              Head {h00=0x0024, h01=0x0050, text=» DATA MAXCY5 MAX CYLINDER X/1215«, t00=0x0041, t01=0x0020}
0x65c8…65d4              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0048}
0x65d4…65e8              Head {h00=0x0010, h01=0x0050, text=» IFT TYPE1=1«, t00=0x0041, t01=0x0054}
0x65e8…6604              Head {h00=0x0018, h01=0x0050, text=»DWTCMX EQU *-DWDU01 «, t00=0x0041, t01=0x0068}
0x6604…6630              Head {h00=0x0028, h01=0x0050, text=» DATA MAXCY6 MAX CYLINDER NO X/1216 «, t00=0x0041, t01=0x0084}
0x6630…663c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00b0}
0x663c…6646              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00bc}
0x6646…665e              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRDU01 «, t00=0x0041, t01=0x00c6}
0x665e…6668              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00de}
0x6668…6672              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00e8}
0x6672…6688              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0041, t01=0x00f2}
0x6688…66a4              Head {h00=0x0018, h01=0x0050, text=»DWT:PA EQU *-DWDU01 «, t00=0x0041, t01=0x0108}
0x66a4…66d2              Head {h00=0x002a, h01=0x0050, text=» DATA 0 PAGE NUMBER (PSEUDO MMU TABLE)«, t00=0x0041, t01=0x0124}
0x66d2…66ee              Head {h00=0x0018, h01=0x0050, text=»DWT:LA EQU *-DWDU01 «, t00=0x0041, t01=0x0152}
0x66ee…671c              Head {h00=0x002a, h01=0x0050, text=» DATA 0 16 BIT LOGICAL BUFFER ADDRESS «, t00=0x0041, t01=0x016e}
0x671c…6730              Head {h00=0x0010, h01=0x0050, text=»ECBDU1 EQU *«, t00=0x0042, t01=0x000c}
0x6730…674a              Head {h00=0x0016, h01=0x0050, text=» DATA 0,0,0,0,0,0 «, t00=0x0042, t01=0x0020}
0x674a…6756              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0042, t01=0x003a}
0x6756…6760              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0046}
0x6760…676a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0050}
0x676a…6774              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x005a}
0x6774…6780              Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0042, t01=0x0064}
0x6780…6784              Head {h00=0x4004, h01=0x0000}
0x6784…6788              00 42 00 70                                                                                                                                                                                                                                       ┆ B p┆
0x6788…6790 (67, 1, 8)   20 04 00 00 00 43 00 04                                                                                                                                                                                                                           ┆     C  ┆
0x6790…67e0 (68, 0, 398) 54 20 52 4f 55 54 49 4e 45 20 41 4e 44 20 44 45 4c 41 59 20 00 73 01 6a 00 10 00 50 43 4c 54 30 36 38 5c 45 51 55 5c 2a 00 74 00 1c 00 18 00 50 5c 4c 44 52 5c 41 38 2c 41 38 5c 4f 42 43 2d 41 43 4b 20 3f 00 74 00 30 00 14 00 50 5c 52 46 28   ┆T ROUTINE AND DELAY  s j   PCLT068 EQU * t     P LDR A8,A8 OBC-ACK ? t 0   P RF(┆
0x67e0…6830              45 29 5c 45 58 49 54 5c 59 45 53 20 00 74 00 4c 00 0e 00 50 5c 4c 44 4b 5c 41 31 2c 30 20 00 74 00 64 00 26 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 36 5c 47 45 54 20 43 48 41 4e 4e 45 4c 20 50 41 52 41 4d 45 54 45 52 20 00 74 00 76 00 2e 00 50   ┆E) EXIT YES  t L   P LDK A1,0  t d & P LDR* A4,A6 GET CHANNEL PARAMETER  t v . P┆
0x6830…6880              5c 52 46 28 4e 29 5c 43 4c 54 31 31 30 5c 44 45 56 49 43 45 20 57 49 54 48 4f 55 54 20 44 41 54 41 20 52 45 51 55 45 53 54 20 00 74 00 a0 00 28 00 50 5c 4c 44 52 5c 41 32 2c 41 32 5c 44 41 54 41 20 52 45 51 55 45 53 54 20 49 4d 4d 45 44 49   ┆ RF(N) CLT110 DEVICE WITHOUT DATA REQUEST  t   ( P LDR A2,A2 DATA REQUEST IMMEDI┆
0x6880…68d0              41 54 45 20 3f 20 00 74 00 d2 00 16 00 50 5c 52 46 28 4e 29 5c 43 4c 54 31 32 35 5c 59 45 53 20 00 74 00 fe 00 22 00 50 45 58 49 54 5c 41 42 4c 5c 54 44 49 53 50 5c 44 49 53 50 41 54 43 48 45 52 20 45 58 49 54 00 74 01 18 00 0a 00 50 5c 45   ┆ATE ?  t     P RF(N) CLT125 YES  t   " PEXIT ABL TDISP DISPATCHER EXIT t     P E┆
0x68d0…691e              4a 45 43 54 00 74 01 3e 00 06 00 50 2a 20 00 74 01 4c 00 38 00 50 2a 20 20 20 20 54 49 4d 45 2d 4f 55 54 20 52 4f 55 54 49 4e 45 20 48 41 4e 44 4c 49 4e 47 20 4d 49 53 53 49 4e 47 20 44 41 54 41 20 52 45 51 55 45 53 54 53 00 74 01 56         ┆JECT t >   P*  t L 8 P*    TIME-OUT ROUTINE HANDLING MISSING DATA REQUESTS t V┆

Reduced view