SUBTTL	BIOS RTNS
;****************************
;
;	SELECT DISK FUNCTION
;	ENTRY-	C= DRIVE #
;		E= LOGON FLAG
;
;****************************
	ENTRY	BSELDK
BSELDK:	PUSH	DE
	LD	DE,[9 * 3] - 3

BIOSE:	LD	HL,(1)
	ADD	HL,DE
	POP	DE
	JP	(HL)


;****************************
;
;	SET TRACK FUNCTION
;	ENTRY-	C= TRACK #
;
;****************************
	ENTRY	SETTRK
SETTRK:	PUSH	DE
	LD	DE,[10 * 3] - 3
	JR	BIOSE


;****************************
;
;	SET SECTOR FUNCTION
;	ENTRY-	C= SECTOR #
;
;****************************
	ENTRY	SETSEC
SETSEC:	PUSH	DE
	LD	DE,[11 * 3] - 3
	JR	BIOSE


;*********************************
;
;	SET XFER ADDR FUNCTION
;	ENTRY-	BC= XFER ADDR
;
;*********************************
	ENTRY	BSTDMA
BSTDMA:	PUSH	DE
	LD	DE,[12 * 3] - 3
	JR	BIOSE


;*********************************
;
;	READ SECTOR FUNCTION
;	EXIT -	A= 0: OK, 1: ERR
;
;*********************************
	ENTRY	RDSEC
RDSEC:	PUSH	DE
	LD	DE,[13 * 3] - 3
	JR	BIOSE


;*********************************
;
;	WRITE SECTOR FUNCTION
;	EXIT -	A= 0: OK, 1: ERR
;
;*********************************
	ENTRY	WRSEC
WRSEC:	PUSH	DE
	LD	DE,[14 * 3] - 3
	JR	BIOSE


;**************************************
;
;	SECTOR XLATE FUNCTION
;	ENTRY-	BC= LOGICAL SECTOR
;		DE= XLATE TABLE PTR
;	EXIT -	HL= PHYSICAL SECTOR
;
;**************************************
	ENTRY	SECTRN
SECTRN:	PUSH	DE
	LD	DE,[16 * 3] - 3
	JR	BIOSE


;****************************
;
;	FORMAT COMMAND STUB
;
;****************************
	ENTRY	FORMTC
FORMTC:	RET

	END