Mercurial > repos > simple16

annotate bgcolor.s16 @ 29:5a8b5f9fc50a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added incbin directive to assembler
author Michael Pavone <pavone@retrodev.com>
date Sun, 03 Apr 2016 18:37:01 -0700
parents cc885122e9e3
children 6e7bfe83d2b0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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