guocheng.ccd

一个温度控制的程序

: 8_0
7 JUMP ;
: 8_84
|TIC_201 0 I>F  $0008.. 3 ROLL EX.!PID 
|TIC_101 8 I>F  $0008.. 3 ROLL EX.!PID 
11 JUMP ;
: 8_85
  150.0    FDELAY
  |TIC_101 
  50 I>F   $0008.. 3 ROLL EX.!PID
  |TIC_201 
  0 I>F   $0008.. 3 ROLL EX.!PID
  120.0    FDELAY
  |TIC_101 
  15 I>F   $0008.. 3 ROLL EX.!PID
  |TIC_201 
  0 I>F   $0008.. 3 ROLL EX.!PID
  600.0    FDELAY
20 JUMP ;
: 8_88
  &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
3 JUMP ;
: 8_93
^endflag @@ 1 = IF 
0 ^startflag @! 
0 ^endflag @! 
THEN 
13 JUMP ;
: 8_96
-6 JUMP ;
: 8_100
  &chart1   START.T
  ^stat1 @! 
2 JUMP ;
: 8_101
  300    DELAY
0 JUMP ;
: 8_104
10 JUMP ;
: 8_110
12 JUMP ;
: 8_115
  &control_loop   START.T
  ^stat1 @! 
  1  
  ^ctrl_loop_flg @!   
-7 JUMP ;
: 8_120
  50    DELAY
9 JUMP ;
: 8_123
  ^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_124
  &control_loop   START.T
  ^stat1 @! 
7 JUMP ;
: 8_125
  &control_loop   STOP.T
-14 JUMP ;
: 8_127
  10000.0  
  ^timer1 @!   
  *qbks_time   TIME>$
1 JUMP ;
: 8_129
  20    DELAY
3 JUMP ;
: 8_81
TRUE
  ^MODE @@ 
  1    =
LAND
IF 3 ELSE -4 THEN JUMP ;
: 8_94
TRUE
  ^startflag @@ 
  0    =
LAND
IF -16 ELSE -10 THEN JUMP ;
: 8_99
TRUE
  1  
  ^startflag @@   =
LAND
IF -14 ELSE -13 THEN JUMP ;
: 8_116
TRUE
  1  
  ^ctrl_loop_flg @@   =
LAND
IF -17 ELSE -11 THEN JUMP ;
: 8_122
TRUE
  ^endflag @@ 
  1    =
LAND
IF -10 ELSE -11 THEN JUMP ;
: 8_130
TRUE
  ^qbks @@ 
  1    =
LAND
IF -8 ELSE -7 THEN JUMP ;
T: T8
DUMMY
8_0
8_84
8_85
8_88
8_93
8_96
8_100
8_101
8_104
8_110
8_115
8_120
8_123
8_124
8_125
8_127
8_129
8_81
8_94
8_99
8_116
8_122
8_130
T;
&guocheng ' T8 SETTASK