ADR - Revision history

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

Created page with "= <span class="f_Header">Action</span> = Create label address. <span style="font-family: Arial;"> </span> <span style="font-family: Arial;"> </span> = <span clas..."

New page
= <span class="f_Header">Action</span> =

Create label address.

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Syntax</span> =

<span class="f_Syntax">ADR </span> label

<span class="f_Syntax">ADR2 </span> label

 

<span style="font-family: Arial;"> </span>

<span style="font-family: Arial;"> </span>

= <span class="f_Header">Remarks</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;"
|- 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>
<span style="font-family: Arial;"> </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.

 

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.

 

<span style="font-family: Arial;"> </span>

= <span class="f_Header">See Also</span> =

NONE

 

 

= <span class="f_Header">Example</span> =

<br/><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><br/>{{Languages}}

[[Category:BASCOM_Language_Reference]]