Code:    inc      A             ; acc 1x cause of the return
         movc     A,@A+PC       ; get the code out of the table
         ret

;                 capbgefd
Table:   db       00101000b     ; 0    bit-rang  7-6-5-4-3-2-1-0
         db       01101111b     ; 1    segment c-a-p-b-g-e-f-d
         db       10100010b     ; 2
         db       00100110b     ; 3           a
         db       01100101b     ; 4          ===
         db       00110100b     ; 5       f #   # b
         db       00110000b     ; 6          =g=
         db       00101111b     ; 7       e #   # c
         db       00100000b     ; 8          === p   <- decimal
         db       00100100b     ; 9           d          point
         db       01110001b     ; A
         db       01110000b     ; B    
         db       10111000b     ; C    
         db       01100010b     ; D    
         db       10110000b     ; E    
         db       10110001b     ; F