cda print_number - support for 0-255

This commit is contained in:
Kelvin Sherlock 2021-12-19 20:16:52 -05:00
parent 279f424cee
commit 02c6e1271c

View File

@ -417,34 +417,64 @@ print_on_off
:off asc "off",00
print_number
debug print_number
*
* print a base-10 number, 0-255
* a = #
mx %10
cmp #20
bcs :2
ldx #0
:100
cmp #100
bcc :10x
inx
* sec
sbc #100
bra :100
:10x
cpx #0
beq :10
pha
txa
* clc
* adc #"0"
ora #"0"
sta |$0,y
iny
pla
ldx #0
:10
cmp #10
bcs :1
:0 ora #"0"
bcc :1x
inx
sbc #10
bra :10
:1x
cpx #0
beq :1
pha
txa
* clc
* adc #"0"
ora #"0"
sta |$0,y
iny
pla
:1
* clc
* adc #"0"
ora #"0"
sta |$0,y
iny
rts
:2 pha
lda #"2"
sta |$0,y
iny
pla
sec
sbc #20
bra :0
:1 pha
lda #"1"
sta |$0,y
iny
pla
sec
sbc #10
bra :0
print_binary
mx %10
* pha