*******************************************************************************
* simple HalfRes example
*******************************************************************************
* INFO	shows how to open a HalfRes display
* NOTE	- experiment with the display definition parameters
*	- LMB to quit
*******************************************************************************

	machine	68020

	include	INCLUDES:libraries/tcs.i
	include	INCLUDES:libraries/tcs_lib.i
	include	/incl/macros.i



*******************************************************************************
* custom display definitions
*******************************************************************************

DSPLWD	=	320	;our TCS display width and
DSPLHT	=	256	;height (LORES pixels)
SCRWD	=	160	;TCS screen width and
SCRHT	=	256	;height (HalfRes pixels)
DSPLX0	=	$81*4	;display start
DSPLY0	=	$2c	;position (SHRES pixels)
DSPLX1	=	DSPLX0+DSPLWD*4	;display end
DSPLY1	=	DSPLY0+DSPLHT	;position (SHRES pixels)
DSPLBRTNS	=	256	;max brightness
GFXCTXT	=	0	;graphic context
CWBTM	=	0	;clipping
CWTOP	=	0	;window
CWRT	=	0	;borders
CWLF	=	0	;coordinates
VDOMODE	=	TCS_VM_RGBW | TCS_VMf_chqr ;display video mode



*******************************************************************************
* code start
*******************************************************************************

	include	/incl/shl_strtup.i



*******************************************************************************
* init
*******************************************************************************

_PrgInit	move.w	#0,ccr	;OK!
	rts



*******************************************************************************
* main
*******************************************************************************

_PrgMain	movea.l	DIAdr,a0	;our display
	moveq.l	#0,d0	;x0
	moveq.l	#0,d1	;y0
	move.w	#SCRWD-1,d2	;x1
	move.w	#SCRHT-1,d3	;y1
	move.b	#255,d4	;color
	CALLTCS	DrwFrm0	;mark screen with a rectangle

	WTLMB
	rts



*******************************************************************************
* cleanup
*******************************************************************************

_PrgClnUp	rts



*******************************************************************************
* data
*******************************************************************************

	include	/incl/dat.i