From f4d5b4febbffab80cb06bd18564d4c326756fad7 Mon Sep 17 00:00:00 2001
From: Leo C
Date: Wed, 2 Jul 2014 14:33:22 +0200
Subject: Rename dir Z180 --> z180

---
 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