'size of array in r24 and r25
Sub Copydown(ar() As Byte , Byreg R24 As Word)
   $asm
      Loadadr Ar(1) , Z                                     ; load address into r30 r31
      add r30,r24                                           ; add size
      adc r31,r25
      sbiw r30,1                                            ; adjust
_copydown:
      ld r23, -z                                            ; load byte
      std z+1,r23                                           ; save
      sbiw r24,1                                            ; adjust size counter
      brne _copydown                                        ; till it is zero
   $end Asm
End Sub

Dim Ar(255) As Byte , J As Byte

Ar(1) = 1
Ar(2) = 2
Ar(3) = 3
Ar(4) = 4
Ar(5) = 5

Copydown Ar(1) , 255
For J = 1 To 10
  Print J ; "-" ; Ar(j)
Next

Sub W_one(byval M As Byte , Byval J As Byte)
Arx = J

   !push r23
   !push r24
   !push r25
   !push r26
   !push r27
   !push r30
   !push r22

Loadadr Wave1(1) , X
!lds r22,{arx}
!cpi r22,1
!breq gogo
Loadadr Wave2(1) , X
!lds r22,{arx}
!cpi r22,2
!breq gogo
Loadadr Wave3(1) , X
!lds r22,{arx}
!cpi r22,3
!breq gogo
Loadadr Wave4(1) , X
!lds r22,{arx}
!cpi r22,4
!brne gone
Gogo:



'Loadadr Wave1(1) , X                                        'first location
! ldi r24,188 ; size of array
! ldi r25,2
!add r26,r24                ; add size
!adc r27,r25
!movw r30,r26               ; copy to Z
!sbiw r30,1 ; adjust
!lp1000:
!ld r23,-z  ; load byte
!st -x,r23
!sbiw r24,1
!brne lp1000

 Gone:

   !pop r22
   !pop r30
   !pop r27
   !pop r26
   !pop r25
   !pop r24
   !pop r23

   Select Case Arx

     Case 1
       Wave1(1) = M

     Case 2
       Wave2(1) = M

     Case 3
       Wave3(1) = M

     Case 4
       Wave4(1) = M






   End Select

'Wave1(1) = M


End Sub

 

Config Com2 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 '19200 modif pour ecran intelligent
Open "COM2:" For Binary As #2

Config Com1 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0 '19200 modif pour ecran intelligent
Open "COM1:" For Binary As #1