
Originally Posted by
hell_pk
here is some code for 16F877A that will read the memory of TDC.its similar to reading an eeprom such with 4 address lines & 8 data lines.
I dont have TDC to test it so u can do it & then tell me if u succeed.
Define LCD_DREG PORTD ' Define LCD connections
Define LCD_DBIT 4
Define LCD_RSREG PORTD
Define LCD_RSBIT 2
Define LCD_EREG PORTD
Define LCD_EBIT 3
ADCON1=7
TRISB=%11111111
TRISA=%000000
PORTA=0
dat VAR byte
i VAR byte
add VAr byte
dat=0
add=0
Lcdout $fe, $80, " TDC Reader"
Pause 3000
Lcdout $fe, $1
Lcdout $fe, $80,"Addr: "
Lcdout $fe, $C0,"Data: "
while(1)
FOR i = 0 TO 15 step 1
porta=i 'CE=1,OE=1,addr=0
porta.4=0 'Chip Enable
porta.5=0 'Output Enable
pauseus 10
dat=PORTB
Lcdout $fe, $80,"Addr: "
Lcdout $fe, $80+8,#i
Lcdout $fe, $C0,"Data: "
Lcdout $fe, $C0+8," "
Lcdout $fe, $C0+8,#dat,":",hex dat
porta.4=1 'CE
porta.5=1 'OE
pause 2000
if i=15 then
Lcdout $fe, $80+8," "
i=0
endif
next i
wend
end
Bookmarks