add Mating Zone to the collection

This commit is contained in:
Peter Ferrie 2020-03-23 19:24:10 -07:00
parent 2e57e25ae4
commit c221574907
6 changed files with 27 additions and 1 deletions

View File

@ -123,6 +123,7 @@
1000,MAD.BOMBER 1000,MAD.BOMBER
1100,MARBLE.MADNESS 1100,MARBLE.MADNESS
0001,MARIO.BROS=Mario Bros. 0001,MARIO.BROS=Mario Bros.
1001,MATING.ZONE
0110,MATTERHORN=Matterhorn Screamer 0110,MATTERHORN=Matterhorn Screamer
1000,MINER.2049ER 1000,MINER.2049ER
1001,MINER.2049.II=Miner 2049er II 1001,MINER.2049.II=Miner 2049er II

BIN
res/TITLE.HGR/MATING.ZONE Normal file

Binary file not shown.

View File

@ -114,6 +114,7 @@ LOST.TOMB=Type(06),AuxType(4000),Access(C3)
MAD.BOMBER=Type(06),AuxType(4000),Access(C3) MAD.BOMBER=Type(06),AuxType(4000),Access(C3)
MARBLE.MADNESS=Type(06),AuxType(4000),Access(C3) MARBLE.MADNESS=Type(06),AuxType(4000),Access(C3)
MARIO.BROS=Type(06),AuxType(4000),Access(C3) MARIO.BROS=Type(06),AuxType(4000),Access(C3)
MATING.ZONE=Type(06),AuxType(4000),Access(C3)
MINER.2049.II=Type(06),AuxType(4000),Access(C3) MINER.2049.II=Type(06),AuxType(4000),Access(C3)
MINER.2049ER=Type(06),AuxType(4000),Access(C3) MINER.2049ER=Type(06),AuxType(4000),Access(C3)
MINGS.CHALLENGE=Type(06),AuxType(4000),Access(C3) MINGS.CHALLENGE=Type(06),AuxType(4000),Access(C3)

Binary file not shown.

View File

@ -59,7 +59,6 @@ Space Cadette
Bandits Bandits
Injured Engine Injured Engine
Jawbreaker ][ Jawbreaker ][
Mating Zone [priority]
//other //other
Battle Chess [DHGR] Battle Chess [DHGR]

View File

@ -0,0 +1,25 @@
;license:MIT
;(c) 2020 by qkumba
!cpu 6502
!to "build/PRELAUNCH/MATING.ZONE",plain
*=$106
!source "src/prelaunch/common.a"
+ENABLE_ACCEL
lda #$60
sta $6B18
jsr $495E ; decompress
+GET_MACHINE_STATUS
and #CHEATS_ENABLED
beq +
lda #$a5
sta $729F ; patch - don't decrease lives
+
+DISABLE_ACCEL
jmp $BF8
!if * > $1C0 {
!error "code is too large, ends at ", *
}