' file: ker_LCD.bas
' this drives an LCD with the DARC Board
' pin 1 on DARC board is on inside of board, pin closest to C1
' with most LCD's have JMP2 set with 2-3 connected to ground the RW line
' R7 is not needed on most LCD's as the contrast can be pulled low with
' R1 for max contrast


' put in the cal value for your part here (marked on the 8535 case
' most are hex 9F, some 91's and some in between
Osccal = &HXX

Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.1 , Rs = Portb.0



Dim A As Byte
Config Lcd = 16 * 2                                         'configure lcd screen
'other options are 16 * 4 and 20 * 4, 20 * 2 , 16 * 1a
'When you dont include this option 16 * 2 is assumed
'16 * 1a is intended for 16 character displays with split addresses over 2 lines

'$LCD = address will turn LCD into 8-bit databus mode
'       use this with uP with external RAM and/or ROM
'       because it aint need the port pins !


Do
Cls                                                         'clear the LCD display
Lcd "DARC Board."                                           'display this at the top line
Wait 1
Lowerline                                                   'select the lower line
Wait 1
Lcd "Kill FRRG!"                                            'display this at the lower line
Wait 1
For A = 1 To 10
   Shiftlcd Right                                           'shift the text to the right
   Wait 1                                                   'wait a moment
Next

For A = 1 To 10
   Shiftlcd Left                                            'shift the text to the left
   Wait 1                                                   'wait a moment
Next

Loop

End