Mercurial > repos > simple16

annotate tiletest.s16 @ 48:9a3b9d86dabf

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