This page (revision-33) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg 

This page was created on 10-Mar-2010 09:28 by Gromit

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
33 03-Feb-2023 15:21 1 KB Roland B. Wassenberg to previous Assembler and Debugger ==> Assembler
32 17-Aug-2015 19:28 1 KB Roland B. Wassenberg to previous | to last Assembler ==> Assembler and Debugger
31 17-Aug-2015 19:22 1 KB Roland B. Wassenberg to previous | to last Assembler_Program ==> Assembler
30 24-Apr-2014 22:04 1 KB Roland B. Wassenberg to previous | to last
29 23-Apr-2014 22:12 1 KB Roland B. Wassenberg to previous | to last
28 05-Apr-2014 10:20 1 KB Gromit to previous | to last
27 05-Apr-2014 10:17 1 KB Gromit to previous | to last
26 05-Apr-2014 10:12 1 KB Gromit to previous | to last
25 05-Apr-2014 09:51 1014 bytes Gromit to previous | to last
24 05-Apr-2014 09:29 1000 bytes Gromit to previous | to last
23 12-May-2011 07:31 979 bytes Gromit to previous | to last
22 12-May-2011 07:30 1 KB Gromit to previous | to last
21 29-Mar-2011 13:53 968 bytes Gromit to previous | to last

Page References

Incoming links Outgoing links
Gromit...nobody
Gromit

Version management

Difference between version and

At line 1 removed 11 lines
!Meine Hardware
*800XL - im Originalzustand
*XC12
*SDrive - Eigenbau [[ mit Unterstützung ;) ]
----
[gromit.jpg]\\
Bester Freund von Wallace
-----
At line 18 changed 2 lines
%%tab-InnenA1
tab content innen A1
%%tab-Innen1
tab content 1
At line 22 changed 2 lines
%%tab-InnenA2
tab content innen A2
%%tab-tabTitle2
tab Innen2
At line 25 removed 2 lines
%%tab-InnenA3
tab content innen A3
At line 15 added one line
tab aussenI
At line 29 removed one line
/%
At line 31 removed 2 lines
tab content aussen A
/%
At line 19 added one line
/%
At line 35 changed 2 lines
tab content aussen B
tab aussenII
At line 27 added 6 lines
!Meine Hardware
*800XL - im Originalzustand
*XC12
*SDrive - Eigenbau [[ mit Unterstützung ;) ]
At line 34 added 5 lines
[gromit.jpg]\\
Bester Freund von Wallace
-----
At line 41 added 10 lines
Halle Gromit,
ich habe Deine Beispiele aus der Documentation der FORTH Worte TRUE und FALSE herausgenommen, weil der Zusammenhang nicht stimmte. In ACTION! werden Zahlenwerte als "wahr" und "falsch" interpretiert, in FORTH gibt es extra "worte" dafür.
----
!Action
__false__ =0
Example:
%%prettify
At line 52 added 44 lines
BYTE FUNC values_match(BYTE x,y)
BYTE rval
rval=0 ;means FALSE
IF x=10 AND y=20 THEN
rval=1 ;means TRUE
FI
RETURN(rval)
PROC main()
BYTE v1,
v2
PrintE("Please give me 2 numbers.")
Print("v1 = ")
v1=InputB()
Print("v2 = ")
v2=InputB()
IF values_match(v1,v2) THEN
PrintE("Your values match!!")
FI
RETURN
}}}
/%
Dieses Beispiel ist nicht wirklich gut. Die Funktion "values_match" scheint zu prüfen ob die beiden Eingabewerte gleich sind, aber es wir getstet ob Eingabewert x = 10 und Eingabewert y = 20 ist.
Die Benahmung der Eingabewerte X/Y suggestiert einen Punkt (X-Y Koordinate im Raum). Für zwei Byte-Werte würde ich "bval1" und "bval2" vorschlagen.
Die Routine "values_match" würde ich wie so schreiben:
{{{
BYTE FUNC values_match(BYTE bval1, bval2)
RETURN(bval1 = bval2)
}}}
Das würde aber keiner so machen, da man auf Gleichheit direkt ohne Prozeduraufruf tsten kann.
Ein besseres Beispiel wäre die Prüfung on eine engegebene Zahl ungerade ist:
{{{
At line 47 changed one line
RETURN (val MOD 2)
RETURN ((val MOD 2) -1)
At line 62 removed 9 lines
-----
!!Backup
Umleitungsseite erstellen: [[{SET alias='Name der Seite auf die umgeleitet werden soll'}] \\
Umleitungsseite finden : Suche nach 'alias' = 70% Relevanz\\
Umleitungsseite editieren: Link als Verknüpfung kopieren, in Browser als URL einfügen und "Wiki.jsp" durch "Edit.jsp" ersetzten. (Groß- und Kleinschreibung beachten)
!Neue Seiten
[Assembler and Debugger|Assembler]
!Alte Seiten
[Internal Variables] - Magazin Article (german)
This page (revision-33) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg  Top