VCOUNT equ 54283
WSYNC equ 54282
button__state__pressed equ 0
STRIG equ 644
COL__BK equ 53274
COL__PF2 equ 53272
RTCLOCK equ 20
   org $2e0
   dta a($2000)
   org $2000
;### rainbow.atl(21) 	COL'PF2,COL'BK  = c,c
   jmp _lbl4
_lbl6:
;### rainbow.atl(16) 	c:byte = lo (VCOUNT * 2 + RTCLOCK) 
   lda VCOUNT
   asl
   clc
   adc RTCLOCK
;### rainbow.atl(17) 	wait'line   
   sta WSYNC
;### rainbow.atl(18) 	COL'PF2,COL'BK  = c,c
   sta COL__PF2
   sta COL__BK
_lbl4:
;### rainbow.atl(15) until STRIG(0) = pressed
   lda STRIG-0
   cmp #button__state__pressed
   jne _lbl6
_lbl5:
   jmp _lbl5
   icl 'P:\atalan\atalan\platform\atari\atari.asm'
   icl 'P:\atalan\atalan\processor\m6502\m6502.asm'