ADR/de - Revision history

Stefanhamburg: /* Siehe Auch */

2013-03-12T21:05:54Z

Siehe Auch

Galahat: /* Example */

2013-03-12T16:39:26Z

Example

Galahat: /* See Also */

2013-03-12T16:39:05Z

Galahat: /* Anmerkungen */

2013-03-12T16:38:04Z

Anmerkungen

Galahat: /* Anmerkungen */

2013-03-12T16:37:13Z

Anmerkungen

Galahat: /* Remarks */

2013-03-12T16:35:40Z

Remarks

Galahat: /* (COPIED FROM ENGLISH PAGE) = */

2013-03-12T16:06:04Z

(**COPIED FROM ENGLISH PAGE**) =

Admin: 1 revision

2013-02-15T19:12:45Z

1 revision

Admin: Created page with "= Action = Create label address. =
2013-02-06T22:32:10Z

Created page with "= Action = Create label address. = Action =

Create label address.

 

 

= Syntax =

ADR  label

ADR2  label

 

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="539" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
|- style="vertical-align: top;"
| valign="top" width="10%" style="width: 50px; border: 1px solid rgb(0, 0, 0);" |
label

| valign="top" width="100%" style="width: 480px; border: 1px solid rgb(0, 0, 0);" |
The name of a label.

|}
</div>
 

The AVR uses WORD addresses. ADR will create the word address. To find a byte in memory, you need to multiply by 2. For this purpose ADR2 is available. It will create the address of the label multiplied by 2.

 

Using ADR2 you can use tables. The sample program demonstrates this together with some more advanced ASM code.

 

The sample includes ADR2.LIB. This lib contains a special version of  _MoveConst2String .

The normal routine in MCS.LIB will stop printing once a null byte (zero) is encountered that indicates the end of a string.

But for the sample program, we may not change the address, so the address is restored when the null byte is found.

 

 

= See Also =

NONE

 

 

= Example =

 <source lang="bascomavr">
'===============================================================================
' This is an example of how to create an interactive menu system supporting
' sub-menus and support routines using the !ADR and !ADR2 statements
'===============================================================================

$regfile = "M644def.dat"
$crystal = 8000000

$hwstack = 64 ' specify the hardware stack depth
$swstack = 64 ' specify the software stack depth
$framesize = 64 ' specify the framesize (local stack depth)

$lib "adr2.lib"

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

Dim Menupointer As Word
Dim Actionpointer As Word

Dim Entries As Byte
Dim Dummy As Byte
Dim Message As String * 32

Dim Local1 As Byte
Dim Local_loop1 As Byte

Const Menu_id = &HAA ' sub-menu ID byte
Const Routine_id = &H55 ' service routine ID byte

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

Restore Main_menu ' point to the start of the 'main' menu
sts {MenuPointer}, R8 ' }
sts {MenuPointer + 1}, R9 ' } store the pointer to the start of the menu

Display_new_menu:

lds R8, {MenuPointer} ' }
lds R9, {MenuPointer + 1} ' } restore the pointer to the start of the menu

Read Entries ' get the number of entries in the menu including the title
Print
For Local_loop1 = 1 To Entries
Read Message ' read the message
Print Message ' send it to the console
Next

Read Dataptr ' get the pointer to the menu's action table
sts {ActionPointer}, R8 ' }
sts {ActionPointer + 1}, R9 ' } store the pointer to the start of the menu's action list

Input "Entry ? " , Local1 ' ask the user which menu entry
If Local1 = 0 Then ' is it valid ?
Goto Display_new_menu ' if not, re-display the menu
End If
If Local1 => Entries Then ' is it valid ?
Goto Display_new_menu ' if not, re-display the menu
End If

lds R8,{ActionPointer} ' }
lds R9,{ActionPointer + 1} ' } restore the pointer to the menu's action list

If Local1 <> 1 Then
For Local_loop1 = 2 To Local1 '
ldI R30,4 ' }
clr R1 ' }
add R8,R30 ' }
adc R9,R1 ' }
Next ' } calculate the location of the selected entry's function ID
End If

Read Local1 ' get the menu entry's function ID
Read Dummy ' to handle the uP expecting WORDS in DATA statements

If Local1 = Menu_id Then ' did the user select an entry that points to another menu ?
Read Dataptr
sts {MenuPointer}, R8 ' }
sts {MenuPointer + 1}, R9 ' } store the start of the menu
Goto Display_new_menu
End If

Read Dataptr ' get the address of this entry's support routine
movw R30,R8
icall ' pass control to the entry's support routine

Goto Display_new_menu ' re-display the last menu displayed

'-------------------------------------------------------------------------------
' Test support routines
'-------------------------------------------------------------------------------

Hello_message:

Print
Print "You asked to print 'Hello'" ' confirmation that Menu Entry 3 was selected
Return

2nd_menu_1st_entry_routine:

Print
Print "You selected Entry 1 of the 2nd menu" ' confirmation that Menu Entry 1 was selected
Return

2nd_menu_2nd_entry_routine:

Print
Print "You selected Entry 2 of the 2nd menu" ' confirmation that Menu Entry 2 was selected
Return

3rd_menu_1st_entry_routine:

Print
Print "You selected Entry 1 of the 3rd menu" ' confirmation that Menu Entry 1 was selected
Return

3rd_menu_2nd_entry_routine:

Print
Print "You selected Entry 2 of the 3rd menu" ' confirmation the Menu Entry 2 was selected
Return

End

'===============================================================================
' Data Statements
'===============================================================================

$data

'-------------------------------------------------------------------------------
' Main Menu
'-------------------------------------------------------------------------------

Main_menu:

Data 4 ' number of entries in the menu including title

Data "MAIN MENU" ' } menu title
Data "1. Go to Menu 2" ' } 1st menu entry
Data "2. Go to Menu 3" ' } 2nd menu entry
Data "3. Print 'Hello' message" ' } 3rd menu entry

Adr2 Mainmenu_supporttable ' point to this menu support table

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

Mainmenu_supporttable:

Data Menu_id ' identify this menu entry as a menu
Adr2 Second_menu ' address of next menu

Data Menu_id ' identify this menu entry as a menu
Adr2 Third_menu ' address of next menu

Data Routine_id ' identify this menu entry as support routine
Adr Hello_message ' address of the support routine

'-------------------------------------------------------------------------------
' Second Menu
'-------------------------------------------------------------------------------

Second_menu:

Data 4 ' number of entries in the menu

Data "SECOND MENU" ' } menu title
Data "1. 2nd Menu Entry #1" ' } 1st menu entry
Data "2. 2nd Menu Entry #2" ' } 2nd menu entry
Data "3. Go to previous menu" ' } 3rd menu entry

Adr2 Secondmenu_supporttable ' point to this menu support table

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

Secondmenu_supporttable:

Data Routine_id ' identify this menu entry as a support routine
Adr 2nd_menu_1st_entry_routine ' support routine for 1st menu entry

Data Routine_id ' identify this menu entry as a support routine
Adr 2nd_menu_2nd_entry_routine ' support routine for 2nd menu entry

Data Menu_id ' identify this menu entry as a menu
Adr2 Main_menu ' support routine for 3rd menu entry

'-------------------------------------------------------------------------------
' Third Menu
'-------------------------------------------------------------------------------

Third_menu:

Data 4 ' number of entries in the menu

Data "THIRD MENU" ' } menu title
Data "1. 3rd Menu Entry #1" ' } 1st menu entry
Data "2. 3rd Menu Entry #2" ' } 2nd menu entry
Data "3. Go to previous menu" ' } 3rd menu entry

Adr2 Thirdmenu_supporttable ' point to this menu support table

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

Thirdmenu_supporttable:

Data Routine_id ' identify this menu entry as a support routine
Adr 3rd_menu_1st_entry_routine ' support routine for 1st menu entry

Data Routine_id ' identify this menu entry as a support routine
Adr 3rd_menu_2nd_entry_routine ' support routine for 2nd menu entry

Data Menu_id ' identify this menu entry as a menu
Adr2 Main_menu
</source> {{Languages}}

[[Category:BASCOM_Language_Reference/de]]

@@ Line 49: / Line 49: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">Siehe Auch</span> =
+= <span class="f_Header">Siehe auch</span> =
 NONE

@@ Line 57: / Line 57: @@
 &nbsp;
-= <span class="f_Header">Example</span> =
+= <span class="f_Header">Beispiel</span> =
 <br/><source lang="bascomavr">

@@ Line 49: / Line 49: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">See Also</span> =
+= <span class="f_Header">Siehe Auch</span> =
 NONE

@@ Line 37: / Line 37: @@
 Bei Verwendung von ADR2 können Sie mit Tabellen arbeiten.
-Das Beispielprogramm demontriert die Verwendung mit einigem erweiterndem Assembler-Code.
+Das Beispielprogramm demontriert die Verwendung mit einigen erweiterndem Assembler-Code.
 &nbsp;

@@ Line 32: / Line 32: @@
 <span style="font-family: Arial;">&nbsp;</span>
-Ein AVR verwendet Wortadressen. ADR erzeugt Wortadressen. Um ein Byte im Speicher zu finden, muss die Adresse mit 2 multipliziert werden. Zu diesem Zweck gibt es außerdem den Befehl ADR2, der eine mit 2 multiplizierte Label-Adresse erzeugt.
+Ein AVR verwendet Wortadressen. ADR erzeugt Wortadressen. Um ein Byte im Speicher zu finden, muss die Adresse mit 2 multipliziert werden. Zu diesem Zweck gibt es außerdem den Befehl ADR2 der eine mit 2 multiplizierte Label-Adresse erzeugt.
 &nbsp;
-Bei Verwendung von ADR2 können Sie mit Tabellen arbeitet.
+Bei Verwendung von ADR2 können Sie mit Tabellen arbeiten.
-Das Beispielprogramm demontriert die Verwendung mit erweiterndem Assembler-Code.
+Das Beispielprogramm demontriert die Verwendung mit einigem erweiterndem Assembler-Code.
 &nbsp;

@@ Line 19: / Line 19: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">Remarks</span> =
+= <span class="f_Header">Anmerkungen</span> =
 <div style="padding: 0px; margin: 0px 0px 0px 4px;">
 {| width="539" cellspacing="0" cellpadding="1" border="1" style="border: 2px solid rgb(0, 0, 0); border-spacing: 0px; border-collapse: collapse;"
@@ Line 27: / Line 27: @@
 | valign="top" width="100%" style="width: 480px; border: 1px solid rgb(0, 0, 0);" |
-The name of a label.
+Der Name des Labels
-−
 |}
 </div>
 <span style="font-family: Arial;">&nbsp;</span>
-The AVR uses WORD addresses. ADR will create the word address. To find a byte in memory, you need to multiply by 2. For this purpose ADR2 is available. It will create the address of the label multiplied by 2.
+Ein AVR verwendet Wortadressen. ADR erzeugt Wortadressen. Um ein Byte im Speicher zu finden, muss die Adresse mit 2 multipliziert werden. Zu diesem Zweck gibt es außerdem den Befehl ADR2, der eine mit 2 multiplizierte Label-Adresse erzeugt.
 &nbsp;
-Using ADR2 you can use tables. The sample program demonstrates this together with some more advanced ASM code.
+Bei Verwendung von ADR2 können Sie mit Tabellen arbeitet.
 &nbsp;
-The sample includes ADR2.LIB. This lib contains a special version of &nbsp;_MoveConst2String .
+Das Beispiel bindet die ADR2.LIB ein. Diese Bibliothek beinhaltet eine spezielle Version von _MoveConst2String .
+Die normale Routine in der MCS.LIB stoppt die Print-Ausgabe wenn sie auf ein NULL-Byte (0) trifft, das ein String-Ende markiert.
-The normal routine in MCS.LIB will stop printing once a null byte (zero) is encountered that indicates the end of a string.
+Doch für das Beispielprogramm können wir die Adresse nicht ändern, sodaß die Adresse wieder hergestellt wird wenn ein NULL-Byte gefunden wird.
-−
-But for the sample program, we may not change the address, so the address is restored when the null byte is found.
 &nbsp;

@@ Line 1: / Line 1: @@
-== (**COPIED FROM ENGLISH PAGE**) === <span class="f_Header">Action</span> =
+= <span class="f_Header">Funktion</span> =
-Create label address.
+Erzeugt eine Label-Adresse.
 <span style="font-family: Arial;">&nbsp;</span>

ADR/de - Revision history

Stefanhamburg: /* Siehe Auch */

Galahat: /* Example */

Galahat: /* See Also */

Galahat: /* Anmerkungen */

Galahat: /* Anmerkungen */

Galahat: /* Remarks */

Galahat: /* (**COPIED FROM ENGLISH PAGE**) = */

Admin: 1 revision

Galahat: /* (COPIED FROM ENGLISH PAGE) = */