From 39052b45cb6ad8a353c84e82b8168cbce3e61822 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 10 Aug 2021 15:11:39 -0700
Subject: [PATCH] fix reset vector on Beach Landing

---
 src/prelaunch/beach.landing.a | 52 +++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 src/prelaunch/beach.landing.a

diff --git a/src/prelaunch/beach.landing.a b/src/prelaunch/beach.landing.a
new file mode 100644
index 000000000..27fcb8ea3
--- /dev/null
+++ b/src/prelaunch/beach.landing.a
@@ -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 ", *
+}