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