From 87ace20633ba711243e336630e2c9a8546516598 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Sun, 20 Aug 2006 17:39:42 +0000
Subject: This commit was generated by cvs2svn to compensate for changes in r2,
 which included commits to RCS files with non-trunk default branches.

---
 emucpm.z80 | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 emucpm.z80

(limited to 'emucpm.z80')

diff --git a/emucpm.z80 b/emucpm.z80
new file mode 100644
index 0000000..befecee
--- /dev/null
+++ b/emucpm.z80
@@ -0,0 +1,29 @@
+;
+; Quick hack to emulate some CPM bdos calls (well, enough to make it work)
+;
+	org	0
+	halt
+
+	org	5
+	jp	cpm
+
+	org $ff00
+cpm:
+	ld	a,9
+	cp	c
+	jr	z,print_string
+	ld	a,2
+	cp	c
+	jr	z,print_char
+	ret
+
+print_string:
+	ld	bc,$0082
+	out	(c),a
+	ret
+
+print_char:
+	ld	a,e
+	ld	bc,$0080
+	out	(c),a
+	ret
-- 
cgit v1.2.3