move.l 4,a6
jsr -30-102(a6)

move.l #$20000,a1
lea  copperlist,a2

cloop:
move.l (a2),(a1)+
cmp.l #$fffffffe,(a2)+
bne  cloop

lea.l  $50000,a0
lea.l  $52000,a1
lea.l  $54000,a2
lea.l  $56000,a3

move.l #1100,d0
ploop:
clr.w  (a0)+
clr.w  (a1)+
clr.w  (a2)+
clr.w  (a3)+
dbra   d0,ploop

move.w #$03e0,$dff096
move.l #$20000,$dff080
move.w #$0000,$dff088
move.w #$83c0,$dff096

move.l #text,textpos
move.b #1,rows
move.l $6c,oldirq
move.l #newirq,$6c

nomouse: btst #6,$bfe001
         bne  nomouse

clr.l  d0
rts

newirq:
movem.l d0-d7/a0-a6,-(sp)
move.l #$50000+2200,d0
jsr    scrollplane
move.l #$52000+2200,d0
jsr    scrollplane
move.l #$54000+2200,d0
jsr    scrollplane
move.l #$56000+2200,d0
jsr    scrollplane
move.b rows,d0
subq.b #1,d0
cmp.b  #0,d0
bne    exit

jsr    newchar
exit:
move.b  d0,rows
exit2:
movem.l (sp)+,d0-d7/a0-a6
dc.w    $4ef9
oldirq: dc.l 0

newchar:
clr.l  d0
move.l textpos,a0
move.b (a0),d0
addi.l #1,textpos
cmp.l  #textend,textpos
bne    noend
move.l #text,textpos
noend:
move.l textpos,a0
cmp.b  #32,d0
bne    nospace
move.b #6,d0
rts
nospace:
sub.l  #33,d0
mulu   #1080,d0
add.l  #chars,d0

move.l #$50000+46,d1
jsr    copychar
add.l  #270,d0
move.l #$52000+46,d1
jsr    copychar
add.l  #270,d0
move.l #$54000+46,d1
jsr    copychar
add.l  #270,d0
move.l #$56000+46,d1
jsr    copychar
move.b #6,d0
rts

copychar:
btst   #6,$dff002
bne.s  copychar
move.w #$ffff,$dff044
move.w #$ffff,$dff046
move.l d0,    $dff050
move.l d1,    $dff054
move.w #$09f0,$dff040
clr.w         $dff042
clr.w         $dff064
move.w #44,   $dff066
move.w #%0000101101000011,$dff058
rts

scrollplane:
btst   #6,$dff002
bne.s  scrollplane
move.l d0,$dff050
move.l d0,$dff054
move.w #$89f0,$dff040
move.w #$0002,$dff042
move.w #$ffff,$dff044
move.w #$00ff,$dff046
clr.w  $dff064
clr.w  $dff066
move.w #%0000101101011001,$dff058
rts

rows:  dc.b 0
even
chars: blk.b 62640
copperlist:
dc.w  $00e0,$0005,$00e2,$0002,$00e4,$0005,$00e6,$2002
dc.w  $00e8,$0005,$00ea,$4002,$00ec,$0005,$00ee,$6002
dc.w  $0100,$4200,$0102,$0000,$0104,$0000,$0108,$0006
dc.w  $010a,$0006,$0092,$0030,$0094,$00d8,$008e,$9671
dc.w  $0090,$c2d1,$0180,$0000,$0182,$0fff,$0184,$0000
dc.w  $0186,$0000,$0188,$0000,$018a,$0111,$018c,$0222
dc.w  $018e,$0333,$0190,$0444,$0192,$0555,$0194,$0666
dc.w  $0196,$0777,$0198,$0888,$019a,$0999,$019c,$0aaa
dc.w  $019e,$0bbb
dc.w  $ffff,$fffe

text:
DC.B "HEY, FREAKS ! THE MAD BRAINS PRESENTS NEW STUFF ! "
DC.B "GREETINGS TO BAMIGA SECTOR ONE, UNIT A, MEGAFORCE,"
DC.B " D.O.C, POWERSLAVES, VISION FACTORY, WORLD OF WOND"
DC.B "ERS, DEFJAM, STEEL PULSE, HOTLINE, LIGHTCIRCLE, TH"
DC.B "RUST, ALPHA FLIGHT, HQC AND ALL THE OTHERS WE KNOW"
DC.B " ! AND NOW HAVE MUCH FUN AND PRESS THE RED BUTTON "
DC.B "ON YOUR MOUSE ! END OF SCROLLTEXT.....            "
DC.B "                    "
textend:
 even
textpos: dc.l 0