opt o+ h+ ?+ c-

progr = $2000

VDSLST = $200
DMACTS = $22F
DLPTRS = $230
KBCODS = $2FC
VSCROL = $D405
WSYNC = $D40A
VCOUNT = $D40B
NMIEN = $D40E


	org progr

	lda #%00100010
	ldx #<dlist
	ldy #>dlist
	sta DMACTS
	stx DLPTRS
	sty DLPTRS+1

	lda #%11000000
	ldx #<dlint
	ldy #>dlint
	stx VDSLST
	sty VDSLST+1
	sta NMIEN

	jmp *

dlint:
	pha
	sta WSYNC
	lda #16-4
	sta VSCROL
	lda #4-1
	sta VSCROL
	pla
	rti

dlist:
:2	.byte $70
	.byte $70 | $80
.rept 24
	.byte $05 | $20 | $40
	.word screen
	.byte $05 | $80
.endr
	.byte $41
	.word dlist

screen:
:40	.byte [$40 + #] | $00 ^ [[# << 7] & $80]
:40	.byte [$40 + #] | $80 ^ [[# << 7] & $80]


	run progr


	end