diff --git a/res/GAMES.CONF b/res/GAMES.CONF index 3158b2ac0..e73399d1b 100755 --- a/res/GAMES.CONF +++ b/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 diff --git a/res/TITLE.HGR/THAROLIAN.TUNLS b/res/TITLE.HGR/THAROLIAN.TUNLS new file mode 100644 index 000000000..25715d84d Binary files /dev/null and b/res/TITLE.HGR/THAROLIAN.TUNLS differ diff --git a/res/TITLE.HGR/_FileInformation.txt b/res/TITLE.HGR/_FileInformation.txt index dc8e808b0..7ba44fd6a 100644 --- a/res/TITLE.HGR/_FileInformation.txt +++ b/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) diff --git a/res/dsk/tharolian tunnels PRODOS (san inc pack).po b/res/dsk/tharolian tunnels PRODOS (san inc pack).po new file mode 100644 index 000000000..f6c6a7ba1 Binary files /dev/null and b/res/dsk/tharolian tunnels PRODOS (san inc pack).po differ diff --git a/res/notes/wishlist.txt b/res/notes/wishlist.txt index 87f81f627..def8a9422 100644 --- a/res/notes/wishlist.txt +++ b/res/notes/wishlist.txt @@ -13,7 +13,6 @@ Pegasus ][ Shuttle Intercept Super Huey Super Taxman II -Tharolian Tunnels [priority] Video Vegas //4am crack (unreleased) diff --git a/src/constants.a b/src/constants.a index 63da5ddb4..775eb215b 100644 --- a/src/constants.a +++ b/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 diff --git a/src/prelaunch/tharolian.tunls.a b/src/prelaunch/tharolian.tunls.a new file mode 100644 index 000000000..3b8bd0a60 --- /dev/null +++ b/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 $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 ", * +}