Listo colegas ya esta 100% la lectura y escritura de microwirw 93c56 y lo mejor que claro para PODER HACERLO PARA CUALQUIER MODELO DE ESTE PROTOCOLO MICROWIRE.
ACA LES VA EL CODIGO COMPLETO:
addr var byte
CS var PORTB.2 ' Chip select pin
DI var PORTB.0 ' Data in/dta pin
CLK var PORTB.1 ' Clock pin
DO var PORTB.4 ' Data out pin
B0 var word
BBYTE1 var word
BBYTE2 var word
I VAR BYTE
Include "modedefs.bas" ' Include serial modes
Low CS
Gosub eewriteen ' Enable SEEPROM writes
For addr = 0 To 127 ' Loop 16 times
B0 = addr + 100 ' B0 is data for SEEPROM
gosub ERAL
Gosub eewrite ' Write to SEEPROM
Pause 10 ' Delay 10ms after each write
Next addr
loop:
I=0
For addr = 0 To 127 ' Loop 16 times
Gosub eeread ' Read from SEEPROM
Lcdout $fe,1,#addr,": ",#BBYTE1 ' Display
Lcdout $fe,$c0,#addr+2,": ",#BBYTE2 ' Display
WRITE I,BBYTE1
WRITE I+1,BBYTE2
I=I+2
Pause 1000
Next addr
Goto loop
' Subroutine to read data from addr in serial EEPROM
eeread: CS = 1 ' Enable serial EEPROM
Shiftout DI, CLK, MSBFIRST, [%1100\4, addr\7] ' Send read command and address
Shiftin DO, CLK, MSBPOST, [B0\16] ' Read data
BBYTE2=(B0 & $FF00)/256
BBYTE1=B0 & $FF
CS = 0 ' Disable
Return
' Subroutine to enable writes to serial EEPROM
eewriteen: CS = 1 ' Enable serial EEPROM
Shiftout DI, CLK, MSBFIRST, [%10011\5, 0\6] ' Send write enable command and dummy clocks
CS = 0 ' Disable
Return
' Subroutine to write data at addr in serial EEPROM
eewrite: CS = 1 ' Enable serial EEPROM
Shiftout DI, CLK, MSBFIRST, [%1010\4, addr\7, B0.byte0,B0.byte1] ' Send write command, address and data
CS = 0 ' Disable
Return
ERAL:
high CS ' Erase EEProm - $FF in all locations
shiftout DI,CLK,MSBFIRST,[1110\4,addr\7] '
low CS
return
End
HAA LES EXPLICO UN POCO DE COMO RESOLVI LO DE QUE ME ESCRIBIA AL CONTRARI LO RESOLVI USANDO SEPARACION DE BYTE PERO DE ESTA MANERA NO SABIA QUE PICBASIC TENIA ESTA OPCION B0.BYTE0, ESTE ES EL BYTE MENOS SIGNIFICATIVO Y B0.BYTE1 EL BYTE MAS SIGNIFICATIVO DE LOS 16 BITS ESO TAMBIEN LO USE EN LA PARTE DE LECTURA Y NADIE ME PREGUNTO EL PORQUE PERO IGUAL ME SIRVI PARA RECORDAR LOS VIEJOS TIEMPO DE LA UNIVERSIDAD CUANDO USABA ALGEBRA BOLEANA.
EN FIN MIL GRACIA Y A OTRO PROYECTO.
BYE . FELIZ AÑOS COLEGAS