ON VALUE/de - Revision history

Stefanhamburg: /* Beispiel */

2013-03-17T20:58:09Z

Beispiel

Stefanhamburg: /* Example */

2013-03-17T20:57:01Z

Example

Stefanhamburg: /* ASM */

2013-03-17T20:53:32Z

ASM

Stefanhamburg: /* See Also */

2013-03-17T20:52:58Z

Stefanhamburg: /* Anmerkungen */

2013-03-17T20:52:39Z

Anmerkungen

Stefanhamburg: /* Remarks */

2013-03-17T20:51:38Z

Remarks

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

2013-03-17T20:41:54Z

(**COPIED FROM ENGLISH PAGE**) =

Admin: 1 revision

2013-02-15T19:15:28Z

1 revision

Admin: Created page with "= Action = Branch to one of several specified labels, depending on the value of a variable.
2013-02-11T20:52:05Z

Created page with "= Action = Branch to one of several specified labels, depending on the value of a variable. <s..."

New page
== (COPIED FROM ENGLISH PAGE) === Action =

Branch to one of several specified labels, depending on the value of a variable.

 

 

= Syntax =

ON var [GOTO] [GOSUB] label1 [, label2 ] [,CHECK]

 

 

= Remarks =
<div style="padding: 0px; margin: 0px 0px 0px 4px;">
{| width="515" 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="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
Var

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
The numeric variable to test.

This can also be a SFR such as PORTB.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
label1, label2

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
The labels to jump to depending on the value of var.

|- style="vertical-align: top;"
| valign="top" width="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
CHECK

| valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
An optional check for the number of provided labels.

|}
</div>
 

Note that the value is zero based. So when var is 0, the first specified label is jumped/branched.

It is important that each possible value has an associated label.

When there are not enough labels, the stack will get corrupted. For example :

ON value label1, label2

 

And value = 2, there is no associated label.

 

You can use the optional CHECK so the compiler will check the value against the number of provided labels. When there are not enough labels for the value, there will be no GOTO or GOSUB and the next line will be executed.

 

= See Also =

[[ON INTERRUPT|ON INTERRUPT]]

 

 

= ASM =

The following code will be generated for a non-MEGA micro with ON value GOTO.

Ldi R26,$60       ; load address of variable

Ldi R27,$00 ; load constant in register

Ld R24,X

Clr R25

 

Ldi R30, Low(ON_1_ * 1)     ; load Z with address of the label

Ldi R31, High(ON_1_ * 1)

 

Add zl,r24       ; add value to Z

Adc zh,r25

 

Ijmp        ; jump to address stored in Z

 

ON_1_:

 

Rjmp lbl1       ; jump table

Rjmp lbl2

Rjmp lbl3

 

 

The following code will be generated for a non-MEGA micro with ON value GOSUB.

 

<nowiki>;#####</nowiki> On X Gosub L1 , L2

Ldi R30,Low(ON_1_EXIT * 1)

Ldi R31,High(ON_1_EXIT * 1)

Push R30 ;push return address

Push R31

Ldi R30,Low(ON_1_ * 1)      ;load table address

Ldi R31,High(ON_1_ * 1)

Ldi R26,$60

Ld R24,X

Clr R25

 

Add zl,r24 ; add to address of jump table

Adc zh,r25

Ijmp        ; jump !!!

 

ON_1_:

Rjmp L1

Rjmp L2

ON_1_EXIT:

 

 

As you can see a jump is used to call the routine. Therefore the return address is first saved on the stack.

 

 

= Example =

 <source lang="bascomavr">
'-----------------------------------------------------------------------------------------
'name : ongosub.bas
'copyright : (c) 1995-2005, MCS Electronics
'purpose : demo : ON .. GOSUB/GOTO
'micro : Mega48
'suited for demo : yes
'commercial addon needed : no
'-----------------------------------------------------------------------------------------

$regfile = "m48def.dat" ' specify the used micro
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$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

Dim A As Byte
Input "Enter value 0-2 " , A 'ask for input
Rem Note That The Starting Value Begins With 0
On A Gosub L0 , L1 , L2
Print "Returned"

If Portb < 2 Then 'you can also use the portvalue
On Portb Goto G0 , G1
End If
End_prog:
End

L0:
Print "0 entered"
Return

L1:
Print "1 entered"
Return

L2:
Print "2 entered"
Return

G0:
Print "P1 = 0"
Goto End_prog

G1:
Print "P1 = 1"
Goto End_prog
</source> {{Languages}}

[[Category:BASCOM Language Reference/de]]

@@ Line 189: / Line 189: @@
 Dim A As Byte
-Input "Enter value 0-2 " , A 'NAch Eingabe fragen
+Input "Enter value 0-2 " , A 'Nach Eingabe fragen
 Rem Zu beachten: Der Startwert beginnt mit Null
 On A Gosub L0 , L1 , L2
@@ Line 202: / Line 202: @@
 L0:
-Print "0 entered"
+Print "0 eingegeben"
 Return
 L1:
-Print "1 entered"
+Print "1 eingegeben"
 Return
 L2:
-Print "2 entered"
+Print "2 eingegeben"
 Return

@@ Line 169: / Line 169: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">Example</span> =
+= <span class="f_Header">Beispiel</span> =
 <br/><source lang="bascomavr">
@@ Line 181: / Line 181: @@
 '-----------------------------------------------------------------------------------------
-$regfile = "m48def.dat" ' specify the used micro
+$regfile = "m48def.dat" ' Mikrocontroller
-$crystal = 4000000 ' used crystal frequency
+$crystal = 4000000 ' Taktfrequenz
-$baud = 19200 ' use baud rate
+$baud = 19200 ' Baudrate
 $hwstack = 32 ' default use 32 for the hardware stack
 $swstack = 10 ' default use 10 for the SW stack
@@ Line 189: / Line 189: @@
 Dim A As Byte
-Input "Enter value 0-2 " , A 'ask for input
+Input "Enter value 0-2 " , A 'NAch Eingabe fragen
-Rem Note That The Starting Value Begins With 0
+Rem Zu beachten: Der Startwert beginnt mit Null
 On A Gosub L0 , L1 , L2
-Print "Returned"
+Print "Zurück aus GOSUB"
-If Portb < 2 Then 'you can also use the portvalue
+If Portb < 2 Then 'Man kann auch den Port-Wert benutzen
 On Portb Goto G0 , G1
 End If

@@ Line 73: / Line 73: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">ASM</span> =
+= <span class="f_Header">Assembler</span> =
 The following code will be generated for a non-MEGA micro with ON value GOTO.

@@ Line 65: / Line 65: @@
 <span style="font-family: Arial;">&nbsp;</span>
-= <span class="f_Header">See Also</span> =
+= <span class="f_Header">Siehe auch</span> =
 [[ON INTERRUPT|ON INTERRUPT]]

@@ Line 49: / Line 49: @@
 Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.
-Wennnicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
+Wenn nicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
 Beispiel:

@@ Line 15: / Line 15: @@
 <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="515" 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="21%" style="width: 105px; border: 1px solid rgb(0, 0, 0);" |
-Var
+var
 | valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
-The numeric variable to test.
+Die zu prüfende numerische Variable.
-This can also be a SFR such as PORTB.
+Kann auch ein SFR wie zum Beispiel PORTB sein.
 |- style="vertical-align: top;"
@@ Line 32: / Line 32: @@
 | valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
-The labels to jump to depending on the value of var.
+Label (Sprungmarken) zu denen je nach Wert der Variablen gesprungen werden soll.
 |- style="vertical-align: top;"
@@ Line 39: / Line 39: @@
 | valign="top" width="98%" style="width: 401px; border: 1px solid rgb(0, 0, 0);" |
-An optional check for the number of provided labels.
+Optionale Prüfung der Anzahl der Sprungmarken.
 |}
@@ Line 45: / Line 45: @@
 <span style="font-family: Arial;">&nbsp;</span>
-Note that the value is zero based. So when var is 0, the first specified label is jumped/branched.
+Die Verzweigung erfolg nullbasiert. Wenn der Wert also Null ist dann wird zur ersten angegebenen Sprungmarke verzweigt.
-It is important that each possible value has an associated label.
+Es ist wichtig, dass es zu jedem möglichen Wert eine zugehörige Sprungmarke gibt.
-When there are not enough labels, the stack will get corrupted. For example&nbsp;:
+Wennnicht genügend Sprungmarken vorhanden sind dann läuft der Stack über.
 ON value label1, label2
@@ Line 55: / Line 56: @@
 <span style="font-family: Arial;">&nbsp;</span>
-And value = 2, there is no associated label.
+Wenn value = 2 dann gibt es keine zugehörige Sprungmarke.
 <span style="font-family: Arial;">&nbsp;</span>
-You can use the optional CHECK so the compiler will check the value against the number of provided labels. When there are not enough labels for the value, there will be no GOTO or GOSUB and the next line will be executed.
+Wenn man den optionalen CHECK Parameter benutzt dann wird geprüft ob genügend viele Sprungmarken vorhanden sind und wenn das nicht der Fall ist dann wird kein GOTO oder GOSUB ausgeführt sondern die nächste Zeile wird ausgeführt.
 <span style="font-family: Arial;">&nbsp;</span>

@@ Line 1: / Line 1: @@
-== (**COPIED FROM ENGLISH PAGE**) === <span class="f_Header">Action</span> =
+= <span class="f_Header">Funktion</span> =
-Branch to one of several specified labels, depending on the value of a variable.
+Verzweigung zu einem von mehreren angegebenen Labels in Abhängigkeit des Wertes einer Variablen.
 <span style="font-family: Arial;">&nbsp;</span>