From 49fafc46886234d9823d9592669617fc0ae512ff Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 17 May 2024 11:29:17 -0700
Subject: [PATCH] fix Pegasus II reset vector

---
 res/dsk/pegasus ii PRODOS (san inc pack).po | Bin 819200 -> 819200 bytes
 src/prelaunch/lethal.kbd.a                  |  72 ++++++++++++++++++++
 src/prelaunch/lethal.labyrnth.a             |  50 +++-----------
 3 files changed, 80 insertions(+), 42 deletions(-)
 create mode 100644 src/prelaunch/lethal.kbd.a

diff --git a/res/dsk/pegasus ii PRODOS (san inc pack).po b/res/dsk/pegasus ii PRODOS (san inc pack).po
index 354ae844631a42c51fc34afbca50a9e83d6a1fb9..d9a9027c15c4b6ce3c1f1aa5b37b3bf8f6cadbc7 100644
GIT binary patch
delta 61
zcmZo@FlqpzEsWn9nHd<DwEt{m1Y#y2W(HywAZ7((HXvpPVh$kY1Y)l3KO4E({{aAI
C(H%Pg

delta 61
zcmZo@FlqpzEsWn9nVk)$w*PEo1Y#y2W(HywAZ7((HXvpPVh$kY1Y)l3KO4E({{aAb
CvmKrQ

diff --git a/src/prelaunch/lethal.kbd.a b/src/prelaunch/lethal.kbd.a
new file mode 100644
index 000000000..a341c2fd9
--- /dev/null
+++ b/src/prelaunch/lethal.kbd.a
@@ -0,0 +1,72 @@
+;license:MIT
+;(c) 2024 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH/LETHAL.KBD",plain
+*=$300
+
+         !source "src/constants.a"   ; no code in these
+         !source "src/macros.a"
+
+         lda   #$60
+         sta   $9EA
+         jsr   $800        ; find and load "DOS"
+         lda   #<callback1
+         sta   $B748
+         lda   #>callback1
+         sta   $B749
+         jmp   $B700
+
+callback1
+         lda   #$10
+         sta   $9E52
+         lda   #1
+         sta   $9E53
+
+         lda   #<callback2
+         sta   $BD07
+         lda   #>callback2
+         sta   $BD08
+
+         +DISABLE_ACCEL
+         jmp   $9D84
+
+callback2
+         pla
+         pla
+         jsr   $BD58
+         jsr   $BD09
+         lda   $B7EC
+         cmp   #6
+         bne   ++
+         cmp   $B7ED
+         bne   +
+         +GET_MACHINE_STATUS
+         and   #CHEATS_ENABLED
+         beq   +
+         dec   $9643      ; patch - don't decrease lives
+         dec   $967B      ; patch - don't increase lives
++        clc
+         rts
+
+++       cmp   #3
+         bne   +
+         lda   #<callback3
+         sta   $38
+         lda   #<callback3
+         sta   $39
++        clc
+         rts
+
+callback3
+         lda   #$81
+         sta   $38
+         lda   #$9E
+         sta   $39
+         +READ_RAM2_NO_WRITE
+         bit   MachineStatus
+         +READ_ROM_NO_WRITE
+         lda   #'E'
+         bvs   +
+         lda   #'+'
++        rts
diff --git a/src/prelaunch/lethal.labyrnth.a b/src/prelaunch/lethal.labyrnth.a
index 4099da343..e9fa0288c 100644
--- a/src/prelaunch/lethal.labyrnth.a
+++ b/src/prelaunch/lethal.labyrnth.a
@@ -7,50 +7,16 @@
 
     !source "src/prelaunch/common.a"
 
-         +ENABLE_ACCEL
-         +NEW_RESET_VECTOR $110
-         lda   #$60
-         sta   $9EA
-         jsr   $800        ; find and load "DOS"
-         lda   #<callback1
-         sta   $B748
-         lda   #>callback1
-         sta   $B749
-         jmp   $B700
-
-callback1
-         ldx   #$00
-         stx   $9E52
-         inx
-         stx   $9E53
-
-         +READ_RAM2_NO_WRITE
-         lda   MachineStatus
-         and   #CHEATS_ENABLED
-         beq   +
-         lda   #<callback2
-         sta   $BD07
-         lda   #>callback2
-         sta   $BD08
-+
-         jsr   DisableAccelerator
+         +READ_RAM2_WRITE_RAM2
+         jsr   EnableAccelerator
+         +LOAD_FILE_AT lethal_kbd, $300
          +READ_ROM_NO_WRITE
-         jmp   $9D84
+         +NEW_RESET_VECTOR $110
+         jmp   $300
 
-callback2
-         pla
-         pla
-         jsr   $BD58
-         jsr   $BD09
-         lda   #6
-         cmp   $B7EC
-         bne   +
-         cmp   $B7ED
-         bne   +
-         dec   $9643      ; patch - don't decrease lives
-         dec   $967B      ; patch - don't increase lives
-+        clc
-         rts
+lethal_kbd
+         !byte 20
+         !text "PRELAUNCH/LETHAL.KBD"
 
 !if * > $1C0 {
   !error "code is too large, ends at ", *