X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=libsrc%2Fcommon%2Fisalpha.s;h=2ab9bf269396b5625963a694fa5794ea37acb836;hb=934a78731fe1b7fc8d08814fa2321534c20fbc62;hp=624dec682ae5e61faa29e12610c70b4d5c18965b;hpb=def6300556bdac6413368874912c9c41e0343fec;p=cc65 diff --git a/libsrc/common/isalpha.s b/libsrc/common/isalpha.s index 624dec682..2ab9bf269 100644 --- a/libsrc/common/isalpha.s +++ b/libsrc/common/isalpha.s @@ -4,18 +4,18 @@ ; int isalpha (int c); ; - .export _isalpha - .include "ctype.inc" + .export _isalpha + .include "ctype.inc" _isalpha: - cpx #$00 ; Char range ok? - bne @L1 ; Jump if no - tay - lda __ctype,y ; Get character classification - and #CT_ALPHA ; Mask character bits - rts + cpx #$00 ; Char range ok? + bne @L1 ; Jump if no + tay + lda __ctype,y ; Get character classification + and #CT_ALPHA ; Mask character bits + rts -@L1: lda #$00 ; Return false - tax - rts +@L1: lda #$00 ; Return false + tax + rts