timerconvert.ccd

一个温度控制的程序

: 9_0
  500    DELAY
  *data   0 DATE>$
  *time   TIME>$
0 JUMP ;
: 9_1
^timer1 @@F ^temp1 F@! 
^temp1 @@F 6.000000e+001 F/ 5.000000e-001 F-  Round ^t_m F@! 
^t_m @@ 0 < IF 
0 ^t_m @! 
THEN 
^temp1 @@ 60 ^t_m @@ * - ^t_s @! 
^t_m @@ ^t_min @@ <> IF 
^start_end @@ 1 = ^qbks @@ 1 = LAND 0 ^t_m @@ <= LAND ^t_m @@ 30 <= LAND IF 
~DO_104 @@I 0 = IF 
1 ~DO_104 @! 
ELSE 
0 ~DO_104 @! 
THEN 
THEN 
^t_m @@ ^t_min @! 
THEN 
-2 JUMP ;
T: T9
DUMMY
9_0
9_1
T;
&TimerConvert ' T9 SETTASK