看老外T图,发现一段M码译码小程序,非常实用,分享一下,可以一次性译几千哟

已锁定

sycbh

  • 帖子

    69
  • 精华

    3
  • 被关注

    10

论坛等级:侠客

注册时间:2003-12-23

白金 白金 如何晋级?

看老外T图,发现一段M码译码小程序,非常实用,分享一下,可以一次性译几千哟

2696

15

2019-10-30 11:40:28

network 1
      LAR1  P#0.0                       // init AR1

      L     1138                        // letztes Byte vom Instanz-DB
looD: T     #loopDelete
      SLW   3                           // Pointer generieren
      LAR1 
      L     0
      T     DIB [AR1,P#0.0]             // Byte im Instanz-DB abloeschen
      L     #loopDelete                 // loopcounter Instanz-DB laden
      LOOP  looD

      L     #loopDelete
      DEC   1
      LAR1 
      SLW   3
      L     0
      T     DIB [AR1,P#0.0]
network 2
 L     DB7.DBW  168
      T     #ChanNo
network 3
    L     #ChanNo                     // vorhandene Kanaele
loo1: T     #loopC
      L     20
      +I   
      T     #tempChan
      OPN   DB [#tempChan]
      LAR1  P#0.0                       // init AR1
      LAR2  P#0.0                       // init AR2
      L     5                           // max. 5 M-Fkt pro NC-Satz
loo2: T     #loopM
      AN    DBX [AR1,P#58.0]            // Aenderungssignal, AR1 wird inkrementiert
      JC    x001
      L     DBB [AR2,P#68.0]            // Erweiterung, M0= M1= M2= M3= M4= usw.
      OW    W#16#0
      JN    x002                        // springe wenn Erweiterung <>0
      L     DBD [AR2,P#70.0]            // M-Wert [100..999], Mxxx
      L     100
      <D                                // M-Funktion >99 ?
      JC    x002
      -D                                // M100 auf erstes Bit "schieben" 
      TAR1  #ar1_rett
      LAR1 
      L     #tempChan
      L     21
      -I   
      L     114                         // Laenge Bitleiste fuer 1 Kanal
      *I                                // Offset fuer aktuellen Kanal generieren
      SLW   3                           // Pointer generieren
      +AR1 
      SET                               // VKE = 1
      S     DIX [AR1,P#0.0]             // Bit im Instanz-DB setzen
      LAR1  #ar1_rett                   // zwischengespeichertes AR1 zurueckschreiben
x002: +AR1  P#0.1                       // naechstes Aenderungssignal
      +AR2  P#6.0                       // naechste M-Fkt
      L     #loopM                      // loopcounter M-Fkt laden
      LOOP  loo2
x001: NOP   0
      L     #loopC                      // loopcounter Chan laden
      LOOP  loo1
      BEU  


看老外T图,发现一段M码译码小程序,非常实用,分享一下,可以一次性译几千哟 已锁定
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54030条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

快扫描右侧二维码晒一晒吧!

再发帖或跟帖交流2条,就能晋升VIP啦!开启更多专属权限!

top
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。