( P + 2 1 bl.ARG_O R KQ DB Lucida Console' T 2 (3 arg_tmrEnd(arg_T_Impuls) R KQ DB Lucida Console( 2 *2 bm.ARG_GRA_O bo.M_ARG_O= 1; R KQ DB Lucida Console* w 2 &3 bl.ARG_F bo.M_ARG_F= 1; R KQ DB Lucida Console+ U n 2 *4 bm.ARG_GRA_F bo.M_ARG_F= 1; R KQ DB Lucida Console, ~ 2 2 (5 bm.S_ARG_O bo.M_ARG_O= 1; R KQ DB Lucida Console- z
2 :1 bi.A_ARG_END ||
arg_tmrEnd(arg_T_Protec) R KQ DB Lucida Console. ? 2 2 bl.ARG_O R KQ DB Lucida Console/ A 2 4 bo.M_ARG_O = 0; R KQ DB Lucida Console0 G 2 d1 bl.ARG_O ||
bi.A_ARG_END ||
bm.ARG_GRA_F ||
bl.ARG_F ||
arg_tmrEnd(arg_T_Protec) R KQ DB Lucida Console1 P ^ 2 2 bm.ARG_GRA_O R KQ DB Lucida Console2 ? U y 2 e1 !bm.ARG_GRA_O ||
bl.ARG_O ||
bi.A_ARG_END ||
bl.ARG_F ||
arg_tmrEnd(arg_T_Protec) R KQ DB Lucida Console3 U 2 s1 bl.ARG_O ||
bl.ARG_F ||
bi.A_ARG_END ||
arg_tmrEnd(arg_T_Protec) bm.ARG_GRA_F= 0;
bm.S_ARG_O= 0; R KQ DB Lucida Console4 d ? X 2 -1 !bi.PR_ARG_O &&
!bi.PR_ARG_F R KQ DB Lucida Console5 K B d 2 F1 (!bl.ARG_O && !bl.ARG_F)||
bi.PR_ARG_O || bi.PR_ARG_F R KQ DB Lucida Console6 2 51 arg_tmrEnd(arg_T_Pulse) bo.M_ARG_F= 0; R KQ DB Lucida Console7 # 2 1 !bm.ARG_GRA_F R KQ DB Lucida Console8 Y " ; 2 62 arg_tmrEnd(arg_T_Impuls) bo.M_ARG_F= 1; R KQ DB Lucida Console9 } 0 D T 2 Y1 bi.A_ARG_END ||
arg_tmrEnd(arg_T_Protec)||
(!bl.ARG_F && !bm.ARG_GRA_F) R KQ DB Lucida Console: 2 1 !bl.ARG_F R KQ DB Lucida Console< @ o QEsperando bo.M_ARG_O= 0;
bo.M_ARG_F= 0;
arg_tmrStart(); 1 @ R KQ DB Lucida Console= } $Abre_Manual 2 R KQ DB Lucida Console> v L &AbreImpulsMan 3 R KQ DB Lucida Console? 5 m Y FParaDeAbrir_A bo.M_ARG_O= 0;
bm.ARG_GRA_O= 0; 4 R KQ DB Lucida Console@ * 8 %AbreImpGrand 5 R KQ DB Lucida ConsoleA $ h 2 &ParaDeAbrir_B 6 R KQ DB Lucida ConsoleB 7 &AbreImpSerial 7 R KQ DB Lucida ConsoleC 3 W u e PulsGAC 8 R KQ DB Lucida ConsoleD / q InitGAC 9 R KQ DB Lucida ConsoleE ? Z M &CierraManual 10 R KQ DB Lucida ConsoleF 1 # FParaDeCerrar bo.M_ARG_F= 0;
bm.ARG_GRA_F= 0; 11 R KQ DB Lucida ConsoleG 3 FSM V0.4a f_arg #include "mapa_bit.h"
#include "tipos.h"
// Tiempo de espera para entrar en el modo impulsional y Tiempo de seguridad
#define TIMEms(t) ((t)/5)
#define DELAYms(t) (arg_DELAY_MAX - TIMEms((t)))
#define arg_DELAY_MAX TIMEms(10000) // 10s
#define arg_tmrStart() {arg_timer = arg_DELAY_MAX;}
#define arg_T_Impuls DELAYms(400)
#define arg_T_Pulse DELAYms(30)
#define arg_T_Protec 0 // DELAYms(arg_DELAY_MAX)
#define arg_tmrEnd(t) (arg_timer <= (t))
#define arg_tmrStep() {if(arg_timer > 0){ arg_timer--;}}
// Variables del mdulo
static tipoTimer16 arg_timer; // Preprocesos
bl.ARG_O = bi.PR_ARG_O || (bi.PL_ARG_O && bi.I_CONDA && (!bi.PR_ARG_F));
bl.ARG_F = bi.PR_ARG_F || (bi.PL_ARG_F && bi.I_CONDA && (!bi.PR_ARG_O));
// Avanza el reloj
arg_tmrStep(); [&Switch Case...][AS_Y][FO_Y][HC_N][FI_N][FE_N][DI_N][AC_N][PT_N][HF_Y][BF_N R KQ DB Lucida Console R KQ DB Courier New R KQ DB Courier New 0 # R KQ DB Courier New 4 M T ] g T R KQ DB Courier New ; ? R KQ DB Courier New N J R p " R KQ DB Courier New 9 o R KQ DB Courier New l R KQ DB Courier New [ Q R KQ DB Courier New T e \
R KQ DB Courier New W W R KQ DB Courier New , 1 D O K R KQ DB Courier New s ? H 2
R KQ DB Courier New H I
R KQ DB Courier New ' Y
R KQ DB Courier New R KQ DB Courier New x - : 2 5 R KQ DB Courier New * ? # ? R KQ DB Courier New P 8 R KQ DB Courier New
v ^
R KQ DB Courier New % 4
R KQ DB Courier New & W R KQ DB Courier New s \ @ R KQ DB Courier New T o R KQ DB Courier New
9 R KQ DB Courier New L G D ? R KQ DB Courier New S
7 R KQ DB Courier New u R KQ DB Courier New + U j R KQ DB Courier New h ~ R KQ DB Courier New _ u ^ R KQ DB Courier New [ ] R KQ DB Courier New = ( ? ! R KQ DB Courier New N n B " R KQ DB Courier New l 7 # R KQ DB Courier New H < $ R KQ DB Courier New ] % R KQ DB Courier New > @ - + & R KQ DB Courier New # $ @ ) R KQ DB Courier New ; R KQ DB Courier New b n