Serial Interrupt with DT_Ints

Serial Interrupt with DT_Ints - Error

Hi Again everyone;

I'm trying to make a program using serial interrupt with DT_Ints, however i'm getting some erros when i compile, can somebody help me?

PIC16F877A
4Mhz
PBP Pro 2.60a
Mplab 8.53

Code:

DEFINE OSC 4 include "modedefs.bas" INCLUDE "DT_INTS-14.bas" INCLUDE "ReEnterPBP.bas" ; Include if using PBP interrupts ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler RX_INT, _serialin, PBP, no endm INT_CREATE ; Creates the interrupt processor ENDASM @ INT_ENABLE RX_INT ; enable external (INT) interrupts ' VARIÁVEIS ' ==================================================================== DADO var byte DADOS var byte(4) ID var byte(2) ' REGISTOS PINOUT 1 = IN; 0 = OUT ' ==================================================================== '76543210 TRISA = %00000001 TRISB = %00001111 TRISC = %10000000 TRISD = %00000000 TRISE = %00000000 ADCON1 = 7 ' NOMES PINOUT ' ==================================================================== LED VAR PORTA.1 Botao var PORTA.0 TX Var PORTC.6 RX VAR PORTC.7 ' DEFINIÇÕES ' ==================================================================== DEFINE LCD_DREG PORTB ' LCD Data bits on PORTB DEFINE LCD_DBIT 4 ' PORTB starting address DEFINE LCD_RSREG PORTB ' LCD RS bit on PORTB DEFINE LCD_RSBIT 3 ' LCD RS bit address DEFINE LCD_EREG PORTB ' LCD E bit on PORTB DEFINE LCD_EBIT 2 ' LCD E bit address DEFINE LCD_BITS 4 ' LCD in 4-bit mode DEFINE LCD_LINES 2 ' LCD has 2 rows DEFINE LCD_COMMANDUS 2000 ' Set command delay time in us DEFINE LCD_DATAUS 50 ' Set data delay time in us ' INICIO PROGRAMA ' ==================================================================== Start: HIGH LED PAUSE 500 LOW LED PAUSE 500 HIGH LED LCDOUT $fe, 1 lcdout " Teste Interrupt " lcdout $FE,$C0," Por Hugo Oliveira" pause 1000 Main: toggle led Pause 1000 goto main serialin: ' Buffer the character received @ INT_RETURN

The Erros are;

Code:

xecuting: "C:\Programas\PBP\PBPMPLAB.BAT" -ampasmwin -k# -p16F877A "Interrupt.pbp" Executing: "C:\Programas\PBP\PBPW.EXE" -ampasmwin -k# -p16F877A "Interrupt.pbp" PICBASIC PRO(TM) Compiler 2.60A, (c) 1998, 2010 microEngineering Labs, Inc. All Rights Reserved. ERROR: Unable to execute mpasmwin.Error[113] C:\PROGRAMAS\PBP\PBPPIC14.LIB 1181 : Symbol not previously defined (wsave) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 383 : ERROR: (wsave variable not found,) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 347 : ERROR: (" Add:" wsave VAR BYTE $70 SYSTEM) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 404 : ERROR: (Chip has RAM in BANK1, but wsave1 was not found.) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 354 : ERROR: (" Add:" wsave1 VAR BYTE $A0 SYSTEM, Or change to wsave BYTE $70 SYSTEM) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 420 : ERROR: (Chip has RAM in BANK2, but wsave2 was not found.) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 361 : ERROR: (" Add:" wsave2 VAR BYTE $120 SYSTEM, Or change to wsave BYTE $70 SYSTEM) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 430 : ERROR: (Chip has RAM in BANK3, but wsave3 was not found.) Error[101] C:\DOCUMENTS AND SETTINGS\HUGO OLIVEIRA\AMBIENTE DE TRABALHO\NOVA PASTA\INTERRUPT.ASM 368 : ERROR: (" Add:" wsave3 VAR BYTE $1A0 SYSTEM, Or change to wsave BYTE $70 SYSTEM) Halting build on first failure as requested. BUILD FAILED: Tue Aug 10 02:48:20 2010

Thanks

The answer is in the error ...

Code:

ERROR: (wsave variable not found,) ERROR: (" Add:" wsave VAR BYTE $70 SYSTEM)

Quote:

Originally Posted by Darrel Taylor

The answer is in the error ...

Code:

ERROR: (wsave variable not found,) ERROR: (" Add:" wsave VAR BYTE $70 SYSTEM)

Many Thanks Darrel for the answer.

Itt compiles fine now.
However, cam up another issue;
how can i get a string of chars, like i use in Hserin, for instance;

Code:

Hserin [wait("OK"),STR ID\2,str DAdos\4]

I Will Send to the pic "OK32Hugo" and then i want to compare the "ID" and the "Dados".
I'm trying to figure out the example that you gave int the
http://www.picbasic.co.uk/forum/show...8336#post28336
but i'm not getting there, can you help me here on this? Waht to i have to put in the

Code:

serialin: @ INT_RETURN

To Receive the data?

There are many ways you can do it. It depends on what you need.

If you want the main program to continue running while it's receiving data, then you'll need to use the buffer method as shown in that thread.

If you just want the main program to stop what it's doing and grab the serial data, then simply put your HSERIN in the serialin handler.
You should add a timeout if you do that though.

Hi Again, and thanks for the replys.

Hi made this way, ad it works fine, however i don't have sure that is the best solutio;

Code:

'**************************************************************** '* Name : Teste Interrupt Serial.BAS * '* Author : Hugo Oliveira * '* Notice : Copyright (c) 2010 ProSystems * '* : All Rights Reserved * '* Date : 10-08-2010 * '* Version : 1.0 * '* Notes : * '* : * '**************************************************************** DEFINE OSC 4 include "modedefs.bas" INCLUDE "DT_INTS-14.bas" include "ReEnterPBP.bas" ASM INT_LIST macro ; IntSource, Label, Type, ResetFlag? INT_Handler RX_INT, _Interr, PBP, yes endm INT_CREATE ; Creates the interrupt processor ENDASM @ INT_ENABLE RX_INT ; enable external (INT) interrupts ' VARIÁVEIS ' ==================================================================== DADO var byte DADOS var byte(4) ID var byte(2) wsave VAR BYTE $70 SYSTEM ' REGISTOS PINOUT 1 = IN; 0 = OUT ' ==================================================================== '76543210 TRISA = %00000001 TRISB = %00001111 TRISC = %10000000 TRISD = %00000000 TRISE = %00000000 ADCON1 = 7 ' NOMES PINOUT ' ==================================================================== LED VAR PORTA.1 Botao var PORTA.0 TX Var PORTC.6 RX VAR PORTC.7 ' DEFINIÇÕES ' ==================================================================== DEFINE LCD_DREG PORTB ' LCD Data bits on PORTB DEFINE LCD_DBIT 4 ' PORTB starting address DEFINE LCD_RSREG PORTB ' LCD RS bit on PORTB DEFINE LCD_RSBIT 3 ' LCD RS bit address DEFINE LCD_EREG PORTB ' LCD E bit on PORTB DEFINE LCD_EBIT 2 ' LCD E bit address DEFINE LCD_BITS 4 ' LCD in 4-bit mode DEFINE LCD_LINES 2 ' LCD has 2 rows DEFINE LCD_COMMANDUS 2000 ' Set command delay time in us DEFINE LCD_DATAUS 50 ' Set data delay time in us DEFINE HSER_RCSTA 90h DEFINE HSER_TXSTA 24h 'Testado 300-20h,600-20h,1200-20h,2400-20h,4800-24h,9600-24h,14400-24h,19200-24h,28800-24h DEFINE HSER_BAUD 28800 DEFINE HSER_CLROERR 1 ' INICIO PROGRAMA ' ==================================================================== Start: HIGH LED PAUSE 500 LOW LED PAUSE 500 HIGH LED LCDOUT $fe, 1 lcdout " Teste Interrupt " lcdout $FE,$C0," Por Hugo Oliveira" pause 1000 Main: HIGH LED PAUSE 500 LOW LED PAUSE 500 goto Main Interr: Hserin [wait("OK"),STR ID\2,str DAdos\4] 'Testado 300-20h,600-20h,1200-20h,2400-20h,4800-24h,9600-24h,14400-24h,19200-24h,28800-24h if id(0)="3" and id(1)="2" then if DADOS(0)="H" and DADOS(1)="u" and DADOS(2)="g" and DADOS(3)="o" then high led LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido H " endif if DADOS(0)="L" and DADOS(1)="u" and DADOS(2)="L" and DADOS(3)="u" then low led LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido L " endif if DADOS(0)<>"L" and DADOS(0)<>"H" then LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido :",DADOS(0),DADOS(1),DADOS(2),DADOS(3) endif endif @ INT_RETURN END

Thanks

The best solution ... I've never found one of those.
Found things that "work" along the way, but there's always something better.

Don't know if this is better or not, but it is definitely different.

Code:

ID VAR BYTE Interr: Hserin 100,RXfail, [wait("OK"),DEC2 ID, str DAdos\4] if ID = 32 then ARRAYREAD DAdos, 4,No_Hugo,[WAIT("Hugo")] high led LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido H " No_Hugo: ARRAYREAD DAdos, 4,No_LuLu,[WAIT("LuLu")] low led LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido L " No_LuLu: ARRAYREAD DAdos, 2,NO_LH,[WAIT("LH")] LCDOUT $fe, 1 lcdout " Teste USB" lcdout $FE,$C0,"Recebido :",STR DADOS\4 NO_LH: endif RXfail: @ INT_RETURN 

If nothing else, you should add the RXfail timeout to the HSERIN statement.

Quote:

Originally Posted by Darrel Taylor

The best solution ... I've never found one of those.
Found things that "work" along the way, but there's always something better.

Don't know if this is better or not, but it is definitely different.

If nothing else, you should add the RXfail timeout to the HSERIN statement.

WOW, Thank you Darrel. Much more btter and organized... must "better solution" than mine!

Just tell me one thing, were can i find a descripion of he arrayread comand? I search on the PBP manual, but i cannot find it.

Thanks

ARRAYREAD/ARRAYWRITE are new in PBP 2.60.

I guess the RTFM would be section 5.3 (page 50) in the manual.
There haven't been any tutorials that I know of yet.

Essentially, ARRAYREAD is the same as a SERIN2.
But it works on data that is already in an Array, instead of data being received via RS232.

All the same modifiers work. WAIT DEC HEX BIN etc.
Instead of a timeout, you specify the number of bytes to check.
If it runs out of bytes before it satisfies the parameters, it jumps to the label. (ex. No_Hugo)

The way I used it makes it more like an IF statement for Strings.

hth,

Quote:

Originally Posted by Darrel Taylor

ARRAYREAD/ARRAYWRITE are new in PBP 2.60.

I guess the RTFM would be section 5.3 (page 50) in the manual.
There haven't been any tutorials that I know of yet.

Essentially, ARRAYREAD is the same as a SERIN2.
But it works on data that is already in an Array, instead of data being received via RS232.

All the same modifiers work. WAIT DEC HEX BIN etc.
Instead of a timeout, you specify the number of bytes to check.
If it runs out of bytes before it satisfies the parameters, it jumps to the label. (ex. No_Hugo)

The way I used it makes it more like an IF statement for Strings.

hth,

Thanks for reply.