Code: Select all
lea $20000,a0
move.w #%0000000000000001,(a0)+ ;one point blue
move.w #%0000000000000010,(a0)+ ;one point red
move.w #%0000000000000011,(a0)+ ;one point magenta
move.w #%0000001000000000,(a0)+ ;one point green
move.w #%0000001000000001,(a0)+ ;one point cyan
move.w #%0000001000000010,(a0)+ ;one point yellow
move.w #%0000001000000011,(a0)+ ;one point white
move.w #%0000000001010101,(a0)+ ;line of 4-points blue
move.w #%0000000010101010,(a0)+ ;line of 4-points red
move.w #%0000000011111111,(a0)+ ;line of 4-points magenta
move.w #%1010101000000000,(a0)+ ;line of 4-points green
move.w #%1010101001010101,(a0)+ ;line of 4-points cyan
move.w #%1010101010101010,(a0)+ ;line of 4-points yellow
move.w #%1010101011111111,(a0)+ ;line of 4-points white
clr.l d0
rts
It is a little bit better as this one of ZX Spectrum (you know what I mean) but I still do no get the reason for such decision.
And I just wanted to use "shift left" to scroll some bits...