add Tharolian Tunnels to the collection

res/GAMES.CONF

@@ -301,6 +301,7 @@
 1000,LAST.GLADIATOR=The Last Gladiator
 1111,THE.LAST.NINJA
 0001,SPY.STRIKES.BAK=The Spy Strikes Back
+1001,THAROLIAN.TUNLS=Tharolian Tunnels
 0010,THEXDER
 0000,THIEF
 0001,THRESHOLD

res/TITLE.HGR/_FileInformation.txt

@@ -264,6 +264,7 @@ SWASHBUCKLER=Type(06),AuxType(4000),Access(C3)
 TAG.TEAM=Type(06),AuxType(4000),Access(C3)
 TAPPER=Type(06),AuxType(4000),Access(C3)
 TETRIS=Type(06),AuxType(4000),Access(C3)
+THAROLIAN.TUNLS=Type(06),AuxType(4000),Access(C3)
 THE.BILESTOAD=Type(06),AuxType(4000),Access(C3)
 THE.DAM.BUSTERS=Type(06),AuxType(4000),Access(C3)
 THE.GOONIES=Type(06),AuxType(4000),Access(C3)

res/notes/wishlist.txt

@@ -13,7 +13,6 @@ Pegasus ][
 Shuttle Intercept
 Super Huey
 Super Taxman II
-Tharolian Tunnels [priority]
 Video Vegas
 
 //4am crack (unreleased)

src/constants.a

@@ -6,7 +6,7 @@
 ; YE OLDE GRAND UNIFIED MEMORY MAP
 ;
 ; LC RAM BANK 1
-; D000..E8A3 - persistent data structures (gGlobalPrefsStore, gGamesListStore)
+; D000..E8C9 - persistent data structures (gGlobalPrefsStore, gGamesListStore)
 ; ...unused...
 ; E91D..FFF1 - main program code
 ; FFF2..FFF9 - API functions and global constants available for main program

src/prelaunch/tharolian.tunls.a

@@ -0,0 +1,40 @@
+;license:MIT
+;(c) 2020 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH/THAROLIAN.TUNLS",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #$60
+         sta   $6099
+         jsr   $6000      ; decompress
+         lda   #$4C
+         sta   $9607
+         lda   #<callback
+         sta   $9608
+         lda   #>callback
+         sta   $9609
+         +DISABLE_ACCEL
+         jsr   $60A7
+         jmp   $609C
+
+callback
+         sta   $9780
+         pha
+         +ENABLE_ACCEL
+         pla
+         jsr   $960A
+         +GET_MACHINE_STATUS
+         and   #CHEATS_ENABLED
+         beq   +
+         lda   #$ad
+         sta   $1DA0      ; patch - don't decrease lives
++        +DISABLE_ACCEL
+         rts
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}