欧姆龙PLC与T5UID2屏连接OS代码

ORG  1000H

    GOTO MAIN  

    ORG  1080H

MAIN:

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

    CALL T300MS ;300ms定时器标志  

    LDBR R0,0X20,1

    LDBR R1,0X00,1        ;键盘确定键地址

    MOVXR R10,1,1 

    IJNE R11,0X01,RED_H

      LDBR R0,0X11,1 ;

      LDBR R1,0X00,1 ;指定触摸屏变量地址

      CALL READ_DM_RESP ;读取DM区数据  

      CALL DM_INPUT   ;写DM区

      CALL DM_INPUT1

RED_H:

    IJNE R11,0X02,RED_CIO

      CALL READ_H_RESP ;读取CIO区数据

      CALL H_INPUT    ;写H区

      CALL H_INPUT1    ;写H区

RED_CIO:        

    IJNE R11,0X03,MAIN_END

      CALL READ_CIO_RESP ;读取CIO区数据   

      CALL CIO_INPUT   ;写CIO区

      CALL CIO_INPUT1

MAIN_END:

    GOTO MAIN    

;***************

;上电初始化    

INITE:    

            IJNE      R255,0,INIRET

            LDBR      R255,1,1

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

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



            LDBR      R250,0,3                

            LDBR R70,1,1

            LDBR R71,0,2              ;R变量初始化                

INIRET:     

            RET 

  

;********************  

 

;***************

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

T300MS:    

    LDBR R30,0X01,1

    LDBR R31,0XF4,1

    MOVDR 37,R20,2

    JU  R20,R30,T300_END

    LDBR  R90,1,1

    LDWR  R20,0

    MOVRD R20,37,2

    LDBR  R250,0,3        

T300_END:

    RET

;******************



;********************************

;发送一次读DM区指令后，响应数据处理 

READ_DM_RESP:

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

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

    CALL READ_DM

    MOV R209,R143,1

    CALL ASCII2HEX

    MOV R159,R232,1

         

READ_END:  

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

    IJNE R50,0,RECIVE

    RET

    

RECIVE:    

    MOVDR 17,R20,1

    IJNE R20,0,READ_DM_RESP  

                          

DATA_HAN:         

    RDXDAT 4,R200,R50  

    IJNE R204,0x44,READ_RET

    LDBR R50,0,1        ;读取完成后清除保存再R50中得数据长度

    ;*****以下为数据处理****

    

    MOV R207,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R230,1

    

    MOV R208,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R231,1

    

    MOV R209,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R232,1

    

    MOV R210,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R233,1

    

    MOV R230,R160,4

      

    LDBR R0,0X11,1

    LDBR R1,0X00,1

    CALL DATA2HMI    ;写到触摸屏

    

    MOV R211,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R230,1

    

    MOV R212,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R231,1

    

    MOV R213,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R232,1

    

    MOV R214,R143,1

    CALL ASCII2HEX   ;ASCII转换为HEX

    MOV R159,R233,1

    

    MOV R230,R160,4

      

    LDBR R0,0X11,1

    LDBR R1,0X01,1

    CALL DATA2HMI    ;写到触摸屏

    

    LDBR R70,0,3

    LDBR R71,1,1

READ_RET: 

    RET    

;***************************



;***************************

;R100--R116DM指令占用,所有数据为ASCII码形式

;R100:[url=home.php?mod=space&uid=72445]@[/url]   R101:0X30  R102:0X30  R103:0X52(R)  R104:0X44(D)  R105-R108:PLC的DM区地址  

;R109-R112:读取DM区的长度  R113-R114:XOR校验码  R115:0X2A  R116:0X0D

;R9发送数据得长度

;读DM区指令RD格式 [url=home.php?mod=space&uid=72445]@[/url]      00        RD          0000         0000       00      *\CR

;              帧头  PLC单元号  读DM区指令  开始读取的地址     读取长度    XOR校验   结束码0X2A  0X0D

;读D0009 D0010的数据

READ_DM: 

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X52,1

    LDBR R104,0X44,1

    LDBR R105,0X30,1

    LDBR R106,0X30,1

    LDBR R107,0X30,1

    LDBR R108,0X39,1

    LDBR R109,0X30,1

    LDBR R110,0X30,1

    LDBR R111,0X30,1

    LDBR R112,0X32,1

    ;下列代码为R100-R112的XOR计算，并将计算值转换为ascii赋值给R113,R114

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    MOV  R120,R121,1

    SHR  R120,1,4   

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;调用转换

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

    RET

;***********************************************

    

;数字0-F转换位ASCII码，输入数据接口R120，输出数据接口R125,占用R120-R140寄存器；

HXE2ASCII:

    LDBR R125,0X0F,1

    LDBR R124,0X00,1

    AND  R125,R120,1

    LDBR R122,0X00,1

    LDBR R123,0X09,1

    JU         R122,R124 ASCII

    LDBR R130,0X30,1

    OR   R125,R130,1

    RET  

ASCII:

    LDBR R127,0X00,4

    LDBR R130,0X37,1

    LDBR R122,0X00,3

    ADD  R122,R127,R131

    MOV  R138,R125,1

    RET

;*************************************************    



;********************

;ascii码转换为HEX

;返回得数据提取，输入数据接口R140-R143;输出数据接口R159

ASCII2HEX:

    LDBR R140,0X00,3

    LDBR R144,0X00,1

    LDBR R145,0X30,1   

    JU         R142,R144,HEX_A_F;如果数据>=0X30，满足继续执行，否则跳转其他判断

    LDBR R146,0X00,1

    LDBR R147,0X39,1

    JU         R146,R142,HEX_A_F;满足>=0x30后，判断是否<=0x39，满足继续执行，否则跳转其他判断

    LDBR R148,0,3

    LDBR R151,0X30,1

    LDBR R152,0,8

    SUB  R140,R148,R152

    RET

HEX_A_F: 

    LDBR R140,0X00,3

    LDBR R144,0X00,1

    LDBR R145,0X41,1 

    JU         R142,R144,AS2HE_END;如果数据>=0X30，满足继续执行，否则跳转其他判断

    LDBR R146,0X00,1

    LDBR R147,0X46,1

    JU         R146,R142,AS2HE_END;满足>=0x30后，判断是否<=0x39，满足继续执行，否则跳转其他判断

    LDBR R148,0,3

    LDBR R151,0X37,1

    LDBR R152,0,8

    SUB  R140,R148,R152

AS2HE_END:

    RET

    

;*******************

;数据显示到屏幕，输入接口R160-R163，数据输出接口由R0：R1设定

DATA2HMI:

    SHL R160,1,4

    OR  R160,R161,1

    SHL R162,1,4

    OR  R162,R163,1

    MOV R162,R161,1

    MOVXR R160,0,1

    NOP

    RET

;*******************



;***********************

;输入数据变量地址有R0:R1指定，调用前请给R0:R1赋值

DM_INPUT:

    LDBR R0,0X12,1

    LDBR R1,0X10,1        ;键盘确定键地址

    MOVXR R80,1,1 

    IJNE R80,0X5A,DM_IN   ;键盘确定键按下，0x1210赋值0x5A5A，有写操作

    IJNE R81,0X5A,DM_IN

    LDBR R80,0,2 

    MOVXR R80,0,1

     

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X30,1

    LDBR R87,0X39,1 ;指定要写入得DM区对应得PLC地址 

;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X44,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1

    

    LDBR R0,0X12,1

    LDBR R1,0X00,1 

    MOVXR R82,1,1

    

    MOV  R82,R120,1

    SHR  R120,1,4    ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R109,1;返回得数据再R125中 

    

    MOV  R82,R120,1  ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R110,1;返回得数据再R125中 

    

    MOV  R83,R120,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R111,1;返回得数据再R125中 

    

    MOV  R83,R120,1  ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R112,1;返回得数据再R125中 



    ;以下为XOR校验    

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;调用转换

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

INPUT_DM_END:  

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

    IJNE R50,0,INPUT_DM_BACK

    RET

    

INPUT_DM_BACK:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_DM_END  

    RDXDAT 4,R170,R50

DM_IN:   RET

;*****************



;***********************

;输入数据变量地址R0:R1指定，调用前请给R0:R1赋值



CIO_INPUT:

    LDBR R0,0X10,1

    LDBR R1,0X01,1          ;按钮LED1输入

    MOVXR R80,1,1 

    IJNE R80,0X00,CIO_IN   ;相等不知执行写操作

    IJNE R81,0X01,CIO_IN 

    LDBR R80,0,2 

    MOVXR R80,0,1

      

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X31,1

    LDBR R87,0X30,1 ;指定要写入得CIO区对应得PLC地址  

CIO_WR:



    ;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X52,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1 ;写plc得地址

    

    MOV R55,R143,1

    CALL ASCII2HEX

    MOV R159,R55,1  ;转换为ASCII码

    

    LDBR R51,0X01,1

    AND  R51,R55,1

    IJNE R51,0X00,TO_1

    LDBR R51,0X01,1

    OR R55,R51,1

    MOV R55,R120,1

    CALL HXE2ASCII ;转换为ASCII码

    MOV R125,R55,1

    GOTO CIO_SEND

TO_1:

    LDBR R51,0XFE,1

    AND R55,R51,1

    

    MOV R55,R120,1

    CALL HXE2ASCII

    MOV R125,R55,1

    

CIO_SEND:

    MOV  R52,R109,3

    MOV  R55,R112,1

    LDBR R120,0X40,1

    ;xor校验

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;转换为ASCII码

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

    

INPUT_CIO_END:  

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

    IJNE R50,0,INPUT_CIO_BACK

    RET

    

INPUT_CIO_BACK:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_CIO_END  

    RDXDAT 4,R170,R50

CIO_IN:   RET

;*****************



H_INPUT:

    LDBR R0,0X10,1

    LDBR R1,0X21,1        ;LED3对应地址

    MOVXR R80,1,1 

    IJNE R80,0X00,H_IN;

    IJNE R81,0X01,H_IN     ;按键按下 

    LDBR R80,0,2 

    MOVXR R80,0,1 

    

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X30,1

    LDBR R87,0X30,1 ;指定要写入得H区对应得PLC地址

H_WR:

;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X48,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1    ;写PLC得地址

    

    MOV R59,R143,1

    CALL ASCII2HEX     ;转换为ASCII码

    MOV R159,R59,1

    

    LDBR R51,0X01,1

    AND  R51,R59,1

    IJNE R51,0X00,TO_H_1

    LDBR R51,0X01,1    ;按键按下

    OR R59,R51,1

    MOV R59,R120,1

    CALL HXE2ASCII     ;转换为ASCII码

    MOV R125,R59,1

    GOTO H_SEND

TO_H_1:

    LDBR R51,0XFE,1

    AND R59,R51,1

    

    MOV R59,R120,1

    CALL HXE2ASCII

    MOV R125,R59,1

    

H_SEND:

    MOV  R56,R109,3

    MOV  R59,R112,1

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;转换为ASCII码

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

INPUT_H_END:  

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

    IJNE R50,0,INPUT_H_BACK

    RET

    

INPUT_H_BACK:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_H_END  

    RDXDAT 4,R170,R50

H_IN:   RET

;***************************



;*******写H区***************

READ_CIO_RESP:

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

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

    CALL READ_CIO

    MOV R209,R143,1

    CALL ASCII2HEX

    MOV R159,R232,1     

READ_CIO_END:  

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

    IJNE R50,0,RECIVE_CIO

    RET

    

RECIVE_CIO:    

    MOVDR 17,R20,1

    IJNE R20,0,CIO_END                           

DATA_CIO_HAN:         

    RDXDAT 4,R200,R50

    IJNE R204,0X52,CIO_END

    LDBR R50,0,1          ;读取完成后清除保存再R50中得数据长度

    ;*****以下为数据处理****

    MOV R207,R52,4

    LDBR R240,0X01,1

    LDBR R241,0X02,1

    

    AND R240,R210,1   

    LDBR R0,0X10,1

    LDBR R1,0X00,1

    IJNE R240,0X00,CIO10_00_WR_1;等于0，继续执行，不等于零跳

    CALL HMI_WR_ZERO 

    GOTO CIO_NO_1

CIO10_00_WR_1:

    CALL  HMI_WR_ONE 

                    

CIO_NO_1:

    AND R241,R210,1

    LDBR R0,0X10,1

    LDBR R1,0X10,1

    IJNE R241,0X00,CIO10_01_WR_1;等于0，继续执行，不等于零跳，相应位取反操作

    CALL HMI_WR_ZERO  

    GOTO CIO_END 

CIO10_01_WR_1:

    CALL  HMI_WR_ONE       

CIO_END:

    RET 



HMI_WR_ZERO:                   ;屏写0,写入地址R0:R1 

    LDBR R160,0,2

    MOVXR R160,0,1

    RET                        

HMI_WR_ONE:                       ;屏写1

    LDBR R160,0,1

    LDBR R161,1,1  

    MOVXR R160,0,1 

    RET   



READ_CIO: 

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X52,1

    LDBR R104,0X52,1

    LDBR R105,0X30,1

    LDBR R106,0X30,1

    LDBR R107,0X31,1

    LDBR R108,0X30,1

    LDBR R109,0X30,1

    LDBR R110,0X30,1

    LDBR R111,0X30,1

    LDBR R112,0X32,1



    ;下列代码为R100-R112的XOR计算，并将计算值转换为ascii赋值给R113,R114

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    MOV  R120,R121,1

    SHR  R120,1,4   

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;调用转换

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

    RET

;**********************************************



;***********************************

;******读H区*******************

READ_H_RESP:



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

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

    CALL READ_H

    MOV R209,R143,1

    CALL ASCII2HEX

    MOV R159,R232,1     

READ_H_END:  

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

    IJNE R50,0,RECIVE_H

    RET

    

RECIVE_H:    

    MOVDR 17,R20,1

    IJNE R20,0,H_END                          

DATA_H_HAN:         

    RDXDAT 4,R200,R50

    IJNE R204,0X48,H_END

    LDBR R50,0,1          ;读取完成后清除保存再R50中得数据长度

    MOV R207,R56,4

    ;*****以下为数据处理****

    LDBR R240,0X01,1

    LDBR R241,0X02,1

    

    AND R240,R210,1   

    LDBR R0,0X10,1

    LDBR R1,0X20,1

    IJNE R240,0X00,H0_00_WR_1;等于0，继续执行，不等于零跳  相应位取反操作

    CALL HMI_WR_ZERO 

    GOTO H_NO_1

H0_00_WR_1:

    CALL  HMI_WR_ONE 



H_NO_1:                    

    AND R241,R210,1

    LDBR R0,0X10,1

    LDBR R1,0X30,1

    IJNE R241,0X00,H0_01_WR_1;等于0，继续执行，不等于零跳

    CALL HMI_WR_ZERO  

    GOTO H_END 

H0_01_WR_1:

    CALL  HMI_WR_ONE       

    GOTO H_END



READ_H: 

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X52,1

    LDBR R104,0X48,1

    LDBR R105,0X30,1

    LDBR R106,0X30,1

    LDBR R107,0X30,1

    LDBR R108,0X30,1

    LDBR R109,0X30,1

    LDBR R110,0X30,1

    LDBR R111,0X30,1

    LDBR R112,0X32,1



    ;下列代码为R100-R112的XOR计算，并将计算值转换为ascii赋值给R113,R114

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    MOV  R120,R121,1

    SHR  R120,1,4   

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;调用转换

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

H_END:

    RET

    

    

;**************D10*******************/    

DM_INPUT1:

    LDBR R0,0X12,1

    LDBR R1,0X11,1        ;键盘确定键地址

    MOVXR R80,1,1 

    IJNE R80,0X5A,DM_IN1   ;键盘确定键按下，0x1210赋值0x5A5A，有写操作

    IJNE R81,0X5A,DM_IN1

    LDBR R80,0,2 

    MOVXR R80,0,1 

    

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X31,1

    LDBR R87,0X30,1 ;指定要写入得DM区对应得PLC地址

;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X44,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1

    

    LDBR R0,0X12,1

    LDBR R1,0X01,1 

    MOVXR R82,1,1

    

    MOV  R82,R120,1

    SHR  R120,1,4    ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R109,1;返回得数据再R125中 

    

    MOV  R82,R120,1  ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R110,1;返回得数据再R125中 

    

    MOV  R83,R120,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R111,1;返回得数据再R125中 

    

    MOV  R83,R120,1  ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R112,1;返回得数据再R125中 



    ;以下为XOR校验    

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;调用转换

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

INPUT_DM_END1:  

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

    IJNE R50,0,INPUT_DM_BACK1

    RET

    

INPUT_DM_BACK1:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_DM_END1 

    RDXDAT 4,R170,R50

DM_IN1:   RET

    







;***********************

;输入数据变量地址R0:R1指定，调用前请给R0:R1赋值



CIO_INPUT1:

    LDBR R0,0X10,1

    LDBR R1,0X11,1          ;按钮LED1输入

    MOVXR R80,1,1 

    IJNE R80,0X00,CIO_IN1   ;相等不知执行写操作

    IJNE R81,0X01,CIO_IN1 

    LDBR R80,0,2 

    MOVXR R80,0,1  

    

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X31,1

    LDBR R87,0X30,1 ;指定要写入得H区对应得PLC地址  

CIO_WR1:



    ;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X52,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1 ;写plc得地址

    

    MOV R55,R143,1

    CALL ASCII2HEX

    MOV R159,R55,1  ;转换为ASCII码

    

    LDBR R51,0X02,1

    AND  R51,R55,1

    IJNE R51,0X00,TO_11

    LDBR R51,0X02,1

    OR R55,R51,1

    MOV R55,R120,1

    CALL HXE2ASCII ;转换为ASCII码

    MOV R125,R55,1

    GOTO CIO_SEND1

TO_11:

    LDBR R51,0XFD,1

    AND R55,R51,1

    

    MOV R55,R120,1

    CALL HXE2ASCII

    MOV R125,R55,1

    

CIO_SEND1:

    MOV  R52,R109,3

    MOV  R55,R112,1

    LDBR R120,0X40,1

    ;xor校验

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;转换为ASCII码

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

    

INPUT_CIO_END1:  

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

    IJNE R50,0,INPUT_CIO_BACK1

    RET

    

INPUT_CIO_BACK1:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_CIO_END1  

    RDXDAT 4,R170,R50

CIO_IN1:   RET

;*****************



    

;*****************



H_INPUT1:

    LDBR R0,0X10,1

    LDBR R1,0X31,1        ;LED3对应地址

    MOVXR R80,1,1 

    IJNE R80,0X00,H_IN1;

    IJNE R81,0X01,H_IN1     ;按键按下 

    LDBR R80,0,2 

    MOVXR R80,0,1 

    

    LDBR R84,0X30,1

    LDBR R85,0X30,1 

    LDBR R86,0X30,1

    LDBR R87,0X30,1 ;指定要写入得H区对应得PLC地址

H_WR1:

;将数据写入到PLC，写入地址有R84:R85:R86:R87指定

    LDBR R100,0X40,1

    LDBR R101,0X30,2

    LDBR R103,0X57,1

    LDBR R104,0X48,1



    MOV  R84,R105,1

    MOV  R85,R106,1

    MOV  R86,R107,1

    MOV  R87,R108,1    ;写PLC得地址

    

    MOV R59,R143,1

    CALL ASCII2HEX     ;转换为ASCII码

    MOV R159,R59,1

    

    LDBR R51,0X02,1

    AND  R51,R59,1

    IJNE R51,0X00,TO_H_11

    LDBR R51,0X02,1    ;按键按下

    OR R59,R51,1

    MOV R59,R120,1

    CALL HXE2ASCII     ;转换为ASCII码

    MOV R125,R59,1

    GOTO H_SEND

TO_H_11:

    LDBR R51,0XFD,1

    AND R59,R51,1

    

    MOV R59,R120,1

    CALL HXE2ASCII

    MOV R125,R59,1

    

H_SEND1:

    MOV  R56,R109,3

    MOV  R59,R112,1

    LDBR R120,0X40,1

    XOR  R120,R101,1

    XOR  R120,R102,1

    XOR  R120,R103,1

    XOR  R120,R104,1

    XOR  R120,R105,1

    XOR  R120,R106,1

    XOR  R120,R107,1

    XOR  R120,R108,1

    XOR  R120,R109,1

    XOR  R120,R110,1

    XOR  R120,R111,1

    XOR  R120,R112,1  

    

    MOV  R120,R121,1

    SHR  R120,1,4   ;转换为ASCII码

    CALL HXE2ASCII  ;调用转换,数据已经放入R120

    MOV  R125,R113,1;返回得数据再R125中 

    

    MOV  R121,R120,1;数据放入R120中

    CALL HXE2ASCII  ;转换为ASCII码

    MOV  R125,R114,1;返回得数据再R125中

    

    LDBR R115,0X2A,1   ;结束字符

    LDBR R116,0X0D,1   ;结束字符

    LDBR R9,17,1

    COMTXD 4,R100,R9

INPUT_H_END1:  

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

    IJNE R50,0,INPUT_H_BACK1

    RET

    

INPUT_H_BACK1:    

    MOVDR 17,R20,1

    IJNE R20,0,INPUT_H_END1  

    RDXDAT 4,R170,R50

H_IN1:   RET