title	Module from library BASE_1 : TSTDIG
	name	('TSTDIG')
	maclib	baselib.lib

; Test if character in range 0 .. 9 and get binary

; Copyright (C)	Werner Cirsovius
;		Hohe Weide 44
;		D-20253 Hamburg
;		Tel.: +49-40-4223247

;		Version 1.0, August 1986

; ENTRY	Accu holds character

; EXIT	Carry reset if character in range
;	Carry set if not in range
;	Accu holds binary value on normal return
;	else accu not changed

	entry	tstdig

tstdig:
	cp	'9'+1		; Check digits
	ccf
	ret	c
	cp	'0'
	ret	c
	sub	'0'		; Strip off offset
	ret

	end