I wrote this code but not working
Code:
DEFINE OSC 20
INCLUDE "MODEDEFS.BAS"
INCLUDE "MY_LCD.bas
CMCON = 7
ADCON1 = 15
CVRCON = %00000000 'CVref turned off
OUTPUT PORTA.5
OUTPUT PORTC.3
OUTPUT PORTC.5
INPUT PORTC.4
Symbol HC_latch = PORTA.5
symbol HC_SDI = PORTC.4 ;RC4=SDI
symbol HC_SDO = PORTC.5 ;RC5=SDO
SYMBOL HC_Clk = PORTC.3 ;RC3=CLK
RD_MDR0 var word
WR_MDR0 var word
pause 1000
start:
HC_Latch = 0
shiftin HC_SDI, HC_Clk, MSBFIRST,[RD_MDR0]
pauseus 1
HC_Latch = 1
Lcdout $FE,1
lcdout "Count =", DEC5 RD_MDR0
pause 200
goto start
.
Bookmarks