
****************************************
*      Have We Got A Disc Drive	*
****************************************

;EXIT:	Carry=1 if +3 or +2A with Drive

DD_INTERFACE:
	PUSH	BC
	LD	BC,#2FFD
	IN	A,(C)
	ADD	1
	CCF
	POP	BC
	RET


;	LD	A,%00000000		;Horizontal Switch
;	LD BC,#7FFD
;	OUT	(C),A
;	LD	A,%00000100		;vertical switch
;	LD	BC,#1FFD
;	OUT	(C),A

	JP	#FC00
