'-----------------------------------------------------------------------------------------
'name : declare.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demonstrate using declare
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
' Note that the usage of SUBS works different in BASCOM-8051
'-----------------------------------------------------------------------------------------
 
$regfile = "m48def.dat" ' Mikrocontroller
$crystal = 4000000 ' Taktfrequenz
$baud = 19200 ' Baudrate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
 
 
' Erst müssen die SUB-Routinen deklariert werden
 
'SUB ohne Parameter
Declare Sub Test2
 
'SUB mit einer Variablen, die nicht durch das Unterprogramm geändert werden kann(A) und
'einer Variablen die geändert werden kann(B1).
'Wenn BYVAL angegeben wird dann wird der Wert an das Unterprogramm übergeben
'Wenn BYREF oder gar nichts angegeben wird dann wird die Adresse an das Unterprogramm übergeben
 
Declare Sub Test(byval A As Byte , B1 As Byte)
Declare Sub Testarray(byval A As Byte , B1 As Byte)
'Alle Variablen-Typen können übergeben werden.
'BIT Variablen können nicht übergeben werden.
'BIT Variables sind GLOBAL für das gesamte Programm
Declare Sub Testvar(b As Byte , I As Integer , W As Word , L As Long , S As String)
 
'Die Übergabe von Zeichenketten erfordert eine andere Syntax weil die Länge der Zeichenkette vom Compiler übergeben werden muss.
'Die leeren Klammern () zeigen an, dass ein Array übergeben wird.
Declare Sub Teststr(b As Byte , Dl() As String)
 
Dim Bb As Byte , I As Integer , W As Word , L As Long , S As String * 10 'dim used variables
Dim Ar(10) As Byte
Dim Sar(10) As String * 8 'Zeichenketten-Array
 
For Bb = 1 To 10
Sar(bb) = Str(bb) 'Array befüllen
Next
Bb = 1
'Jetzt Aufruf der Sub mit Angabe der ersten Adresse mit dem Index 1.
Call Teststr(bb , Sar(1))
 
 
Call Test2 'call sub
Test2 'oder Benutzung ohne CALL
'Beim Aufruf ohne CALL müssen die Klammern weggelassen werden
Bb = 1
Call Test(1 , Bb) 'Aufruf mit Parametern
Print Bb 'Ausgabe des geänderten Wertes
 
'Test mit verschiedenen Datentypen
Call Testvar(bb , I , W , L , S )
Print Bb ; I ; W ; L ; S
 
'Arrayübergabe
'Übergabe muss 'by reference' geschehen
Testarray 2 , Ar(1)
Print "ar(1) = " ; Ar(1)
Print "ar(3) = " ; Ar(3)
 
$notypecheck ' TYpe-Checking ausschalten
Testvar Bb , I , I , I , S
'you can turn off type checking when you want to pass a block of memory
$typecheck 'turn it back on
End
 
'Am Ende des Programms die Subroutinen
'Es müssen dieselben Variablen und Namen benutzt werden wie bei der Deklaration
 
Sub Test(byval A As Byte , B1 As Byte) 'start sub
 Print A ; " " ; B1 'Ausgabe der übergebenen Variablen
 B1 = 3 'Wert ändern
 'Man kann A ändern aber weil es eine Kopie ist
 'wirken sich die Änderungen nicht auf die Originalvariable aus.
End Sub
 
Sub Test2 'Sub ohne Parameter
 Print "Keine Parameter"
End Sub
 
 
 
Sub Testvar(b As Byte , I As Integer , W As Word , L As Long , S As String)
 Local X As Byte
 X = 5 'lokale Zuweisung
 B = X
 I = -1
 W = 40000
 L = 20000
 S = "test"
End Sub
 
Sub Testarray(byval A As Byte , B1 As Byte) 'start sub
 Print A ; " " ; B1 'Ausgabe der übergebenen Variablen
 B1 = 3 'Verändern des Elementes mit dem Index 1
 B1(1) = 3 'Angabe des Index - macht das Gleiche wie in der Zeile davor
 B1(3) = 3 'Verändern eines anderen Array-Elementes
 'Man kann A ändern aber weil es eine Kopie ist
 'wirken sich Änderungen nicht auf die Originalvariable aus.
End Sub
 
'Die leeren Klammern () zeigen an, dass ein String-Array übergeben wird
Sub Teststr(b As Byte , Dl() As String)
Dl(b) = Dl(b) + "add"
End Sub
 
 
 
Example BYLABEL
$regfile = "m88def.dat"
$hwstack = 40
$swstack = 80
$framesize = 80
 
Dim B As Byte , W As Word
 
Declare Sub Somesub(bylabel Mylabel As Word)
Somesub Alabel
End
 
 
Sub Somesub(bylabel Mylabel As Word)
 W = Mylabel ' this points to the BYTE address of the data
 lds _dptrl,{W } ' point to
 LDS _dptrh,{W+1}
 Read B : Print B
End Sub
 
Alabel:
Data 1 , 2 , 3