ZAMN_SuperFamicade_xkas.asm

; Purpose: Zombies ate my Neighbors Modified HUD writer, Blood Hack, High Score Save
; Date: 09,10,12,14,20 March 2016
; Author: DackR
lorom

;variables...
!p2StartDrawn = $7e1d40 
!aVar = $7e1d42
!demoSceneChecker = $7e1d44 
!playerIndex = $7e1d46
!playerLives = $7e1d4c
!mapType = $7e1d48
!tileDefLoc = $7e5efa
!playsndsub = $80cc3b ;set A (sfxid) and jsl to this address
!lastcredit = $7e1d3e ;(last credit status for p1 and p2)

!lifeTable = $ff50
!lifeTiles = $ff70
!livesTileMap = $ffa0
!demoTileMap = $ffb0

;Indicate ROM + RAM + SRAM
org $ffd6
db $02

;2kb SRAM
org $ffd8
db $01

org $96F121
incbin .\bin\0xB7121.bin

org $8FCC00
incbin .\bin\0x7CC00_InsertCoin.bin

;life number table
org $ff50
db $00,$00,$01,$00,$02,$00,$03,$00,$04,$00,$05,$00,$06,$00,$07,$00
db $08,$00,$09,$00,$0A,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
; tiles corresponding to life numbers
;org $ff70
db $3C,$07,$00,$00,$3C,$08,$00,$00,$3C,$09,$00,$00,$3C,$0A,$00,$00
db $3C,$0B,$00,$00,$3C,$0C,$00,$00,$3C,$0D,$00,$00,$3C,$0E,$00,$00
db $3C,$0F,$00,$00,$3C,$10,$00,$00,$3C,$10,$3C,$8E,$3C,$10,$3C,$8E
; number of tiles, and tile defs for LIVES:
;org $FFA0 
db $0c,$00,$9B,$3C,$98,$3C,$A5,$3C,$94,$3C,$A2,$3C,$8F,$3C,$00,$00
; tile definition for DEMO MODE
;org $FFB0 
db $12,$00,$93,$3C,$94,$3C,$9C,$3C,$9E,$3C,$00,$00,$9C,$3C,$9E,$3C
db $93,$3C,$94,$3c,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00

; Blood hack...
org $808b89    ;PC $0B89    
lda #$13    ;#$53          
sta $2122    
lda #$00    ;#$59               
sta $2122   
lda #$0D    ;#$8a  
sta $2122    
lda #$00    ;#$34       
sta $2122   
lda #$0A    ;#$26     
sta $2122
lda #$00    ;#$1c 
sta $2122

;write blood/monster palette
org $9E9026
db $15,$00,$13,$00,$0F,$00,$0C,$00,$09,$00

;Adding some code to the HUD DMA transfer...
org $80c34a ; 44 bytes long (2C)
jml @dmahud
rep 40 : nop ;TODO: should add more nops since i've skipped the next transfer

; Hijacking death (lives--) code for hud generation
org $80cec5
jml @playerdeathentry
nop

; This is the keypress evaluation routine
org $8089b0
jml @evaluatekeys
nop
nop
;return to $8089b6

; Hijack beginning of level...
org $80866A
jml @levelentry

; Hijack 1up routine
org $80fa68
jml @oneupentry

; Palette change for 1p or 2p modes
org $80873f
jml @palchange

; Music change for 1p or 2p modes
org $82ac56
jml @musicchange

;Change press start to insert coin... conditionally... this is gonna suck
;org $80b960
;jml @gfxdma

;hijacking high score table initialization in wram...
org $82bb13
jml @makescoretable
rep 8 : nop

;hijacking high score save!
org $82bd2f
jml @xferscore
rep 2 : nop

;slight noise change... just for fun
org $809735
lda #$0026

org $82F980
p1coinupentry:
lda #$0003
sta !mapType
ldx #$0000    ;this is the player index we need
jmp @makelifemap

levelentry:
lda #$0001  ;entry point for beginning of level
sta !mapType
lda #$0000
sta !p2StartDrawn
jmp @makelifemap

playerdeathentry:
lda #$0000  ; entry point for death
sta !mapType
jmp @makelifemap

oneupentry:
phy
ldx $0e       ; this is the variable the game uses for the player index
sed           ; set decimal mode
clc           ; clear carry flag
lda $001e72,x ; load the current score
adc #$0001    ; add one (decimal mode)
sta $001e72,x ; this will force the GUI to update.. just adding 1 to score.
cld           ; turn off decimal mode
lda #$0002
sta !mapType
jmp @makelifemap

; This section actually generates the lives counter
makelifemap:
txa ; transfer the player index...
sta !playerIndex ; store the player currently being handled (0,2) [P1,P2]
cmp #$0002
bne @p1map
beq @p2map
p1map:
ldx #$0000
jmp @anymap
p2map:
ldx #$0020
jmp @anymap
anymap:
ldy #$0002 ; start reading past the number

repeatmap: ; copy the Lives: tiles to RAM
lda !livesTileMap, y 
jsr @store
;tay ;temporarily copy a->y
cpy !livesTileMap ;are we at the last tile?
bcs @numgen
rep 2 : iny
jmp @repeatmap

p1coinup:
jml @normalkeys

;generate map for lives left # here...
numgen:
txy
ldx !playerIndex       ; use current player index
lda #$0000 
cmp !playerLives, x		 ; **this is the game variable for # of lives left
beq @foundzero
sta !aVar
incloop:
lda !aVar
inc a 
cmp !playerLives, x		  ; **this is the game variable for # of lives left
beq @foundnum
sta !aVar
lda #$000a
cmp !playerLives, x		  ; **this is the game variable for # of lives left
bpl @incloop            ; number of lives less than 9 (since we haven't -- yet)
bmi @foundplus          ; number of lives is greater than 9

endmapgen:
lda #$0003 ;p1 coin-up
cmp !mapType
beq @p1coinup
lda #$0002 ;found one-up
cmp !mapType
beq @oneupinc
lda #$0000
cmp !mapType		  ; **this varaible contains 0=death, 1=lvl start
bne @levelstart   ; if this isnt generated from a death, then branch w/o --
                  ; otherwise... its a death.
isdeath:
ldx !playerIndex
lda !playerLives,x		; **this is the game variable for # of lives left
cmp #$0000
beq @isneg ; only game over if we are about to go negative
dec a			            ; --
sta !playerLives,x		; **this is the game variable for # of lives left
jml $80ceca ;Return back to the main routine

foundzero:
jmp @gameover

isneg:
jml $80ced5 ; this triggers player game over

drawp1tiles:
ldx #$0000
jml @makelifemap

drawp2tiles:
ldx #$0002
lda #$0001
sta !p2StartDrawn
jml @makelifemap

foundnum:
tyx
jsr @numstore
jmp @endmapgen

foundplus:	; Number of lives is greater than 9... kinda lazy
tyx
jsr @numstoreplus
jmp @endmapgen

levelstart:
ldx !playerIndex
lda !playerLives,x
sta !demoSceneChecker ; this is so we can tell if the lives dec without death
;check to see if we need to draw some MOAR!
lda !playerIndex
cmp #$0002
beq @drawp1tiles ;still need to do P1, yo!

;this is a check to see if p2 hud update is still needed
;check if p1 has lives...
lda !playerIndex
cmp #$0000
bne @alldonestart
lda !playerLives,x
cmp #$0000
bne @alldonestart
lda !p2StartDrawn
cmp #$0000
beq @drawp2tiles ;map up player two

alldonestart:
jml $80c2da ;back to level start

oneupinc:
;phx
;phy
;lda #$0666
;sta !aVar
;jml @startdma ;force dma transfer??
oneupdone:
ply
ldx $0e
lda $001d4c,x
jml $80fa6e

store:	; store the tile definition in WRAM
sta !tileDefLoc,x
inx
inx
rts

numstore:	; pretty much like "store", but handles numbers
dec a
dec a
adc #$3c07	; adding the value of the tile representing "0"
   			    ; clear carry because... we dont want anything extra next adc
sta !aVar
lda !mapType ; add one if we are starting the level!!
cmp #$0001
bcs @addone

lda !aVar
bra @addnone

addone:
lda !aVar
clc
adc #$0001
bra @addnone

addnone:
cmp #$3c11	; ****this might need to be modified...
bcs @numstoreplus ; if we have more than 9 now.. do 9+ 
sta !tileDefLoc,x
inx
inx
lda #$0000
sta !tileDefLoc,x
inx
inx
rts

numstoreplus:
lda #$3c10 
sta !tileDefLoc,x
inx
inx
lda #$3c8e
sta !tileDefLoc,x
inx
inx
rts

gameover:
lda !playerIndex
cmp #$0002
bne @p1go
beq @p2go
p1go:
ldx #$0000
bra @allgo
p2go:
ldx #$0020
allgo:
ldy #$0007 ;number of tiles to clear

clearstuff:
lda #$0000
jsr @store
dey
cpy #$0000
bpl @clearstuff

jmp @endmapgen


makescoretable:
lda $700010 ; this tells me if I've initialized the table before
cmp #$0666 ; check to see if the table is already written
beq @writewram ; if it exists, copy the sram table to wram

;lda #$0000
;sta $700000

ldx #$0000
ldy #$0001
lda #$07fe ; the number of bytes to clear
mvn $7070 ;clear sram

ldx #$bb2e
ldy #$0020 ;#$2064
lda #$00BC ;instead of just $95, transfer $BC
mvn $8270 ;7e

;ldx #$2064
;ldy #$0020
;lda #$00BC
;mvn $7e70

lda #$0666  ; this is the value I check for on game start
sta $700010 ; table now exists (if there is SRAM)

;CHECK IF LOROM OR HIROM
lda $700010 ; this is the LOROM SRAM location
cmp #$0666 ; check to see if the table was successfully written
beq @writewram ; if it exists, copy the sram table to wram

;THE SRAM WRITE FAILED - TRY HIROM MAPPING
lda $206010 ; this is the HIROM SRAM location for the first 8kb
cmp #$0666 ; check to see if the table is already written
beq @writehiwram ; if it exists, copy the sram table to wram

ldx #$6000 ;start source
ldy #$6001 ;start destination
lda #$07fe ; the number of bytes to clear
mvn $2020 ;clear sram

ldx #$bb2e
ldy #$6020 ;#$2064
lda #$00BC ;instead of just $95, transfer $BC
mvn $8220 ;7e

lda #$0666  ; this is the value I check for on game start
sta $206010 ; table now exists (if there is SRAM)

;CHECK TO SEE IF HIROM SRAM write was successful--!
lda $206010 ; this is the HIROM SRAM location for the first 8kb
cmp #$0666 ; check to see if the table is there
bne @nosram ; if it exists, copy the sram table to wram

writehiwram:
ldx #$6020
ldy #$2064
lda #$00BC
mvn $207e

jml $82bb2b ; back to the main init routine

writewram:
ldx #$0020
ldy #$2064
lda #$00BC
mvn $707e

jml $82bb2b ;$82bb1f ; jump back to main init routine

nosram: ;if there is no SRAM, copy the high score table from ROM to WRAM
ldx #$bb2e
ldy #$2064 ;#$2064
lda #$00BC ;instead of just $95, transfer $BC
mvn $827e ;7e

jml $82bb2b ;$82bb1f ; jump back to main init routine

lifediff:
lda #$0003
sta !mapType ;just write this so we dont waste time writing tilemap again
ldx #$0000
ldy #$0002 ; start reading past the number
repeatdemo: 
; copy the DEMO MODE tiles to RAM
lda !demoTileMap, y 
jsr @store
;tay ;temporarily copy a->y
cpy !demoTileMap ;are we at the last tile?
bcs @startdma
rep 2 : iny
jmp @repeatdemo

dmahud:
phx ;cause I dont know if it's in use...
phy ;cause I dont know if it's in use...
lda !playerIndex
cmp #$0000
bne @startdma
lda !mapType
cmp #$0001
bne @startdma
lda !playerLives
cmp !demoSceneChecker
bne @lifediff
;playerindex=0
;if maptype=1 (scene just loaded)
;check if lives match last known if there were no deaths
;if maptype is 1 and the lives dont match == demo

startdma:
ply
plx
lda #$1801	; #$01 <- 2 registers, write once
			      ; (writes to low and high register)
			      ; #$18 <- Specify B-Bus register to access..
            ; $00:2118 - (VRAM Data write register)
sta $4300 	; Write to DMA control register and Destination Channel

lda #$5efa	; *Modified* ($5f36)
sta $4302 	; DMA Transfer Source Address
			      ; (DMA control was set earlier to 2 registers, write once)
			      ; ^^Write #$36 to $4302 and #$5f to $4303

lda #$007e 	; #$7e is the bank of the source data being transferred
			      ; ^^^^ This is a WRAM bank
sta $4304  	; DMA Transfer Source Bank Register

lda #$00fc  ; <---Specifying size of transfer *Modified* (#$00c0)
sta $4305 	; DMA Transfer Size Register (Set number of bytes to transfer)

lda #$66e2 	; *Modified* (#$6440) #$6422 <-TOP of Screen
sta $2116 	; VRAM Address register 
			      ; (Because of BGmode 3, this Transfer actually writes to $CAE2...)

sep #$20  	; Set CPU flag... 8-bit mode

lda #$80  	; (1000 0000) <- Sets Address increment mode
			      ;  ^ Increments after $2119 (high byte) 
			      ;    is written to desination.
			      ;   ^^^ These 3 Bits are unused
			      ;       ^^ No address remapping
			      ;         ^^ Normal increment by one
sta $2115  	; Write #$80 (10000000) to Video Port Control 
					
lda #$01 	
sta $420b  	; Enable DMA Channel #1 (commence transfer)

rep #$30   	; Back to 16-bit mode

lda !aVar
cmp #$0666
beq @returnsub

jml $80c376
;END OF HUD WRITER CODE

returnsub:
jml @oneupdone

;COPY SCORE TO SRAM!
xferscore:
mvn $007e ;this is where I hijacked it

;save it to SRAM!
ldx #$2064
ldy #$0020
lda #$00BC
mvn $7e70

;same as old routine exit
plb
plb
rts

;we will be mixing up the palletes for some levels (co-op)
palchange:
cpx #$9060 ; should mean this is level one... maybe
beq @palswap

lda $9f0010,x
bra @palswapdone

palswap:
lda $7e1d4e
cmp #$0002
bne @changedmymind
lda #$9176
bra @palswapdone

changedmymind:
lda $9f0010,x

palswapdone:
jml $808743

musicchange:
cpx #$9060 ; should mean this is level one... maybe
beq @musicswap

lda $9f0032,x
bra @musicchangedone

musicswap:
lda $7e1d4e
cmp #$0002
bne @nomusicchange
lda #$000A
bra @musicchangedone

nomusicchange:
lda $9f0032,x

musicchangedone:
jml $82ac5a

;hyjacking the dma of most sprites, backgrounds so we can redirect certain gfx
;gfxdma:
;cpy #$0040
;beq @
;lda $15de,x ;source address, low byte, high byte
;sta $4302  
;lda $165e,x ;source address, bank byte (word form)
;sta $4304  
;sty $4305   ; y holds the size of the transfer... (looks like it depends on a different table)
;lda $16de,x ; vram address (low, high bytes)
;sta $2116   ; this is the vram address register.
;sep #$20    ;to 8-bit mode 
;lda #$01   
;sta $420b   ;enable DMA  
;rep #$20    ;16-bit mode 
;lda $16de,x 
;ora #$0100  ;possiblility of making a second copy in vram?
;sta $2116  
;sty $4305  
;sep #$20   
;lda #$01   
;sta $420b  
;rep #$20   
;inx  
;inx   
;cpx $7c
;bne @gfxdma

;phy
;lda $15de,x
;cmp #$8780
;bne @pressstart ; will add more conditions checking jumpers
                ; for now, just show...
;ldy $165e,x
;cpy #$008e
;bne @pressstart ; will add more conditions checking jumpers
                ; for now, just show...

;lda #$CC00
;sta $4302       ;source register (we are doing a conditional dma to vram)
;lda #$008F
;sta $4304       ;source bank register
;ply
;bra @coindone

;pressstart:
;ply
;lda $15de,x
;sta $4302
;lda $165e,x
;sta $4304
;
;coindone:
;jml $80b999

;Check for "Special Keypresses" while in-game
evaluatekeys:
phy
phx
sei
checkp1keys:
lda $006e       ;location for last P1 keypress
bit $62         ; $62 - Comparing the current keypress to the last keypress
bne @normalkeys ; If the value is the same as last keypress, then skip evaluation
and #$000f      ;we need the last 8 bits
cmp #$0000      ;is it zero?
beq @normalkeys ;not a coin-up, return to normal routine
and #$0001      ;now check to see if the first bit is set (other checks will be here later)
cmp #$0001      ;is coin-up bit set?
beq @ekp1coinup ;then branch to p1 coin-up eval routine 
bra @storenorm  ;store the bit value and continue processing 

ekp1coinup:
cmp !lastcredit
beq @storenorm
sed
clc
lda $001e72 ;player 1's score...
adc #$0001  ;increment by one (decimal mode)
sta $001e72 ;when this changes, it forces the HUD to update (temporary until i figure out how to trigger this otherwise)
cld

lda #$000e  ;changed sound to one used by all levels. should play consistently.
jsl !playsndsub
clc
lda $7e1d4c ;This is player 1's lives
adc #$0001  ;Coin was inserted... this will have more jumper options later
sta $7e1d4c ;store the incremented entry
;TODO: NEXT SAVE TOTAL ACTIVE CREDITS IN SRAM (to be shared between games)

jml @p1coinupentry

storenorm:
sta !lastcredit

normalkeys:
cli
plx
ply
lda $006e
ora $0070
jml $8089b6