org     $101
*; clra
*; main        sta
*; bsr hex_out
*; lda
*; inca
*; cmp #100
*; bls main
*; rts

*;----------------------------------------------------------------+
*; in:      A (byte das ausgegeben werden soll)                   |
*; out:     Hex-Darstellung ("%02x ") von by_in auf RS232,SCI     |
*; changed: A,X,                                                  |
*;----------------------------------------------------------------+

hex_out     lda     $A1
            lsra                ; Hi --> Lo
            lsra
            lsra
            lsra
            bsr     NibToHex
            lda     $A1
            and     #$0f        ;Lo Nibb
            bsr     NibToHex
            ldx     #32         ; Space
            jmp     $c77


NibToHex    add     #'0'        ; # sagt, '0' als Wert, NICHT ADRESSE!
            cmp     #'9'
            bls     fertig      ; branch if lower or same
korr        add     #7          ; '9' -> 'A'


fertig      tax
            jsr     $c77
            rts

*;----------------------- hex_out end ----------------------------