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