here<\/a><\/p>\n <\/p>\n
'--------------------------------------------------------------------\r\n' I2C Eeprom programmer\r\n'Upload your Eeprom files through serial connection in the I2c Eeprom\r\n' No extended address supported, so max 512K Eeprom\r\n' By Evert Dekker 2008 i2cprogrammer@Evertdekker dotje com\r\n' Created with Bascom-Avr: 1.11.9.0.100\r\n'--------------------------------------------------------------------\r\n\r\n$regfile = "m128def.DAT"\r\n$crystal = 16000000\r\n$baud = 19200\r\n$hwstack = 70\r\n$swstack = 70\r\n$framesize = 60\r\n\r\n$lib "I2C_TWI.LBX" 'Setting up i2c hardware bus\r\nConfig Twi = 400000 'Hardware i2c bus speed\r\nConfig Scl = Portd.0 'TWI (i2c) ports on the Mega128\r\nConfig Sda = Portd.1\r\nConst Addressw = &B10100000 'slave write address eeprom\r\nConst Addressr = &B10100001 'slave read address eeprom\r\n\r\n\r\nDim Startbyte As Byte , Instring As String * 45 , Complete As Bit\r\nDim Temp As Byte , Temps As String * 3\r\nDim Bytecount As Byte , Addresshigh As Byte , Addresslow As Byte , Recordtype As Byte , Databyte(16) As Byte , Checksm As Byte\r\nDim Lus As Byte , Pos As Byte , Checksum_calc As Byte , Checksum_error As Bit\r\n\r\nEnable Urxc\r\nEnable Interrupts\r\nOn Urxc Bytereceived_isr\r\n\r\n\r\n'=== Main ===\r\nDo\r\nIf Complete = 1 Then 'Wait until the buffer is filled with one line\r\n Gosub Process_buffer 'Process the buffer\r\n Gosub Calculate_checksum 'Calculate the cheksum\r\n If Recordtype = &H01 Then 'EOF finished, send a ACK and return\r\n Print "Y";\r\n Else\r\n If Checksum_error = 0 Then 'If there's no error continue\r\n Select Case Recordtype 'do something with the recordtype\r\n Case &H00 'Data byte\r\n Gosub Prog_eeprom 'Recordtype &H00 = databyte, so lets programm the Eeprom\r\n Case &H02 'Extended Linear Address Records, not (yet) supported\r\n nop\r\n End Select\r\n Print "Y"; 'Checksum ok, send a ACK\r\n Else\r\n Print "Z"; 'Checksum error send a Nack\r\n End If\r\n End If\r\n Complete = 0 : Instring = "" 'Reset the variable\r\nEnd If\r\nLoop\r\nEnd\r\n\r\n\r\n'=== Subroutines ===\r\nProg_eeprom:\r\n I2cstart 'start condition\r\n I2cwbyte Addressw 'slave address\r\n I2cwbyte Addresshigh 'Highaddress of EEPROM\r\n I2cwbyte Addresslow 'Lowaddress of EEPROM\r\n For Lus = 1 To Bytecount\r\n I2cwbyte Databyte(lus) 'value to write\r\n Next Lus\r\n I2cstop 'stop condition\r\n Waitms 10 'wait for 10 milliseconds\r\nReturn\r\n\r\n\r\nProcess_buffer:\r\nTemps = Mid(instring , 1 , 2) : Bytecount = Hexval(temps) 'Read the numbers of bytes\r\nTemps = Mid(instring , 3 , 2) : Addresshigh = Hexval(temps) 'Read the high adress\r\nTemps = Mid(instring , 5 , 2) : Addresslow = Hexval(temps) 'Read the low adress\r\nTemps = Mid(instring , 7 , 2) : Recordtype = Hexval(temps) 'Read the recordtype\r\nFor Lus = 1 To Bytecount 'Process the number of data bytes\r\n Pos = Lus * 2\r\n Pos = Pos + 7\r\n Temps = Mid(instring , Pos , 2) : Databyte(lus) = Hexval(temps) 'Read the databytes\r\nNext Lus\r\nPos = Pos + 2 'read the last byte\r\nTemps = Mid(instring , Pos , 2) : Checksm = Hexval(temps) 'Read checksum\r\nReturn\r\n\r\n\r\nCalculate_checksum:\r\nTemp = 0 'Add up all the databytes\r\nTemp = Temp + Bytecount\r\nTemp = Temp + Addresshigh\r\nTemp = Temp + Addresslow\r\nTemp = Temp + Recordtype\r\n For Lus = 1 To Bytecount\r\n Temp = Temp + Databyte(lus)\r\n Next Lus\r\nChecksum_calc = 256 - Temp 'taking its two's complement\r\n If Checksum_calc <> Checksm Then 'Compare it with the readed value\r\n Checksum_error = 1\r\n Else\r\n Checksum_error = 0\r\n End If\r\nReturn\r\n\r\nBytereceived_isr:\r\nTemp = Udr 'get the binary value that came across\r\nIf Temp = &H0D Then 'Received CR = end of line, line complete\r\n If Len(instring) < 8 Then 'To short, startover again\r\n Complete = 0\r\n Instring = ""\r\n Else\r\n Complete = 1 'String is complete set the flag\r\n End If\r\nEnd If\r\n\r\nIf Startbyte = &H3A Then 'we have previously received the start byte and this is now data\r\n If Temp > &H0F Then 'Add incoming data to buffer\r\n Instring = Instring + Chr(temp)\r\n If Len(instring) > 45 Then Instring = "" 'String is to long, reset and startover again\r\n End If\r\nEnd If\r\n\r\nIf Temp = &H3A Then 'if we received an : then its the beginning of an new line.\r\n Startbyte = Temp\r\n Complete = 0\r\n Instring = ""\r\nEnd If\r\nReturn<\/pre>\n","protected":false},"excerpt":{"rendered":"What is it? It\u2019s an Eeprom programmer controlled by Bascom Avr and is capable of programming in circuit Eeprom\u2019s up to 512Kb. Standard Intel Hex8 file is required. Extended Linear Address Records for Eeprom\u2019s bigger then 16bits addresses is not (yet) supported, but easy to implant. I wrote it primary for my other application note […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19],"tags":[26,37,38,39],"class_list":["post-321","post","type-post","status-publish","format-standard","hentry","category-bascom","tag-bascom","tag-eeprom","tag-i2c","tag-programmer"],"_links":{"self":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/321","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=321"}],"version-history":[{"count":5,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/321\/revisions"}],"predecessor-version":[{"id":337,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/321\/revisions\/337"}],"wp:attachment":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=321"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=321"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=321"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}