opt o+ h+ ?+ c-

progr = $2000
font = $2400

VDSLST = $200
DMACTS = $22F
DLPTRS = $230
COLPF0S = $2C4
COLPF1S = $2C5
COLPF2S = $2C6
COLPF3S = $2C7
COLBAKS = $2C8
CHBAS = $2F4
VSCROL = $D405
WSYNC = $D40A
VCOUNT = $D40B
NMIEN = $D40E


	org progr

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

	lda #>font
	sta CHBAS

	ldx #$C6
	ldy #$C2
	stx COLPF0S
	sty COLPF1S
	ldx #$CC
	ldy #$8A
	stx COLPF2S
	sty COLPF3S
	lda #$00
	sta COLBAKS

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

	jmp *

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

dlist:
:2	.byte $70
	.byte $70 | $80

	.byte $05 | $20 | $40
	.word screen
	.byte $05 | $80
.rept 10
	.byte $05 | $20
	.byte $05 | $80
.endr
	.byte $41
	.word dlist


screen	ins "zybex.scr"


	org font

	ins "zybex.fnt"


	run progr


	end