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	#200,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:
btst	#6,$bfe001
bne	wait
jmp	 slut
newirq:
movem.l	d0-d7/a0-a6,-(sp)
move.l	gfxbase,a6
lea	rastport,a1
move.l	#$2,d0
move.l  #0,d1
move.l  #0,d2
move.l	#10,d3
move.l	#336,d4
move.l	#130,d5
jsr	-396(a6)
lea     rastport,a1
move.l  #$0,d0
move.l  #1,d1
move.l  #0,d2
move.l  #0,d3
move.l  #310,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #-2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #280,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #250,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #-2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #220,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #190,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #-2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #160,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #130,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #-2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #100,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #70,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #-2,d1
move.l  #0,d2
move.l  #10,d3
move.l  #40,d4
move.l  #130,d5
jsr     -396(a6)
lea     rastport,a1
move.l  #0,d0
move.l  #1,d1
move.l  #0,d2
move.l  #10,d3
move.l  #13,d4
move.l  #130,d5
jsr     -396(a6)



sub.b	#$01,rows
bne.s	exit
move.b	#$8,rows
lea	rastport,a1
move.l	#320,d0
move.l	#118,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
rts
jsr    -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,$aaaa
dc.w	$00e0,$0006,$00e2,$0000
dc.w    $5701,$ff00,$0182,$d040,$0180,$0001
dc.w    $5801,$ff00,$0182,$d045,$0180,$0002
dc.w    $5901,$ff00,$0182,$d050,$0180,$0003
dc.w    $5a01,$ff00,$0182,$d055,$0180,$0004
dc.w    $5b01,$ff00,$0182,$d060,$0180,$0005
dc.w    $5c01,$ff00,$0182,$d065,$0180,$0006
dc.w    $5d01,$ff00,$0182,$d070,$0180,$0007
dc.w    $5e01,$ff00,$0182,$d070,$0180,$0008
dc.w    $5f01,$ff00,$0182,$d075,$0180,$0009
dc.w    $6001,$ff00,$0182,$d080,$0180,$000a
dc.w    $6101,$ff00,$0182,$d085,$0180,$000b
dc.w    $6201,$ff00,$0182,$d080,$0180,$000c
dc.w    $6301,$ff00,$0182,$d075,$0180,$000b
dc.w    $6401,$ff00,$0182,$d070,$0180,$000a
dc.w    $6501,$ff00,$0182,$d065,$0180,$0009
dc.w    $6601,$ff00,$0182,$d060,$0180,$0008
dc.w    $6701,$ff00,$0182,$d055,$0180,$0007
dc.w    $6801,$ff00,$0182,$d050,$0180,$0006
dc.w    $6901,$ff00,$0182,$d045,$0180,$0005
dc.w    $6a01,$ff00,$0182,$d040,$0180,$0004
dc.w    $6b01,$ff00,$0182,$d035,$0180,$0003
dc.w    $6c01,$ff00,$0182,$d030,$0180,$0002
dc.w    $6d01,$ff00,$0182,$d025,$0180,$0001
dc.w    $6e01,$ff00,$0182,$d020,$0180,$1100
dc.w    $6f01,$ff00,$0182,$d025,$0180,$2200
dc.w    $7001,$ff00,$0182,$d030,$0180,$3300
dc.w    $7101,$ff00,$0182,$1035,$0180,$4400
dc.w    $7201,$ff00,$0182,$1040,$0180,$5500
dc.w    $7301,$ff00,$0182,$1045,$0180,$6600
dc.w    $7401,$ff00,$0182,$1050,$0180,$7700
dc.w    $7501,$ff00,$0182,$1055,$0180,$8800
dc.w    $7601,$ff00,$0182,$1060,$0180,$9900
dc.w    $7701,$ff00,$0182,$1065,$0180,$aa00
dc.w    $7801,$ff00,$0182,$1070,$0180,$bb00
dc.w    $7901,$ff00,$0182,$1075,$0180,$cc00
dc.w    $7a01,$ff00,$0182,$1080,$0180,$dd00
dc.w    $7b01,$ff00,$0182,$1085,$0180,$ee00
dc.w    $7c01,$ff00,$0182,$1080,$0180,$ff00
dc.w    $7d01,$ff00,$0182,$1070,$0180,$ee00
dc.w    $7e01,$ff00,$0182,$1065,$0180,$dd00
dc.w    $7f01,$ff00,$0182,$1060,$0180,$cc00
dc.w    $8001,$ff00,$0182,$1055,$0180,$bb00
dc.w    $8101,$ff00,$0182,$1050,$0180,$aa00
dc.w    $8201,$ff00,$0182,$1045,$0180,$9900
dc.w    $8301,$ff00,$0182,$1030,$0180,$8800
dc.w    $8401,$ff00,$0182,$1025,$0180,$7700
dc.w    $8501,$ff00,$0182,$1020,$0180,$6600
dc.w    $8601,$ff00,$0182,$025,$0180,$5500
dc.w    $8701,$ff00,$0182,$030,$0180,$4400
dc.w    $8801,$ff00,$0182,$035,$0180,$3300
dc.w    $8901,$ff00,$0182,$040,$0180,$2200
dc.w    $8a01,$ff00,$0182,$33,$0180,$1100
dc.w    $8b01,$ff00,$0182,$44,$0180,$2200
dc.w    $8c01,$ff00,$0182,$55,$0180,$3300
dc.w    $8d01,$ff00,$0182,$66,$0180,$4400
dc.w    $8e01,$ff00,$0182,$77,$0180,$5500
dc.w    $8f01,$ff00,$0182,$88,$0180,$6600
dc.w    $9001,$ff00,$0182,$99,$0180,$7700
dc.w    $9101,$ff00,$0182,$aa,$0180,$8800
dc.w    $9201,$ff00,$0182,$bb,$0180,$9900
dc.w    $9301,$ff00,$0182,$cc,$0180,$aa00
dc.w    $9401,$ff00,$0182,$dd,$0180,$bb00
dc.w    $9501,$ff00,$0182,$ee,$0180,$cc00
dc.w    $9601,$ff00,$0182,$ff,$0180,$dd00
dc.w    $9701,$ff00,$0182,$ee,$0180,$ee00
dc.w    $9801,$ff00,$0182,$dd,$0180,$ff00
dc.w    $9901,$ff00,$0182,$cc,$0180,$ee00
dc.w    $9a01,$ff00,$0182,$bb,$0180,$dd00
dc.w    $9b01,$ff00,$0182,$aa,$0180,$cc00
dc.w    $9c01,$ff00,$0182,$99,$0180,$bb00
dc.w    $9d01,$ff00,$0182,$88,$0180,$aa00
dc.w    $9e01,$ff00,$0182,$77,$0180,$9900
dc.w    $9f01,$ff00,$0182,$66,$0180,$8800
dc.w    $a001,$ff00,$0182,$55,$0180,$7700
dc.w    $a101,$ff00,$0182,$44,$0180,$6600
dc.w    $a201,$ff00,$0182,$33,$0180,$5500
dc.w    $a301,$ff00,$0182,$44,$0180,$4400
dc.w    $a401,$ff00,$0182,$55,$0180,$3300
dc.w    $a501,$ff00,$0182,$66,$0180,$2200
dc.w    $a601,$ff00,$0182,$77,$0180,$1100
dc.w    $a701,$ff00,$0182,$1070,$0180,$2200
dc.w    $a801,$ff00,$0182,$1075,$0180,$3300
dc.w    $a901,$ff00,$0182,$1080,$0180,$4400
dc.w    $aa01,$ff00,$0182,$1085,$0180,$5500
dc.w    $ab01,$ff00,$0182,$1080,$0180,$6600
dc.w    $ac01,$ff00,$0182,$1075,$0180,$7700
dc.w    $ad01,$ff00,$0182,$1070,$0180,$8800
dc.w    $ae01,$ff00,$0182,$1065,$0180,$9900
dc.w    $af01,$ff00,$0182,$1060,$0180,$aa00
dc.w    $b001,$ff00,$0182,$1055,$0180,$bb00
dc.w    $b101,$ff00,$0182,$1050,$0180,$cc00
dc.w    $b201,$ff00,$0182,$1045,$0180,$dd00
dc.w    $b301,$ff00,$0182,$1040,$0180,$ee00
dc.w    $b401,$ff00,$0182,$1035,$0180,$ff00
dc.w    $b501,$ff00,$0182,$1030,$0180,$ee00
dc.w    $b601,$ff00,$0182,$1025,$0180,$dd00
dc.w    $b701,$ff00,$0182,$1020,$0180,$cc00
dc.w    $b801,$ff00,$0182,$1025,$0180,$bb00
dc.w    $b901,$ff00,$0182,$1030,$0180,$aa00
dc.w    $ba01,$ff00,$0182,$1035,$0180,$9900
dc.w    $bb01,$ff00,$0182,$1040,$0180,$8800
dc.w    $bc01,$ff00,$0182,$1045,$0180,$7700
dc.w    $bd01,$ff00,$0182,$1050,$0180,$6600
dc.w    $be01,$ff00,$0182,$1055,$0180,$5500
dc.w    $bf01,$ff00,$0182,$1060,$0180,$4400
dc.w    $c001,$ff00,$0182,$1065,$0180,$3300
dc.w    $c101,$ff00,$0182,$1070,$0180,$2200
dc.w    $c201,$ff00,$0182,$1075,$0180,$1100
dc.w    $c301,$ff00,$0182,$1080,$0180,$0001
dc.w    $c401,$ff00,$0182,$1085,$0180,$0002
dc.w    $c501,$ff00,$0182,$1080,$0180,$0003
dc.w    $c601,$ff00,$0182,$1075,$0180,$0004
dc.w    $c701,$ff00,$0182,$1070,$0180,$0005
dc.w    $c801,$ff00,$0182,$1065,$0180,$0006
dc.w    $c901,$ff00,$0182,$1060,$0180,$0007
dc.w    $ca01,$ff00,$0182,$1055,$0180,$0008
dc.w    $cb01,$ff00,$0182,$1050,$0180,$0009
dc.w    $cc01,$ff00,$0182,$1045,$0180,$000a
dc.w    $cd01,$ff00,$0182,$1040,$0180,$000b
dc.w    $ce01,$ff00,$0182,$1035,$0180,$000c
dc.w    $cf01,$ff00,$0182,$1030,$0180,$000b
dc.w    $d001,$ff00,$0182,$1025,$0180,$000a
dc.w    $d101,$ff00,$0182,$1020,$0180,$0009
dc.w    $d201,$ff00,$0182,$1025,$0180,$0008
dc.w    $d301,$ff00,$0182,$1030,$0180,$0007
dc.w    $d401,$ff00,$0182,$1035,$0180,$0006
dc.w    $d501,$ff00,$0182,$1040,$0180,$0005
dc.w    $d601,$ff00,$0182,$1045,$0180,$0004
dc.w    $d701,$ff00,$0182,$1050,$0180,$0003
dc.w    $d801,$ff00,$0182,$1055,$0180,$0002
dc.w    $d901,$ff00,$0182,$1060,$0180,$0001
dc.w	$ffff,$ff00,$0182,$1055,$0180,$0000
text:
DC.B    "THE 4TH DIMENSION BY T.F.C PROUDLY PRESENTS "
DC.B    "NEW, RED HOT STUFF!!      THIS IS THE 3RD IN"
DC.B    "TRO I HAVE WRITTEN!!  THEY ARE JUST GETTING "
DC.B    "BETTER EACH TIME I'M TURNING "
DC.B    "ON THE SEKA-ASSEMBLER!!   THE SCROLL IS SHAK"
DC.B    "ING A BIT, BUT WHO CARES!!       NOW THE GRE"
DC.B    "ETINGS.     HI MEDITATION STOPPERS (AMIGATOR"
DC.B    ")     RAWHEAD (TRACK 7)     THE CONNECTION ("
DC.B    "HAGAR)      TETRAGON       THE ZAPP (THR)   "
DC.B    "  RBB      TCC       SCT (SCIFF)  "
DC.B    "    BACAINOS       TRIAD       ACADEMY      "
DC.B    "THE MECHANIC       MIO SOFT (WIZ)      HEAVY"
DC.B    " METAL (BINK)      KCC (BOOGIE)      GARBAGE"
DC.B    " IND.       E.C.S      THINK-MAN       TFT  "
DC.B    "    DEADLINE       MBB        THE NORWEGAN L"
DC.B    "AW BREAKER    AND ALL OTHERS WE KNOW!!      "
DC.B    "IF YOU WANT TO HAVE THE LATEST AMIGA OR 64 S"
DC.B    "TUFF, THEN WRITE TO:  4TH DIMENSION,     KIR"
DC.B    "KEVEIEN 45,      8200 FAUSKE,       NORWAY  "
DC.B    "      OR PHONE: (NORWAY=47) (0)81 44845     "
DC.B    "SEND YOUR NEWEST STUFF!!             SEE YOU"
DC.B    " LATER!!            © TFC OF 4TH DIMENSION  "
DC.B    "                   "
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