guocheng.con

一个温度控制的程序

: 'guocheng ." 05/10/2006 14:59:50" ;
: 8_0
10 JUMP ;
: 8_2
  20    DELAY
18 JUMP ;
: 8_6
  10000.0  
  ^timer1 @!   
  *qbks_time   TIME>$
0 JUMP ;
: 8_8
  &control_loop   STOP.T
3 JUMP ;
: 8_12
  60.0    FDELAY
0 JUMP ;
: 8_14
  &control_loop   START.T
  ^stat1 @! 
13 JUMP ;
: 8_16
  ^timer1   StopTimer
  0  
  ^qbks @!   
  0  
  ^ctrl_loop_flg @!   
  0  
  ^endflag @!   
  0  
  ^startflag @!   
  &control_loop   STOP.T
  &chart1   STOP.T
  " 00:00:00" 
 
  *qbks_time   $MOVE
  |TIC_101 
  0 I>F   $0008.. 3 ROLL EX.!PID
  |TIC_201 
  0 I>F   $0008.. 3 ROLL EX.!PID
8 JUMP ;
: 8_19
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_101 20 I>F  $0008.. 3 ROLL EX.!PID 
-4 JUMP ;
: 8_23
  50    DELAY
10 JUMP ;
: 8_29
  &control_loop   START.T
  ^stat1 @! 
  1  
  ^ctrl_loop_flg @!   
6 JUMP ;
: 8_43
7 JUMP ;
: 8_45
0 JUMP ;
: 8_50
8 JUMP ;
: 8_53
  300    DELAY
-2 JUMP ;
: 8_54
  &chart1   START.T
  ^stat1 @! 
-5 JUMP ;
: 8_58
-16 JUMP ;
: 8_63
^endflag @@ 1 = IF 
0 ^startflag @! 
0 ^endflag @! 
THEN 
5 JUMP ;
: 8_69
  &control_loop   STOP.T
  0  
  ^ctrl_loop_flg @!   
  |TIC_201 
  0 I>F   $0008.. 3 ROLL EX.!PID
  |TIC_101 
  0 I>F   $0008.. 3 ROLL EX.!PID
-5 JUMP ;
: 8_1
TRUE
  ^qbks @@ 
  1    =
LAND
IF -17 ELSE -18 THEN JUMP ;
: 8_21
TRUE
  ^endflag @@ 
  1    =
LAND
IF -14 ELSE -12 THEN JUMP ;
: 8_28
TRUE
  1  
  ^ctrl_loop_flg @@   =
LAND
IF -5 ELSE -12 THEN JUMP ;
: 8_55
TRUE
  1  
  ^startflag @@   =
LAND
IF -8 ELSE -9 THEN JUMP ;
: 8_61
TRUE
  ^startflag @@ 
  0    =
LAND
IF -6 ELSE -13 THEN JUMP ;
T: T8
DUMMY
8_0
8_2
8_6
8_8
8_12
8_14
8_16
8_19
8_23
8_29
8_43
8_45
8_50
8_53
8_54
8_58
8_63
8_69
8_1
8_21
8_28
8_55
8_61
T;