; iswhite(c) -- whitespace-p
	.globl	_iswhite
_iswhite:
	jsr	popax		; get the char
	and	#$7F		; mask hi bit
	beq	ret0
	cmp	#$21		; <= space?
	bcc	ret1		; less, return 1
	cmp	#$7F		; >= rubout?
	bcs	ret1		; yes, return 1
ret0:
	txa			; no, return a 0
	rts
ret1:
	lda	#1
	rts