Big characters
PBP Program
'program to display big characters (numbers) on LCD
DEFINE OSC 20
@ device hs_osc
DEFINE LCD_DREG PORTD
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 4
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 5
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
TRISB = 0
TRISD = 0
nPos VAR BYTE
LCDOut $FE,$40,$01,$01,$01,$01,$01,$01,$01,$01 ' Cust Char #0
LCDOut $FE,$48,$1F,$11,$11,$11,$11,$11,$11,$11 ' Cust Char #1
LCDOut $FE,$50,$1F,$10,$10,$10,$10,$10,$10,$1F ' Cust Char #2
LCDOut $FE,$58,$01,$01,$01,$01,$01,$01,$01,$1F ' Cust Char #3
LCDOut $FE,$60,$1F,$11,$11,$11,$11,$11,$11,$1F ' Cust Char #4
LCDOut $FE,$68,$11,$11,$11,$11,$11,$11,$11,$1F ' Cust Char #5
LCDOut $FE,$70,$1F,$01,$01,$01,$01,$01,$01,$1F ' Cust Char #6
LCDOut $FE,$78,$1F,$01,$01,$01,$01,$01,$01,$01 ' Cust Char #7
Pause 500
LCDOut $FE,1
loop:
nPos = 0
GoSub Zero
nPos = 1
GoSub One
nPos = 2
GoSub Two
nPos = 3
Pause 2000
GoTo loop
Zero:
LCDOut $FE,$80+nPos,1
LCDOut $FE,$C0+nPos,5
Return
One:
LCDOut $FE,$80+nPos,0
LCDOut $FE,$C0+nPos,0
Return
Two:
LCDOut $FE,$80+nPos,7
LCDOut $FE,$C0+nPos,2
Return