Here is what I have:
Code:
DEFINE OSC 20
@ __CONFIG _CONFIG1L, _PLLDIV_5_1L & _CPUDIV_OSC1_PLL2_1L & _USBDIV_2_1L
@ __CONFIG _CONFIG1H, _FOSC_HSPLL_HS_1H & _FCMEN_OFF_1H & _IESO_OFF_1H
@ __CONFIG _CONFIG2L, _PWRT_OFF_2L & _BOR_OFF_2L & _BORV_3_2L & _VREGEN_ON_2L
@ __CONFIG _CONFIG2H, _WDT_OFF_2H & _WDTPS_32768_2H
@ __CONFIG _CONFIG3H, _CCP2MX_ON_3H & _PBADEN_OFF_3H & _LPT1OSC_OFF_3H & _MCLRE_ON_3H
@ __CONFIG _CONFIG4L, _STVREN_ON_4L & _LVP_OFF_4L & _ICPRT_ON_4L & _XINST_OFF_4L
loopcount var word
;----[ Change these to match your LCD ]---------------------------------------
LCD_DB4 VAR PORTE.1
LCD_DB5 VAR PORTA.3
LCD_DB6 VAR PORTA.4
LCD_DB7 VAR PORTE.2
LCD_RS VAR PORTD.3
LCD_E VAR PORTA.5
LCD_Lines CON 2 ' # of Lines on LCD, 1 or 2 (Note: use 2 for 4 lines)
LCD_DATAUS CON 50 ' Data delay time in us
LCD_COMMANDUS CON 2000 ' Command delay time in us
INCLUDE "LCD_AnyPin.pbp" ; *** Include MUST be AFTER LCD Pin assignments ****
;
;----[ Your Main program starts here ]----------------------------------------
'LoopCount VAR WORD PAUSE 500 : LCDOUT $FE,1 : PAUSE 250 ; Initialize LCD (You may not need this, ; but some displays are picky)
;
Main: LCDOUT $FE,1 ; clear screen
LCDOUT $FE,$87,"Hello,",$FE,$C8,"From DT!"
;
FOR LoopCount = 0 TO 65535
LCDOUT $FE,$80, IDEC LoopCount
LCDOUT $FE,$C0, IHEX4 LoopCount
NEXT LoopCount
GOTO Main
Pin connections are as follows:
1 VSS
2 VDD
3 10K POT
4 PORTD.3
5 VSS
6 PORTA.5
7 N/C
8 N/C
9 N/C
10 N/C
11 PORTE.1
12 PORTA.3
13 PORTA.4
14 PORTE.2
15 N/C
16 N/C
Bookmarks