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.b),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:
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....    *"