21ic电子技术开发论坛 › 综合技术交流 › 电子技术交流论坛 › 步科PLC与T5UID3屏连接OS代码
返回列表 发新帖我要提问

步科PLC与T5UID3屏连接OS代码

[复制链接]
788|0
 楼主| ZLDW 发表于 2019-1-3 16:41 | 显示全部楼层 |阅读模式
ui, 代码, os, PLC, TE
复制
  1. ORG  1000H
    

  2.     GOTO MAIN  
    

  3.     ORG  1080H
    

  4. MAIN:
    

  5.     CALL INITE  ;初始化串口，用户定时器，初始化使用到得R寄存器
    

  6.     CALL T300MS ;300ms定时器标志  
    

  7.     LDBR R0,0X10,1
    

  8.     LDBR R1,0X00,1        ;确定页码地址，页码寄存器
    

  9.     MOVXR R10,1,1 
    

  10.     IJNE R11,0X01,READ_I
    

  11.       CALL READ_Q00
    

  12.       CALL WRITE_Q00
    

  13. READ_I:
    

  14.     IJNE R11,0X02,READ_M
    

  15.       CALL READ_I00
    

  16. READ_M:
    

  17.     IJNE R11,0X03,MAIN_END
    

  18.       CALL READ_M00
    

  19.       CALL WRITE_M00
    

  20. MAIN_END:
    

  21.     GOTO MAIN    
    

  22. ;***************
    

  23. ;上电初始化    
    

  24. INITE:    
    

  25.             IJNE      R255,0,INIRET
    

  26.             LDBR      R255,1,1
    

  27.             COMSET    40H,136        ;设置串口4，波特率115200，上电执行一次
    

  28.             CONFIG 1,2,1             ;用户定时器初始化               
    

  29. INIRET:     
    

  30.             RET 
    

  31.   
    

  32. ;******************  
    

  33.  
    

  34. ;******************
    

  35. ;300MS定时，每300ms读一次
    

  36. T300MS:    
    

  37.     LDBR R30,0X01,1
    

  38.     LDBR R31,0XF4,1
    

  39.     MOVDR 37,R20,2
    

  40.     JU  R20,R30,T300_END
    

  41.     LDBR  R90,1,1
    

  42.     LDWR  R20,0
    

  43.     MOVRD R20,37,2
    

  44.     LDBR  R250,0,3        
    

  45. T300_END:
    

  46.     RET
    

  47. ;******************
    


  48. 

  49. ;******************
    

  50. ;读线圈Q0.0
    

  51. READ_Q00:
    


  52. 

  53.     IJNE R90,1,READ_Q_END      ;发送一次读DM区指令后，等待响应
    

  54.     LDBR  R90,0,1              ;清除300ms标志位
    

  55.     LDBR R100,0X01,2           ;R100从站设备号01,R101功能码01 
    

  56.     LDBR R102,0X00,2           ;读取得线圈地址：Q0.0
    

  57.     LDBR R104,0X00,1
    

  58.     LDBR R105,0X01,1           ;读取得字节长度01
    

  59.     LDBR R10,6,1               ;R100-R105
    

  60.     CRCA R100,R106,R10         ;6字节做ANSI CRC计算,放入到R106,R107中
    

  61.     LDBR R9,8,1                ;发送到串口4得字节长度
    

  62.     COMTXD 4,R100,R9           ;数据发送到串口4
    

  63. RECIVE_Q:  
    

  64.     RDXLEN 4,R50               ;串口得数据长度放到R50中；
    

  65.     IJNE R50,0,RECIVE_Q_handle ;串口接收数据长度不为0，则跳转到RECIVE_handle
    

  66.     GOTO RECIVE_Q              ;接收数据长度为0，在此处死循环等待响应
    

  67.     
    

  68. RECIVE_Q_handle:    
    

  69.     MOVDR 17,R20,1             ;若接收到数据，读取通讯超时标志位，通讯超时，说明结束数据完成
    

  70.     IJNE R20,0,RECIVE_Q        ;等于0，则通讯超时，向下继续执行，不等于，循环（跳转到RECIVE_handle）读取通讯超时标志，直到等于0         
    

  71.       RDXDAT 4,R200,R50        ;读取接收得数据到R200
    

  72.       LDBR R50,0X00,1          ;清除数据长度缓冲区
    

  73.       LDBR R0,0X11,1           
    

  74.       LDBR R1,0X00,1           ;触摸屏对应地址0x1100
    

  75.       LDBR R202,0X00,1         ;将R202清零
    

  76.       MOVXR R202,0,1           ;将数据R202,R203写入到0x1100              
    

  77. READ_Q_END:
    

  78.     RET
    

  79. ;******************
    


  80. 

  81. ;******************
    

  82. ;写线圈Q0.0
    

  83. WRITE_Q00:
    

  84.     LDBR R0,0X11,1           
    

  85.     LDBR R1,0X01,1             ;触摸屏对应地址0x1100
    

  86.     MOVXR R10,1,1
    

  87.     IJNE R10,0X5A,WRITE_Q_END  
    

  88.     IJNE R11,0X5A,WRITE_Q_END  ;判断是否有按键按下
    

  89.     LDBR R10,0X00,2            ;清按键值
    

  90.     MOVXR R10,0,1
    

  91.     LDBR R100,0X01,1           ;从站地址01
    

  92.     LDBR R101,0X05,1           ;功能码05
    

  93.     LDBR R102,0X00,1           
    

  94.     LDBR R103,0X00,1           ;写入地址
    

  95.     IJNE R203,0X00,WRITE_0_Q   ;原值为0，则写1
    

  96.       LDBR R104,0XFF,1  
    

  97.       LDBR R105,0X00,1 
    

  98.       GOTO WRITE_Q_SEND
    

  99. WRITE_0_Q:                     ;原值为1则写0
    

  100.     LDBR R104,0X00,1  
    

  101.     LDBR R105,0X00,1  
    

  102. WRITE_Q_SEND:
    

  103.     LDBR R10,6,1               ;R100-R105
    

  104.     CRCA R100,R106,R10         ;6字节做ANSI CRC计算,放入到R106,R107中
    

  105.     LDBR R9,8,1                ;发送到串口4得字节长度
    

  106.     COMTXD 4,R100,R9           ;数据发送到串口4
    

  107. WRITE_Q_RESP:  
    

  108.     RDXLEN 4,R50               ;串口得数据长度放到R50中；
    

  109.     IJNE R50,0,WRITE_Q_RESP_OK ;串口接收数据长度不为0，则跳转到RECIVE_handle
    

  110.     GOTO WRITE_Q_RESP              ;接收数据长度为0，在此处死循环等待响应
    

  111.     
    

  112. WRITE_Q_RESP_OK:    
    

  113.     MOVDR 17,R20,1             ;若接收到数据，读取通讯超时标志位，通讯超时，说明结束数据完成
    

  114.     IJNE R20,0,WRITE_M_RESP 
    

  115.       RDXDAT 4,R150,R50        ;读取接收得数据到R200
    

  116.       LDBR R50,0X00,1          ;清除数据长度缓冲区
    

  117. WRITE_Q_END:
    

  118.     RET
    

  119. ;******************    
    

  120.     
    

  121. ;******************
    

  122. ;读输入I0.0
    

  123. READ_I00:
    


  124. 

  125.     IJNE R90,1,READ_I_END      ;发送一次读DM区指令后，等待响应
    

  126.     LDBR  R90,0,1              ;清除300ms标志位
    

  127.     LDBR R100,0X01,1           ;R100从站设备号01
    

  128.     LDBR R101,0X02,1           ;R101功能码02
    

  129.     LDBR R102,0X00,2           ;读取得地址：I0.0
    

  130.     LDBR R104,0X00,1
    

  131.     LDBR R105,0X01,1           ;读取得字节长度01
    

  132.     LDBR R10,6,1               ;R100-R105
    

  133.     CRCA R100,R106,R10         ;6字节做ANSI CRC计算,放入到R106,R107中
    

  134.     LDBR R9,8,1                ;发送到串口4得字节长度
    

  135.     COMTXD 4,R100,R9           ;数据发送到串口4
    

  136. RECIVE_I:  
    

  137.     RDXLEN 4,R50               ;串口得数据长度放到R50中；
    

  138.     IJNE R50,0,RECIVE_I_handle ;串口接收数据长度不为0，则跳转到RECIVE_handle
    

  139.     GOTO RECIVE_I              ;接收数据长度为0，在此处死循环等待响应
    

  140.     
    

  141. RECIVE_I_handle:    
    

  142.     MOVDR 17,R20,1             ;若接收到数据，读取通讯超时标志位，通讯超时，说明结束数据完成
    

  143.     IJNE R20,0,RECIVE_I        ;等于0，则通讯超时，向下继续执行，不等于，循环（跳转到RECIVE_handle）读取通讯超时标志，直到等于0         
    

  144.       RDXDAT 4,R200,R50        ;读取接收得数据到R200
    

  145.       LDBR R50,0X00,1          ;清除数据长度缓冲区
    

  146.       LDBR R0,0X12,1           
    

  147.       LDBR R1,0X00,1           ;触摸屏对应地址0x1100
    

  148.       LDBR R202,0X00,1         ;将R202清零
    

  149.       MOVXR R202,0,1           ;将数据R202,R203写入到0x1100              
    

  150. READ_I_END:
    

  151.     RET
    

  152. ;****************** 
    


  153. 

  154. ;******************
    

  155. ;读输入M0.0
    

  156. READ_M00:
    

  157.     IJNE R90,1,READ_M_END      ;发送一次读DM区指令后，等待响应
    

  158.     LDBR  R90,0,1              ;清除300ms标志位
    

  159.     LDBR R100,0X01,1           ;R100从站设备号01
    

  160.     LDBR R101,0X03,1           ;R101功能码02
    

  161.     LDBR R102,0X00,1           
    

  162.     LDBR R103,0X65,1           ;读取得地址：M0.0
    

  163.     LDBR R104,0X00,1          
    

  164.     LDBR R105,0X01,1           ;读取得字节长度01
    

  165.     LDBR R10,6,1               ;R100-R105
    

  166.     CRCA R100,R106,R10         ;6字节做ANSI CRC计算,放入到R106,R107中
    

  167.     LDBR R9,8,1                ;发送到串口4得字节长度
    

  168.     COMTXD 4,R100,R9           ;数据发送到串口4
    

  169. RECIVE_M:  
    

  170.     RDXLEN 4,R50               ;串口得数据长度放到R50中；
    

  171.     IJNE R50,0,RECIVE_M_handle ;串口接收数据长度不为0，则跳转到RECIVE_handle
    

  172.     GOTO RECIVE_M              ;接收数据长度为0，在此处死循环等待响应
    

  173.     
    

  174. RECIVE_M_handle:    
    

  175.     MOVDR 17,R20,1             ;若接收到数据，读取通讯超时标志位，通讯超时，说明结束数据完成
    

  176.     IJNE R20,0,RECIVE_M        ;等于0，则通讯超时，向下继续执行，不等于，循环（跳转到RECIVE_handle）读取通讯超时标志，直到等于0         
    

  177.       RDXDAT 4,R200,R50        ;读取接收得数据到R200
    

  178.       LDBR R50,0X00,1          ;清除数据长度缓冲区
    

  179.       
    

  180.       LDBR R0,0X13,1           
    

  181.       LDBR R1,0X01,1           ;触摸屏对应地址0x1300
    

  182.       LDBR R202,0X00,1         ;将R202清零
    

  183.       MOVXR R202,0,1           ;将数据R202,R203写入到0x1300 
    

  184.       
    

  185.       LDBR R0,0X13,1           
    

  186.       LDBR R1,0X00,1           ;触摸屏对应地址0x1300
    

  187.       LDBR R203,0X00,1         ;将R202清零
    

  188.       MOVXR R203,0,1           ;将数据R203,R204写入到0x1300              
    

  189. READ_M_END:
    

  190.     RET
    

  191. ;******************
    


  192. 

  193. ;******************
    

  194. ;写线圈Q0.0
    

  195. WRITE_M00:
    

  196.     LDBR R0,0X13,1           
    

  197.     LDBR R1,0X02,1           ;触摸屏对应地址
    

  198.     MOVXR R10,1,1
    

  199.     IJNE R10,0X5A,WRITE_M_END
    

  200.     IJNE R11,0X5A,WRITE_M_END
    

  201.     LDBR R10,0X00,2            ;清按键值
    

  202.     MOVXR R10,0,1
    

  203.     LDBR R100,0X01,1           ;从站地址01
    

  204.     LDBR R101,0X06,1           ;功能码05
    

  205.     LDBR R102,0X00,1           
    

  206.     LDBR R103,0X65,1           ;写入地址
    

  207.     LDBR R0,0X13,1           
    

  208.     LDBR R1,0X01,1           ;触摸屏对应地址
    

  209.     MOVXR R104,1,1
    

  210.     LDBR R10,6,1               ;R100-R105
    

  211.     CRCA R100,R106,R10         ;6字节做ANSI CRC计算,放入到R106,R107中
    

  212.     LDBR R9,8,1                ;发送到串口4得字节长度
    

  213.     COMTXD 4,R100,R9           ;数据发送到串口4
    

  214. WRITE_M_RESP:  
    

  215.     RDXLEN 4,R50               ;串口得数据长度放到R50中；
    

  216.     IJNE R50,0,WRITE_M_RESP_OK ;串口接收数据长度不为0，则跳转到RECIVE_handle
    

  217.     GOTO WRITE_M_RESP              ;接收数据长度为0，在此处死循环等待响应
    

  218.     
    

  219. WRITE_M_RESP_OK:    
    

  220.     MOVDR 17,R20,1             ;若接收到数据，读取通讯超时标志位，通讯超时，说明结束数据完成
    

  221.     IJNE R20,0,WRITE_M_RESP 
    

  222.       RDXDAT 4,R150,R50        ;读取接收得数据到R200
    

  223.       LDBR R50,0X00,1          ;清除数据长度缓冲区
    

  224. WRITE_M_END:
    

  225.     RET
    

  226. ;******************   
    


  227. 


  228.


回复

收藏 举报

相关帖子
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

ZLDW

20

主题

34

帖子

1

粉丝
快速回复 在线客服 返回列表 返回顶部