upgrade to Bejeweled v2.6

This commit is contained in:
Peter Ferrie 2020-06-01 12:25:18 -07:00
parent f3e73a0925
commit e8f8139747
4 changed files with 16 additions and 7 deletions

View File

@ -143,6 +143,7 @@ SUPPORTS_SHR = %00110000
CHEATS_ENABLED = %00001000
; hacks
iProDOS_enter = $D66E
LoadFileDirect = $DAFB
launchpatch = $D613
iAddToPath = $FECC

View File

@ -9,26 +9,26 @@
+ENABLE_ACCEL
lda #<callback
sta $455C
sta $4569
lda #>callback
sta $455D
sta $456A
jmp $800 ; decompress
helper
lda $86E9
lda $86EA
cmp #$CB ; write file
bne nohelp
lda $8AFE ; write address (low)
lda $8AFF ; write address (low)
cmp #$F3 ; erasing save
beq nohelp
cmp #$F5 ; writing "valid"
beq nocall ; ignore it
cmp #$A8 ; writing options
cmp #$A9 ; writing options
beq nohelp
dec $8AFE ; write address
dec $8AFF ; write address
nohelp
jmp $D670 ; ProDOS_enter
jmp iProDOS_enter
nocall
plp

View File

@ -18,6 +18,14 @@
ipacket = first_zp ;word
buffer = first_zp+2 ;word
!if RELBASE != $2000 {
!ifdef PASS2 {
} else { ;PASS2
!if * != iProDOS_enter {
!error "iProDOS_enter=",*, ", fix constants.a"
}
}
}
ProDOS_enter
!set CloseHandles = @imp_close
stx ProDOS_savedX+1