/	SLUSH READ FOR DM II

	*200

START,	CAF
	SDN
	JMP	.-1
	SER
	NOP
	STR
	NOP
	TAD	(0526)
	LCD
	JMS	WAIT
	SZA
	HLT
	TAD	SECTOR
	JMS	WAIT
	CLA
	TAD	TRACK
	JMS	WAIT
	CLA
	SDN
	JMP	.-1
	SER
	SKP
	HLT
	TAD	(0522)
	LCD
	JMS	WAIT
	CDF	40
LOOP,	STR
	JMP	DONTST
	XDR
	DCA I	BUFPTR
	ISZ	BUFPTR
	NOP
	JMP	LOOP

DONTST,	SDN
	JMP	LOOP
	SER
	SKP
	HLT
	TAD	(7)
	TLS
	JMP I	(7600)
WAIT,	.-.
	STR
	JMP	.-1
	XDR
	JMP I	WAIT

BUFPTR,	0
TRACK,	1
SECTOR,	1

/	RX50 EQUATED SYMBOLS.

	DEVCODE=75^10+6000	/SKELETON IOT CODE OF DISK

	SEL=	DEVCODE+0	/LOAD DRIVE PAIR PER AC[11]
	LCD=	DEVCODE+1	/LOAD COMMAND REGISTER
	XDR=	DEVCODE+2	/TRANSFER DATA REGISTER
	STR=	DEVCODE+3	/SKIP ON, CLEAR TRANSFER FLAG
	SER=	DEVCODE+4	/SKIP ON, CLEAR ERROR FLAG
	SDN=	DEVCODE+5	/SKIP ON, CLEAR DONE FLAG
	INTR=	DEVCODE+6	/INTERRUPT ENABLE/DISABLE PER AC[11]
	INIT=	DEVCODE+7	/INITIALIZE CONTROLLER, RECALIBRATE DRIVES

	$