;
; check a for numeric char, carry if not
; f
.qnum::	cpi	'0'
	rc
	cpi	'9'+1
	cmc
	ret