Dim Command As Byte , Subaddress As Byte P3.7 = 1 Reset Tcon.0 On Int0 Receiverc5 Enable Interrupts Enable Int0 Do Loop Receiverc5: Disable Int0 Getrc5(subaddress , Command) Open "com3.1:9600,8N1" For Output As #1 Put #1 , Command Put #1 , Subaddress Close #1 P3.7 = 0 Waitms 20 P3.7 = 1 Subaddress = &HFF Enable Int0 Return
wladyslaw_w908