; -----------------------------------------------------------------------------
;                                  
;  Title: select Prog par C01 et/ou IS0x    
;
;  Date : 21/06/2011                                        
;  By   : G Froment
; -----------------------------------------------------------------------------
;                        P01 et P02 sont lancés par action sur une entree
;                        P03 et P04 sont lancés par action sur une variable  
; -----------------------------------------------------------------------------


%P00(MAIN);------------Selection du programme par Compteur C01  et/ou IS0x                          
N020 GO 0;                POM dès la mise en marche du PLC   
N030 JMP (IS01=1) P01;             
N040 JMP (IS02=1) P02                                  
N050 JMP (C01=2) P03                                             
N060 JMP (C01=3) P04                                       
N100 JMP N030                                                
END                                                               
                                                                 
%P01(PROG_1);             Prog 01                                      
N010 GO V H05;             deplacement à lavitesse H05                          
N020 JMP (IS01=0) N020;    attend que l'entree repasse a 0          
N030 STOP;                 stoppe le mouvement en cours                   
END                                                     
                                  
%P02(PROG_2);             Prog 02                 
N010 GO V H05;             deplacement à lavitesse H06                           
N020 JMP (IS02=0) N020;    attend que l'entree repasse a 0         
N030 STOP;                 stoppe le mouvement en cours  
END                                       
                                      
%P03(PROG_3);             Prog 03              
N010 GO W A H00 H0;         deplacement à la cote H00 vitesse H04                          
N020 SET C01=0;             Indique que le programme s'est executé         
END                                           
                                            
%P04(PROG_4);             Prog 04       
N010 GO W A H01 H04;        deplacement à la cote H01 vitesse H04                           
N020 SET C01=0;              Indique que le programme s'est executé    
END