songlength = 153190
>extern "df2:modules/td.",bpsong,songlength

start:	bra		start2
dc.b	"(C)1989 by Brian Postma "
dc.b	"J.v.Hartenstraat 51 "
dc.b	"7576 VX Oldenzaal "
dc.b	"Holland "
dc.b	"Tel:05410-14763 "
even
start2:	move.l		4,a6
	jsr		-132(a6)
	bsr		initcop
	bsr		bpinit
	move.l		#newcop,$dff080
	clr.w		$dff088
	move.w		#$8400,$dff096
	move.l		$6c,oldirq
	move.l		#newirq,$6c
wait:	btst		#6,$bfe001
	bne		wait
	move.l		oldirq,$6c
	move.w		#$040f,$dff096
	move.l		4,a6
	lea		gfxname,a1
	jsr		-408(a6)
	move.l		d0,a1
	move.l		38(a1),$dff080
	clr.w		$dff088
	jsr		-414(a6)
	jsr		-138(a6)
	move.w		#$8020,$dff096
	clr.l		d0
	rts

initcop:move.l		#scrplane,d0
	move.w		d0,scrpl+6
	swap		d0
	move.w		d0,scrpl+2

	move.l		#tcpic,d0
	move.w		d0,tcpl+6
	swap		d0
	move.w		d0,tcpl+2

	move.l		#specplane,d0
	move.w		d0,specpl+6
	swap		d0
	move.w		d0,specpl+2
	move.l		#specplane2,d0
	move.w		d0,specpl+14
	swap		d0
	move.w		d0,specpl+10
	move.l		#specplane3,d0
	move.w		d0,specpl+22
	swap		d0
	move.w		d0,specpl+18

	move.l		#11776/2-1,d7
	lea		specplane2,a0
	lea		specplane3,a1
icloop1:move.w		#$f00f,(a0)+
	move.w		#$cc33,(a1)+
	dbra		d7,icloop1

	move.l		#vuplane,d0
	move.w		d0,vupl+14
	swap		d0
	move.w		d0,vupl+10
	move.l		#vuplane+46+46,d0
	move.w		d0,vupl+22
	swap		d0
	move.w		d0,vupl+18
	move.l		#vuplane+46,d0
	move.w		d0,vupl+6
	swap		d0
	move.w		d0,vupl+2
	rts

newirq:	movem.l		d0-d7/a0-a6,-(a7)
	bsr		vu
	bsr		clearspec
	bsr		speccie
	bsr		scroll
	bsr		bpmusic
	movem.l		(a7)+,d0-d7/a0-a6
	dc.w		$4ef9
oldirq:	dc.l		0

scroll:	tst.b		gscroll
	bne		text
	bsr		waitblt
	move.l		#$e9f00000,$dff040
	move.l		#$ffff00ff,$dff044
	move.l		#scrplane,$dff054
	move.l		#scrplane+2,$dff050
	clr.l		$dff064
	move.w		#11*64+23,$dff058
text:	subq.b		#1,scrcount
	beq		newtext
	rts
newtext:move.b		#4,scrcount
	move.l		stringpointer,a0
	moveq		#0,d0
	move.b		(a0),d0
	cmpi.b		#'a',d0
	bne		nota
	move.b		#1,gscroll
	move.b		#127,scrcount
	bra		ntext
nota:	cmpi.b		#'b',d0
	bne		notb
	clr.b		gscroll
	bra		ntext
notb:	sub.b		#32,d0
	add.l		#font,d0
	move.l		d0,a0
	move.l		#10-1,d7
	lea		scrplane+46+44,a1
ntloop:	move.b		(a0),(a1)
	add.l		#46,a1
	add.l		#60,a0
	dbra		d7,ntloop
ntext:	addq.l		#1,stringpointer
	cmpi.l		#endstring,stringpointer
	bne		not_end
	move.l		#string,stringpointer
not_end:rts


vudat:
DC.B 255,222,0,34,255,224,0,36,255,226,0,37,255,227,0,39
DC.B 255,229,0,40,255,231,0,41,255,233,0,42,255,235,0,43
DC.B 255,238,0,44,255,240,0,45,255,242,0,46,255,244,0,47
DC.B 255,247,0,47,255,249,0,47,255,251,0,48,255,254,0,48
DC.B 0,0,0,48,0,2,0,48,0,5,0,48,0,7,0,47
DC.B 0,9,0,47,0,12,0,47,0,14,0,46,0,16,0,45
DC.B 0,18,0,44,0,21,0,43,0,23,0,42,0,25,0,41
DC.B 0,27,0,40,0,29,0,39,0,30,0,37,0,32,0,36
DC.B 0,34,0,34,
vudata:	dc.w		32,32,32,32
vu:	bsr		waitblt
	move.l		#$01000000,$dff040
	move.l		#vuplane,$dff054
	clr.w		$dff066
	move.w		#64*64+23,$dff058

	move.l		#3,d7
	lea		vudat,a1
	move.w		#73,d0
	move.w		#64,d1
	lea		vudata,a0
vuloop:	tst.w		(a0)
	beq		vis0
	subq.w		#1,(a0)
vis0:	move.w		(a0)+,d4
	lsl.w		#2,d4		;x4
	move.w		(a1,d4.w),d5
	move.w		2(a1,d4.w),d6
	move.w		d0,d2
	add.w		d5,d2
	move.w		d1,d3
	sub.w		d6,d3
	bsr		drawline
	add.w		#73,d0
	dbra		d7,vuloop
	rts


; d0 = x1, d1 = y1, d2 = x2, d3 = y2
; a0 = plane, a1 = width of plane in bytes, a2 = mask

drawline:
	cmp.w		d0,d2
	bne		doit1
	cmp.w		d1,d3
	bne		doit1
	rts
doit1:	movem.l		d0-d7/a0-a6,-(a7)
	lea		vuplane,a0
	move.l		#$ffffffff,a2
	move.l		#46,a1

	move.l 		a1,d4
	mulu 		d1,d4
	moveq 		#-$10,d5
	and.w 		d0,d5
	lsr.w 		#3,d5
	add.w 		d5,d4
	add.l 		a0,d4

	clr.l 		d5
	sub.w 		d1,d3
	roxl.b 		#1,d5
	tst.w 		d3
	bge.s 		y2gy1
	neg.w 		d3
y2gy1:	sub.w 		d0,d2
	roxl.b 		#1,d5
	tst.w 		d2
	bge.s 		x2gx1
	neg.w 		d2
x2gx1:	move.w 		d3,d1
	sub.w 		d2,d1
	bge.s 		dygdx
	exg 		d2,d3
dygdx:	roxl.b 		#1,d5
	move.b 		okttabelle(pc,d5),d5
	add.w 		d2,d2

wblit:	btst 		#14,$dff002
	bne.s 		wblit

	move.w 		d2,$dff062
	sub.w 		d3,d2
	bge.s 		signnl
	or.b 		#$40,d5
signnl:	move.w 		d2,$dff052
	sub.w 		d3,d2
	move.w 		d2,$dff064

	move.w 		#$8000,$dff074
	move.w 		a2,$dff072
	move.w 		#$ffff,$dff044
	and.w 		#$000f,d0
	ror.w 		#4,d0
	or.w 		#$0bca,d0
	move.w 		d0,$dff040
	move.w 		d5,$dff042
	move.l 		d4,$dff048
	move.l 		d4,$dff054
	move.w 		a1,$dff060
	move.w 		a1,$dff066

	lsl.w 		#6,d3
	addq.w	 	#2,d3
	move.w		d3,$dff058
	movem.l		(a7)+,d0-d7/a0-a6
	rts

okttabelle:
dc.b 0 *4+3
dc.b 4 *4+3
dc.b 2 *4+3
dc.b 5 *4+3
dc.b 1 *4+3
dc.b 6 *4+3
dc.b 3 *4+3
dc.b 7 *4+3

clearspec:
	bsr		waitblt
	move.l		#$01000000,$dff040
	move.l		#specplane,$dff054
	clr.w		$dff066
	move.w		#128*64+46,$dff058
	rts

waitblt:btst		#14,$dff002
	bne		waitblt
	rts

specdat:blk.b		46,0

speccie:move.l		#45,d7
	lea		specdat,a0
	move.l		#92*127+specplane,a1
speclop:tst.b		(a0)
	beq		spec0
	bsr		waitblt
	move.l		#$09ff0000,$dff040
	move.l		#$ffffffff,$dff044
	move.l		a1,$dff054
	move.w		#-94,$dff066
	clr.w		d0
	move.b		(a0),d0
	lsl.w		#6,d0		;x 64
	addq.w		#1,d0
	move.w		d0,$dff058	;BLTSize
	subq.b		#2,(a0)
spec0:	addq.l		#1,a0
	addq.l		#2,a1
	dbra		d7,speclop
	bsr		waitblt
	rts

*----------------------------------------------------
; The Brian's SoundMon Player Routine (C)1988
; By Brian Postma
; J.v.Hartenstraat 51
; 7576VX Oldenzaal (NL)
; Tel:05410-14763
*----------------------------------------------------
bpinit:
 lea		samples,a0
 lea		bpsong,a1
 move.l		#512,d0
 move.w		30(a1),d1	;d1 now contains length in steps
 move.l		#1,d2		;1 is highest pattern number
 mulu		#4,d1		;4 voices per step
 subq.w		#1,d1		;correction for DBRA
findhighest:
 cmp.w		(a1,d0),d2	;Is it higher
 bge		nothigher	;No
 move.w		(a1,d0),d2	;Yes, so let D2 be highest
nothigher:
 addq.l		#4,d0		;Next Voice
 dbra		d1,findhighest	;And search
 move.w		30(a1),d1
 mulu		#16,d1		;16 bytes per step
 move.l		#512,d0		;header is 512 bytes
 mulu		#48,d2		;48 bytes per pattern
 add.l		d2,d0
 add.l		d1,d0		;offset for samples

 move.l		#14,d1		;15 samples
 add.l		#32+24,a1
 add.l		#bpsong,d0
initloop:
 move.l		d0,(a0)+
 move.w		(a1),d2
 mulu		#2,d2		;Length is in words
 add.l		d2,d0		;offset next sample
 add.l		#32,a1		;Length of Sample Part in header
 dbra		d1,initloop
 rts

bpmusic:
 subq.b		#1,arpcount
 move.l		#3,d0
 lea		bpcurrent,a0
 move.l		#$dff0a0,a1
bploop1:
 move.b		12(a0),d4
 ext.w		d4
 add.w		d4,(a0)
 move.w		(a0),6(a1)
 move.l		4(a0),(a1)
 move.w		8(a0),4(a1)
 tst.b		11(a0)
 bne		bpdoarp
 tst.b		13(a0)
 beq		not2
bpdoarp:
 tst.b		arpcount
 bne		not0
 move.b		11(a0),d3
 move.b		13(a0),d4
 and.w		#240,d4
 and.w		#240,d3
 lsr.w		#4,d3
 lsr.w		#4,d4
 add.w		d3,d4
 add.b		10(a0),d4
 bsr		bpplayarp
 bra		not2
not0:
 cmpi.b		#1,arpcount 
 bne		not1
 move.b		11(a0),d3
 move.b		13(a0),d4
 and.w		#15,d3
 and.w		#15,d4
 add.w		d3,d4
 add.b		10(a0),d4
 bsr		bpplayarp
 bra		not2
not1:
 move.b		10(a0),d4
 bsr		bpplayarp
not2:
 lea		$10(a1),a1
 lea		$e(a0),a0
 dbra		d0,bploop1
 tst.b		arpcount
 bne		arpnotzero
 move.b		#3,arpcount
arpnotzero:
 subq.b		#1,bpcount
 beq		bpskip1
 rts
bpskip1:
 move.b		bpdelay,bpcount
bpplay:
 bsr		bpnext
 move.w		dma,$dff096
 move.l		#$1f4,d0
bpxx:
 dbf		d0,bpxx
 move.l		#3,d0
 move.l		#$dff0a0,a1
 move.w		#1,d1
 lea		bpcurrent,a2
 lea		vudata,a6
bploop2:
 btst		#15,(a2)
 beq		bpskip7
 bsr		bpplayit
 move.w		#32,(a6)
 move.l		a6,-(a7)
 lea		specdat+5,a6
 clr.w		d3
 move.b		10(a2),d3
 move.b		#126,(a6,d3.w)
 cmpi.b		#64,-1(a6,d3.w)
 bge		oh_no_1
 move.b		#64,-1(a6,d3.w)
oh_no_1:
 cmpi.b		#64,1(a6,d3.w)
 bge		oh_no_2
 move.b		#64,1(a6,d3.w)
oh_no_2:
 move.l		(a7)+,a6
bpskip7:
 addq.l		#2,a6
 asl.w		#1,d1
 lea		$10(a1),a1
 lea		$e(a2),a2
 dbra		d0,bploop2
 rts

bpnext:
 clr.w		dma
 lea		bpsong,a0
 move.l		#$dff0a0,a3
 move.l		#3,d0
 move.w		#1,d7
 lea		bpcurrent,a1
bploop3:
 clr.l		d1
 move.w		bpstep,d1
 lsl.w		#4,d1
 move.l		d0,d2
 lsl.l		#2,d2
 add.l		d2,d1
 add.l		#512,d1
 move.w		(a0,d1),d2
 move.b		2(a0,d1),st
 move.b		3(a0,d1),tr
 subq.w		#1,d2
 mulu		#48,d2
 clr.l		d3
 move.w		30(a0),d3
 lsl.w		#4,d3
 add.l		d2,d3
 move.l	  	#$00000200,d4
 move.b		bppatcount,d4
 add.l		d3,d4
 move.l		d4,a2
 add.l		a0,a2

 clr.l		d3 
 move.b		(a2),d3
 tst.b		d3
 bne		bpskip4
 bra		bpoptionals
bpskip4:
 clr.w		12(a1)	  ;Clear autoslide/autoarpeggio
 move.b		1(a2),d4
 and.b		#15,d4
 cmpi.b		#10,d4    ;Option 10->transposes off
 bne		bp_do1
 move.b		2(a2),d4
 and.b		#240,d4	  ;Higher nibble=transpose
 bne		bp_not1
bp_do1:
 add.b		tr,d3
bp_not1:
 move.b		d3,10(a1) ; Voor Arpeggio's
 lea		bpper,a4
 lsl.w		#1,d3
 move.w		-2(a4,d3.w),(a1)
 bset		#15,(a1)
 move.b		#$ff,2(a1)

 clr.w		d3
 move.b		1(a2),d3
 lsr.b		#4,d3
 and.b		#15,d3
 tst.b		d3
 bne		bpskip5
 move.b		3(a1),d3 
bpskip5: 
 move.b		1(a2),d4
 and.b		#15,d4
 cmpi.b		#10,d4		;option 10
 bne		bp_do2
 move.b		2(a2),d4
 and.b		#15,d4
 bne		bp_not2
bp_do2:
 add.b		st,d3
bp_not2:
 cmpi.w		#1,8(a1)
 beq		bpsamplechange
 cmpi.b		3(a1),d3
 beq		bpoptionals
bpsamplechange:
 move.b		d3,3(a1)
 or.w		d7,dma
 
bpoptionals: 
 clr.l		d3
 clr.l		d4
 move.b		1(a2),d3
 and.b		#15,d3
 move.b		2(a2),d4
 
; Optionals Here
 cmpi.b		#0,d3
 bne		notopt0
 move.b		d4,11(a1)
notopt0:
 cmpi.b		#1,d3
 bne		bpskip3
 move.w		d4,8(a3)
 move.b		d4,2(a1) ; Volume ook in BPCurrent
bpskip3:
 cmpi.b		#2,d3  ; Set Speed
 bne		bpskip9
 move.b		d4,bpcount
 move.b		d4,bpdelay
bpskip9:
 cmpi.b		#3,d3 ; Filter = LED control
 bne		bpskipa
 tst.b		d4
 bne		bpskipb
 bset		#1,$bfe001
 bra		bpskip2
bpskipb:
 bclr		#1,$bfe001
bpskipa:
 cmpi.b		#4,d3 ; PortUp
 bne		noportup
 sub.w		d4,(a1) ; Slide data in BPCurrent
 move.w		(a1),6(a3) ; En in AudPer reg.
 clr.b		11(a1) ; Arpeggio's uit
noportup:
 cmpi.b		#5,d3 ; PortDown
 bne		noportdn
 add.w		d4,(a1) ; Slide down
 clr.b		11(a1)
 move.w		(a1),6(a3)
noportdn:
 cmpi.b		#6,d3	; SetRepCount
 bne		notopt6
 move.b		d4,bprepcount
notopt6:
 cmpi.b		#7,d3	; DBRA repcount
 bne		notopt7
 subq.b		#1,bprepcount
 beq		notopt7
 move.w		d4,bpstep
notopt7:
 cmpi.b		#8,d3	;Set AutoSlide
 bne		notopt8
 move.b		d4,12(a1)
notopt8:
 cmpi.b		#9,d3	;Set AutoArpeggio
 bne		notopt9
 move.b		d4,13(a1)
notopt9:
bpskip2:
 lea		$10(a3),a3
 lea		$e(a1),a1
 asl.w		#1,d7
 dbra		d0,bploop3 				
 addq.b		#3,bppatcount
 cmpi.b		#48,bppatcount
 bne		bpskip8
 move.b		#0,bppatcount
 addq.w		#1,bpstep
 lea		bpsong,a0
 move.w		30(a0),d1
 cmp.w		bpstep,d1
 bne		bpskip8
 move.w		#0,bpstep
bpskip8:
 rts

bpplayit:
 bclr		#15,(a2)
 move.w		(a2),6(a1)
 clr.l		d7
 move.b		3(a2),d7
 move.l		d7,d6
 lea		bpsong,a3
 lsl.l		#2,d6
 lea		samples,a4
 move.l		-4(a4,d6),d4
 beq		bp_nosamp
 move.l		d4,(a1)
 lsl.l		#5,d7
 add.l		#24,d7
 move.w		(a3,d7),4(a1)
 move.b		2(a2),9(a1)
 cmpi.b		#$ff,2(a2)
 bne		skipxx
 move.w		6(a3,d7),8(a1)
skipxx: 
 move.w		4(a3,d7),8(a2)
 clr.l		d6
 move.w		2(a3,d7),d6
 add.l		d6,d4
 move.l		d4,4(a2)
 cmpi.w		#1,8(a2)
 bne		bpskip6
bp_nosamp:
 move.l		#null,4(a2)
 bra		bpskip10
bpskip6:
 move.w		8(a2),4(a1)
 move.l		4(a2),(a1)
bpskip10:
 add.w		#$8000,d1
 move.w		d1,$dff096
 rts
bpplayarp:
 lea		bpper,a4
 and.w		#$ff,d4
 lsl.w		#1,d4
 move.w		-2(a4,d4.w),6(a1)
 rts
  
null: dc.w 0
bpcurrent: dc.w 0,0	;periode,instrument
	   dc.l null	;start
           dc.w 1	;length (words)
	   dc.b 0,0,0,0 ;noot,arpeggio,autoslide,autoarpeggio

           dc.w 0,0
	   dc.l null
	   dc.w 1,0,0

 	   dc.w 0,0
	   dc.l null
	   dc.w 1,0,0

	   dc.w 0,0
	   dc.l null
	   dc.w 1,0,0
bpstep: dc.w 0
bppatcount: dc.b 0
st: dc.b 0
tr: dc.b 0
bpcount: dc.b 1
bpdelay: dc.b 6
arpcount: dc.b 1
bprepcount: dc.b 1
 even
dma: dc.w 0
bpper:
 dc.w	856,808,760,720,680,640,604,572,540,508,480,452
 dc.w	428,404,380,360,340,320,302,286,270,254,240,226
 dc.w	214,202,190,180,170,160,151,143,135,127,120,113
samples:
 blk.l	15,0

bpsong: blk.b songlength,0


newcop:	dc.w	$0096,$0020,$0120,$0000,$0122,$0000
	dc.w	$0100,$0000,$0180,$0000,$0092,$0028
	dc.w	$0094,$00d8,$008e,$296a,$0090,$29fa
	dc.w	$0102,$0000,$0104,$0000
	dc.w	$0108,$0000,$010a,$0000
	dc.w	$0092,$0040,$0094,$00c8
tcpl:	dc.w	$e0,0,$e2,0,$0182,$0730
	dc.w	$2a01,$fffe,$0100,$1000
	dc.w	$2d07,$fffe,$0182,$0842
	dc.w	$2e07,$fffe,$0182,$0964
	dc.w	$2f07,$fffe,$0182,$0a76
	dc.w	$3007,$fffe,$0182,$0b98
	dc.w	$3107,$fffe,$0182,$0caa
	dc.w	$3207,$fffe,$0182,$0dcc
	dc.w	$3307,$fffe,$0182,$0ede
	dc.w	$3407,$fffe,$0182,$0fff
	dc.w	$3607,$fffe,$0182,$0eee
	dc.w	$3707,$fffe,$0182,$0cdd
	dc.w	$3807,$fffe,$0182,$0acc
	dc.w	$3907,$fffe,$0182,$08bb
	dc.w	$3a07,$fffe,$0182,$06aa
	dc.w	$3b07,$fffe,$0182,$0499
	dc.w	$3c07,$fffe,$0182,$0288
	dc.w	$3d07,$fffe,$0182,$0077
	dc.w	$4001,$fffe,$0100,0,$0102,$88

	dc.w	$0092,$0028,$0094,$00d8,$0182,$00ff
	dc.w	$0184,$0088,$0186,$00ff,$0188,$0088
	dc.w	$018a,$00ff,$018c,$0088,$018e,$00ff
vupl:	dc.w	$e0,0,$e2,0,$e4,0,$e6,0,$e8,0,$ea,0
	dc.w	$4107,$fffe,$0180,$303,$0100,$3000
	dc.w	$4207,$fffe,$0180,$707
	dc.w	$4307,$fffe,$0180,$b0b
	dc.w	$4407,$fffe,$0180,$f0f
	dc.w	$4607,$fffe,$0180,$b0b
	dc.w	$4707,$fffe,$0180,$707
	dc.w	$4807,$fffe,$0180,$303
	dc.w	$4907,$fffe,$0180,$000

	dc.w	$6d01,$fffe,$0102,$0bb
	dc.w	$6e01,$fffe,$0102,$0dd
	dc.w	$6f01,$fffe,$0102,$0ee
	dc.w	$7001,$fffe,$0102,$0ff
	dc.w	$7101,$fffe,$0102,$0ff
	dc.w	$7201,$fffe,$0102,$0ee
	dc.w	$7301,$fffe,$0102,$0dd
	dc.w	$7401,$fffe,$0102,$0bb
	dc.w	$7501,$fffe,$0102,$088
	dc.w	$7601,$fffe,$0102,$055
	dc.w	$7701,$fffe,$0102,$033
	dc.w	$7801,$fffe,$0102,$022
	dc.w	$7901,$fffe,$0102,$011
	dc.w	$7a01,$fffe,$0102,$011
	dc.w	$7b01,$fffe,$0102,$022
	dc.w	$7c01,$fffe,$0102,$033
	dc.w	$7d01,$fffe,$0102,$055
	dc.w	$7e01,$fffe,$0102,$088

	dc.w	$7e01,$fffe,$0100,0
	dc.w	$8407,$fffe,$0180,$303
	dc.w	$8507,$fffe,$0180,$707
	dc.w	$8607,$fffe,$0180,$b0b
	dc.w	$8707,$fffe,$0180,$f0f
	dc.w	$8907,$fffe,$0180,$b0b
	dc.w	$8a07,$fffe,$0180,$707
	dc.w	$8b07,$fffe,$0180,$303
	dc.w	$8c07,$fffe,$0180,$000

specpl:	dc.w	$e0,0,$e2,0,$e4,0,$e6,0,$e8,0,$ea,0
	dc.w	$0108,$0000,$010a,$0000,$0182,$0f00
	dc.w	$0184,$0000,$0186,$0b00,$0188,$0000
	dc.w	$018a,$0d00,$018c,$0000,$018e,$0900

	dc.w	$8f01,$fffe,$0100,$b000,$0102,$0000
	dc.w	$9f01,$fffe,$0182,$0f10,$0186,$0b10
	dc.w	$018a,$0d10,$018e,$0910
	dc.w	$a101,$fffe,$0182,$0f20,$0186,$0b20
	dc.w	$018a,$0d20,$018e,$0920
	dc.w	$a301,$fffe,$0182,$0f30,$0186,$0b30
	dc.w	$018a,$0d30,$018e,$0930
	dc.w	$a501,$fffe,$0182,$0f40,$0186,$0b40
	dc.w	$018a,$0d40,$018e,$0940
	dc.w	$a701,$fffe,$0182,$0f50,$0186,$0b50
	dc.w	$018a,$0d50,$018e,$0950
	dc.w	$a901,$fffe,$0182,$0f60,$0186,$0b60
	dc.w	$018a,$0d60,$018e,$0960
	dc.w	$ab01,$fffe,$0182,$0f70,$0186,$0b70
	dc.w	$018a,$0d70,$018e,$0970
	dc.w	$ad01,$fffe,$0182,$0f80,$0186,$0b80
	dc.w	$018a,$0d80,$018e,$0980
	dc.w	$af01,$fffe,$0182,$0f90,$0186,$0b90
	dc.w	$018a,$0d90,$018e,$0990
	dc.w	$b101,$fffe,$0182,$0fa0,$0186,$0ba0
	dc.w	$018a,$0da0,$018e,$0990
	dc.w	$b301,$fffe,$0182,$0fb0,$0186,$0bb0
	dc.w	$018a,$0db0,$018e,$0990
	dc.w	$b501,$fffe,$0182,$0fc0,$0186,$0bb0
	dc.w	$018a,$0dc0,$018e,$0990
	dc.w	$b701,$fffe,$0182,$0fd0,$0186,$0bb0
	dc.w	$018a,$0dd0,$018e,$0990
	dc.w	$b901,$fffe,$0182,$0fe0,$0186,$0bb0
	dc.w	$018a,$0dd0,$018e,$0990
	dc.w	$bb01,$fffe,$0182,$0ff0,$0186,$0bb0
	dc.w	$018a,$0dd0,$018e,$0990

	dc.w	$bd01,$fffe,$0182,$0ef0,$0186,$0bb0
	dc.w	$018a,$0dd0,$018e,$0990
	dc.w	$bf01,$fffe,$0182,$0df0,$0186,$0bb0
	dc.w	$018a,$0dd0,$018e,$0990
	dc.w	$c101,$fffe,$0182,$0cf0,$0186,$0bb0
	dc.w	$018a,$0cd0,$018e,$0990
	dc.w	$c301,$fffe,$0182,$0bf0,$0186,$0bb0
	dc.w	$018a,$0bd0,$018e,$0990
	dc.w	$c501,$fffe,$0182,$0af0,$0186,$0ab0
	dc.w	$018a,$0ad0,$018e,$0990
	dc.w	$c701,$fffe,$0182,$09f0,$0186,$09b0
	dc.w	$018a,$09d0,$018e,$0990
	dc.w	$c901,$fffe,$0182,$08f0,$0186,$08b0
	dc.w	$018a,$08d0,$018e,$0890
	dc.w	$cb01,$fffe,$0182,$07f0,$0186,$07b0
	dc.w	$018a,$07d0,$018e,$0790
	dc.w	$cd01,$fffe,$0182,$06f0,$0186,$06b0
	dc.w	$018a,$06d0,$018e,$0690
	dc.w	$cf01,$fffe,$0182,$05f0,$0186,$05b0
	dc.w	$018a,$05d0,$018e,$0590
	dc.w	$d101,$fffe,$0182,$04f0,$0186,$04b0
	dc.w	$018a,$04d0,$018e,$0490
	dc.w	$d301,$fffe,$0182,$03f0,$0186,$03b0
	dc.w	$018a,$03d0,$018e,$0390
	dc.w	$d501,$fffe,$0182,$02f0,$0186,$02b0
	dc.w	$018a,$02d0,$018e,$0290
	dc.w	$d701,$fffe,$0182,$01f0,$0186,$01b0
	dc.w	$018a,$01d0,$018e,$0190
	dc.w	$d901,$fffe,$0182,$00f0,$0186,$00b0
	dc.w	$018a,$00d0,$018e,$0090

	dc.w	$ffdf,$fffe
	dc.w	$0e07,$fffe,$0180,$303
	dc.w	$0f01,$fffe,$0100,$0000
	dc.w	$0f07,$fffe,$0180,$707
	dc.w	$1007,$fffe,$0180,$b0b
	dc.w	$1107,$fffe,$0180,$f0f
	dc.w	$1307,$fffe,$0180,$b0b
	dc.w	$1407,$fffe,$0180,$707
	dc.w	$1507,$fffe,$0180,$303
	dc.w	$1607,$fffe,$0180,$000
scrpl:	dc.w	$e0,0,$e2,0,$0182,$0840
	dc.w	$0092,$0030,$0094,$00d8,$0108,$0002
	dc.w	$1701,$fffe,$0100,$1000
	dc.w	$1907,$fffe,$0182,$0a74
	dc.w	$1a07,$fffe,$0182,$0ca8
	dc.w	$1b07,$fffe,$0182,$0edc
	dc.w	$1c07,$fffe,$0182,$0fff
	dc.w	$1d07,$fffe,$0182,$0cee
	dc.w	$1e07,$fffe,$0182,$08cc
	dc.w	$1f07,$fffe,$0182,$04aa
	dc.w	$2007,$fffe,$0182,$0088
	dc.w	$2201,$fffe,$0100,$0000
	dc.w	$ffff,$fffe

tcpic:
DC.B 63,255,255,252,63,252,63,255,255,255,255,192,63,255,255,192
DC.B 63,255,255,195,255,195,255,255,252,0,63,255,255,195,255,192
DC.B 3,255,255,252,63,255,255,252,63,252,63,255,255,255,255,240
DC.B 63,255,255,192,255,255,255,195,255,195,255,255,255,0,255,255
DC.B 255,195,255,192,3,255,255,252,63,255,255,252,63,252,63,255
DC.B 255,255,255,252,63,255,255,195,255,255,255,195,255,195,255,255
DC.B 255,195,255,255,255,195,255,192,3,255,255,252,63,255,255,252
DC.B 63,252,63,255,255,255,255,252,63,255,255,195,255,255,255,195
DC.B 255,195,255,255,255,195,255,255,255,195,255,192,3,255,255,252
DC.B 0,63,252,0,63,252,63,252,63,252,63,252,63,252,0,3
DC.B 255,195,255,195,255,195,255,195,255,195,255,195,255,195,255,192
DC.B 3,255,192,0,0,63,252,0,63,252,63,252,63,252,63,252
DC.B 63,252,0,3,255,195,255,195,255,195,255,195,255,195,255,195
DC.B 255,195,255,192,3,255,192,0,0,63,252,0,63,252,63,252
DC.B 63,252,63,252,63,252,0,3,255,195,255,195,255,195,255,195
DC.B 255,195,255,195,255,195,255,192,3,255,192,0,0,63,252,0
DC.B 63,252,63,252,63,252,63,252,63,252,0,3,255,195,255,195
DC.B 255,195,255,195,255,195,255,195,255,195,255,192,3,255,192,0
DC.B 0,63,252,0,63,252,63,252,63,252,63,252,63,255,252,3
DC.B 255,192,0,3,255,195,255,255,255,131,255,192,0,3,255,192
DC.B 3,255,255,192,0,63,252,0,63,252,63,252,63,252,63,252
DC.B 63,255,252,3,255,192,0,3,255,195,255,255,255,3,255,192
DC.B 0,3,255,192,3,255,255,192,0,63,252,0,63,252,63,252
DC.B 63,252,63,252,63,255,252,3,255,192,0,3,255,195,255,255
DC.B 255,3,255,192,0,3,255,192,3,255,255,192,0,63,252,0
DC.B 63,252,63,252,63,252,63,252,63,255,252,3,255,192,0,3
DC.B 255,195,255,255,255,131,255,192,0,3,255,192,3,255,255,192
DC.B 0,63,252,0,63,252,63,252,63,252,63,252,63,252,0,3
DC.B 255,192,0,3,255,195,255,195,255,195,255,192,0,3,255,192
DC.B 3,255,192,0,0,63,252,0,63,252,63,252,63,252,63,252
DC.B 63,252,0,3,255,192,0,3,255,195,255,195,255,195,255,192
DC.B 0,3,255,192,3,255,192,0,0,63,252,0,63,252,63,252
DC.B 63,252,63,252,63,252,0,3,255,192,0,3,255,195,255,195
DC.B 255,195,255,192,0,3,255,192,3,255,192,0,0,63,252,0
DC.B 63,252,63,252,63,252,63,252,63,252,0,3,255,192,0,3
DC.B 255,195,255,195,255,195,255,192,0,3,255,192,3,255,192,0
DC.B 0,63,252,0,63,252,63,252,63,252,63,252,63,255,255,195
DC.B 255,255,255,195,255,195,255,195,255,195,255,255,255,195,255,255
DC.B 255,255,255,252,0,63,252,0,63,252,63,252,63,252,63,252
DC.B 63,255,255,195,255,255,255,195,255,195,255,195,255,195,255,255
DC.B 255,195,255,255,255,255,255,252,0,63,252,0,63,252,63,252
DC.B 63,252,63,252,63,255,255,192,255,255,255,195,255,195,255,195
DC.B 255,192,255,255,255,195,255,255,255,255,255,252,0,63,252,0
DC.B 63,252,63,252,63,252,63,252,63,255,255,192,63,255,255,195
DC.B 255,195,255,195,255,192,63,255,255,195,255,255,255,255,255,252
DC.B 
		blk.b	46,0
vuplane:	blk.b	65*46,0
specplane:	blk.b	128*92,0
specplane2:	blk.b	128*92,0
specplane3:	blk.b	128*92,0
scrplane:	blk.b	46*11,0
oldcop:		dc.l	0
font:
DC.B 0,28,102,0,20,0,120,12,30,60,0,0,0,0,0,3
DC.B 63,60,126,126,30,126,62,127,62,62,0,0,0,0,0,124
DC.B 0,62,126,63,126,126,126,63,119,28,14,119,112,119,126,62
DC.B 126,124,126,63,127,119,119,119,119,119,127,0,0,28,102,0
DC.B 63,0,248,12,56,14,0,0,0,0,0,6,127,60,127,127
DC.B 62,126,126,127,127,127,0,0,0,0,0,126,0,127,127,127
DC.B 127,126,126,127,119,28,14,119,112,127,127,127,127,254,127,127
DC.B 127,119,119,119,119,119,127,0,0,28,102,20,127,0,224,24
DC.B 56,14,0,24,0,0,0,6,119,60,7,7,126,112,112,7
DC.B 119,119,24,24,6,0,48,14,0,119,119,119,119,112,112,112
DC.B 119,28,14,119,112,127,119,119,119,238,119,115,28,119,119,119
DC.B 119,119,7,0,0,28,0,20,120,0,255,0,56,14,42,24
DC.B 0,0,0,12,119,28,15,7,238,126,126,15,119,119,24,24
DC.B 12,60,24,30,0,119,119,119,119,112,112,112,119,28,14,119
DC.B 112,127,119,119,119,238,119,120,28,119,119,119,119,119,15,0
DC.B 0,28,0,62,60,0,127,0,56,14,28,126,0,62,0,24
DC.B 119,28,30,62,238,127,127,30,62,119,0,0,24,60,12,60
DC.B 0,119,126,112,119,124,124,119,127,28,14,126,112,127,119,119
DC.B 119,238,126,60,28,119,119,119,62,119,30,0,0,28,0,20
DC.B 30,0,238,0,56,14,62,126,0,62,0,24,119,28,60,63
DC.B 238,7,119,60,127,127,0,0,48,0,6,56,0,127,127,112
DC.B 119,124,124,119,127,28,14,127,112,119,119,119,127,238,127,30
DC.B 28,119,119,127,127,127,60,0,0,28,0,62,15,0,238,0
DC.B 56,14,28,24,0,0,0,48,119,28,120,7,255,7,119,56
DC.B 119,63,0,0,24,60,12,56,0,127,119,112,119,112,112,119
DC.B 119,28,14,119,112,119,119,119,126,238,119,15,28,119,54,127
DC.B 119,63,120,0,0,0,0,20,127,0,238,0,56,14,42,24
DC.B 0,0,0,96,119,28,112,7,255,7,119,56,119,7,24,24
DC.B 12,60,24,0,0,119,119,112,119,112,112,119,119,28,14,119
DC.B 112,119,119,119,112,238,119,103,28,119,62,127,119,7,112,0
DC.B 0,28,0,20,126,0,254,0,56,14,0,0,24,0,24,96
DC.B 127,28,127,127,14,127,127,56,127,63,24,24,6,0,48,56
DC.B 0,119,127,127,127,126,112,127,119,28,62,119,126,119,119,127
DC.B 112,255,119,127,28,127,28,127,119,127,127,0,0,28,0,0
DC.B 20,0,124,0,30,60,0,0,24,0,24,192,126,28,127,126
DC.B 14,126,62,56,62,62,0,48,0,0,0,56,0,119,126,63
DC.B 126,126,112,63,119,28,60,119,126,119,119,62,112,127,119,126
DC.B 28,62,28,119,119,126,127,0,
stringpointer:	dc.l	string
gscroll:	dc.b	0
scrcount:	dc.b	1
gfxname:	dc.b	"graphics.library",0
string:
 dc.b	" THE TIMECIRCLE               a b"
 dc.b	"WE BRING YOU SOME MUSIC BY ... "
 DC.B	"        SEBASTIAAN 'ZZZAX' LENTFERT        a b"
 dc.b	"THIS TIME A SAMPLED SONG CALLED 'HORIZON' .....  "
 DC.B	"MUSIC PLAYER AND OTHER SHIT CODED BY "
 DC.B	"           BRIAN 'EXODUS' POSTMA           a b"
 DC.B	"IF YOU ARE INTERESTED IN BUYING SOME GAME-MUSIC FROM US"
 DC.B	" (EITHER LONG-SAMPLED OR SHORT SYNTHETIC) THEN WRITE TO "
 DC.B	": THE TIMECIRCLE, P.O.BOX 367, 7570 AJ OLDENZAAL, HOLLAND, "
 DC.B	"OR CALL: BRIAN POSTMA AT 05410-14763 OR SEBASTIAAN LENTFERT"
 DC.B	" AT 05410-21727 ..... ANY OTHER REACTIONS CAN ALSO BE "
 DC.B	"SEND TO THE SAME ADRESS .... "
 dc.b	"WE WISH TO SALUTE OUR FELLOW TAIPAN MEMBERS : "
 DC.B	"SOFTRUNNER, VIRUS, ARTFIX, TATTOO, ADMIRAL, BIRD-SOFT, "
 DC.B	"REPLICA, ALF, FRIGHT NIGHT, MR.SPEEDY .... "
 DC.B	"OTHER VERY BIG FUCKIN' HELLOS TO : "
 DC.B	"MARTYN 'THE BEER MONSTER' "
 DC.B	"BROWN (HEY DON'T TALK ABOUT BEER BEFORE YOU TASTED "
 DC.B	"A REAL GROLSCH BEER, IF YOU ARE PRESENT IN EINDHOVEN "
 DC.B	"FROM 31 AUG TILL 2 SEP THEN WE'LL GIVE YOU SOME OF OURS)"
 DC.B	", RON FONTAINE (IS DE POT AL VOL ??)"
 DC.B	", ALLISTER BRIMBLE (YOU MAKE SOME NICE "
 DC.B	"C64 CONVERSIONS), ROY 'FREDDY BOY' TONIS (WHAT ABOUT "
 DC.B	"WALKER DEMO IV !!), FRED 'GALWAY' HAHN (ADSR ?? VIBRATO"
 DC.B	" ?? WHAT'S THAT ???), FRANKIE 'CELTIC' (HAD SOME NICE "
 DC.B	"S.E.X. WITH KATJA ?? BY THE WAY, YOUR BEER TASTED GREAT), "
 DC.B	"MANIACS OF NOISE (LEKKERE MUZIEK UIT UNREAL HOOR !!"
 DC.B	" ALLEEN FLIMBO'S QUEST VALT WAT TEGEN), "
 DC.B	"QUEENSRYCHE (LEKKERE MUZIEK HOOR !!) ..... "
 dc.b	"       THANK YOU FOR YOUR COOPERATION      a b"
 dc.b	"                                 "
endstring:	dc.b	32