cc65/libsrc/common/iscntrl.s

;
; Ullrich von Bassewitz, 02.06.1998
;
; int iscntrl (int c);
;

        .export         _iscntrl
        .include        "ctype.inc"

_iscntrl:
        cpx     #$00            ; Char range ok?
        bne     @L1             ; Jump if no
        tay
        lda     __ctype,y       ; Get character classification
        and     #CT_CTRL        ; Mask control character bit
        rts

@L1:    lda     #$00            ; Return false
        tax
        rts
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00			`;`
			`; Ullrich von Bassewitz, 02.06.1998`
			`;`
			`; int iscntrl (int c);`
			`;`

Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`.export _iscntrl`
			`.include "ctype.inc"`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
			`_iscntrl:`
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`cpx #$00 ; Char range ok?`
			`bne @L1 ; Jump if no`
			`tay`
			`lda __ctype,y ; Get character classification`
			`and #CT_CTRL ; Mask control character bit`
			`rts`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00
Removed (pretty inconsistently used) tab chars from source code base. 2013-05-09 11:56:54 +00:00			`@L1: lda #$00 ; Return false`
			`tax`
			`rts`
This commit was generated by cvs2svn to compensate for changes in r2, which included commits to RCS files with non-trunk default branches. git-svn-id: svn://svn.cc65.org/cc65/trunk@3 b7a2c559-68d2-44c3-8de9-860c34a00d81 2000-05-28 13:40:48 +00:00