/********************************************************************************

#define	road_root(p)		(p->s[stw_work2].pointer)
#define	road_pointer(p)		(p->s[stw_work3].pointer)
#define	road_flag(p)		(p->s[stw_work4].d)
#define	road_angleX(p)		(p->s[stw_work5].d)
#define	road_angleY(p)		(p->s[stw_work6].d)
#define	road_groundY(p)		(p->s[stw_work7].f)

 ********************************************************************************/


/*################*/
#ifdef ASSEMBLER
/*################*/

e_testlift:
	p_initialize(moveBG)
	p_setbit(flag,stf_moveON )
	p_movebginfo(testlift_info)
	p_while
		p_program(s_testlift)
	p_loop

/*################*/
#else
/*################*/



/********************************************************************************
		C Program (testlift)
 ********************************************************************************/

static short test_liftdata[] = {

	0,0,	0,1000,	/* (X),(Y),(Z) */
	1,1000, 100,1000,	/* (X),(Y),(Z) */
	2,1000, 200,   0,	/* (X),(Y),(Z) */
	3,   0, 100,   0,	/* (X),(Y),(Z) */
	-1,
};

extern void s_testlift(void)
{

	int	flag;

	road_root(execstp) = test_liftdata;		/* data read	*/

	flag = s_road_move(0);

	obj_speedF = 10;						/* set speed     */
	obj_angleX = road_angleX(execstp);		/* speed X Angle */
	obj_angleY = road_angleY(execstp);		/* speed Y Angle */

	s_3Dmove();
	stMainMoveBG();

	rmonpf(("%d,%d\n",flag,road_flag(execstp) ));

}

/*################*/
#endif
/*################*/
/*===============================================================================
		end end end end end end end end 
===============================================================================*/