move.l	$04,a6
lea	gfxname,a1
jsr	-408(a6)
move.l	d0,gfxbase
move.l	d0,a0
move.l	50(a0),oldclist
move.l	#newclist,50(a0)
move.l	gfxbase,a6
lea	bitmap,a0
move.l	#$01,d0
move.l	#400,d1
move.l	#300,d2
jsr	-390(a6)
move.l	#$60000,plane1
lea	rastport,a1
jsr	-198(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#scrollm,zeiger
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
btst	#6,$bfe001
bne.s	wait
move.l	oldirq+2,$6c
move.l	gfxbase,a0
move.l	oldclist,50(a0)
move.l	$04,a6
move.l	gfxbase,a1
jsr	-414(a6)
jsr     -138(a6)
move.w  #$0001,$dff096
andi.b  #253,$bfe001
rts

newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea     rastport,a1
move.l  #$04,d0
clr.l   d1
clr.l   d2
move.l  #00,d3
move.l  #390,d4
move.l  #160,d5
jsr     -396(a6)
sub.b	#$01,rows
bne.s	exit
move.b	#$02,rows
lea     rastport,a1
move.l  #380,d0
move.l  #145,d1
jsr     -240(a6)
lea     rastport,a1
move.l  zeiger,a0
move.l  #$01,d0
jsr     -60(a6)
addq.l	#$01,zeiger
cmp.l	#end,zeiger
blt.s	exit
move.l	#scrollm,zeiger
exit:
movem.l	(sp)+,d0-d7/a0-a6
oldirq:
jmp	$00000000
newclist:
dc.w	$008e,$1a64,$0090,$39d1,$0092,$0020,$0094,$00d8
dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w	$0100,$1200,$0180,$0000,$0182,$0777
dc.w	$00e0,$0006,$00e2,$0000
dc.w    $a101,$fffe,$0180,$000f
dc.w    $a201,$fffe,$0180,$0000
dc.w    $a301,$fffe,$0182,$000f
dc.w    $a411,$fffe,$0182,$0fff
dc.w    $a511,$fffe,$0182,$0888
dc.w    $a611,$fffe,$0182,$0777
dc.w    $a711,$fffe,$0182,$0666
dc.w    $a811,$fffe,$0182,$0ffa
dc.w    $aa11,$fffe,$0182,$0ff9
dc.w    $ac11,$fffe,$0182,$0ff7
dc.w    $af01,$fffe,$0180,$000f
dc.w    $b001,$fffe,$0180,$0005
dc.w    $0180,$0000
dc.w $ffff,$fffe
scrollm:
dc.b    "YEAH ! CHECK THIS OUT.... HERE WE'RE AGAIN...  "
dc.b	"AMNESIA OF ITALIAN BAD BOYS (TM) IS PROUD TO PRESENT OUR"
dc.b    " -- PRE RELEASE of NEW BEAT TAKE #6 -- IN DECEMBER 1989.... "
dc.b    " SOME HELLO'S TO: BS1 , TRILOGY , PARANOIMIA , THE BAND "
DC.B    ", QUICKSILVER , POWERSLAVES , RSI , DEFJAM , BLACK MONKS "
DC.B    ", STACK & X-MEN , FUTURE MIRROR , CRITTERS , CRUSH , "
DC.B    "CRUSADERS , THE LIGHT CIRCLE (GREAT GAME, WILLY) "
DC.B    ", CROWDED HOUSE AND ALL OUR FRIENDS..."
DC.B    " CONTACT: DJ BOCCACCIO / R. DE PREESTERSTRAAT 3 / B-9700 "
DC.B    "OUDENAARDE / BELGIUM.... SOON WE WILL PUBLISH OUR OWN "
DC.B    "BELGIAN RECORD.... WHO WILL SEND ME SOME SOURCE-CODES..."
DC.B    " HAVE YOU ANY SOUND-TRACKS (MADE WITH NOISETRACKER) "
DC.B    "OF ANOTHER GOODIES, SEND IT TO ME... IT WILL PUBLISH "
DC.B    "ON THE NEXT SOUND EDITION... "
DC.B    " HAVE YOU NEW INTRO'S OF DEMO'S FOR PUBLISHING..."
DC.B    "PLEASE, SEND IT UP, I WILL PUT'EM ON ONE OF OUR COMPILATION."
DC.B    "      THIS IS A TRADEMARK (TM) FROM AMNESIA OF IBB....."
DC.B    "   BYE !!! SIGNED, DJ BOCCACCIO"  
DC.B    "                                                       "
end:
even
zeiger:
dc.l	0
oldclist:
dc.l	0
gfxbase:
dc.l	0
gfxname:
dc.b	"graphics.library",0
even
bitmap:
blk.w	4,0
plane1:
blk.l	20,0
rastport:
dc.l	0
r_bitmap:
blk.l	30,0
rows:
dc.b	2
dosname:
dc.b    "dos.library",0