ADR/de

(Difference between revisions)
Jump to: navigation, search
(→(**COPIED FROM ENGLISH PAGE**) =)
(→Remarks)
Line 19: Line 19:
 
<span style="font-family: Arial;">&nbsp;</span>
 
<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;">
 
<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;"
 
{| 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);" |  
 
| valign="top" width="100%" style="width: 480px; border: 1px solid rgb(0, 0, 0);" |  
−
The name of a label.
+
Der Name des Labels
−
 
+
 
|}
 
|}
 
</div>
 
</div>
 
<span style="font-family: Arial;">&nbsp;</span>
 
<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;
 
&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.  
 +
Das Beispielprogramm demontriert die Verwendung mit erweiterndem Assembler-Code.
  
 
&nbsp;
 
&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;
 
&nbsp;

Revision as of 17:35, 12 March 2013

Contents

Funktion

Erzeugt eine Label-Adresse.

 

 

Syntax

ADR  label

ADR2  label

 

 

 

Anmerkungen

label

Der Name des Labels

 

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.

 

Bei Verwendung von ADR2 können Sie mit Tabellen arbeitet. Das Beispielprogramm demontriert die Verwendung mit erweiterndem Assembler-Code.

 

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. Doch für das Beispielprogramm können wir die Adresse nicht ändern, sodaß die Adresse wieder hergestellt wird wenn ein NULL-Byte gefunden wird.

 

 

See Also

NONE

 

 

Example 


'===============================================================================
' 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

Languages   English • Deutsch  
Retrieved from "http://wiki.mcselec.com/bavr/index.php?title=ADR/de&oldid=4461"
Personal tools
Namespaces
Variants
Actions
Navigation
In other languages
Language