Why this Function don't work?

pinkfloyd11 · Joined: 02 Jul 2007 Posts: 248

Dear Friends

I have written code for read NRam memory and it work. After I have wrapper it in a function but with my surprise it don't work.
Can you help me to discovery why? Thanks.

working code
call Set_Address(3)
waitms 1
CE = Attivato
waitms 1
OE = Attivato
waitms 1
print Get_Byte()
waitms 1
OE = Disattivato
CE = Disattivato

NOT WORKING CODE
Declare Function Read_Byte(Byval Indirizzo as Integer) as byte
....
print read_byte(3)
....
Function Read_Byte(ByVal Indirizzo as Integer) as byte

call Set_Address(Indirizzo)
waitms 1
CE = Attivato
waitms 1
OE = Attivato
waitms 1
Read_Byte = Get_Byte()
waitms 1
OE = Disattivato
CE = Disattivato

end Function
........
Function Get_Byte() As Byte

Config PORTC = INPUT
PortC = 255
Get_Byte = Pinc

End Function

ex4 · Joined: 13 Jan 2006 Posts: 1064 Location: indonesia

change this
Read_Byte = Get_Byte()

to

local loc_res as byte
loc_res = Get_Byte()
Read_Byte = loc_res