hi,can someone explain to me what this code does and how should i connect my lcd to pic16f628-with picture?
thx
------------------------------------
'Name : Frekans-628.BAS *
'Author : [Erol ERDAL) *

DE@ DEVICE pic16F628
@ DEVICE pic16F628, WDT_off
@ DEVICE pic16F628, PWRT_ON
@ DEVICE pic16F628, PROTECT_OFF
@ DEVICE pic16F628, MCLR_ON
@ DEVICE pic16F628, HS_OSCFINE OSC 10
DEFINE LCD_DREG PORTA
DEFINE LCD_DBIT 0
DEFINE LCD_RSREG PORTB
DEFINE LCD_RSBIT 2
define LCD_RWREG PORTB
DEFINE LCD_RWBIT 1
DEFINE LCD_EREG PORTB
DEFINE LCD_EBIT 0
DEFINE LCD_BITS 4
DEFINE LCD_LINES 2
DEFINE LCD_COMMANDUS 4000
DEFINE LCD_DATAUS 250
TRISA=0
TRISB=111100
fout var word
foutL var fout.byte0
foutH var fout.byte1
mode var byte
Delay VAR WORD
Delay_Us var WORD
x var word
tenth var byte
Z VAR BIT
'-------------------------------------------------------------------
Z=0
CMCON=7
mode=0
'************************* Main***************************
START : GOSUB TUS 'this is for mode select
SELECT CASE MODE
CASE 0
Delay=1000elay_Us=400
GOSUB OLC
Lcdout $FE,$1,"0-65 KHz : MOD=",DEC MODE
Lcdout $FE,$C0,#fout," Hz":PAUSE 100
goto START

CASE 1
Delay_US=100Delay=100
GOSUB OLC :Fout=Fout/100
Lcdout $FE,1,"65-650KHz: MOD=",DEC MODE
Lcdout $FE,$C0,#fout," KHz":PAUSE 100
GOTO START

CASE 2
Delay_US=996Delay=9
GOSUB OLC:Fout=Fout/10:tenth=(fout//1000)/10
Lcdout $FE,1,"650-6,5MHz:MOD=", DEC MODE
Lcdout $FE,$C0,#fout/1000,",",#tenth," MHz":PAUSE 100
GOTO START

CASE 3
Delay_US=992Delay=0
GOSUB OLC:tenth=(fout//1000)/10:Fout=Fout/1000
Lcdout $FE,1,"6,5-30 MHz:MOD=" ,DEC MODE
Lcdout $FE,$C0,#fout,",",#tenth," MHz":PAUSE 100
GOTO START
END SELECT
Z=0
GOTO START

TUS: PAUSE 70:if PortB.3=1 then
IF Z=1 THEN CIK
Mode=Mode+1pause 10
IF MODE=4 THEN MODE=0
Z=1
RETURN
ENDIF
Z=0
CIK: RETURN

' ---------------frequency counting ------------------------------------
OLC:
if portb.6=0 then
x=x+1
if x>(Delay+Delay_Us) then return
endif
TMR1L=0
TMR1H=0
T1CON=7
pause Delay
pauseus Delay_US
T1CON=6
FoutL=TMR1L
foutH=TMR1H
RETURN
END