org $2000


start
;    lda #3 ; open graphics 8 mode (320x200)
;    jsr $ef9c ; openmode=$ef9c

;	jmp *
;	iny ; $C8
;	dey ; $C8

;AUDF1       equ $D200
;POT1        equ $D201
;AUDC1       equ $D201
;POT2        equ $D202
;AUDF2       equ $D202
;POT3        equ $D203
;AUDC2       equ $D203
;POT4        equ $D204
;AUDF3       equ $D204
;POT5        equ $D205
;AUDC3       equ $D205
;POT6        equ $D206
;AUDF4       equ $D206
;POT7        equ $D207
;AUDC4       equ $D207
;ALLPOT      equ $D208
;AUDCTL      equ $D208

            ldx #$00
            stx $D208
            lda #$A1
            sta $D201
            sta $D203
            lda #$FF
            sta $D200
            lda #$FE
            sta $D202

	lda #<homer_dl
	sta $230

	lda #>homer_dl
	sta $231

; generate lut for shift
tab1	equ $1500
	ldy #0
gen_ff
	lda #0
	sta $EB
	sty $EC

	asl $EC
	rol $EB

	asl $EC
	rol $EB

	lda $EC
	sta tab1,y ; scroll YYYYYY..
	lda $EB
	sta tab1+256,y ; rest ......xX

	iny
	bne gen_ff

zg_lp
wait_frame
RTCLOK      equ $0012
      lda RTCLOK+2
waits
      cmp RTCLOK+2
       beq waits

; moveup
mu
	ldy #0
muop
	iny
	beq chd
	cpy #23
	bne puty
chd
	lda muop
	eor #$40
	sta muop
	inc v_a+1
puty
	sty mu+1
; *10 = 2*(2*2+1)
	tya
	sta $F0
	asl $F0
	asl $F0
	clc
	adc $F0
	clc
	asl @
	sta $F0
	lda #$10
	sta $F1
	tya
	ldy #9
;get_r
;	lda 53770 ; random
;	and #3
;	beq get_r

;	inc v_a+1
v_a lda #0
;	eor 53770
;;	lsr @
;;	lsr @
;;	lsr @
;;	lsr @
;;	lsr @
;;	lsr @
	lsr @
	lsr @
	and #3

	tax
	lda cols,x

	ora ($F0),Y
;	ora #3
	sta ($F0),Y
	
	lda #0
	sta $EB
;	sta $ED
	lda #$10
	sta $EC

	lda #24
	sta $EE
lp_y
	ldy #9
	lda #0
	sta $ED
lp_x
	lda ($EB),y
	tax
	lda tab1,x
	ora $ED
	sta ($EB),y
	lda tab1+256,x
	sta $ED
	dey
	bpl lp_x
	lda $EB
	clc
	adc #10
	sta $EB
	bcc no_ec
	inc $EC
no_ec
	dec $EE
	bne lp_y
;	inc miu+1
	jmp zg_lp

cols
	dta 2,1,2,3
homer_dl
 dta 112,112,112
 dta $48
 dta a($1000)
:23 dta 8
 dta $41
 dta a(homer_dl)


    run start