;page	255
	.z80
	

	global	$coninit
	global	$cists,$ci
	global	$co


	extrn	ser.init,ser.ist,ser.in,ser.ost,ser.out
	extrn	ff.init,ff.i.st,ff.in
	extrn	ff.o.st,ff.out
	

	include config.inc
	include	z180reg.inc

	cseg
;
;

$coninit:
	call	ff.init
	call	ser.init
	ret
	
$cists:
	call	ff.i.st
	ret	nz
	call	ser.ist
	ret
	
$ci:
	call	ff.i.st
	jp	nz,ff.in
	call	ser.ist
	jp	nz,ser.in
	jr	$ci
	
;$costs:
;	jp	f.o.st
	
$co:
	call	ff.out
	jp	ser.out
	
	end