Holas:
Pues ya furula, partí del codigo puesto por Ascii, el programa para PC no estaba disponible así que me hice el mio propio, quedó algo así:
(http://imajr.com/th/Ibutton__Giovanni_Lafebre_.bmp_178083.jpg) (http://imajr.com/Ibutton__Giovanni_Lafebre_.bmp_178083)
El código del Pic también le modifiqué un poquito:
INCLUDE "modedefs.bas"
DEFINE OSC 4
cmcon = 7
ib VAR BYTE[8]
i VAR BYTE
TRISB = %00000010'RB output, RB1 input
GoTo start
start:
Pause 50
OWOut PORTB.1,1,[$33]'output command to iButton
OWIn PORTB.1,0,[STR ib\8]'read 64 bit string
IF ib[1]<>255 Then
For i=7 TO 1 step -1
SerOut2 3,84,[HEX2 ib[i]]'display the code
next i
endif
PAUSE 500
GoTo start
End
Muy interesantes estos aparatitos, si señor...!!! :mrgreen: :mrgreen: :D :D