Problem with multiple interrupts
Dear friends, I am trying to make two pic16F88 to serially communicate between them.
Pic_A Pic_B
portB.6 (Tx) >-------------------------> portB.7 (Rx)
portB.7(Rx) <-------------------------< portB.6(Tx)
To be sure to have a reliable communication, I am using DT int on portB.0 to activate serial transmission as per the code below.
Code:INCLUDE "Modedefs.bas" INCLUDE "DT_INTS-14_3.bas" ; Base Interrupt System INCLUDE "ReEnterPBP.bas" ; Include if using PBP interrupts ANSEL = 0 CMCON = 7 OPTION_REG.6 = 1 TrisA = %00010000 TrisB = %10000101 PortA = 0 DEFINE OSC 8 DEFINE HSER_RCSTA 90h ' Enable serial port & continuous receive DEFINE HSER_TXSTA 20h ' Enable transmit, BRGH = 0 DEFINE HSER_SPBRG 12 ' 9600 Baud @ 8MHz, 0,16% DEFINE HSER_CLROERR 1 ' Clear overflow automatically SCall var PortB.3 PwrL var PortA.0 PwrM var PortA.1 Led var PortA.2 Buz var PortA.3 STx var PortB.6 SRx var PortB.7 ZCrox var PortA.4 X10Tx var PortB.1 TxEnable var PortB.4 low TxEnable low SCall input SRx high STx A0 var Byte DataFlag var byte House var byte Unit var Byte Job var Byte Rdata var Byte[30] Flag0 var dataflag.0 Flag1 var DataFlag.1 ' Hserin interrupt channel Flag2 var dataFlag.2 ' PortB.0 interrupt channel Flag3 var DataFlag.3 Flag7 var dataFlag.7 '-------------------- Rx & PB0 DT interrupt definition ----------------- ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler RX_INT, _Getbytes, PBP, yes INT_Handler INT_INT, _DataReady, PBP, yes endm INT_CREATE ; Creates the interrupt processor ENDASM @ INT_ENABLE RX_INT ; enable RX_INT interrupts '---------------------------------------------------------------------- gosub Buzzer low led A0=0 DataFlag=0 pause 500 hserout ["System Ready",10,13] Main: pause 1 IF Rdata[0] = 36 and Flag0 = 1 then High led If Rdata[1] = 49 then House = ((Rdata[4]-48)*10) + (Rdata[5]-49) ' X10 house value Unit = ((Rdata[6]-48)*10) + (Rdata[7]-49) ' X10 Unit value Flag7 = 0 If Rdata[8] = 49 then Job = 18 : Flag7 = 1 If Rdata[8] = 50 then Job = 26 : Flag7 = 1 If Rdata[8] = 98 then Job = 20: Flag7 = 1 If Rdata[8] = 99 then Job = 28: Flag7 = 1 if Flag7 = 0 Then Skip00 High TxEnable ' enable X10 transmission pause 1 ' delay before X10 Tx Xout X10Tx,Zcrox,[House\Unit,House\Job] ' X10 transmission low TxEnable ' disable X10 Transmission goto Skip00 Endif If Rdata[1] = 52 then ' intra system comand If Rdata[8] = 250 then gosub Power01 If Rdata[8] = 240 then gosub Power02 If Rdata[8] = 230 then gosub Modem01 If Rdata[8] = 220 then gosub Modem02 goto Skip00 endif If Rdata[1] = 51 then ' intra system communication High Scall Pause 10 serout2 STx,84,5,[str Rdata\30] Low Scall goto Skip00 endif IF Rdata[1] = 57 and Flag2 = 1 then ' send out via wifi string recived hserout [str Rdata\30] endif Skip00: ' reset main pointers & flag Rdata[0] = 0 Rdata[1] = 0 Rdata[2] = 0 Rdata[8] = 0 Flag0 = 0 Flag1 = 0 Flag2 = 0 A0=0 gosub buzzer Low led endif goto Main Getbytes: ' Rx interrupt data from Xbee module hserin 100, Nodata, [Str Rdata\9] Flag0 = 1 @ INT_RETURN Nodata: Flag0 = 0 Flag1 = 1 @ INT_RETURN DataReady: ' Intracom interrupt data from chip hserout ["PB0 Interrupt"] ' this message never show up Flag0 = 0 Flag1 = 0 Flag2 = 0 serin2 STx,84,500,JumpOut,[str Rdata\30] Flag2 = 1 Flag0 = 1 Loop: if PortB.0 = 1 then Loop @ INT_RETURN JumpOut: Flag0 = 0 Flag1 = 0 Flag2 = 0 Flag3 = 1 @ INT_RETURN Power01: hserout ["PowerLine Off",10,13] pause 1 low PwrL return Power02: hserout ["PowerLine On",10,13] pause 1 high PwrL return Modem01: hserout ["Modem Off",10,13] pause 1 low PwrM return Modem02: hserout ["Modem On",10,13] pause 1 high PwrM return Buzzer: high buz pause 20 low buz return
The Rx interrupt works fine, while the portB.0 interrupt doesn't work at all, so I am anable to get data transfer between the two pics.
There must be something wrong but I am anable to find it! Any help will be greatly appreciated.
Al.
Bookmarks