; isodigit(c) -- octal-p
	.globl	_isodigit
_isodigit:
	jsr	popax		; get the char
	cmp	#'0'		; < '0'?
	bcc	ret0		; less, return 0
	cmp	#'8'		; >= '8'?
	bcs	ret0		; yes, return 0
	lda	#1		; no, return a 1
	rts
ret0:
	txa
	rts