<dfn id="is4kg"></dfn>
    • 

    <ul id="is4kg"></ul>
    • <abbr id="is4kg"></abbr>
  • <ul id="is4kg"></ul>
    

    <bdo id="is4kg"></bdo>
    



    
    
    
      以文本方式查看主題
    
        
    
      -  曙海教育集團論壇  (http://www.hufushizhe.com/bbs/index.asp)
    
        --  PLC編程系列  (http://www.hufushizhe.com/bbs/list.asp?boardid=59)
    
        ----  一個間接尋址的例子程序源代碼。討論下編程思想。完善代碼注釋  (http://www.hufushizhe.com/bbs/dispbbs.asp?boardid=59&id=2328)
    
        
    
          		
    
    
    
    
    
      --  作者：wangxinxin
    
        --  發布時間：2010-12-9 10:19:41
    
        
        --  一個間接尋址的例子程序源代碼。討論下編程思想。完善代碼注釋
    
        FUNCTION "DBtoDB" : VOID 
    TITLE = 
    AUTHOR : BaiZH 
    FAMILY : IR 
    NAME : DBtoDB 
    VERSION : 0.1 
    VAR_INPUT 
    SRC_DB : INT ; //Source DB Block Number 
    SRC_SttAddr : INT ; //Start Address of the Sending Data in SRC_DB 
    SendNum : INT ; //Words Number Need Sending 
    DST_DB : INT ; //Destination DB Block Number 
    DST_SttAddr : INT ; //Start Address of the Receiving Data in DST_DB 
    END_VAR 
    VAR_IN_OUT 
    Enable : BOOL ; //Enable Bit 
    END_VAR 
    VAR_TEMP 
    DB_LOAD_TEMP : INT ; 
    Loop_Val : INT ; //Send Data Loop Value 
    DB_SAVE : INT ; 
    DI_SAVE : INT ; 
    AR1_SAVE : DWORD ; 
    AR2_SAVE : DWORD ; 
    END_VAR 
    BEGIN 
    NETWORK 
    TITLE =Send Data 
    //Move data from DB to DB 
    A #Enable; 
    JCN END; 
    TAR1 #AR1_SAVE; // Save AR and Opened DB 
    TAR2 #AR2_SAVE; 
    L DBNO; 
    T #DB_SAVE; 
    L DINO; 
    T #DI_SAVE; 
    L #SRC_DB; //Open DB 
    T #DB_LOAD_TEMP; //這里為什么要多用個“#DB_LOAD_TEMP”臨時變量啊？ 
    OPN DB [#DB_LOAD_TEMP]; 
    L #DST_DB; //Open DB 
    T #DB_LOAD_TEMP; 
    OPN DI [#DB_LOAD_TEMP]; 
    L #SRC_SttAddr; //Load Start Address 
    SLD 3; //這里為什么用這個指令？有什么用？ 
    LAR1 ; 
    L #DST_SttAddr; 
    SLD 3; 
    LAR2 ; 
    L #SendNum; 
    LP1: T #Loop_Val; //Move Data 
    L DBW [AR1,P#0.0]; 
    T DIW [AR2,P#0.0]; 
    +AR1 P#2.0; 
    +AR2 P#2.0; 
    L #Loop_Val; 
    LOOP LP1; 
    LAR1 #AR1_SAVE; //Recover Original AR and DB 
    LAR2 #AR2_SAVE; 
    OPN DB [#DB_SAVE]; 
    OPN DI [#DI_SAVE]; 
    SET ; 
    R #Enable; 
    END: NOP 0; 
    END_FUNCTION 
    <link href="/templates/xhtml2/skins/xhtml/digg/style3/style.css" type="text/css" rel="stylesheet"/>