BASIC 4.5 für den C64 (BASIC 3.5 + EIGENE BEFEHLE)

Quote from BroeckSt

Hallo Robert,

erst einmal möchte ich Dir zu Deiner wirklich extrem gelungenen BASIC-Version gratulieren. Das ist ein wirkliches Schmuckstück geworden. Ich nutze es sehr gern für meine eigenen kleinen und auch größeren Programme.

Aber (und es kommt ja immer ein aber) ich habe einen Wunsch bzw. eine Anregung.

Ich experimentiere auch mit dem BASIC 4.0 oder mit Comal80. Beide Sprachen haben ein Feature, das ich sehr gerne mag und worüber ich mich sehr, sehr freuen würde, es möglicherweise auch in Deinem BASIC 4.5 zu finden: Die komfortablere Nutzung von relativen Dateien.

Im BASIC 2.0 muss man immer zwei Kanäle offenhalten: Den 15 und den 1. Und man muss ein Hi- und ein Lo-Value nutzen, um einen Record zu adressieren. Das ist alles machbar, aber sehr unkomfortabel, wie ich finde.

BASIC 4.0 braucht das nicht. Hier kann man einfach mit RECORD# den richtigen Datensatz wählen und dann mit PRINT#, INPUT# oder GET# arbeiten. Das ist deutlich angenehmer.

Und bei Comal80 ist es ähnlich einfach. Hier kann man einfach ein OPEN FILE Kommando nutzen um dann mit READ und WRITE oder mit INPUT und PRINT die Daten bearbeiten.

Ich habe nicht einmal ansatzweise eine Vorstellung, wie komplex so etwas sein kann, aber meinst Du, Du könntest so etwas in der Art auch in BASIC 4.5 implementieren?

LG, Stephan

Display More

RECORD ist nicht wirklich aufwendig.

Wenn, dann sollte aber der BASIC-4.0-Level komplett abdecken und auch das fehlende APPEND, CONCAT, DCLOSE. Da ja schon andere Diskbefehle wie COPY, DOPEN usw. vorhanden sind, sollte ja der recht aufwendige Parameterparser für diese Kommandos vorhanden sein (der zumindest in BASIC 4, 3.5 und 7.0 generisch ist und für alle Disk-Kommandos verwendet wird), was die Umsetzung verhältnismäßig billig machen sollte.

Quote from dg5kr

[..] ABER:

die Erweiterung für den C64 wird von mir weiter gepflegt. Wie bereits vor Monaten mal erwähnt wird dieses

BASIC wohl nie wirklich fertig. Solange die Retroszene wie in diesen erstklassigem Forum weiter

so aktiv lebt, werde ich am Ball bleiben. Vielen Dank an alle die mich dabei unterstützen.

Den jetzigen Modus finde ich prima, du hältst alles zusammen, machst den "Build" und die Core-Entwicklung und wir anderen liefern Vorschläge oder sogar auch Implementierungshinweise bzw. Code-Schnippsel. Wir richten uns da natürlich nach Dir und die Geduld wird sicherlich jeder aufbringen.

Hi dg5kr

Wollte mal was mit deinen Basicerweiterung testen für eine Basic Game. Bin aber jetzt schon am verzweifeln, weil das kurze Programm nicht das macht was es soll.

Hier mal der Code

Statt das er A$ immer neben dran setzt, geht er in y-Richtung nach oben und der X-Wert wirt auch nicht richtig addiert. Woran kann das liegen.

Ach ja was mir noch aufgefallen ist. Mit dem Befehl Char kann ich folgenden Anweisung nicht ausführen Char 1,10,10,"test";y ich muss es sondern so schreiben - Char 1,10,10,"test":print y. Aber das nur neben bei.

Also ich weis nicht warum er das falsch zusammenzählt. Fällt dir dazu was ein.

Gruß Drachen

Quote from Drachen

Statt das er A$ immer neben dran setzt, geht er in y-Richtung nach oben und der X-Wert wirt auch nicht richtig addiert. Woran kann das liegen.

Das liegt daran, dass du y bis Zeile 24 zulässt. Wenn dann in Zeile 24 ein PRINT gemacht wird, dann schließt das mit einem Return-Code ab, der veranlasst, dass der Bildschirm eine Zeile nach oben geschoben wird, da er nicht in Zeile 25 positionieren kann.

Wenn du in Zeile 60 "y < 23" schreibst, geht es wie geplant:

Quote from Snoopy

Quote from Drachen

Statt das er A$ immer neben dran setzt, geht er in y-Richtung nach oben und der X-Wert wirt auch nicht richtig addiert. Woran kann das liegen.

Das liegt daran, dass du y bis Zeile 24 zulässt. Wenn dann in Zeile 24 ein PRINT gemacht wird, dann schließt das mit einem Return-Code ab, der veranlasst, dass der Bildschirm eine Zeile nach oben geschoben wird, da er nicht in Zeile 25 positionieren kann.

Wenn du in Zeile 60 "y < 23" schreibst, geht es wie geplant:

Display More

Alles klar Danke Snoopy. Aber ich habe noch mehr Fehler in mein Listing entdeckt. Der größe war das A$. Durch den Getkey A$-Behlehl habe ich immer meinen String geleert .

Wenn ich folgende Zeilen so ändere klappt alles wie geplant

Jetzt kann ich weider planen. Aber das mit dem Befehl CHAR bleibt trotzdem. Vielleicht kann man das noch verbessern.

Gruß Drachen

Quote from Drachen

Code

Hi dg5kr

Statt das er A$ immer neben dran setzt, geht er in y-Richtung nach oben und der X-Wert wirt auch nicht richtig addiert. Woran kann das liegen.

Ach ja was mir noch aufgefallen ist. Mit dem Befehl Char kann ich folgenden Anweisung nicht ausführen Char 1,10,10,"test";y ich muss es sondern so schreiben - Char 1,10,10,"test":print y. Aber das nur neben bei.

Also ich weis nicht warum er das falsch zusammenzählt. Fällt dir dazu was ein.

Gruß Drachen

Display More

Das mit dem Befehl Char hat sich erledig. Habe mir den Befehl jetzt genau angeschaut bei Plus 4 dort wurde der Befehl genau erklärt. Also hat sich das von selbst erledigt.

Gruß Drachen

Hi dg5kr

Super, dann freue ich mich schon im Voraus darauf.

Machst einen guten Job mit deiner Erweiterung

Quote from dg5kr

Und ich denke ich habe tatsächlich einen Denkfehler. Ich muss die Uhrzeit ja gar nicht ständig über den IRQ setzen. Es reicht einmal im Startprozess. Den Rest kann ich weiter den Kernel Routinen überlassen.

So brickst Du schon mal keine Programme, die TI$ setzen. Um was auch immer damit zu machen.

Quote from dg5kr

Könntest du mir ein Beispiel oder einen Screenshot zukommen lassen damit ich das reproduzieren kann?

Im Übrigen ist der REM Ersatz noch ein klein wenig Buggy: Wenn du ein ? rein bringt macht der einen PRINT daraus. Wo bei der original REM Befehl auch nicht ohne Bugs ist.....

Das ist ja nicht das Problem des Befehls an sich, sondern des Tokenizers und De-Tokenizers. Der hört ja nicht auf, bloß weil er ein REM oder ein "'" sieht.

Gibt man ein REM {shift}+{e} -> ist das das Token für VAL, was bei einem LIST dann auch angezeigt wird.

REM selbst funktioniert aber (ignoriert dann alles bis zum Zeilenende).

Quote from dg5kr

Ich benötige Antworten auf:

- Wo wird TI$ durch den Interrupt aktualisiert?

- Wo werden jeweils die Register mit den BCD Werten gefüllt um Sie per interrupt nach $A0-$A2 zu schreiben?

- Kann ich diese Aktualisierung stoppen, bzw auf meine Aktualisierung verbiegen?

- Habe ich einen vollkommene Denkfehler?

TI$ wird nicht aktualisiert, sondern der String wird bei Abfrage aus den Speicherstellen $A0 bis $A2 "errechnet", also in die entsprechende Darstellung umgewandelt. In der Routine für die Ausdrucksauswertung, werden die Systemvariablen abgefragt und dann zu der Routine verzweigt, die das macht.

Welche Register mit BCD-Werten? Die gibt es so nicht. $A0-$A2 ist ein einfacher 3-Byte-Zähler, der 1/60-Sekundenintervalle zählt.

D.h. IRQ -> wenn von Timer -> Inkrement. (JSR $FFEA bei $EA31).

Das war's schon.

TI liest den Wert direkt aus, TI$ macht daraus einen String (bei TI$ ist auch noch eine Zuweisung möglich, wo dann aus dem String der Wert für $A0-$A2 zurück gerechnet wird).

Die Aktualisierung stoppen geht nur, wenn du die IRQ-Routing komplett ersetzt, wo dann das Inkrement nicht mehr vorkommt (oder zumindest bis zu der stelle). Das ginge aber leicht, da das ja faktisch der erste JSR-Aufruf beim Eintritt bei $EA31 ist. Dann stellt man den Vektor auf $EA34. Dann gibt's kein Inkrement mehr.

Man muss dann nur noch die Zugriffe auf TI und TI$ "abfangen", die dann den Wert vom RTC-Baustein nehmen.

Wichtig ist, dass dann TI auf jeden Fall immer 1/60 Sekunden zurückliefern muss (um die Kompatibilität zu wahren). Wenn der RTC keine solche feine Auflösung hat. D.h. angenommen der RTC liefert Sekundenauflösung, dann muss man die Sekunden aus Stunden, Minuten und Sekunden zusammenmultiplizieren und dann den Wert mit 60 Multiplizieren, damit man einen Pseudo 1/60-Sekunden Wert erhält. Mal 60 ist halt mal 15 und dann noch 2x Shiften. Für mal 15 kann man dahingehend optimieren, dass man mal 16 rechnet (das sind 4x shiften) und dann den Ursprungswert davon subtrahiert.

Quote from JeeK

Quote from dg5kr

Könntest du mir ein Beispiel oder einen Screenshot zukommen lassen damit ich das reproduzieren kann?

Im Übrigen ist der REM Ersatz noch ein klein wenig Buggy: Wenn du ein ? rein bringt macht der einen PRINT daraus. Wo bei der original REM Befehl auch nicht ohne Bugs ist.....

Das ist ja nicht das Problem des Befehls an sich, sondern des Tokenizers und De-Tokenizers. Der hört ja nicht auf, bloß weil er ein REM oder ein "'" sieht.

Es wird aber definitiv anders gehandhabt. REM und ' (als Alternative) zeigen nach einem LIST verschiedene Kommentare. Beim REM bleibt das ? stehen, beim ' wird es in PRINT als Klartext umgewandelt.

Quote from dg5kr

Quote from Drachen

Hi dg5kr

Super, dann freue ich mich schon im Voraus darauf.

Machst einen guten Job mit deiner Erweiterung

Oh, vielen Dank.

Ich sitze gerade an dem TI$ Problem. Und ich denke ich habe tatsächlich einen Denkfehler. Ich muss die Uhrzeit ja gar nicht ständig über den IRQ setzen. Es reicht einmal im Startprozess. Den Rest kann ich weiter den Kernel Routinen überlassen.

So ermutigt weiter zu grübelen bin ich auf das Ergebnis gespannt.

Zur REM Alternative ' (Apostrophe):

Hmm, funktioniert.

Könntest du mir ein Beispiel oder einen Screenshot zukommen lassen damit ich das reproduzieren kann?

Im Übrigen ist der REM Ersatz noch ein klein wenig Buggy: Wenn du ein ? rein bringt macht der einen PRINT daraus. Wo bei der original REM Befehl auch nicht ohne Bugs ist.....

Display More

So hier mein Listing

Komisch das es bei dir funktionniert und bei mir nicht. Habe das selbe Zeichen verwqendet wie du. Habe extra dafür die Zeile 950 eingebracht um zu sehen ob es das selbe Zeichen ist.

Nicht wunderen über den Zeichensatz, der ist von Retrofan.

Der mir persönlich sehr gut gefällt

Gruß Drachen

Ist das evtl. die Eingabe von C64-Studio? Da habe ich ? durch PRINT ersetzt, ausser wenn vorne ein REM ist.

Quote from Endurion

Ist das evtl. die Eingabe von C64-Studio? Da habe ich ? durch PRINT ersetzt, ausser wenn vorne ein REM ist.

Falls du meinen Beitrag meinst: Ich habe alles von Hand direkt in VICE eingegeben.