;; XXXXXXXXXXXXXXXXXXXXXX

        .ORIG   x3400
        LD      R1, MAsc0        ;;Test for '0'
        ADD     R1, R0, R1
        BRn     Ret7
        BRz     Ret0

        LD      R1, M64          ;;Test with 64
        ADD     R1, R0, R1
        BRz     Ret7
        BRp     CBL

        LD      R1, MAsc7        ;;Test for '1-7'
        ADD     R1, R0, R1
        BRnz    Ret1             ;;Seems to be '1-7'

        LD      R1, MAsc9        ;;Test for '8-9'
        ADD     R1, R0, R1
        BRnz    Ret2             ;;Seems to be '8-9'
        BR      Ret7

CBL     LD      R1, MAsclcx      ;;Could be Letter
        ADD     R1, R0, R1
        BRp     Ret7

        LD      R1, AscMsk       ;;Upcase R0
        AND     R0, R0, R1

        LD      R1, M64          ;;Tests with 64
        ADD     R1, R0, R1
        BRnz    Ret7

        LD      R1, MAscF        ;;Tests for 'A-F' or 'a-f'
        ADD     R1, R0, R1
        BRnz    Ret3

        LD      R1, MAscX        ;;Test for 'X'
        ADD     R1, R0, R1
        BRz     Ret6
        BRp     Ret7             ;;Seems to be 'X'

        LD      R1, MAscL        ;;Test for Long
        ADD     R1, R0, R1
        BRn     Ret7
        BRz     Ret5             ;;Seems to be Long

        LD      R1, MAscU        ;;Test for Unsigned
        ADD     R1, R0, R1
        BRnp    Ret7

        BR      Ret4             ;;Seems to be unsigned

Ret0    AND     R0, R0, #0
        RET

Ret1    AND     R0, R0, #0
        ADD     R0, R0, #1
        RET

Ret2    AND     R0, R0, #0
        ADD     R0, R0, #2
        RET

Ret3    AND     R0, R0, #0
        ADD     R0, R0, #3
        RET

Ret4    AND     R0, R0, #0
        ADD     R0, R0, #4
        RET

Ret5    AND     R0, R0, #0
        ADD     R0, R0, #5
        RET        

Ret6    AND     R0, R0, #0
        ADD     R0, R0, #6
        RET

Ret7    AND     R0, R0, #0
        ADD     R0, R0, #7
        RET

MAsc0   .FILL   #-48
MAsc7   .FILL   #-55
MAsc9   .FILL   #-57
M64     .FILL   #-64
MAscF   .FILL   #-70
MAscL   .FILL   #-76
MAscU   .FILL   #-85
MAscX   .FILL   #-88
MAsclcx .FILL   #-120
AscMsk  .FILL   xFFDF

        .END