org $60000
load $60000
s:
move.l	#$50000,$dff0a0	
move.w	#36000,$dff0a4 
move.w	#300,$dff0a6	
move.w	#65,$dff0a8	
move.w	#$83a1,$dff096	
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	#336,d1
move.l	#200,d2
jsr	-390(a6)
move.l	#$4ff00,plane1
lea	rastport,a1
jsr	-198(a6)
move.l	#bitmap,r_bitmap
lea	rastport,a1
jsr	-48(a6)
move.l	#text,taller
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
btst #6,$bfe001
bne wait
jmp slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
move.l	#$4,d0
clr.l	d1
clr.l	d2
move.l	#01,d3
move.l	#336,d4
move.l	#200,d5
jsr	-396(a6)
sub.b	#1,rows
bne.s	exit
move.b	#2,rows
lea	rastport,a1
move.l	#320,d0
move.l	#12,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#1,d0
jsr	-60(a6)
addq.l	#1,taller
cmp.l	#end,taller
blt.s	exit
move.l	#text,taller
exit:
movem.l	(sp)+,d0-d7/a0-a6
oldirq:
jmp	$00000000
slut:
move.w #3,$dff096
move.l oldirq+2,$6c
move.l gfxbase,a0
move.l oldclist,50(a0)
move.l $04,a6
jmp -414(a6)
newclist:
dc.w	$008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
dc.w    $0096,$83a0
dc.w    $0120,$0002,$0122,$5160,$0124,$0002,$0126,$5118
dc.w    $0128,$0002,$012a,$50d0,$012c,$0002,$012e,$5088
dc.w    $0130,$0002,$0132,$5000
dc.w	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w	$0100,$1200,$0180,$0000,$0182,$0fff
dc.w	$00e0,$0004,$00e2,$ff00,$2e01,$ff00
dc.w    $0182,$0000,$0180,$0666,$3001,$ff00
dc.w    $0182,$0f00,$0180,$0333,$3601,$ff00
dc.w    $0182,$0f80,$3c01,$ff00
dc.w    $0182,$0000,$0180,$0888,$3e01,$ff00,$0100,$4200
dc.w    $0180,$023a,$0182,$0000,$0184,$0000
dc.w    $0186,$0000,$0188,$0000,$018a,$0000
dc.w    $018c,$0000,$018e,$0000,$0190,$0000
dc.w    $0192,$0000,$0194,$0000,$0196,$0000
dc.w    $0198,$0000,$019a,$0000,$019c,$0000
dc.w    $0180,$023a,$a301,$ff00,$0180,$023a
dc.w    $0180,$0fe1,$a501,$ff00,$0182,$0ff1
dc.w    $0180,$0000
poke1:
dc.w    $00e0,$0006,$00e2,$0000
dc.w    $00e4,$0006,$00e6,$0000
dc.w    $00e8,$0006,$00ea,$0000
dc.w    $00ec,$0006,$00ee,$0000 
dc.w    $00f0,$0006,$00f2,$0000
dc.w    $fc01,$ff00,$0180,$0000,$0180,$0133
dc.w    $fe01,$ff00,$0182,$0000,$0180,$0000
dc.w	$ffff,$fffe
text:
dc.b	"REFLEX CRACKING SQUAD AND THE DANISH DEMO DUO ARE VERY  GOOD"
dc.b    " FRIENDS SO THEREFORE PET GOT THIS GREAT SCROLL !!!!        "
end:
even
taller:
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	3
even
org $25000
load $25000
spr4:
dc.w $5070,$7f00
dc.w $0002,$FBF8,$0002,$FBF8,$0002,$FBFC,$0002,$8A04
dc.w $0002,$DB06,$0002,$AAFA,$0002,$DBFF,$0002,$AA01
dc.w $0002,$DBFF,$0002,$ABFF,$0002,$D800,$0002,$A800
dc.w $0002,$D81F,$0002,$A81F,$0002,$D81F,$0002,$A811
dc.w $0002,$D81B,$0002,$A815,$0002,$D81F,$0002,$A81F
dc.w $0002,$D800,$0002,$A800,$0002,$DBFF,$0002,$ABFF
dc.w $0002,$DBFF,$0002,$AA01,$0002,$DB06,$0002,$AAFA
dc.w $0002,$FBFC,$0002,$8A04,$0002,$FBF8,$0002,$FBF8
dc.w $0000,$0000
Spr3:
dc.w $7070,$7f00
DC.W $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
DC.W $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
DC.W $0002DBFF,$0002ABFF,$0002D800,$0002A800
DC.W $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
DC.W $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
DC.W $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
DC.W $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
DC.W $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
DC.W $0000,$0000
Spr2:
dc.w $9070,$7f00
DC.W $0002F81F,$0002F81F,$0002F81F,$00028811
DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
DC.W $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
DC.W $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
DC.W $0002DBFB,$0002ABF5,$0002D81B,$0002A815
DC.W $0002D81B,$0002A815,$0002D81B,$0002A815
DC.W $0002F81F,$00028811,$0002F81F,$0002F81F
DC.W $0000,$0000
spr1:
dc.w $b070,$7f00
DC.W $0002ffff,$0002ffff,$0002FFFF,$00028001
DC.W $0002C003,$0002BFFD,$0002FFFF,$00028001
DC.W $0002FFFF,$0002FFFF,$00020000,$00020000
DC.W $0207C0,$0207C0,$0207C0,$020440
DC.W $0206C0,$020540,$0206C0,$020540
DC.W $0206C0,$020540,$0206C0,$020540
DC.W $0206C0,$020540,$0206C0,$020540
DC.W $0207C0,$020440,$0207C0,$0207C0
DC.W $0000,$0000
spr0:
dc.w $d070,$7f00
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $00020000,$00020000,$00020000,$00020000
DC.W $0000,$0000