Beiträge von Schroeder

Zitat von 1ST1

Ich frage mich übrigens immer, wenn ich solche Angebote sehe, wieso diese vielen interessanten Sachen aus der Zeit vor der Wende immer in Ungarn oder Bulgarien auftauchen. Hat da einer eine Erklärung dafür?

Evtl. durch die Hintertür weil nicht so gut abzuschotten?

Bzgl. PCs, ich hätte da noch einen 286er, eine VAXmate, die über PCSA bootet. Die VAXmate läuft aber noch nicht aber es ist ja noch Zeit. Der Rest steht immerhin.

Zitat von ThoralfAsmussen

Das mit dem DEC habe ich jetzt auch nicht kapiert ...

wahrscheinlich reines Wunschdenken.

Ich denke, der Name ARM wird in keiner Form auftauchen. Die werden IMMER NUR von "Apple Silicon" oder A15 oder sowas reden.

Zitat von Dr.Zarkov

akt ist, dass in den letzten 10 Jahren eine dumme Idee der anderen folgte, und MacOS (X) immer schlechter wurde. Ab einer bestimmten Größe scheinen Firmen nicht mehr kreativ sein zu können. Siehe auch die deutsche Autoindustrie,

Stimmt schon. Am Anfang war das MacOS als es ganz neu war und Unix wurde irgendwie spannender. Aber sie haben schon immer mal wieder was Neues gehabt, sei es TimeMachine oder das Retina Display oder auch die Emoji Erweiterungen. Und ganz toll, daß man sich am iPhone und iPad ( aber nur dem wirklich aktuellen ) z.B. aufnehmen kann und das Gesicht komplett durch eine Comicfigur ersetzen läßt. Diese übernimmt dann die Mimik dessen, der in die Kamera schaut. Das ist schon - auch in der Einfachheit - eine schöne Demo, was da kommen wird, wenn "KI" mal durchstartet ( ob das sinnvoll ist, ist mal was anderes, aber neu ist es - einfach mal anschauen im Shop ).

Wahrscheinlich werden große Firmen einfach übervorsichtig. Das sowas natürlich durch einen Typ wie den Herrn CEO von Apple sicherlich noch befördert wird, ist natürlich davon unabhängig. Auf der anderen Seite, kann man nicht sagen, daß er es nicht probiert und auch wenn vermutlich die ganz große Neuigkeit von einem Apple unter Cook nicht zu erwarten ist, stimmt alles anderes ganz gewaltig. Einfach mal bei einem finance Portal mal nach AAPL suchen. Das ist eine echte Dagobert Duck Kurve ...

Zu den Namen : Es ist schon schön, wenn ein Rechner einen schönen Namen hat. Und bei Apple hat es das auch immer mal wieder gegeben, manchmal auch nur zufällig, weil die Maschine toll war - etwa beim "G3" , aber der Name ist eben auch neu gewesen und prägnant. Ebenso XServe. Oder sowas wie iPod - ist doch fast genial.

Daher: ein schöner neuer Name für eine komlett neue Architektur wäre schon schick.

Alles anzeigen

Nö, DEC passt zum Thema oder, wo ist der Sack Reis umgefallen?

Meine persönliche Ignoranz zum Thema moderne Apple Mafia.

Von meinem iPad geschrieben

Der Schwerpunkt ist doch IBM PCs? Richtig?

Warum machen wir nicht eine Programmchallenge aktuelle Spiele, wie 2048, auf den PC zu portieren.

Dann würde die Diskette auch Sinn machen wenn diese nur ein Format unterstützen müsste.

So, "PC Schwerpunkt mit Diskette zum Thema"

Wer schreibt 2048 in ASM? Ich kann eine Version für DOS 2.1 machen

Also, DEC lizensiert ARM und verkauft diese unter den Namen Beta an Apple. Da hätten wir nach dem Alphabook ein Betabook. Betabook the better book ... und wieder was von DEC. Also auch ein DECbook ...

Warum nicht auf reinen Text einigen. Copy & Paste geht ja auf fast alle Rechner bzw. ein Textfile transferieren ist ja nicht schwer.

Wenn das auch noch als Link ins Forum geht, haben wir auch noch entsprechende Teaser.

Gruss

Peter

Leicht angepasst für VMS BASIC

Ich werde noch einige unwichtige Zeilennummern entfernen. Die sind noch als Referenz für Compiler ERROR geblieben.

Eine Sache ist beim PRINT unter VMS BASIC anders. Eine Zahl hat immer ein führendes Leerzeichen. Daher die Formatierung über STR$(). Ansonsten funktioniert die ESC Sequenz ESC[x;yH nicht.

1 PROGRAM PRG2048
10 !  ************
20 !  *   2048   *
30 !  ************
40 PRINT CHR$(27);"[2J";
100 ! W=0 FOR LOOSE W=1 FOR WIN W=2 FOR PLAYING ****
101 W=2
110 DIM MA(4,4)
120 ! FREECELLS
121 FC=16
130 ! SC=SCORE MT=MAXTILE AM=ALLOWED MOVE
131 SC=0
132 MT=2
133 AM=1
140 GOSUB DRAW_SCREEN
150 GOSUB PRINT_SCORE
160 AM=1
165 GOSUB PUT_FIRST_2
170 GOSUB WRITE_CELL
200 MAIN_LOOP:
201   !  ******************
210   !  MAIN GAME LOOP
220   !  ******************
230   ! PRINT CHR$(27);"[22;38H";
235   IF W<2
        THEN
        GOTO END_GAME
      END IF
240   A$=INKEY$(0%,WAIT)
245   IF A$="E" OR A$="e"
        THEN
        GOTO EXIT_GAME
      END IF
280   !  ************************
285   !  FOLLOWING LINES HANDLE UP, LEFT, RIGHT, DOWN
290   !  ************************
295   VALID_KEY=0
300   IF A$="8"
        THEN
        VALID_KEY=1
        GOSUB COMPACT_UP
        GOSUB SUM_UP
        GOSUB COMPACT_UP
      END IF
350   IF A$="4"
        THEN
        VALID_KEY=1
        GOSUB COMPACT_LEFT
        GOSUB SUM_LEFT
        GOSUB COMPACT_LEFT
      END IF
400   IF A$="6"
        THEN
        VALID_KEY=1
        GOSUB COMPACT_RIGHT
        GOSUB SUM_RIGHT
        GOSUB COMPACT_RIGHT
      END IF
450   IF A$="2"
        THEN
        VALID_KEY=1
        GOSUB COMPACT_DOWN
        GOSUB SUM_DOWN
        GOSUB COMPACT_DOWN
      END IF
455   IF VALID_KEY
        THEN
        GOSUB PUT_FIRST_2
        GOSUB WRITE_CELL
        GOSUB PRINT_SCORE
      END IF
460 GOTO MAIN_LOOP

1000 DRAW_SCREEN:
1001 ! DRAW FRAME + SCORE
1010   FOR I=1 TO 5
1020     ROW$=STR$(1+(I-1)*4)
1022     PRINT CHR$(27);"[";ROW$;";0H";
1025     PRINT "-------------------------------------------------"
1030   NEXT I
1040   FOR I=1 TO 4
1050     FOR J=1 TO 3
1060       ROW$=STR$(1+(I-1)*4+J)
1062       PRINT CHR$(27);"[";ROW$;";0H";
1065       PRINT "|           |           |           |           |"
1070     NEXT J
1075   NEXT I
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;60
HMAX TILE:";":"
1150 RETURN

1500 PRINT_SCORE:
1501   !  ***************
1502   !  PRINT SCORE + MAXTILE
1503   !  ***************
1510   PRINT CHR$(27);"[14;67H";
1520   SC$=STR$(SC)
1525   LS=LEN(SC$)
1530   FOR I=1 TO 7-LS
         PRINT " ";
       NEXT I
1540   PRINT SC$;CHR$(27);"[16;69H";
1560   MT$=STR$(MT)
1565   LS=LEN(MT$)
1570   FOR I=1 TO 5-LS
         PRINT " ";
       NEXT I
1580   PRINT MT$
1590   IF MT=2048
          THEN
          W=1
          ! *** YOU WIN ***
       END IF
1595   AM=0
1596 RETURN

1700 PUT_FIRST_2:
1701   !  ****************
1702   !  PUT A "2" IN A RANDOM EMPTY CELL
1703   !  ****************
1705   IF AM=0
         THEN
         PRINT CHR$(7)
         RETURN
       END IF
1708   IF FC=0
         THEN
         W=0
         GOTO 1800
         REM *** YOU LOOSE ***
       END IF
1710   K=INT(RND*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
           END IF
1760       IF N=K
             THEN
             MA(I,J)=2
             FC=FC-1
             I=4
             J=4
           END IF
1780     NEXT J
1785   NEXT I
1800   AM=0
1900 RETURN

2000 WRITE_CELL:
2001   !  *************
2002   !  WRITE THE CELL CONTENT AND CALC. FREECELLS AND MAXTILE
2003   !  *************
2005   FC=0
2006   MT=0
2007   ! INITIALIZE FREECELLS AND MAXTILES
2010   FOR I=1 TO 4
2020     FOR J=1 TO 4
2021       ROW$=STR$(3+(I-1)*4)
2022       COL$=STR$(2+(J-1)*12)
2030       PRINT CHR$(27);"[";ROW$;";";COL$;"H";CHR$(27);"[3m    ";CHR$(27);"[m"
;
2040       PRINT CHR$(13);CHR$(27);"[";COL$;"C";
2050       IF MA(I,J)=0
            THEN
            FC=FC+1
            GOTO 2060
           END IF
2055       M$=STR$(MA(I,J))
2056       PRINT CHR$(27);"[3m";RIGHT$(M$,LEN(M$)-1);CHR$(27);"[m"
2060       IF MA(I,J)>MT
             THEN
             MT=MA(I,J)
           END IF
2090     NEXT J
2091   NEXT I
2095 RETURN
2500 COMPACT_UP:
2501   !  *****************
2510   !   COMPACT UP - KIND OF BUBBLE SORT
2520   !  *****************
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
               END IF
             END IF
2570       NEXT I
2580     NEXT K
2585   NEXT J
2590 RETURN
2600 COMPACT_LEFT:
2601   !  ************
2610   !  COMPACT LEFT
2620   !  ************
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
               END IF
             END IF
2670       NEXT J
2680     NEXT K
2685   NEXT I
2690 RETURN

2700 COMPACT_RIGHT:
2701   !   ************
2710   !   COMPACT RIGHT
2720   !   ************
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
               END IF
             END IF
2770       NEXT J
2780     NEXT K
2785   NEXT I
2790 RETURN

2800 COMPACT_DOWN:
2801   !   *****************
2810   !    COMPACT DOWN
2820   !   *****************
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
               END IF
             END IF
2870       NEXT I
2880     NEXT K
2885   NEXT J
2890 RETURN

3500 SUM_UP:
3501   !  ***************
3510   !  ADD UP
3520   !  ***************
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
             END IF
           END IF
3560     NEXT I
3565   NEXT J
3590 RETURN

3600 SUM_LEFT:
3605   !  **************
3610   !  SUM LEFT
3620   !  **************
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
             END IF
           END IF
3660     NEXT J
3665   NEXT I
3690 RETURN

3700 SUM_RIGHT:
3705   !  **************
3710   !  SUM RIGHT
3720   !  **************
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
             END IF
           END IF
3760     NEXT J
3765   NEXT I
3790 RETURN

3800 SUM_DOWN:
3805   !   ***************
3810   !   ADD DOWN
3820   !   ***************
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
             END IF
           END IF
3860     NEXT I
3865   NEXT J
3890 RETURN

! END GAME
4000 END_GAME:
4010 PRINT CHR$(27);"[10;0H";
4020 PRINT "          ********************"
4030 IF W=1 THEN PRINT "          *    YOU   WIN     *"
4040 IF W=0 THEN PRINT "          *    YOU   LOOSE   *"
4050 PRINT "          ********************"
4060 PRINT "               SCORE  =";SC
4070 PRINT "               MAXTILE=";MT
4100 EXIT_GAME:
4200 END PROGRAM

Die Nummer 12, was ist das für einer? Und Abholung wäre zu klären.

Wegen der IBM Tastatur melde ich mich noch.

Gruss

Peter

Hier mal drei Szenarien:

Sind alle Server plus Quorum-Platte intakt dann ist für alle drei Szenarien das Quorum genau (3+2)/2=2; (Server1+Server2+Quorum Disk)=3

1. Unterbrechung im LAN zwischen Server 1 und Server 2. Beide Server sehen noch die Quorum disk aber nicht mehr sich selber da SCSI keine Clusterkommunikation unterstützt. Beide Server bilden ein unabhängiges Cluster und schreiben fleissig unsyncronisiert "Common" Daten. Server1=Votes=(1+1)=2=OK

Server2=Votes=(1+1)=2=OK

OK+OK=NOK

2. Die SCSI Disk als Quorum Disk hängt über einen Multihostfähigen Controller im LAN. Der Server der die Verbindung zum Storage und damit zur Quorum Platte verliert stellt seinen Betrieb ein.

Server1=Votes=(1+1)=2=OK

Server2=Votes=(1+0)=1=NOK

OK+NOK=OK

2. Eine DSSI Platte als Quorum Platte hängt an Server1 und Server2. Da DSSI eine Clusterkommunikation erlaubt, können sich beide Server bei einem Ausfall im LAN weiter unterhalten. VMS wird die DSSI Verbindung auch als Standard nutzen und erst auf LAN umschalten wenn es über DSSI Probleme gibt.

Server1=Votes=(1+2)=3=OK

Server2=Votes=(1+2)=3=OK

OK+OK=OK

Machen wir mit der Quorum disk weiter. Die Quorum disk ist eine Platte die bei einem Zweiservercluster genutzt wird, bei Ausfall eines Server den Weiterbetrieb des Clusters sicher zu stellen ohne das Teile des Clusters sich ablösen und seperat laufen.

Eine Quorum disk muss von beiden Servern sichtbar sein, heisst, direkt im Zugriff und nicht durch den anderen Server bereitgestellt. Was Sinn macht

Die Quorum disk wird also entweder über einen Storage Interconnect oder über ein am Netzwerk hängendes Storage bereit gestellt. Es geht auch über SCSI mit Multihost fähigen Adaptern aber das war, glaube ich, bei den VAXen eh nicht möglich.

Geben wir der Quorum Platte einen Vote und wie gehabt, jeden Server eine weitere so ergibt sich folgendes:

Bei intakten Cluster: ((Server1+Server2+Quorumdisk)+2)/2= (3+2)/2 = Erwartetes Quorum 2

Fällt ein Server oder die Quorum disk aus: (2+2)/2= Quorum 2 und damit 2=2

Ganz wichtig: Es muss immer vehindert werden, dass beide Server Zugrif auf die Quorum Disk haben aber sich selber nicht mehr sehen können. In einem solchen Fall hätte ich plötzlich zwei Cluster Einzelservercluster am laufen welches zu inkonsistenzen bei den geteilten Dateien führt.

Zitat von mdx

Nicht ganz neu, aber läuft endlich wieder: mein Ferrari (Sun 3/60). Das Teil soll als Ausstellungsstück auf einer Messe gedient haben und wurde zu diesem Zweck hübsch angemalt.

Ich möchte versuchen die rote Farbe zu entfernen, über Hinweise wie man da rangehen könnte würde ich mich sehr freuen!

Tastaturadapter (type 4/5 an type 3) habe ich am Wochenende gebastelt, P4 cgfour ist eingebaut. Jetzt laufen SunView und OpenWindows auf der 3/60 und ich bin dabei Software zu installieren, angefangen mit GCC damit ich einen ANSI C Compiler habe...

Alles anzeigen

Du sollst die VAXStations nicht stapeln sondern aufbauen und nutzen ...

Zitat von CBM_Ba

Juhhuuuuuu! DAS WIRD!

Ich bring den Robotron nach Münchberg. Wollte zwar eigentlich Sonntag kommen, aber evtl. kuck ich dann kurz zwei Tage vorbei.
Hauptsache, der Spionagecomputer findet seinen weg nach Haltern am See!

Ich fürchte die Lieferung ist erstmal unidirektional

Den PET von Dortmund nach Münchberg ...

Zitat von Hobi

6.10.Dortmund

18.10. Muenchberg

Ahhh, Cool.

Zitat von Hobi

Ich könnte eine Fahrt am 6.10. nach Stuttgart oder Muenchberg anbieten.

Der 16.10 wäre besser, dann könnte ich evtl. den PET in die Richtung bekommen

Habe hier noch eine umschaltbare Tastatur verpackt liegen die der potentielle Empfänger nicht brauchte. Die muss aber mal feucht abgewischt werden.

Bei Interesse bitte Adresse per PN

Hallo!

In einem anderen Thema habe ich ja bereits angefangen den Aufbau eines VAX- / VMSClusters zu beschreiben. Während es dort eher um die Theorie geht, möchte ich paralell dazu jetzt mein Cluster auch physikalisch aufsetzen. Bis auf den DECServer 200/MC, VAX4000/105A und die DSSI Kabel ist alles vorhanden. Die DSSI Kabel konnte ich in England ordern also steht dem Aufbau nichts mehr im Wege.

Meine Anforderungen sind:

1. Ein Cluster mit einem Storage Interconnect für die Clusterserver, hier DSSI

2. Die Möglichkeit alle drei graphischen Oberflächen abrufen zu können, VWS, DECWindows/XUI und DECWindows/Motif

3. Eine VAXmate über Ethernet booten zu können

4. Eine DEC Library RW500 ansprechen zu können

5. Eine DEC Rainbow und eine DECmate II über V24 sinnvoll zu integrieren

6. Ein DEC VXT2000+ zu booten

7. Eine VAXStation 2000, eine VAXStation 3100 und eine VAXStation 3500 als Satelliten zu betreiben

Wahrscheinlich werde ich mich auf VMS 5.5-2 mit den Layered Product CDs von November stürzen müssen. Mit 6.1 könnte ich zwar einen mixed boot mit Alphas aufsetzen aber wie in 6.1 die Unterstüzung für den Rest aussieht konnte ich noch nicht klären. Das ist viel Doku zu lesen.

Hier mal eine kleine Zeichnung noch ohne die VXT2000+ und die DEC RW500 Library. Auch Printer mässig habe ich noch nicht aufgenommen.

Ich würde mich in jeden Fall über Tips und Ratschläge freuen!

Gruss

Peter

Dann hat es von 1993 noch fast 10 weitere Jahre gedauert bis die Workstations dann wirklich im PC Bereich etabliert waren. Es gibt nichts nervigeres als ein Systemabsturz mitten in einer CAD Sitzung. Da kann man es Microsoft im Zusammenspiel mit der offenen PC Architektur verdanken, dass es dann doch noch solange für zumindest einige der Workstation Hersteller lief.

Warum aber Apple in diesen Zusammenhang erwähnt wird erschliesst sich mir nicht. Die hatten doch nun wirklich keinen Marktanteil. Was evtl. auch Glück für Apple war

Abholung der IBM S/1 aus Laar?

DEC VAX zum Thema CISC Architektur?

Eine läuft wieder, war das ein

Zitat von Gardenman

ähh, ich seh noch imm....

Moment!

Ist das ein Stromversorgungsstecker an den Audio-Pins?

Musik fürs Netzteil ...

War in der VAX4000, die ich gestern bekam, verbaut. Hatte mich gewundert warum das CD Laufwerk so gar nichts macht ...

Zitat von Gyrotox

Ok,dann brauch ich nur noch eine Kiste mit Alpha CPU.

An ein AlphaPCI33 Board zu kommen dürfte im PC Sektor noch das einfachste sein.

Zitat von capmilk

Da kommt wieder der Betriebssystem-Snob in mir raus.

Aaaalso. Die Highscreen-Kiste kenne ich nur aus dem Katalog, da lief wahrscheinlich NT 3.5 drauf, oder schon NT 4? Beides wahrscheinlich nicht so schnell, wie die MHz suggerieren, aber das wäre für mich original und erstrebenswert.

Wenn die Kisten das supporten, dann wären die DEC-Unices auch sehr spannend. Und zur Not auch VMS, wenn es mal weh tun darf.

Bei Linux denke ich immer, das läuft überall, warum sollte man das auf so eine spezielle Kiste tun?

Alles anzeigen

Linux? Warum nicht!

image.jpg

Zitat von Toshi

Zitat von Schroeder

Die LK201 ist kompatibel zur LK401 die eher zur AXP passt und auch moderner ist. Nicht unbedingt besser. Evtl. Meinst du die 401?

Eine 401 hab ich auch, die hat aber einen runden PS/2 Like Anschluß und nicht den Westernstecker.....

Sicher, dass das keine LK411 ist?

Die LK201 ist kompatibel zur LK401 die eher zur AXP passt und auch moderner ist. Nicht unbedingt besser. Evtl. Meinst du die 401?

Zitat von ZahrlAn

Hab den Poti ausgebaut um zu sehen wie ein Ersatz aussehen muss. Hab dann ein paar mal komplett rumgedreht und mit Kontaktspray mal angesprüht.

Dann nochmal gemessen und siehe da, er funktioniert wieder. Also wieder alles zusammengebaut und HEUREKA, er geht.

Jetzt macht Pac-Man und Lode Runner wieder richtig Spaß!

Meist hält das leider nicht von Dauer.

Den PET könnte ich Morgen bis nach Lorsch bekommen!

https://comp.os.vms.narkive.co…ls-help-with-x-over-tcpip

Da geht es explizit darum, DECWindows TCP/IP beizubringen. Evtl. des Lesens wert?

Evtl. den Screen mit angeben?

SET DISPLAY/TRANSPORT=TCPIP/SCREEN=1

Uii, die müssten an eine VAX passen.

Bitte Gerne!