;
;CODING  BY CONAN OF TRITECH ^ CRUNCHER OF REBELS!
;
JMP J

Execbase = 4
execute = -222
openlib = -408
closelib = -414
bltcon0 = $dff040
bltcon1 = $dff042
bltafwm = $dff044
bltalwm = $dff046
bltcpt = $dff048
bltbpt = $dff04c
bltapt = $dff050
bltdpt = $dff054
bltsize = $dff058
bltcmod = $dff060
bltbmod = $dff062
bltamod = $dff064
bltdmod = $dff066

J:	lea	menu,a0
	move.l	#$60000,a1
	move.l	#4204,d0
PALLE:	move.b	(a0)+,(a1)+
	DBRA	D0,PALLE
	lea	LOGO,a0
	move.l	#$62000,a1
	move.l	#22000,d0
LOGON:	move.b	(a0)+,(a1)+
	DBRA	D0,LOGON
	lea	LOADPIC,a0
	move.l	#$71000,a1
	move.l	#880,d0
MESS:	move.b	(a0)+,(a1)+
	DBRA	D0,MESS
	move.l	#tekst,tekstp
	move.l	#$70000,a0
	move.l	#3000,d0
	juhu:
	move.b	#0,(a0)+
	dbra	d0,juhu
	movem.l	a0-a6/d0-d7,-(a7)
	move.l	execbase,a6
	move.l	156(a6),a0
	move.w	#$8180,$dff096
	move.l	50(a0),oldcop
	move.l	#Copper,50(a0)
	move.l	$6c,oldinterrupt
	move.l	#interrupt,$6c
wait:
btst	#10,$dff016
beq	end
ck1:
cmp.b	#95,$bfec01
bne	ck2
move.b	#1,$6ffff
jmp	stop
ck2:
cmp.b	#93,$bfec01
bne	ck3
move.b	#2,$6ffff
jmp	stop
ck3:
cmp.b	#91,$bfec01
bne	ck4
move.b	#3,$6ffff
jmp	stop
ck4:
cmp.b	#89,$bfec01
bne	ck5
move.b	#4,$6ffff
jmp	stop
ck5:
cmp.b	#87,$bfec01
bne	ck6
move.b	#5,$6ffff
jmp	stop
ck6:
cmp.b	#85,$bfec01
bne	ck7
move.b	#6,$6ffff
jmp	stop
ck7:
cmp.b	#83,$bfec01
bne	ck8
move.b	#7,$6ffff
jmp	stop
ck8:
cmp.b	#81,$bfec01
bne	ck9
move.b	#8,$6ffff
jmp	stop
ck9:	jmp	wait
stop:	jsr	execer
jmp	wait
End:	move.l	oldinterrupt,$6c
	move.l	Oldcop,50(a0)
	move.w	#$8020,$dff096
	movem.l	(a7)+,a0-a6/d0-d7
	rts
Interrupt:
	movem.l	a0-a6/d0-d7,-(a7)
	cmp.b	#1,LOADVENT
	beq	OHNO
	bsr	scroll
	cmp.b	#117,$bfec01
	bne	stopper
	bchg	#1,$bfe001
stopper:
	movem.l	(a7)+,a0-a6/d0-d7
	jmp	$fc0cd8
OHNO:
	move.l	#13,d0
ADDER:	sub.b	#1,LOAD
	dbra	d0,ADDER
	move.l	#$ff,d0
	move.l	#$ffffffff,d1
YO:
YOYO:	dbra	d1,YOYO
	dbra	d0,YO
	move.l	#13,d0
SUBER:	add.b	#1,LOAD
	dbra	d0,SUBER
	move.b	#0,LOADVENT
	jmp	stopper
execer:
move.b	#1,LOADVENT
jsr	open
jsr	executer
jsr	close
rts
check:
move.b	$6ffff,d3
b1:
cmp.b	#1,d3
bne	b2
move.l	#com1,d1
b2:
cmp.b	#2,d3
bne	b3
move.l	#com2,d1
b3:
cmp.b	#3,d3
bne	b4
move.l	#com3,d1
b4:
cmp.b	#4,d3
bne	b5
move.l	#com4,d1
b5:
cmp.b	#5,d3
bne	b6
move.l	#com5,d1
b6:
cmp.b	#6,d3
bne	b7
move.l	#com6,d1
b7:
cmp.b	#7,d3
bne	b8
move.l	#com7,d1
b8:
cmp.b	#8,d3
bne	reset
move.l	#com8,d1
reset:
cmp.b	#0,d3
bne	na
jmp	$fc0000
na:	rts
open:
move.l	execbase,a6
lea	dosname,a1
moveq	#0,d0
jsr	openlib(a6)
move.l	d0,dosbase
beq	error
rts
executer:
move.l	dosbase,a6
jsr	check
clr.l	d2
jsr	execute(a6)
rts
close:
move.l	execbase,a6
move.l	dosbase,a1
jsr	closelib(a6)
rts
error:
	jmp	$fc0000
dosname:dc.b	"dos.library",0,0
even
dosbase:blk.l	1
com1:dc.b"df0:1",0,0
com2:dc.b"df0:2",0,0
com3:dc.b"df0:3",0,0
com4:dc.b"df0:4",0,0
com5:dc.b"df0:5",0,0
com6:dc.b"df0:6",0,0
com7:dc.b"df0:7",0,0
com8:dc.b"df0:8",0,0
even
Oldcop:		dc.l	0
oldinterrupt:	dc.l	0
even
LOADVENT:	dc.b	0
even
Copper: DC.W $8E,$2C81,$90,$2CC1,$92,$0038,$94,$00D0 
	DC.W $0120,$000,$122,$000
	DC.W $108,$0000
	DC.W $10A,$0000
	DC.W $180,$0000
	DC.W $0100,$5200
	DC.W $E0,$0006
	DC.W $E2,$2000
	DC.W $E4,$0006
	DC.W $E6,$3130
	DC.W $E8,$0006
	DC.W $EA,$4260
	DC.W $EC,$0006
	DC.W $EE,$5390
	DC.W $F0,$0006
	DC.W $F2,$64C0
	DC.W $9209,$FFFE
	DC.W $0100,$0200
	DC.W $9A09,$FFFE
	DC.W $0100,$1200
	DC.W $E0,$0006
	DC.W $E2,$0000
	DC.W $FFDF,$FFFE
	DC.W $0209,$FFFE
	DC.W $0100,$0200
	DC.W $2009,$FFFE
	dc.w $0100,$3200
	dc.w $e0,$0007
	dc.w $e2,$0002
	dc.w $e4,$0007
	dc.w $e6,$0212
	dc.w $e8,$0007
	dc.w $ea,$0422
	dc.w $8e,$9002
	dc.w $90,$f4FF
	dc.w $92,$30
	dc.w $94,$d8
	dc.w $108,2
	dc.w $10a,2
	dc.w $182,$00f0
	dc.w $184,$00f0
	dc.w $186,$00f0
	dc.w $188,$00f0
	dc.w $18a,$00f0
	dc.w $18c,$00f0
	dc.w $18e,$00f0
LOAD:	DC.W $2C09,$FF00
	DC.W $E0,$0007
	DC.W $E2,$1000
	DC.W $2D09,$FFFE
	DC.W $0100,$0200
	DC.W $ffff,$fffe
MENU:	blk.b	4204,0
LOGO:	blk.b	22000,0
LOADPIC:blk.b	880,0
scroll:
	cmp.w	#0,pause
	beq.s	ingpau
	subq.w	#1,pause
	rts
ingpau:	bsr	waitbl
	move.l	#$70002,a0
	moveq	#16,d0
	sub.b	fart,d0
	asl.w	#8,d0
	asl.w	#4,d0
	or.w	#$09f0,d0
	bra	blit
blit:	move.l	a0,bltapt
	move.w	#0,bltamod
	move.w	#$ffff,bltafwm
	move.w	#$ffff,bltalwm
	move.l	#$70000,bltdpt
	move.w	#0,bltdmod
	move.w	d0,bltcon0
	move.w	#0,bltcon1
	move.w	#$0858,bltsize
	move.b	fart,d0
	add.b	d0,bittl
	move.b	bittl,d0
	cmp.b	nvfb,d0
	bgt.s	ndata
	rts
ndata:	move.b	#0,bittl
	move.l	tekstp,a0
	moveq	#0,d0
	move.b	(a0)+,d0
	move.l	a0,tekstp
	cmp.b	#0,d0
	bne.L	chk1
	move.l	#tekst,tekstp
	bra.s	ndata
chk1:	cmp.b	#1,d0
	bne.s	chk2
	move.b	(a0)+,d0
	asl.w	#4,d0
	move.w	d0,pause
	move.l	a0,tekstp
	bra.s	ndata
chk2:	cmp.b	#2,d0
	bne.s	chk3
	move.b	(a0)+,fart
	move.l	a0,tekstp
	bra.s	ndata
chk3:	cmp.b	#3,d0
	bne.s	chk4
	move.b	(a0)+,retng
	move.l	a0,tekstp
	bra.s	ndata
chk4:
; pis of all gays
chk5:	sub.b	#32,d0
	lea	fontbr,a0
	move.b	(a0,d0.w),nvfb
	mulu	#22,d0

	lea	font,a0
	move.l	#$70000,a1
	move.l	mnster,a2
	bsr.s	infont
	move.l	#$70210,a1
	add.l	#22,a2
	bsr.s	infont
	move.l	#$70420,a1
	add.l	#22,a2
	bsr.s	infont
	rts
infont:	bsr	waitbl
	lea	0(a0,d0.l),a3
	move.l	a3,bltapt
	move.w	#$ffff,bltafwm
	move.w	#$ffff,bltalwm
	move.w	#0,bltamod
	move.l	a2,bltbpt
	move.w	#0,bltbmod
	move.w	#$0dc0,bltcon0
	add.l	#46,a1
	move.l	a1,bltdpt
	move.w	#44,bltdmod
	move.w	#$02c1,bltsize
	rts
waitbl:	btst	#14,$dff002
	bne.s	waitbl
	rts
fontbr:	dc.b	15,5,15,15,15,15,15,15,7,7,15,15,7,15,7,15
	dc.b	15,8,15,15,15,15,15,15,15,15,7,15,15,15,15,15
	dc.b	15,15,15,15,15,15,15,15,15,5,15,15,15,15,15,15
	dc.b	15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15
tekstp:	dc.l	tekst
mnster:	dc.l	mnst
pause:	dc.w	0
retng:	dc.b	0
fart:	dc.b	1
bittl:	dc.b	1
nvfb:	dc.b	1
mnst:	
dc.w	$ffff,0,$ffff,0,$ffff,0,$ffff,$ffff,0,$ffff,0
dc.w	0,$ffff,$38e8,0,$71c7,$ffff,$e38e,$8e38,$ffff,$1c71,0
dc.w	$1c71,$8e38,$c71c,$ffff,$8e38,$c171,$e38e,$8e38,$c71c
dc.w	$e38e,$ffff,$ffff,$ffff,0,0,$ffff,$ffff,0,0,$ffff
dc.w	$ffff,0,0,$ffff,$ffff,$ffff,$ffff,0,0,0,0,$ffff,$ffff
dc.w	0,$ffff,0,$ffff,0,$ffff,$ffff,$ffff,$ffff,0,$ffff
dc.w	$ffff,0,$ffff,0,$ffff,0,$ffff,$ffff,0,$ffff,0,0,$ffff
dc.w	$ffff,0,0,$ffff,$ffff,0,$ffff,$ffff,0,0,0,0,$ffff
dc.w	$ffff,$ffff,$ffff,0,0,0,$ffff,$ffff,$ffff
dc.w	$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
dc.w	$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
dc.w	$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
dc.w	$ffff,$ffff,$ffff,$ffff,$ffff,$ffff
font:	dc.w	0,0,0,0,0,0,0,0,0,0,0
dc.w $7000,$f800,$f800,$f800,$f800,$f800,$7000,0,$7000,$f800,$7000
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w $3e00,$7c00,$7c00,$f800,$f800,$f800,$f800,$f800,$7c00,$7c00,$3e00
dc.w $f800,$7c00,$7c00,$3e00,$3e00,$3e00,$3e00,$3e00,$7c00,$7c00,$f800
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,$f800,$f800,$7800,$f000
dc.w 0,0,0,0,$fffe,$fffe,$fffe,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,$7c00,$7c00,$7c00
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w $1ff0,$7ffc,$fffe,$f8fe,$f9fe,$fbbe,$ff3e,$fe3e,$fffe,$7ffc,$1ff0
dc.w $ff00,$ff00,$ff00,$1f00,$1f00,$1f00,$1f00,$1f00,$1f00,$1f00,$1f00
dc.w $fffc,$fffe,$fffe,$003e,$7ffe,$fffe,$fffc,$f800,$fffe,$fffe,$fffe
dc.w $fffe,$fffe,$fffe,$003e,$1ffe,$1ffc,$1ffc,$3e,$fffe,$fffe,$fffc
dc.w $f800,$f800,$f87c,$f87c,$f87c,$fffe,$fffe,$fffe,$7c,$7c,$7c
dc.w $fffe,$fffe,$fffe,$f800,$fff8,$fffc,$fffe,$3e,$fffe,$fffc,$fff8
dc.w $1ffe,$7ffe,$fffe,$f800,$fff8,$fffc,$fffe,$f83e,$fffe,$7ffc,$1ff0
dc.w $fffe,$fffe,$fffe,$7c,$f8,$1f0,$3e0,$7c0,$7c0,$7c0,$7c0
dc.w $1ff0,$7ffc,$fffe,$f83e,$fffe,$7ffc,$fffe,$f83e,$fffe,$7ffc,$1ff0
dc.w $1ff0,$7ffc,$fffe,$f83e,$fffe,$7ffe,$1ffe,$3e,$fffe,$fffc,$fff0
dc.w 0,0,$f800,$f800,$f800,0,$f800,$f800,$f800,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w $fff8,$fffc,$fffe,$3e,$3fe,$7fe,$7fc,0,$7c0,$7c0,$7c0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w $7ffc,$fffe,$fffe,$f83e,$fffe,$fffe,$fffe,$f83e,$f83e,$f83e,$f83e
dc.w $fffc,$fffe,$fffe,$f83e,$fffe,$fffc,$fffe,$f83e,$fffe,$fffe,$fffc
dc.w $7ffe,$fffe,$fffe,$f800,$f800,$f800,$f800,$f800,$fffe,$fffe,$7ffe
dc.w $fffc,$fffe,$fffe,$f83e,$f83e,$f83e,$f83e,$f83e,$fffe,$fffe,$fffc
dc.w $fffe,$fffe,$fffe,$f800,$fff8,$fff8,$fff8,$f800,$fffe,$fffe,$fffe
dc.w $fffe,$fffe,$fffe,$f800,$fff8,$fff8,$fff8,$f800,$f800,$f800,$f800
dc.w $7ffe,$fffe,$fffe,$f800,$f8fe,$f8fe,$f8fe,$f83e,$fffe,$fffe,$7ffe
dc.w $f83e,$f83e,$f83e,$f83e,$fffe,$fffe,$fffe,$f83e,$f83e,$f83e,$f83e
dc.w $f800,$f800,$f800,$f800,$f800,$f800,$f800,$f800,$f800,$f800,$f800
dc.w $3e,$3e,$3e,$3e,$3e,$3e,$3e,$3e,$fffe,$fffe,$fffc
dc.w $f83e,$f83e,$f87e,$f8fc,$fff8,$fff0,$fff8,$f8fc,$f87e,$f83e,$f83e
dc.w $f800,$f800,$f800,$f800,$f800,$f800,$f800,$f800,$fffe,$fffe,$fffe
dc.w $f83e,$fc7e,$fefe,$fffe,$fffe,$fbbe,$f93e,$f83e,$f83e,$f83e,$f83e
dc.w $f83e,$fc3e,$fe3e,$ff3e,$ffbe,$fffe,$fbfe,$f9fe,$f8fe,$f87e,$f83e
dc.w $7ffc,$fffe,$fffe,$f83e,$f83e,$f83e,$f83e,$f83e,$fffe,$fffe,$7ffc
dc.w $fffc,$fffe,$fffe,$f83e,$fffe,$fffe,$fffc,$f800,$f800,$f800,$f800
dc.w $7ffc,$fffe,$fffe,$f83e,$f83e,$f83e,$f9fe,$f9fe,$fffe,$fffe,$7ffe
dc.w $fffc,$fffe,$fffe,$f83e,$fffe,$fffc,$fffe,$f83e,$f83e,$f83e,$f83e
dc.w $7ffe,$fffe,$fffe,$f800,$fffc,$fffe,$7ffe,$3e,$fffe,$fffe,$fffc
dc.w $fffe,$fffe,$fffe,$7c0,$7c0,$7c0,$7c0,$7c0,$7c0,$7c0,$7c0
dc.w $f83e,$f83e,$f83e,$f83e,$f83e,$f83e,$f83e,$f83e,$fffe,$fffe,$7ffc
dc.w $f83e,$f83e,$7c7c,$7c7c,$3ef8,$3ef8,$1ff0,$1ff0,$fe0,$fe0,$7c0
dc.w $f83e,$f83e,$f83e,$f83e,$f93e,$fbbe,$fffe,$fffe,$fefe,$fc7e,$f83e
dc.w $f83e,$f83e,$7c7c,$3ef8,$1ff0,$fe0,$1ff0,$3ef8,$7c7c,$f83e,$f83e
dc.w $f83e,$f83e,$7c7c,$3ef8,$1ff0,$fe0,$7c0,$7c0,$7c0,$7c0,$7c0
dc.w $fffe,$fffe,$fffe,$fe,$3f8,$fe0,$3f80,$fe00,$fffe,$fffe,$fffe
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
dc.w 0,0,0,0,0,0,0,0,0,0,0
tekst:DC.B 2,2,"WE WELCOME YOU TO OUR NEW PRODUCTION CALLED ",2,1
DC.B "TRITECH AND REBELS MUSIC COLLECTION III ",2,2,".. CREDITS! "
DC.B "CODING AND PACKING BY CONAN (TRITECH) AND CRUNCHER (REBELS) .. "
DC.B "THE LOGO ABOVE WAS DRAWN BY ROBOTECH (TRITECH) .. TRITECH SENDS"
DC.B " GOLDEN REGALDS TO .. REBELS .. CALIFORNIAN BEACH BOYS .. "
DC.B "FOUNDATION .. HOLGER DK .. OUTERSPACE CREW .. RANGER!!!     "
DC.B "I (CONAN) WILL SOON HAND THE KEYBOARD TO THE OTHERS ,BUT "
DC.B "UNFORTUNATLY THEY ARE SLEEPING NOW!!! SO I WILL WRITE SOME "
DC.B "MORE SHIT... WE WILL SOON RELEASE OUR MEGA VIRUS-KILLER AND "
DC.B "PERHAPS OUR NEW DEMO!!! WELL THATS ALL FROM ME......",0