From c2c90af9966b020aed04af820b87993583f59a0b Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Sun, 3 Oct 2021 19:54:49 -0700
Subject: [PATCH] Pegasus II reset vector

---
 src/prelaunch/pegasus.ii.a | 55 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 src/prelaunch/pegasus.ii.a

diff --git a/src/prelaunch/pegasus.ii.a b/src/prelaunch/pegasus.ii.a
new file mode 100644
index 000000000..141fdad3b
--- /dev/null
+++ b/src/prelaunch/pegasus.ii.a
@@ -0,0 +1,55 @@
+;license:MIT
+;(c) 2021 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH/PEGASUS.II",plain
+*=$106
+
+         !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #$60
+         sta   $9E0
+         jsr   $800       ; load "DOS"
+         lda   #>callback
+         sta   $BD08
+         lda   #<callback
+         sta   $BD07
+         +DISABLE_ACCEL
+         jmp   $B700
+
+callback
+         pla
+         pla
+         jsr   $BD3C
+         jsr   $BD09
+         ldx   #0
+         ldy   $B7ED
+         lda   $B7EC
+         beq   checksec
+         cmp   #$13
+         bne   nottrack
+         cpy   #$0B
+         bne   nottrack
+         stx   $9949
+         inx
+         stx   $994A
+         lda   #$A4
+         sta   $994B
+         clc
+         rts
+
+checksec
+         cpy   #$0C
+         bne   nottrack
+         stx   $9E52
+         inx
+         stx   $9E53
+nottrack
+
+         clc
+         rts
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}