Beiträge von Toast_r

So ähnlich habe ich auch mal gedacht, und habe mal sämtlichen PC-Kram, der älter als Pentium war, entsorgt. Nach den ganzen 8086...486 Mainboards lecken sich heute viele Leute die Finger. Oder die tadellose ST-4144R... Ein ewig bohrender Schmerz in der Seele!

Was für ein Glück, daß ich aus sentimentaler Verbundenheit alles, was mit dem Computer auf dem ich "Laufen gelernt" habe (CBM 8032) zu tun hat, behalten habe.

Sieht so aus, als hättest Du die Startadresse (A000) mit ins EPROM gebrannt.

Bei einer PRG Datei sind die ersten beiden Bytes sind die Startadresse, die gehören nicht mit ins EPROM.

Also einfach weglassen.

Man kann 2KB (2516/2716) oder 4KB(2532) EPROMs ohne Adapter oder Jumpereinstellungen direkt verwenden.

00 ist der Opcode BRK, der springt in den Monitor.

Ist im Norton Commander drin.

Versuch mal F9 - L - B (In der deutschen Version 5.5 ausprobiert).

Der Menüpunkt nennt sich verbinden.

Ich wollte auf alle Fälle was stabiles mit Einteilungen für Cassettenhüllen haben.

Insofern passen die wirklich gut. Dumm ist halt nur, daß keine Deckel dabei sind.

Mir wurden nun solche Koffer angeboten:

CK1.jpg

CK2.jpg

CK3.jpg

Aus Blech, sollen sehr stabil sein. Aber leider ohne Deckel.

Ich hadere noch etwas mit mir, ob ich für 35€/Stk zuschlagen soll.

Wären da Deckel bei, hätte ich wohl direkt ja gesagt.

Wie auch immer, es sind vier Stück vorhanden.

Wenn ich mich entschließe, brauche ich davon zwei Stück.

Gibt's hier weitere Interessenten für die verbleibenden zwei?

CF unter DOS 3.2? Hmm... Vielleicht. Ich vermute aufgrund der Kapazität Probleme.

Da es sich um ein DOS 3.2 System handelt, ist da noch das alte FAT Dateisystem mit maximal 32MB Partitionsgröße drauf.

Die Datenmenge dürfte also überschaubar sein, und die Übertragung per Nullmodemkabel keine Ewigkeit dauern.

Beim Anschluß der Platte an ein modernes System würde ich in diesem Fall mit mehreren Fallstricken rechnen.

Moin Christian,

Zitat von DeSegi

-niedrige Seriennummer

2020-10-01-2500.jpg

Wo ist denn da eine niedrige Seriennummer?

Bei Deinem letzten Angebot habe ich mich das übrigens auch schon gefragt....

Da fehlt noch eine wichtige Kleinigkeit:

cbmcomputerhandbuch-1t.jpg

Das war - zumindest fü mich - neben dem original Commodore Handbuch unverzichtbar.

Dementsprechend sieht mein immer noch vorhandenes Exemplar von damals auch ziemlich in Anspruch genommen aus.

So wie ich das jetzt verstanden habe, bekommt der Monitor das über das Magnetfeld vom Trafo mit, was dann die Probleme auslöst.

Soweit ich weiß, wurden im Original diese unsäglichen Sockel von TI verwendet, die nur an der Schmalseite der Pins kontaktieren.

Der 74154 von Tesla ist mir direkt ins Auge gesprungen, dann noch weitere Tesla TTl ICs.

Ostblock-TTLs auf einem Apple 1 ... ist vermutlich auch nicht originalgetreu, oder?

Tja, habe mal nach der Nummer auf der Karte gesucht, da findet sich lediglich die Beschreibung 3.3V 4MB Memory Card.

Nicht so richtig aussagekräftig.

Ich würde es drauf ankommen lassen ... öffnen und nachsehen...

Ist die Speicherkarte eine PCMCIA SRAM Karte? Dann hätte ich die gerne.

Tauschmaterial findet sich dann sicher im MFA-Bereich.

Zitat von zitruskeks

Sehe ich nicht so. Wie gesagt, Netzfrequenzgleichheit war in den allerersten Jahren ein Problem, weil damals die Netzteile entsprechend primitiv waren. Ich habe nie und nirgendwo mit Frequenzen die nicht Vielfache der Netzfrequenz sind irgendwelche Probleme erlebt oder darüber gelesen. Und wie bereits gesagt, CGA, EGA, VGA etc. sind in 50Hz Ländern jahrzehntelang problemlos gelaufen, da war auch nichts mit "Beleuchtungs-Interferenzen". Und PAL selbst hat die 50Hz auch nur, weil man abwärtskompatibel zu den bestehenden 50Hz-Signal sein musste.

50 Hz würde ich eher als problematisch sehen:

Das klingt nach Mikroruckeln, beispielsweise beim Scrolling. Ok, dafür ist ein PET jetzt nicht so der Kandidat, aber es gibt ja gute, pixelgenau Scrollingroutinen, zumindest für Blöcke. Die könnten da schon stottern, meine ich.

PS: Japan. Das halbe Land hat ein 50Hz-Netz aber 60Hz Vertikalfrequenz. Offensichtlich ohne Probleme.

Alles anzeigen

Was sind für Dich 'die allerersten Jahre'?

Fest steht, daß bei den CBMs das Bild nicht mehr stabil ist, wenn Netzfrequenz und Bildwiederholrate nicht zusammenpassen.

Das hat nix mit Ruckeln zu tun. Das Problem entsteht im analogen Teil des Monitors.

Erstmal nur ein Gedanke:

Für die Vereinsmitglieder gibt es die CD zum Heft dazu.

Andere erhalten die Load wie bisher gegen eine Spende ab 5€.

Bei einer Spende ab 10€ gibt's die CD dazu, solange noch welche da sind.

Interessant. In einfacher Kartontasche 354€/300Stk.

Zumindest eine Überlegung wert.

Sorry, aber ich komme da nicht mit.

Wo ist denn da jetzt die Pointe?

Zitat von PeterSieg

[...]

für alle Vereinsmitglieder:

Gebrannte CD im Heft - evtl. mit Lightscribe beschriftet?

Wer soll die denn alle brennen?

Zumindest ich habe für solche Eskapaden keine Zeit.

Die Kollisionsabfrage dürfte in Basic am schnellsten sein, wenn man an der betreffenden Stelle einfach den Inhalt des Bildschrimspeichers ausliest.

Die richtige Speicherstelle aus der Position zu berechnen ist keine große Sache.

Durch die Erklärung von Martin verstehe ich nun endlich, warum das Bild auf dem 8032 schwimmt, wenn ich es mit einem bestimmten Programm auf 40 Zeichen umstelle. Der CRTC wird auf 60 Hz eingestellt, und das passt für den 50 Hz Monitor nicht.

So, hier nun das Programm.

10 REM  ************
20 REM  *   2048   *
30 REM  ************
40 PRINT CHR$(27)"[2J";
100 W=2: REM    **** W=0 FOR LOOSE W=1 FOR WIN W=2 FOR PLAYING ****
110 DIM MA(4,4)
120 FC=16:REM FREECELLS
130 SC=0:MT=2:AM=1:REM SC=SCORE MT=MAXTILE AM=ALLOWED MOVE
140 GOSUB 1000:REM DRAW SCREEN
150 GOSUB 1500:REM PRINT SCORE AND MAXTILE
160 AM=1:GOSUB 1700:REM PUT FIRST "2"
170 GOSUB 2000:REM PRINT SCORES
200 REM  ******************
210 REM  MAIN PROGRAM
220 REM  ******************
230 REM PRINT CHR$(27)"[22;38H";
235 IF W<2 THEN GOTO 950:REM  ******* END GAME ********
240 A$=INKEY$:IF A$="E" OR A$="e" THEN GOTO 999
280 REM  ************************
285 REM  FOLLOWING LINES HANDLE UP, LEFT, RIGHT, DOWN
290 REM  ************************
300 IF A$="8" THEN GOSUB 2500:GOSUB 3500:GOSUB 2500:GOSUB 1700:GOSUB 2000:GOSUB 1500
350 IF A$="4" THEN GOSUB 2600:GOSUB 3600:GOSUB 2600:GOSUB 1700:GOSUB 2000:GOSUB 1500
400 IF A$="6" THEN GOSUB 2700:GOSUB 3700:GOSUB 2700:GOSUB 1700:GOSUB 2000:GOSUB 1500
450 IF A$="2" THEN GOSUB 2800:GOSUB 3800:GOSUB 2800:GOSUB 1700:GOSUB 2000:GOSUB 1500
460 GOTO 200
950 PRINT CHR$(27);"[10;0H";
960 PRINT "          ********************"
970 IF W=1 THEN PRINT "          *    YOU   WIN     *"
980 IF W=0 THEN PRINT "          *    YOU   LOOSE   *"
990 PRINT "          ********************"
995 PRINT "               SCORE  =";SC
996 PRINT "               MAXTILE=";MT
999 END
1000 REM  DRAW FRAME + SCORE
1010 FOR I=1 TO 5
1020 VT=1+(I-1)*4:PRINT CHR$(27)"[";VT;";0H";
1025 PRINT "-------------------------------------------------"
1030 NEXT
1040 FOR I=1 TO 4
1050 FOR J=1 TO 3
1060 VT=1+(I-1)*4+J:PRINT CHR$(27)"["VT";0H";
1065 PRINT "|           |           |           |           |"
1070 NEXT : NEXT
1090 PRINT CHR$(27);"[3;65H8"CHR$(27);"[9;65H2"CHR$(27);"[6;60H4"CHR$(27);"[6;70H6"
1130 PRINT CHR$(27);"[12;60HE = END"CHR$(27);"[14;60HSCORE:"CHR$(27);"[16;60HMAX TILE:"
1200 RETURN
1500 REM  ***************
1501 REM  PRINT SCORE + MAXTILE
1502 REM  ***************
1510 PRINT CHR$(27);"[14;67H";
1520 SC$=STR$(SC):LS=LEN(SC$)
1530 FOR I=1 TO 7-LS: PRINT " ";: NEXT
1540 PRINT SC$CHR$(27);"[16;69H";
1560 MT$=STR$(MT):LS=LEN(MT$)
1570 FOR I=1 TO 5-LS:PRINT " ";: NEXT
1580 PRINT MT$
1590 IF MT=2048 THEN W=1: REM *** YOU WIN ***
1595 AM=0
1690 RETURN
1700 REM  ****************
1701 REM  PUT A "2" IN A RANDOM EMPTY CELL
1702 REM  ****************
1705 IF AM=0 THEN PRINT CHR$(7):RETURN
1708 IF FC=0 THEN W=0:GOTO 1800:REM *** YOU LOOSE ***
1710 K=INT(RND(1)*FC+1)
1720 N=0
1730 FOR I=1 TO 4
1740 FOR J=1 TO 4
1750 IF MA(I,J)=0 THEN N=N+1
1760 IF N=K THEN MA(I,J)=2:FC=FC-1:I=4:J=4
1780 NEXT:NEXT
1800 AM=0:RETURN
2000 REM  *************
2001 REM  WRITE THE CELL CONTENT AND CALC. FREECELLS AND MAXTILE
2002 REM  *************
2005 FC=0:MT=0:REM INITIALIZE FREECELLS AND MAXTILES
2010 FOR I=1 TO 4
2020 FOR J=1 TO 4
2030 PRINT CHR$(27);"["3+(I-1)*4";"2+(J-1)*12"H";CHR$(27)"[3m    "CHR$(27)"[m";:
2040 PRINT CHR$(13);CHR$(27);"["2+(J-1)*12"C";
2050 IF MA(I,J)=0 THEN FC=FC+1: GOTO 2060
2055 M$=STR$(MA(I,J)):PRINT CHR$(27)"[3m"RIGHT$(M$,LEN(M$)-1)CHR$(27)"[m"
2060 IF MA(I,J)>MT THEN MT=MA(I,J)
2090 NEXT:NEXT
2190 RETURN
2500 REM  *****************
2510 REM   COMPACT UP - KIND OF BUBBLE SORT
2520 REM  *****************
2530 FOR J=1 TO 4
2540 FOR K=3 TO 1 STEP -1
2550 FOR I=1 TO K
2560 IF MA(I,J)=0 THEN MA(I,J)=MA(I+1,J):MA(I+1,J)=0:IF MA(I,J)<>0 THEN AM=1
2570 NEXT:NEXT:NEXT
2590 RETURN
2600 REM  ************
2610 REM  COMPACT LEFT
2620 REM  ************
2630 FOR I=1 TO 4
2640 FOR K=3 TO 1 STEP -1
2650 FOR J=1 TO K
2660 IF MA(I,J)=0 THEN MA(I,J)=MA(I,J+1):MA(I,J+1)=0:IF MA(I,J)<>0 THEN AM=1
2670 NEXT:NEXT:NEXT
2690 RETURN
2700 REM   ************
2710 REM   COMPACT RIGHT
2720 REM   ************
2730 FOR I=1 TO 4
2740 FOR K=2 TO 4
2750 FOR J=4 TO K STEP -1
2760 IF MA(I,J)=0 THEN MA(I,J)=MA(I,J-1):MA(I,J-1)=0:IF MA(I,J)<>0 THEN AM=1
2770 NEXT:NEXT:NEXT
2790 RETURN
2800 REM   *****************
2810 REM    COMPACT DOWN
2820 REM   *****************
2830 FOR J=1 TO 4
2840 FOR K=2 TO 4
2850 FOR I=4 TO K STEP -1
2860 IF MA(I,J)=0 THEN MA(I,J)=MA(I-1,J):MA(I-1,J)=0:IF MA(I,J)<>0 THEN AM=1
2870 NEXT:NEXT:NEXT
2890 RETURN
3500 REM  ***************
3510 REM  ADD UP
3520 REM  ***************
3530 FOR J=1 TO 4
3540 FOR I=1 TO 3
3550 IF MA(I,J) THEN IF MA(I,J)=MA(I+1,J) THEN MA(I,J)=MA(I,J)*2:MA(I+1,J)=0:SC=SC+MA(I,J):AM=1
3560 NEXT:NEXT
3590 RETURN
3600 REM  **************
3610 REM  SUM LEFT
3620 REM  **************
3630 FOR I= 1 TO 4
3640 FOR J= 1 TO 3
3650 IF MA(I,J) THEN IF MA(I,J)=MA(I,J+1) THEN MA(I,J)=MA(I,J)*2:MA(I,J+1)=0:SC=SC+MA(I,J):AM=1
3660 NEXT:NEXT
3690 RETURN
3700 REM  **************
3710 REM  SUM RIGHT
3720 REM  **************
3730 FOR I= 1 TO 4
3740 FOR J= 4 TO 2 STEP  - 1
3750 IF MA(I,J) THEN IF MA(I,J)=MA(I,J-1) THEN MA(I,J)=MA(I,J)*2:MA(I,J-1)=0:SC=SC+MA(I,J):AM=1
3760 NEXT:NEXT
3790 RETURN
3800 REM   ***************
3810 REM   ADD DOWN
3820 REM   ***************
3830 FOR J= 1 TO 4
3840 FOR I= 4 TO 2 STEP  - 1
3850 IF MA(I,J) THEN IF MA(I,J)=MA(I-1,J) THEN MA(I,J)=MA(I,J)*2:MA(I-1,J)=0:SC=SC+MA(I,J):AM=1
3860 NEXT:NEXT
3890 RETURN

Weniger Pins?

Ich kenne XTA als 40 poligen Anschluß, der somit optisch nicht von ATA zu unterscheiden ist.

Natürlich sollte das dabei sein.

Reiche ich nach, sobald ich wieder am Rechner bin.

Zu der Zeit hatten wir eine Telenorma TR40 Telefonanlage.

Da sah das Telefon so aus:

TR-40-2R5.jpg

Angeregt duch den Thread Selbstgeschriebene Spiele für die Commodore PET/CBM-Reihe möchte ich hier mal meine unfertige 2048-Anpassung für den MFA mit MBASIC unter CP/M mit der MFA-Video-Serial Karte vorstellen.

Grundlage ist diese Applesoft-Variante des Spiels, das ich einfach 1:1 ins MBASIC kopiert und dann angepasst habe.

Diese Version enthielt keine Prüfung, ob ein Zug zulässig ist, es wurden also auch unzulässige Züge durchgeführt.

Die Prüfung habe ich naträglich eingefügt.

Ich habe noch keine erwähnenswerten Optimierungen durchgeführt, was man dem Programm auch anmerkt: Es ist ziemlich verdammt langsam.

Auf der Z180 CPU mit 16 MHz ist die Geschwindigkeit so gerade erträglich. Bei 33 MHz ist es angenehm spielbar.

Auf der 8085 CPU habe ich es noch nicht ausprobiert. Da dürfte es absolut unerträglich sein.

Momentan fehlt mir die Lust und die Zeit, das zu optimieren. Und auf der 33 MHz Z180 CPU läuft es ja mit angenehmer Geschwindigkeit.

Die Bidschirmausgabe nutzt die VT-100 Terminalcodes incl. doppelt hoher Schrift für die Zahlen im Spielfeld auf der MFA Video-Serial Karte.

Schau mal hier: FAST.BAS : "Rasen mit 310 Km/h" in BASIC - sollte eigentlich ein 10-Zeiler werden, aber da es dann auch spielbar und mit Anreiz sein sollte, sind es 13 Zeilen geworden

In Beitrag 21 findest Du dort ein paar Tips zur Geschwindigkeitsoptimierung in Commodore Basic.

Der Rest des Threads ist aber ebenso lesenswert.

Der Test macht Schreib- und Leseoperationen und protokolliert die Soft Errors.

Soft Errors sind die Fehler, die die Floppy korrigieren kann, die also im normalen Betrieb keine Fehlermeldung erzeugen und daher garnicht auffallen.

Damit kann man des Zustand der Floppy erheblich besser beurteilen, als mit Tests, bei denen nur die Hard Errors (also die unkorrigierbaren, die dann tatsächlich eine Fehlermeldung erzeugen) protokolliert werden.

Der Soft Error Test läuft auf der CPU der Floppy.

Die Floppy kann nach dem Start des Tests vom Rechner getrennt (IEEE-Bus) werden.

Die Ergebnisse werden auf den Test-Disketten gespeichert und können mit dem Programm nach dem Testende ausgelesen werden.

Um das nochmal klarzustellen:

Die Äußerung abweichender Meinungen ist im Gegensatz zu Fäkalsprache und Niveau unterhalb der Gürtellinie in Ordnung.

Stimmt nicht. Diese Linie endete mit Windows ME.

Die Linie, in der Windows 10 steht, begann mit Windows NT 3.0.

Es gibt - insbesondere von Supermicro - ATX-ähnliche Servergehäuse.