fix printing of integers and BASIC free bytes on startup

This commit is contained in:
Paul Gardner-Stephen committed 2019-04-28 21:36:33 +09:30
1 parent 0c05cd335f
commit 3ab4f385ac
2 files changed
+5 -9

No files matched your search

+4 -8
View File
@@ -73,12 +73,13 @@ bit_clear_hi:
dey
dey
dey
dey
dey
next_hi_bit:
asl
cpy #$7f
bcc hi_loop
;; Deal with any carries
ldx #3
carry_fix_loop:
@@ -94,15 +95,10 @@ carry_fix_loop:
bpl carry_fix_loop
post_carry:
;; Got digits.
;; Skip leading zeros, and print the resulting number
ldx #4
* lda $0100,x
dex
bpl -
;; Skip leading zeros
ldy #0
* lda $0100,y