mirror of
https://github.com/a2-4am/4cade.git
synced 2025-01-15 20:30:11 +00:00
Video Vegas reset vector
This commit is contained in:
parent
15277b1ac8
commit
9701c3f89f
66
src/prelaunch/video.vegas.a
Normal file
66
src/prelaunch/video.vegas.a
Normal file
@ -0,0 +1,66 @@
|
|||||||
|
;license:MIT
|
||||||
|
;(c) 2021 by qkumba
|
||||||
|
|
||||||
|
!cpu 6502
|
||||||
|
!to "build/PRELAUNCH/VIDEO.VEGAS",plain
|
||||||
|
*=$106
|
||||||
|
|
||||||
|
!source "src/prelaunch/common.a"
|
||||||
|
|
||||||
|
+ENABLE_ACCEL
|
||||||
|
lda #$60
|
||||||
|
sta $9E5
|
||||||
|
jsr $800 ; load "DOS"
|
||||||
|
lda #>callback1
|
||||||
|
sta $E079
|
||||||
|
lda #<callback1
|
||||||
|
sta $E078
|
||||||
|
jmp $E03A
|
||||||
|
|
||||||
|
callback1
|
||||||
|
lda #$A6
|
||||||
|
sta $3DD
|
||||||
|
lda #$FA
|
||||||
|
sta $3DE
|
||||||
|
lda #$60
|
||||||
|
sta $E0BC
|
||||||
|
jsr $E083
|
||||||
|
lda #>callback2
|
||||||
|
sta $D402
|
||||||
|
lda #<callback2
|
||||||
|
sta $D401
|
||||||
|
jsr DisableAccelerator
|
||||||
|
lda #$00
|
||||||
|
ldx #$0F
|
||||||
|
jmp $D000
|
||||||
|
|
||||||
|
callback2
|
||||||
|
jsr $D432
|
||||||
|
ldy $DFD4
|
||||||
|
lda $DFD3
|
||||||
|
beq checksec
|
||||||
|
cmp #4
|
||||||
|
bne nottrack
|
||||||
|
cpy #$0A
|
||||||
|
bne nottrack
|
||||||
|
lda #$A6
|
||||||
|
sta $A42F
|
||||||
|
lda #$FA
|
||||||
|
sta $A430
|
||||||
|
bne nottrack
|
||||||
|
|
||||||
|
checksec
|
||||||
|
cpy #$0D
|
||||||
|
bne nottrack
|
||||||
|
lda #$A6
|
||||||
|
sta $3DD
|
||||||
|
lda #$FA
|
||||||
|
sta $3DE
|
||||||
|
|
||||||
|
nottrack
|
||||||
|
clc
|
||||||
|
jmp $D403
|
||||||
|
|
||||||
|
!if * > $1C0 {
|
||||||
|
!error "code is too large, ends at ", *
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user