FETCHY - das eiskalte Input-Tool

goloMAK · October 26, 2023 at 12:01 AM 7 posts here Interesting post

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?

Please login to see this attachment.

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

Please login to see this attachment.

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 Please login to see this link.. 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 · October 26, 2023 at 9:36 AM 1 post here

Find ich toll

Falls du Interesse dran hast, das Baby statt SYS auch noch wirklich FETCH zu nennen, kannst du ja mal hier reinlesen: Please login to see this link.

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

goloMAK · October 27, 2023 at 11:16 PM 7 posts here

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 Please login to see this link. 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 · October 29, 2023 at 2:00 AM 1 post here

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 Please login to see this link. 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 · October 31, 2023 at 7:30 PM 7 posts here

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 · October 31, 2023 at 11:30 PM 1 post here

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

Schönen Gruß.

Endurion · November 1, 2023 at 8:51 AM 1 post here

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 · November 1, 2023 at 9:01 AM 2 posts here

Moin, wieso bekomme ich immer einen OutOfMemory Error

wenn ich folgendes eingebe? Getestet in VICE

SYS49152,A$,"ABC",5

goloMAK · November 1, 2023 at 9:28 AM 7 posts here

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).

Please login to see this link.

drazil · November 1, 2023 at 2:52 PM 2 posts here

Yo, jetzt geht's. Danke.

Ich werde wohl langsam alt.

Loeter · November 1, 2023 at 8:47 PM 1 post here

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 · November 1, 2023 at 11:46 PM 7 posts here

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 11, 2024 at 11:11 AM 7 posts here

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 · June 7, 2024 at 9:17 PM 7 posts here

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.

Please login to see this attachment.

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.

FETCHY - das eiskalte Input-Tool

Tags

7 users have written here