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

⟦250a46a8e⟧

    Length: 20694 (0x50d6)
    Notes: pts_type(SC)
    Names: »DRMD01.SC«

Derivation

└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
    └─⟦this⟧ »TOSSWORK/DRMD01.SC« 
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
    └─⟦this⟧ »TOSSWORK/DRMD01.SC« 

PTS(SC)

	IDENT DRMD01 	REL 11.0 81-01-26 870105041100 

			=1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY
* 
* 
**************************************************
* 
*   PHILIPS TERMINAL SYSTEM PTS 
* 
*   DRMD01 = DRIVER FOR ONE TO FOUR DISC UNITS
* 
*   PTS 8863 (X1250)
* 
* 
* 
* 
* 
**************************************************
* 
* 
*   THIS DISC DRIVER HANDLES UP TO FOUR DISC
*   DRIVES X1250 CONNECTED TO CPU VIA IOP 
*   ON MULTIPLEX CHANNEL
* 
* 
*   THE FOLLOWING ORDERS ARE TREATED :
* 
*   /00    TEST STATUS
*   /01    BASIC READ 
*   /05    BASIC WRITE
*   /11    PHYSICAL READ
*   /15    PHYSICAL WRITE 
*   /1F    FORMAT VOLUME
* 
	EJECT			DRMD01			DRMD01
* 
* 
*********** 
* ENTRIES * 
*********** 
* 
* 
	ENTRY	MDADR	ACTIVATION ADDRESS 
	ENTRY	MDON	RECOVERY ROUTINE
	ENTRY	IHMD	INTERRUPT HANDLER 
	ENTRY	DWMD01	DWT ADDRESS 
	EJECT			DRMD01 
* 
* 
************* 
* EXTERNALS * 
************* 
* 
* 
	EXTRN	TDISP	DISPATCHER 
	EXTRN	TENDIO	END I/O 
	EXTRN	SAVE8	SAVE REGS. A1-A8 ON A15 STACK
	EXTRN	DISIOE	REQUEST ERROR 
	EXTRN	VOLADR 
	EXTRN	VOLCLR	CLEAR VOLUME NAME FROM DWT
	EXTRN	VOLNAM 
	EXTRN	INTSAV	SAVE AREA LAST INTERRUPT
	EXTRN	INIFLG	INITIALIZATION FLAG 
	EXTRN	PFPOST	PWF POST PROC. FLAG 
	EXTRN	INXDWT	DOUBLED INDEX + DWT ADDRESS 
	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 
	EXTRN	DWTORD	ORDER SAVE AREA 
	EXTRN	DWTVOL	VOLUME NAME AREAS 
	EXTRN	ECBBA	ECB BUFFER ADDRESS 
	EXTRN	ECBRL	ECB REQUESTED LENGTH 
	EXTRN	ECBEL	ECB EFFECTIVE LENGTH 
	EXTRN	ECBRC	ECB RETURN CODE
	EXTRN	ECBCW1	ECB 1:ST CONTROL WORD 
	EXTRN	ECBCW2	ECB 2:ND CONTROL WORD 
	EJECT			DRMD01 
* 
* 
**************************
*                        *
*  CONDITIONAL ASSEMBLY  *
*                        *
**************************
* 
* 
*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15
*   BY SETTING X:A = 0
* 
X:A	EQU	0 
RAW	EQU	X:A 
* 
* 
*   A PROGRAM VERSION USING TOSS MMU PAGING 
*   IS OBTAINED BY SETTING MMUPAG EQU 1 
* 
MMUPAG	EQU	0
* 
CPU852	EQU	1
	EJECT			DRMD01			DRMD01
* 
* 
************* 
* CONSTANTS * 
************* 
* 
* 
CUADR	EQU	/04	CONTROL UNIT ADDRESS
DAMD1	EQU	CUADR+/00	DEVICE ADDRESS UNIT 1 
DAMD2	EQU	CUADR+/10	DEVICE ADDRESS UNIT 2 
DAMD3	EQU	CUADR+/20	DEVICE ADDRESS UNIT 3 
DAMD4	EQU	CUADR+/30	DEVICE ADDRESS UNIT 4 
WERAD	EQU	CUADR+CUADR	MUX ADDRESS 
* 
MAXSEC	EQU	23400	MAX NO OF SECTORS
SECLEN	EQU	256	SECTOR LENGTH, CHARACTERS
QRETRY	EQU	4	NO OF RETRIES
TIME	EQU	1000	1 MIN 40 SEC
* 
DEVIND	EQU	10 
* 
	EJECT			DRMD01			DRMD01
* 
* 
	DATA	0	INDICATES NO MMU BUFFER 
	DATA	DEVIND	DISC DEVICE INDEX
MDADR	DATA	MDAD	ACTIVATION ADDRESS
	DATA	0	ABORT ROUTINE ADDRESS 
* 
	EJECT		DRMD01
* 
* 
*********************** 
*                     * 
*  INTERLACING TABLE  * 
*                     * 
*********************** 
* 
* 
TRATAB	EQU	*
	DATA	/0004,/080C,/1014,/181C,/2024 
	DATA	/282C,/3001,/0509,/0D11,/1519 
	DATA	/1D21,/2529,/2D31,/0206,/0A0E 
	DATA	/1216,/1A1E,/2226,/2A2E,/3203 
	DATA	/070B,/0F13,/171B,/1F23,/272B 
	DATA	/2F33 
* 
	EJECT		DRMD01
* 
****************
*              *
*  ACTIVATION  *
*              *
****************
* 
* 
MDAD	EQU	*
	LD	A1,DWTOR,A6	SAVE INDEX AND ORDER FOR RECOVERY 
	ST	A1,DWTORD,A6
	CF	A15,INXDWT
	LD	A1,DWTCYL,A4	ACTUALL CYLINDER 
	ST	A1,DWTSEK,A6
MDAD:0	EQU	*
	CM	DWTIOR,A6	PREPARE FOR ORDER 
	IFT	MMUPAG=1 
	LDR*	A3,A8	GET 1:ST WORD OF ECB
	ANKL	A3,/3000
	ORKL	A3,/8080	PREPARE FOR 1:ST WER INSTR.
	XIF
	IFT	MMUPAG=0 
	LDKL	A3,/8080	PREPARE FOR 1:ST WER INSTR.
	XIF
	LDR	A1,A7	GET ORDER
	RF(Z)	TESTST	TEST STATUS 
	SUK	A1,/01 
	RF(Z)	INI:01	BASIC READ
	SUK	A1,/04 
	RF(Z)	INI:00	BASIC WRITE 
	SUK	A1,/0C 
	RF(Z)	INI:01	PHYSICAL READ 
	SUK	A1,/04 
	RF(Z)	INI:00	PHYSICAL WRITE
	SUK	A1,/0A 
	RF(Z)	FORVOL	FORMAT VOLUME 
	ABL	DISIOE	INCORRECT ORDER 
* 
	EJECT		DRMD01
* 
* 
* 
***************** 
*               * 
*  TEST STATUS  * 
*               * 
***************** 
* 
* 
TESTST	EQU	*
	CF	A5,VO:NAM 
	ORS	A1,ECBRC,A8	SAVE RETURN CODE 
	CF	A15,VOLNAM
	LDK	A1,0	RESET RETURN CODE 
	ABL	END:20 
* 
	EJECT		DRMD01
* 
***************************** 
*                           * 
*   FORMAT VOLUME           * 
*                           * 
***************************** 
* 
FORVOL	EQU	*
	LDK	A4,QRETRY
FORV10	EQU	*
	LDKL	A3,/4002	HEAD  1 AND ORDER CODE 
	ST	A3,DWTSEK,A6
	LDK	A3,2	ORDER CODE
	ST	A3,DWTSEN,A6
FORV20	EQU	*
	CF	A5,CIO:00 
	ANK	A1,2 
	RF(NZ)	FORV50	SEEK ERROR 
	LD	A3,DWTSEK,A6	HEAD 1 
	CF	A5,CIO:00 
	ANK	A1,2 
	RF(NZ)	FORV50	SEEK ERROR 
	LDK	A3,4	NEXT CYLINDER 
	ADS	A3,DWTSEK,A6	HEAD 0
	AD	A3,DWTSEN,A6	HEAD 0 
	ST	A3,DWTSEN,A6
	CWK	A3,920	4*230 
	RB(NG)	FORV20
	LDKL	A2,923	CYLINDER NUMBER AND SEEK ORDER 
FORV40	EQU	*
	ABL	END:15 
FORV50	EQU	*
	SUK	A4,1 
	RB(NN)	FORV10	RETRY
	LDK	A2,0	DUMMY CYLINDER NUMBER AND ORDER CODE
	RB	FORV40	ENDIO
	EJECT		DRMD01
* 
* 
***************************** 
*                           * 
*  TEST OF INPUT PARAMETERS  *
*  ECBRL,ECBCW1 AND ECBCW2  * 
*                           * 
***************************** 
* 
* 
INI:00	EQU	*
	IM	DWTIOR,A6	WRITE ORDER 
	ADKL	A3,/4000	WER INSTRUCTION
INI:01	EQU	*
	ST	A3,DWTWE1,A6	1:ST WER INSTRUCTION PREPARED
	LD	A1,ECBRL,A8	GET REQUESTED LENGTH
	RF(Z)	INCLEN	ERROR 
	ECR	A3,A1	GET NUMBER OF SECTORS
	ANK	A1,/FF 
	RF(NZ)	INCLEN	INCORRECT REQUESTED LENGTH 
	LD	A2,ECBCW2,A8	GET SECTOR NUMBER
	RF(N)	INCLEN 
	NGR	A1,A3	NEGATE FOR SECTOR COUNTING 
	ST	A1,DWTSEN,A6	NUMBER OF SECTORS IN IO
	IFT	RAW=1
	ST	A1,BUFF	SAVE FOR READ AFTER WRITE 
	XIF
	ADR	A3,A2
	RF(O)	INCLEN 
	SUKL	A3,MAXSEC 
	RF(NP)	INI:20
INCLEN	LDKL	A1,/8008	INCORRECT LENGTH 
	ABL	END:15 
* 
	EJECT		DRMD01
* 
* 
*********************************** 
* 
*  TRANSFER LOGICAL SECTOR NUMBER * 
*  TO CYLINDER NUMBER AND         * 
*  SECTOR NUMBER ON CYLINDER      * 
*                                 * 
*********************************** 
* 
* 
INI:20	EQU	*
	LD	A1,ECBBA,A8	GET BUFFER ADDRESS
	ST	A1,DWTWE2,A6	PREPARE FOR SECOND WER INSTRUCTION 
	LDK	A1,0 
INI:22	EQU	*
	LDK	A4,QRETRY
	DVK	104
*  A1=REMAINER = SECTOR NUMBER O N CYLINDER 
*  A2=QUOTIENT = CYLINDER NUMBER
	ST	A1,DWTSEC,A6	SAVE SECTOR NUMBER 
* 
	EJECT		DRMD01
* 
* 
	SLL	A2,2	CYLINDER NUMBER IN POSITION 
	ADK	A2,3	SEEK ORDER CODE 
	CW	A2,DWTSEK,A6	TEST IF SAME CYLINDER
	RF(E)	INI:35 
INI:30	EQU	*
	IM	DWTSFL,A6	INDICATE SEEK TO BE DONE
	ST	A2,DWTSEK,A6	SAVE IN SEEK REGISTER SAVE AREA
* 
	EJECT		DRMD01
* 
* 
*   PREPARE HEAD NUMBER 
* 
INI:35	EQU	*
	LDK	A3,0	HEAD NO 0 
	CWK	A1,52	SECTOR ON 1:ST OR 2:ND TRACK 
	RF(L)	INI:40 
	SUK	A1,52
	LDKL	A3,/4000	HEAD NO 1
* 
* 
*   GET PHYSICAL SECTOR NUMBER AND PREPARE DWTIOR,A6
* 
INI:40	EQU	*
	LC	A1,TRATAB,A1	GET INTERLACED SECTOR NUMBER 
	SRC	A2,3 
	RF(NN)	INI:42	EVEN CYLINDER NUMBER 
	SUK	A1,26	SKEW FACTOR = 26 SECTORS 
	RF(NN)	INI:42
	ADK	A1,52
INI:42	EQU	*
	SLL	A1,2	SECTOR NO IN POSITION 
	ADR	A1,A3	HEAD NUMBER
	ORS	A1,DWTIOR,A6	SAVE IN CIO REGISTER SAVE AREA
	LD	A1,DWTSFL,A6	SEEK TO BE DONE ?
	RF(Z)	INI:45 
* 
	EJECT		DRMD01
* 
* 
INI:43	EQU	*
	CF	A5,SEEK	PERFORM SEEK
	ADK	A1,0 
	RF(Z)	INI:44	NO RETURN CODE
	LDKL	A2,/100	RETRIES PERFORMED 
	ORS	A2,ECBRC,A8
	SUK	A4,1 
	RB(NZ)	INI:43	RETRY
	LDK	A2,0	DUMMY CYL NO AND ORDER CODE 
	RF	END:15	NO MORE RETRIES
INI:44	EQU	*
	CM	DWTSFL,A6	RESET SEEK FLAG 
* 
*   CIO AND CHECK RETURN CODE 
* 
INI:45	EQU	*
	CF	A5,CIO	PERFORM IO 
	ADK	A1,0	CHECK RETURN CODE 
	RF(Z)	INI:50	OK
	LDKL	A2,/100	RETRIES DONE
	ORS	A2,ECBRC,A8
	SUK	A4,1	RETRY COUNTER 
	RB(NZ)	INI:45	RETRY
	RF	END:15
* 
	EJECT		DRMD01
* 
* 
INI:50	EQU	*
	LDKL	A3,SECLEN	GET SECTOR LENGTH 
	LDR	A4,A3	GET SECTOR LENGTH
	LDK	A2,1 
	ANS	A2,DWTIOR,A6	SAVE ORDER TYPE 
	IFT	RAW=1
	SUK	A7,/15	
	RF(NZ)	INI:52	NOT PHYSICAL WRITE 
	LD	A2,DWTIOR,A6	CHECK IF READ IS DONE
	RF(NZ)	INI:54
	LDK	A4,0	SAME BUFFER FOR READ AFTER WRITE TEST 
INI:52	EQU	*
	XIF
	ADS	A3,ECBEL,A8	UPDATE EFFECTIVE LENGTH
INI:54	EQU	*
	IM	DWTSEN,A6	UPDATE SECTOR COUNTER 
	RF(Z)	END:00	LAST SECTOR DONE
* 
	IFT	MMUPAG=0 
	ADS	A4,DWTWE2,A6	UPDATE BUFFER ADDRESS 
	XIF
* 
	IFT	MMUPAG=1 
	ADK	A4,0 
	RF(Z)	INI:60	READ AFTER WRITE ON 
	ML	2,DWTWE1,A6	GET WER REGISTERS 
	SLC	A1,4	BIT 0,1 OF BUFFER ADDRESS IN POSITION 
	SRL	A2,1	BIT 2,17 IN POSITION
	LDR	A3,A1
	DAK	/0,/0080	SECTOR LENGTH 
* 
	EJECT		DRMD01
* 
* 
	ANK	A1,3	BIT 0,1 
	ANKL	A3,/FFFC
	ORR	A1,A3	1ST WER
	SRC	A1,4	IN POSITION 
	SLL	A2,1 
	MS	2,DWTWE1,A6 
INI:60	EQU	*
	XIF
* 
	LDK	A4,QRETRY	RETRIES
	IM	DWTSEC,A6	UPDATE SECTOR NUMBER ON CYLINDER
	LD	A2,DWTSEK,A6	PREPARE FOR SEEK 
	LD	A1,DWTSEC,A6	GET SECTOR NO ON CYLINDER
	CWK	A1,104	NEXT CYLINDER ? 
	RB(L)	INI:35	SAME CYLINDER 
	CM	DWTSEC,A6	NEW CYLINDER
	LDK	A1,0	SECTOR 0
	ADK	A2,4	NEXT CYLINDER 
	RB	INI:30	IO ON SEC. 0 ON NEXT CYLINDER
	EJECT		DRMD01
* 
* 
* 
********************
*                  *
*   SEEK AND CIO    * 
*    SUBROUTINE     * 
*                  *
********************
* 
SEEK	EQU	*
	LD	A3,DWTSEK,A6
	RF	CIO:00
* 
CIO	EQU	* 
	LD	A3,DWTWE1,A6	GET 1ST WER INST. REG. 
	WER	A3,WERAD 
	LD	A3,DWTWE2,A6	GET 2ND WER INST. REG. 
	WER	A3,WERAD+1 
	LD	A3,DWTIOR,A6	GET CIO INST. REG. 
CIO:00	EQU	*
	ST	A4,DWTA4,A6	SAVE A4 
	LD	A2,PFPOST 
	RF(NZ)	CIOAB	PWF POST PROCESSING ON
	CF	A15,INXDWT
	EX	DWTCIO,A4 
	LDK	A1,1 
	RF(3)	END:30	CU ADDRESS UNKNOWN
CIOAB	EQU	* 
	ST	A5,DWTA5,A6 
	RF	T:DISP
* 
	EJECT		DRMD01
* 
* 
END:00	EQU	*
	IFT	RAW=1
	ADK	A7,0	PHYSICAL WRITE ?
	RF(NZ)	END:10	NOT PHYSICAL WRITE 
	LD	A2,DWTIOR,A6	 
	ANK	A2,1	
	RF(Z)	END:10	READ AFTER WRITE DONE 
	LDKL	A1,/8001
	ST	A1,DWTWE1,A6	READ ONE WORD TO CHECK CRC 
	LDKL	A1,BUFF	DRIVER WORK BUFFER
	ST	A1,DWTWE2,A6	BUFFER ADDRESS TO 2:ND WER 
	CM	DWTIOR,A6 
	LD	A1,BUFF	GET NUMBER OF SECTORS IN IO 
	ST	A1,DWTSEN,A6	UPDATE DWTSEN FOR READ AFTER WRITE 
	LDK	A1,0 
	LD	A2,ECBCW2,A8
	ABL	INI:22 
	XIF
END:10	EQU	*
	LD	A2,DWTSEK,A6	GET CYL NO AND ORDER CODE
END:15	EQU	*
	CF	A15,INXDWT
	ST	A2,DWTCYL,A4
END:20	EQU	*
	CF	A15,TENDIO	PERFORM ENDIO
T:DISP	ABL	TDISP
* 
END:30	EQU	*	DEVICE ADDRESS UNKNOWN 
	ORS	A1,DWTST,A6	INDICATE 1ST RECOVERY DONE	=1
	RB	END:20
* 
	EJECT		DRMD01
* 
* 
VO:NAM	EQU	*
	CM	DWTSAV,A6	INDICATE VOLUME NAME READING
	LDK	A1,6 
	CF	A15,VOLCLR
	LDK	A1,3 
	ST	A1,DWTSEK,A6	SEEK PREPARATION CYL 0 
	CF	A5,SEEK 
	LDK	A2,0 
	ANK	A1,/3	RETURN CODE
	RF(NZ)	VO:NA8	ERROR
	LDKL	A1,/8003	READ 3 WORDS VOLUME NAME 
	ST	A1,DWTWE1,A6	WER PREPARATION
	CF	A15,VOLADR	GET ADDRESS TO DWT VOLUME NAME 
	ST	A1,DWTWE2,A6	READ TO DWT
	CM	DWTIOR,A6	READ SECTOR 0 
	CF	A5,CIO
	LD	A2,DWTSEK,A6
VO:NA8	EQU	*
	CF	A15,INXDWT
	ST	A2,DWTCYL,A4
	LDKL	A2,-1 
	ST	A2,DWTSAV,A6	INDICATE READY 
	RTN	A5 
	EJECT			DRMD01			DRMD01
* 
**********************
*                    *
*  RECOVERY ROUTINE  *
*                    *
**********************
* 
MDON	EQU	*
	IFT	CPU852=0 
	MSR	8,A15	SAVE A1-A8 ON STACK
	XIF
	IFT	CPU852=1 
	CF	A15,SAVE8 
	XIF
	LDKL	A6,DWMD01 
	LDKL	A1,/7FFE	SET UNIT BUSY AND RECOVERY ON	=1 
	ANS	A1,DWTST,A6		=1
	LD	A1,INIFLG	POWER UP? 
	RF(NZ)	MDON25
* 
	LDKL	A4,TIMER	TIMER POINTER ADDRESS
	LDR*	A3,A4 
	RF(Z)	MDON10	NO TIMER ACTIVE 
	LDKL	A1,-TIME
	STR	A1,A3	RESTART TIMER
	RB	T:DISP
* 
MDON10	CF	A15,SETIMP	START TIMER
	DATA	MDON20,TIME	TIME OUT ADDRESS, TIME
	RB	T:DISP
* 
*   TIME OUT
* 
MDON20	LDKL	A6,DWMD01 
	CM	TIMER 
* 
	EJECT			DRMD01 
* 
* 
MDON25	EQU	*
	LDKL	A5,DWTSB2	STACK BASE
	ADR	A5,A6
	LDK	A1,0	UNIT 0
MDON30	ST	A1,DWTOR,A6 
	CF	A5,VO:NAM	GET VOLUME NAME 
	LD	A1,DWTOR,A6 
	ADKL	A1,/100	NEXT UNIT 
	CWK	A1,/300
	RB(NG)	MDON30
	IM	DWTST,A6	INDICATE VOLUME NAMES READ 
	LD	A8,DWTECB,A6	GET ECB ADDRESS
	RB(Z)	END:15	NOREQUEST ON
* 
	LD	A7,DWTORD,A6	GET ORDER
	ST	A7,DWTOR,A6	RESTORE INDEX AND ORDER 
	ANK	A7,/3F 
	ABL	MDAD:0 
* 
* 
	EJECT			DRMD01			DRMD01
* 
* 
*********************** 
*                     * 
*  INTERRUPT HANDLER  * 
*                     * 
*********************** 
* 
* 
IHMD	EQU	*
	MSR	8,A15	SAVE A1-A8 ON STACK
	LDKL	A6,DWMD01	DWT ADDRESS 
* 
	SST	A1,CUADR	GET STATUS
	ANKL	A1,/617	MASK RETURN CODE
	LDR	A2,A1
	ANKL	A2,/610	MOVE BITS 
	SRC	A2,5	PROGRAM ERROR BIT 
	RF(NN)	IHMD30	 
	ORKL	A1,/8000	REQUEST ERROR
IHMD30	EQU	*
	SRL	A2,3	SEEK ERROR,DATA ERROR 
	ORR	A1,A2
	ANKL	A1,/8007	MASK RETURN CODE 
	LD	A2,DWTSAV,A6
	RF(NN)	GET 
	LDR	A3,A1
	ANKL	A3,/8001
	RB(NZ)	END:15	DISC UNIT NOT OPERABLE OR REQUEST ERROR
* 
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 
* 
* 
*  TIMER POINTER
TIMER	DATA	0	TIMER POINTER
	IFT	RAW=1
*   BUFFER
BUFF	DATA	0 
	XIF
* 
	EJECT			DRMD01			DRMD01
* 
* 
*   DEVICE WORK TABLE DISC UNIT NO. 1 
* 
* 
DWMD01	EQU	*
DWTSAV	EQU	*-DWMD01 
	DATA	-1
	DATA	/8000	DWT STATUS
	DATA	0	ECB ADDRESS 
	DATA	0	ORDER 
	DATA	MDADR	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	ECBMD1	MMU ECB ADDRESS
	XIF
DWTSEC	EQU	*-DWMD01	
	DATA	0	SECTOR NUMBER 
	DATA	0,0,0	SAVE AREA FOR REGISTERS 
	DATA	0,0	STACK 
	DATA	0,0 
	DATA	0	ORDER SAVE AREA 
	DATA	/C000 
	DATA	/C000 
	DATA	/C000 
	DATA	/C000 
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 1
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 2
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 3
	DATA	/FFFF,/FFFF,/FFFF	VOLUME NAME UNIT 4
DWTWE1	EQU	*-DWMD01 
	DATA	0	1:ST WER INSTRUCTION REG. 
DWTWE2	EQU	*-DWMD01 
	DATA	0	2:ND WER INSTRUCTION REG. 
DWTIOR	EQU	*-DWMD01 
	DATA	0	CIO REG: HEAD, DWTSEC,A6, ORDER 
DWTSEK	EQU	*-DWMD01 
	DATA	0	SEEK REG: CYL NO AND ORDER
DWTSFL	EQU	*-DWMD01 
	DATA	0	SEEK FLAG 
DWTSEN	EQU	*-DWMD01 
	DATA	0	SECTOR COUNTER
DWTCIO	EQU	*-DWMD01	CIO START 
	CIO	A3,1,DAMD1	UNIT 1
	CIO	A3,1,DAMD2	UNIT 2
	CIO	A3,1,DAMD3	UNIT 3
	CIO	A3,1,DAMD4	UNIT 4
DWTCYL	EQU	*-DWMD01 
	DATA	0	CYLINDER NUMBER AND SEEK ORDER CODE 
	DATA	0 
	DATA	0 
	DATA	0 
	IFT	MMUPAG=1 
ECBMD1	EQU	*
	DATA	0,0,0,0,0,0,0 
	XIF
	END

HexDump

0x0000…0036 (0, 0, 400)  Head {h00=0x0032, h01=0x0050, text=» IDENT DRMD01  REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e              Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…007e              Head {h00=0x003c, h01=0x0050, text=»   =1, PRR 11.0 80-11-19 ,ATTACH BIT CLEARED BY RECOVERY«, t00=0x0000, t01=0x0042}
0x007e…0088              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0082}
0x0088…0092              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00cc              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0096}
0x00cc…00d6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00d0}
0x00d6…00fe              Head {h00=0x0024, h01=0x0050, text=»*   PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x00da}
0x00fe…0108              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…013e              Head {h00=0x0032, h01=0x0050, text=»*   DRMD01 = DRIVER FOR ONE TO FOUR DISC UNITS«, t00=0x0000, t01=0x010c}
0x013e…0148              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0164              Head {h00=0x0018, h01=0x0050, text=»*   PTS 8863 (X1250)«, t00=0x0000, t01=0x014c}
0x0164…016e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…0178              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…0182              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…018c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0186}
0x018c…0196              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0190}
0x0196…01d0              Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x000a}
0x01d0…01da              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e4…0218              Head {h00=0x0030, h01=0x0050, text=»*   THIS DISC DRIVER HANDLES UP TO FOUR DISC«, t00=0x0001, t01=0x0058}
0x0218…024a              Head {h00=0x002e, h01=0x0050, text=»*   DRIVES X1250 CONNECTED TO CPU VIA IOP «, t00=0x0001, t01=0x008c}
0x024a…026a              Head {h00=0x001c, h01=0x0050, text=»*   ON MULTIPLEX CHANNEL«, t00=0x0001, t01=0x00be}
0x026a…0274              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00de}
0x0274…027e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…02ac              Head {h00=0x002a, h01=0x0050, text=»*   THE FOLLOWING ORDERS ARE TREATED :«, t00=0x0001, t01=0x00f2}
0x02ac…02b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02d4              Head {h00=0x001a, h01=0x0050, text=»*   /00    TEST STATUS«, t00=0x0001, t01=0x012a}
0x02d4…02f2              Head {h00=0x001a, h01=0x0050, text=»*   /01    BASIC READ «, t00=0x0001, t01=0x0148}
0x02f2…0310              Head {h00=0x001a, h01=0x0050, text=»*   /05    BASIC WRITE«, t00=0x0001, t01=0x0166}
0x0310…0330              Head {h00=0x001c, h01=0x0050, text=»*   /11    PHYSICAL READ«, t00=0x0001, t01=0x0184}
0x0330…0352              Head {h00=0x001e, h01=0x0050, text=»*   /15    PHYSICAL WRITE «, t00=0x0002, t01=0x0014}
0x0352…0372              Head {h00=0x001c, h01=0x0050, text=»*   /1F    FORMAT VOLUME«, t00=0x0002, t01=0x0036}
0x0372…037c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0056}
0x037c…039c              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x0002, t01=0x0060}
0x039c…03a6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0080}
0x03a6…03b0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008a}
0x03b0…03c4              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0094}
0x03c4…03d8              Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00a8}
0x03d8…03ec              Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00bc}
0x03ec…03f6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f6…0400              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00da}
0x0400…0428              Head {h00=0x0024, h01=0x0050, text=» ENTRY MDADR ACTIVATION ADDRESS «, t00=0x0002, t01=0x00e4}
0x0428…044c              Head {h00=0x0020, h01=0x0050, text=» ENTRY MDON RECOVERY ROUTINE«, t00=0x0002, t01=0x010c}
0x044c…0472              Head {h00=0x0022, h01=0x0050, text=» ENTRY IHMD INTERRUPT HANDLER «, t00=0x0002, t01=0x0130}
0x0472…0494              Head {h00=0x001e, h01=0x0050, text=» ENTRY DWMD01 DWT ADDRESS «, t00=0x0002, t01=0x0156}
0x0494…04ac              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRMD01 «, t00=0x0002, t01=0x0178}
0x04ac…04b6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0190}
0x04b6…04c0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x000a}
0x04c0…04d6              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0014}
0x04d6…04ec              Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0003, t01=0x002a}
0x04ec…0502              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0003, t01=0x0040}
0x0502…050c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0056}
0x050c…0516              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0060}
0x0516…0536              Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0003, t01=0x006a}
0x0536…0554              Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0003, t01=0x008a}
0x0554…0586              Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS. A1-A8 ON A15 STACK«, t00=0x0003, t01=0x00a8}
0x0586…05aa              Head {h00=0x0020, h01=0x0050, text=» EXTRN DISIOE REQUEST ERROR «, t00=0x0003, t01=0x00da}
0x05aa…05c0              Head {h00=0x0012, h01=0x0050, text=» EXTRN VOLADR «, t00=0x0003, t01=0x00fe}
0x05c0…05f0              Head {h00=0x002c, h01=0x0050, text=» EXTRN VOLCLR CLEAR VOLUME NAME FROM DWT«, t00=0x0003, t01=0x0114}
0x05f0…0606              Head {h00=0x0012, h01=0x0050, text=» EXTRN VOLNAM «, t00=0x0003, t01=0x0144}
0x0606…0634              Head {h00=0x002a, h01=0x0050, text=» EXTRN INTSAV SAVE AREA LAST INTERRUPT«, t00=0x0003, t01=0x015a}
0x0634…065e              Head {h00=0x0026, h01=0x0050, text=» EXTRN INIFLG INITIALIZATION FLAG «, t00=0x0003, t01=0x0188}
0x065e…0688              Head {h00=0x0026, h01=0x0050, text=» EXTRN PFPOST PWF POST PROC. FLAG «, t00=0x0004, t01=0x0022}
0x0688…06ba              Head {h00=0x002e, h01=0x0050, text=» EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS «, t00=0x0004, t01=0x004c}
0x06ba…06d6              Head {h00=0x0018, h01=0x0050, text=» EXTRN SETIMP TIMER «, t00=0x0004, t01=0x007e}
0x06d6…06f2              Head {h00=0x0018, h01=0x0013, text=» EXTRN DWTST STATUS «, t00=0x0004, t01=0x009a}
0x06f2…0714              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTECB ECB ADDRESS «, t00=0x0004, t01=0x00b6}
0x0714…073c              Head {h00=0x0024, h01=0x0020, text=» EXTRN DWTOR DWT INDEX AND ORDER«, t00=0x0004, t01=0x00d8}
0x073c…075e              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA2 SAVE AREA A2 «, t00=0x0004, t01=0x0100}
0x075e…0780              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA4 SAVE AREA A4 «, t00=0x0004, t01=0x0122}
0x0780…07a2              Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTA5 SAVE AREA A5 «, t00=0x0004, t01=0x0144}
0x07a2…07cc              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB1 STACK BASE 1 IN DWT «, t00=0x0004, t01=0x0166}
0x07cc…07f6              Head {h00=0x0026, h01=0x0021, text=» EXTRN DWTSB2 STACK BASE 2 IN DWT «, t00=0x0004, t01=0x0190}
0x07f6…081c              Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTORD ORDER SAVE AREA «, t00=0x0005, t01=0x002a}
0x081c…0844              Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME AREAS «, t00=0x0005, t01=0x0050}
0x0844…086c              Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x0078}
0x086c…0896              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x00a0}
0x0896…08c0              Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x00ca}
0x08c0…08e4              Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBRC ECB RETURN CODE«, t00=0x0005, t01=0x00f4}
0x08e4…0910              Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW1 ECB 1:ST CONTROL WORD «, t00=0x0005, t01=0x0118}
0x0910…093c              Head {h00=0x0028, h01=0x0050, text=» EXTRN ECBCW2 ECB 2:ND CONTROL WORD «, t00=0x0005, t01=0x0144}
0x093c…0954              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRMD01 «, t00=0x0005, t01=0x0170}
0x0954…095e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0188}
0x095e…0968 (6, 0, 400)  Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0004}
0x0968…098a              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x000e}
0x098a…09ac              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0006, t01=0x0030}
0x09ac…09ce              Head {h00=0x001e, h01=0x0050, text=»*  CONDITIONAL ASSEMBLY  *«, t00=0x0006, t01=0x0052}
0x09ce…09f0              Head {h00=0x001e, h01=0x0050, text=»*                        *«, t00=0x0006, t01=0x0074}
0x09f0…0a12              Head {h00=0x001e, h01=0x0050, text=»**************************«, t00=0x0006, t01=0x0096}
0x0a12…0a1c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b8}
0x0a1c…0a26              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00c2}
0x0a26…0a60              Head {h00=0x0036, h01=0x0050, text=»*   READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15«, t00=0x0006, t01=0x00cc}
0x0a60…0a7e              Head {h00=0x001a, h01=0x0050, text=»*   BY SETTING X:A = 0«, t00=0x0006, t01=0x0106}
0x0a7e…0a88              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0124}
0x0a88…0a9a              Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0006, t01=0x012e}
0x0a9a…0aae              Head {h00=0x0010, h01=0x0050, text=»RAW EQU X:A «, t00=0x0006, t01=0x0140}
0x0aae…0ab8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0154}
0x0ab8…0ac2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x015e}
0x0ac2…0af6              Head {h00=0x0030, h01=0x0050, text=»*   A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0168}
0x0af6…0b26              Head {h00=0x002c, h01=0x0050, text=»*   IS OBTAINED BY SETTING MMUPAG EQU 1 «, t00=0x0007, t01=0x000c}
0x0b26…0b30              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x003c}
0x0b30…0b44              Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x0046}
0x0b44…0b4e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x005a}
0x0b4e…0b62              Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x0064}
0x0b62…0b82              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x0007, t01=0x0078}
0x0b82…0b8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b8c…0b96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00a2}
0x0b96…0bac              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00ac}
0x0bac…0bc2              Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0007, t01=0x00c2}
0x0bc2…0bd8              Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x00d8}
0x0bd8…0be2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00ee}
0x0be2…0bec              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f8}
0x0bec…0c16              Head {h00=0x0026, h01=0x0050, text=»CUADR EQU /04 CONTROL UNIT ADDRESS«, t00=0x0007, t01=0x0102}
0x0c16…0c48              Head {h00=0x002e, h01=0x0050, text=»DAMD1 EQU CUADR+/00 DEVICE ADDRESS UNIT 1 «, t00=0x0007, t01=0x012c}
0x0c48…0c7a              Head {h00=0x002e, h01=0x0050, text=»DAMD2 EQU CUADR+/10 DEVICE ADDRESS UNIT 2 «, t00=0x0007, t01=0x015e}
0x0c7a…0cac              Head {h00=0x002e, h01=0x0050, text=»DAMD3 EQU CUADR+/20 DEVICE ADDRESS UNIT 3 «, t00=0x0007, t01=0x0190}
0x0cac…0cde              Head {h00=0x002e, h01=0x0050, text=»DAMD4 EQU CUADR+/30 DEVICE ADDRESS UNIT 4 «, t00=0x0008, t01=0x0032}
0x0cde…0d08              Head {h00=0x0026, h01=0x0050, text=»WERAD EQU CUADR+CUADR MUX ADDRESS «, t00=0x0008, t01=0x0064}
0x0d08…0d12              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x008e}
0x0d12…0d3c              Head {h00=0x0026, h01=0x0050, text=»MAXSEC EQU 23400 MAX NO OF SECTORS«, t00=0x0008, t01=0x0098}
0x0d3c…0d6c              Head {h00=0x002c, h01=0x0050, text=»SECLEN EQU 256 SECTOR LENGTH, CHARACTERS«, t00=0x0008, t01=0x00c2}
0x0d6c…0d8e              Head {h00=0x001e, h01=0x0050, text=»QRETRY EQU 4 NO OF RETRIES«, t00=0x0008, t01=0x00f2}
0x0d8e…0db0              Head {h00=0x001e, h01=0x0050, text=»TIME EQU 1000 1 MIN 40 SEC«, t00=0x0008, t01=0x0114}
0x0db0…0dba              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0136}
0x0dba…0dd0              Head {h00=0x0012, h01=0x0050, text=»DEVIND EQU 10 «, t00=0x0008, t01=0x0140}
0x0dd0…0dda              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0156}
0x0dda…0dfa              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x0008, t01=0x0160}
0x0dfa…0e04              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e04…0e0e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e0e…0e36 (9, 0, 400)  Head {h00=0x0024, h01=0x0050, text=» DATA 0 INDICATES NO MMU BUFFER «, t00=0x0009, t01=0x0004}
0x0e36…0e5c              Head {h00=0x0022, h01=0x0050, text=» DATA DEVIND DISC DEVICE INDEX«, t00=0x0009, t01=0x002c}
0x0e5c…0e86              Head {h00=0x0026, h01=0x0050, text=»MDADR DATA MDAD ACTIVATION ADDRESS«, t00=0x0009, t01=0x0052}
0x0e86…0eac              Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x0009, t01=0x007c}
0x0eac…0eb6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a2}
0x0eb6…0ecc              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0009, t01=0x00ac}
0x0ecc…0ed6              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed6…0ee0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee0…0f00              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x00d6}
0x0f00…0f20              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0009, t01=0x00f6}
0x0f20…0f40              Head {h00=0x001c, h01=0x0050, text=»*  INTERLACING TABLE  * «, t00=0x0009, t01=0x0116}
0x0f40…0f60              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0009, t01=0x0136}
0x0f60…0f80              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0009, t01=0x0156}
0x0f80…0f8a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8a…0f94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0180}
0x0f94…0fa8              Head {h00=0x0010, h01=0x0050, text=»TRATAB EQU *«, t00=0x0009, t01=0x018a}
0x0fa8…0fd4              Head {h00=0x0028, h01=0x0050, text=» DATA /0004,/080C,/1014,/181C,/2024 «, t00=0x000a, t01=0x000e}
0x0fd4…1000              Head {h00=0x0028, h01=0x0050, text=» DATA /282C,/3001,/0509,/0D11,/1519 «, t00=0x000a, t01=0x003a}
0x1000…102c              Head {h00=0x0028, h01=0x0050, text=» DATA /1D21,/2529,/2D31,/0206,/0A0E «, t00=0x000a, t01=0x0066}
0x102c…1058              Head {h00=0x0028, h01=0x0050, text=» DATA /1216,/1A1E,/2226,/2A2E,/3203 «, t00=0x000a, t01=0x0092}
0x1058…1084              Head {h00=0x0028, h01=0x0050, text=» DATA /070B,/0F13,/171B,/1F23,/272B «, t00=0x000a, t01=0x00be}
0x1084…1098              Head {h00=0x0010, h01=0x0050, text=» DATA /2F33 «, t00=0x000a, t01=0x00ea}
0x1098…10a2              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000a, t01=0x00fe}
0x10a2…10b8              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x000a, t01=0x0108}
0x10b8…10c2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c2…10da              Head {h00=0x0014, h01=0x0010, text=»****************«, t00=0x000a, t01=0x0128}
0x10da…10f2              Head {h00=0x0014, h01=0x0010, text=»*              *«, t00=0x000a, t01=0x0140}
0x10f2…110a              Head {h00=0x0014, h01=0x0010, text=»*  ACTIVATION  *«, t00=0x000a, t01=0x0158}
0x110a…1122              Head {h00=0x0014, h01=0x0010, text=»*              *«, t00=0x000a, t01=0x0170}
0x1122…113a              Head {h00=0x0014, h01=0x0010, text=»****************«, t00=0x000a, t01=0x0188}
0x113a…1144              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000b, t01=0x0010}
0x1144…114e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001a}
0x114e…1160              Head {h00=0x000e, h01=0x0050, text=»MDAD EQU *«, t00=0x000b, t01=0x0024}
0x1160…119a              Head {h00=0x0036, h01=0x0050, text=» LD A1,DWTOR,A6 SAVE INDEX AND ORDER FOR RECOVERY «, t00=0x000b, t01=0x0036}
0x119a…11b2              Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTORD,A6«, t00=0x000b, t01=0x0070}
0x11b2…11c8              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x000b, t01=0x0088}
0x11c8…11f2              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTCYL,A4 ACTUALL CYLINDER «, t00=0x000b, t01=0x009e}
0x11f2…120a              Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTSEK,A6«, t00=0x000b, t01=0x00c8}
0x120a…121e              Head {h00=0x0010, h01=0x0050, text=»MDAD:0 EQU *«, t00=0x000b, t01=0x00e0}
0x121e…1246              Head {h00=0x0024, h01=0x0050, text=» CM DWTIOR,A6 PREPARE FOR ORDER «, t00=0x000b, t01=0x00f4}
0x1246…125c              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000b, t01=0x011c}
0x125c…1284              Head {h00=0x0024, h01=0x0050, text=» LDR* A3,A8 GET 1:ST WORD OF ECB«, t00=0x000b, t01=0x0132}
0x1284…129a              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/3000«, t00=0x000b, t01=0x015a}
0x129a…12cc              Head {h00=0x002e, h01=0x0050, text=» ORKL A3,/8080 PREPARE FOR 1:ST WER INSTR.«, t00=0x000b, t01=0x0170}
0x12cc…12d8              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0012}
0x12d8…12ee              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x001e}
0x12ee…1320              Head {h00=0x002e, h01=0x0050, text=» LDKL A3,/8080 PREPARE FOR 1:ST WER INSTR.«, t00=0x000c, t01=0x0034}
0x1320…132c              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0066}
0x132c…1348              Head {h00=0x0018, h01=0x0014, text=» LDR A1,A7 GET ORDER«, t00=0x000c, t01=0x0072}
0x1348…136a              Head {h00=0x001e, h01=0x0019, text=» RF(Z) TESTST TEST STATUS «, t00=0x000c, t01=0x008e}
0x136a…137e              Head {h00=0x0010, h01=0x000b, text=» SUK A1,/01 «, t00=0x000c, t01=0x00b0}
0x137e…139e              Head {h00=0x001c, h01=0x0050, text=» RF(Z) INI:01 BASIC READ«, t00=0x000c, t01=0x00c4}
0x139e…13b2              Head {h00=0x0010, h01=0x000b, text=» SUK A1,/04 «, t00=0x000c, t01=0x00e4}
0x13b2…13d4              Head {h00=0x001e, h01=0x0050, text=» RF(Z) INI:00 BASIC WRITE «, t00=0x000c, t01=0x00f8}
0x13d4…13e8              Head {h00=0x0010, h01=0x000b, text=» SUK A1,/0C «, t00=0x000c, t01=0x011a}
0x13e8…140c              Head {h00=0x0020, h01=0x0050, text=» RF(Z) INI:01 PHYSICAL READ «, t00=0x000c, t01=0x012e}
0x140c…1420              Head {h00=0x0010, h01=0x000b, text=» SUK A1,/04 «, t00=0x000c, t01=0x0152}
0x1420…1444              Head {h00=0x0020, h01=0x0050, text=» RF(Z) INI:00 PHYSICAL WRITE«, t00=0x000c, t01=0x0166}
0x1444…1458              Head {h00=0x0010, h01=0x000b, text=» SUK A1,/0A «, t00=0x000c, t01=0x018a}
0x1458…147c              Head {h00=0x0020, h01=0x0050, text=» RF(Z) FORVOL FORMAT VOLUME «, t00=0x000d, t01=0x000e}
0x147c…14a0              Head {h00=0x0020, h01=0x001b, text=» ABL DISIOE INCORRECT ORDER «, t00=0x000d, t01=0x0032}
0x14a0…14aa              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0056}
0x14aa…14c0              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x000d, t01=0x0060}
0x14c0…14ca              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0076}
0x14ca…14d4              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0080}
0x14d4…14de              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x008a}
0x14de…14f8              Head {h00=0x0016, h01=0x0011, text=»***************** «, t00=0x000d, t01=0x0094}
0x14f8…1512              Head {h00=0x0016, h01=0x0011, text=»*               * «, t00=0x000d, t01=0x00ae}
0x1512…152c              Head {h00=0x0016, h01=0x0011, text=»*  TEST STATUS  * «, t00=0x000d, t01=0x00c8}
0x152c…1546              Head {h00=0x0016, h01=0x0011, text=»*               * «, t00=0x000d, t01=0x00e2}
0x1546…1560              Head {h00=0x0016, h01=0x0011, text=»***************** «, t00=0x000d, t01=0x00fc}
0x1560…156a              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0116}
0x156a…1574              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000d, t01=0x0120}
0x1574…1588              Head {h00=0x0010, h01=0x000c, text=»TESTST EQU *«, t00=0x000d, t01=0x012a}
0x1588…159e              Head {h00=0x0012, h01=0x0050, text=» CF A5,VO:NAM «, t00=0x000d, t01=0x013e}
0x159e…15c8              Head {h00=0x0026, h01=0x0050, text=» ORS A1,ECBRC,A8 SAVE RETURN CODE «, t00=0x000d, t01=0x0154}
0x15c8…15de              Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLNAM«, t00=0x000d, t01=0x017e}
0x15de…1602 (14, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE «, t00=0x000e, t01=0x0004}
0x1602…1616              Head {h00=0x0010, h01=0x0050, text=» ABL END:20 «, t00=0x000e, t01=0x0028}
0x1616…1620              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x003c}
0x1620…1636              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x000e, t01=0x0046}
0x1636…1640              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005c}
0x1640…1666              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x000e, t01=0x0066}
0x1666…168c              Head {h00=0x0022, h01=0x0050, text=»*                           * «, t00=0x000e, t01=0x008c}
0x168c…16b2              Head {h00=0x0022, h01=0x0050, text=»*   FORMAT VOLUME           * «, t00=0x000e, t01=0x00b2}
0x16b2…16d8              Head {h00=0x0022, h01=0x0050, text=»*                           * «, t00=0x000e, t01=0x00d8}
0x16d8…16fe              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x000e, t01=0x00fe}
0x16fe…1708              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0124}
0x1708…171c              Head {h00=0x0010, h01=0x0050, text=»FORVOL EQU *«, t00=0x000e, t01=0x012e}
0x171c…1732              Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x000e, t01=0x0142}
0x1732…1746              Head {h00=0x0010, h01=0x0050, text=»FORV10 EQU *«, t00=0x000e, t01=0x0158}
0x1746…1774              Head {h00=0x002a, h01=0x0050, text=» LDKL A3,/4002 HEAD  1 AND ORDER CODE «, t00=0x000e, t01=0x016c}
0x1774…178c              Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTSEK,A6«, t00=0x000f, t01=0x000a}
0x178c…17a8              Head {h00=0x0018, h01=0x0050, text=» LDK A3,2 ORDER CODE«, t00=0x000f, t01=0x0022}
0x17a8…17c0              Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTSEN,A6«, t00=0x000f, t01=0x003e}
0x17c0…17d4              Head {h00=0x0010, h01=0x0050, text=»FORV20 EQU *«, t00=0x000f, t01=0x0056}
0x17d4…17ea              Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:00 «, t00=0x000f, t01=0x006a}
0x17ea…17fc              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x000f, t01=0x0080}
0x17fc…181e              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FORV50 SEEK ERROR «, t00=0x000f, t01=0x0092}
0x181e…183e              Head {h00=0x001c, h01=0x0050, text=» LD A3,DWTSEK,A6 HEAD 1 «, t00=0x000f, t01=0x00b4}
0x183e…1854              Head {h00=0x0012, h01=0x0050, text=» CF A5,CIO:00 «, t00=0x000f, t01=0x00d4}
0x1854…1866              Head {h00=0x000e, h01=0x0050, text=» ANK A1,2 «, t00=0x000f, t01=0x00ea}
0x1866…1888              Head {h00=0x001e, h01=0x0050, text=» RF(NZ) FORV50 SEEK ERROR «, t00=0x000f, t01=0x00fc}
0x1888…18a8              Head {h00=0x001c, h01=0x0050, text=» LDK A3,4 NEXT CYLINDER «, t00=0x000f, t01=0x011e}
0x18a8…18c8              Head {h00=0x001c, h01=0x0050, text=» ADS A3,DWTSEK,A6 HEAD 0«, t00=0x000f, t01=0x013e}
0x18c8…18e8              Head {h00=0x001c, h01=0x0050, text=» AD A3,DWTSEN,A6 HEAD 0 «, t00=0x000f, t01=0x015e}
0x18e8…1900              Head {h00=0x0014, h01=0x0050, text=» ST A3,DWTSEN,A6«, t00=0x000f, t01=0x017e}
0x1900…191a              Head {h00=0x0016, h01=0x0050, text=» CWK A3,920 4*230 «, t00=0x0010, t01=0x0008}
0x191a…1930              Head {h00=0x0012, h01=0x0050, text=» RB(NG) FORV20«, t00=0x0010, t01=0x0022}
0x1930…1964              Head {h00=0x0030, h01=0x0050, text=» LDKL A2,923 CYLINDER NUMBER AND SEEK ORDER «, t00=0x0010, t01=0x0038}
0x1964…1978              Head {h00=0x0010, h01=0x0050, text=»FORV40 EQU *«, t00=0x0010, t01=0x006c}
0x1978…198c              Head {h00=0x0010, h01=0x0050, text=» ABL END:15 «, t00=0x0010, t01=0x0080}
0x198c…19a0              Head {h00=0x0010, h01=0x0050, text=»FORV50 EQU *«, t00=0x0010, t01=0x0094}
0x19a0…19b2              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0010, t01=0x00a8}
0x19b2…19ce              Head {h00=0x0018, h01=0x0050, text=» RB(NN) FORV10 RETRY«, t00=0x0010, t01=0x00ba}
0x19ce…1a04              Head {h00=0x0032, h01=0x0050, text=» LDK A2,0 DUMMY CYLINDER NUMBER AND ORDER CODE«, t00=0x0010, t01=0x00d6}
0x1a04…1a1c              Head {h00=0x0014, h01=0x0050, text=» RB FORV40 ENDIO«, t00=0x0010, t01=0x010c}
0x1a1c…1a32              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0010, t01=0x0124}
0x1a32…1a3c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x013a}
0x1a3c…1a46              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0010, t01=0x0144}
0x1a46…1a6c              Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0010, t01=0x014e}
0x1a6c…1a92              Head {h00=0x0022, h01=0x0050, text=»*                           * «, t00=0x0010, t01=0x0174}
0x1a92…1ab8              Head {h00=0x0022, h01=0x001e, text=»*  TEST OF INPUT PARAMETERS  *«, t00=0x0011, t01=0x000a}
0x1ab8…1ade              Head {h00=0x0022, h01=0x001d, text=»*  ECBRL,ECBCW1 AND ECBCW2  * «, t00=0x0011, t01=0x0030}
0x1ade…1b04              Head {h00=0x0022, h01=0x001e, text=»*                           * «, t00=0x0011, t01=0x0056}
0x1b04…1b2a              Head {h00=0x0022, h01=0x001d, text=»***************************** «, t00=0x0011, t01=0x007c}
0x1b2a…1b34              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00a2}
0x1b34…1b3e              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0011, t01=0x00ac}
0x1b3e…1b52              Head {h00=0x0010, h01=0x0050, text=»INI:00 EQU *«, t00=0x0011, t01=0x00b6}
0x1b52…1b74              Head {h00=0x001e, h01=0x0050, text=» IM DWTIOR,A6 WRITE ORDER «, t00=0x0011, t01=0x00ca}
0x1b74…1b9a              Head {h00=0x0022, h01=0x0050, text=» ADKL A3,/4000 WER INSTRUCTION«, t00=0x0011, t01=0x00ec}
0x1b9a…1bae              Head {h00=0x0010, h01=0x0050, text=»INI:01 EQU *«, t00=0x0011, t01=0x0112}
0x1bae…1be4              Head {h00=0x0032, h01=0x0050, text=» ST A3,DWTWE1,A6 1:ST WER INSTRUCTION PREPARED«, t00=0x0011, t01=0x0126}
0x1be4…1c10              Head {h00=0x0028, h01=0x0024, text=» LD A1,ECBRL,A8 GET REQUESTED LENGTH«, t00=0x0011, t01=0x015c}
0x1c10…1c2c              Head {h00=0x0018, h01=0x0050, text=» RF(Z) INCLEN ERROR «, t00=0x0011, t01=0x0188}
0x1c2c…1c54              Head {h00=0x0024, h01=0x0020, text=» ECR A3,A1 GET NUMBER OF SECTORS«, t00=0x0012, t01=0x0014}
0x1c54…1c68              Head {h00=0x0010, h01=0x000b, text=» ANK A1,/FF «, t00=0x0012, t01=0x003c}
0x1c68…1c9a              Head {h00=0x002e, h01=0x0050, text=» RF(NZ) INCLEN INCORRECT REQUESTED LENGTH «, t00=0x0012, t01=0x0050}
0x1c9a…1cc4              Head {h00=0x0026, h01=0x0022, text=» LD A2,ECBCW2,A8 GET SECTOR NUMBER«, t00=0x0012, t01=0x0082}
0x1cc4…1cda              Head {h00=0x0012, h01=0x0050, text=» RF(N) INCLEN «, t00=0x0012, t01=0x00ac}
0x1cda…1d08              Head {h00=0x002a, h01=0x0050, text=» NGR A1,A3 NEGATE FOR SECTOR COUNTING «, t00=0x0012, t01=0x00c2}
0x1d08…1d38              Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTSEN,A6 NUMBER OF SECTORS IN IO«, t00=0x0012, t01=0x00f0}
0x1d38…1d4a              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x0012, t01=0x0120}
0x1d4a…1d78              Head {h00=0x002a, h01=0x0050, text=» ST A1,BUFF SAVE FOR READ AFTER WRITE «, t00=0x0012, t01=0x0132}
0x1d78…1d84              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0160}
0x1d84…1d96              Head {h00=0x000e, h01=0x000a, text=» ADR A3,A2«, t00=0x0012, t01=0x016c}
0x1d96…1dac              Head {h00=0x0012, h01=0x0050, text=» RF(O) INCLEN «, t00=0x0012, t01=0x017e}
0x1dac…1dc4 (19, 0, 400) Head {h00=0x0014, h01=0x000f, text=» SUKL A3,MAXSEC «, t00=0x0013, t01=0x0004}
0x1dc4…1dda              Head {h00=0x0012, h01=0x0050, text=» RF(NP) INI:20«, t00=0x0013, t01=0x001c}
0x1dda…1e08              Head {h00=0x002a, h01=0x0025, text=»INCLEN LDKL A1,/8008 INCORRECT LENGTH «, t00=0x0013, t01=0x0032}
0x1e08…1e1c              Head {h00=0x0010, h01=0x0050, text=» ABL END:15 «, t00=0x0013, t01=0x0060}
0x1e1c…1e26              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0074}
0x1e26…1e3c              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0013, t01=0x007e}
0x1e3c…1e46              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x0094}
0x1e46…1e50              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x009e}
0x1e50…1e7c              Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x0013, t01=0x00a8}
0x1e7c…1e86              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0013, t01=0x00d4}
0x1e86…1eb2              Head {h00=0x0028, h01=0x0023, text=»*  TRANSFER LOGICAL SECTOR NUMBER * «, t00=0x0013, t01=0x00de}
0x1eb2…1ede              Head {h00=0x0028, h01=0x0023, text=»*  TO CYLINDER NUMBER AND         * «, t00=0x0013, t01=0x010a}
0x1ede…1f0a              Head {h00=0x0028, h01=0x0023, text=»*  SECTOR NUMBER ON CYLINDER      * «, t00=0x0013, t01=0x0136}
0x1f0a…1f36              Head {h00=0x0028, h01=0x0024, text=»*                                 * «, t00=0x0013, t01=0x0162}
0x1f36…1f62              Head {h00=0x0028, h01=0x0023, text=»*********************************** «, t00=0x0013, t01=0x018e}
0x1f62…1f6c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x002a}
0x1f6c…1f76              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0014, t01=0x0034}
0x1f76…1f8a              Head {h00=0x0010, h01=0x0050, text=»INI:20 EQU *«, t00=0x0014, t01=0x003e}
0x1f8a…1fb4              Head {h00=0x0026, h01=0x0050, text=» LD A1,ECBBA,A8 GET BUFFER ADDRESS«, t00=0x0014, t01=0x0052}
0x1fb4…1ff0              Head {h00=0x0038, h01=0x0050, text=» ST A1,DWTWE2,A6 PREPARE FOR SECOND WER INSTRUCTION «, t00=0x0014, t01=0x007c}
0x1ff0…2002              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x00b8}
0x2002…2016              Head {h00=0x0010, h01=0x0050, text=»INI:22 EQU *«, t00=0x0014, t01=0x00ca}
0x2016…202c              Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRETRY«, t00=0x0014, t01=0x00de}
0x202c…203c              Head {h00=0x000c, h01=0x0008, text=» DVK 104«, t00=0x0014, t01=0x00f4}
0x203c…2070              Head {h00=0x0030, h01=0x002b, text=»*  A1=REMAINER = SECTOR NUMBER O N CYLINDER «, t00=0x0014, t01=0x0104}
0x2070…2098              Head {h00=0x0024, h01=0x0020, text=»*  A2=QUOTIENT = CYLINDER NUMBER«, t00=0x0014, t01=0x0138}
0x2098…20c4              Head {h00=0x0028, h01=0x0050, text=» ST A1,DWTSEC,A6 SAVE SECTOR NUMBER «, t00=0x0014, t01=0x0160}
0x20c4…20ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018c}
0x20ce…20e4              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0015, t01=0x0008}
0x20e4…20ee              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20ee…20f8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0028}
0x20f8…2126              Head {h00=0x002a, h01=0x0050, text=» SLL A2,2 CYLINDER NUMBER IN POSITION «, t00=0x0015, t01=0x0032}
0x2126…2148              Head {h00=0x001e, h01=0x0050, text=» ADK A2,3 SEEK ORDER CODE «, t00=0x0015, t01=0x0060}
0x2148…2176              Head {h00=0x002a, h01=0x0050, text=» CW A2,DWTSEK,A6 TEST IF SAME CYLINDER«, t00=0x0015, t01=0x0082}
0x2176…218c              Head {h00=0x0012, h01=0x0050, text=» RF(E) INI:35 «, t00=0x0015, t01=0x00b0}
0x218c…21a0              Head {h00=0x0010, h01=0x0050, text=»INI:30 EQU *«, t00=0x0015, t01=0x00c6}
0x21a0…21ce              Head {h00=0x002a, h01=0x0050, text=» IM DWTSFL,A6 INDICATE SEEK TO BE DONE«, t00=0x0015, t01=0x00da}
0x21ce…2206              Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTSEK,A6 SAVE IN SEEK REGISTER SAVE AREA«, t00=0x0015, t01=0x0108}
0x2206…2210              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0140}
0x2210…2226              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0015, t01=0x014a}
0x2226…2230              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0160}
0x2230…223a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x016a}
0x223a…225a              Head {h00=0x001c, h01=0x0050, text=»*   PREPARE HEAD NUMBER «, t00=0x0015, t01=0x0174}
0x225a…2264 (22, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0004}
0x2264…2278              Head {h00=0x0010, h01=0x0050, text=»INI:35 EQU *«, t00=0x0016, t01=0x000e}
0x2278…2294              Head {h00=0x0018, h01=0x0050, text=» LDK A3,0 HEAD NO 0 «, t00=0x0016, t01=0x0022}
0x2294…22c4              Head {h00=0x002c, h01=0x0050, text=» CWK A1,52 SECTOR ON 1:ST OR 2:ND TRACK «, t00=0x0016, t01=0x003e}
0x22c4…22da              Head {h00=0x0012, h01=0x0050, text=» RF(L) INI:40 «, t00=0x0016, t01=0x006e}
0x22da…22ec              Head {h00=0x000e, h01=0x0050, text=» SUK A1,52«, t00=0x0016, t01=0x0084}
0x22ec…230c              Head {h00=0x001c, h01=0x0050, text=» LDKL A3,/4000 HEAD NO 1«, t00=0x0016, t01=0x0096}
0x230c…2316              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00b6}
0x2316…2320              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c0}
0x2320…235c              Head {h00=0x0038, h01=0x0050, text=»*   GET PHYSICAL SECTOR NUMBER AND PREPARE DWTIOR,A6«, t00=0x0016, t01=0x00ca}
0x235c…2366              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0106}
0x2366…237a              Head {h00=0x0010, h01=0x0050, text=»INI:40 EQU *«, t00=0x0016, t01=0x0110}
0x237a…23b0              Head {h00=0x0032, h01=0x0050, text=» LC A1,TRATAB,A1 GET INTERLACED SECTOR NUMBER «, t00=0x0016, t01=0x0124}
0x23b0…23c2              Head {h00=0x000e, h01=0x0050, text=» SRC A2,3 «, t00=0x0016, t01=0x015a}
0x23c2…23ee              Head {h00=0x0028, h01=0x0050, text=» RF(NN) INI:42 EVEN CYLINDER NUMBER «, t00=0x0016, t01=0x016c}
0x23ee…241a              Head {h00=0x0028, h01=0x0050, text=» SUK A1,26 SKEW FACTOR = 26 SECTORS «, t00=0x0017, t01=0x0008}
0x241a…2430              Head {h00=0x0012, h01=0x0050, text=» RF(NN) INI:42«, t00=0x0017, t01=0x0034}
0x2430…2442              Head {h00=0x000e, h01=0x0050, text=» ADK A1,52«, t00=0x0017, t01=0x004a}
0x2442…2456              Head {h00=0x0010, h01=0x0050, text=»INI:42 EQU *«, t00=0x0017, t01=0x005c}
0x2456…247e              Head {h00=0x0024, h01=0x0050, text=» SLL A1,2 SECTOR NO IN POSITION «, t00=0x0017, t01=0x0070}
0x247e…249c              Head {h00=0x001a, h01=0x0050, text=» ADR A1,A3 HEAD NUMBER«, t00=0x0017, t01=0x0098}
0x249c…24d4              Head {h00=0x0034, h01=0x0050, text=» ORS A1,DWTIOR,A6 SAVE IN CIO REGISTER SAVE AREA«, t00=0x0017, t01=0x00b6}
0x24d4…24fe              Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTSFL,A6 SEEK TO BE DONE ?«, t00=0x0017, t01=0x00ee}
0x24fe…2514              Head {h00=0x0012, h01=0x0050, text=» RF(Z) INI:45 «, t00=0x0017, t01=0x0118}
0x2514…251e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x012e}
0x251e…2534              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0017, t01=0x0138}
0x2534…253e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014e}
0x253e…2548              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0158}
0x2548…255c              Head {h00=0x0010, h01=0x0050, text=»INI:43 EQU *«, t00=0x0017, t01=0x0162}
0x255c…257c              Head {h00=0x001c, h01=0x0050, text=» CF A5,SEEK PERFORM SEEK«, t00=0x0017, t01=0x0176}
0x257c…258e              Head {h00=0x000e, h01=0x0050, text=» ADK A1,0 «, t00=0x0018, t01=0x0008}
0x258e…25b2              Head {h00=0x0020, h01=0x0050, text=» RF(Z) INI:44 NO RETURN CODE«, t00=0x0018, t01=0x001a}
0x25b2…25da              Head {h00=0x0024, h01=0x0050, text=» LDKL A2,/100 RETRIES PERFORMED «, t00=0x0018, t01=0x003e}
0x25da…25f2              Head {h00=0x0014, h01=0x0050, text=» ORS A2,ECBRC,A8«, t00=0x0018, t01=0x0066}
0x25f2…2604              Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0018, t01=0x007e}
0x2604…2620              Head {h00=0x0018, h01=0x0050, text=» RB(NZ) INI:43 RETRY«, t00=0x0018, t01=0x0090}
0x2620…264e              Head {h00=0x002a, h01=0x0050, text=» LDK A2,0 DUMMY CYL NO AND ORDER CODE «, t00=0x0018, t01=0x00ac}
0x264e…2670              Head {h00=0x001e, h01=0x0050, text=» RF END:15 NO MORE RETRIES«, t00=0x0018, t01=0x00da}
0x2670…2684              Head {h00=0x0010, h01=0x0050, text=»INI:44 EQU *«, t00=0x0018, t01=0x00fc}
0x2684…26aa              Head {h00=0x0022, h01=0x0050, text=» CM DWTSFL,A6 RESET SEEK FLAG «, t00=0x0018, t01=0x0110}
0x26aa…26b4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0136}
0x26b4…26da              Head {h00=0x0022, h01=0x0050, text=»*   CIO AND CHECK RETURN CODE «, t00=0x0018, t01=0x0140}
0x26da…26e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e4…26f8              Head {h00=0x0010, h01=0x0050, text=»INI:45 EQU *«, t00=0x0018, t01=0x0170}
0x26f8…2716              Head {h00=0x001a, h01=0x0050, text=» CF A5,CIO PERFORM IO «, t00=0x0018, t01=0x0184}
0x2716…273a              Head {h00=0x0020, h01=0x0050, text=» ADK A1,0 CHECK RETURN CODE «, t00=0x0019, t01=0x0012}
0x273a…2752              Head {h00=0x0014, h01=0x0050, text=» RF(Z) INI:50 OK«, t00=0x0019, t01=0x0036}
0x2752…2774              Head {h00=0x001e, h01=0x0050, text=» LDKL A2,/100 RETRIES DONE«, t00=0x0019, t01=0x004e}
0x2774…278c              Head {h00=0x0014, h01=0x0050, text=» ORS A2,ECBRC,A8«, t00=0x0019, t01=0x0070}
0x278c…27ac              Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 RETRY COUNTER «, t00=0x0019, t01=0x0088}
0x27ac…27c8              Head {h00=0x0018, h01=0x0050, text=» RB(NZ) INI:45 RETRY«, t00=0x0019, t01=0x00a8}
0x27c8…27da              Head {h00=0x000e, h01=0x0050, text=» RF END:15«, t00=0x0019, t01=0x00c4}
0x27da…27e4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d6}
0x27e4…27fa              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0019, t01=0x00e0}
0x27fa…2804              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f6}
0x2804…280e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0100}
0x280e…2822              Head {h00=0x0010, h01=0x0050, text=»INI:50 EQU *«, t00=0x0019, t01=0x010a}
0x2822…284c              Head {h00=0x0026, h01=0x0050, text=» LDKL A3,SECLEN GET SECTOR LENGTH «, t00=0x0019, t01=0x011e}
0x284c…2870              Head {h00=0x0020, h01=0x0050, text=» LDR A4,A3 GET SECTOR LENGTH«, t00=0x0019, t01=0x0148}
0x2870…2882              Head {h00=0x000e, h01=0x0050, text=» LDK A2,1 «, t00=0x0019, t01=0x016c}
0x2882…28ac              Head {h00=0x0026, h01=0x0050, text=» ANS A2,DWTIOR,A6 SAVE ORDER TYPE «, t00=0x0019, t01=0x017e}
0x28ac…28be              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001a, t01=0x0018}
0x28be…28d2              Head {h00=0x0010, h01=0x0050, text=» SUK A7,/15 «, t00=0x001a, t01=0x002a}
0x28d2…28fc              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) INI:52 NOT PHYSICAL WRITE «, t00=0x001a, t01=0x003e}
0x28fc…292a              Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTIOR,A6 CHECK IF READ IS DONE«, t00=0x001a, t01=0x0068}
0x292a…2940              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) INI:54«, t00=0x001a, t01=0x0096}
0x2940…2978              Head {h00=0x0034, h01=0x0050, text=» LDK A4,0 SAME BUFFER FOR READ AFTER WRITE TEST «, t00=0x001a, t01=0x00ac}
0x2978…298c              Head {h00=0x0010, h01=0x0050, text=»INI:52 EQU *«, t00=0x001a, t01=0x00e4}
0x298c…2998              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00f8}
0x2998…29c8              Head {h00=0x002c, h01=0x0050, text=» ADS A3,ECBEL,A8 UPDATE EFFECTIVE LENGTH«, t00=0x001a, t01=0x0104}
0x29c8…29dc              Head {h00=0x0010, h01=0x0050, text=»INI:54 EQU *«, t00=0x001a, t01=0x0134}
0x29dc…2a08              Head {h00=0x0028, h01=0x0050, text=» IM DWTSEN,A6 UPDATE SECTOR COUNTER «, t00=0x001a, t01=0x0148}
0x2a08…2a2e              Head {h00=0x0022, h01=0x0050, text=» RF(Z) END:00 LAST SECTOR DONE«, t00=0x001a, t01=0x0174}
0x2a2e…2a38              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x000a}
0x2a38…2a4e              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x001b, t01=0x0014}
0x2a4e…2a7e              Head {h00=0x002c, h01=0x0050, text=» ADS A4,DWTWE2,A6 UPDATE BUFFER ADDRESS «, t00=0x001b, t01=0x002a}
0x2a7e…2a8a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x005a}
0x2a8a…2a94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0066}
0x2a94…2aaa              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001b, t01=0x0070}
0x2aaa…2abc              Head {h00=0x000e, h01=0x0050, text=» ADK A4,0 «, t00=0x001b, t01=0x0086}
0x2abc…2ae6              Head {h00=0x0026, h01=0x0050, text=» RF(Z) INI:60 READ AFTER WRITE ON «, t00=0x001b, t01=0x0098}
0x2ae6…2b10              Head {h00=0x0026, h01=0x0050, text=» ML 2,DWTWE1,A6 GET WER REGISTERS «, t00=0x001b, t01=0x00c2}
0x2b10…2b48              Head {h00=0x0034, h01=0x0050, text=» SLC A1,4 BIT 0,1 OF BUFFER ADDRESS IN POSITION «, t00=0x001b, t01=0x00ec}
0x2b48…2b6e              Head {h00=0x0022, h01=0x0050, text=» SRL A2,1 BIT 2,17 IN POSITION«, t00=0x001b, t01=0x0124}
0x2b6e…2b80              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x001b, t01=0x014a}
0x2b80…2ba4              Head {h00=0x0020, h01=0x0050, text=» DAK /0,/0080 SECTOR LENGTH «, t00=0x001b, t01=0x015c}
0x2ba4…2bae              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0180}
0x2bae…2bc4              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x001b, t01=0x018a}
0x2bc4…2bce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0010}
0x2bce…2bd8              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x2bd8…2bf2              Head {h00=0x0016, h01=0x0050, text=» ANK A1,3 BIT 0,1 «, t00=0x001c, t01=0x0024}
0x2bf2…2c08              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/FFFC«, t00=0x001c, t01=0x003e}
0x2c08…2c22              Head {h00=0x0016, h01=0x0050, text=» ORR A1,A3 1ST WER«, t00=0x001c, t01=0x0054}
0x2c22…2c40              Head {h00=0x001a, h01=0x0050, text=» SRC A1,4 IN POSITION «, t00=0x001c, t01=0x006e}
0x2c40…2c52              Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x001c, t01=0x008c}
0x2c52…2c6a              Head {h00=0x0014, h01=0x0050, text=» MS 2,DWTWE1,A6 «, t00=0x001c, t01=0x009e}
0x2c6a…2c7e              Head {h00=0x0010, h01=0x0050, text=»INI:60 EQU *«, t00=0x001c, t01=0x00b6}
0x2c7e…2c8a              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001c, t01=0x00ca}
0x2c8a…2c94              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d6}
0x2c94…2cb2              Head {h00=0x001a, h01=0x0050, text=» LDK A4,QRETRY RETRIES«, t00=0x001c, t01=0x00e0}
0x2cb2…2ce8              Head {h00=0x0032, h01=0x0050, text=» IM DWTSEC,A6 UPDATE SECTOR NUMBER ON CYLINDER«, t00=0x001c, t01=0x00fe}
0x2ce8…2d12              Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTSEK,A6 PREPARE FOR SEEK «, t00=0x001c, t01=0x0134}
0x2d12…2d44              Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTSEC,A6 GET SECTOR NO ON CYLINDER«, t00=0x001c, t01=0x015e}
0x2d44…2d68              Head {h00=0x0020, h01=0x0050, text=» CWK A1,104 NEXT CYLINDER ? «, t00=0x001c, t01=0x0190}
0x2d68…2d8c              Head {h00=0x0020, h01=0x0050, text=» RB(L) INI:35 SAME CYLINDER «, t00=0x001d, t01=0x0024}
0x2d8c…2dae              Head {h00=0x001e, h01=0x0050, text=» CM DWTSEC,A6 NEW CYLINDER«, t00=0x001d, t01=0x0048}
0x2dae…2dc8              Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 SECTOR 0«, t00=0x001d, t01=0x006a}
0x2dc8…2de8              Head {h00=0x001c, h01=0x0050, text=» ADK A2,4 NEXT CYLINDER «, t00=0x001d, t01=0x0084}
0x2de8…2e18              Head {h00=0x002c, h01=0x0050, text=» RB INI:30 IO ON SEC. 0 ON NEXT CYLINDER«, t00=0x001d, t01=0x00a4}
0x2e18…2e2e              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x001d, t01=0x00d4}
0x2e2e…2e38              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x00ea}
0x2e38…2e42              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x00f4}
0x2e42…2e4c              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001d, t01=0x00fe}
0x2e4c…2e68              Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x001d, t01=0x0108}
0x2e68…2e84              Head {h00=0x0018, h01=0x0014, text=»*                  *«, t00=0x001d, t01=0x0124}
0x2e84…2ea2              Head {h00=0x001a, h01=0x0050, text=»*   SEEK AND CIO    * «, t00=0x001d, t01=0x0140}
0x2ea2…2ec0              Head {h00=0x001a, h01=0x0050, text=»*    SUBROUTINE     * «, t00=0x001d, t01=0x015e}
0x2ec0…2edc              Head {h00=0x0018, h01=0x0014, text=»*                  *«, t00=0x001d, t01=0x017c}
0x2edc…2ef8              Head {h00=0x0018, h01=0x0014, text=»********************«, t00=0x001e, t01=0x0008}
0x2ef8…2f02              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x0024}
0x2f02…2f14              Head {h00=0x000e, h01=0x0050, text=»SEEK EQU *«, t00=0x001e, t01=0x002e}
0x2f14…2f2c              Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTSEK,A6«, t00=0x001e, t01=0x0040}
0x2f2c…2f3e              Head {h00=0x000e, h01=0x0050, text=» RF CIO:00«, t00=0x001e, t01=0x0058}
0x2f3e…2f48              Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x001e, t01=0x006a}
0x2f48…2f5a              Head {h00=0x000e, h01=0x0009, text=»CIO EQU * «, t00=0x001e, t01=0x0074}
0x2f5a…2f8a              Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTWE1,A6 GET 1ST WER INST. REG. «, t00=0x001e, t01=0x0086}
0x2f8a…2fa0              Head {h00=0x0012, h01=0x0050, text=» WER A3,WERAD «, t00=0x001e, t01=0x00b6}
0x2fa0…2fd0              Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTWE2,A6 GET 2ND WER INST. REG. «, t00=0x001e, t01=0x00cc}
0x2fd0…2fe8              Head {h00=0x0014, h01=0x0050, text=» WER A3,WERAD+1 «, t00=0x001e, t01=0x00fc}
0x2fe8…3014              Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTIOR,A6 GET CIO INST. REG. «, t00=0x001e, t01=0x0114}
0x3014…3028              Head {h00=0x0010, h01=0x0050, text=»CIO:00 EQU *«, t00=0x001e, t01=0x0140}
0x3028…3048              Head {h00=0x001c, h01=0x0050, text=» ST A4,DWTA4,A6 SAVE A4 «, t00=0x001e, t01=0x0154}
0x3048…305e              Head {h00=0x0012, h01=0x0050, text=» LD A2,PFPOST «, t00=0x001e, t01=0x0174}
0x305e…308a              Head {h00=0x0028, h01=0x0050, text=» RF(NZ) CIOAB PWF POST PROCESSING ON«, t00=0x001e, t01=0x018a}
0x308a…30a0              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x001f, t01=0x0026}
0x30a0…30b6              Head {h00=0x0012, h01=0x0050, text=» EX DWTCIO,A4 «, t00=0x001f, t01=0x003c}
0x30b6…30c8              Head {h00=0x000e, h01=0x0009, text=» LDK A1,1 «, t00=0x001f, t01=0x0052}
0x30c8…30f0              Head {h00=0x0024, h01=0x0050, text=» RF(3) END:30 CU ADDRESS UNKNOWN«, t00=0x001f, t01=0x0064}
0x30f0…3104              Head {h00=0x0010, h01=0x0050, text=»CIOAB EQU * «, t00=0x001f, t01=0x008c}
0x3104…311c              Head {h00=0x0014, h01=0x000f, text=» ST A5,DWTA5,A6 «, t00=0x001f, t01=0x00a0}
0x311c…312e              Head {h00=0x000e, h01=0x0050, text=» RF T:DISP«, t00=0x001f, t01=0x00b8}
0x312e…3138              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ca}
0x3138…314e              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x001f, t01=0x00d4}
0x314e…3158              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00ea}
0x3158…3162              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f4}
0x3162…3176              Head {h00=0x0010, h01=0x0050, text=»END:00 EQU *«, t00=0x001f, t01=0x00fe}
0x3176…3188              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x001f, t01=0x0112}
0x3188…31aa              Head {h00=0x001e, h01=0x0050, text=» ADK A7,0 PHYSICAL WRITE ?«, t00=0x001f, t01=0x0124}
0x31aa…31d4              Head {h00=0x0026, h01=0x0050, text=» RF(NZ) END:10 NOT PHYSICAL WRITE «, t00=0x001f, t01=0x0146}
0x31d4…31ee              Head {h00=0x0016, h01=0x0050, text=» LD A2,DWTIOR,A6  «, t00=0x001f, t01=0x0170}
0x31ee…3200              Head {h00=0x000e, h01=0x0050, text=» ANK A2,1 «, t00=0x001f, t01=0x018a}
0x3200…322c              Head {h00=0x0028, h01=0x0050, text=» RF(Z) END:10 READ AFTER WRITE DONE «, t00=0x0020, t01=0x000c}
0x322c…3242              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8001«, t00=0x0020, t01=0x0038}
0x3242…3276              Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTWE1,A6 READ ONE WORD TO CHECK CRC «, t00=0x0020, t01=0x004e}
0x3276…329e              Head {h00=0x0024, h01=0x0050, text=» LDKL A1,BUFF DRIVER WORK BUFFER«, t00=0x0020, t01=0x0082}
0x329e…32d2              Head {h00=0x0030, h01=0x0050, text=» ST A1,DWTWE2,A6 BUFFER ADDRESS TO 2:ND WER «, t00=0x0020, t01=0x00aa}
0x32d2…32e8              Head {h00=0x0012, h01=0x0050, text=» CM DWTIOR,A6 «, t00=0x0020, t01=0x00de}
0x32e8…3318              Head {h00=0x002c, h01=0x0050, text=» LD A1,BUFF GET NUMBER OF SECTORS IN IO «, t00=0x0020, t01=0x00f4}
0x3318…3354              Head {h00=0x0038, h01=0x0050, text=» ST A1,DWTSEN,A6 UPDATE DWTSEN FOR READ AFTER WRITE «, t00=0x0020, t01=0x0124}
0x3354…3366              Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0020, t01=0x0160}
0x3366…337e              Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW2,A8«, t00=0x0020, t01=0x0172}
0x337e…3392              Head {h00=0x0010, h01=0x0050, text=» ABL INI:22 «, t00=0x0020, t01=0x018a}
0x3392…339e              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0021, t01=0x000e}
0x339e…33b2              Head {h00=0x0010, h01=0x0050, text=»END:10 EQU *«, t00=0x0021, t01=0x001a}
0x33b2…33e4              Head {h00=0x002e, h01=0x0050, text=» LD A2,DWTSEK,A6 GET CYL NO AND ORDER CODE«, t00=0x0021, t01=0x002e}
0x33e4…33f8              Head {h00=0x0010, h01=0x0050, text=»END:15 EQU *«, t00=0x0021, t01=0x0060}
0x33f8…340e              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0021, t01=0x0074}
0x340e…3426              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYL,A4«, t00=0x0021, t01=0x008a}
0x3426…343a              Head {h00=0x0010, h01=0x0050, text=»END:20 EQU *«, t00=0x0021, t01=0x00a2}
0x343a…345e              Head {h00=0x0020, h01=0x0050, text=» CF A15,TENDIO PERFORM ENDIO«, t00=0x0021, t01=0x00b6}
0x345e…3476              Head {h00=0x0014, h01=0x0050, text=»T:DISP ABL TDISP«, t00=0x0021, t01=0x00da}
0x3476…3480              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f2}
0x3480…34ac              Head {h00=0x0028, h01=0x0050, text=»END:30 EQU * DEVICE ADDRESS UNKNOWN «, t00=0x0021, t01=0x00fc}
0x34ac…34e2              Head {h00=0x0032, h01=0x0050, text=» ORS A1,DWTST,A6 INDICATE 1ST RECOVERY DONE =1«, t00=0x0021, t01=0x0128}
0x34e2…34f4              Head {h00=0x000e, h01=0x0050, text=» RB END:20«, t00=0x0021, t01=0x015e}
0x34f4…34fe              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0170}
0x34fe…3514              Head {h00=0x0012, h01=0x0050, text=» EJECT  DRMD01«, t00=0x0021, t01=0x017a}
0x3514…351e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0190}
0x351e…3528              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x000a}
0x3528…353c              Head {h00=0x0010, h01=0x0050, text=»VO:NAM EQU *«, t00=0x0022, t01=0x0014}
0x353c…356e              Head {h00=0x002e, h01=0x0050, text=» CM DWTSAV,A6 INDICATE VOLUME NAME READING«, t00=0x0022, t01=0x0028}
0x356e…3580              Head {h00=0x000e, h01=0x0050, text=» LDK A1,6 «, t00=0x0022, t01=0x005a}
0x3580…3596              Head {h00=0x0012, h01=0x0050, text=» CF A15,VOLCLR«, t00=0x0022, t01=0x006c}
0x3596…35a8              Head {h00=0x000e, h01=0x0050, text=» LDK A1,3 «, t00=0x0022, t01=0x0082}
0x35a8…35d8              Head {h00=0x002c, h01=0x0050, text=» ST A1,DWTSEK,A6 SEEK PREPARATION CYL 0 «, t00=0x0022, t01=0x0094}
0x35d8…35ec              Head {h00=0x0010, h01=0x0050, text=» CF A5,SEEK «, t00=0x0022, t01=0x00c4}
0x35ec…35fe              Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0022, t01=0x00d8}
0x35fe…361c              Head {h00=0x001a, h01=0x0050, text=» ANK A1,/3 RETURN CODE«, t00=0x0022, t01=0x00ea}
0x361c…3638              Head {h00=0x0018, h01=0x0050, text=» RF(NZ) VO:NA8 ERROR«, t00=0x0022, t01=0x0108}
0x3638…3668              Head {h00=0x002c, h01=0x0050, text=» LDKL A1,/8003 READ 3 WORDS VOLUME NAME «, t00=0x0022, t01=0x0124}
0x3668…3690              Head {h00=0x0024, h01=0x0050, text=» ST A1,DWTWE1,A6 WER PREPARATION«, t00=0x0022, t01=0x0154}
0x3690…36c6              Head {h00=0x0032, h01=0x0050, text=» CF A15,VOLADR GET ADDRESS TO DWT VOLUME NAME «, t00=0x0022, t01=0x017c}
0x36c6…36ea              Head {h00=0x0020, h01=0x0050, text=» ST A1,DWTWE2,A6 READ TO DWT«, t00=0x0023, t01=0x0022}
0x36ea…370e              Head {h00=0x0020, h01=0x0050, text=» CM DWTIOR,A6 READ SECTOR 0 «, t00=0x0023, t01=0x0046}
0x370e…3720              Head {h00=0x000e, h01=0x0050, text=» CF A5,CIO«, t00=0x0023, t01=0x006a}
0x3720…3738              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSEK,A6«, t00=0x0023, t01=0x007c}
0x3738…374c              Head {h00=0x0010, h01=0x0050, text=»VO:NA8 EQU *«, t00=0x0023, t01=0x0094}
0x374c…3762              Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0023, t01=0x00a8}
0x3762…377a              Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTCYL,A4«, t00=0x0023, t01=0x00be}
0x377a…378e              Head {h00=0x0010, h01=0x0050, text=» LDKL A2,-1 «, t00=0x0023, t01=0x00d6}
0x378e…37b6              Head {h00=0x0024, h01=0x0050, text=» ST A2,DWTSAV,A6 INDICATE READY «, t00=0x0023, t01=0x00ea}
0x37b6…37c6              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0023, t01=0x0112}
0x37c6…37e6              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x0023, t01=0x0122}
0x37e6…37f0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0142}
0x37f0…380e              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0023, t01=0x014c}
0x380e…382c              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0023, t01=0x016a}
0x382c…384a              Head {h00=0x001a, h01=0x0050, text=»*  RECOVERY ROUTINE  *«, t00=0x0023, t01=0x0188}
0x384a…3868              Head {h00=0x001a, h01=0x0050, text=»*                    *«, t00=0x0024, t01=0x0016}
0x3868…3886              Head {h00=0x001a, h01=0x0050, text=»**********************«, t00=0x0024, t01=0x0034}
0x3886…3890              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0052}
0x3890…38a2              Head {h00=0x000e, h01=0x0050, text=»MDON EQU *«, t00=0x0024, t01=0x005c}
0x38a2…38b8              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0024, t01=0x006e}
0x38b8…38de              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0024, t01=0x0084}
0x38de…38ea              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00aa}
0x38ea…3900              Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0024, t01=0x00b6}
0x3900…3916              Head {h00=0x0012, h01=0x0050, text=» CF A15,SAVE8 «, t00=0x0024, t01=0x00cc}
0x3916…3922              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0024, t01=0x00e2}
0x3922…393a              Head {h00=0x0014, h01=0x0050, text=» LDKL A6,DWMD01 «, t00=0x0024, t01=0x00ee}
0x393a…3972              Head {h00=0x0034, h01=0x0050, text=» LDKL A1,/7FFE SET UNIT BUSY AND RECOVERY ON =1 «, t00=0x0024, t01=0x0106}
0x3972…398e              Head {h00=0x0018, h01=0x0050, text=» ANS A1,DWTST,A6  =1«, t00=0x0024, t01=0x013e}
0x398e…39ae              Head {h00=0x001c, h01=0x0050, text=» LD A1,INIFLG POWER UP? «, t00=0x0024, t01=0x015a}
0x39ae…39c4              Head {h00=0x0012, h01=0x0050, text=» RF(NZ) MDON25«, t00=0x0024, t01=0x017a}
0x39c4…39ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0190}
0x39ce…39fa              Head {h00=0x0028, h01=0x0050, text=» LDKL A4,TIMER TIMER POINTER ADDRESS«, t00=0x0025, t01=0x000a}
0x39fa…3a0e              Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A4 «, t00=0x0025, t01=0x0036}
0x3a0e…3a34              Head {h00=0x0022, h01=0x0050, text=» RF(Z) MDON10 NO TIMER ACTIVE «, t00=0x0025, t01=0x004a}
0x3a34…3a4a              Head {h00=0x0012, h01=0x0050, text=» LDKL A1,-TIME«, t00=0x0025, t01=0x0070}
0x3a4a…3a6a              Head {h00=0x001c, h01=0x0050, text=» STR A1,A3 RESTART TIMER«, t00=0x0025, t01=0x0086}
0x3a6a…3a7c              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0025, t01=0x00a6}
0x3a7c…3a86              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b8}
0x3a86…3aae              Head {h00=0x0024, h01=0x0050, text=»MDON10 CF A15,SETIMP START TIMER«, t00=0x0025, t01=0x00c2}
0x3aae…3ade              Head {h00=0x002c, h01=0x0050, text=» DATA MDON20,TIME TIME OUT ADDRESS, TIME«, t00=0x0025, t01=0x00ea}
0x3ade…3af0              Head {h00=0x000e, h01=0x0050, text=» RB T:DISP«, t00=0x0025, t01=0x011a}
0x3af0…3afa              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012c}
0x3afa…3b0e              Head {h00=0x0010, h01=0x0050, text=»*   TIME OUT«, t00=0x0025, t01=0x0136}
0x3b0e…3b18              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x014a}
0x3b18…3b36              Head {h00=0x001a, h01=0x0050, text=»MDON20 LDKL A6,DWMD01 «, t00=0x0025, t01=0x0154}
0x3b36…3b48              Head {h00=0x000e, h01=0x0050, text=» CM TIMER «, t00=0x0025, t01=0x0172}
0x3b48…3b52              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0184}
0x3b52…3b6a              Head {h00=0x0014, h01=0x0050, text=» EJECT   DRMD01 «, t00=0x0025, t01=0x018e}
0x3b6a…3b74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0016}
0x3b74…3b7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0020}
0x3b7e…3b92              Head {h00=0x0010, h01=0x0050, text=»MDON25 EQU *«, t00=0x0026, t01=0x002a}
0x3b92…3bb4              Head {h00=0x001e, h01=0x0050, text=» LDKL A5,DWTSB2 STACK BASE«, t00=0x0026, t01=0x003e}
0x3bb4…3bc6              Head {h00=0x000e, h01=0x0050, text=» ADR A5,A6«, t00=0x0026, t01=0x0060}
0x3bc6…3bde              Head {h00=0x0014, h01=0x0050, text=» LDK A1,0 UNIT 0«, t00=0x0026, t01=0x0072}
0x3bde…3bfc              Head {h00=0x001a, h01=0x0050, text=»MDON30 ST A1,DWTOR,A6 «, t00=0x0026, t01=0x008a}
0x3bfc…3c22              Head {h00=0x0022, h01=0x0050, text=» CF A5,VO:NAM GET VOLUME NAME «, t00=0x0026, t01=0x00a8}
0x3c22…3c3a              Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0026, t01=0x00ce}
0x3c3a…3c5a              Head {h00=0x001c, h01=0x0050, text=» ADKL A1,/100 NEXT UNIT «, t00=0x0026, t01=0x00e6}
0x3c5a…3c6e              Head {h00=0x0010, h01=0x0050, text=» CWK A1,/300«, t00=0x0026, t01=0x0106}
0x3c6e…3c84              Head {h00=0x0012, h01=0x0050, text=» RB(NG) MDON30«, t00=0x0026, t01=0x011a}
0x3c84…3cb4              Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INDICATE VOLUME NAMES READ «, t00=0x0026, t01=0x0130}
0x3cb4…3cdc              Head {h00=0x0024, h01=0x0050, text=» LD A8,DWTECB,A6 GET ECB ADDRESS«, t00=0x0026, t01=0x0160}
0x3cdc…3cfe              Head {h00=0x001e, h01=0x0050, text=» RB(Z) END:15 NOREQUEST ON«, t00=0x0026, t01=0x0188}
0x3cfe…3d08              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x001a}
0x3d08…3d2a              Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTORD,A6 GET ORDER«, t00=0x0027, t01=0x0024}
0x3d2a…3d5a              Head {h00=0x002c, h01=0x0050, text=» ST A7,DWTOR,A6 RESTORE INDEX AND ORDER «, t00=0x0027, t01=0x0046}
0x3d5a…3d6e              Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0027, t01=0x0076}
0x3d6e…3d82              Head {h00=0x0010, h01=0x0050, text=» ABL MDAD:0 «, t00=0x0027, t01=0x008a}
0x3d82…3d8c              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x009e}
0x3d8c…3d96              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00a8}
0x3d96…3db6              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x0027, t01=0x00b2}
0x3db6…3dc0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00d2}
0x3dc0…3dca              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00dc}
0x3dca…3dea              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0027, t01=0x00e6}
0x3dea…3e0a              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0027, t01=0x0106}
0x3e0a…3e2a              Head {h00=0x001c, h01=0x0050, text=»*  INTERRUPT HANDLER  * «, t00=0x0027, t01=0x0126}
0x3e2a…3e4a              Head {h00=0x001c, h01=0x0050, text=»*                     * «, t00=0x0027, t01=0x0146}
0x3e4a…3e6a              Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0027, t01=0x0166}
0x3e6a…3e74              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0186}
0x3e74…3e7e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0190}
0x3e7e…3e90              Head {h00=0x000e, h01=0x0050, text=»IHMD EQU *«, t00=0x0028, t01=0x000a}
0x3e90…3eb6              Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x0028, t01=0x001c}
0x3eb6…3eda              Head {h00=0x0020, h01=0x0050, text=» LDKL A6,DWMD01 DWT ADDRESS «, t00=0x0028, t01=0x0042}
0x3eda…3ee4              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0066}
0x3ee4…3f04              Head {h00=0x001c, h01=0x0050, text=» SST A1,CUADR GET STATUS«, t00=0x0028, t01=0x0070}
0x3f04…3f2a              Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/617 MASK RETURN CODE«, t00=0x0028, t01=0x0090}
0x3f2a…3f3c              Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x0028, t01=0x00b6}
0x3f3c…3f5c              Head {h00=0x001c, h01=0x0050, text=» ANKL A2,/610 MOVE BITS «, t00=0x0028, t01=0x00c8}
0x3f5c…3f80              Head {h00=0x0020, h01=0x0050, text=» SRC A2,5 PROGRAM ERROR BIT «, t00=0x0028, t01=0x00e8}
0x3f80…3f98              Head {h00=0x0014, h01=0x0050, text=» RF(NN) IHMD30  «, t00=0x0028, t01=0x010c}
0x3f98…3fbc              Head {h00=0x0020, h01=0x0050, text=» ORKL A1,/8000 REQUEST ERROR«, t00=0x0028, t01=0x0124}
0x3fbc…3fd0              Head {h00=0x0010, h01=0x0050, text=»IHMD30 EQU *«, t00=0x0028, t01=0x0148}
0x3fd0…3ff8              Head {h00=0x0024, h01=0x0050, text=» SRL A2,3 SEEK ERROR,DATA ERROR «, t00=0x0028, t01=0x015c}
0x3ff8…400a              Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x0028, t01=0x0184}
0x400a…4032              Head {h00=0x0024, h01=0x0050, text=» ANKL A1,/8007 MASK RETURN CODE «, t00=0x0029, t01=0x0008}
0x4032…404a              Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTSAV,A6«, t00=0x0029, t01=0x0030}
0x404a…405e              Head {h00=0x0010, h01=0x0050, text=» RF(NN) GET «, t00=0x0029, t01=0x0048}
0x405e…4070              Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0029, t01=0x005c}
0x4070…4086              Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/8001«, t00=0x0029, t01=0x006e}
0x4086…40c4              Head {h00=0x003a, h01=0x0050, text=» RB(NZ) END:15 DISC UNIT NOT OPERABLE OR REQUEST ERROR«, t00=0x0029, t01=0x0084}
0x40c4…40ce              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c2}
0x40ce…40fc              Head {h00=0x002a, h01=0x0050, text=»GET LD A5,DWTA5,A6 RELOAD REGISTERS A5«, t00=0x0029, t01=0x00cc}
0x40fc…4128              Head {h00=0x0028, h01=0x0050, text=» LD A4,DWTA4,A6                  A4 «, t00=0x0029, t01=0x00fa}
0x4128…4140              Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0029, t01=0x0126}
0x4140…415a              Head {h00=0x0016, h01=0x0050, text=» ANK A7,/3F ORDER «, t00=0x0029, t01=0x013e}
0x415a…417e              Head {h00=0x0020, h01=0x0050, text=» LD A8,DWTECB,A6 ECB ADDRESS«, t00=0x0029, t01=0x0158}
0x417e…418e              Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0029, t01=0x017c}
0x418e…4198              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x018c}
0x4198…41a2              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0008}
0x41a2…41ba              Head {h00=0x0014, h01=0x0050, text=»*  TIMER POINTER«, t00=0x002a, t01=0x0012}
0x41ba…41dc              Head {h00=0x001e, h01=0x0050, text=»TIMER DATA 0 TIMER POINTER«, t00=0x002a, t01=0x002a}
0x41dc…41ee              Head {h00=0x000e, h01=0x0050, text=» IFT RAW=1«, t00=0x002a, t01=0x004c}
0x41ee…4200              Head {h00=0x000e, h01=0x0050, text=»*   BUFFER«, t00=0x002a, t01=0x005e}
0x4200…4214              Head {h00=0x0010, h01=0x0050, text=»BUFF DATA 0 «, t00=0x002a, t01=0x0070}
0x4214…4220              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0084}
0x4220…422a              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0090}
0x422a…424a              Head {h00=0x001c, h01=0x0050, text=» EJECT   DRMD01   DRMD01«, t00=0x002a, t01=0x009a}
0x424a…4254              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ba}
0x4254…425e              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00c4}
0x425e…428c              Head {h00=0x002a, h01=0x0050, text=»*   DEVICE WORK TABLE DISC UNIT NO. 1 «, t00=0x002a, t01=0x00ce}
0x428c…4296              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00fc}
0x4296…42a0              Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0106}
0x42a0…42b4              Head {h00=0x0010, h01=0x0050, text=»DWMD01 EQU *«, t00=0x002a, t01=0x0110}
0x42b4…42d0              Head {h00=0x0018, h01=0x0050, text=»DWTSAV EQU *-DWMD01 «, t00=0x002a, t01=0x0124}
0x42d0…42e0              Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x002a, t01=0x0140}
0x42e0…42fe              Head {h00=0x001a, h01=0x0050, text=» DATA /8000 DWT STATUS«, t00=0x002a, t01=0x0150}
0x42fe…431a              Head {h00=0x0018, h01=0x0050, text=» DATA 0 ECB ADDRESS «, t00=0x002a, t01=0x016e}
0x431a…4330              Head {h00=0x0012, h01=0x0050, text=» DATA 0 ORDER «, t00=0x002a, t01=0x018a}
0x4330…4356              Head {h00=0x0022, h01=0x0050, text=» DATA MDADR ACTIVATION ADDRESS«, t00=0x002b, t01=0x0010}
0x4356…4372              Head {h00=0x0018, h01=0x0050, text=» DATA 0 TTAB ADDRESS«, t00=0x002b, t01=0x0036}
0x4372…439a              Head {h00=0x0024, h01=0x0050, text=» DATA 0 WAIT/ACTIVATE INDICATOR «, t00=0x002b, t01=0x0052}
0x439a…43b8              Head {h00=0x001a, h01=0x0050, text=» DATA 0 TERMINAL QUEUE«, t00=0x002b, t01=0x007a}
0x43b8…43ce              Head {h00=0x0012, h01=0x000d, text=» IFT MMUPAG=1 «, t00=0x002b, t01=0x0098}
0x43ce…43f8              Head {h00=0x0026, h01=0x0022, text=» DATA 0 SAVE AREA USER ECB ADDRESS«, t00=0x002b, t01=0x00ae}
0x43f8…441c              Head {h00=0x0020, h01=0x0050, text=» DATA ECBMD1 MMU ECB ADDRESS«, t00=0x002b, t01=0x00d8}
0x441c…4428              Head {h00=0x0008, h01=0x0004, text=» XIF«, t00=0x002b, t01=0x00fc}
0x4428…4444              Head {h00=0x0018, h01=0x0050, text=»DWTSEC EQU *-DWMD01 «, t00=0x002b, t01=0x0108}
0x4444…4462              Head {h00=0x001a, h01=0x0050, text=» DATA 0 SECTOR NUMBER «, t00=0x002b, t01=0x0124}
0x4462…448e              Head {h00=0x0028, h01=0x0050, text=» DATA 0,0,0 SAVE AREA FOR REGISTERS «, t00=0x002b, t01=0x0142}
0x448e…44a6              Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x002b, t01=0x016e}
0x44a6…44b8              Head {h00=0x000e, h01=0x0050, text=» DATA 0,0 «, t00=0x002b, t01=0x0186}
0x44b8…44d8              Head {h00=0x001c, h01=0x0050, text=» DATA 0 ORDER SAVE AREA «, t00=0x002c, t01=0x0008}
0x44d8…44ec              Head {h00=0x0010, h01=0x0050, text=» DATA /C000 «, t00=0x002c, t01=0x0028}
0x44ec…4500              Head {h00=0x0010, h01=0x0050, text=» DATA /C000 «, t00=0x002c, t01=0x003c}
0x4500…4514              Head {h00=0x0010, h01=0x0050, text=» DATA /C000 «, t00=0x002c, t01=0x0050}
0x4514…4528              Head {h00=0x0010, h01=0x0050, text=» DATA /C000 «, t00=0x002c, t01=0x0064}
0x4528…455a              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 1«, t00=0x002c, t01=0x0078}
0x455a…458c              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 2«, t00=0x002c, t01=0x00aa}
0x458c…45be              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 3«, t00=0x002c, t01=0x00dc}
0x45be…45f0              Head {h00=0x002e, h01=0x0050, text=» DATA /FFFF,/FFFF,/FFFF VOLUME NAME UNIT 4«, t00=0x002c, t01=0x010e}
0x45f0…460c              Head {h00=0x0018, h01=0x0050, text=»DWTWE1 EQU *-DWMD01 «, t00=0x002c, t01=0x0140}
0x460c…4636              Head {h00=0x0026, h01=0x0050, text=» DATA 0 1:ST WER INSTRUCTION REG. «, t00=0x002c, t01=0x015c}
0x4636…4652              Head {h00=0x0018, h01=0x0050, text=»DWTWE2 EQU *-DWMD01 «, t00=0x002c, t01=0x0186}
0x4652…467c              Head {h00=0x0026, h01=0x0050, text=» DATA 0 2:ND WER INSTRUCTION REG. «, t00=0x002d, t01=0x0012}
0x467c…4698              Head {h00=0x0018, h01=0x0050, text=»DWTIOR EQU *-DWMD01 «, t00=0x002d, t01=0x003c}
0x4698…46c8              Head {h00=0x002c, h01=0x0050, text=» DATA 0 CIO REG: HEAD, DWTSEC,A6, ORDER «, t00=0x002d, t01=0x0058}
0x46c8…46e4              Head {h00=0x0018, h01=0x0050, text=»DWTSEK EQU *-DWMD01 «, t00=0x002d, t01=0x0088}
0x46e4…470e              Head {h00=0x0026, h01=0x0050, text=» DATA 0 SEEK REG: CYL NO AND ORDER«, t00=0x002d, t01=0x00a4}
0x470e…472a              Head {h00=0x0018, h01=0x0050, text=»DWTSFL EQU *-DWMD01 «, t00=0x002d, t01=0x00ce}
0x472a…4744              Head {h00=0x0016, h01=0x0050, text=» DATA 0 SEEK FLAG «, t00=0x002d, t01=0x00ea}
0x4744…4760              Head {h00=0x0018, h01=0x0050, text=»DWTSEN EQU *-DWMD01 «, t00=0x002d, t01=0x0104}
0x4760…477e              Head {h00=0x001a, h01=0x0050, text=» DATA 0 SECTOR COUNTER«, t00=0x002d, t01=0x0120}
0x477e…47a4              Head {h00=0x0022, h01=0x0050, text=»DWTCIO EQU *-DWMD01 CIO START «, t00=0x002d, t01=0x013e}
0x47a4…47c2              Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,DAMD1 UNIT 1«, t00=0x002d, t01=0x0164}
0x47c2…47e0              Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,DAMD2 UNIT 2«, t00=0x002d, t01=0x0182}
0x47e0…47fe              Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,DAMD3 UNIT 3«, t00=0x002e, t01=0x0010}
0x47fe…481c              Head {h00=0x001a, h01=0x0050, text=» CIO A3,1,DAMD4 UNIT 4«, t00=0x002e, t01=0x002e}
0x481c…4838              Head {h00=0x0018, h01=0x0050, text=»DWTCYL EQU *-DWMD01 «, t00=0x002e, t01=0x004c}
0x4838…486c              Head {h00=0x0030, h01=0x0050, text=» DATA 0 CYLINDER NUMBER AND SEEK ORDER CODE «, t00=0x002e, t01=0x0068}
0x486c…487c              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x009c}
0x487c…488c              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00ac}
0x488c…489c              Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x002e, t01=0x00bc}
0x489c…48b2              Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002e, t01=0x00cc}
0x48b2…48c6              Head {h00=0x0010, h01=0x0050, text=»ECBMD1 EQU *«, t00=0x002e, t01=0x00e2}
0x48c6…48e2              Head {h00=0x0018, h01=0x0050, text=» DATA 0,0,0,0,0,0,0 «, t00=0x002e, t01=0x00f6}
0x48e2…48ee              Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0112}
0x48ee…48fa              Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x002e, t01=0x011e}
0x48fa…48fe              Head {h00=0x4004, h01=0x0000}
0x48fe…4902              00 2e 01 2a                                                                                                                                                                                                                                       ┆ . *┆
0x4902…490a (47, 1, 8)   20 04 00 00 00 2f 00 04                                                                                                                                                                                                                           ┆     /  ┆
0x490a…495a (48, 0, 398) 00 07 01 8e 00 24 00 50 2a 5c 49 4e 54 45 52 54 41 53 4b 20 44 52 49 56 45 52 20 42 55 46 46 45 52 20 28 4d 4d 55 29 20 00 08 00 08 00 06 00 50 2a 20 00 08 00 30 00 10 00 50 49 54 3a 42 55 46 5c 45 51 55 5c 2a 00 08 00 3a 00 12 00 50 5c 49   ┆     $ P* INTERTASK DRIVER BUFFER (MMU)        P*    0   PIT:BUF EQU *   :   P I┆
0x495a…49aa              46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 08 00 4e 00 1e 00 50 20 5c 52 45 53 5c 44 56 42 4c 45 4e 2b 31 5c 4d 4d 55 20 42 55 46 46 45 52 20 00 08 00 64 00 08 00 50 5c 58 49 46 00 08 00 86 00 06 00 50 2a 20 00 08 00 92 00 14 00 50 5c 45 4a 45   ┆FT MMUPAG=1    N   P  RES DVBLEN+1 MMU BUFFER    d   P XIF       P*        P EJE┆
0x49aa…49fa              43 54 5c 5c 5c 44 52 49 43 30 31 20 00 08 00 9c 00 06 00 50 2a 20 00 08 00 b4 00 1a 00 50 2a 5c 41 20 43 20 54 20 49 20 56 20 41 20 54 20 49 20 4f 20 4e 20 00 08 00 be 00 06 00 50 2a 20 00 08 00 dc 00 0e 00 50 2a 5c 4f 52 44 45 52 53 3a 20   ┆CT   DRIC01        P*        P* A C T I V A T I O N        P*        P* ORDERS: ┆
0x49fa…4a4a              00 08 00 e6 00 06 00 50 2a 20 00 08 00 f8 00 10 00 50 2a 5c 2f 30 32 20 20 52 45 41 44 20 00 08 01 02 00 10 00 50 2a 5c 2f 30 36 20 20 57 52 49 54 45 00 08 01 16 00 16 00 50 2a 5c 2f 33 39 20 20 53 45 54 20 54 49 4d 45 4f 55 54 00 08 01 2a   ┆       P*        P* /02  READ        P* /06  WRITE       P* /39  SET TIMEOUT   *┆
0x4a4a…4a98              00 06 00 50 2a 20 00 08 01 44 00 18 00 50 2a 5c 45 4e 54 52 59 20 50 41 52 41 4d 45 54 45 52 53 3a 20 00 08 01 4e 00 06 00 50 2a 20 00 08 01 6a 00 1e 00 50 2a 5c 41 35 20 3d 20 53 54 41 43 4b 20 42 41 53 45 20 32 20 49 4e 20 44 57 54         ┆   P*    D   P* ENTRY PARAMETERS:    N   P*    j   P* A5 = STACK BASE 2 IN DWT┆
0x4a98…4ae8 (49, 0, 398) 00 08 01 74 00 16 00 50 2a 5c 41 36 20 3d 20 44 57 54 20 41 44 44 52 45 53 53 00 09 00 08 00 16 00 50 2a 5c 41 37 20 3d 20 4f 52 44 45 52 20 43 4f 44 45 20 00 09 00 22 00 16 00 50 2a 5c 41 38 20 3d 20 45 43 42 20 41 44 44 52 45 53 53 00 09   ┆   t   P* A6 = DWT ADDRESS       P* A7 = ORDER CODE    "   P* A8 = ECB ADDRESS  ┆
0x4ae8…4b38              00 3c 00 2a 00 50 2a 5c 41 31 32 3d 20 41 44 44 52 45 53 53 20 54 4f 20 44 52 49 56 45 52 20 41 44 44 52 45 53 53 20 42 4c 4f 43 4b 00 09 00 56 00 06 00 50 2a 20 00 09 00 84 00 0e 00 50 49 43 41 44 5c 45 51 55 5c 2a 00 09 00 8e 00 1a 00 50   ┆ < * P* A12= ADDRESS TO DRIVER ADDRESS BLOCK   V   P*        PICAD EQU *       P┆
0x4b38…4b88              5c 4c 44 52 5c 41 31 2c 41 37 5c 4f 52 44 45 52 20 43 4f 44 45 20 00 09 00 a0 00 2a 00 50 5c 4c 44 5c 41 37 2c 45 43 42 43 57 2c 41 38 5c 54 41 53 4b 20 49 44 20 4f 52 20 54 49 4d 45 20 56 41 4c 55 45 20 00 09 00 be 00 10 00 50 5c 53 55 4b   ┆ LDR A1,A7 ORDER CODE      * P LD A7,ECBCW,A8 TASK ID OR TIME VALUE        P SUK┆
0x4b88…4bd8              5c 41 31 2c 2f 30 32 20 00 09 00 ec 00 1c 00 50 5c 52 46 28 5a 29 5c 52 45 41 44 5c 52 45 41 44 20 52 45 51 55 45 53 54 00 09 01 00 00 14 00 50 5c 53 55 4b 5c 41 31 2c 2f 30 36 2d 2f 30 32 20 00 09 01 20 00 1e 00 50 5c 52 46 28 5a 29 5c 57   ┆ A1,/02        P RF(Z) READ READ REQUEST       P SUK A1,/06-/02        P RF(Z) W┆
0x4bd8…4c26              52 49 54 45 5c 57 52 49 54 45 20 52 45 51 55 45 53 54 00 09 01 38 00 14 00 50 5c 53 55 4b 5c 41 31 2c 2f 33 39 2d 2f 30 36 20 00 09 01 5a 00 20 00 50 5c 52 46 28 4e 5a 29 5c 44 49 53 3a 4f 45 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52         ┆RITE WRITE REQUEST   8   P SUK A1,/39-/06    Z   P RF(NZ) DIS:OE REQUEST ERROR┆
0x4c26…4c76 (50, 0, 400) 00 09 01 72 00 06 00 50 2a 20 00 0a 00 08 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 49 43 30 31 20 00 0a 00 12 00 06 00 50 2a 20 00 0a 00 2a 00 1e 00 50 2a 20 20 20 5c 53 20 45 20 54 20 20 20 54 20 49 20 4d 20 45 20 4f 20 55 20 54 00 0a   ┆   r   P*        P EJECT   DRIC01        P*    *   P*    S E T   T I M E O U T  ┆
0x4c76…4cc6              00 34 00 06 00 50 2a 20 00 0a 00 56 00 14 00 50 5c 53 54 5c 41 37 2c 44 57 54 49 4d 45 2c 41 36 00 0a 00 60 00 0e 00 50 5c 52 46 5c 45 4e 44 3a 49 4f 00 0a 00 78 00 06 00 50 2a 20 00 0a 00 8a 00 18 00 50 2a 5c 52 45 51 55 45 53 54 20 45 52   ┆ 4   P*    V   P ST A7,DWTIME,A6   `   P RF END:IO   x   P*        P* REQUEST ER┆
0x4cc6…4d16              52 4f 52 20 45 58 49 54 00 0a 00 94 00 06 00 50 2a 20 00 0a 00 b0 00 24 00 50 44 49 53 3a 4f 45 5c 41 42 4c 5c 44 49 53 49 4f 45 5c 52 45 51 55 45 53 54 20 45 52 52 4f 52 20 00 0a 00 ba 00 06 00 50 2a 20 00 0a 00 e2 00 14 00 50 5c 45 4a 45   ┆ROR EXIT       P*      $ PDIS:OE ABL DISIOE REQUEST ERROR        P*        P EJE┆
0x4d16…4d66              43 54 5c 5c 5c 44 52 49 43 30 31 20 00 0a 00 ec 00 06 00 50 2a 20 00 0a 01 04 00 18 00 50 2a 5c 52 45 41 44 20 52 45 51 55 45 53 54 20 45 4e 54 52 59 00 0a 01 0e 00 06 00 50 2a 20 00 0a 01 2a 00 30 00 50 52 45 41 44 5c 45 51 55 5c 2a 5c 43   ┆CT   DRIC01        P*        P* READ REQUEST ENTRY       P*    * 0 PREAD EQU * C┆
0x4d66…4db6              48 45 43 4b 20 49 46 20 41 44 44 52 45 53 53 45 44 20 52 45 51 55 45 53 54 20 4f 52 20 4e 4f 54 00 0a 01 34 00 20 00 50 5c 41 44 4b 5c 41 37 2c 30 5c 43 48 45 43 4b 20 41 44 44 52 45 53 53 20 4d 4f 44 45 00 0a 01 68 00 2e 00 50 5c 41 42 4c   ┆HECK IF ADDRESSED REQUEST OR NOT   4   P ADK A7,0 CHECK ADDRESS MODE   h . P ABL┆
0x4db6…4e06 (51, 0, 400) 28 5a 29 5c 52 44 3a 4e 41 44 5c 4e 4f 54 2d 41 44 44 52 45 53 53 45 44 20 52 45 41 44 20 52 45 51 55 45 53 54 20 00 0a 01 8c 00 06 00 50 2a 20 00 0b 00 2e 00 1a 00 50 2a 5c 57 52 49 54 45 20 52 45 51 55 45 53 54 20 45 4e 54 52 59 20 00 0b   ┆(Z) RD:NAD NOT-ADDRESSED READ REQUEST        P*    .   P* WRITE REQUEST ENTRY   ┆
0x4e06…4e56              00 38 00 06 00 50 2a 20 00 0b 00 56 00 38 00 50 57 52 49 54 45 5c 45 51 55 5c 2a 5c 43 48 45 43 4b 20 49 46 20 41 44 44 52 45 53 53 45 44 20 57 52 49 54 45 20 52 45 51 55 45 53 54 20 4f 52 20 4e 4f 54 20 00 0b 00 60 00 20 00 50 5c 41 44 4b   ┆ 8   P*    V 8 PWRITE EQU * CHECK IF ADDRESSED WRITE REQUEST OR NOT    `   P ADK┆
0x4e56…4ea6              5c 41 37 2c 30 5c 43 48 45 43 4b 20 41 44 44 52 45 53 53 20 4d 4f 44 45 00 0b 00 9c 00 2e 00 50 5c 52 46 28 5a 29 5c 57 52 3a 4e 41 44 5c 4e 4f 54 2d 41 44 44 52 45 53 53 45 44 20 57 52 49 54 45 20 52 45 51 55 45 53 54 20 00 0b 00 c0 00 06   ┆ A7,0 CHECK ADDRESS MODE     . P RF(Z) WR:NAD NOT-ADDRESSED WRITE REQUEST       ┆
0x4ea6…4ef6              00 50 2a 20 00 0b 00 f2 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 49 43 30 31 20 00 0b 00 fc 00 06 00 50 2a 20 00 0b 01 14 00 20 00 50 2a 5c 52 20 45 20 41 20 44 2c 20 41 20 44 20 44 20 52 20 45 20 53 20 53 20 45 20 44 00 0b 01 1e 00 06   ┆ P*        P EJECT   DRIC01        P*        P* R E A D, A D D R E S S E D      ┆
0x4ef6…4f46              00 50 2a 20 00 0b 01 42 00 22 00 50 2a 5c 57 20 52 20 49 20 54 20 45 2c 20 41 20 44 20 44 20 52 20 45 20 53 20 53 20 45 20 44 00 0b 01 4c 00 06 00 50 2a 20 00 0b 01 72 00 24 00 50 2a 20 20 20 5c 46 49 4e 44 20 54 54 41 42 20 4f 46 20 41 44   ┆ P*    B " P* W R I T E, A D D R E S S E D   L   P*    r $ P*    FIND TTAB OF AD┆
0x4f46…4f96 (52, 0, 400) 44 52 45 53 53 45 44 20 54 41 53 4b 00 0b 01 7c 00 06 00 50 2a 20 00 0c 00 14 00 26 00 50 5c 43 46 5c 41 31 35 2c 46 4e 44 54 49 44 5c 54 54 41 42 20 41 44 44 52 45 53 53 20 54 4f 20 41 32 20 00 0c 00 1e 00 14 00 50 5c 41 44 4b 5c 41 32 2c   ┆DRESSED TASK   |   P*      & P CF A15,FNDTID TTAB ADDRESS TO A2        P ADK A2,┆
0x4f96…4fe6              30 5c 53 45 54 20 43 52 00 0c 00 48 00 1c 00 50 5c 52 42 28 5a 29 5c 44 49 53 3a 4f 45 5c 4e 4f 54 20 46 4f 55 4e 44 20 00 0c 00 60 00 34 00 50 5c 41 44 4b 4c 5c 41 32 2c 54 54 42 3a 54 44 5c 41 44 44 52 45 53 53 20 54 4f 20 54 45 52 4d 49   ┆0 SET CR   H   P RB(Z) DIS:OE NOT FOUND    ` 4 P ADKL A2,TTB:TD ADDRESS TO TERMI┆
0x4fe6…5036              4e 41 4c 20 44 45 56 49 43 45 20 54 41 42 4c 45 00 0c 00 80 00 1c 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 32 5c 54 41 42 4c 45 20 4c 45 4e 47 54 48 00 0c 00 b8 00 24 00 50 5c 4c 44 52 5c 41 37 2c 41 31 32 5c 44 52 49 56 45 52 20 41 44 44 52 45   ┆NAL DEVICE TABLE       P LDR* A1,A2 TABLE LENGTH     $ P LDR A7,A12 DRIVER ADDRE┆
0x5036…5086              53 53 20 42 4c 4f 43 4b 00 0c 00 d8 00 36 00 50 5c 58 52 4b 5c 41 37 2c 31 5c 49 46 20 49 4e 50 55 54 2c 20 50 4f 49 4e 54 20 54 4f 20 4f 55 54 50 55 54 20 42 4c 4f 43 4b 20 41 4e 44 20 56 2e 56 2e 00 0c 01 00 00 06 00 50 2a 20 00 0c 01 3a   ┆SS BLOCK     6 P XRK A7,1 IF INPUT, POINT TO OUTPUT BLOCK AND V.V.       P*    :┆
0x5086…50d6              00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 49 43 30 31 20 00 0c 01 44 00 06 00 50 2a 20 00 0c 01 5c 00 24 00 50 2a 20 20 20 5c 46 49 4e 44 20 44 57 54 20 4f 46 20 41 44 44 52 45 53 53 45 44 20 54 41 53 4b 20 00 0c 01 66 00 06 00 50 2a 20   ┆   P EJECT   DRIC01    D   P*      $ P*    FIND DWT OF ADDRESSED TASK    f   P* ┆

Reduced view