;ctype.h
isalpha     asl.w #1,d0
    andi #15,ccr
    bra.s quickL
iscntrl     ori #16,ccr
    roxl.w #1,d0
    ori #16,ccr
    bra.s quickL
ispunct     ori #16,ccr
    roxl.w #1,d0
    andi #15,ccr
    bra.s quickL
isdigit     asl.w #1,d0
    ori #16,ccr
    bra.s quickL
isprint     bsr.s iscntrl
    eori #4,ccr
    rts
isupper     bsr.s isalpha
    beq.s continue
    eori #4,ccr
    rts
continue    cmpi #384,d0
    blt.s done
    rts
done        ori #4,ccr
    rts
islower     bsr isalpha
    beq.s avance
    eori #4,ccr
    rts
avance      cmpi #384,d0
    bgt.s done
isgraph     moveq #3,d1
    asl.w #1,d0
    andi #15,ccr
    bra.s slowL
isalnum     moveq #2,d1
    asl.w #1,d0
    andi #15,ccr
    bra.s slowL
asciTable   dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x1111
    dc.w 0x0222
    dc.w 0x2222
    dc.w 0x2222
    dc.w 0x2222
    dc.w 0x4444
    dc.w 0x4444
    dc.w 0x4422
    dc.w 0x2222
    dc.w 0x2888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8882
    dc.w 0x2222
    dc.w 0x2888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8888
    dc.w 0x8882
    dc.w 0x2221
quickL      roxl.w #1,d0
    bftst (-66,PC){d0:1}
    eori #4,ccr
    rts
slowL       bftst (-84,PC){d0:d1}
    eori #4,ccr
    rts
isblank     asl #2,d0
    bftst (-92,PC){d0:4}
    beq quit
    cmpi #36,d0
    beq quit
    rts
quit        ori #4,ccr
    rts