打印

cupl 语法,sequence使用上的问题

[复制链接]
1841|0
手机看帖
扫描二维码
随时随地手机跟帖
跳转到指定楼层
楼主
西北台|  楼主 | 2008-4-17 18:30 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
这是我用CUPL配合 WINCUPL 使用 GAL16V8 写的小程式
功能是希望可以依次控制2组LED动作,
但是程式不论著么修改都只有1组LED在动作(count2组有动作)
难道是说1个CUPL程式只能有一组sequence? 
请前辈们指导一下  谢谢

Name     Name ;
PartNo   00 ;
Date     2008/4/15 ;
Revision 01 ;
Designer Engineer ;
Company  111 ;
Assembly None ;
Location  ;
Device   g16v8a ;

/* *************** INPUT PINS *********************/
PIN 1  = clk                        ;/*                                 */ 
PIN 2  = di                         ;/*  lcd dir  control               */ 
PIN 3  = CTR                  ;/*                                 */ 
PIN 11 = en                         ;/*                                 */ 
PIN 4  = di2                        ;/*  lcd dir  control               */ 


/* *************** OUTPUT PINS *********************/
PIN 19 = q3                        ; 
PIN 18 = q2                        ; 
PIN 17 = q1                        ;
PIN 16 = q0                        ;


PIN 15 = q7                        ; 
PIN 14 = q6                        ; 
PIN 13 = q5                        ;
PIN 12 = q4                        ;

field count2 = [q3..0];
field number = [q7..4];

$define S0 'b'0000
$define S1 'b'0001
$define S2 'b'0010
$define S3 'b'0100
$define S4 'b'1000


$define n0 'b'0000
$define n1 'b'0001
$define n2 'b'0010
$define n3 'b'0100
$define n4 'b'1000


fld up   =   di;        /* led up */
fld down =     !di;        /* led down */
fld up2  =   di2;        /* led up */
fld do2=     !di2;        /* led down */    

sequence count2 {      /*     free running counter     */

    present S0          if up         next S1;
                             if down       next S4;
        
    present S1          if up         next S2;
                             if down       next S4;
        
    present S2          if up         next S3;
                        if down       next S1;
                
    present S3          if up         next S4;
              if down       next S2;
                      
    present S4          if up         next S1;
              if down       next S3;
                
    }

sequence number{     /*   free running counter      */    
    present n0       if up2         next n1;
                 if do2         next n4;
        
         present n1          if up2         next n2;
               if do2         next n4;
        
    present n2          if up2         next n3;
                        if do2         next n1;
                
    present n3          if up2         next n4;
              if do2         next n2;
                      
    present n4          if up2         next n1;
             if do2         next n3;
                    
}        

相关帖子

发新帖 我要提问
您需要登录后才可以回帖 登录 | 注册

本版积分规则

2

主题

2

帖子

0

粉丝