gb-slideshow/user.asm at master · asmotor/gb-slideshow · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
;***************************************************************************
;*
;* USER.ASM - User code goes here
;*
;* This is just a slideshow using some of the routines in my tiny library/OS
;*
;***************************************************************************

	INCLUDE	"irq.i"
	INCLUDE	"utility.i"
	INCLUDE	"hardware.i"

	IMPORT	Picture1,Picture2,Picture3,Picture4
	IMPORT	Picture5,Picture6,Picture7,Picture8
	IMPORT	Picture9,Picture10,Picture11,Picture12
	IMPORT	Picture13,Picture14,Picture15;,Picture16

	SECTION	"User",CODE


UserMain::
	; set up my VBlank interrupt

	xor	a,a
	ld	b,BANK(MyVBInt)
	ld	de,MyVBInt
	call	irq_Set

	; fade down the Nintendo logo (hey it looks cool. no, really)

	call	FadeNintendo

	; let's have a slideshow shall we?

.loop	lcall	Picture1
	call	TEST
	lcall	Picture2
	call	TEST
	lcall	Picture3
	call	TEST
	lcall	Picture4
	call	TEST
	lcall	Picture5
	call	TEST
	lcall	Picture6
	call	TEST
	lcall	Picture7
	call	TEST
	lcall	Picture8
	call	TEST
	lcall	Picture9
	call	TEST
	lcall	Picture10
	call	TEST
	lcall	Picture11
	call	TEST
	lcall	Picture12
	call	TEST
	lcall	Picture13
	call	TEST
	lcall	Picture14
	call	TEST
	lcall	Picture15
	call	TEST
;	lcall	Picture16
;	call	TEST
	jp	.loop

; --
; -- TEST logo fader
; --

TEST:	ld	hl,FadeStruct
	xor	a,a
	ld	[hl+],a
	ld	a,%11100100	;our palette
	ld	[hl+],a
	call	fade_Init
	xor	a,a
	call	gbi_VBlank
.fade	call	WaitVB
	ld	hl,FadeStruct
	call	fade_Process
	call	gbi_VBlank
	ld	hl,FadeStruct
	call	fade_Increase
	cp	a,$40
	jr	nz,.fade

.waitbutton	call	WaitVB
	ld	a,%11100100	;our palette
	call	gbi_VBlank
	call	pad_Read
	ld	a,[_PadDataEdge]
	and	a,PADF_A
	cp	a,0
	jr	z,.waitbutton

.fade_down	call	WaitVB
	ld	hl,FadeStruct
	call	fade_Process
	call	gbi_VBlank
	ld	hl,FadeStruct
	call	fade_Decrease
	cp	a,$0
	jr	nz,.fade_down
	ret


; --
; -- Nintendo logo fader
; --

FadeNintendo:	ld	hl,FadeStruct
	ld	a,$40
	ld	[hl+],a
	ld	a,%11111100
	ld	[hl+],a
	call	fade_Init

.fade	call	WaitVB
	ld	hl,FadeStruct
	call	fade_Process
	ld	[_HW+rBGP],a
	ld	hl,FadeStruct
	xor	a,a
	cp	a,[hl]
	ret	z
	call	fade_Decrease
	jr	.fade
	ret

; --
; -- VBlank stuff
; --

WaitVB:	xor	a,a
	ldio	[oVBlank],a
.wait	ldio	a,[oVBlank]
	cp	a,0
	jr	z,.wait
	ret

MyVBInt:	ld	hl,oVBlank
	inc	[hl]
	ret


; --
; -- Variables
; --

	SECTION	"UserVars",HRAM

oVBlank:	DS	1
FadeStruct:	DS	fd_SIZEOF