upgrade Bejeweled to v2.2

This commit is contained in:
Peter Ferrie 2020-02-21 11:08:33 -08:00
parent b78f20cd03
commit ad725eec14
3 changed files with 10 additions and 15 deletions

View File

@ -9,28 +9,23 @@
+ENABLE_ACCEL
lda #<callback
sta $4491
sta $4494
lda #>callback
sta $4492
sta $4495
jmp $800 ; decompress
helper
lda $862D
lda $863B
cmp #$CB ; write file
bne nohelp
lda $8A4D ; write address
lda $8A50 ; write address (low)
cmp #$F3 ; erasing save
beq nohelp
cmp #$F5 ; writing "valid"
beq nocall ; ignore it
ldx $8A4F
dex
bne write
lda #<(callback + 2)
sta $8A4D
lda #>(callback + 2)
sta $8A4E ; point to known zero
write
dec $8A4D ; write address
cmp #$F6 ; writing options
beq nohelp
dec $8A50 ; write address
nohelp
jmp $D670 ; ProDOS_enter

View File

@ -297,7 +297,7 @@ ProDOS_enter
iny
lda blefthi
sta (ipacket), y
bcs @restore_zp ;always
bcc @restore_zp ;always
@imp_close
lda @handles+1