emucpm.z80


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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