Rename dir Z180 --> z180

[z180-stamp.git] / z180 / console.180

	;page	255\r
	.z80\r
	\r
\r
	global	$coninit\r
	global	$cists,$ci\r
	global	$co\r
\r
\r
	extrn	f.init,f.in,f.out,f.i.st\r
	extrn	ser.init,ser.instat,ser.in,ser.out\r
	extrn	msg.co\r
	\r
\r
	include config.inc\r
	include	z180reg.inc\r
\r
	cseg\r
;\r
;\r
\r
$coninit:\r
	call	f.init\r
	call	ser.init\r
	ret\r
	\r
$cists:\r
	call	f.i.st\r
	ret	nz\r
	call	ser.instat\r
	ret\r
	\r
$ci:\r
	call	f.i.st\r
	jp	nz,f.in\r
	call	ser.instat\r
	jp	nz,ser.in\r
	jr	$ci\r
	\r
;$costs:\r
;	jp	f.o.st\r
	\r
$co:\r
	call	msg.co\r
	jp	ser.out\r
	\r
	end\r
\r