Mercurial > repos > simple16

comparison tiletest.s16 @ 19:04fc17376999

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sort of working tile rendering and tile test ROM
author Michael Pavone <pavone@retrodev.com>
date Mon, 28 Mar 2016 23:43:31 -0700
parents
children
comparison
equal deleted inserted replaced
18:cc885122e9e3 19:04fc17376999
1
2 ;write palette entries to CRAM
3 ldim 0, r0
4 ldimh $FF, r0
5 outi 14, r0
6 ldim colors, r0
7 ldim $80, r1
8 ldimh $0, r1
9 ldim 0, r2
10 cloop:
11 ld16 r0, r2, r3
12 outi 15, r3
13 addi 2, r2
14 cmp r1, r2
15 bne cloop
16
17 ;write tile to VRAM
18 ldim 0, r2
19 outi 14, r2
20 ldim tile, r0
21 ldim 32, r1
22 tloop:
23 ld16 r0, r2, r3
24 outi 15, r3
25 addi 2, r2
26 cmp r1, r2
27 bne tloop
28
29 ;write name table entries to VRAM
30 ldim 0, r2
31 ldimh $60, r2
32 outi 14, r2
33 ;current entry
34 ldim 0, r0
35 ;increment
36 ldimh $8, r2
37 ;counter
38 ldim $00, r1
39 ldimh $7, r1
40 nloop:
41 outi 15, r0
42 add r2, r0, r0
43 addi -1, r1
44 bne nloop
45
46 ;write vscroll register
47 ldim $0, r0
48 ldimh $E6, r0
49 outi $C, r0
50 ;write hscroll register to enable display
51 ldimh $80, r0
52 outi $D, r0
53 forever:
54 bra forever
55 tile:
56 dc.l $000FFFFF
57 dc.l $E111EEEE
58 dc.l $DD222DDD
59 dc.l $CCC333CC
60 dc.l $BBBB444B
61 dc.l $AAAAA555
62 dc.l $99996669
63 dc.l $88877788
64 colors:
65 dc.w $0000, $0001, $0002, $0003
66 dc.w $0004, $0005, $0006, $0007
67 dc.w $0008, $0009, $000A, $000B
68 dc.w $000C, $000D, $000E, $000F
69
70 dc.w $0000, $0010, $0020, $0030
71 dc.w $0040, $0050, $0060, $0070
72 dc.w $0080, $0090, $00A0, $00B0
73 dc.w $00C0, $00D0, $00E0, $00F0
74
75 dc.w $0000, $0100, $0200, $0300
76 dc.w $0400, $0500, $0600, $0700
77 dc.w $0800, $0900, $0A00, $0B00
78 dc.w $0C00, $0D00, $0E00, $0F00
79
80 dc.w $0000, $0111, $0222, $0333
81 dc.w $0444, $0555, $0666, $0777
82 dc.w $0888, $0999, $0AAA, $0BBB
83 dc.w $0CCC, $0DDD, $0EEE, $0FFF
84