X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/6b81b39f9a07d5192947a7bd3a605f75fc9df475..a16ba2b0d47ac18eebbc1f9074a8b668fc312de2:/Z180/console.180

diff --git a/Z180/console.180 b/Z180/console.180
new file mode 100644
index 0000000..70169b4
--- /dev/null
+++ b/Z180/console.180
@@ -0,0 +1,48 @@
+	;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
+