fix some corner cases

This commit is contained in:
Peter Ferrie 2018-06-18 22:33:41 -07:00
parent cdd806d495
commit 9fba3b0760
6 changed files with 42 additions and 26 deletions

View File

@ -96,11 +96,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00
@ -238,6 +238,10 @@ dump_info
sbc #moves_offset
ldy #moves_offset
sta (zpage_info),y
ldy #date_offset
lda #0
sta (zpage_info),y
rts
fetch_obj:

View File

@ -98,11 +98,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00
@ -244,6 +244,10 @@ dump_info
sbc #moves_offset
ldy #moves_offset
sta (zpage_info),y
ldy #date_offset
lda #0
sta (zpage_info),y
rts
fetch_obj:

View File

@ -137,11 +137,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00
@ -248,8 +248,10 @@ dump_info
sta max_chars
LDA #$10 ; location
JSR fetch_obj
LDA zp_8C
JSR decompress
lda zp_8C
bne +
rts
+ JSR decompress
lda zpage_ptr
ldy #name_offset
@ -260,6 +262,12 @@ dump_info
lda #0
sta max_chars ;can't overflow anymore
sta (zpage_info),y
ldy #score_offset
sta (zpage_info),y
ldy #moves_offset
sta (zpage_info),y
ldy #date_offset
sta (zpage_info),y
LDA #$11 ; score
JSR fetch_obj

View File

@ -174,11 +174,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00

View File

@ -176,11 +176,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00

View File

@ -172,11 +172,11 @@ quit
jsr $bf00
!byte $c5
!word c5_parms
ldx $201
inx
txa
lda $201
and #$0f
sta $200
tax
inx
stx $200
lda #$2f
sta $201
jsr $bf00