ASCII HEX Word to Decimal conversion....

[johnmaetta]

I wasn't sure about that statement, but the LCDOUT part works fine sending the word variable.

Not sure what you mean by sending the word variable.

[readitaloud]

John,

You need to convert from ASCII to binary value. 4 bytes become 2 bytes.

Add the following:

' New variables
x var byte
y var byte
i var byte

' ************* ASCII to Binary **************
for i = 0 to 2 step 2
if PRITIM[i] > $40 THEN ' Handle MSNibble.
x = PRITIM[i] + 1
x.3 = 1
x = x << 4
else
x = PRITIM[i]
x = PRITIM[i] << 4
endif
if pritim[i + 1] > $40 then ' Handle LSNibble.
y = PRITIM[i + 1] + 1
y.3 =1
y = y & %00001111
else
y = PRITIM[i + 1]
y = y & %00001111
endif
if i = 0 then
YEAR.byte1 = x | y
else
YEAR.BYTE0 = x | y
endif
next i
'************* END of ASCII to Binary *************
YEAR is now ready to be sent to LCD display.

- Martin

[mark_s]

These displays are ASCII. So no need to convert. Try the line below it will send ASCII $32,$30,$31,32 =(2,0,1,2)to the lcd. You may have to reverse the order PRITIM[X]'s ? Depending on the order you receive the data.

LCDOUT $FE, $80, "YEAR =",PRITIM[3],PRITIM[2],PRITIN[1],PRITIM[0]