fix Conquering Worlds reset

2024-11-26 17:49:43 +00:00 · 2022-05-20 11:42:13 -07:00 · 2022-05-20 11:42:13 -07:00 · c560d91b23
commit c560d91b23
parent ea8105ec82
1 changed files with 64 additions and 0 deletions
--- a/src/prelaunch/conquering.worlds.a
+++ b/src/prelaunch/conquering.worlds.a
@ -0,0 +1,64 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH.INDEXED/CQ",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #$60
+         sta   $A37
+         jsr   $800        ; find and load "DOS"
+         lda   #<callback1
+         sta   $B748
+         lda   #>callback1
+         sta   $B749
+         jmp   $B700
+
+callback1
+         ldx   #$00
+         stx   $9E52
+         inx
+         stx   $9E53       ; fix reset vector
+
+         lda   #<callback2
+         sta   $BD07
+         lda   #>callback2
+         sta   $BD08
+         +DISABLE_ACCEL
+         jmp   $9D84
+
+callback2
+         pla
+         pla
+         jsr   $BD5A
+         jsr   $BD09
+         lda   $BE9F
+         sta   $49
+         lda   $BE9E
+         sta   $48
+         ldy   #4
+         lda   ($48),y
+         tax
+         iny
+         lda   ($48),y
+         ldy   #1
+         cpx   #$13
+         bne   +
+         cmp   #$0E
+         bne   ++
+         sty   $985D
+         sty   $987A       ; fix reset vector
+        cpx   #6
+         bne   ++
+         cmp   #$0D
+         bne   ++
+         sty   $400E       ; fix reset vector
++       clc
+         rts
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}