Mercurial > repos > simple16

comparison controller.s16 @ 35:5a5e02d1acf1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
No need to initialize name table with starting values other than zero as we copy the relevant parts during VBlank anyway
author Michael Pavone <pavone@retrodev.com>
date Sun, 03 Apr 2016 20:51:23 -0700
parents 4a093f15fb1b
children 44c057a640b2
comparison
equal deleted inserted replaced
34:4a093f15fb1b 35:5a5e02d1acf1
22 22
23 ;copy 3 colors for 2nd palette 23 ;copy 3 colors for 2nd palette
24 ldim 3, r3 24 ldim 3, r3
25 call r12, r13 25 call r12, r13
26 26
27 ;setup writes for first map row 27
28 ldim 0, r0 28 ;zero out name table
29 ldimh $60, r0 29 ldim $00, r0
30 ldim $60, r0
30 outi $E, r0 31 outi $E, r0
31 32
32 ldim write_zeros, r11 33 ldim write_zeros, r11
33 ldimh write_zeros, r11 34 ldimh write_zeros, r11
34 ;offset by one row and two columns 35 ldim 0, r3
35 ldim 66, r3 36 ldimh $20, r3
36 call r11, r13 37 call r11, r13
37
38 ldim 3, r5
39 row_loop:
40 ;copy 9 table entries for first row
41 ldim 9, r3
42 call r12, r13
43
44 ;zero out rest of row
45
46 ldim 55, r3
47 call r11, r13
48
49 addi -1, r5
50 bne row_loop
51 38
52 ;setup writes to tile data area 39 ;setup writes to tile data area
53 ldim 0, r0 40 ldim 0, r0
54 outi $E, r0 41 outi $E, r0
55 42
220 dc.w $333 207 dc.w $333
221 ;second palette 208 ;second palette
222 dc.w $000 209 dc.w $000
223 dc.w $FFF 210 dc.w $FFF
224 dc.w $00F 211 dc.w $00F
212 tiles:
213 incbin buttons.tiles
225 map: 214 map:
226 dc.w 0, 1, 0, 0, 0, 0, 0, 0, 0 215 dc.w 0, 1, 0, 0, 0, 0, 0, 0, 0
227 dc.w 3, 0, 4, 0, 5, 0, 7, 8, 9 216 dc.w 3, 0, 4, 0, 5, 0, 7, 8, 9
228 dc.w 0, 2, 0, 0, 6, 0, 10, 11, 12 217 dc.w 0, 2, 0, 0, 6, 0, 10, 11, 12
229 218
230 tiles:
231 incbin buttons.tiles