public _callbio
_callbio:
	sp <= de
	hl = 4 + sp
	de =^ hl
	hl +1
	bc =^ hl
	hl +1
	hl =a^ hl
	sp <= hl
	hl = *1
	hl -1-1-1
	hl + de
	a = e
	a::0x1b
	jz no
	a::0x30
no:
	sp => de
	sp <= af
	call pchl
	c = a
	a + a -^ a
	b = a
	sp => af
	sp => de
	rnz
	bc = hl
	ret
pchl:
	jmp *hl


public _bioset

_bioset:
	/
	de => sp;
	call *0xf252;
	de <= sp;
	ret;
	/

CGETPARM := 31
CSELECT := 14
DRIVEA := 0;

public _findspt

_findspt:
	/
	de => sp;

	c = CSELECT; e = DRIVEA; call *5;
	c = CGETPARM;  call *5;

	de <= sp;

	bc = (hl =a^ hl);
	ret;
	/