Przetłumaczcie mi to na jeżyk ludzki lub C bo BASCOMA nie umie prosze
' Data bits: 8 16 8 16 8 16 8 16
' AL : 7 6 9 8 8 7 9 8
'you could use the same pin for DIN and DOUT
'we use a 93C66 and send bytes not words so AL is 8
$crystal = 12000000
Config Microwire = Pin , Cs = P1.2 , Din = P3.5 , Dout = P3.1 , Clock = P3.4 , Al = 8
Config Lcdpin = Pin , Db4 = P1.4 , Db5 = P1.5 , Db6 = P1.6 , Db7 = P1.7 , E = P1.3 , Rs = P1.2
Config Lcd = 16 * 2 ' konfiguracija LCD display a
Cursor Off
'init pins
Mwinit
'dimension variable used
Dim Pom As Byte
Dim X As Word
Pom = P3 And &B00001101 'ako su sve tri tipke
If Pom = 0 Then 'pritisnute,
Mwwopcode &B10010000000 , 11 'resetiraj brojač
End If
Mwread X , &B110 , 0 , 2
Cls
Do
'enable write to eeprom
'send startbit, opcode (00) and 11 + address
'Mwwopcode opcode, numberOfBits
Mwwopcode &B10011000000 , 11
'the mwwopcode can send a command(opcode) to a device
'write value of X to address 0
'opcode is 01
'we write 1 byte
'Mwwrite var,opcode,address,numberOfBytes
Mwwrite X , &B101 , 0 , 2
Waitms 10
'read back
' mwread var,opcode,address,numberofbytes
Mwread X , &B110 , 0 , 2
Locate 1 , 1 : Lcd X ; " "
X = X + 10
If X = 0 Then
Cls
End If
'disable write
'send startbit, opcode (00) and 00 + address
Mwwopcode &B10000000000 , 11
Loop
End