FETCHY - das eiskalte Input-Tool

goloMAK · Oct 26th 2023

FETCHY 1.0

Der INPUT-Befehl von Basic V2 ist... nun ja.. - so nützlich wie ein herumhüpfender Hühnerhaufen! Ein falscher Tastendruck, und das Programm steht Kopf!

Aber jetzt kommt FETCHY, das selbstsichere, stoische, kühle Eingabeprogramm für Freunde der totalen Kontrolle.

Es nimmt einen Kontroll-String. Und, wenn wir wollt, eine Eingabelänge. Den Rest macht FETCHY. Seid ihr bereit?

fetchy00.png

Aufruf:

SYS 49152,AB$,"XYZ123",4
==> Es wird eine Variable AB$ eingelesen. Erlaubte Zeichen sind nur X,Y,Z,1,2 und 3. Der String kann höchstens 4 Zeichen lang sein.

Ihr könnt im Kontrollstring auch die Sonderzeichen "{HOME}" und "{CLS}" benutzen, dann sind automatisch alle (Klein-)Buchstaben bzw. Ziffern erlaubt.

FETCHY kommt auch mit TI$ zurecht.

SYS 49152,TI$,"{CLS}",6

Wie man sieht, funktioniert FETCHY auch im Direktmodus! Anders als der originale INPUT-Befehl.

Das große Idol für dieses Programm war der Befehl "FETCH" aus TSB. Wenn ihr eine fette BASIC-Erweiterung mit allem Drum und Dran wollt, seid ihr da richtig. Wenn ihr nur eine kleine INPUT-Routine in eure eigenen Programme einbauen wollt, könnt ihr "FETCHY" nehmen.

In eigener Sache

Das war mein erstes größeres Programm mit String- und Variablenverarbeitung von Maschinensprache aus. Falls ihr Tipps und Verbesserungsvorschläge habt... gerne her damit!

Ansonsten viel Spaß mit diesem Programm!

Goodwell · Oct 26th 2023

Find ich toll

Falls du Interesse dran hast, das Baby statt SYS auch noch wirklich FETCH zu nennen, kannst du ja mal hier reinlesen: https://codebase64.org/doku.php?id=base:basicwedge

Mir gefällts aber auch so schon sehr gut. Werd ich bei Gelegenheit ausprobieren.

goloMAK · Oct 27th 2023

Quote from Goodwell

Find ich toll

Freut mich.

Quote from Goodwell

Falls du Interesse dran hast, das Baby statt SYS auch noch wirklich FETCH zu nennen, kannst du ja mal hier reinlesen

Ich werde den Befehl wahrscheinlich irgendwann in GIST BASIC einbauen. Aber gerade dieses FETCH(y) ist eine Routine, die ich mir auch gut als unterstützende Routine in einem BasicV2-Programm vorstellen kann. Genau dafür habe ich sie sogar auch geschrieben.

Dafür eignet sich natürlich ein DATA-Loader gut. Den hänge ich mal hier noch dran.

EDIT: Oder auch einfach hier für Copy&Paste:

Code

10 rem *** fetchy-loader
20 :
30 print "sekunde..."
40 fori=0to288:readq:poke49152+i,q:next
50 print "fetchy steht bereit."
60 end
70 :
31999 rem --- ml programm
32000 data 169,255,133,2,32,253,174,32,139,176,36,13,48,3,76,153
32001 data 173,133,165,132,166,201,19,208,6,192,191,208,2,230,2,32
32002 data 253,174,32,158,173,32,143,173,32,166,182,208,3,76,72,178
32003 data 133,252,166,34,134,170,166,35,134,171,162,0,134,255,168,136
32004 data 177,170,201,147,208,4,169,128,208,8,177,170,201,19,208,6
32005 data 169,64,5,255,133,255,136,16,231,32,121,0,201,44,208,11
32006 data 32,115,0,32,158,183,224,81,176,1,44,162,80,134,253,32
32007 data 16,193,162,0,134,254,32,228,255,240,251,201,147,240,247,201
32008 data 19,240,243,201,13,208,13,169,32,32,210,255,169,13,32,210
32009 data 255,76,207,192,201,20,208,14,166,254,240,218,169,20,32,210
32010 data 255,198,254,76,118,192,201,48,144,22,201,58,176,6,36,255
32011 data 48,23,16,12,201,65,144,8,201,91,176,4,36,255,112,9
32012 data 164,252,136,48,177,209,170,208,249,32,1,193,76,118,192,165
32013 data 2,208,13,169,33,133,34,169,193,133,35,165,254,76,227,169
32014 data 165,254,32,125,180,164,254,136,185,33,193,145,98,136,16,248
32015 data 160,0,165,254,145,165,200,165,98,145,165,200,165,99,145,165
32016 data 96,166,254,228,253,176,21,157,33,193,232,134,254,32,210,255
32017 data 169,29,160,193,32,30,171,169,157,32,210,255,96,18,32,146,0

Display More

JeeK · Oct 29th 2023

Quote from goloMAK

Das war mein erstes größeres Programm mit String- und Variablenverarbeitung von Maschinensprache aus. Falls ihr Tipps und Verbesserungsvorschläge habt... gerne her damit!

Challenge accepted ...

Sieht sehr sauber aus. Grundsätzlich alles richtig gemacht. Sogar die TI$-Behandlung ist dabei. Genial.

Code

jsr frestr ; Stringlänge steht jetzt im Akku
; Link auf Stringspeicher steht in $22/$23
; $22 : LB der Adresse des Stringspeichers
; $23 : HB der Adresse des Stringspeichers
bne ++

frestr liefert im Zero-Flag nicht immer den Status des Längenbytes. Wenn die Routine über $B6D6 verlässt, dann ist Z=0, aber der String kann dennoch Länge 0 haben. Kann man beheben mit einem TAY vor dem BNE. Damit spart man sich dann auch das TAY weiter unten, weil ja die Länge in einen Index umgewandelt wird. Man verliert also kein Byte.

Der Trick mit dem BIT ist ja ein Klassiker des 6502-Codings, aber in diesem Fall überflüssig:

Code

cpx #$51
bcs loaddef ; zu groß? dann Default benutzen
!byte $2c ; "bit"
loaddef ldx #DEF_MAXLEN ; Default benutzen
stx dstrmax ; Maximalwert speichern

kann einfach mit

Code

cpx #$51
bcc storemax ; kleiner als Maximum, dann übernehmen
loaddef ldx #DEF_MAXLEN ; Default benutzen
storemax stx dstrmax ; Maximalwert speichern

Kleine Optimierung: RTS am Ende könnte man einsparen:

Code

rts ; Programm beenden
; ========================================
; Zeichen in den Puffer eintragen und drucken
; Einsprung bei prtcrs: Nur den Cursor drucken
mkentry ldx dstrcur ; noch Platz im String?
cpx dstrmax
bcs return ; nein, dann Eingabe ignorieren
[..]
jsr $ffd2
return rts

Display More

zu

Code

return rts ; Programm beenden
; ========================================
; Zeichen in den Puffer eintragen und drucken
; Einsprung bei prtcrs: Nur den Cursor drucken
mkentry ldx dstrcur ; noch Platz im String?
cpx dstrmax
bcs return ; nein, dann Eingabe ignorieren
[..]
jmp $ffd2

Display More

Da könnte es noch Probleme geben: dstrcur kann auch 0 sein. Aus Interoperabilitätsgründen mit alternativen Allokatoren (ich kenne einen Garbage-Collector der hier Probleme bekommen könnte).

Dazu kommt, dass dann die Kopierroutine, den Fall Länge=0 nicht. Hier wird die Schleife einmal mit Index 255 durchlaufen und schreibt dann ein Byte irgendwo in den String-Heap ...

Code

; kompletten String speichern (nach Eingabe von RETURN)
stores lda dstrcur ; Länge des Zielstrings
jsr makspc ; Link auf Speicher steht jetzt in $62/$63
; Zielstring kopieren
ldy dstrcur
dey
-- lda mybuf,y
sta ($62),y
dey
bpl --

Display More

Sicherer wäre

Code

; kompletten String speichern (nach Eingabe von RETURN)
stores lda dstrcur ; Länge des Zielstrings
beq +
jsr makspc ; Link auf Speicher steht jetzt in $62/$63
; Zielstring kopieren
tay ; immer > 0
dey
-- lda mybuf,y
sta ($62),y
dey
bpl --
+

Display More

makspc liefert bereits die Länge in A, daher direkt mit TAY übernehmen.

Der 0-Fall kommt dann auch nicht vor.

Im Assembler-Source würde ich mybuf explizit ein

!skip DEF_MAXLEN

anfügen.

Falls man den Code in ein umgebendes Projekt inkludiert, sollte der "Buffer" ja reserviert bleiben.

Dieser separate Puffer, gereicht der Erweiterung aber damit zum Vorteil, dass man diese Input-Methode auch interaktiv verwenden kann. Das geht bei INPUT ja nicht, weil da der Input-Buffer verwendet wird, wo sich ja die interaktive Eingabe gerade befindet.

So, mit mehr kann ich nicht aufwarten.

goloMAK · Oct 31st 2023

JeeK : Danke für die tollen Tipps!

Ich habe deine Vorschläge mal in das Programm eingearbeitet. Eine "!skip"-Anweisung konnte ich allerdings bei C64 Studio nicht finden, da muss ich mal im dortigen Thread anfragen...

Ein leerer Kontrollstring sollte jetzt zuverlässig erkannt werden, wobei ich mich ja frage, ob es nicht vielleicht sogar sinnvoller wäre, einen leeren Kontrollstring als "Alle druckbaren Zeichen sind erlaubt" zu interpretieren, statt das Programm dramatisch mit einer Fehlermeldung abzubrechen. Mal schauen...

Anyway, unten hängt jetzt Version 1.02 mit den Bugfixes.

BIF · Oct 31st 2023

Ja bitte auf überflüssige Programmabbrüche verzichten!

Schönen Gruß.

Endurion · Nov 1st 2023

Einmal nicht aufgepasst. !skip gab es bisher tatsächlich nicht, ich hab das mal eben eingebaut. Als Workaround kannst du * = * + <Ausdruck> verwenden.

In der WIP-Version ist das jetzt auch drin.

drazil · Nov 1st 2023

Moin, wieso bekomme ich immer einen OutOfMemory Error

wenn ich folgendes eingebe? Getestet in VICE

SYS49152,A$,"ABC",5

goloMAK · Nov 1st 2023

Quote from drazil

Moin, wieso bekomme ich immer einen OutOfMemory Error
wenn ich folgendes eingebe? Getestet in VICE

SYS49152,A$,"ABC",5

Nach dem Laden "NEW" eingeben, dann klappt es.

Ist ein generelles Problem, wenn man ein Programm (im Direktmodus) nach 49152 lädt.

EDIT: Siehe z.B. wiki

Quote

Im Direktmodus ausgeführt schließt LOAD alle offenen Dateien, führt den BASIC-Befehl CLR aus und setzt VARTAB, ARYTAB und STREND (siehe Speicherbelegung) auf das Ende der geladenen Datei, was bei Nicht-BASIC-Programmen zu unerwarteten Ergebnissen führen kann (z.B. zum Fehler ?OUT OF MEMORY ERROR).

https://www.c64-wiki.de/wiki/LOAD

drazil · Nov 1st 2023

Yo, jetzt geht's. Danke.

Ich werde wohl langsam alt.

Loeter · Nov 1st 2023

Und wenn Du das Programm zunächst in den Standardbereich lädst, das Programm die eigentliche Routine selbst verschiebt und dann ein NEW ausführt?

Dann müsstest Du das Problem doch auch gleich gelöst haben und man müsste es nicht mit ,8,1 laden.

goloMAK · Nov 1st 2023

Quote from Loeter

Und wenn Du das Programm zunächst in den Standardbereich lädst, das Programm die eigentliche Routine selbst verschiebt und dann ein NEW ausführt?

Die Out-of-Memory-Meldung tritt ja nur auf, wenn man das Programm im Direktmodus lädt. Von einem BASIC-Programm aus kann man es ohne Probleme nachladen:

Code

10 if a=0 then a=1:load"fetchy",8,1
20 rem usw.

Oder man nimmt einen BASIC-Loader und baut ihn in sein Programm ein. Beides passt IMO besser zum Einsatzzweck von FETCHY als ein Programm, das man erst einmal in den normalen BASIC-Speicher laden muss.

Hier zur Vollständigkeit noch der BASIC-Loader für die gefixte Version 1.02. Außerdem auch als PRG im Anhang.

Code

10 rem *** fetchy-loader (v1.02)
20 :
30 print "sekunde..."
40 s=49152:fori=0to288:readq:pokes+i,q:next
50 print "fetchy 1.02 steht bereit."
60 end
70 :
31999 rem --- ml programm
32000 data 169,255,133,2,32,253,174,32,139,176,36,13,48,3,76,153
32001 data 173,133,165,132,166,201,19,208,6,192,191,208,2,230,2,32
32002 data 253,174,32,158,173,32,143,173,32,166,182,168,208,3,76,72
32003 data 178,133,252,166,34,134,170,166,35,134,171,162,0,134,255,136
32004 data 177,170,201,147,208,4,169,128,208,8,177,170,201,19,208,6
32005 data 169,64,5,255,133,255,136,16,231,32,121,0,201,44,208,10
32006 data 32,115,0,32,158,183,224,81,144,2,162,80,134,253,32,17
32007 data 193,162,0,134,254,32,228,255,240,251,201,147,240,247,201,19
32008 data 240,243,201,13,208,13,169,32,32,210,255,169,13,32,210,255
32009 data 76,206,192,201,20,208,14,166,254,240,218,169,20,32,210,255
32010 data 198,254,76,117,192,201,48,144,22,201,58,176,6,36,255,48
32011 data 23,16,12,201,65,144,8,201,91,176,4,36,255,112,9,164
32012 data 252,136,48,177,209,170,208,249,32,2,193,76,117,192,165,2
32013 data 208,13,169,33,133,34,169,193,133,35,165,254,76,227,169,165
32014 data 254,240,14,32,125,180,164,254,136,185,33,193,145,98,136,16
32015 data 248,160,0,165,254,145,165,200,165,98,145,165,200,165,99,145
32016 data 165,96,166,254,228,253,176,249,157,33,193,232,134,254,32,210
32017 data 255,169,29,160,193,32,30,171,169,157,76,210,255,18,32,146,0

Display More

goloMAK · May 11th 2024

Fetchy kommt noch einmal zurück!

Eingeben für Angeber!

Toolness pur!

Fetchy kommt jetzt auch mit einem optionalen Escape-Zeichen zurecht!

Das Escape-Zeichen beendet die Eingabe sofort und landet danach im Eingabestring - außer bei TI$!

Kurzanleitung:

Code

; ......................................................
; Aufruf: SYS49152,IN$,CT$[,ML][,EC$]
; IN$: Eingabevariable
; CT$: Kontrollstring
; ML : Maximale Länge
; EC$: Escape-Zeichen
; ......................................................

Weitere Infos im Source-Code.

Objekt-Datei und BASIC-Loader auf dem d64-Image. Source-Code siehe unten.

Viel Spaß!

goloMAK · Jun 7th 2024

Fetchy if you can!

In der neuen Version ist der Kontrollstring jetzt optional. Man kann also auch einfach nur "SYS....,A$" eingeben und fertig. Dann sind alle (Klein-)Buchstaben und Ziffern erlaubt. Das Gleiche gilt, wenn man einen Leerstring als Kontrollstring angibt.

Auf diese Weise gibt keine unnötigen Programmabbrüche mehr! Außerdem wird der einzugebende Befehl in vielen Fällen kürzer.

Kurzanleitung (aus dem Source-Code):

Code

; ======================================================
; * Das Programm bietet eine Variante des INPUT-Befehls.
; * Optional kann man angeben:
; o einen Kontrollstring
; o die maximale Länge des einzugebenden Strings
; o ein Escape-Zeichen, das die Eingabe beendet.
; * Es werden nur Zeichen akzeptiert, die in dem Kontrollstring
; enthalten sind.
; * Auch TI$ lässt sich bearbeiten.
; * Das eingegebene Escape-Zeichen befindet sich anschließend in der
; Eingabevariable (außer bei TI$).
; ......................................................
; Aufruf: SYS...,IN$[,CT$][,ML][,EC$]
; IN$: Eingabevariable
; CT$: Kontrollstring
; ML : Maximale Länge
; EC$: Escape-Zeichen
; ......................................................
; Besonderheiten:
; * "{HOME}" im Kontrollstring steht für alle Buchstaben
; * "{CLS}" im Kontrollstring steht für alle Ziffern
; * alle anderen Zeichen müssen explizit angegeben werden
; ......................................................
; Beispiel-Aufrufe:
; * SYS...,IN$,"ABCDX"
; * SYS...,TI$,"{CLS}",6,"X"
; * SYS...,IN$,"{CLS}+-.",8
; * SYS...,IN$,CT$,ML,EC$
; ======================================================
; ÄNDERUNGEN:
;
; v1.20:
; * Kontrollstring ist optional
; * Ein leerer Kontrollstring wird als "{CLS}{HOME}" interpretiert,
; erlaubt also (Klein-)Buchstaben und Zahlen
;
; v1.10:
; * Features:
; o optionales Escape-Zeichen beendet Eingabe
; * Sonstiges:
; o weniger Zeropage-Adressen verbraucht
; o Kommentierung verbessert
;
; v1.02:
; * Ein paar schwer zu erklärende Bugfixes. :-)
; (Danke an @Jeek)!

Display More

Viel Spaß mit Fetchy.

Tags