ff_put/ff_puth: preserve hl, don't return output char

[z180-stamp-cpm3.git] / cbios / stampf.180

\r
	public	stampf\r
\r
	maclib	z180reg.inc\r
	maclib	config.inc\r
\r
	cseg\r
stampf:\r
	dec	c\r
	jr	nz,f2\r
; c == 1:  return bios version\r
	ld	hl,0<<8 + 7	;h = major, l = minor\r
	jr	exit\r
f2:\r
	dec	c\r
	jr	nz,f3\r
; c == 2:  return bios id string\r
	ld	hl,id\r
	jr	exit\r
f3:\r
	ld	hl,0ffffh	; error\r
exit:\r
	ld	a,l\r
	ret\r
\r
id:\r
	db	"Stamp BIOS",0\r
\r
	end\r