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

+1 -1
View File
@@ -20,7 +20,7 @@ basic_cold_start:
tax
lda basic_top_of_memory_ptr+1
sbc basic_end_of_text_ptr+1
jsr print_integer
lda #$20
+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