Psion User Club Austria


	Startseite : News : Programme SIBO : Forth


	Forth	Aktualisierung 2007-03-29

Forth für Series 3a / 3c

Psion 3a Forth besteht aus zwei Teilen: Dem Kernel (eigentlicher Compiler), der für maximale Geschwindigkeit in Assembler geschrieben ist (weswegen er leider nur auf Series 3a, 3c und Acorn PocketBook II läuft). Die Benutzeroberfläche ist ein OPL-Programm. Alle Befehle werden vor der Ausführung kompiliert, ebenso können selbst definierte Befehle kompiliert abgespeichert werden.
Der Reiz der Programmiersprache Forth ist die Umgekehrte Polnische Notation, die Verwendung eines Stapels als Speicher und die Möglichkeit leicht neue Worte zu definieren. Basismäßig sind in Psion 3a Forth 1.29 folgende Worte definiert:

`forget`	`time`	`+`	`-`	`*`	`/`	`/mod`	`mod`
`.`	`u.`	`d.`	`."`	`at`	`cr`	`do`	`loop`
`+loop`	`if`	`else`	`then`	`drop`	`dup`	`emit`	`i`
`i'`	`j`	`>r`	`r>`	`r@`	`over`	`pick`	`roll`
`rot`	`swap`	`vlist`	`2*`	`2/`	`2+`	`2-`	`1+`
`1-`	`and`	`or`	`not`	`xor`	`<>`	`0>`	`0<`
`0=`	`d-`	`leave`	`cls`	`negate`	`>`	`<`	`=`
`<=`	`>=`	`sp@`	`s0`	`@`	`stack`	`variable`	`!`
`draw`	`box`	`fill`	`d+`	`d*`	`d/`	`beep`	`allot`
`seed`	`rand`

Zusätzlich ist sind der Datei demo.sav folgende Definitionen:
variable count
variable primes 200 allot
init (verwendet von go)
show (verwendet von go)
check (verwendet von go)
go berechnet 200 Primzahlen und zeigt sie an
bars zeichnet Balken auf den Bildschirm (um die Verwendung graphischer Befehle zu zeigen)
2dup (verwendet von fact)
2drop (verwendet von fact)
d1- (verwendet von fact)
d0= (verwendet von fact)
fact (verwendet von n!)
n! berechnet die Faktorielle der Zahl auf dem Stapel (1-13, sonst Überlauf)
primes zeigt Primzahlen (verwendet die Variablen primes und count)
rnd zeichnet 100 Rechtecke zufälliger Größe und Position
Man kann 32 verschachtelte do..loop verwenden und 8 verschachtelte if..else..then.
Beim Programmieren muß man darauf achten, daß im Stack genügend Einträge sind, da dieses nicht kontrolliert wird.
Die meisten Programmierfehler geben nur einen "Panic 60", aber im schlimmsten Fall kann ein Reset notwendig sein. Daher: Daten immer Sichern!

Download

Forth ist FreeWare, und kann direkt bei uns heruntergeladen werden.
Forth 1.29 (13,2 kB)