; THIS IS THE EASTER EGG

.include "snes.inc"
.include "snes_zvars.inc"

.include "graphics.inc"

.include "snesmod.inc"
.include "soundbank.inc"

BG2MAP = (0C000H/2)
.macro RenderString px, py, text, pal
	ldx	#BG2MAP + px + py * 32
	stx	REG_VMADD
	ldy	#0
	bra	:++
:	iny
	sta	REG_VMDATAL
	lda	#pal<<2
	sta	REG_VMDATAH
:	lda	text, y
	bne	:--
.endmacro	

; enter the contra command

.global run_easter_egg

	.code
	.a8
	.i16


str_easter:
	.asciiz "THIS IS THE SECRET"

;-----------------------------------------------------------
run_easter_egg:
;-----------------------------------------------------------
	lda	#80h
	sta	REG_INIDISP
	lda	#%10			;
	sta	REG_TM			; bg2 only

	lda	#80h
	sta	REG_VMAIN
	
ldx	#BG2MAP
	stx	REG_VMADD
	ldx	#1024
:	ldy	#0
	sty	REG_VMDATA
	dex
	bne	:-

	RenderString 7, 14, str_easter, 0
	

	jsr	spcStop
	
	ldx	#127
	
	jsr	spcSetModuleVolume

	ldx	#MOD_STREE
	jsr	spcLoad
	
	ldx	#0
	jsr	spcPlay
	jsr	spcFlush

	jsr	spcProcess

	wai
	lda	#0fh			;
	sta	REG_INIDISP		;
	
:	wai		; terminate snes
	nop
	nop
	jmp	:-