menu: fadeout on load

snes/data.a65

@@ -112,3 +112,4 @@ hdma_math	.byt 0
 		.byt 0,0
 		.byt 0
 infloop		.byt 0,0  ; to be filled w/ 80 FE
+wram_fadeloop	.byt 0

snes/main.a65

@@ -146,7 +146,11 @@ setup_gfx:
 	sta infloop
 	lda #$fe
 	sta infloop+1
-
+	lda #^wram_fadeloop
+	ldx #!wram_fadeloop
+	stx $2181
+	sta $2183
+	DMA0(#$00, #$22, #^fadeloop, #!fadeloop, #$80);
 	rts
 
 tests:
@@ -283,3 +287,27 @@ snes_init:
 
 	rts
 
+fadeloop:
+	sep #$30 : .as : .xs
+	ldx #$0f
+	and #$00
+	pha
+	plb
+fadeloop_start
+	lda $4212
+	and #$80
+	bne fadeloop_start
+-	lda $4212
+	and #$80
+	bne +
+	bra -
++	txa
+	dec
+	sta $2100
+	tax
+	bne fadeloop_start
+	stz $2100
+-	bra -
+
+fadeloop_end:
+	.byt $ff

snes/menu.a65

@@ -481,7 +481,7 @@ select_file:
 	lda #$00
 	sta @$4200
 	cli
-	jsl @infloop
+	jsl @wram_fadeloop
 	rts
 
 select_dir: ; y = direntry ptr