DLIV		equ $0200
NMIEN		equ $D40E
VSCROL		equ $D405
VCOUNT		equ $D40B
WSYNC		equ $D40A
DLPTRS		equ $0230
COLBAK		equ $D01A
AUDCTL		equ $D208
AUDF4		equ $D206
IRQEN		equ $D20E
VTIMER4		equ $0214
VIMIRQ		equ $0216
STIMER		equ $D209
AUDC4		equ $D207
JOY			equ $D300
pline		equ 205

sprites 	equ $8000
		
		org $2000
		
dlist	dta b(112+$80),b(112)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$30),a(text)
		dta b($44+$10),a(text)
		dta b($41),a(dlist)
		
text	dta d'    A                                         '

magic 	pha

		sta WSYNC
		sta STIMER

		lda #$3A
		sta COLBAK
		
		mva #0 pline
		sta IRQEN
		mva #4 IRQEN
		
		pla
		rti

pokey	equ *
	pha
		mva #0 IRQEN
		mva #4 IRQEN
		
		inc pline
		lda pline
		cmp #25
		beq pk1
		

		
		asl @
		asl @
		asl @
		
		nop
		nop
		sta COLBAK
		pla
		rti

pk1		mva #0 IRQEN

		pla
		rti
		
run		equ *
		lda #<dlist    
		sta DLPTRS
		lda #>dlist
		sta DLPTRS+1
		
		lda #<magic   
		sta DLIV
		lda #>magic
		sta DLIV+1
		lda #%11000000 
		sta NMIEN
		
		mva #1 AUDCTL
		mva #7 AUDF4  
		mwa #pokey VIMIRQ	;VTIMER4

		mva #2 204
		mva #0 203
loop	equ *


l1		lda VCOUNT
		cmp #116
		bne l1
		
		dec 204
		bne l2
		
		mva #20 204

		
		ldx 203
		cpx #7
		bne l3
		ldx #255
l3		inx
		lda JOY
		and #%1111
		eor #%1111
		bne l2
		stx VSCROL
		stx 203
		
l2		lda VCOUNT
		bne l2
		
		jmp loop
		
		run	run