;page	255
	.z80
	

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


	extrn	f.init,f.in,f.out,f.i.st
	extrn	ser.init,ser.instat,ser.in,ser.out
	extrn	msg.co
	

	include config.inc
	include	z180reg.inc

	cseg
;
;

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