2020-01-02 17:57:03 +00:00
|
|
|
; isblank.s
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
2020-01-02 17:57:03 +00:00
|
|
|
; This file is part of
|
|
|
|
|
; cc65 - a freeware C compiler for 6502 based systems
|
|
|
|
|
;
|
2020-02-02 17:21:25 +00:00
|
|
|
; https://cc65.github.io
|
2020-01-02 17:57:03 +00:00
|
|
|
;
|
|
|
|
|
; See "LICENSE" file for legal information.
|
2000-05-28 13:40:48 +00:00
|
|
|
;
|
|
|
|
|
; int isblank (int c);
|
|
|
|
|
;
|
|
|
|
|
; cc65 (and GNU) extension.
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _isblank
|
|
|
|
|
.include "ctype.inc"
|
2020-04-02 20:58:16 +00:00
|
|
|
.import ctypemask
|
2000-05-28 13:40:48 +00:00
|
|
|
|
|
|
|
|
_isblank:
|
2020-04-02 20:58:16 +00:00
|
|
|
jsr ctypemask ; (always clears X)
|
2020-01-02 17:57:03 +00:00
|
|
|
bcs @L1 ; out of range? (everything already clear -> false)
|
|
|
|
|
and #CT_SPACE_TAB ; mask blank bit
|
2020-04-02 08:03:01 +00:00
|
|
|
@L1: rts
|
