infinite lives cheat for Miner 2049er

res/GAMES.CONF

@@ -164,7 +164,7 @@
 0000,MEGABOTS
 1001,MICRO.INVADERS
 0001,MICROWAVE
-1000,MINER.2049ER
+1001,MINER.2049ER
 1001,MINER.2049.II=Miner 2049er II
 1001,MINGS.CHALLENGE=Ming's Challenge
 0001,MINIT.MAN

src/prelaunch/miner.2049er.a

@@ -0,0 +1,29 @@
+;license:MIT
+;(c) 2020 by 4am
+
+!cpu 6502
+!to "build/PRELAUNCH/MINER.2049ER",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #>callback
+         sta   $2076
+         lda   #<callback
+         sta   $2075
+         jmp   $2000      ; decompress
+
+callback
+         +GET_MACHINE_STATUS
+         and   #CHEATS_ENABLED
+         beq   +
+         lda   #$BD
+         sta   $0964      ; patch - don't decrease lives
++
+         +DISABLE_ACCEL
+         jmp   $0918
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}