From a16ba2b0d47ac18eebbc1f9074a8b668fc312de2 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Fri, 20 Jun 2014 23:48:39 +0200
Subject: check in Z180 subtree

---
 Z180/console.180 | 48 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100644 Z180/console.180

(limited to '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
+
-- 
cgit v1.2.3