	.Z80

BDOS	EQU	5

?BDOS::
	ADD	HL,SP
	PUSH	HL
;	DEFW	0
	LD	HL,4
	ADD	HL,SP
;	LD	HL,0		;GET STACK
;	ADD	HL,SP		;STACK ADDRESS IN HL
;	LD	DE,8		;BIAS FACTOR	
;	ADD	HL,DE		;ADDRESS OF PARM 1
	LD	C,(HL)		;GET DE PARM
	INC	HL
	INC	HL		;GET BC INT
	LD	E,(HL)
	INC	HL
	LD	D,(HL)
	LD	A,E
	CALL	BDOS
;	EX	DE,HL
	JP	$RETI##
;	JP	$RETVAL##
	END
