Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- z1013:software:tinybasic [2011/09/18 07:54] – angelegt volkerp
+++ z1013:software:tinybasic [2025/03/12 14:00] (aktuell) – [Geschichte] volkerp
@@ Zeile 1: / Zeile 1: @@
 ====== Tiny-Basic ======
-Mt dem Z9001 wurd ein kleiner 3K-BASIC-Interpreter "robotron Z1013 BASIC 3.01" ausgeliefert (als Hexdump in der Bedienungsanleitung/Anlagenteil oder auf Kassette M0111).
+Mt dem Z1013 wurde ein kleiner 3K-BASIC-Interpreter "robotron Z1013 BASIC 3.01" ausgeliefert (als Hexdump in der Bedienungsanleitung/Anlagenteil oder auf Kassette M0111).
-Start: J 100
+Start: J 100\\
-Restart: J 103
+Restart: J 103\\
 Speicher: 100h-0BFFh
-Das TINY-BASIC ist im Handbuch Teil IIA beschrieben.
+Das TINY-BASIC ist im [[z1013:handbuecher:handbuch_2a#basic|Handbuch Teil IIA]] beschrieben.
+Es gibt eine Vielzahl modifizierter Versionen der originalen Version 3.01 von Riesa. 3 Versionen werden hier vorgestellt (s. Inhaltsverzeichnis)
+===== Geschichte =====
+Das TINY-Basic stammt vom Palo Alto Tiny BASIC ab, s. [[wp>Tiny_BASIC]] und Autor [[wp>Li-Chen_Wang]]. Dessen Implementation des TINY-Basic für den 8080-Prozessor war wiederum die Basis für die Tiny-Basic Version von Rolf-Dieter Klein (-> [[z1013:software:tinybasic:rdk|]]).
+Ich vermute, dass ebendiese Version die Grundlage für das Z1013-Tinybasic ist. Das **"3K-BASIC VON RER"** (Robotron-Elektronik Riesa) kennt beispielsweise wie bei Rolf-Dieter Klein hinzugekommenen Befehle wie TOP und LEN, und nutzt 0-terminierte Zeichenketten für die BASIC-Befehle((Im Palo Alto Tiny BASIC wird das Ende durch ein gesetztes 7. Bit gekennzeichnet)). Auch der Code passt sehr genau auf die Vorlage von Rolf-Dieter Klein.
+In Details gibt es aber durchaus Abweichungen: Die Zeichentestfunktion TSTC arbeitet mit einer 2-Byte-Adresse anstelle eines 1-Byte-Offsets zur nächsten Funktion bei negativem Testergebnis. Neu sind auch die Befehle BYTE und WORD.
+: Die Vermutung ist bestätigt! Auch das Minibasic des AC1 basiert auf dem RDK-Basic: ein Entwickler des AC1 hat später den Z1013 mitentwickelt und die Software des AC1 dabei als Grundlage genommen. Daher hat auch das Betriebssystem des Z1013 viele Gemeinsamkeiten mit dem des [[homecomputer:ac1|AC1]] (und ZETBUG).
 ===== Befehlsübersicht =====
-^ ^ Abkürzung ^ Bemerkung |
+^                ^ Abkürzung   ^ Bemerkung                          ^
-^ Kommandos     |           |                                     |
+^ Kommandos                                                       ^^^
-| LIST [n]      | L.[n]     | Listen(20 Zeilen ab >=n)            |
+| LIST [n]       | L.[n]       | Listen(20 Zeilen ab >=n)           |
-| RUN           | R.        |                                     |
+| RUN            | R.          |                                    |
-| NEW           | N.        |                                     |
+| NEW            | N.          |                                    |
-| BYE           | B.        |                                     |
+| BYE            | B.          |                                    |
-| END n         | E.n       | Speicherende setzen                 |
+| END n          | E.n         | Speicherende setzen                |
-| CSAVE"name"   | C."name   |                                     |
+| CSAVE"name"    | C."name     |                                    |
-| CLOAD         | CL.       |                                     |
+| CLOAD          | CL.         |                                    |
-^ Befehle       |           |                                     |
+^ Befehle                                                         ^^^
-| FOR           | F.        |                                     |
+| FOR            | F.          |                                    |
-| TO            | T.        |                                     |
+| TO             | T.          |                                    |
-| NEXT          | N.        |                                     |
+| NEXT           | N.          |                                    |
-| IF            | I.        |                                     |
+| IF             | I.          |                                    |
-| GOTO          | G.        |                                     |
+| GOTO           | G.          |                                    |
-| GOSUB         | GO.       |                                     |
+| GOSUB          | GO.         |                                    |
-| RETURN        | R.        |                                     |
+| RETURN         | R.          |                                    |
-| PRINT         | P.        |                                     |
+| PRINT          | P.          |                                    |
-| INPUT["..."]a | I.["..."]a|                                     |
+| INPUT["..."]a  | I.["..."]a  |                                    |
-| LET           | L.        |                                     |
+| LET            | L.          |                                    |
-| REM           | RE.       |                                     |
+| REM            | RE.         |                                    |
-| CALL          | C.        |                                     |
+| CALL           | C.          |                                    |
-| POKE          | PO.       |                                     |
+| POKE           | PO.         |                                    |
-| OUTCHARn      | O.n       |                                     |
+| OUTCHARn       | O.n         |                                    |
-| OUT(n)        | OU.(n)    |                                     |
+| OUT(n)         | OU.(n)      |                                    |
-| TAB(n)        | T.(n)     | Ausgabe n Leerzeichen               |
+| TAB(n)         | T.(n)       | Ausgabe n Leerzeichen              |
-| BYTE(n)       | B.(n)     | Ausgabe 2stellige Hexzahl           |
+| BYTE(n)        | B.(n)       | Ausgabe 2stellige Hexzahl          |
-| WORD(n)       | W.(n)     | Ausgabe 4stellige Hexzahl           |
+| WORD(n)        | W.(n)       | Ausgabe 4stellige Hexzahl          |
-| O$(n)         |           | Ausgabe Zeichenkette von (n)        |
+| O$(n)          |             | Ausgabe Zeichenkette von (n)       |
-| I$(n)         |           | Einlesen Zeichenkette nach (n)      |
+| I$(n)          |             | Einlesen Zeichenkette nach (n)     |
-^ Anweisungen   |           |                                     |
+^ Anweisungen                                                     ^^^
-| RND(n)        | R.(n)     | Zufallszahl 1...n                   |
+| RND(n)         | R.(n)       | Zufallszahl 1...n                  |
-| ABS(n)        | A.(n)     |                                     |
+| ABS(n)         | A.(n)       |                                    |
-| PEEK(n)       | P.(n)     |                                     |
+| PEEK(n)        | P.(n)       |                                    |
-| IN(n)         |           |                                     |
+| IN(n)          |             |                                    |
-| INCHAR        | I.        | ein Zeichen einlesen                |
+| INCHAR         | I.          | ein Zeichen einlesen               |
-| STEP          | ST.       |                                     |
+| STEP           | ST.         |                                    |
-| HEX n         | H.n       | Wandlung Hex-->Dez                  |
+| HEX n          | H.n         | Wandlung Hex-->Dez                 |
-| TOP           | T.        | erster freier Speicher nach BASIC   |
+| TOP            | T.          | erster freier Speicher nach BASIC  |
-| SIZE          | S.        | freier BASIC-Speicher               |
+| SIZE           | S.          | freier BASIC-Speicher              |
-| 'a'           |           | ASCII-Code von a                    |
+| 'a'            |             | ASCII-Code von a                   |
-| C             |           |                                     |
+| C              |             |                                    |
-| @( )          |           | eindimensionales Feld               |
+| @( )           |             | eindimensionales Feld              |
@@ Zeile 66: / Zeile 78: @@
 ===== TINY-BASIC 4.01 =====
+Version von V. Pohlers, 1989
 Das BASIC 3.01 von Riesa wurde um einige Befehle erweitert bzw. verbessert:
@@ Zeile 85: / Zeile 99: @@
 mehr lauffähig. Dieser Bereich ist von robotron eigentlich für Erweiterungen
 reserviert, in eigenen Programmen also bitte n i c h t nutzen.
-vp, 1989
 ===== 3K-rs-BASIC V. 1.12 =====
@@ Zeile 166: / Zeile 178: @@
 :  CD 09 E8     CALL DRAKK
+===== TINY-BASIC 3.20H =====
+von Kraft/IG-HC TU Dresden
+Mit HEADERSAVE und einem MENUE (Auflistung aller BASIC-Befehle, die implementiert sind)
+empfohlen als Standard (-> [[z1013:informationen|]]). 3K-rs-BASIC is. m.E. besser!
+===== Erfahrungen =====
+*von mir, 1991*
+Das Z1013-BASIC
+---------------
+Obwohl die Original-Version von Riesa kaum noch genutzt wird,
+es gibt ja die Version 3.20 von Uwe Rehn (?) o. die 4.01er, war
+es dennoch für mich interessant, dieses BASIC mal zu analysie-
+ren. Wer sich für Computergeschichte interessiert, dem sei ge-
+sagt, daß dieses Basic warscheinlich von Herrn Rolf-Dieter Klein
+entwickelt wurde und seit der meines Wissens ersten Veröffent-
+lichung im Oktober 1978 in 'Hobby Computer', Sonderheft der ELO,
+Funkschau, Elektronik; Franzig-Velag auf viele Systeme übernom-
+men wurde.
+Das Tiny-BASIC nutzt keine speziellen U880-Befehle, sondern
+basiert lediglich auf dem Befehlssatz eines 8080-Prozessors.
+Auch daraus resultiert die Lahmheit dieses Interpreters. Offen-
+sichtlich war man in Riesa bei der Übernahme des Basics nicht
+bereit, hier einiges zum Vorteil zu ändern. so wird beispiels-
+weise der Befehl SUB HL,DE als Unterprogramm mit 8bit-Registern
+ausgeführt. Interessierten empfehle ich, sich einmal die Rou-
+tinen OUT oder IN anzusehen. Sie stehen ab 0A32H bzw. 0A69H. Es
+wird ein kleines Maschinenprogramm zu Ansprechen der Portadresse
+in den RAM 'gepokt'; der 8080 kennt da zuwenig Befehle, maß
+mußte sich auf diesem Prozessor mit solch einem Trick helfen.
+Dafür hat Riesa gleich mehere Sachen mit eingebaut, die in
+keiner Beschreibung erwähnt werden. So folgt dem Basic-Interpre-
+ter ab Adresse 0B86H eine kurze Tastaturpollingroutine, die
+die kleine 8x4-Tastatur  d i r e k t  abfragt und bei S4-S für
+eine kurze Zeit in einer Warteschleife verharrt, bei S4-K dage-
+gen das laufende Basicprogramm abbricht und in die Grundschleife
+zurückkehrt. Bei exotischen Tastaturen, die keine solche Direkt-
+abfrage vertragen, muß diese Routine z.B. mit einem RETurn kurz-
+geschlossen werden!
+Auch die PRINT-Funktion ist recht interessant. Beim Ausgeben von
+Texten können diese sowohl in "..." als auch in '...' einge-
+schlossen werden. Dem Zeichen _ kommt hier eine eigenartige
+Funktion zu: Durch   PRINT _   (ohne Apostroph o.ä.) wird ein
+zweifacher Zeilenvorschub ausgeführt.
+Die Basic-Befehle können wesentlich stärker gekürzt werden als
+im Handbuch angegeben; das führt zu einem Geschwindigkeitsan-
+stieg, leider aber auch zu geringerer Lesbarkeit.
+Hier sind die maximal möglichen Abkürzungen:
+Kommandos
+   LIST (n)       .(n)     Listen(20 Zeilen ab >=n)
+   RUN            R.
+   NEW            N.
+   BYE            B.
+   END n          E.n       Speicherende setzen
+   CSAVE"name"    C."name
+   CLOAD          CL.
+Prozeduren
+   FOR            F.
+   TO             T.
+   NEXT           .             (es reicht wirklich der Punkt)
+   IF             I.
+   GOTO           G.
+   GOSUB          GO.
+   RETURN         R.
+   PRINT          P.
+   INPUT("...")A  IN.("...")A
+   LET            L.
+   REM            RE.           (hat zwar auch drei Zeichen,
+   CALL           C.             ist aber schneller!)
+   STOP           S.
+   POKE           PO.
+   OUTCHARn       O.n
+   OUT(n)         OU.(n)
+   TAB(n)         T.(n)     Ausgabe n Leerzeichen
+   BYTE(n)        B.(n)     Ausgabe 2stellige Hexzahl
+   WORD(n)        W.(n)     Ausgabe 4stellige Hexzahl
+   O$(n)                    Ausgabe Zeichenkette von (n)
+   I$(n)                    Einlesen Zeichenkette nach (n)
+Funktionen
+   RND(n)         .(n)     Zufallszahl 1...n
+   ABS(n)         A.(n)
+   PEEK(n)        P.(n)
+   IN(n)
+   INCHAR         I.        ein Zeichen einlesen
+   STEP           S.
+   HEX n          H.n       Wandlung Hex-->Dez
+   TOP            T.        erster freier Speicher nach BASIC
+   SIZE           S.        freier BASIC-Speicher
+   LEN            L.
+Und nun der Test: Was macht folgendes Programm?
+P._,_,_
+F.I=1T.10S.2
+P.I;.I
+P..(8)
+Richtig, es liest sich so:
+PRINT; PRINT; PRINT; PRINT; PRINT; PRINT
+FOR I=1 TO 10 STEP 2
+PRINT I; NEXT I
+PRINT RND(8)
+Zum internen Aufbau der Tiny-Basic-Programme:
+Das Programm wird im RAM von 1152H bis (101FH) abgelegt, aber
+bereits ab 1000H abgesavet. Jede Zeile hat folgenden Aufbau:
+byte Zeilennummer
+   x byte Text in ASCII-Notation
+byte Zeilenabschluss (0DH)
+Der Bereich von 1000H bis 1151H dient als Arbeitsspeicher und
+enthält unter anderem:
+H-1008H: Maschinencode bei IN/OUT
+FH:       Programmende
+H-1113H: Basic-Stack
+H-114BH: Variablenspeicher A..Z
+CH:       Speicherende für Basic-Programm
+EH:       Zeiger auf Eingabepuffer
+H:       Ende Eingabepuffer
+H:       Beginn Basic-Programm
+Der Eingabepuffer liegt standartmäßig von 3094H bis 30D6H;
+wird mit END eine neue Speicherobergrenze definiert, so wird
+der Eingabepuffer vor diesem neuen Ende in einer Größe von
+Byte installiert.
+Die Feldvariablen @(.) liegen ab (114CH) abwärts im Speicher.
+Ich denke, das reicht zum Tiny-Basic.