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 *

	ldy #50
l2		lda VCOUNT
		bne l2
		
		lda #116
l1		cmp VCOUNT
		bne l1
	dey
	bne l2
;		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

	txa
	and #%111
		sta VSCROL
		stx 203

		jmp loop
		
		run	run