$regfile = "m2560def.dat"
$crystal = 20000000
$hwstack = 100
$swstack = 100
$framesize = 100
Dim Buf As String * 5 , Aux_word As Word , Aux1 As Byte , Str1(5) As String * 1

Dim Tabla_rx_tx_addr(20) As Word
Dim Origen As Word , Destino As Word , Bytes As Word , Cantidad As Word

   Aux1 = 1
   For Aux_word = 1 To 20
      Tabla_rx_tx_addr(aux_word) = Aux1
      Print Tabla_rx_tx_addr(aux_word)
      Incr Aux1
   Next Aux_word

   For Aux_word = 1 To 20
      If Tabla_rx_tx_addr(aux_word) = 8 Then
        Goto Borrar1
      End If
   Next Aux_word
Borrar1:
   Print Varptr(tabla_rx_tx_addr(20))
   Destino = Varptr(tabla_rx_tx_addr(aux_word))
   Origen = Varptr(tabla_rx_tx_addr(aux_word + 1))
   Cantidad = 20 - Aux_word
   Print Cantidad
   Cantidad = Cantidad * 2
   Print Cantidad
   Print Destino
   Print Origen

   Bytes = Memcopy(origen , Destino , Cantidad)
   Print Bytes
   For Aux_word = 1 To 20
      Print Tabla_rx_tx_addr(aux_word)
   Next Aux_word

 

$regfile = "m2560def.dat"
$crystal = 20000000
$hwstack = 100
$swstack = 100
$framesize = 100
$sim

Config Submode = New

Dim N As Byte , Helpb As Byte
Dim Spoint As Byte , Bytes As Byte

Dim Table(20) As Word

Sub Remove()
 Spoint = N + 1
 If Spoint <= 20 Then
    Bytes = 20 - N
    Shift Bytes , Left , 1                                  'multiply bytes by 2 for WORDs
    Print "Start at " ; Spoint ; " " ; Bytes ; " bytes"
    Helpb = Memcopy(table(spoint) , Table(n) , Bytes)
 Else
  'handle end of the Table(20)
 End If
End Sub

'fill table
For N = 1 To 20
 Table(n) = N
Next

'check for "8"
For N = 1 To 20
 If Table(n) = 8 Then Call Remove()
Next

Print "Result ";
For N = 1 To 20
 Print Table(n) ; "-";
Next
Print

End

 

Bytes = Memcopy(origen , Destino , Cantidad)