10 ;  ›20 ; RAINBOW.SRC›30 ;›40 COLRBK=$2C8; THE GRAPHICS 0 BORDER COLOR REGISTER›50 TMPCLR=$C0; A PLACE TO STORE COLORS TEMPORARILY›60 ;›70  *=$0600›80 ;›90 START LDA #$FE ; MAX COLOR VALUE›0100  STA TMPCLR›0110 ;›0120 NEWCLR LDA TMPCLR›0130  STA COLRBK›0140 ;›0150  LDX #$FF›0160 LOOPA NOP; JUST A DELAY LOOP›0170 ;›0180  LDY #$30›0190 LOOPB NOP; ANOTHER DELAY LOOP›0200  DEY ; DECREMENT Y REGISTER›0210  BNE LOOPB›0220 ;›0230  DEX ; DECREMENT X REGISTER›0240  BNE LOOPA›0250 ;›0260  DEC TMPCLR ; DCREMENT TMPCLR›0270  DEC TMPCLR ; SUBTRACT 2 FOR NEXT COLOR›0280  BNE NEWCLR ; IF NOT ZERO, CHANGE COLORS AGAIN›0290 ;›0300  JMP START; ALL COLORS DISPLAYED - NOW DO 'EM ALL AGAIN››