;; #LAYOUT# STD *       #TAKE
;; #LAYOUT# CRT BASIC_1 #TAKE
;; #LAYOUT# M65 BASIC_1 #TAKE
;; #LAYOUT# *   BASIC_0 #TAKE
;; #LAYOUT# *   *       #IGNORE

;
; Check .A content, if within 0-9, A-Z ranges, sets Carry if check fails
;


is_09_AZ:

	jsr is_AZ
	bcs is_09
	rts


is_09:

	cmp #$30                                 ; if below '0' - check failed
	bcc is_alphanumeric_fail

	cmp #$3A                                 ; if above '9' - check failed
	rts


is_AZ:

	cmp #$41                                 ; if below 'A' - check failed
	bcc is_alphanumeric_fail

	cmp #$7B                                 ; if above 'Z' - check failed
	rts


is_alphanumeric_fail:

	sec
	rts
