From ea8105ec821e1d7f876dd39a50273f24b42d3b3d Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 20 May 2022 11:21:04 -0700
Subject: [PATCH] fix Artesians keypress-on-boot, enable cheat

---
 src/prelaunch/artesians.a | 31 +++++++++++++++++++++++++++++--
 1 file changed, 29 insertions(+), 2 deletions(-)

diff --git a/src/prelaunch/artesians.a b/src/prelaunch/artesians.a
index 0c419e9c5..bf1cf8158 100644
--- a/src/prelaunch/artesians.a
+++ b/src/prelaunch/artesians.a
@@ -1,5 +1,5 @@
 ;license:MIT
-;(c) 2021 by Frank M.
+;(c) 2021-2022 by Frank M., qkumba
 
 !cpu 6502
 !to "build/PRELAUNCH.INDEXED/ARTESIANS",plain
@@ -14,8 +14,35 @@
          sta   $87B+2
          jmp   $800       ; decompress
 
+callback1
+         lda   #<callback2
+         sta   $8E43
+         lda   #>callback2
+         sta   $8E44
+         jmp   $8E00
+
+callback2
+         lda   #0
+         sta   $A00       ; patch - don't decrease energy
+         lda   #$B0
+         sta   $1815      ; patch - don't decrease energy
+         jmp   $8E8C
+
 hook     +RESET_VECTOR $100
-         +DISABLE_ACCEL
+         +READ_RAM2_NO_WRITE
+         lda   MachineStatus
+         and   #CHEATS_ENABLED
+         beq   +
+         lda   #<callback1
+         sta   $B31F
+         lda   #>callback1
+         sta   $B320
++
+         lda   #0
+         sta   $B7F0
+         bit   $C057      ; enable hires
+         jsr   DisableAccelerator
+         +READ_ROM_NO_WRITE
          jmp   $B31B
 
 !if * > $1C0 {