This my microwire eeprom copier project with pic

I working now microwire eeprom reading after I' m working microwire eeprom writing complate my code :


CS var PORTB.0 ' Chip select pin
CLK var PORTB.1 ' Clock pin
DI var PORTB.2 ' Data in pin
DO var PORTB.3 ' Data out pin

addr93c var byte ' 93C Address
data93c var byte ' 93C Data
size93c var byte ' 93c MEMORY SIZE

Low CS ' Chip select inactive


size93c=15 ' MEMORY SIZE


p93c1:

For addr93c=0 To size93c ' Loop 16 times
Gosub eeread ' Read from SEEPROM
Lcdout $fe,1,"ADRES: ",#addr93c ' Display
Lcdout $fe, $c0,"DATA: ",Hex2 data93c
PAUSE 1000
Next addr93c
GOTO son
' Subroutine to read data from addr in serial EEPROM
eeread:
CS = 1 ' Enable serial EEPROM
Shiftout DI, CLK, MSBFIRST, [%1100\4, addr93c] ' Send read command and address
Shiftin DO, CLK, MSBPOST, [data93c] ' Read data
CS = 0
RETURN

son:

END




this code working with 93c 56 but not works others

I try your codes but I' cant read 93C46...