Gerätenummern von mehreren Floppy-Drives smart per Software jonglieren (C128-1571, Pi1541, etc.)

emulaThor · 1. Mai 2019

Hallo,

ich habe heute einige Zeit damit verbracht, ein kleines Basic-Programm zu coden, welches die vier Gerätenummern 8,9,10 und 11 abklappert und prüft, was da so dranhängt. Danach tauscht es bei zwei Laufwerken die Gerätenummern aus (softwareseitig bis zum nächsten Reset des Laufwerks).

Alles kein Hexenwerk, und wer das ganze per Hardware löst, braucht sowas nicht. Mich hat eher interessiert, ob es überhaupt von Basic aus möglich ist.

Hintergrund: Ich habe einen C128DCR und eine Pi1541. Der C128DCR hat eine 1571 eingebaut, die immer auf Adresse 8 lauscht. Hardwaremäßig müsste ich an die Platine ran, um die Adresse umstellbar zu machen. Softwaremäßig kann ich von Basic aus die Adresse ändern bis zum nächsten Reset, was mir evtl. schon reicht.

Die Pi1541 habe ich je nach Laune an mehreren Rechnern hängen, deswegen habe ich sie auf der SD-Karte momentan auf Gerätenummer 10 eingestellt (und ich hänge selten eine USB-Tastatur dran). Nun wollte ich ein Basic-Programm haben, das nachschaut, ob auf Gerätenummer 10 meine Pi1541 hängt und auf Gerätenummer 8 meine 1571. Wenn das der Fall ist und noch mindestens eine weitere Gerätenummer frei ist, wird die 1571 auf eine freie Gerätenummer verschoben und die Pi1541 wird auf Gerätenummer 8 gesetzt.

Das scheint nach einigen Fehlversuchen ganz gut zu funktionieren. Bei Interesse kann ich mehr darüber berichten.

Viele Grüße
emulaThor

ADAC · 1. Mai 2019

Klingt ja schonmal gut.
Jetzt noch ein kleines Menü (mit ein paar Wahlmöglichkeiten) und die Funktion von STFU dazu...

Unseen · 1. Mai 2019

Zitat von emulaThor

Wenn das der Fall ist und noch mindestens eine weitere Gerätenummer frei ist

Was hast du denn alles am Rechner hängen um alle Gerätenummern von 4 bis 30 zu belegen?

emulaThor · 1. Mai 2019

Zitat von ADAC

Klingt ja schonmal gut.
Jetzt noch ein kleines Menü (mein ein paar Wahlmöglichkeiten) und die Funktion von STFU dazu...

STFU kannte ich noch nicht, interessant. Deaktivieren eines Laufwerks sollte auch von Basic kein Problem sein, ist hier beschrieben. Ein Menü mit Wahlmöglichkeiten wäre cool, da ich heute direkt am C128 gecodet habe, ist es eher Kraut- und Rübencode momentan ohne Struktur. Aber vielleicht komme ich dazu, ein Menü zu bauen. Glücklicherweise ist die Funktionalität des Tools in Basic nicht unglaublich langsam, so dass es nicht unbedingt eine Lösung in Assembler sein muss - jedenfalls nicht von Anfang an.

Zitat von Unseen

Was hast du denn alles am Rechner hängen um alle Gerätenummern von 4 bis 30 zu belegen?

Ich hatte mich nur auf die Nummern 8,9,10,11 beschränkt in dem Fall. Habe zum Testen noch zustäzlich eine 1541-II dran, so dass tatsächlich nur noch eine Nummer frei ist. (1571, Pi1541, 1541-II).

Ich muss den Basic-Code mal ein bisschen aufbereiten, dann melde ich mich wieder.

skern · 1. Mai 2019

Hallo Leute
ich habe auch eine Menge Geräte am Bus.

8 1541
9 1571
10 1581
11 cmd hd
12 net2 iec im aufbeu
13 iec2ata 1
14 iec2ata 2 POS
15 cmd fd
16 cmd RL
17 frei bis 23
24 sd2iec POS
25 frei bis 30

manchmal möchte ein Programm eine 8 haben und dafür habe ich ein Programm namens "u" dieses Tauscht das aktuelle Gerät mit 8
U .PRG

emulaThor · 1. Mai 2019

Mein Basic-Programm ist immer noch chaotisch, aber ich hänge eine erste Version hier mal rein. Es greift folgendes Coding auf zur Detection von Geräten: https://www.lemon64.com/forum/…bd5885fb8f1c1e7366#558462

Das prg hängt unten an.

C

10 a=65331:le=0:p1=0:c7=0
11 print "---------------------------------------"
12 print "this tool changes the device number of"
13 print "the built-in 1571 drive"
14 print "and moves pi1541 to device 8"
15 print "---------------------------------------"
16 print "detecting devices 8-11"
17 print "---------------------------------------"
20 for d = 8 to 11
30 gosub 100
40 next d
45 print "---------------------------------------"
50 if le>0 then print "* first unused device number:"le
60 if p1>0 then print "* pi1541 at:"p1
65 if p1=0 then print "* did not find a pi1541 in browse mode"
70 if c7=8 then print "* built-in 1571 at:"c7
75 if c7=0 then print "* no built-in 1571 found at number 8"
76 print "---------------------------------------"
80 if le>0 and p1>0 then if p1<>8 or c7>0 then goto 300
85 print "nothing to do or move... exiting"
90 goto 1000
100 hi=int(a/256)
110 lo=a-256*hi
120 open1,d,2:close1
122 if d < 10 then print" ";
124 if st<> 0 then gosub 400:return
130 open1,d,15
140 print# 1,"m-r";chr$(lo);chr$(hi)
150 get# 1,a$
160 t=asc(a$)
170 close 1
180 t$="unknown"+str$(t)
190 if t=108 then t$="1581"
200 if t=173 then t$="1571"
205 if t=173 and d=8 then c7=8
210 if t=170 then t$="1541"
220 if t=76 then t$="1541-ii"
230 if t=48 then p1=d:t$="pi1541"
280 print d;t$
290 return
300 rem ====== renumber ===========
310 if c7 > 0 then gosub 600
315 if c7 = 0 and le=8 then c7=8
320 if p1 <> 8 then gosub 500
330 goto 1000
400 if le=0 then le=d
410 print d"-"
420 return
500 print"moving pi1541 from"p1"to"c7:open 15,p1,15,"u0>"+chr$(c7):close 15
510 return
600 if c7 > 0 then print"moving 1571":open 15,c7,15,"u0>"+chr$(le):close 15
610 return
1000 end

Alles anzeigen

ADAC · 2. Mai 2019

Das SD2IEC vllt noch mit einbauen....

emulaThor · 2. Mai 2019

Zitat von ADAC

Das SD2IEC vllt noch mit einbauen....

Ich habe keins. Wenn Du eins hast: Bitte mal testen, welche Nummer meine Detection rausschreibt nach dem Wort UNKNOWN.

ADAC · 2. Mai 2019

Mache ich... muss aber erst noch was Löten

emulaThor · 2. Mai 2019

Zitat von ADAC

Mache ich... muss aber erst noch was Löten

Prima, ich wünsche guten Lotfluss!

Es ist auch nicht gesagt, dass die Detection oben, so wie sie ist, stabil und gut funktioniert. Gestern Abend habe ich in Vice rumgetestet damit mit allen virtuellen Laufwerkstypen - und mit einer 1540 wollte der Check gar nicht zusammenarbeiten. Da blieb die Detection hängen.

Manchmal blieb es bei mir auch auf dem realen C128DCR hängen. Das Basic-Programm verwendet nur Basic v2 und sollte daher auf dem C64 und C128 funktionieren, allerdings kann ich mein mit petcat generiertes prg, dass ich oben angehängt habe, nicht in VICE 128 einfach reinziehen. Im VICE 64 geht es. Muss ich mit petcat für 64er und 128er getrennte prg's erzeugen?

Mac Bacon · 2. Mai 2019

Zitat von emulaThor

Das Basic-Programm verwendet nur Basic v2 und sollte daher auf dem C64 und C128 funktionieren, allerdings kann ich mein mit petcat generiertes prg, dass ich oben angehängt habe, nicht in VICE 128 einfach reinziehen. Im VICE 64 geht es. Muss ich mit petcat für 64er und 128er getrennte prg's erzeugen?

Nein. Das Problem ist die ",1" beim LOAD, welches VICE automatisch anhängt. Lässt man das weg (oder benutzt gleich DLOAD), kann man auch die Basic-Programme von "anderen" Systemen laden.

Unseen · 2. Mai 2019

Zitat von emulaThor

Ich habe keins. Wenn Du eins hast: Bitte mal testen, welche Nummer meine Detection rausschreibt nach dem Wort UNKNOWN.

Das hängt davon ab, was für ein ROM-File der Benutzer eingestellt hat. Wenn er keines eingestellt hat wird im Augenblick einfach der aktuelle Inhalt eines internen Puffers zurückgeliefert, aber das kann sich jederzeit ändern. M-R ist keine geeignete Methode, um sd2iec zu erkennen.

ADAC · 2. Mai 2019

Zitat von Unseen

Das hängt davon ab, was für ein ROM-File der Benutzer eingestellt hat. Wenn er keines eingestellt hat wird im Augenblick einfach der aktuelle Inhalt eines internen Puffers zurückgeliefert, aber das kann sich jederzeit ändern. M-R ist keine geeignete Methode, um sd2iec zu erkennen.

Das habe ich schon befürchtet... gibts alternativen?

emulaThor · 2. Mai 2019

Zitat von Unseen

Das hängt davon ab, was für ein ROM-File der Benutzer eingestellt hat. Wenn er keines eingestellt hat wird im Augenblick einfach der aktuelle Inhalt eines internen Puffers zurückgeliefert, aber das kann sich jederzeit ändern. M-R ist keine geeignete Methode, um sd2iec zu erkennen.

Ähnlich ist es mit der Detection der Pi1541: Nach dem Start ist die Pi1541 im Browse-Mode.

Sobald man ein d64- oder ein d81-Image auswählt, ist sie im Emulationsmode und verrät dann auch nicht mehr ohne weiteres, dass sie eine Pi1541 ist. In der verwendeten Detection-Logik hat meine Pi1541 im Browse-Mode mit Kernel 1.19 den Wert 48 zurückgeliefert, der von den anderen bekannten Werten für die "realen" Laufwerke glücklicherweise abweicht.

Allerdings habe ich nicht geprüft, ob der Wert 48 bei allen Kernel-Versionen der Pi1541 zurückgeliefert wird, oder ob er sich während der Browse-Mode-Runtime ändert. Es ist halt eine Art Notnagel, der für meinen Anwendungsfall bisher funktioniert.

Wenn es neben M-R noch weitere Detection-Methoden gibt, dann bin ich interessiert. Ich hatte mit U9/UI rumgespielt, aber das Problem dabei ist, dass damit auch die 1571 resettet wird.

Mit U9 bekommt man schön als Antwort "CBM DOS V3.1 1571". Und bei der Pi1541 bekommt man schön "PI1541 V01.19" (im Browse-Mode). Allerdings setzt halt ein U9 die verbogenen Laufwerksnummern wieder zurück. Eine 1571, die vorher meinetwegen bei 11 war, ist dann wieder bei 8.

Unseen · 2. Mai 2019

Zitat von ADAC

Das habe ich schon befürchtet... gibts alternativen?

UI senden und schauen, ob im Fehlerkanal "sd2iec" oder "uiec" auftaucht.

wweicht · 2. Mai 2019

Zitat von Unseen

UI senden und schauen,

Das klappt aber nur, wenn alle Adressen per Hardware fest eingestellt sind. Ist ein Laufwerk per Software auf eine andere Adresse eingestellt, bekommt es einen Reset und hat dann eine andere Adresse.

Ich bevorzuge für das SD2IEC:

10 OPEN15,z,15,"X?":INPUT#15,A$,B$,C$,D$
20 CLOSE15
30 PRINT A$,B$,C$,D$

(z durch die Laufwerksnummer ersetzen.)

.

Gruß
Werner

skern · 2. Mai 2019

Meiner Erfahrung nach darf man nicht das Gerät erkennen sondern das Medium.
Bei CMD kann man 5 verschiedene haben...
Dann wird die Anzahl der Geräte immer größer. also muss man ständig updaten.
Medien gibt es aber nicht so fiele 1541 Vormate sind sehr verbreitet. Nativ schon weniger
und offene wie und sd2iec, hd auf pc und iec2ata sind nicht Block basiert müssen also ganz anders angefasst werden.
Wenn ich dann irgendwann das Internet als Gerät habe ist das mit dem erkennen ... 1541 1581 html...

emulaThor · 4. Mai 2019

So, habe mal das Basic-Programm aus Post Nummer 6 etwas aufgeräumt, funktional sollte sich aber nichts verändert haben.

Wie handhabt Ihr das hier allgemein - gibt es sowas wie ein kollaboratives Arbeiten an Basic-Programmen? Wahrscheinlich gibt es viele Gründe, dass man als 64er-Fan die Existenz von Basic 2.0 nach dem Einschalten des C64 super findet, aber ansonsten im Jahr 2019 nichts mehr damit zu tun haben will.

Jedenfalls kann ich im Sourcecode-Editor vom Board hier kein petcat-Syntax-Highlighting auswählen... Gibt es hier Leute, die regelmäßig Basic-Programm-Updates veröffentlichen? Wie machen die das? Via Github und Konsorten? Über Beispiele wäre ich dankbar.

C

10 print "---------------------------------------"
20 print "this tool changes the device number of"
30 print "the built-in 1571 drive"
40 print "and moves pi1541 to device 8"
50 print "---------------------------------------"
60 print "detecting devices 8-11"
70 print "---------------------------------------"
80 le=0:p1=0:c7=0
90 for d = 8 to 11:gosub 200:next d
100 print "---------------------------------------"
110 if le>0 then print "* first unused device number:"le
120 if p1>0 then print "* pi1541 at:"p1
130 if p1=0 then print "* did not find a pi1541 in browse mode"
140 if c7=8 then print "* found built-in 1571 at:"c7
150 if c7=0 then print "* no built-in 1571 found at number 8"
160 print "---------------------------------------"
170 if le>0 and p1>0 then if p1<>8 or c7>0 then goto 400
180 print "nothing to do or move... exiting":end
190 rem ====== detect drive d =======
200 open1,d,2:close1
210 if d < 10 then print" ";
220 if st<>0 then gosub 450:return
230 open1,d,15
240 print# 1,"m-r";chr$(51);chr$(255): rem address 65331
250 get# 1,a$:t=asc(a$):close 1
300 if t= 76 then print d;"1541-ii":return
310 if t=170 then print d;"1541":return
320 if t= 48 then p1=d:print d;"pi1541":return
330 if t=108 then print d;"1581":return
340 if t<>173 then print "unknown"+str$(t):return
350 print d;"1571": if d=8 then c7=8
360 return
390 rem ====== reassign number =====
400 if c7 > 0 then dn="1571":fr=c7:to=le:gosub 500
410 if c7 = 0 and le=8 then c7=8
420 if p1 <> 8 then dn="pi1541":fr=p1:to=c7:gosub 500
430 end
440 rem ====== empty slot ==========
450 if le=0 then le=d
460 print d"-"
470 return
490 rem ====== move device ===========
500 print"moving "dn" from "fr"to"to:open 15,fr,15,"u0>"+chr$(to):close 15
510 return

Alles anzeigen

Zitat von skern

Meiner Erfahrung nach darf man nicht das Gerät erkennen sondern das Medium.

Das ist nicht mein Ziel hier bei diesem Projekt und würde mein Problem nicht lösen, das ich mit diesem Basic-Programm lösen kann.

emulaThor · 5. Mai 2019

Im letzten Posting waren noch Flüchtigkeitsfehler, hier ist die v3. Zukünftige Änderungen werde ich nicht mehr hier im Thread posten, wird sonst zu unübersichtlich. Ich werde den Sourcecode auslagern.

Ich habe eben schon meine Pi1541 auf die neue Version 1.20 aktualisiert. Es kommt noch ein Screenshot, der zeigt, wie es bei mir in der Praxis am C128 aussieht.

C

10 print "---------------------------------------"
20 print "this tool changes the device number of"
30 print "the built-in 1571 drive"
40 print "and moves pi1541 to device 8"
50 print "---------------------------------------"
60 print "detecting devices 8-11"
70 print "---------------------------------------"
80 le=0:p1=0:c7=0
90 for d = 8 to 11:gosub 200:next d
100 print "---------------------------------------"
110 if le>0 then print "* first unused device number:"le
120 if p1>0 then print "* pi1541 at:"p1
130 if p1=0 then print "* did not find a pi1541 in browse mode"
140 if c7=8 then print "* found built-in 1571 at:"c7
150 if c7=0 then print "* no built-in 1571 found at number 8"
160 print "---------------------------------------"
170 if le>0 and p1>0 then if p1<>8 or c7>0 then goto 400
180 print "nothing to do or move... exiting":end
190 rem ====== detect drive d =======
200 open1,d,2:close1
210 if d < 10 then print" ";
220 if st<>0 then gosub 450:return
230 open1,d,15
240 print# 1,"m-r";chr$(51);chr$(255): rem address 65331
250 get# 1,a$:t=asc(a$):close 1
300 if t= 76 then print d"1541-ii":return
310 if t=170 then print d"1541":return
320 if t= 48 then p1=d:print d"pi1541":return
330 if t=108 then print d"1581":return
340 if t<>173 then print "unknown"+str$(t):return
350 print d"1571": if d=8 then c7=8
360 return
390 rem ====== reassign number =====
400 if c7 > 0 then dn$="1571":fr=c7:t0=le:gosub 500
410 if c7 = 0 and le=8 then c7=8
420 if p1 <> 8 then dn$="pi1541":fr=p1:t0=c7:gosub 500
430 end
440 rem ====== empty slot ==========
450 if le=0 then le=d
460 print d"-"
470 return
490 rem ====== move device ===========
500 print"moving "dn$" from "fr"to"t0:open 15,fr,15,"u0>"+chr$(t0):close 15
510 return

Alles anzeigen

emulaThor · 5. Mai 2019

Zitat von wweicht

Ich bevorzuge für das SD2IEC:

10 OPEN15,z,15,"X?":INPUT#15,A$,B$,C$,D$

Mit der heute erschienenen Version 1.20 des Pi1541-Kernels wird "X?" auch unterstützt. Dies kann ich in einer der nächsten Versionen ausprobieren und hätte damit evtl. eine gute Detection inkl. SD2IEC.
https://github.com/pi1541/Pi15…d2c19b846ff1fe66431117b37