2 ; 1998-06-02, Ullrich von Bassewitz
3 ; 2014-09-10, Greg King
12 cpx #>$0000 ; Char range OK?
15 lda __ctype,y ; Get character classification
16 and #CT_NOT_PUNCT ; Mask relevant bits
17 cmp #1 ; If false, then set "borrow" flag
20 rts ; Return NOT (space | control | digit | alpha)
22 @L1: lda #<0 ; Return false