40 lines
654 B
ArmAsm
40 lines
654 B
ArmAsm
// #LAYOUT# STD * #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
|