This page (revision-16) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 25-Apr-2010 09:12 by Carsten Strotmann

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
16 03-Feb-2023 15:21 10 KB Carsten Strotmann to previous
15 25-Apr-2010 10:56 8 KB Carsten Strotmann to previous | to last
14 25-Apr-2010 10:45 6 KB Carsten Strotmann to previous | to last
13 25-Apr-2010 10:37 5 KB Carsten Strotmann to previous | to last
12 25-Apr-2010 10:29 3 KB Carsten Strotmann to previous | to last
11 25-Apr-2010 10:29 3 KB Carsten Strotmann to previous | to last
10 25-Apr-2010 10:26 3 KB Carsten Strotmann to previous | to last
9 25-Apr-2010 10:19 2 KB Carsten Strotmann to previous | to last
8 25-Apr-2010 10:17 2 KB Carsten Strotmann to previous | to last
7 25-Apr-2010 09:49 1 KB Carsten Strotmann to previous | to last
6 25-Apr-2010 09:48 1 KB Carsten Strotmann to previous | to last
5 25-Apr-2010 09:48 1 KB Carsten Strotmann to previous | to last
4 25-Apr-2010 09:22 9 KB Carsten Strotmann to previous | to last
3 25-Apr-2010 09:20 9 KB Carsten Strotmann to previous | to last
2 25-Apr-2010 09:20 9 KB Carsten Strotmann to previous | to last
1 25-Apr-2010 09:12 9 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 3 removed 2 lines
[{TableOfContents }] \\
At line 14 added one line
[{TableOfContents }] \\
At line 100 added 120 lines
Ist irgendwas kleiner als Null, so wird "Fehler" ausgedruckt und die Ausführung des Wortes abgebrochen, sonst geht es weiter im Code.
! >LABEL und LABEL
Schließlich gibt es noch die Worte {{{>LABEL}}} und {{{LABEL}}}. {{{>LABEL}}} erzeugt ein Label im Heap, wobei es den Wert des Labels vom Stack nimmt . {{{LABEL}}} erzeugt ein Label mit dern Wert von HERE. Beispiel:
{{{
Label schleife dex
schleife bne
}}}
! NEXT
Ein Codewort muß letztendlich immer auf {{{NEXT JMP}}} führen, damit der Adressinterpreter weiter arbeitet. Im folgenden Glossar werden Konstanten angegeben, auf die gesprungen werden kann und die Werte auf den Stack bringen bzw. von ihm entfernen. Wichtig ist insbesondere die Routine SETUP. Sie kopiert die Anzahl von Werten, die im Akkumulator angegeben wird, in den Speicherbereich ab N.
! Zugriff auf den Stack
Für den Zugriff auf den Stack wird, so weit das möglich ist, die Benutzung der Worte {{{SETUP}}} und {{{PUSH ...}}} empfohlen. Das reicht allerdings häufig nicht aus. In diesem Fall kann man die Werte auf dem Stack folgendermaßen zugreifen:
{{{
SP x) lda \ Das untere Byte des ersten Wertes
SP )y lda \ Das obere Byte des ersten Wertes
}}}
sowie durch Setzen des Y-Registers auch die zweiten, dritten etc. Werte. Beachten Sie bitte, das in NEXT verlangt wird, daß das X-Register den Inhalt $00 und das Y-Register den Inhalt $01 hat. Das wurde im obigen Beispiel ausgenutzt.
Beispiele fur Assemblercode in Forth, den wir als gut empfinden, sind unter Anderem die Worte {{{FILL}}} und {{{-TRAILING}}} (im VolksForth Kernel). Wollen Sie Assembler programmieren, so sollten Sie sich diese Worte und noch einige andere ansehen.
! ROM Zugriff auf Commodore Maschinen
Beim Assemblerprogrammieren muß beachtetwerden, daß VolksForth das ROM abschaltet (bei Commodore Maschinen). Daher müssen Lesezugriffe ins ROM etwas anders organisiert warden. Beispiel fur den C16:
{{{
ffd2 jsr \ springt eine RAM-Routine an.
ff3e sta ffd2 jsr ff3f sta \ springt eine ROM-Routine an.
}}}
Sie funktioniert nur , wenn sie im unteren RAM-Bereich (<$8000) steht . Sonst folgen undefinierte Reaktionen.
Beim C64 ist eine Bankumschaltung nur für Lesezugriffe in das BASIC-ROM erforderlich. Hierbei ist zusätzlich zu beachten, daß eine Bankumschaltung mit {{{SEI}}} vorbereitet werden muß, da andernfalls der periodische Tastaturinterrupt zu einem Absturz führen wurde.
Auf dem C16 ist kein {{{SEI}}} erforderlich, da im RAM der Vektor $FFFE auf eine eigene Interruptroutine zeigt (sie benotigt ca. 1 Promille der Rechenzeit). Aus dem gleichen Grund fuhrt eine BRK-Instruktion zwar weiterhin in den Monitor, allerdings mit falschem Registerdump, da der Monitor auf dam Stack die Daten der Interruptroutine statt der Register vorfindet.
!! Glossar
! PushA ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencode-Sequenz enthält, die den Inhalt des Akku vorzeichenbehaftet auf den Datenstack legt und dann zu NEXT springt. Wird als letzter Sprungbefehl in Code-Worten benutzt.
! Push0A ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencade-Sequenz enthät, die den Inhalt des Akku auf das Low-Byte des Datenstacks ablegt. Das High-Byte wird grundsätzlich auf 0 gesetzt. Anschliessend wird zu NEXT gesprungen. Wird als letzter Sprungbefehl in Code-Worten benutzt.
! Push ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencode-Sequenz enthält, die den Inhalt des Akku als High-Byte auf den Datenstack legt. Das Low-Byte wird vom Prozessorstack geholt und muß vorher dort abgelegt worden sein. Anschliessend wird zu NEXT gesprungen. Wird als letzter Sprungbefehl in Code-Worten benutzt.
! Next ( -- addr )
Eine Konstante, die die Adresse von NEXT auf den Datenstack legt. Wird als letzter Befehl in Code-Worten benutzt.
! xyNext ( -- addr )
Wie NEXT, jedoch werden vorher das X-Register mit 0 und das Y-Register mit 1 geladen. Das System erwartet grundsätzlich bei Aufruf von NEXT diese Werte in den Registern. Ansonsten reagiert es mit Absturz.
! PutA ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencode-Sequenz enthält, die den Akku als Low-Byte auf den Datenstack ablegt. Das High-Byte wird nicht verändert, ebenso wird im Gegensatz zu PUSH kein Platz auf dem Datenstack geschaffen. Anschliessend wird NEXT durchlaufen. Wird als letzter Befehl in Code-Worten benutzt.
! Pop ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencode-Sequenz enthält, die das oberste Element vom Datenstack entfernt. Anschliessend wird zu NEXT gesprungen.Wird als letzter Sprungbefehl in Code-Worten benutzt.
! PopTwo ( -- addr )
Einc Kanstante, welche die Adressee einer Maschinencade-Sequenz enthält, welche die obersten beiden Elemente vom Datenstack entfernt. Anschliessend wird zu NEXT gesprungen. Wird als letzter Sprungbefehl in Code-Worten benutzt.
! RP ( -- addr )
Eine Konstante, welche die Adresse des Returnstackpointers enthält.
! UP ( -- addr )
Eine Konstante, welche die Adresse des Userpointers, also des Offset zu ORIGIN enthält.
! SP ( -- addr )
Eine Konstante, welche die Adresse des Datenstackpointers enthält.
! IP ( -- addr )
Eine Konstante, welche die Adresse des Instruktionspointer der Forth-Maschine enthält. Dieser zeigt auf das jeweils nächste abzuarbeitende Wort.
! W ( -- addr )
Eine Konstante, welche die Adresse des Wort-Pointers der Forth­-Maschine enthält. Dieser zeigt auf das jeweils gerade bearbeitete Wort.
! N ( -- addr )
Eine Konstante, welche die Adresse eines Speicherbereichs in der Zeropage enthält, der dem Anwender zur Verfügung steht.
! setup ( -- addr )
Eine Konstante, welche die Adresse einer Maschinencode-Sequenz enthält, die n Eleaente vom Datenstack abbaut und bei N ablegt. Die Anzahl n muß im Akku stehen, wenn SETUP als Subroutine angesprungen wird. Das oberste Element des Datenstacks liegt bei N, das zweite bei N+2 etc. Zum Schluß werden X- und Y-Register auf 0 bzw. 1 gesetzt.
! wcmp ( addr1 addr2 -- )
Dieses Assemblermakro assembliert eine Sequenz, die bei Ausfuhrung den Inhalt des Wortes an addr1 mit dem Inhalt des Wortes an addr2 vergleicht. Anschließend ist das Carry-Flag high, wenn der Inhalt von addr1 größer oder gleich dem Inhalt von addr2 ist. Es werden der Akku sowie die Statusregisterflags C Z O N verändert.
! ram ( -- )
__Commodore__
Makro. Schaltet bei Ausführung auf eine andere Speicherbank. Die genaue Wirkungsweise ist Maschinenabhängig.
! rom ( -- )
__Commodore__
Makro. Schaltet bei Ausführung auf eine andere Speicherbank. Die genaue Wirkungsweise ist Maschinenabhängig.
! sys ( addr -- )
__Commodore__
Makro. Schaltet bei Ausführung auf eine Speicherbank mit Systemroutinen und führt einen Sprung zu addr aus. Die genaue Wirkungsweise ist Maschinenabhängig.