PIC Basic Code Understanding

[shah_kunjan]

Hello everyone,

I m using Picbasic language.

My problem is: I m sending serially data 2 times from PC and get only 1 time on PIC16Fxx controller.

I have tried polling method, then i have tried "ON INTERRUPT GOTO label"..... But in both methods i got same problem.

Actually my code lenth is very long. ... Is it creating a problem?
Pls giv me solution if anybody find out. I cannot optimize code length....

Thanks in advance

with regards
Kunjan Shah

[mackrackit]

shah_kunjan,
Please post your code. We would be guessing without it.

[shah_kunjan]

Hello Sir,

My code is too long of about 3000 lines......

It is not possible to post it here. if u give me ur email id then i can mail u....

Thank u

Kunjan

[malc-c]

Hello Sir,

My code is too long of about 3000 lines......

It is not possible to post it here.

Thank u

Kunjan

if you can't attach the file by renaming it as .txt then use winzip or winrar to compress the files and then attach the zip/rar file to a post

[shah_kunjan]

if you can't attach the file by renaming it as .txt then use winzip or winrar to compress the files and then attach the zip/rar file to a post

Hello Sir,
i m sending u my code. I m using RS-485 bus network. I m using serial interrupt for 16f876A.
I m sending serially data 2 times from PC and get only 1 time on PIC16Fxx controller.

code:

DEFINE HSER_CLROERR 1
goto Main

DEFINE INTHAND myint


asm
; Save W, STATUS and PCLATH registers
myint
movwf wsave
swapf STATUS, W
clrf STATUS
movwf ssave
movf PCLATH, W
movwf psave

; Insert interrupt code here
; Save and restore FSR if used
bsf _LED ; Turn on LED (for example)
GOTO _Serial

; Restore PCLATH, STATUS and W registers
movf psave, W
movwf PCLATH
swapf ssave, W
movwf STATUS
swapf wsave, F
swapf wsave, W
retfie
endasm


'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''
Main:
LOW LED
INTCON.6 = 1
INTCON.7 = 1
hserout [dec x," ", dec y]
lcdout $FE,1,#x," ",#y
here: goto here


Serial:
hserin [dec x,dec y]

' x = RCREG
' y = RCREG

low led
goto Main
'Resume

[mackrackit]

hserin [dec x,WAIT(" "),dec y]

Maybe???