[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	ser.init,ser.ist,ser.in,ser.ost,ser.out\r
	extrn	ff.init,ff.i.st,ff.in\r
	extrn	ff.o.st,ff.out\r
	\r
\r
	include config.inc\r
	include	z180reg.inc\r
\r
	cseg\r
;\r
;\r
\r
$coninit:\r
	call	ff.init\r
	call	ser.init\r
	ret\r
	\r
$cists:\r
	call	ff.i.st\r
	ret	nz\r
	call	ser.ist\r
	ret\r
	\r
$ci:\r
	call	ff.i.st\r
	jp	nz,ff.in\r
	call	ser.ist\r
	jp	nz,ser.in\r
	jr	$ci\r
	\r
;$costs:\r
;	jp	f.o.st\r
	\r
$co:\r
	call	ff.out\r
	jp	ser.out\r
	\r
	end\r
\r
Commit	Line	Data
a16ba2b0 L	1	;page 255\r
	2	.z80\r
	3	\r
	4	\r
	5	global $coninit\r
	6	global $cists,$ci\r
	7	global $co\r
	8	\r
	9	\r
30d1329e L	10	extrn ser.init,ser.ist,ser.in,ser.ost,ser.out\r
	11	extrn ff.init,ff.i.st,ff.in\r
	12	extrn ff.o.st,ff.out\r
a16ba2b0 L	13	\r
	14	\r
	15	include config.inc\r
	16	include z180reg.inc\r
	17	\r
	18	cseg\r
	19	;\r
	20	;\r
	21	\r
	22	$coninit:\r
6a4e9540	23	call ff.init\r
a16ba2b0 L	24	call ser.init\r
	25	ret\r
	26	\r
	27	$cists:\r
6a4e9540	28	call ff.i.st\r
bad2d92d	29	ret nz\r
30d1329e	30	call ser.ist\r
a16ba2b0 L	31	ret\r
	32	\r
	33	$ci:\r
6a4e9540 L	34	call ff.i.st\r
6a4e9540 L	35	jp nz,ff.in\r
30d1329e	36	call ser.ist\r
a16ba2b0 L	37	jp nz,ser.in\r
	38	jr $ci\r
	39	\r
	40	;$costs:\r
	41	; jp f.o.st\r
	42	\r
	43	$co:\r
6a4e9540	44	call ff.out\r
a16ba2b0 L	45	jp ser.out\r
	46	\r
	47	end\r
	48	\r