Mercurial > repos > simple16
annotate bgcolor.s16 @ 32:8642cb2ceb89
WIP button test ROM
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sun, 03 Apr 2016 18:38:41 -0700 |
parents | cc885122e9e3 |
children | 6e7bfe83d2b0 |
rev | line source |
---|---|
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
1 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
2 ;r0 = VDP address |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
3 ;r1 = current color |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
4 ;r2 = color increment |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
5 ;r3 = target line |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
6 ;r4 = screen bottom |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
7 ;r5 = scratch |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
8 ;r6 = right edge |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
9 ;r7 = counter |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
10 ;r8 = secondary counter |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
11 ldim 248, r4 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
12 ldimh 0, r4 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
13 ;320 == $140 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
14 ldim $40, r6 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
15 ldimh 1, r6 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
16 top |
11
04d8efe7a1f0
Initial stab at video output and background color rendering. Fixed address decoding in address port write handler.
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
17 ldim 0, r0 |
04d8efe7a1f0
Initial stab at video output and background color rendering. Fixed address decoding in address port write handler.
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
18 ldimh $FF, r0 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
19 ldim 0, r1 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
20 ldim 1, r2 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
21 ldim 8, r3 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
22 ldim 16, r7 |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
23 ldim 0, r8 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
24 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
25 linestart |
11
04d8efe7a1f0
Initial stab at video output and background color rendering. Fixed address decoding in address port write handler.
Michael Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
26 outi 14, r0 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
27 waitline |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
28 ini $C, r5 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
29 cmp r5, r3 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
30 bne waitline |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
31 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
32 waithblank |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
33 ini $D, r5 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
34 cmp r5, r6 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
35 bgr waithblank |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
36 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
37 outi 15, r1 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
38 add r2, r1, r1 |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
39 addi 2, r3 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
40 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
41 addi -1, r7 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
42 bne normal |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
43 ldim 16, r7 |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
44 ldim 0, r1 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
45 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
46 addi 1, r8 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
47 cmpi 3, r8 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
48 beq cyan |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
49 cmpi 5, r8 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
50 beq magenta |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
51 cmpi 6, r8 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
52 beq grey |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
53 ;TODO: replace with lsli once it works in the assembler |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
54 add r2, r2, r2 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
55 add r2, r2, r2 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
56 add r2, r2, r2 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
57 add r2, r2, r2 |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
58 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
59 |
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
60 normal |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
61 cmp r3, r4 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
62 bcs top |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
63 bra linestart |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
64 |
18
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
65 cyan |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
66 ldim $11, r2 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
67 bra normal |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
68 magenta |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
69 ldim $01, r2 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
70 ldimh $01, r2 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
71 bra normal |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
72 grey |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
73 ldim $11, r2 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
74 ldimh $01, r2 |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
75 bra normal |
cc885122e9e3
More colors in the bgcolor sample
Michael Pavone <pavone@retrodev.com>
parents:
14
diff
changeset
|
76 |
14
769120da2c1f
Make bgcolor demo fancier
Michael Pavone <pavone@retrodev.com>
parents:
11
diff
changeset
|
77 |