Mercurial > repos > simple16

comparison bgcolor.s16 @ 50:8e39a877c651

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Switch from RGB 444 to RGB 565 for palette entries
author Michael Pavone <pavone@retrodev.com>
date Wed, 31 Aug 2016 20:29:45 -0700
parents 6e7bfe83d2b0
children
comparison
equal deleted inserted replaced
49:5f30c4d18d79 50:8e39a877c651
17 top 17 top
18 ldim 0, r1 18 ldim 0, r1
19 ldim 1, r2 19 ldim 1, r2
20 ldim 5, r3 20 ldim 5, r3
21 ldimh 1, r3 21 ldimh 1, r3
22 ldim 16, r7 22 ldim 32, r7
23 ldim 0, r8 23 ldim 0, r8
24
25 ldim increments, r9
26 ldimh increments, r9
24 27
25 waitfirst 28 waitfirst
26 ini $C, r5 29 ini $C, r5
27 cmp r5, r3 30 cmp r5, r3
28 bne waitfirst 31 bne waitfirst
29 ldim -1, r3 32 ldim -1, r3
30 bra waithblank 33 bra waithblank
31 34
32 linestart 35 linestart
36 ld16 r9, r8, r2
33 waitline 37 waitline
34 ini $C, r5 38 ini $C, r5
35 cmp r5, r3 39 cmp r5, r3
36 bne waitline 40 bne waitline
37 41
41 bgr waithblank 45 bgr waithblank
42 46
43 outi 14, r0 47 outi 14, r0
44 outi 14, r1 48 outi 14, r1
45 add r2, r1, r1 49 add r2, r1, r1
46 addi 2, r3 50 addi 1, r3
47 51
48 addi -1, r7 52 addi -1, r7
49 bne normal 53 bne normal
50 ldim 16, r7 54 ldim 32, r7
51 ldim 0, r1 55 ldim 0, r1
52 56
53 addi 1, r8 57 addi 2, r8
54 cmpi 3, r8
55 beq cyan
56 cmpi 5, r8
57 beq magenta
58 cmpi 6, r8
59 beq grey
60 ;TODO: replace with lsli once it works in the assembler
61 add r2, r2, r2
62 add r2, r2, r2
63 add r2, r2, r2
64 add r2, r2, r2
65 58
66 59
67 normal 60 normal
68 cmp r3, r4 61 cmp r3, r4
69 bcs top 62 bcs top
70 bra linestart 63 bra linestart
71 64
72 cyan 65 increments:
73 ldim $11, r2 66 dc.w $0001
74 bra normal 67 dc.w $0040
75 magenta 68 dc.w $0800
76 ldim $01, r2 69 dc.w $0041
77 ldimh $01, r2 70 dc.w $0840
78 bra normal 71 dc.w $0801
79 grey 72 dc.w $0841
80 ldim $11, r2 73 dc.w $0841
81 ldimh $01, r2
82 bra normal
83 74
84 75
76
77