;LEFT TO RIGHT COLOR SCROLL ROUTINE

RTOL     LDY $D9B8
         LDX #$00
FOUR     LDA $D9B9,X
         STA $D9B8,X
         STA $D9E0,X
         INX
         CPX #$27
         BNE FOUR
         STY $D9DF
         LDX #$00
         LDY #$27
ONE      LDA $D9B8,X
         STA $DAA8,Y
         STA $DAD0,Y
         INX
         DEY
         BPL ONE
         RTS
SETUP    LDX #$00
TWO      LDA CLRTBL,X
         STA $D9B8,X
         INX
         CPX #$27
         BNE TWO
         RTS
CLRTBL   .BYTE $09,$09,$0B,$0B,$08,$08
         .BYTE $05,$05,$03,$03,$0D,$0D
         .BYTE $01,$01,$0D,$0D,$03,$03
         .BYTE $05,$05,$08,$08,$0B,$0B
         .BYTE $09,$09