	TAD KCIDF	/BUILD CIDF FOR RETURN
	DCA CALLRET	/STUFF IT FOR EXIT
	CLA CLL CML RAR	/AC=4000 (READ WRITE MASK)
	AND I WA	/GET READ/WRITE BIT
	CLL IAC RTL	/4 IF READ  5 IF WRITE
	RAL		/10 IF READ  12 IF WRITE
	DCA RWCOM	/STUFF IT
	TAD I WA	/GET PAGE BITS
	AND K3700	/MASK PAGE BITS
	SNA		/SKIP IF NOT MAX
	CLA CLL CML RAR	/USE 40 SECT VALUE
	BSW
	DCA SCTCNT	/STUFF SECTOR COUNT
	TAD I WA	/GET FUNCTION WORD
	AND K70		/JUST THE FIELD
	CLL RTR
	RAR		/TO BITS 9-11
	DCA TRFLD	/STUFF FIELD (BANK ALWAYS 0)
	ISZ	WA	/BUMP POINTER TO TXFER ADD
	TAD I WA	/GET TXFER ADD
	DCA TRAD	/STUFF TXFER ADD
	ISZ WA		/BUMP POINTER TO RECORD #
	TAD I WA	/GET RECORD #
	RAL		/MAKE IT A SECTOR #
	DCA SECTLO	/STUFF SECT LO
	TAD SECTLO	/GET IT BACK
	AND TSTKBD+1    /MASK IT (7600)
	RTR		/LINK HAD MSB OF SECT
	BSW		/MOST SIG SECT TO LO SIDE
	TAD SECTMD	/ADD IN OFFSET
	DCA SECTMD	/PUT IT BACK
	ISZ WA		/BUMP TO ERROR RETURN
	JMS LOC8	/WHERE ARE WE
LOC8,	.-.		/STUFFED WITH OUR VERY OWN PC
	TAD LOC8	/GET OUR PC
	TAD COMPTR	/ADJUST IT TO COMMAND TABLE
	DCA LOC8	/SAVE IT (ADD OF COMMAND TABLE)
/
/ARE WE RUNNING ON SBC8 OR MDC8?
/
	CLA CLL CML RTR	/AC=2000 LINK=0
	R3L		/ROTATE 3 LEFT IF RUNNING ON SBC8
	RTR		/AC=0 IF RUNNING ON SC
	SZA CLA		/ARE WE ON SBC8?
	JMP MDC		/NO
	JMS TSTKBD	/CHK FOR CONT C BEFORE GOING TO PANE    M 
	CDF 00		/DATA FIELD TO HERE
	TAD LOC8	/ADJUST POINTER FOR SBC
	PR0		/PANEL REQ 0 (GO T   ANEL MEM)
	JMP ERR		/ERROR RETURN
	CLA CLL		/CLEAN UP
\,Mt,|Hz@,H}L8-H|!(L%\KDJ
8    T  OF TABLE PLUS BIT FOR DMA TXFER
RWCOM,	.-.		/READ OR WRITE
DRVUNT,	UNIT		/UNIT NUMBER X 3 
SECTMD,	.-.
SECTLO,	.-.
SCTCNT,	.-.
CONT,	0		/CONTROL WORD
TRFLD,	.-.		/BANK AND FIELD
TRAD,	.-.		/TRANSFER ADD
/
OFFSET,	OFST		/SECTOR # OFFSET
	$