     $E6AB/59051:   Convert BCD to 2-Ascii (error message buffer)

    Jump from $E6D1:

    E6AB: AA        TAX
    E6AC: 4A        LSR
    E6AD: 4A        LSR             ; shift hi-nibble down
    E6AE: 4A        LSR
    E6AF: 4A        LSR
    E6B0: 20 B4 E6  JSR $E6B4       ; convert to ASCII
    E6B3: 8A        TXA

    Jump from $E6B0:

    E6B4: 29 0F     AND #$0F        ; erase top 4 bits
    E6B6: 09 30     ORA #$30        ; add '0'
    E6B8: 91 A5     STA ($A5),Y     ; write in buffer
    E6BA: C8        INY             ; increment buffer pointer
    E6BB: 60        RTS

        Previous Page / Next Page