Mercurial > repos > ghero

comparison directcolor.s68 @ 13:30f1d4c90900

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Get direct color sample working
author Mike Pavone <pavone@retrodev.com>
date Sun, 08 Sep 2013 12:12:41 -0700
parents 19226d79f839
children 3e2e3129a619
comparison
equal deleted inserted replaced
12:580b64af2241 13:30f1d4c90900
107 107
108 108
109 109
110 110
111 111
112 move #$2300, SR 112 ;move #$2300, SR
113 move.b #0, $a10003
114 WaitStart:
115 btst.b #5, $a10003
116 bne.s WaitStart
113 117
114 Top: 118 Top:
119 move.l #$40000000, (a5) ;Setup VRAM writes
120
115 lea BgData(pc), a0 ;set DMA source address 121 lea BgData(pc), a0 ;set DMA source address
116 move.l a0, d7 122 move.l a0, d7
117 sub.l #258, d7 123 sub.l #258, d7
118 move.w #$9500, d6 124 move.w #$9500, d6
119 ror.l #1, d7 125 ror.l #1, d7
131 137
132 move.l #$94AE9342, (a5) ;set DMA length 138 move.l #$94AE9342, (a5) ;set DMA length
133 139
134 move.w #$8F00, (a5) ;set auto-increment to 0 140 move.w #$8F00, (a5) ;set auto-increment to 0
135 141
136 move.w #$8174, (a5) 142 move.w #$8154, (a5)
137
138
139 move.l #$40000000, (a5) ;Setup VRAM writes
140 addq #1, a5 143 addq #1, a5
141 WaitVBlank: 144 WaitVBlank:
142 btst.b #3, (a5) 145 btst.b #3, (a5)
143 beq.s WaitVBlank 146 beq.s WaitVBlank
144 WaitActive: 147 WaitActive: