[r9]: / trunk / GPIOMods / SoftPWM / svnobj  Maximize  Restore  History

Download this file

11 lines (9 with data), 4.5 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
(* If current task is not, yet, determined, get it *)
IF hTask = SysTask.RTS_INVALID_HANDLE THEN
	SysTask.SysTaskGetCurrent(ADR(hTask));
END_IF
(* if task is determined, adjust next cycle *)
IF hTask <> SysTask.RTS_INVALID_HANDLE THEN
	IF xPWM THEN
		ulInterval := LREAL_TO_DWORD((LREAL#1000000 / DWORD_TO_LREAL(dwFrequ)) * (LREAL#1 - rDutyCycle));
	END_IF