mirror of
https://github.com/a2-4am/4cade.git
synced 2024-11-23 12:33:32 +00:00
fix reset vector on Beach Landing
This commit is contained in:
parent
540312b603
commit
39052b45cb
52
src/prelaunch/beach.landing.a
Normal file
52
src/prelaunch/beach.landing.a
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
;license:MIT
|
||||||
|
;(c) 2021 by qkumba
|
||||||
|
|
||||||
|
!cpu 6502
|
||||||
|
!to "build/PRELAUNCH/BEACH.LANDING",plain
|
||||||
|
*=$106
|
||||||
|
|
||||||
|
!source "src/prelaunch/common.a"
|
||||||
|
|
||||||
|
jmp skip
|
||||||
|
|
||||||
|
callback
|
||||||
|
jsr $BD00
|
||||||
|
lda $7F
|
||||||
|
cmp #$1D
|
||||||
|
bne +
|
||||||
|
ldx #$1B
|
||||||
|
ldy $80
|
||||||
|
cpy #8
|
||||||
|
beq reset
|
||||||
|
cpy #$0B
|
||||||
|
bne +
|
||||||
|
ldx #8
|
||||||
|
ldy #$80
|
||||||
|
reset
|
||||||
|
sty vector1+2
|
||||||
|
sty vector2+2
|
||||||
|
sty vector3+2
|
||||||
|
lda #0
|
||||||
|
vector1 sta $D100,x ; SMC
|
||||||
|
rol
|
||||||
|
vector2 sta $D105,x ; SMC
|
||||||
|
lda #$A4
|
||||||
|
vector3 sta $D10A,x ; SMC
|
||||||
|
+ clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
skip
|
||||||
|
+ENABLE_ACCEL
|
||||||
|
lda #$60
|
||||||
|
sta $9E3
|
||||||
|
jsr $800 ; load "DOS"
|
||||||
|
lda #<callback
|
||||||
|
sta $B7B8
|
||||||
|
lda #>callback
|
||||||
|
sta $B7B9
|
||||||
|
+DISABLE_ACCEL
|
||||||
|
jmp $B700
|
||||||
|
|
||||||
|
!if * > $1C0 {
|
||||||
|
!error "code is too large, ends at ", *
|
||||||
|
}
|
Loading…
Reference in New Issue
Block a user