Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
Nächste Überarbeitung		 Vorhergehende Überarbeitung
tiny:software:baserw40 [2022/08/04 06:39] – gelöscht - Externe Bearbeitung (Unknown date) 127.0.0.1tiny:software:baserw40 [2024/05/31 09:13] (aktuell) – [Download] volkerp
Zeile 1: Zeile 1:
 +====== Basic-Erweiterung ======
 +
 +Das [[elektronik:u883:mpbasic|Tiny MPBASIC]] des U883 lässt sich um neue Prozeduren und Funktionen [[elektronik:u883:mpbasicerw|erweitern]]. Erstaunlicherweise sind in der Literatur jedoch keine Beispiele zu finden.
 +2021 habe ich mich mit dieser Thematik beschäftigt und eine erste Erweiterung für das ES4.0 geschrieben:
 +
 +===== Download =====
 +
 +  * {{ :tiny:baserw.zip |}} Erweiterungen für die TINY-Systeme (v1 und v1.1 (Rombank))
 +
 +===== ES 4.0 =====
 +
 +Die Erweiterung liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h )
 +
 +Mit
 +  1 PROC SETRR[8,%8000];REM Erweiterung einbinden
 +werden die neuen Prozeduren dem BASIC bekannt gemacht. Danach können die neuen Befehle genutzt werden.((Im Emulator JTCEMU ist die Nutzung der neuen Befehle im Texteditor erst ab Version 2.1 möglich.))
 +
 +**Hinweis**: in der [[tiny:erweiterungen:rombank]] ist die Basic-Erweiterung ab Adresse **3000h** dauerhaft verfügbar. Es ist hierzu SETRR[8,%3000] zu nutzen.
 + 
 +
 +Durch die neuen Befehle werden die Programme auch leichter lesbar (z.B. DRAW statt CALL%, CLS, AT, ...)
 +
 +<code>
 +Grafik-Befehle
 +--------------
 +
 +PROC PLOT[X,Y,farbe] Punkt setzen                    statt LET X=,Y=,Z=; CALL %17FD
 +F=PTEST[X,Y] Punktfarbe abfragen             statt LET X=,Y=; CALL %17FA; PRINT Z
 +PROC DRAW[X1,Y1,X2,Y2,farbe] Linie von X1,Y1 nach X2,Y2      statt LET V=,W=,X=,Y=,Z=; CALL %17F7
 +PROC CIRCLE[X,Y,radius,Farbe] Kreis
 +
 +Achtung: es werden die Variablen X,Y,Z und V,W (draw) mitgenutzt! 
 +s. ES4.0-Beschreibung. Diese dürfen im eigenen Programm daher nicht genutzt werden!
 +
 +Text-Befehle
 +------------
 +
 +PROC CLS Bildschirm löschen        statt OPTC[12]
 +PROC COLOR[FG,HG] Textfarben setzen   statt OSETEB[%F7A0,%F0]
 +PROC AT[zeile,spalte] Textcursor positionieren  statt LET X=,Y=,Z=;C%0827
 +                                                                bzw. OSETRR[%5B,..];OSETR[%5B,..]
 +(Achtung: in der ersten Version sind bei AT die Parameter vertauscht!)
 +
 +10 PROC CLS
 +20 PROC COLOR[15,0]
 +30 PROC AT[13,19];PRINT"JU+TE-COMPUTER"
 +
 +DATA-Befehle
 +------------
 +
 +Anstelle Schlüsselwort DATA wird REM genutzt.
 +Die Daten sind in REM-Zeilen abzulegen, ohne Leerzeichen.
 +10 REM 11,22,33
 +
 +RESTORE[10] setzt den Daten-Zeiger auf Zeile 10
 + der Zeiger wird nicht automatisch auf die nächste Zeile gesetzt,
 + es muss wieder RESTORE erfolgen
 +Y=READ Funktion, liest den nächsten Datenwert aus der Zeile, auf die RESTORE
 + gesetzt ist und setzt den Daten-Zeiger auf den folgenden Wert.
 +
 +</code>
 +
 +===== Beispiele =====
 +
 +<code>
 +
 +Beispiel Punkte setzen/abfragen
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC CLS
 +20 PROC PLOT[200,100,15]
 +30 PROC PLOT[100,100,8]
 +40 PRINT PTEST[100,100]
 +
 +
 +Farb- und Programmbeispiel JU+TE 07/1990, Seiten 84
 +
 +10 PROC PTC[12]
 +20 LET A=0,B=0,C=319,D=191,E=6
 +30 LET V=A,W=B,X=C,Y=B,Z=E/3; CALL %17F7
 +40 LET V=C,W=D; CALL %17F7
 +50 LET X=A,Y=D; CALL %17F7
 +60 LET V=A,W=B; CALL %17F7
 +70 LET A=A+2,B=B+1,C=C-2,D=D-1,E=E+1
 +80 IF A<160 THEN GOTO 30
 +90 END
 +
 +neu (besser lesbar)
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC CLS
 +20 LET A=0,B=0,C=319,D=191,E=6
 +30 LET F=E/3
 +35 PROC DRAW[A,B,C,B,F]
 +40 PROC DRAW[C,D,C,B,F]
 +50 PROC DRAW[C,D,A,D,F]
 +60 PROC DRAW[A,B,A,D,F]
 +70 LET A=A+2,B=B+1,C=C-2,D=D-1,E=E+1
 +80 IF A<160 THEN GOTO 30
 +90 END
 +
 +Beispiel Testbild (analog zu R. Weidlich's MC-Programm)
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC COLOR[2,13];PROC CLS
 +15 REM GITTERNETZ
 +20 LET I=1
 +30 PROC DRAW[16*I,0,16*I,191,15]
 +40 LET I=I+1; IF I<=19 THEN GOTO 30
 +50 LET I=1
 +60 PROC DRAW[0,16*I,319,16*I,15]
 +70 LET I=I+1; IF I<=15 THEN GOTO 60
 +100 REM KREISE
 +110 PROC CIRCLE[160,96,85,15]
 +120 PROC CIRCLE[24,24,16,15]
 +130 PROC CIRCLE[296,24,16,15]
 +140 PROC CIRCLE[24,168,16,15]
 +150 PROC CIRCLE[296,168,16,15]
 +200 REM Farbfelder
 +210 LET C=0,A=12,B=5,I=0
 +215 PROC COLOR[0,C]
 +220 PROC AT[B,A];PRINT"  ",
 +230 PROC AT[B+1,A];PRINT"  ",
 +240 LET C=C+15,A=A+2,I=I+1
 +250 IF I=8 THEN LET B=7,A=12
 +260 IF I<16 THEN GOTO 215
 +300 REM Zeichensatz
 +310 PROC COLOR[15,0]
 +330 LET C=0
 +340 PROC AT[C/16 + 10, C $MOD 16 + 12]
 +345 IF C<32 THEN PROC PTC[14];REM VORAB ESC
 +350 PROC PTC[C]
 +360 C=C+1;IF C<128 THEN GOTO 340
 +400 REM TEXT
 +410 PROC COLOR[0,15]
 +420 PROC AT[19,13];PRINT"JU+TE-COMPUTER"
 +430 PROC AT[20,18];PRINT"*6K*"
 +9999 PROC AT[0,0];PROC COLOR[2,13];END
 +
 +Beispiel Data
 +
 +Datas in REM-Zeilen ablegen, ohne Leerzeichen
 +
 +1 PROC SETRR[8,%8000]
 +5 PROC RESTORE[10]
 +10 REM 11,22,33
 +20 PRINT READ,READ
 +30 LET Y=READ;PRINT Y
 +
 +R
 + 00011 00022
 + 00033 
 +</code>
 +
 +{{:tiny:es40_testbild_bas.png|}}
 +
 +===== ES 2k =====
 +
 +{{:tiny:software:spirale.png|}}
 +
 +Die Erweiterung **baserw2k** liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h )
 +
 +Mit
 +  1 PROC SETRR[8,%8000];REM Erweiterung einbinden
 +werden die neuen Prozeduren dem BASIC bekannt gemacht. Danach können die neuen Befehle genutzt werden.
 +
 +Durch die neuen Befehle werden die Programme leichter lesbar
 +
 +<code>
 +PSET[X,Y] Punkt zeichnen
 +PRES[X,Y] Punkt löschen
 +PTEST[X,Y] Punkt abfragen
 +T=INKEY aktuell gedrückte Taste
 +CLS Bildschirm löschen
 +AT[X,Y] Cursor positionieren
 +RESTORE[Zeile] Datenzeile festlegen
 +Y=READ Daten aus REM-Zeilen lesen
 +
 +Übersetzung vorhandenen Codes
 +-----------------------------
 +
 +LET X=..,Y=..;CALL %FCA0 PROC PSET[X,Y]
 +LET X=..,Y=..;CALL %FCB0 PROC PRES[X,Y]
 +LET X=..,Y=..;CALL %FCBB; IF Z.. LET Z=PTEST[X,Y]
 +
 +CALL %C56;LET A=GETR[%6D]$A%7F;PROC SETR[%6D,0] LET A=INKEY
 +
 +CALL %8DD PROC CLS
 +PROC SETR[%5B,%20] PROC AT[2,0]
 +</code>
 +
 +===== Beispiele =====
 +
 +<code>
 +
 +64x64 Bildpunkte, (0,0) ist links unten
 +
 +       (0,63)           (63,63)
 +       +-----------------+
 +       |                 |
 +       |        (X,Y)    |
 +       |                 |
 + ^     |                 |
 + |     +-----------------+
 + y     (0,0)            (63,0)
 +   x ->     
 +
 +
 +Test Grafik
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC CLS
 +20 PROC PSET[10,10]
 +30 PROC PSET[0,0]
 +40 PROC PSET[63,63]
 +100 PRINT PTEST[10,10]
 +110 PROC PRES[10,10]
 +120 PRINT PTEST[10,10]
 +9999 END
 +
 +Test INKEY
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC CLS
 +20 X=INKEY;PRINT X
 +30 GOTO20
 +9999 END
 +
 +Test AT
 +
 +1 PROC SETRR[8,%8000]
 +10 PROC CLS
 +20 PROC AT[0,0];PRINT"00",
 +30 PROC AT[1,1];PRINT"11",
 +40 PROC AT[2,4];PRINT"24",
 +9999 END
 +
 ++
 +00
 + 11
 +    24
 +END 9999
 +
 +Test Data s.o.
 +
 +-- Quadrat-Spirale
 +
 +1 PROC SETRR[8,%1C00]
 +5 REM SPIRALE
 +10 PROC CLS
 +15 REM A=X LINKS, B=X RECHTS, C=Y UNTEN, D=Y OBEN
 +20 LET A=0,B=63,C=0,D=63
 +25 REM OBEN (0,63) -> (63,63), X=A->B
 +30 LET X=A,A=A+2
 +40 PROC PSET[X,D]
 +50 LET X=X+1; IF X<=B THEN GOTO 40
 +55 REM RECHTS (63,63) -> (63,0), Y=D->C
 +60 LET Y=D,D=D-2
 +70 PROC PSET[B,Y]
 +80 LET Y=Y-1; IF Y>=C THEN GOTO 70
 +85 REM UNTEN (63,0) -> (0,0), X= B->A
 +90 LET I=B,B=B-2
 +100 PROC PSET[X,C]
 +110 LET X=X-1; IF X>=A THEN GOTO 100
 +115 REM LINKS (0,0) -> (0,63), Y= C->D
 +120 LET Y=C,C=C+2
 +130 PROC PSET[A,Y]
 +140 LET Y=Y+1; IF Y<=D THEN GOTO 130
 +150 IF A<B THEN IF C<D THEN GOTO 30
 +9998 X=GTC
 +9999 END
 +</code>
 +
 +
 +===== ES 2.3 =====
 +
 +Im ES2.3 lässt sich die baserw4.0 direkt bzw. mit kleinen Abstrichen direkt nutzen. Beispiel: Testbild
 +
 +{{:tiny:es23_testbild.png|}}