a=Multiarray(1,3)
print a
 

' **********************************************************************
' **        Program name: Test_Multi_Array_1                          **
' **        Compiler : BASCOM AVR, ( V2.0.7.8.001)                    **
' **        ATMEGA32                                                  **
' **                                                                  **
' **                                                                  **
' **        Referenz Prozessor = 16.0999 MHz                          **
' **        Date: 08.03.2015                                          **
' **                                                                  **
' **                                                                  **
' **        Written by:  Sepp Bartl                                   **
' **********************************************************************
   '$sim
$regfile = "m32def.dat"                                     'use the ATMEGA32 file
$crystal = 16000000
$hwstack = 32                                               '64   'default use 32 for the hardware stack
$swstack = 32                                               '16'default use 10 for the SW stack
$framesize = 32                                             '32'default use 40 for the frame space
Config Base = 0
$baud = 57600
'-------------------------------------------------------------------------------
'Variablen Global

Dim Array(256) As Eram Byte
Dim X As Byte
Dim Y As Byte
Dim Value As Byte
Dim Adress As Byte
Wait 1
'-------------------------------------------------------------------------------
Print " Ausgabe Kennfeld "

For Adress = 0 To 255
   Value = Array(adress)
   Y = Adress / 16
   X = Adress Mod 16
   Print "X= " ; X ; "   Y= " ; Y ; "   Wert= " ; Value
Next Adress

                                                       '
'-------------------------------------------------------------------------------
   Do

   Loop
   End
'-------------------------------------------------------------------------------

'--The following parameters are written to the eeprom--------------------------
Dim Zeropoint(10) As Word                                   'Raw zero            20bytes
Dim Scale_factor(10) As Single                              '1pascal=RAW units   40bytes
Dim Smoothing_factor(10) As Byte                            '1pascal=RAW units   10bytes
Dim Eepromparameter(10) As Word                             '20bytes
Dim Spare As Dword                                          'Reserve for EEPROM params
Spare = 0
'--END OF EEPROM LIST-------------------------------------------------------
Dim Eeprom_parameters(92) As Byte At Zeropoint(1) Overlay   'OVERLAY for EEPROM
Dim Eeprom_checksum_calc As Word                            'EEPROM OK FLAG
Dim Eeprom_checksum As Word                                 '2 Byte EEPROM chacksum


'-----------------------------------------------------------------------------
Save2eeprom:                                                '-- save to eeprom
  Dim Eeprom_address As Byte
  Dim Ep As Byte:
  Eeprom_address = 10                                       'EEPROM start address
  Eeprom_checksum_calc = &HDEAD                             'Starting point for checksum
  For Ep = 1 To 92                                          'Loop though parameters
    Eeprom_checksum_calc = Eeprom_checksum_calc + Eeprom_parameters(ep)
    Writeeeprom Eeprom_parameters(ep) , Eeprom_address      'save to eeprom
    Incr Eeprom_address                                     'next address
  Next Ep
  Writeeeprom Eeprom_checksum_calc , 5                      'save checksum
Return

Loadfromeeprom:                                             '-- load from eeprom
  Eeprom_address = 10                                       'EEPROM start address
  Eeprom_checksum_calc = &HDEAD                             'Starting point for checksum
  For Ep = 1 To 92                                          'Loop though parameters
    Readeeprom Eeprom_parameters(ep) , Eeprom_address       'read from eeprom
    Eeprom_checksum_calc = Eeprom_checksum_calc + Eeprom_parameters(ep)
    Incr Eeprom_address
  Next Ep
  Readeeprom Eeprom_checksum , 5                            'Read eeprom checksum
  Print #2 , "EEPROM Checksum " ; Eeprom_checksum_calc ; " " ; Eeprom_checksum
Return

 

$Regfile = "m328def.dat"
$Crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32
$sim

Config Base = 0

Const Size_X = 16
Const Size_Y = 16
Const MA_Size = Size_X * Size_Y

Declare Sub MA_Write(ByVal X As Byte , ByVal Y As Byte , ByVal Wr_Val As Byte)
Declare function MA_Read(ByVal X As Byte , ByVal Y As Byte) As Byte

Dim MA_Container(MA_Size) As ERam Byte
Dim X As Byte
Dim Y As Byte
Dim Value As Byte

MA_Write 1 , 1 , 69

Print " OUTPUT MULTI ARRAY "
For Y = 0 To 15
  For X = 0 To 15
  Value = MA_Read(x , Y)
    Print "X= " ; X ; " Y= " ; Y ; " Value= " ; Value
  Next X
Next Y

Do : Loop

Sub MA_Write(ByVal X As Byte , ByVal Y As Byte , ByVal Wr_Val As Byte)
Local EEPos As Word
  EEPos = Y * Size_X
  EEPos = EEPos + X
    MA_Container(EEPos) = Wr_Val
End Sub

function MA_Read(ByVal X As Byte , ByVal Y As Byte) As Byte
Local EEPos As Word
  EEPos = Y * Size_X
  EEPos = EEPos + X
    MA_Read = MA_Container(EEPos)
End Function

' **********************************************************************
' **        Program name: Klappensteuerung                            **
' **        Compiler : BASCOM AVR, ( V2.0.7.8.001)                    **
' **        ATMEGA32                                                  **
' **                                                                  **
' **                                                                  **
' **        Referenz Prozessor = 16.0000 MHz                          **
' **        Date: 07.03.2015                                          **
' **                                                                  **
' **                                                                  **
' **        Written by:  Sepp Bartl                                   **
' **********************************************************************
'$sim
$regfile = "m32def.dat"                                     'use the ATMEGA32 file
$crystal = 16000000
$hwstack = 64                                               '64   'default use 32 for the hardware stack
$swstack = 64                                               '16'default use 10 for the SW stack
$framesize = 64                                             '32'default use 40 for the frame space
Config Base = 0
$baud = 115200                                              '57600
Config Watchdog = 1024                                      'reset after 1024 mSec

'-------------------------------------------------------------------------------
   'GND = DDS RST
'-------------------------------------------------------------------------------
'Define Pins
Ddrb.1 = 0                                                  'PB1/T1 auf Eingang setzten(Zähler Eingang)
'-------------------------------------------------------------------------------
'Datenrichtung Port...

'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
'Variablen Global

Dim Kennfeld(256) As Eram Byte                              'Wertebereich im EE-Prom 16x16 Bytes
Dim X As Byte                                               'Zeiger X Position EE-Prom
Dim Y As Byte                                               'Zeiger Y Position EE-Prom
Dim Wert As Byte                                            'Wert im EE-Prom
Dim Adress As Byte                                          'Adresse EE-Prom
Dim Zeit As Word                                            'Für Timerinterrupt
Dim Random As Byte                                          'Zufallszahl für Test
Dim Send As Bit                                             'Für Testroutine senden
Dim I As Byte                                               'Serielle Zeichenerkennung ? oder #
Dim Eprom_data As String * 15                               'Serieller Eingangsdatenstring
Dim Ar(4) As String * 3                                     '3x Array + Nullbytearray
Dim Bcount As Byte                                          'Für Splitfunktion nötig
Config Serialin = Buffered , Size = 15                      'Serieller Eingangsbuffer

Dim Cnt As Word                                             'Gezählte Impulse
Dim X_mess As Word                                          'X Variable für Umrechnung aus Frequenzmessung
Dim Y_mess As Word                                          'Y Variable für Umrechnung aus AD-Wandler
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

'Constanten
Const Timer_reload = 99                                     'Für 10ms bei 16.000 MHz Prescale 1024

'-------------------------------------------------------------------------------
'Timer1 Config Counter
Config Timer1 = Counter , Edge = Rising , Noise Cancel = 1
'-------------------------------------------------------------------------------
'Config Timer/Counter
On Timer0 Timer_interrupt
Config Timer0 = Timer , Prescale = 1024                     '16.0000/1024/= 15.625(255-156=99) 15625/156=100.1 = 10ms
Enable Timer0                                               'Timer0 ein
Enable Interrupts                                           'Enable Interrupts
Timer0 = Timer_reload
Start Timer0                                                'Start Timer0
'-------------------------------------------------------------------------------
'Config ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Admux = &H40                                                'Messkanal 0
Adcsra.adsc = 1                                             'Startet AD-Messung
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------
Start Watchdog                                              'start the watchdog timer
'-------------------------------------------------------------------------------
Do
    Reset Watchdog

'------------------AD-Wandlung--------------------------------------------------

   If Adcsra.adsc = 0 Then                                  'Wenn AD-Wandlung fertig
      Y_mess = Adc                                          'Messwertübergabe
      Adcsra.adsc = 1                                       'Startet AD-Messung
   End If

'------------------SendeRoutine-------------------------------------------------

   If Send = 1 Then
      X_mess = Cnt * 15                                     '100 Pulse = 10000 U/min skalliert auf 15
      X_mess = X_mess / 100
      If X_mess > 15 Then X_mess = 15                       'Wertbegrenzung
      X = X_mess
      Y_mess = Y_mess / 68                                  'Wert 1023 / 68 ergibt ~15
      If Y_mess > 15 Then Y_mess = 15                       'Wertbegrenzung
      Y = Y_mess
      Adress = Y * 16                                       'EE-Adresse berechnen
      Adress = Adress + X
      Wert = Kennfeld(adress)                               'Wert aus EE-Prom lesen
      Print "$";
      Print X ; "," ; Y ; "," ; Wert;
      Print "!"
      Send = 0
   End If

'------------------EE-Prom-beschreiben------------------------------------------

   I = Inkey()
   If I = 35 Then                                           '# Wert im EE-Prom speichern
      Input Eprom_data Noecho
      Bcount = Split(eprom_data , Ar(1) , ",")
      X = Val(ar(1))
      Y = Val(ar(2))
      Wert = Val(ar(3))
      Adress = Y * 16
      Adress = Adress + X
      Writeeeprom Wert , Adress
      Print "$";
      Print X ; "," ; Y ; "," ; Wert;
      Print "!"
      I = 0
   End If

'-----------------Tabelle-senden------------------------------------------------

   If I = 63 Then                                           '? Tabelle an PC senden
      Disable Interrupts                                    'Tabelle senden benötigt viel Zeit.
      Adress = 0
      Y = 0
      X = 0
      Print "$";
      For Adress = 0 To 255
         Wert = Kennfeld(adress)
         Y = Adress / 16
         X = Adress Mod 16
         Print X ; "," ; Y ; "," ; Wert                     'CR+LF muss gesendet werden!
      Next Adress
      Print "!"
      I = 0
      Enable Interrupts
   End If

'-------------------------------------------------------------------------------

Loop
End
'-------------------------------------------------------------------------------
'-------------------------------------------------------------------------------

'-------------------------------------------------------------------------------
   Timer_interrupt:
      Timer0 = Timer_reload                                 'Interrupt Timer Vorgabewert laden
      Incr Zeit

      If Zeit = 10 Then                                     '100ms vergangen
         Zeit = 0
         Send = 1
      End If

      Cnt = Timer1                                          'Gezählte Impulse abholen
      Timer1 = 0                                            'Counter Reset
   Return
'-------------------------------------------------------------------------------