This commit was generated by cvs2svn to compensate for changes in r2,

which included commits to RCS files with non-trunk default branches.

1 files changed, 29 insertions, 0 deletions

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