Hserin/Hserout question

[Philley]

What I'm trying to do is use Hyperterminal to send keys pressed from the computer keyboard to the Lab x-1 LCD but only on the first line of the LCD and to hyperterminal, also send the keys from the Lab x-1 keyboard to Hyperterminal and also to line 2 of the LCD. The code I have below does that but I want to be able to see all the keys I've been pressing and not have them be cleared each time I press a key on either keyboard so in other words have them saved on their corresponding lines. Any help or pointing in the right direction would be helpful.


Define LOADER_USED 1

' Define LCD registers and bits
Define LCD_DREG PORTD
Define LCD_DBIT 4
Define LCD_RSREG PORTE
Define LCD_RSBIT 0
Define LCD_EREG PORTE
Define LCD_EBIT 1


char var byte ' Storage for serial character
col var byte ' Keypad column
row var byte ' Keypad row
key var byte ' Key value
lastkey var byte ' Last key storage


ADCON1 = 7 ' Set PORTA and PORTE to digital
Low PORTE.2 ' LCD R/W line low (W)
Pause 500 ' Wait for LCD to startup

OPTION_REG.7 = 0 ' Enable PORTB pullups

key = 0 ' Initialize vars
lastkey = 0


Lcdout $fe, 1 ' Initialize and clear display

loop: Hserin 1, tlabel, [char] ' Get a char from serial port
LCDOUT $fe, $80, char ' Send char to display
HSEROUT [char] ' Send char to Hyperterminal
tlabel: Gosub getkey ' Get a keypress if any
If (key != 0) and (key != lastkey) Then
LCDOUT $fe, $C0, key ' Send key out serial port
HSEROUT [key] 'Send key to hyperterminal
Endif
lastkey = key ' Save last key value
Goto loop ' Do it all over again

' Subroutine to get a key from keypad
getkey:
key = 0 ' Preset to no key
For col = 0 to 3 ' 4 columns in keypad
PORTB = 0 ' All output pins low
TRISB = (dcd col) ^ $ff ' Set one column pin to output
row = PORTB >> 4 ' Read row
If row != $f Then gotkey ' If any keydown, exit
Next col

Return ' No key pressed

gotkey: ' Change row and column to ASCII key number
key = (col * 4) + (ncd (row ^ $f)) + "0"
Return ' Subroutine over

End

[mat janssen]

You forgot to define hserin and hserout.
like this !
DEFINE HSER_TXSTA 20H
DEFINE HSER_RCSTA 90H
DEFINE HSER_SPBRG 4
DEFINE HSER_CLROERR 1

[Philley]

Sorry but why would I need to use those defines when it's already sending and receiving from the Hyperterminal and the keys on the LabX-1 with the code I've displayed in the first post? Unless that will help my situation of savin gthe keys pressed on the LCD instead of them being cleared each time I press another key.

[skimask]

Sorry but why would I need to use those defines when it's already sending and receiving from the Hyperterminal and the keys on the LabX-1 with the code I've displayed in the first post? Unless that will help my situation of savin gthe keys pressed on the LCD instead of them being cleared each time I press another key.

I'm guessing here, but I'd bet the 'DEFINE LOADER_USER 1' might have already set up the serial port for use with the bootloader. Check your .asm & .lst file for anything relating to setting the serial port registers. Either that or PBP used some default values for the serial port, kinda like a 'run home to momma' mode.

[mister_e]

NOPE... nothing to do with the Bootloader, if you use HSERIN/HSEROUT without DEFINEs, it use the default setting : 2400 Baud

[mister_e]

LCDOUT $FE, $C0
sure, this always set the cursor at the begining of the 2nd line. You could use another variable to keep the current LCD position offset and increment it each time you have a successful keypress.


If (key != 0) and (key != lastkey) Then
LCDOUT $fe, ($C0+Line2Position), key ' Send key out serial port
HSEROUT [key] 'Send key to hyperterminal
Line2Position=Line2Position+1
If Line2Position=17 then
Line2Position = 0
LCDOUT $FE,$C0,rep " "\16 ' clear line 2
HSEROUT [13,10]
ENDIF

Endif

[skimask]

NOPE... nothing to do with the Bootloader, if you use HSERIN/HSEROUT without DEFINEs, it use the default setting : 2400 Baud

Well, the reason I mentioned the Bootloader doing the setup for the serial port registers was that when I start up HyperTerminal, it comes up at 9600/8/N/1, Xon/Xoff. I know the HSerIn/Out defaults are 2400, but that would mean that you'd have to change the HyperTerminal settings. The original poster never mentioned anything about baud rate or anything on either side, so I'm just guessing...

[Philley]

Thanks mister_e I'll try that out and get back to ya on my progress.