Here simple "pulsin" code ,
yes its not finish .Only run for test .
'DEVICE 16F84A
DEFINE OSC 10
DEFINE LCD_DREG PORTB
DEFINE LCD_DBIT 4
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 3
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 2
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
TEST1 VAR WORD
PULSIN PORTA.0,1,TEST1
Lcdout $fe, 1,"Puls :" ,#TEST1
PAUSE 200
lcd picture
This is proteus circuit,
![]()
Bookmarks