* Output Filename: E:\lp2k3\256b\river.xex
line	equ $0600
pos	equ $e0
ekr	equ $3000
dlist	equ $2800
d0	equ $e2
d1	equ $e4
d2	equ $e6
d3	equ $e8
buf	equ $eb

	opt %100101
	org $2000
	lda #%00101010
	sta 580
	sta 559
	lda #2
	sta $d201
	sta $d213
	sta 53277
	lda #$40
	sta $d212
	sta 54279
	lda #$c6
	sta 708
	lda #$94
	sta 709
	lda #14
	sta $d200
	sta 704
	lda #%00010000
	ldx #6
ccc	sta $4269,x
	dex
	bne ccc
	lda #%11111110
	sta $426b
	lda #%00111000
	sta $426f
	lda #%01010101
	ldx #72
lo1	sta line-1,x
	dex
	bne lo1
	ldx #3
lo2	lda #%10101010
	sta line+33,x
	sta line+36,x
	lda #$70
	sta dlist-1,x
	dex
	bne lo2
	lda #0
	sta 560
	sta dlist+4
	sta line+33
	sta line+40
	lda >ekr
	sta dlist+5
	lda #$4d
	sta dlist+3
	lda #$d
	ldx #95

lo3	sta dlist+5,x
	dex
	bne lo3
	lda #$41
	sta dlist+101
	lda >dlist
	sta 561
loop	equ *
	lda $d20a
	beq zn3
	and #$80
	beq zn2
	lda pos
	beq zn3
	sbc #1
	sta pos
	jmp zn3
zn2	lda pos
	cmp #15
	beq zn3
	clc
	adc #1
	sta pos
zn3	lda pos
	clc
	adc #15
	sta buf
zn1	ldy buf
	ldx #39
lp4	lda line,y
	sta ekr,x
	iny
	dex
	bne lp4
	lda pos
	asl @
	asl @
	clc
	adc #96
	sta 53248
	lda >ekr+3840
	sta d0+1
	sta d1+1
	lda <ekr+3840
	sta d0
	lda <ekr+3880
	sta d1
	ldx #18
lp0	ldy #239
lp1	lda (d0),y
	sta (d1),y
	dey
	bne lp1
	lda d0
	sec
	sbc #240
	sta d0
	lda d0+1
	sbc #0
	sta d0+1
	lda d1
	sec
	sbc #240
	sta d1
	lda d1+1
	sbc #0
	sta d1+1
	dex
	bne lp0
	jmp loop
	
	org $2e0
	dta a($2000)
		
				