I have crazy and NOT TESTED idea :D
[code:1:17b0675d49]$sim
$regfile = "m32def.dat"
$crystal = 4000000
Dim A As Integer
Dim B As Eram Integer
Dim C(2) As Eram Byte At B Overlay
Dim Idx As Byte , Help_byte As Byte
Const Must_be_saved = 1 'for this test
Do
If A = Must_be_saved Then Idx = 2
'sequent write 2 x 1 Byte (one time in loop takes 3,5ms)
If Idx > 0 Then
Select Case Idx
Case 1
Help_byte = High(a)
C(idx) = Help_byte
Decr Idx
Case 2
Help_byte = Low(a)
C(idx) = Help_byte
Decr Idx
End Select
End If
Loop[/code:1:17b0675d49]
↧