public	stampf

	maclib	z180reg.inc
	maclib	config.inc

	cseg
stampf:
	dec	c
	jr	nz,f2
; c == 1:  return bios version
	ld	hl,0<<8 + 7	;h = major, l = minor
	jr	exit
f2:
	dec	c
	jr	nz,f3
; c == 2:  return bios id string
	ld	hl,id
	jr	exit
f3:
	ld	hl,0ffffh	; error
exit:
	ld	a,l
	ret

id:
	db	"Stamp BIOS",0

	end