mirror of https://github.com/earok/GloomAmiga.git
46 lines
552 B
ArmAsm
46 lines
552 B
ArmAsm
|
|
||
|
main
|
||
|
move #$4000,$dff09a
|
||
|
;
|
||
|
lea lut,a0
|
||
|
lea pal,a3
|
||
|
lea dummy,a1
|
||
|
moveq #0,d4
|
||
|
;
|
||
|
.vwait move #$20,$dff09c
|
||
|
.ll btst #5,$dff01f
|
||
|
beq.s .ll
|
||
|
move #$f00,$dff180
|
||
|
move #13,d7
|
||
|
;
|
||
|
.loop moveq #119,d5
|
||
|
lsr #1,d5
|
||
|
subq #1,d5
|
||
|
bsr strip
|
||
|
dbf d7,.loop
|
||
|
;
|
||
|
move #0,$dff180
|
||
|
btst #6,$bfe001
|
||
|
bne .vwait
|
||
|
;
|
||
|
rts
|
||
|
|
||
|
strip ;
|
||
|
move.b (a0,d0),d3 ;lut entry
|
||
|
move (a3,d3*2),(a1) ;colour!
|
||
|
addx.l d1,d0
|
||
|
add.l d4,a1
|
||
|
;
|
||
|
move.b (a0,d0),d3 ;lut entry
|
||
|
move (a3,d3*2),(a1) ;colour!
|
||
|
addx.l d1,d0
|
||
|
add.l d4,a1
|
||
|
;
|
||
|
dbf d5,strip
|
||
|
;
|
||
|
rts
|
||
|
|
||
|
lut ds.b 512
|
||
|
pal ds.w 512
|
||
|
dummy ds.l 0
|