s:
move.l		#$50000,$dff0a0	
move.w		#36000,$dff0a4 
move.w		#300,$dff0a6	
move.w		#64,$dff0a8	
move.w		#$8201,$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	#256,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	#text,taller
move.l	$6c,oldirq+2
move.l	#newirq,$6c
wait:
move.l  #$646b0,a0
move.w  $dff012,d1
l1: cmpi.b  #$ff,$dff006
bne     l1
move.l  (a0)+,$64500
move.l  20(a0),$64548
move.l  40(a0),$64590
move.l  60(a0),$645d8
move.l  80(a0),$64620
move.l  100(a0),$64668
cmp.w   $dff012,d1
bne     end1
cmpi.l  #$696b0,a0
beq     wait
l2:cmpi.b  #$00,$dff006
bne     l2
jmp	l1
end1:
jmp     slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
move.l	#0,d0
move.l  #1,d1
move.l  #0,d2
move.l	#$b0,d3
move.l	#336,d4
move.l	#200,d5
jsr	-396(a6)
lea     rastport,a1
move.l  #1,d0
clr.l   d1
clr.l   d2
move.l  #0,d3
move.l  #9,d4
move.l  #30,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #2,d0
clr.l   d1
move.l  #8,d2
move.l  #0,d3
move.l  #310,d4
move.l  #30,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #1,d0
clr.l   d1
move.l  #310,d2
move.l  #0,d3
move.l  #336,d4
move.l  #30,d5
jsr     -396(a6)
sub.b   #1,rows
bne.s	exit
move.b	#8,rows
lea	rastport,a1
move.l	#320,d0
move.l	#13,d1
jsr	-240(a6)
lea	rastport,a1
move.l	taller,a0
move.l	#$01,d0
jsr	-60(a6)
addq.l	#$01,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 #$0001,$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	$0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
dc.w	$0100,$1200,$0180,$0000,$0182,$0fff
dc.w	$00e0,$0006,$00e2,$0000
dc.w	$ffff,$fffe
text:
dc.b	"THE FUTURE CRACKER (TFC) OF 4TH DIMENSION IN "        
dc.b    "1988 PRESENTS NEW STUFF!     THIS TIME, THE G"
DC.B    "REETINGS GOES TO M.E.S, HOTLINE, TRACK 7, RIS"
DC.B    "KY BUSINISS BOYS, THUNDERBOLT CRACKING CREW, "
DC.B    "TRIAD, THE HUNTER OF ZAPP, ACADEMY, SCIFF OF "
DC.B    "SCIENCE CRACKING TEAM, THE FLASH TEAM, BACAIN"
DC.B    "OS, DEADLINE, RAWHEAD, THINK-MAN, E.C.S, GARB"
DC.B    "AGE IND., THE FUTURE PROJECT (KCC), WIZ OF MI"
DC.B    "O SOFT, HEAVY METAL (BINK), MBB, THE NORWEGAN"
DC.B    " LAW BREAKER, T.U.C, MR. CHIP & <-RAVEN, H.C."
DC.B    "C AND ALL OTHERS WE KNOW!!    SPECIAL GREETIN"
DC.B    "GS TO ALL MEMBERS OF 4TH DIMENSION ALL OVER T"
DC.B    "HE WORLD: VAMPIRE (AMIGA), THE STRANGER (AMIG"
DC.B    "A), ALF (AMIGA), GHOSTSOFT (AMIGA), S-C (64),"
DC.B    " DAVID CLARCK (64)!!!         FOR THE NEWEST "
DC.B    "STUFF FOR AMIGA, CONTACT ME AT: 4TH DIMENSION"
DC.B    ", KIRKEVEIEN 45, 8200 FAUSKE, NORWAY... TEL:N"
DC.B    "-081 44845      FOR THE LATEST 64 STUFF, CONT"
DC.B    "ACT S-C AT: 4TH DIMENSION, STERVEIEN 7B, 8200"
DC.B    " FAUSKE, NORWAY....       KILL LEFT MOUSE BUT"
DC.B    "TON TO GET ON!      HI D.D.D!                "


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	2