***********************************************************************
;THIS SOURCE WAS WRITTEN BY RENE OLSTHOORN.
;
;IT'S A 140 LINES RGB-PLASMA(AND SOME RASTERLINES LEFT).
;ENJOY THE SOURCE, AND USE IT IF YOU LIKE.
;IF YOU DO, JUST PUT ME INTO YOUR GREETINGSLIST OF YOUR DEMO/INTRO.
;ASSEMBLE ONLY WITH DEVPAC 2 AND NO INCLUDE FILES NEEDED.
***********************************************************************

	opt c+
	SECTION PROGRAMM,CODE_C
; this is the callexec-macro (_sysbase = execbase = $4).
CALLEXEC: MACRO
	move.l	(_SysBase).w,a6
	jsr	_LVO\1(a6)
	ENDM

start_the_program:
	bsr	clear_registers
	move.w	#$4000,INTENA(a5)
	move.l	#GRNAME,a1
	moveq	#0,d0
	CALLEXEC OpenLibrary
	move.l	d0,_GFXBASE
;put value's in copper.
	bsr	clear_registers
	lea.l	plasma_copper,a0
	movea.w	#$203f,a1
	move.w	plasma_lijnen,d2
plasma_cop_loop:
	adda.w	#$0100,a1
	move.w	a1,(a0)+
	move.w	#wait,(a0)+
	move.w	#5-1,d3
plasma_sub_cop_loop:
	move.w	#color10,(a0)+	;comb 1010
	clr.w	(a0)+
	move.w	#color13,(a0)+	;comb 1101
	clr.w	(a0)+
	move.w	#color06,(a0)+	;comb 0110
	clr.w	(a0)+
	move.w	#color11,(a0)+	;comb 1011
	clr.w	(a0)+
	move.w	#color05,(a0)+	;comb 0101
	clr.w	(a0)+
	move.w	#color02,(a0)+	;comb 0010
	clr.w	(a0)+
	move.w	#color09,(a0)+	;comb 1001
	clr.w	(a0)+
	move.w	#color04,(a0)+	;comb 0100
	clr.w	(a0)+
	dbra	d3,plasma_sub_cop_loop
	dbra	d2,plasma_cop_loop

	move.l	#plasma_plane,d0
	move.w	d0,BITPL1+6
	swap	d0
	move.w	d0,BITPL1+2
	move.l	#plasma_plane+2,d0
	move.w	d0,BITPL2+6
	swap	d0
	move.w	d0,BITPL2+2
	move.l	#plasma_plane+2,d0
	move.w	d0,BITPL3+6
	swap	d0
	move.w	d0,BITPL3+2
	move.l	#plasma_plane+4,d0
	move.w	d0,BITPL4+6
	swap	d0
	move.w	d0,BITPL4+2

	move.w	#%0000000000101111,DMACON(a5)
	move.l	#copper,COP1LCH(a5)
	move.w	#0,COPJMP1(a5)
	move.w	#%1000011110000000,DMACON(a5)

waitraster0:
	cmpi.b	#115,VHPOSR(a5)
	bne.s	waitraster0

	move.w	#%0000010000000000,DMACON(a5) ;set blitter prior.
	bsr	clear_registers
	bsr	plasma_horizontaal
	move.w	#%1000010000000000,DMACON(a5)
	bsr	clear_registers
	bsr	plasma_figuur
	lea.l	$dff000,a5

check_left:
	btst	#6,CIAAPRA	
	bne.s	waitraster0	
helaas:
	bsr.s	clear_registers
	move.w	#$03a0,DMACON(a5)
	move.l	_GFXBASE,a6
	move.l	STARTLIJST(a6),COP1LC(a5)
	move.w	#0,COPJMP1(a5)
	move.w	#$83e0,DMACON(a5)
	move.l	_GFXBASE,a1
	CALLEXEC CloseLibrary
	move.w	#$c000,INTENA(a5)
	moveq	#0,d0
	rts

clear_registers:	
	movem.l	clean,d0-a6
	rts
********************************************************************
plasma_horizontaal:
	move.l	#-1,BLTAFWM(a5)
	move.w	#0,BLTCON1(a5)
	move.l	#$00000006,BLTAMOD(a5)
	lea.l	plasma_regel,a3
;	move.l	a3,BLTAPTH(a5)

	lea.l	plasma_plane,a0
	move.l	fhor,d7

	move.w	qhor,d4
	lea.l	plasma_sinus,a1
	add.w	d4,plasma_sinus_add
	adda.w	plasma_sinus_add,a1
	cmpa.l	#end_plasma_sinus,a1
	bcs.s	reset_add
	suba.l	#end_plasma_sinus,a1
	move.w	a1,plasma_sinus_add
	adda.l	#plasma_sinus,a1
reset_add:
	move.w	plasma_lijnen,d2

place_loop:
	moveq	#0,d0
	move.b	(a1),d0
	adda.l	d7,a1
	cmpa.l	#end_plasma_sinus,a1
	bcs.s	double_boble
	suba.l	#end_plasma_sinus-plasma_sinus,a1
double_boble:
	move.b	d0,d1
	andi.b	#$f0,d1
	lsr.b	#3,d1
	andi.b	#$0f,d0
	ror.w	#4,d0

	ori.w	#%0000100111110000,d0
	move.w	d0,BLTCON0(a5)	
	move.l	a3,BLTAPTH(a5)
	adda.l	d1,a0
	move.l	a0,BLTDPTH(a5)
	move.w	#1*64+19,BLTSIZE(a5)

	suba.l	d1,a0
	adda.l	#44,a0
	dbra	d2,place_loop
	rts
*************************************************************************
plasma_figuur:
	move.l	#-1,BLTAFWM(a5)
	move.l	#$0ffe0000,BLTCON0(a5)	
	move.w	#0,BLTAMOD(a5)
	move.l	#0,BLTCMOD(a5)
	move.w	#162,BLTDMOD(a5)

	move.l	fig1,d5
	movea.l	d5,a0
	move.l	fig2,d5
	movea.l	d5,a1
	move.l	fig3,d5
	movea.l	d5,a2
	lea.l	plasma_copper+6,a3	;dest.

	move.l	fvert1,d5
	move.l	fvert2,d6
	move.l	fvert3,d7

	move.w	qvert1,d4
	lea.l	plasma_verticaal,a4
	add.w	d4,figuur_teller1
	adda.w	figuur_teller1,a4
	cmpa.l	#end_plasma_verticaal,a4
	bcs.s	reset_add1
	suba.l	#end_plasma_verticaal,a4
	move.w	a4,figuur_teller1
	adda.l	#plasma_verticaal,a4
reset_add1:

	move.w	qvert2,d4
	lea.l	plasma_verticaal,a5
	add.w	d4,figuur_teller2
	adda.w	figuur_teller2,a5
	cmpa.l	#end_plasma_verticaal,a5
	bcs.s	reset_add2
	suba.l	#end_plasma_verticaal,a5
	move.w	a5,figuur_teller2
	adda.l	#plasma_verticaal,a5
reset_add2:

	move.w	qvert3,d4
	lea.l	plasma_verticaal,a6
	add.w	d4,figuur_teller3
	adda.w	figuur_teller3,a6
	cmpa.l	#end_plasma_verticaal,a6
	bcs.s	reset_add3
	suba.l	#end_plasma_verticaal,a6
	move.w	a6,figuur_teller3
	adda.l	#plasma_verticaal,a6
reset_add3:
	
	moveq	#5*8-6-1,d3
perfect_loop:
	moveq	#0,d0
	move.b	(a4),d0
	adda.l	d5,a4
	cmpa.l	#end_plasma_verticaal,a4
	bcs.s	reset_raket1
	suba.l	#end_plasma_verticaal-plasma_verticaal,a4
reset_raket1:
	lsl.w	#1,d0
	adda.l	d0,a0

	moveq	#0,d1
	move.b	(a5),d1
	adda.l	d6,a5
	cmpa.l	#end_plasma_verticaal,a5
	bcs.s	reset_raket2
	suba.l	#end_plasma_verticaal-plasma_verticaal,a5
reset_raket2:
	lsl.w	#1,d1
	adda.l	d1,a1

	moveq	#0,d2
	move.b	(a6),d2
	adda.l	d7,a6
	cmpa.l	#end_plasma_verticaal,a6
	bcs.s	reset_raket3
	suba.l	#end_plasma_verticaal-plasma_verticaal,a6
reset_raket3:
	lsl.w	#1,d2
	adda.l	d2,a2

	move.l	a0,BLTAPTH+CUSTOM
	move.l	a1,BLTBPTH+CUSTOM
	move.l	a2,BLTCPTH+CUSTOM
	move.l	a3,BLTDPTH+CUSTOM
	move.w	#210*64+1,BLTSIZE+CUSTOM
	suba.l	d0,a0
	suba.l	d1,a1
	suba.l	d2,a2
	addq.l	#4,a3
	dbra	d3,perfect_loop
	rts

	SECTION variables,DATA_C
_GFXBASE:	dc.l	0
clean:		dcb.l	13,0
		dc.l	$dff000,0
******************************************************
;		PLASMA VARIABLE'S
******************************************************
plasma_sinus_add: dc.w	0
plasma_lijnen:	dc.w	210-1
figuur_teller1:	dc.w	0
figuur_teller2:	dc.w	0
figuur_teller3:	dc.w	0
qvert1:		dc.w	4
qvert2:		dc.w	3
qvert3:		dc.w	2
fvert1:		dc.l	4
fvert2:		dc.l	5
fvert3:		dc.l	6
fig1:		dc.l	figuur1
fig2:		dc.l	figuur2
fig3:		dc.l	figuur3
qhor:		dc.w	0
fhor:		dc.l	60
step_counter:	dc.w	0
fvert_extra:	dc.l	figuur2
GRNAME:		dc.b	"graphics.library",0

 SECTION copperlijst,DATA_C
copper:
; start v/d diwstart enz.
	dc.w	DIWSTRT,$29b8,DIWSTOP,$2f90 ;DIWSTART,DIWSTOP
	dc.w	DDFSTRT,$0038,DDFSTOP,$00d0 ;NORMAL
	dc.w	BPL1MOD,$0000,BPL2MOD,$0000 ;GEEN SPRONGEN
	dc.w	BPLCON0,0 
	dc.w	BPLCON1,0
	dc.w	BPLCON2,0
	dc.w	COLOR00,0
	dc.w	$120f,wait 
	dc.w	BPLCON0,0 
	dc.w	BPLCON2,%0000000001110111
	dc.w	$1f0f,wait
	dc.w	COLOR00,0
	dc.w	DDFSTRT,$0038,DDFSTOP,$00d0
	dc.w	BPL1MOD,4,BPL2MOD,4
	dc.w	BPLCON1,%0000000010000000
BITPL1:	dc.w	BPL1PTH,0,BPL1PTL,0
BITPL2:	dc.w	BPL2PTH,0,BPL2PTL,0
BITPL3:	dc.w	BPL3PTH,0,BPL3PTL,0
BITPL4:	dc.w	BPL4PTH,0,BPL4PTL,0
	dc.w	$210f,wait
	dc.w	BPLCON0,%0100000000000000 
plasma_copper:
	dcb.w	(2*8*5+2)*210,0

	dc.w	BPLCON0,%0000000000000000
	dc.w	ntsc,wait
	dc.w	end,wait

 cnop 0,4
plasma_plane:
	dcb.b	(5*8+4)*210,0
	dc.b	0
	even
plasma_regel:
	dc.l	$00ff00ff,$ff00ff00
	dc.l	$00ff00ff,$ff00ff00
	dc.l	$00ff00ff,$ff00ff00
	dc.l	$00ff00ff,$ff00ff00
	dc.l	$00ff00ff,$ff00ff00
	dc.l	$00ff00ff
plasma_sinus:
	dc.b	27,27,27,28,28,28,28,29,29,29,29,30
	dc.b	30,30,30,31,31,31,31,31,32,32,32,32
	dc.b	33,33,33,33,34,34,34,34,34,35,35,35
	dc.b	35,36,36,36,36,36,37,37,37,37,38,38
	dc.b	38,38,38,39,39,39,39,39,40,40,40,40
	dc.b	40,41,41,41,41,42,42,42,42,42,42,43
	dc.b	43,43,43,43,44,44,44,44,44,45,45,45
	dc.b	45,45,45,46,46,46,46,46,46,47,47,47
	dc.b	47,47,47,48,48,48,48,48,48,48,49,49
	dc.b	49,49,49,49,49,50,50,50,50,50,50,50
	dc.b	50,50,51,51,51,51,51,51,51,51,51,52
	dc.b	52,52,52,52,52,52,52,52,52,52,53,53
	dc.b	53,53,53,53,53,53,53,53,53,53,53,53
	dc.b	53,53,54,54,54,54,54,54,54,54,54,54
	dc.b	54,54,54,54,54,54,54,54,54,54,54,54
	dc.b	54,54,54,54,54,54,54,54,54,54,54,54
	dc.b	54,54,54,54,54,54,54,54,54,54,54,53
	dc.b	53,53,53,53,53,53,53,53,53,53,53,53
	dc.b	53,53,53,52,52,52,52,52,52,52,52,52
	dc.b	52,52,51,51,51,51,51,51,51,51,51,50
	dc.b	50,50,50,50,50,50,50,50,49,49,49,49
	dc.b	49,49,49,48,48,48,48,48,48,48,47,47
	dc.b	47,47,47,47,46,46,46,46,46,46,45,45
	dc.b	45,45,45,45,44,44,44,44,44,43,43,43
	dc.b	43,43,42,42,42,42,42,42,41,41,41,41
	dc.b	41,40,40,40,40,39,39,39,39,39,38,38
	dc.b	38,38,38,37,37,37,37,36,36,36,36,36
	dc.b	35,35,35,35,34,34,34,34,34,33,33,33
	dc.b	33,32,32,32,32,31,31,31,31,31,30,30
	dc.b	30,30,29,29,29,29,28,28,28,28,27,27
	dc.b	27,27,27,26,26,26,26,25,25,25,25,24
	dc.b	24,24,24,23,23,23,23,23,22,22,22,22
	dc.b	21,21,21,21,20,20,20,20,20,19,19,19
	dc.b	19,18,18,18,18,18,17,17,17,17,16,16
	dc.b	16,16,16,15,15,15,15,15,14,14,14,14
	dc.b	14,13,13,13,13,12,12,12,12,12,12,11
	dc.b	11,11,11,11,10,10,10,10,10,9,9,9
	dc.b	9,9,9,8,8,8,8,8,8,7,7,7
	dc.b	7,7,7,6,6,6,6,6,6,6,5,5
	dc.b	5,5,5,5,5,4,4,4,4,4,4,4
	dc.b	4,4,3,3,3,3,3,3,3,3,3,2
	dc.b	2,2,2,2,2,2,2,2,2,2,1,1
	dc.b	1,1,1,1,1,1,1,1,1,1,1,1
	dc.b	1,1,0,0,0,0,0,0,0,0,0,0
	dc.b	0,0,0,0,0,0,0,0,0,0,0,0
	dc.b	0,0,0,0,0,0,0,0,0,0,0,0
	dc.b	0,0,0,0,0,0,0,0,0,0,0,1
	dc.b	1,1,1,1,1,1,1,1,1,1,1,1
	dc.b	1,1,1,2,2,2,2,2,2,2,2,2
	dc.b	2,2,3,3,3,3,3,3,3,3,3,4
	dc.b	4,4,4,4,4,4,4,4,5,5,5,5
	dc.b	5,5,5,6,6,6,6,6,6,6,7,7
	dc.b	7,7,7,7,8,8,8,8,8,8,9,9
	dc.b	9,9,9,9,10,10,10,10,10,11,11,11
	dc.b	11,11,12,12,12,12,12,12,13,13,13,13
	dc.b	13,14,14,14,14,15,15,15,15,15,16,16
	dc.b	16,16,16,17,17,17,17,18,18,18,18,18
	dc.b	19,19,19,19,20,20,20,20,20,21,21,21
	dc.b	21,22,22,22,22,23,23,23,23,23,24,24
	dc.b	24,24,25,25,25,25,26,26,26,26,27,27
end_plasma_sinus:
plasma_verticaal:
	dc.b	27,27,28,28,29,29,30,30,31,31,32,32
	dc.b	33,33,34,34,34,35,35,36,36,37,37,38
	dc.b	38,38,39,39,40,40,40,41,41,42,42,42
	dc.b	43,43,44,44,44,45,45,45,46,46,46,47
	dc.b	47,47,48,48,48,49,49,49,49,50,50,50
	dc.b	50,51,51,51,51,51,52,52,52,52,52,53
	dc.b	53,53,53,53,53,53,53,54,54,54,54,54
	dc.b	54,54,54,54,54,54,54,54,54,54,54,54
	dc.b	54,54,54,54,54,54,53,53,53,53,53,53
	dc.b	53,53,52,52,52,52,52,51,51,51,51,51
	dc.b	50,50,50,50,49,49,49,49,48,48,48,47
	dc.b	47,47,46,46,46,45,45,45,44,44,44,43
	dc.b	43,42,42,42,41,41,41,40,40,39,39,38
	dc.b	38,38,37,37,36,36,35,35,34,34,34,33
	dc.b	33,32,32,31,31,30,30,29,29,28,28,27
	dc.b	27,27,26,26,25,25,24,24,23,23,22,22
	dc.b	21,21,20,20,20,19,19,18,18,17,17,16
	dc.b	16,16,15,15,14,14,14,13,13,12,12,12
	dc.b	11,11,10,10,10,9,9,9,8,8,8,7
	dc.b	7,7,6,6,6,5,5,5,5,4,4,4
	dc.b	4,3,3,3,3,3,2,2,2,2,2,1
	dc.b	1,1,1,1,1,1,1,0,0,0,0,0
	dc.b	0,0,0,0,0,0,0,0,0,0,0,0
	dc.b	0,0,0,0,0,0,1,1,1,1,1,1
	dc.b	1,1,2,2,2,2,2,3,3,3,3,3
	dc.b	4,4,4,4,5,5,5,5,6,6,6,7
	dc.b	7,7,8,8,8,9,9,9,10,10,10,11
	dc.b	11,12,12,12,13,13,13,14,14,15,15,16
	dc.b	16,16,17,17,18,18,19,19,20,20,20,21
	dc.b	21,22,22,23,23,24,24,25,25,26,26,27
end_plasma_verticaal:
figuur1:
	dc.w	$0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
	dc.w	$0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
	dc.w	$0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
	dc.w	$0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
	dc.w	$0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
	dcb.w	18,0
	dc.w	$0100,$0100,$0100,$0100,$0200,$0200,$0200,$0200
	dc.w	$0300,$0300,$0300,$0300,$0400,$0400,$0400,$0400
	dc.w	$0500,$0500,$0500,$0500,$0600,$0600,$0600,$0600
	dc.w	$0700,$0700,$0700,$0700,$0800,$0800,$0800,$0800
	dc.w	$0900,$0900,$0900,$0900,$0a00,$0a00,$0a00,$0a00
	dc.w	$0b00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00,$0c00
	dc.w	$0d00,$0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0e00
	dc.w	$0f00,$0f00,$0f00,$0f00

	dc.w	$0f00,$0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0e00
	dc.w	$0d00,$0d00,$0d00,$0d00,$0c00,$0c00,$0c00,$0c00
	dc.w	$0b00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00,$0a00
	dc.w	$0900,$0900,$0900,$0900,$0800,$0800,$0800,$0800
	dc.w	$0700,$0700,$0700,$0700,$0600,$0600,$0600,$0600
	dc.w	$0500,$0500,$0500,$0500,$0400,$0400,$0400,$0400
	dc.w	$0300,$0300,$0300,$0300,$0200,$0200,$0200,$0200
	dc.w	$0100,$0100,$0100
	dcb.w	18,0
	dc.w	$0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
	dc.w	$0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
	dc.w	$0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
	dc.w	$0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
	dc.w	$0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00

	dc.w	$0f00,$0f00,$0f00,$0e00,$0e00,$0e00,$0d00,$0d00,$0d00
	dc.w	$0c00,$0c00,$0c00,$0b00,$0b00,$0b00,$0a00,$0a00,$0a00
	dc.w	$0900,$0900,$0900,$0800,$0800,$0800,$0700,$0700,$0700
	dc.w	$0600,$0600,$0600,$0500,$0500,$0500,$0400,$0400,$0400
	dc.w	$0300,$0300,$0300,$0200,$0200,$0200,$0100,$0100,$0100
	dcb.w	18,0
	dc.w	$0100,$0100,$0100,$0200,$0200,$0200,$0300,$0300,$0300
	dc.w	$0400,$0400,$0400,$0500,$0500,$0500,$0600,$0600,$0600
	dc.w	$0700,$0700,$0700,$0800,$0800,$0800,$0900,$0900,$0900
	dc.w	$0a00,$0a00,$0a00,$0b00,$0b00,$0b00,$0c00,$0c00,$0c00
	dc.w	$0d00,$0d00,$0d00,$0e00,$0e00,$0e00,$0f00,$0f00,$0f00

figuur2:
	dc.w	$00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
	dc.w	$00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
	dc.w	$0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
	dc.w	$0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
	dc.w	$0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
	dcb.w	36,0
	dc.w	$0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
	dc.w	$0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
	dc.w	$0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
	dc.w	$00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
	dc.w	$00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0

	dc.w	$00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
	dc.w	$00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
	dc.w	$0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
	dc.w	$0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
	dc.w	$0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
	dcb.w	36,0
	dc.w	$0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
	dc.w	$0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
	dc.w	$0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
	dc.w	$00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
	dc.w	$00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0

	dc.w	$00f0,$00f0,$00f0,$00e0,$00e0,$00e0,$00d0,$00d0,$00d0
	dc.w	$00c0,$00c0,$00c0,$00b0,$00b0,$00b0,$00a0,$00a0,$00a0
	dc.w	$0090,$0090,$0090,$0080,$0080,$0080,$0070,$0070,$0070
	dc.w	$0060,$0060,$0060,$0050,$0050,$0050,$0040,$0040,$0040
	dc.w	$0030,$0030,$0030,$0020,$0020,$0020,$0010,$0010,$0010
	dcb.w	36,0
	dc.w	$0010,$0010,$0010,$0020,$0020,$0020,$0030,$0030,$0030
	dc.w	$0040,$0040,$0040,$0050,$0050,$0050,$0060,$0060,$0060
	dc.w	$0070,$0070,$0070,$0080,$0080,$0080,$0090,$0090,$0090
	dc.w	$00a0,$00a0,$00a0,$00b0,$00b0,$00b0,$00c0,$00c0,$00c0
	dc.w	$00d0,$00d0,$00d0,$00e0,$00e0,$00e0,$00f0,$00f0,$00f0

figuur3:
	dc.w	$000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
	dc.w	$000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
	dc.w	$0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
	dc.w	$0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
	dc.w	$0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
	dcb.w	18,0
	dc.w	$0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
	dc.w	$0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
	dc.w	$0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
	dc.w	$000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
	dc.w	$000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f

	dc.w	$000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
	dc.w	$000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
	dc.w	$0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
	dc.w	$0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
	dc.w	$0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
	dcb.w	18,0
	dc.w	$0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
	dc.w	$0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
	dc.w	$0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
	dc.w	$000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
	dc.w	$000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f

	dc.w	$000f,$000f,$000f,$000e,$000e,$000e,$000d,$000d,$000d
	dc.w	$000c,$000c,$000c,$000b,$000b,$000b,$000a,$000a,$000a
	dc.w	$0009,$0009,$0009,$0008,$0008,$0008,$0007,$0007,$0007
	dc.w	$0006,$0006,$0006,$0005,$0005,$0005,$0004,$0004,$0004
	dc.w	$0003,$0003,$0003,$0002,$0002,$0002,$0001,$0001,$0001
	dcb.w	18,0
	dc.w	$0001,$0001,$0001,$0002,$0002,$0002,$0003,$0003,$0003
	dc.w	$0004,$0004,$0004,$0005,$0005,$0005,$0006,$0006,$0006
	dc.w	$0007,$0007,$0007,$0008,$0008,$0008,$0009,$0009,$0009
	dc.w	$000a,$000a,$000a,$000b,$000b,$000b,$000c,$000c,$000c
	dc.w	$000d,$000d,$000d,$000e,$000e,$000e,$000f,$000f,$000f

_LVOCloseLibrary	EQU	-414 
_LVOOpenLibrary	EQU	-552 
_SysBase	EQU	4

; custom adressen :
DMACONR		= $002
VHPOSR		= $006
BLTCON0		= $040
BLTCON1		= $042
BLTAFWM 	= $044
BLTALWM 	= $046
BLTCPTH		= $048
BLTCPTL 	= $04a
BLTBPTH		= $04c
BLTBPTL 	= $04e
BLTAPTH		= $050
BLTAPTL 	= $052
BLTDPTH		= $054
BLTDPTL 	= $056
BLTSIZE 	= $058
BLTCMOD		= $060
BLTBMOD		= $062
BLTAMOD		= $064
BLTDMOD		= $066
COP1LC		= $080
COP1LCH		= $080
COP1LCL		= $082
COPJMP1 	= $088
DIWSTRT		= $08e
DIWSTOP 	= $090
DDFSTRT 	= $092
DDFSTOP 	= $094
DMACON		= $096
INTENA  	= $09a
BPL1PTH 	= $0e0
BPL1PTL 	= $0e2
BPL2PTH 	= $0e4
BPL2PTL 	= $0e6
BPL3PTH 	= $0e8
BPL3PTL 	= $0ea
BPL4PTH 	= $0ec
BPL4PTL 	= $0ee
BPLCON0 	= $100
BPLCON1 	= $102
BPLCON2 	= $104
BPL1MOD 	= $108
BPL2MOD 	= $10a
COLOR00 	= $180
COLOR02 	= $184
COLOR04 	= $188
COLOR05 	= $18a
COLOR06 	= $18c 
COLOR09 	= $192
COLOR10 	= $194
COLOR11 	= $196
COLOR13 	= $19a
color00 	= $180
color02 	= $184
color04 	= $188
color05 	= $18a
color06 	= $18c 
color09 	= $192
color10 	= $194
color11 	= $196
color13 	= $19a

CIAAPRA		= $bfe001
CUSTOM  	= $dff000

STARTLIJST 	= 38

WAIT		= $fffe
END		= $ffff
NTSC		= $ffdf
wait		= $fffe
end		= $ffff
ntsc		= $ffdf