;File: tic41go.a51
;Author: Eckart Hartmann Date:15/10/2003
;Development progress: Tic841.df
;
;TicGo==========Set and start timer.
;C Function prototype: char TicGo(char cHr, char cMin, char cSec, char cHth);
;Description of Function: Sets hour, minute, second and hundredths and starts TIC.
;User interface: Set the 4 parameters to the required time.
;		Call TicGo function.
;		TicGo sets the start time and starts the timer.
;		returns TIMECON (guaranteed not zero).
;Robustness:
;Side effects:
;
NAME TICGO
$NOMOD51
 $IC(..kei841.inc) ; Parameter passing registers for Keil .
 $IC(..kei841.dat) ; SFR definition for Keil .
;
public _TicGo, ?_TicGo?BYTE

?PR?_TicGo?TICGO	SEGMENT CODE
?DT?_TicGo?TICGO	SEGMENT DATA
	RSEG	?DT?_TicGo?TICGO
?_TicGo?BYTE:
cHr:	DS	3	;Space for first 3 parameters (not utilised).
cHth:	DS	1	;cHth parameter;	
;
	RSEG	?PR?_TicGo?TICGO
;
_TicGo:
	mov	HOUR,cP1l	;Set time.
	mov	MIN,cP2lc
	mov	SEC,cP3lcc
	mov	HTHSEC,cHth
	orl	TIMECON,#1	;Start TIC.
	mov	cP1l,TIMECON
	ret
;
;Function End==========================================================Function End
END