AbsExecBase	EQU	4
OldOpenLibrary	EQU	-$198
CloseLibrary	EQU	-$19e

copinit 	EQU	$26

Text		EQU	-$3c	;(RastPort,string,count)(A1,A0,D0)
InitRastPort	EQU	-$c6	;(rastPort)(A1)
Move		EQU	-$f0	;(rastPort,x,y)(A1,D0/D1)
InitBitMap	EQU	-$186	;(bitMap,depth,width,height)(A0,D0/D1/D2)

	SECTION Tristar,CODE

	move.l	#Raster0+2,d6
	move.l	#Raster1+2,d7
	move.w	d6,Plane0+6
	move.w	d7,Plane1+6
	swap	d6
	swap	d7
	move.w	d6,Plane0+2
	move.w	d7,Plane1+2
	move.l	#Text1,TextPtr

	movea.l AbsExecBase.w,a6
	lea	GfxName(pc),a1
	jsr	OldOpenLibrary(a6)
	movea.l d0,a6
	lea	BitMap(pc),a0
	moveq	#1,d0
	moveq	#8,d1
	moveq	#8,d2
	jsr	InitBitMap(a6)
	lea	BitMap(pc),a0
	move.l	#TempRas,8(a0)
	lea	RPort(pc),a1
	jsr	InitRastPort(a6)
	lea	BitMap(pc),a0
	move.l	a0,RPort+4
	move.b	#1,CharWid
	move.b	#8,Flag1
	lea	$dff000,a0
	move.w	$1c(a0),IntSave
	ori.w	#$8000,IntSave
	move.w	2(a0),DMASave
	ori.w	#$8000,DMASave
	move.w	#$7fff,$9c(a0)
	move.w	#$7fff,$9a(a0)
	move.l	#Copper,$80(a0)
	clr.l	$120(a0)
	clr.w	$102(a0)

Main	cmpi.b	#$e4,$dff006
	bne.s	Main
	bsr.s	Bouncer
	bsr.s	Rtn1
	btst	#6,$bfe001
	bne.s	Main

	move.l	copinit(a6),$dff080
	move.w	IntSave(pc),$dff09a
	move.w	DMASave(pc),$dff096
	movea.l a6,a1
	movea.l AbsExecBase.w,a6
	jsr	CloseLibrary(a6)
	rts

Bouncer movea.l BncPtr(pc),a0
	cmpi.b	#-1,(a0)
	bne.s	notyet
	move.l	#BncTab,BncPtr
	movea.l BncPtr(pc),a0
notyet	move.b	#74,d0
	add.b	(a0),d0
	move.b	d0,TxtYpos
	addq.l	#1,BncPtr
	rts

Rtn1	lea	$dff000,a0
	move.l	#$c9f00000,$40(a0)
	move.l	#$ffffffff,$44(a0)
	move.l	#Raster0+2,$50(a0)
	move.l	#Raster0,$54(a0)
	clr.l	$64(a0)
	move.w	#$1018,$58(a0)
WaitB1	btst	#$e,$dff002
	bne.s	WaitB1
	move.l	#$c9f00000,$40(a0)
	move.l	#$ffffffff,$44(a0)
	move.l	#Raster1+2,$50(a0)
	move.l	#Raster1,$54(a0)
	clr.l	$64(a0)
	move.w	#$1018,$58(a0)
WaitB2	btst	#$e,$dff002
	bne.s	WaitB2
	subq.b	#4,Flag1
	bne	G10
	move.b	#8,Flag1
	subq.b	#1,CharWid
	bne.s	G4
	lea	RPort(pc),a1
	moveq	#8,d0
	moveq	#6,d1
	jsr	Move(a6)
	movea.l TextPtr(pc),a0
	moveq	#1,d0
	lea	RPort(pc),a1
	jsr	Text(a6)
	addq.l	#1,TextPtr
	movea.l TextPtr(pc),a0
	tst.b	(a0)
	bne.s	G3
	move.l	#Text1,TextPtr
G3	move.b	#8,CharWid
	move.b	#8,Flag1
G4	lea	TempRas(pc),a0
	lea	Raster0+49(pc),a1
	lea	Raster1+49(pc),a2
	moveq	#7,d5
G5	roxl	(a0)
	bcc.s	G7
	lea	LED0(pc),a3
	lea	LED1(pc),a4
	moveq	#7,d4
G6	move.b	(a3)+,(a1)
	move.b	(a4)+,(a2)
	adda.l	#48,a1
	adda.l	#48,a2
	dbf	d4,G6
	bra.s	G9
G7	moveq	#7,d4
G8	clr.b	(a1)
	clr.b	(a2)
	adda.l	#48,a1
	adda.l	#48,a2
	dbf	d4,G8
G9	addq.l	#2,a0
	dbf	d5,G5
G10	rts

Raster0 ds.b	4096
Raster1 ds.b	4100

BncPtr	dc.l	BncTab
IntSave dc.w	0
DMASave dc.w	0
Flag1	dc.b	0
CharWid dc.b	0
TextPtr dc.l	0
RPort	ds.b	160
BitMap	ds.b	512
TempRas	ds.b	16

LED0	dc.b	$48,$cc,$14,$24,$cc,$78,$00,$00
LED1	dc.b	$30,$70,$e8,$d8,$30,$00,$00,$00,$00,$00

BncTab	dc.b	0,0,0,0,0,0,1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,15,15
	dc.b	15,15,15,14,14,13,12,11,10,9,8,7,6,5,4,3,2,1,1,-1


Copper	dc.w	$120,0,$122,0,$124,0,$126,0,$128,0,$12a,0
	dc.w	$12c,0,$12e,0,$130,0,$132,0,$134,0,$136,0
	dc.w	$138,0,$13a,0,$13c,0,$13e,0

	dc.w	$180,0
	dc.w	$100,$0200
	dc.w	$08e,$2080
	dc.w	$090,$11e0
	dc.w	$092,$0028
	dc.w	$094,$00d8
Plane0	dc.w	$0e0,6,$0e2,0
Plane1	dc.w	$0e4,6,$0e6,0
	dc.w	$182,$066,$184,$088,$186,$aff
	dc.w	$108,2
	dc.w	$10a,2
	dc.w	$104,0
	dc.w	$3019,$fffe

	dc.w	$180,$100,$180,$100,$180,$200,$180,$200,$180,$300,$180,$300
	dc.w	$180,$400,$180,$400,$180,$500,$180,$500,$180,$600,$180,$600
	dc.w	$180,$700,$180,$700,$180,$800,$180,$800,$180,$900,$180,$900
	dc.w	$180,$a00,$180,$a00,$180,$b00,$180,$b00,$180,$c00,$180,$c00
	dc.w	$180,$d00,$180,$d00,$180,$e00,$180,$e00,$180,$f00,$180,$f00
	dc.w	$180,$e00,$180,$e00,$180,$d00,$180,$d00,$180,$c00,$180,$c00
	dc.w	$180,$b00,$180,$b00,$180,$a00,$180,$a00,$180,$900,$180,$900
	dc.w	$180,$800,$180,$800,$180,$700,$180,$700,$180,$600,$180,$600
	dc.w	$180,$500,$180,$500,$180,$400,$180,$400,$180,$300,$180,$300
	dc.w	$180,$200,$180,$200,$180,$100,$180,$100

	dc.w	$3111,$fffe,$180,$000
TxtYpos dc.w	$6011,$fffe,$100,$2200
	dc.w	$6e11,$fffe,$180,$000
	dc.w	$7211,$fffe,$180,$001
	dc.w	$7611,$fffe,$180,$002
	dc.w	$7a11,$fffe,$180,$003
	dc.w	$7c11,$fffe,$180,$004
	dc.w	$7e11,$fffe,$180,$005
	dc.w	$7f11,$fffe,$180,$006
	dc.w	$8011,$fffe,$180,$007
	dc.w	$8111,$fffe,$180,$008
	dc.w	$8211,$fffe,$180,$009
	dc.w	$8311,$fffe,$180,$00a
	dc.w	$8411,$fffe,$180,$00b
	dc.w	$8511,$fffe,$180,$00c
	dc.w	$8611,$fffe,$180,$00d
	dc.w	$8711,$fffe,$180,$00e
	dc.w	$8811,$fffe,$180,$00f
	dc.w	$8911,$fffe,$180,$11f
	dc.w	$8a11,$fffe,$180,$22f
	dc.w	$8b11,$fffe,$180,$33f
	dc.w	$8c11,$fffe,$180,$44f
	dc.w	$8d11,$fffe,$180,$55f
	dc.w	$8e11,$fffe,$180,$66f
	dc.w	$8f11,$fffe,$180,$77f
	dc.w	$9011,$fffe,$180,$88f
	dc.w	$9211,$fffe,$180,$99f
	dc.w	$9411,$fffe,$180,$44a
	dc.w	$9511,$fffe,$180,$339
	dc.w	$9611,$fffe,$180,$228
	dc.w	$9711,$fffe,$180,$117
	dc.w	$9811,$fffe,$180,$006
	dc.w	$9911,$fffe,$180,$005
	dc.w	$9a11,$fffe,$180,$004
	dc.w	$9b11,$fffe,$180,$003
	dc.w	$9c11,$fffe,$180,$002
	dc.w	$9d11,$fffe,$180,$001
	dc.w	$9e11,$fffe,$180,$000,$182,$033,$184,$055,$186,$7cc
	dc.w	$108,-94	; reverse thingy
	dc.w	$10a,-94
	dc.w	$a011,$fffe,$182,$033,$184,$055,$186,$7cc
	dc.w	$aa11,$fffe,$182,$022,$184,$044,$186,$6bb
	dc.w	$b011,$fffe,$182,$011,$184,$033,$186,$5aa
	dc.w	$ba11,$fffe,$182,$000,$184,$022,$186,$488
	dc.w	$c011,$fffe,$182,$011,$184,$011,$186,$366
	dc.w	$ca11,$fffe,$182,$000,$184,$000,$186,$244
	dc.w	$d011,$fffe,$182,$000,$184,$000,$186,$122
	dc.w	$da11,$fffe,$100,$0200

	dc.w	$180,$100,$180,$100,$180,$200,$180,$200,$180,$300,$180,$300
	dc.w	$180,$400,$180,$400,$180,$500,$180,$500,$180,$600,$180,$600
	dc.w	$180,$700,$180,$700,$180,$800,$180,$800,$180,$900,$180,$900
	dc.w	$180,$a00,$180,$a00,$180,$b00,$180,$b00,$180,$c00,$180,$c00
	dc.w	$180,$d00,$180,$d00,$180,$e00,$180,$e00,$180,$f00,$180,$f00
	dc.w	$180,$e00,$180,$e00,$180,$d00,$180,$d00,$180,$c00,$180,$c00
	dc.w	$180,$b00,$180,$b00,$180,$a00,$180,$a00,$180,$900,$180,$900
	dc.w	$180,$800,$180,$800,$180,$700,$180,$700,$180,$600,$180,$600
	dc.w	$180,$500,$180,$500,$180,$400,$180,$400,$180,$300,$180,$300
	dc.w	$180,$200,$180,$200,$180,$100,$180,$100

	dc.w	$db11,$fffe,$180,$000
	dc.w	$fffe,$fffe

GfxName	dc.b	'graphics.library',0,0

Text1	dc.b	'TRISTAR & RED SECTOR Present:  »» Night Hunter ««  '
	dc.b	'Original By --Mr. Stress--  ·  '
	dc.b	'Cracked By --MEGAFAX/RED SECTOR--  '
	dc.b	'Super Special Mega ''PIRMINS'' Go This Time To:  '
	dc.b	'Skyline · Archangel · Phil · Oracle · Puppet Master · '
	dc.b	'Zeronine · Ghenna Of Defjam · Tridos · Traitor · '
	dc.b	'Hawk Of Valhalla · Syndicate · Fairlight · '
	dc.b	'Reward & Slayer & Ranger Of Scoopex · Gefreiter Onyx.  '
	dc.b	'We Welcome Our New Members To The Cooperation:'
	dc.b	'  ''Captain Midnight''  &  ''Hirax''  &  ''TCM''  &  ''4-Mat''. '
	dc.b	' Give Our Boards A Call:  Purgatory (USA):  203 - 225 - 5482 '
	dc.b	'(Brain Dead) · Forbidden City (USA): 818 - 330 - 5043 (The Light) ·'
	dc.b	' Maximum Overdrive (SWEDEN): +46 - 442 - 475 - 39 (Istvan).  '
	dc.b	'And Our Awesome Boards In United Germany:  WestPoint ·'
	dc.b	' Unlimited Pleasure · Touchdown · Holy Tower · The Black Skyline ·'
	dc.b	' Midnight Express.  '
	dc.b	'Contact Us If You Dare And Write To Our Headquarters:  '
	dc.b	'PLK 110081 C - 4200 Oberhausen 1 - West Germany.  '
	dc.b	'RED SECTOR - Postbox 60 - 4060 Leonding - Austria.  '
	dc.b	'For ABO''s Write To TRISTAR! - Postlagernd - '
	dc.b	'A 4802 Ebensee - Austria.  '
	dc.b	'TRISTAR & RED SECTOR - Two Unstoppable Forces.  '
	dc.b	'Credits: Coding & GFX By Double Trouble, Sound By Romeo Knight.'
	dc.b	'            Text RESTARTS...          ',0,0,0

	END