41 lines
677 B
ArmAsm
41 lines
677 B
ArmAsm
;; #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
|