Mercurial > repos > simple16
comparison bgcolor.s16 @ 50:8e39a877c651
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 |