INCLUDE	VECTREX.INC
		LIST	ON
		SETDP	$D0		Carts start up with DP = $D0

		FCC	/g GCE 2001/
		FCB	$80

		FDB	$FF8F

		FCB	-8,72		h,w
		FCB	32,-48		y,x
		FCC	/VEC TEST/
		FCB	$80

		FCB	$00

		INC	Vec_0Ref_Enable	This is kind of important

Start		LDX	#Vector_Table	Get address of vector list

Loop		JSR	DP_to_D0	Vector routines want DP = $D0
		SETDP	$D0

		LDA	#$CE		Reset0Ref left the integrators in zero
		STA	VIA_cntl	  mode, so set /BLANK low, /ZERO high

		JSR	Mov_Draw_VLcs	Draw vector list (calls Check0Ref)

		LDD	,X		End of list if count=0 and scale=0
		BNE	Loop		Go back for more if not end of list

*		JSR	DP_to_C8	Music routines want DP = $C8
*		SETDP	$C8

*		LDU	#music		(if we had something to play)
*		JSR	Init_Music_chk	(if we had something to play)
		JSR	Wait_Recal	Wait for time to draw next frame
		SETDP	$D0		Wait_Recal sets DP to $D0
*		JSR	Do_Sound	(if we had something to play)

		BRA	Start		Go back to draw next frame


Vector_Table

*		These first four were ripped off from the 4D Rotocube demo

		FCB	2,80		count,scale
		FCB	127,0		Y,X
		FCB	-127,0		y,x
		FCB	-127,0		y,x

		FCB	2,80		count,scale
		FCB	0,127		Y,X
		FCB	0,-127		y,x
		FCB	0,-127		y,x

		FCB	2,80		count,scale
		FCB	127,127		Y,X
		FCB	-127,-127	y,x
		FCB	-127,-127	y,x

		FCB	2,80		count,scale
		FCB	127,-127	Y,X
		FCB	-127,127	y,x
		FCB	-127,127	y,x

*		And now some octagons.  They are drawn clockwise, with
*		the origin point at the left end of the topmost line.
*
*		Note that they come out brighter than the longer lines,
*		probably because the lines are being drawn in a constant
*		time period (which would be the scale factor).  Hopefully
*		this effect is only visible with the longest of lines.

		FCB	8,80		count,scale
		FCB	96,-64		Y,X
		FCB	0,5		y,x
		FCB	-5,5		y,x
		FCB	-5,0		y,x
		FCB	-5,-5		y,x
		FCB	0,-5		y,x
		FCB	5,-5		y,x
		FCB	5,0		y,x
		FCB	5,5		y,x

		FCB	8,80		count,scale
		FCB	96,64		Y,X
		FCB	0,5		y,x
		FCB	-5,5		y,x
		FCB	-5,0		y,x
		FCB	-5,-5		y,x
		FCB	0,-5		y,x
		FCB	5,-5		y,x
		FCB	5,0		y,x
		FCB	5,5		y,x

		FCB	8,80		count,scale
		FCB	-96,64		Y,X
		FCB	0,5		y,x
		FCB	-5,5		y,x
		FCB	-5,0		y,x
		FCB	-5,-5		y,x
		FCB	0,-5		y,x
		FCB	5,-5		y,x
		FCB	5,0		y,x
		FCB	5,5		y,x

		FCB	8,80		count,scale
		FCB	-96,-64		Y,X
		FCB	0,5		y,x
		FCB	-5,5		y,x
		FCB	-5,0		y,x
		FCB	-5,-5		y,x
		FCB	0,-5		y,x
		FCB	5,-5		y,x
		FCB	5,0		y,x
		FCB	5,5		y,x

		FDB	0		end of list

		END