Serial Interrupt with DT_Ints - Error [Archive]

View Full Version : Serial Interrupt with DT_Ints - Error

gadelhas

- 10th August 2010, 02:53

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

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;

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

Darrel Taylor

- 10th August 2010, 03:21

The answer is in the error ...

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

gadelhas

- 10th August 2010, 03:32

The answer is in the error ...

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;

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

serialin:

@ INT_RETURN
To Receive the data?

Darrel Taylor

- 10th August 2010, 17:17

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.

gadelhas

- 10th August 2010, 20:36

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;

'************************************************* ***************
'* 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

Darrel Taylor

- 10th August 2010, 23:30

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.

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.

gadelhas

- 11th August 2010, 02:34

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

Darrel Taylor

- 11th August 2010, 07:07

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,

gadelhas

- 11th August 2010, 13:26