Eprom Yardım

[eyup-n]

Merhaba arkadaşlar 24c32 ve 24c64 kopyalamak için bir devre yapmak istiyorum sitede baktım eski bi konu vardı hortlatmak istemediğim için yeni konu açtım belki benim gibi ihtiyacı olan arkadaşlarda faydalanır kendi çabalarımla denedim ama başaramadım picbasic bilgim yetersiz sizden yardım bekliyorum
https://www.picproje.org/index.php/topic,7784.15.html bu linkte daha önce arkadaşlar paylaşmış ama 24c08'e kadar kopyalıyor bana 24c32ve64 gerekiyor servise gittiğimde bi eprom yazmak için makinaları getir götür sorun oluyor o yüzden böyle bir devreye ihtiyacım var

bu linktede dosyalar var
http://home.no/fsan/projects/Diverse/EEPROM%20KOPYALAYICI

@ device pic16F84, xt_osc, wdt_off, pwrt_on, protect_off

cont  con %10100000 '$A0

addr    var byte
iveri   var byte
overi   var byte

Adat    var porta.0  ' okunacak eeprom
Aclk    var porta.1

Bdat    var porta.2  ' Yazdirilacak eeprom
Bclk    var porta.3

StartSW var porta.4 ' Kopyalama baslat button
LED1    var portb.6 ' Kopyalama islem tamam LED
LED2    var portb.7 ' Kopyalama islem hatali LED
Cnt     var byte     

TrisA = 10101 'porta.0,2,4 pinler giris digerleri cikis 
PortA = 0

TrisB = 0 ' portb pinler, hepsi cikis
PortB = 0

high led1
high led2

Main:
    if StartSW = 1 then Main ' Start button basik ise devam et..
    for cnt = 0 to 32
        addr = cnt
        i2cread Adat,Aclk,cont,addr,[iveri],Error
        overi = iveri
        i2cwrite Bdat,Bclk,cont,addr,[overi],Error
        toggle led1 'LED yanip, sönüyor..   
        pause 100
    next
    low led1 ' islem tamam!
goto main

Error:
    high led1
    low led2  ' Kopyalama islem hatali !!
Goto Main
 
end