move.w	#$4000,$dff09a

	or.b	#%10000000,$bfd100
	and.b	#%10000111,$bfd100

	move.w	#$01a0,$dff096

	move.w	#$1200,$dff100
	move.w	#$0000,$dff102
	move.w	#$0000,$dff104
	move.w	#$0002,$dff108
	move.w	#$0002,$dff10a
	move.w	#$2c71,$dff08e
	move.w	#$f4d1,$dff090
	move.w	#$38d1,$dff090
	move.w	#$0030,$dff092
	move.w	#$00d8,$dff094

	lea.l	screen,a1
	lea.l	bplcop,a2
	move.l	a1,d1
	swap	d1
	move.w	d1,2(a2)
	swap	d1
	move.w	d1,6(a2)

	lea.l	copper,a1
	move.l	a1,$dff080
	move.w	#$8180,$dff096

mainloop:
	move.l	$dff004,d0
	asr.l	#8,d0
	and.l	#$1ff,d0
	cmp.w	#300,d0
	bne	mainloop

	bsr	scroll

	btst	#6,$bfe001
	bne	mainloop

	move.w	#$0080,$dff096

	move.l	$04,a6
	move.l	156(a6),a6
	move.l	38(a6),$dff080

	move.w	#$80a0,$dff096

	move.w	#$c000,$dff09a
	rts

scrollcnt:
	dc.w	$0000

charcnt:dc.w	$0000

scroll:	lea.l	scrollcnt,a1
	cmp.w	#8,(a1)
	bne	nochar

	clr.w	(a1)

	lea.l	charcnt,a1
	move.w	(a1),d1
	addq.w	#1,(a1)

	lea.l	text,a2
	clr.l	d2
	move.b	(a2,d1.w),d2

	cmp.b	#42,d2
	bne	notend

	clr.w	(a1)
	move.b	#32,d2

notend:	lea.l	convtab,a1
	move.b	(a1,d2),d2
	asl.w	#1,d2

	lea.l	font,a1
	add.l	d2,a1

	lea.l	screen,a2
	add.l	#6944,a2

	moveq	#19,d0

putcharloop:
	move.w	(a1),(a2)
	add.l	#64,a1
	add.l	#46,a2
	dbra	d0,putcharloop

nochar:	btst	#6,$dff002
	bne	nochar

	lea.l	screen,a1
	add.l	#7820,a1

	move.l	a1,$dff050
	move.l	a1,$dff054
	move.w	#0,$dff064
	move.w	#0,$dff066
	move.l	#$ffffffff,$dff044
	move.w	#$29f0,$dff040
	move.w	#$0002,$dff042
	move.w	#$0523,$dff058

	lea.l	scrollcnt,a1
	addq.w	#1,(a1)

	rts

copper:	dc.w	$2c01,$fffe
	dc.w	$0100,$1200

bplcop:	dc.w	$00e0,$0000
	dc.w	$00e2,$0000

	dc.w	$0180,$0000
	dc.w	$0182,$0ff0

	dc.w	$ffdf,$fffe
	dc.w	$2c01,$fffe
	dc.w	$0100,$0200
	dc.w	$ffff,$fffe


screen:	blk.l	$b80,0

font:	incbin	"df1:brev07/font"
	;blk.l	$140,0

convtab:dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$1f ;" "
	dc.b	$00
	dc.b	$00
	dc.b	$1b ;Ø
	dc.b	$1c ;Å
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$1d ;,
	dc.b	$00 ;-
	dc.b	$1e ;.
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$00
	dc.b	$1a ;Æ
	dc.b	$00 ;A
	dc.b	$01 ;B
	dc.b	$02 ;C
	dc.b	$03 ;...
	dc.b	$04
	dc.b	$05
	dc.b	$06
	dc.b	$07
	dc.b	$08
	dc.b	$09
	dc.b	$0a
	dc.b	$0b
	dc.b	$0c
	dc.b	$0d
	dc.b	$0e
	dc.b	$0f
	dc.b	$10
	dc.b	$11
	dc.b	$12
	dc.b	$13
	dc.b	$14
	dc.b	$15
	dc.b	$16 ;....
	dc.b	$17 ;X
	dc.b	$18 ;Y
	dc.b	$19 ;Z
	dc.b	$00
	dc.b	$00
	dc.b	$00

text:	dc.b	"DETTE ER EN TEST AV EN SCROLL P$ AMIGA....    *"