Championship Wrestling reset vector

2024-04-17 19:28:30 -07:00 · 2024-04-17 19:28:30 -07:00 · 743b33a88d
parent 9f7aeaa69f
commit 743b33a88d
1 changed files with 40 additions and 0 deletions
--- a/src/prelaunch/champ.wrestle.a
+++ b/src/prelaunch/champ.wrestle.a
@ -0,0 +1,40 @@
+;license:MIT
+;(c) 2024 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH.INDEXED/CHAMP.WRESTLE",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+
+         lda   #$60
+         sta   $9DE
+         jsr   $800       ; load "DOS"
+         lda   #$4C
+         sta   $B79C
+         lda   #<callback
+         sta   $B79D
+         lda   #>callback
+         sta   $B79E
+         +DISABLE_ACCEL
+
+         jmp   $B700
+
+callback
+         lda   $B7B3
+         cmp   #8
+         bne   +
+         lda   $B7B4
+         cmp   #6
+         bne   +
+         sta   $8400      ; reset vector to reboot
+
+         ldx   #$ff
+         txs
+         jmp   $B79F
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}