# Reverse Polish LISP

Reverse Polish LISP (RPL, selten auch UPL) ist eine stackbasierte Programmiersprache ähnlich FORTH, die in den Hewlett-Packard-Taschenrechnern wie dem HP-28, HP 48 und in neueren Serien wie dem HP-49 und HP-50 Verwendung findet. Die Sprache wurde 1984 in der HP-Niederlassung in Corvallis im US-Bundesstaat Oregon entwickelt. Das Ziel war, einen Ersatz für die bis dahin üblicherweise in Assembler programmierte Betriebssoftware in Taschenrechnern zu finden.

## Beschreibung

RPL ist eine Mischung aus Forth, Lisp und Smalltalk. Forth ist stackorientiert (erst auszuführende Argumente auf den Stack, dann wird das Kommando ausgeführt, z. B. << 1 1 + >>); Lisp ist listenorientiert (erst Liste/Formel auf den Stack, dann wird von innen her aufgelöst). Z. B << '1+1' EVAL >> wird mit dem Kommando EVAL umgewandelt in << 1 1 + >>. Ebenso << 'SIN(45)' >> auf dem Stack in << 45 SIN >>.
Zusätzlich simuliert der Rechner auf dem System einen im Speicherplatz beschränkten Stack, wobei dieser tatsächlich nur aus Adressen besteht, die zum Speicherinhalt führen (indirekte Adressierung). Speicherinhalt ist dann das Objekt (Zahl, komplexe Zahl, Matrix, Formel etc.), das zum Rechnen geladen werden kann und erst am Ende auf dem Display angezeigt wird. Wird eine Stackoperation ausgeführt (z. B. SWAP=vertauschen), werden nur die Adressen im Stack verändert, nicht aber der Inhalt. Dadurch ist der Rechner sehr schnell. Am Ende der Rechnungen (nach der Garbage Collection) wird erst der neue Inhalt des Stacks durch ein internes Programm auf dem Display angezeigt.

## Hintergrund

Einer Anekdote eines der beteiligten RPL-Entwickler Dr. William Wickes zufolge ist die Bezeichnung willkürlich gewählt. Programmcode in RPL kann wie bei der umgekehrten polnischen Notation (UPN / RPN) eingegeben werden. Von Lisp hat die Sprache im Wesentlichen die Eigenschaft, Listen beliebigen Inhalts als Datentyp zu verwenden, grundlegende (Lisp-)Operationen darauf auszuführen und mit vielen RPL-Befehlen auf diesen zu operieren, wie beispielsweise:
    { 0 12,5 91,7 -43 } sin
bzw. im algebraischen Modus:
    sin({0;12,5;91,7;-43})
Der Befehlsumfang unterscheidet sich bei den verschiedenen Taschenrechnerreihen. Komplexere RPL-Programme sind daher nicht abwärts-, meist aber aufwärtskompatibel. Es gibt zwei Dialekte der Sprache, das komfortablere User RPL und das hardwarenähere, jedoch leistungsfähigere Sys RPL.
Die Verwendung der umgekehrten polnischen Notation führt zu einer ungewohnten, nach der Gewöhnung aber effizienten Befehlsreihenfolge, bei der die zu bearbeitenden Daten stets vor den bearbeitenden Befehlen erfasst werden (zunächst werden Elemente auf dem Stack abgelegt, anschließend ein Operator auf sie angewandt).

## Beispiel

Folgendes Beispielprogramm gibt die Zahlen von 1 bis 100 in der ersten Bildschirmzeile aus:
Das Programm wird vom Rechner so abgearbeitet:
* Zunächst werden die Zahlen 1 und 100 auf den Stack gelegt
* Der Befehl FOR entfernt diese beiden Zahlen wieder vom Stack, speichert sie als Start- und Endwert der Schleife und erkennt den nachfolgenden Bezeichner I als Laufvariable der FOR-Anweisung (I ist hier eine globale Variable)
* Ab der nächsten Anweisung beginnt das Innere der FOR-Schleife. Zunächst wird der aktuelle Wert der Variablen I auf den Stack gelegt.
* Der Befehl DISP gibt einen Wert in der Anzeige (DISPlay) aus, wobei der Wert 1 die erste Zeile der Anzeige als Ziel der Ausgabe angibt.
* DISP entfernt sowohl den Wert von I als auch die 1 vom Stack und zeigt I in der ersten Zeile der Anzeige an.
* NEXT kennzeichnet das Ende der Schleifenstruktur
In den meisten Fällen erfolgt die Übergabe von Argumenten so, dass sie zuerst auf den Stack gelegt werden und selbst Kontrollstrukturen diese Werte wie Funktionen als Argumente nehmen. Selbst Vergleiche funktionieren so:
Beschreibung des Beispiels:
* Zu Beginn des Programms wird ein Wert vom Stack geholt und von → in die temporäre Variable a verschoben. Die Variable a existiert nur so lange, wie das Programm innerhalb der inneren « » abgearbeitet wird.
* Der Wert in der lokalen Variablen a und 1 werden auf den Stack gelegt.
* Der Vergleich > ist wie mathematische Operation (z. B. +), welche a und 1 vom Stack entfernt und stattdessen das Ergebnis des Vergleichs auf den Stack legt (0 = FALSCH, 1 = WAHR).
* Die folgende Anweisung THEN nimmt dann das Ergebnis des Vergleichs (0 oder 1) vom Stack und setzt die Verarbeitung entweder nach THEN bis ELSE oder nach ELSE bis END fort.
Für die Ausführung in RPL ist es nicht relevant, wann der Vergleichswert als Argument für THEN bereitgestellt wurde. Alternativ könnte die Zeile mit dem IF auch so aussehen: