Код:
_scrollColorLeft:
ldy #0
colCopyLeft:
lda COL_MEM + $0001 + 000,x
sta COL_MEM + $0000 + 000,x
lda COL_MEM + $0001 + 040,x
sta COL_MEM + $0000 + 040,x
lda COL_MEM + $0001 + 080,x
sta COL_MEM + $0000 + 080,x
lda COL_MEM + $0001 + 120,x
sta COL_MEM + $0000 + 120,x
lda COL_MEM + $0001 + 160,x
sta COL_MEM + $0000 + 160,x
lda COL_MEM + $0001 + 200,x
sta COL_MEM + $0000 + 200,x
lda COL_MEM + $0001 + 240,x
sta COL_MEM + $0000 + 240,x
lda COL_MEM + $0001 + 280,x
sta COL_MEM + $0000 + 280,x
lda COL_MEM + $0001 + 320,x
sta COL_MEM + $0000 + 320,x
lda COL_MEM + $0001 + 360,x
sta COL_MEM + $0000 + 360,x
lda COL_MEM + $0001 + 400,x
sta COL_MEM + $0000 + 400,x
lda COL_MEM + $0001 + 440,x
sta COL_MEM + $0000 + 440,x
lda COL_MEM + $0001 + 480,x
sta COL_MEM + $0000 + 480,x
lda COL_MEM + $0001 + 520,x
sta COL_MEM + $0000 + 520,x
lda COL_MEM + $0001 + 560,x
sta COL_MEM + $0000 + 560,x
lda COL_MEM + $0001 + 600,x
sta COL_MEM + $0000 + 600,x
lda COL_MEM + $0001 + 640,x
sta COL_MEM + $0000 + 640,x
lda COL_MEM + $0001 + 680,x
sta COL_MEM + $0000 + 680,x
lda COL_MEM + $0001 + 720,x
sta COL_MEM + $0000 + 720,x
lda COL_MEM + $0001 + 760,x
sta COL_MEM + $0000 + 760,x
lda COL_MEM + $0001 + 800,x
sta COL_MEM + $0000 + 800,x
lda COL_MEM + $0001 + 840,x
sta COL_MEM + $0000 + 840,x
lda COL_MEM + $0001 + 880,x
sta COL_MEM + $0000 + 880,x
inx
inx
inx
inx
iny
cpy #10
beq colCopyLeftEnd
jmp colCopyLeft
colCopyLeftEnd:
rts