data storage label [Archive] - MEL PICBASIC Forum

MINHLE

- 16th December 2009, 20:05

hi,

i would store information in different DATA files i.e. label1 DATA $01, , 10,...
and label2 DATA $21, $45

here is the program but it gave error message

CMCON = 1
TRISA = 0
TRISB = 0

I VAR BYTE
TEMP VAR WORD ; temporary storage out put

LOOP:
.....
.....

for i = 0 to 5
read display + i , temp ;increase the index to read data from

"display". display is @ first data l location and store it in the "temp"

portb = temp ; out put to hardware
next i

GOSUB LOOP

ENd

display DATA $00,$40,$40,$7F,$40,$40 ;data storage here

thanks for your help

Darrel Taylor

- 16th December 2009, 22:00

It's just a Warning, so you can turn it off.

    @ errorlevel -202

MINHLE

- 16th December 2009, 23:50

thanks Darrel,
i try it but now bad token
i try to check on the data sheet of 16 f628 have not seen it yet.

MINHLE

- 17th December 2009, 02:05

Hi Darrel

I could not find the "error level" in the data sheet of 16f628. where is it information from?

thanks for yuor help

Minh le

Darrel Taylor

- 17th December 2009, 03:21

Sorry, I assumed you were using an 18F, which can have problems with EEPROM Math.
Since you are using a 16F628, please ignore my previous comment.

Not sure why you would get that error with a 16F, so give this a try and let me know what happens.
Set you're OSC and LCD defines first ...

'----[EEPROM DATA]----------------------------------------------------------
EEstring1 DATA "Hello World!",0 ; null-terminated strings in EEPROM
EEstring2 DATA "Didn't expect That.",0

'----[Variables / Aliases]--------------------------------------------------
Idx VAR BYTE ' String Index pointer
Char VAR BYTE ' Character to display
String VAR BYTE ' Pointer to String in EEPROM memory

'----[Initialization]-------------------------------------------------------
CMCON = 7
LCDOUT $FE,1:FLAGS=0:PAUSE 250:LCDOUT $FE,1:PAUSE 250 ' Initialize LCD

'----[Main program loop]----------------------------------------------------
Main:
LCDOUT $FE, 1 ' Clear LCD screen
String = EEstring1 : GOSUB EEString2LCD ' Display String1
PAUSE 1000
LCDOUT $FE,$C0 ' move cursor to Line2
String = EEstring2 : GOSUB EEString2LCD ' Display String2
PAUSE 1000
GOTO Main ' Rinse & Repeat

'----[Display the specified EE string]--------------------------------------
EEString2LCD:
Char = $FF ' Make sure Char > 0 to start
Idx = 0 ' start at beginning of string
WHILE Char > 0 ' do Null-terminated string
Read String + Idx, Char ' get the character
IF Char > 0 THEN LCDOUT Char ' display the character,If>0
Idx = Idx + 1 ' point to next character
WEND
RETURN

MINHLE

- 17th December 2009, 04:27

sory Darrel,

the one i do id for the LED matrix display. the data include happy face. letters....scrolling. for the alphabets i store in one data file , the happy face i do it in another data file.

i.e. running_letter DATA $10,$10...$30..
running_face DATA $30, $68....
the label give out the error when compiled
------------------------

for i = 0 to 3
READ running_letter +i, temp ; tenp is temporary storage

next i
--------------------

the pic is 16f628
i could not find rhe ERRORLEVEL in the data sheet of that chip

thank for your attention

regards,

MINHLE

- 17th December 2009, 14:04

hello Darrel,

i found where the problem comes from,
that is bacause i left the DATA table at the end of the program. now i move to the beginning of the program , it works,

thanks gain for your help
MInh le