1
0
mirror of https://github.com/cc65/cc65.git synced 2024-11-18 15:05:14 +00:00
cc65/libsrc/common/isalpha.s
2020-02-03 20:45:09 +01:00

22 lines
541 B
ArmAsm

; isalpha.s
;
; This file is part of
; cc65 - a freeware C compiler for 6502 based systems
;
; https://cc65.github.io
;
; See "LICENSE" file for legal information.
;
; int isalpha (int c);
;
.export _isalpha
.include "ctype.inc"
.import ctype_preprocessor
_isalpha:
jsr ctype_preprocessor ; (clears always x)
bcs @L1 ; out of range? (everything already clear -> false)
and #CT_ALPHA ; mask character bits
@L1: rts