Beiträge von Dragonsphere

Zitat von Heilbar

Hast du denn einen Favoriten? Ich dachte eher an eine Karte Ach ja,...läuft der DX4 im WB Modus (mit 512 KB SLC und 64 MB Ram)?

Versteh mich nicht falsch Das wären jetzt Projekt-gebundene Hilfen...die zu genau einem Thema passen.(Einfach so weggeben wollte ich die nicht)
Wenn du also einen Zusammenhang herstellst....

Ich habe großes Interesse daran, die AWE64 mal auszuprobieren. Eine AWE hatte ich noch nie.
Aber auch an der Terratec hätte ich durchaus Interesse, da ich diese Karte ebenfalls nicht kenne und auch keine anderen mit diesem Chipsatz. Deshalb auch meine Frage, ob du mir mehrere Karten ggf. gegen was passendes tauschen würdest? Ich meinte nicht, dass du mehrere Karten einfach hergeben sollst. Ich habe in meiner Sammlung z.B. eine Diamond Speedstar 24x mit WD-Chipsatz, eine ATI Graphics Ultra und ein paar andere hochwertige Grafikkarten. Da sollte sich also eine passende Gegenleistung finden lassen.

Zitat von Benjamin92

Habe an dem Programm und der Doku auf jeden Fall Interesse

Du hast Post

Ich finde ja gerade dieses Gehäuse so besonders. Da kann man sogar seinen Retro-Rechner bei Bedarf vor der Frau im Schreibtisch verstecken!
Aber zwei Systeme in einem Gehäuse, das hat natürlich auch was.

Zitat von Heilbar

Ja wirklich außergewöhnlich und witzige Umschreibung der Ästhetik mit Zusammenhängen wie 'massive Optik' und 'postapokalyptisch' !
So etwas sehe ich das erste mal. Ein echter PC im Netzteil.
Vier kurze Isa Steckplätze. Das ist wahrlich eine Herausforderung.
Läuft die CPU im WB Modus?

Ich denke da wie Struuunz und würde auch eine AWE64 in Erwägung ziehen.
Ich könnte dir zu deinem gelungenen Projekt folgende Karten spendieren (3,- Versand)

AWE64 - CT4500
Terratrec Base -1 V1.0
Aztech - FCC ID:I38-MMSD801 (NXII Sound Galaxy erste Generation)
Und diese OPTI 82c929a...von der ich nichts weiß.

Und bei der Grafik ist deine Diamond Speedstar Plus mit 1 MB nur schwer zu überbieten.

Einen letzten Tipp habe ich noch zu deinem wirklich faszinierenden und auch sehr gut präsentierten Schubladen-Rechner.
Man fragt sich ein wenig, wie es wohl mit dem Luftstrom da im Gehäuse aussieht und der Temperatur. Ist wohl beim DX4 100 noch recht harmlos...
Aber die Flachband-Kabel würde ich auf Länge kürzen. Eine Presszange kann ich die leihen.
Bringt Ordnung, kontrollierte Abluft und den ultimativen Geschwindigkeitsrausch...durch kurze Daten-Wege

Alles anzeigen

Dankeschön!
Eine AWE64 hatte ich bisher nicht in Erwägung gezogen, da sie mir als "zu neu" erschien. Da ich ja kein CD-Laufwerk verbauen kann (ich nutze aber ISO-Images auf CF-Karte und SHSUCDX) und für die Grafik nur ISA zur Verfügung steht, ist die Kiste eher für Spiele aus der SB-Pro bis max. SB16 Zeit geeignet. So dachte ich zumindest bisher, aber bei deinem netten Angebot würde ich das gerne mal ausprobieren.
Eine OPTI82c929a habe ich ja ganz frisch, meine Miro FM10. Auch hat mir der Ranger85 auch so eine Karte zum Tauschen angeboten, von daher kann Oerk die OPTi gerne kriegen.
Die anderen würde ich aber gerne nehmen. Ich habe hier noch ein paar schöne, auch seltenere, ISA-Grafikkarten, die ich dir als kleine Gegenleistung anbieten könnte, falls du da zufällig noch Bedarf hast...

Der Luftstrom im Gehäuse ist ganz gut, aber natürlich wäre es gut die Flachkabel zu kürzen. Hinten ist ein ziemlich starker Papst-Lüfter verbaut, der recht flott die komplette Luft aus dem kleinen Gehäuse zieht.
Vorne, bei dem stylischen Lüftungsgitter, das sogar einen Staubfilter besitzt, kann man richtig fühlen, wie Luft ins Gehäuse gezogen wird. Also kein Problem mit Stauwärme.

Zitat von Darius

Ein sehr schöner Industrie DX4 PC! Und so knuffig klein.
Vor allem kann ja ein DX4 doch einiges ausführen und das Gerät sieht nach 20 Jahren fast wie Neu aus!

Muss wohl in einem sterilen Raum gelaufen sein.

Interessant dass die Grafikkarte den Löffel abgegeben hat...

Dagegen ist mein grüner DX4 Notebook Panzer mit ISA Slot ein Panzer

Alles anzeigen

Danke Darius! Klein und knuffig ist der wohl
Da der Rechner als "Schaltschrank-PC" verkauft wurde und unten ja auch die passenden Montageschienen am Gehäuse hat, wird das wohl das Geheimnis sein. Der stand schlichtweg 20 Jahre im Schrank und hat weder Staub noch Sonnenlicht abbekommen.

Nachdem die Grafikkarte bei dir war und du die kaputte Sicherung identifiziert hast, habe ich sie mir nochmal zur Brust genommen und habe sie mit Elektronikreiniger und Kontaktspray gesäubert, einen komplett neuen Sockel für das Bios und eine neue Sicherung eingelötet und nach bestem Wissen und Gewissen alles durchgemessen. Eingebaut, angeschaltet.... nix! Sicherung war wieder durch.....
Seitdem liegt sie in der Schublade...

Zitat von Benjamin92

Hab exakt das selbe System auch noch hier, auch bei mir macht die GraKa Grafikfehler, gut zu wissen, dass das wohl normal ist

Na dann müssen wir uns aber dringend mal näher zu austauschen!
Spendier deinem eine ordentliche Grafikkarte,etwas mehr RAM + Cache und du hast ein tolles kleines DOS-System

Die Grafikkarten scheinen arg gelitten zu haben. Ich habe rausgefunden, dass es eine Software von HMC gibt, um das Bios zu editieren und an verschiedene Ausgabegeräte anzupassen.
Dann musste das nur neu auf einen EPROM programmiert werden. Bei meiner Kiste war der wohl öfter mal gewechselt worden. Der Sockel für den EPROM ist ziemlich abgenutzt gewesen und vom EPROM selbt aren Beinchen komplett verbogen. Eventuell ist bei dir das Bios nur für irgendein Panel aber nicht richtig für deinen Monitor programmiert. Kann dir das Programm gerne geben, das original Handbuch für den SBC habe ich auch als PDF.

Zitat von Daryl_Dixon

Ist das der Industrie-PC ist den Du im Februar 2016 im "alten Forum" vorgestellt hast?

Genau der ist es. Heilbar hat mich dazu ermuntert, ihn hier nochmal vorzustellen.
Es hat sich aber auch einiges daran verändert, sodass es durchaus neues zu berichten gibt.
Dazu aber morgen mehr, jetzt muss ich dringend ins Bett

Zitat von mac-daniel

Das ist wirklich mal was ausgefallenes

Weisst du was dieser Rechner früher im Dauerbetrieb gemacht hat? Optisch steht er ja wirklich sehr gut da.

Als ich ihn das erste Mal gestartet habe, bootete er DOS 6.22 und Windows 3.11 und hatte zwei Programme im Autostart: "Reachout" und "SG_CAC". Er beschwerte sich bitterlich, dass er nicht mit einem Messgerät verbunden ist und protokkollierte am laufenden Band: "Warnung: CAN Meßumformer antwortet nicht!".
Auf der Festplatte befand sich eine große Menge Dateien in denenen Werte wie Temperatur und Luftfeuchtigkeit protokolliert sind. Daher kann ich euch sagen, dass es an dem Ort, an dem die kleine Kiste am 01.01.1999 um 00:02 stand, 5.5 Grad kühl war. Mehr weiß ich leider nicht und kann auch nur vermuten. Vielleicht kann hier jemand aus dem Forum sagen, was es mit den beiden Programmen auf sich hat und wozu das gebraucht wurde?

Heute möchte ich euch mein liebstes DOS-System vorstellen - meine kleine DOSBox. Und diese hat absolut nichts mit emulation zu tun, sondern ist ein kleiner Industrie-PC.

Dieses graue Kiste, die etwas danach aussieht, als ob ich sie gerade aus der postapokalyptische Welt von Fallout entführt hätte, ist äußert kompakt (mit 22x22x15 cm sogar etwas kleiner als ein Schuhkarton). Der Rechner passt also zusammen mit einer schönen IBM Model M Tastatur, einer Microsoft Maus und einem Sidewinder Joystick perfekt in eine Kommodenschublade. Einfach perfekt.

Mit 1,3 mm Blechstärke ist die Kiste nicht nur optisch ein äußerst solides PC-Gehäuse und auch das Innere kann sich sehen lassen: Hier befindet sich auf engstem Raum ein komplettes 486er-System mit alllem was dazugehört.

Der "Blick unter die Haube":

Das Rückgrat des Ganzen ist eine passive ISA-Backplane, die vier ISA-Slots bereitstellt:

Ein sehr kompaktes AT-Netzteil, Festplatte und Diskettenlaufwerk sind daneben in einem Korb untergebracht.

Das Herzstück des Ganzen bildet ein Single Board Computer der Firma Boser:

Auf einer SA-Karte ist hier ein komplettes 486er Mainboard, inkusive Chipsatz, Cache unnd RAM untergebracht.
Als Prozessor dient hier ein originaler Intel 80486DX4 mit 100 MHz, daneben waren original 128 KB L2 Cache und 4 MB RAM gesteckt. Ich habe mir erlaubt dem System etwas auf die Sprünge zu helfen und alles voll zu bestücken, nun hat er 64 MB RAM und 512 KB 12ns L2 Cache und rennt wie der Teufel
Als ich das schöne Teil bekam, war noch eine Industrie-Grafikkarte verbaut, die zwar diverse technische Raffinessen bietet, aber leider arg langsam und für Spiele nicht wirklich gut geeignet ist. Leider hat sie unter 20 Jahren 24/7 Dauerbetrieb (lässt sich anhand der noch auf der Festplatte vorhandenen Protokolldateien klar erkennen) arg gelitten und verabschiedete sich wenig später mit immer häufiger auftretenden Bildfehlern und letztlich noch einem üblen Kurzschluss.

Also musste eine gute Grafikkarte her und eine Soundkarte fehlte dem System ja auch noch.Und damit begann die Suche. Die optimale Sound- und Grafikkarte für die eigenen Anforderungen zu finden, die dann auch noch mit dem System harmonieren, ist ja für jeden mit unserem Hobby schon eine echte Herausforderung. Wenn ihr jetzt noch einmal auf die Bilder oben schaut werdet ihr sehen, dass es hier noch ein wenig komplizierter ist: Der Länge der Karten sind enge Grenzen gesetzt! Alles was wesentlich über die Länge eines 16 Bit ISA-Slots hinausgeht, passt schlichtweg nicht in das Gehäuse. Also keine Chance für eine der längeren Sound Blaster oder gar eine AWE32.
Bei der Grafik kommt hinzu, dass auch wenn ein schneller 486er verbaut ist, es nur den ISA-Bus gibt. Also totz schneller 486er CPU keine Möglichkeit für VLB oder gar PCI. Da will das richtige Setup sehr gut überlegt sein.

Diesen kleinen Rechner habe ich daher besonders in mein Herz geschlossen. Die massive Optik mit dem dicken Blech liebe ich, er nimmt kaum Platz weg und für unser liebstes Hobby bietet er mit seinen engen Grenzen bezüglich der möglichen Hardware immer wieder echte Herausforderungen. Es gilt also, aus sehr begrenzten Möglichkeiten das Maximum herauszuholen und das macht (zumindest mir) irre viel Spaß.

Hier meine aktuelle Konfiguration:

Prozessor: Intel DX4/100

Mainboard/SBC: Boser SSC-486H Ver. C Half-sized 486
Bios: AMI Winbios (Versionsdatum 25.7.1994)
Chipsatz: UMC UM8498F
L2-Cache: 512KB, 12ns
Arbeitsspeicher: 2x32 MB EDO-RAM
Festplatte: Ursprünglich eine Seagate mit 2 GB, mittlerweile ersetzt durch 2 CF-Karten-Leser.
Grafik: Diamond Speedstar Plus mit 1 MB
Sound: SoundBlaster 16 (CT2770), aktuell bin ich auf der Suche nach einer SB Pro Alternative für ältere Spiele.

Die Fortsetzung mit Benchmarks und weiteren Details folgt....

Zitat von Heilbar

von der Karte würde ich gerne mal ein Beispiel hören. Nach deinem Lob um so mehr.

Ich lese in deiner Signatur den DX-4....(neugierig) und mit wie viel Mhz hast du den laufen?

Hallo Heilbar,
sehr gerne. Ich vergleiche gerade ein paar SB Pro Clone und mache da in den nächsten Tagen auch noch ein Thema für auf.
Der DX-4 läuft mit 100 MHz und ich habe ihm satte 512 KB L2-Cache spendiert. Der rennt richtig gut und macht viel Spaß. Meine DOS-Kiste ist ein Industrierechenr, ursprünglich zur Analgensteuerung, der etwa die Maße eines Schuhkartons besitzt. Im anderen Forum hatte ich den Rechner vor 1,5 Jahren mal ausführlich vorgestellt. Wenn ich etwas mehr Zeit finde, kann ich ihn hier ja auch mal vorstellen und zeigen, was daraus so geworden ist.

Neu bei mir ist eine Miro FM10, das ist die kleine Schwester der bekannteren OPL-4 Wavetable-Karten PCM 10 und PCM12. Hier gibt es "nur" einen echten OPL-3.
Kurz getestet und sehr zufrieden. Die Karte ist sehr rauscharm, hat einen tollen Tiefpass-Filter, sie gehört definitv zu meinen besten Karten für FM-Musik.
Sound Blaster Pro funktioniert auch prima. Nur Tyrian zickt mal wieder rum, läuft dafür aber super im WSS-Modus mit dieser Karte.
Interessant finde ich auch den hier ungewöhnlicher Weise mal unten angebrachten Anschluss für Wavetablekarten. Der steht auf dem Kopf, sodass auch sehr große Daughterboards problemlos angeschlossen werden können.

Gute Idee! Wäre eine echte Herausforderung, denn ich habe erst unter Windows angefangen mit C++ zu programmieren. Aber ich habe viele Pascal Quellecodes, die geeignet wären (habe ich ja hier auch schon was von gepostest). Die zu übersetzen sollte nicht das Problem sein und wäre eine gute Übung. Nur die Zeit dafür zu finden, dass wird nicht ganz so einfach

Schöne Sache! Danke für den Hinweis.
Da kann man ja wunderbar stöbern und antesten, was davon es denn wohl wert ist, auf Originalhardware istalliert zu werden

Wow!
Da kommen ja gleich Erinnerungen an meinen guten alten Texas Instruments Taschenrechner hoch
Schaltflächen sind wirklich immer eine wahninns Arbeit und die hast du wirklich perfekt hinbekommen!
Hast du das Programm dafür noch?

Sehr schön, die Farbpalette ist immer ein guter Anfang.

Mich hatte gerade auch nochmal die Lust aufs Pascal-Programmieren gepackt und da ich heute Zeit habe, habe ich schnell noch ein kleines Programm geschrieben, dass mit den Ports des DAC und einem Bildschirmpuffer arbeitet. Bitteschön

Das Program prüft erstmal, ob auch eine VGA kompatible Grafikkarte installiert ist. Anschließend werden im Textmodus alle Farben langsam auf schwarz runter gedimmt.
Dann geht es in den Grafikmodus, wo ein Muster in einen vorher reserviertes Segment gezeichnet wird, um dann in den Bildschirmspeicher geschoben und langsam eingeblendet zu werden.
Nach einem Tastendruck wird dann wieder ausgeblendet und fertig.

Das Timing des Aus- und Einblendens läuft übrigens direkt über den Uhrenchip des Mainboards und nicht per Delay oder DOS. Also schon etwas komplexer...

Program Fading;
uses crt;


var


palrec     : array[0..255] of longint;
xp,yp      : word;
vseg       : word;
p          : pointer;








{---------------------------- Timing ------------------------------------}


function GetClock : LongInt;
{Direkt über die RTC und nicht über das OS.
 Gibt den aktuellen Timerstand in Ticks zurück}
assembler;
asm
    mov  ah,0
    int  01Ah       {Zeitzähler von der Realtimeclock holen, CX und DX enthalten den Zähler}
    mov  ah,dl
    mov  dl,dh
    mov  dh,cl
    mov  al,0
    out  $43  ,al   {Wir verwenden Timer 0}
    mov  al,1
    out  $43  ,al   {In Betriebsmodus 1}
    in   al,$40     {Timerstand holen}
    in   al,$40
    neg  al
end;




function timer:real;
begin
timer:=getclock/4608; 
end;




{--------------------------- DAC / Farbpalette ----------------------}




Procedure Setrgb(index:word;R,G,B:Byte);
begin;
 port[968]:=index;   {Farbindex}
 port[969]:=r;       {Rot}
 port[969]:=g;       {Grün}
 port[969]:=b;       {Blau}
end;




Procedure Getrgb(Index :word;var R :byte;  var G :byte; var B:byte);
begin
 port[968]:=index;      {Farbindex}
 R        :=port[969];  {Rot}
 G        :=port[969];  {Grün}
 B        :=port[969];  {Blau}
end;




Procedure Savepalette;
{Aktuelle Palette speichern}
var t,rr,gg,bb:byte;
begin;
 for t:= 0 to 255 do begin;
  getrgb(t,rr,gg,bb);
  palrec[t]:=(rr and 63)+
             (gg and 63)*256+
             (bb and 63)*65536;
 end;
end;




Procedure Settoblack;
{Alle Farben auf Schwarz setzen}
var z : byte;
begin
   for z := 0 to 255 do {Alles auf 0}
   begin
      setrgb(z,0,0,0);
   end;
end;




Procedure SetBluePal;
{Erzeugt eine blaue Farbpalette}
var z : byte;
begin
   for z := 0 to 255 do {Nur den Blau Wert hochzählen}
   begin
      setrgb(z,0,0,z);
   end;
end;




{--------------------- VGA / Garfikeffekte --------------------------}




Procedure flip(source,dest:Word); assembler;
  {Kopiert den Inhalt des Segments in "Source" in "Dest"}
asm
  push    ds
  mov     ax, [Dest]
  mov     es, ax
  mov     ax, [Source]
  mov     ds, ax
  xor     si, si
  xor     di, di
  mov     cx, 16000
  db      $F3, $66, $A5  {rep movsd (schneller 32-Bit Datentransfer, 386 oder besser nötig!}
  pop     ds
end;




Function detectVGA : Boolean;
{Ist die Grafikkarte VGA-kompatibel? }
assembler;
asm
  mov ah,$1a            {Funktion 1A von Interrupt 10 aufrufen}
  xor al,al
  int 10h
  cmp al,$1a            {ist al 1Ah ? }
  jne @NoVGAdetected    {Wenn nicht, dann keine VGA}
  cmp bl,$08            {ist bl 08h ? }
  jne @NoVGAdetected    {Wenn nicht, dann keine VGA}
  mov al,true           {Wenn beides stimmt, dann true zurückgeben}
  jmp @Exit             {und zum "exit"}
@NoVGAdetected:
  mov al,false          {Ansonsten false zurückgeben}
@Exit:
end;




Procedure Fadedown(speed : word);
{Dimmt alle Farben innerhalb der angegeben Zeit auf schwarz}
var
T,g,rr,gg,bb   :integer;
gt             :longint;
rrr,ggg,bbb    :byte;
ti             :real;
begin
  savepalette;                   {Aktuelle Palette speichern}
  ti:=timer*1000;		 {Timer initialisieren}
  if speed = 0 then speed:=1;
  repeat
   gt := trunc( (timer) * 1000 );
    t := trunc( ((gt - ti) / speed)*63);
  for g := 0 to 255 do
  begin
   rrr := palrec[g] and 63;
   ggg := (palrec[g] div 256) and 63;
   bbb := (palrec[g] div 65536) and 63;
   rr := rrr - t;
   gg := ggg - t;
   bb := bbb - t;
   if rr < 0 then rr:= 0;
   if gg < 0 then gg:= 0;
   if bb < 0 then bb:= 0;
   if rr > 63 then rr:= 63;
   if gg > 63 then gg:= 63;
   if bb > 63 then bb:= 63;
   setrgb(g,rr,gg,bb);
  end;
 until ti+speed < timer*1000;		{bis die Zeit um ist}
 Settoblack;
end;




Procedure Fadeup(speed :word);
var
            T,g :integer;
             gt :longint;
    rrr,ggg,bbb :byte;
    z, rr,gg,bb :integer;
             ti :real;
 begin
   ti := timer*1000; {Timer initalisieren}
  if speed = 0 then speed := 1; {mit 0 geht's nicht}
  repeat;
     gt := trunc((timer)*1000);
      t  := 63-trunc(((gt - ti) / speed)*63);
     for z := 0 to 255 do
     begin;
         rrr :=  palrec[z] and 63;
         ggg := (palrec[z] div 256) and 63;
         bbb := (palrec[z] div 65536) and 63;
         rr := rrr - t;
         gg := ggg - t;
         bb := bbb - t;
         if rr < 0 then rr:= 0;
         if gg < 0 then gg:= 0;
         if bb < 0 then bb:= 0;
         if rr > 63 then rr:= 63;
         if gg > 63 then gg:= 63;
         if bb > 63 then bb:= 63;
         setrgb(z,rr,gg,bb);
         setrgb(0,00,00,00);
      end;
     until (ti+speed<timer*1000) or (keypressed);
  end;




Procedure DrawXORpattern;
{Zeichnet ein hübsches Muster}
begin
     for yp := 0 to 199 do
     begin
          for xp := 0 to 319 do
          begin
             if ((xp XOR yp) <> 1) then mem[vseg:xp+(320*yp)] := (xp xor yp);
          end;
      end;
end;




{------------------------------ Hauptprogramm -----------------------}




begin
 write('Prüfe auf VGA-Grafikkarte...');


 if not detectVGA then           {Haben wir eine VGA?}
 begin
   writeln('Nicht gefunden!');
   writeln;
   writeln('Hierfür wird eine VGA-Grafikkarte ben”tigt!');
   writeln;
   halt(1);
 end;


 writeln('OK'); 
 writeln('Reserviere zusätzlichen Arbeitsspeicher als Puffer für Grafiken');
 getmem(p,64000);           {64000 Bytes für Pufffer reservieren}
 vseg:= seg(p^);            {Segmentadresse des Puffers sichern}
 writeln;
 writeln('Und los geht''s!');


 fadedown(3000);           {Textmodus ausblenden}


 asm
   mov ax,13h
   int 10h
 end;


 setbluepal;       {Jetzt wird's blau}
 savepalette;      {Speichern, denn bisher haben wir ja nur die 16 Farben des Textmodus gesichert}
 settoblack;       {Alles auf 0}
 DrawXORPattern;   {Muster in den Puffer malen}
 flip(vseg,$0A000);{Puffer in den Grafikspeicher schieben}


 fadeup(3000);     {Und langsam einblenden...}


 while keypressed do readkey;       {evtl. Tastendruck löschen}
 repeat until keypressed;           {Auf Tastendruck warten}


 fadedown(3000);                    {Ausblenden}


 asm
   mov ax,03h                         {Zurück in den Textmodus}
   int 10h
 end;


 freemem(p,64000);                  {Speicher wieder freigeben}
end.                               {Fertig}

Zitat von Mr Vain

Mit dem 320x200 256 Farben Modus habe ich noch nie was gemacht.

Der Modus hat den großen Vorteil, dass eine Bildschirmseite genau ein Segment, also 64 KB groß ist und die Farben ja 8 Bit. Deshalb kann man, wie ich es in meinem Code ja auch mache, einen Pixel direkt mit "mem[$a000:x+320*y] := Farbnummer" setzen (oder umgekehrt auch lesen). Das ist natürlich viel schneller, als mit Umweg über int 10h. Auch lassen sich dadurch Puffer für Animationen o.ä. sehr einfach realisieren. Diesen ganzen komplizierten Kram wie "Bankswitching" bei VESA gibt es hier nicht.
Aus diesem Grund gab es auch relativ spät (um die Jahrtausendwende) noch viele Demos, die den Modus benutzen. Und natürlich weil der von jeder VGA oder MCGA kompatiblen Karte beherrscht wird. Lohnt sich also, damit mal ein bisschen rumzuprobieren.
Die Ports 969 und 968 sind übrigens die direkte Ansteuerung des DAC der Grafikkarte. Um einen Paletteeintrag zu ändern einfach die Farbnummer in 968 und dann die drei bytes für Rot, Grün und Blau nacheinander in 969 schreiben.

So, dann bring ich hier mal Leben in die Bude mit einem ersten Quellcode.

Für den Anfang einen recht simplen Effekt:
Ich habe mal für ein Horror-Thema diesen schönen "blutigen Regen" als Hintergrund benutzt.
Wer es friedlicher möchte, mit blauer Palette ergibt das auch einen ganz prima Wasserfall

Wie habe ich das gemacht, so:

Program Bloodyrain;
uses crt;


var p : integer;




Procedure RotatePal; {Für das Colorcycling}
Var a : Word;


begin
 inc(p); {Neuer Durchgang}
 a := 100;
 port[968] := 35; {Starte mit Farbe 35}
 
 while a > 1 do {neue Farbwerte berechnen}
 begin
   port[969] := 255-(a+p); {Rot}
   port[969] := 0; {Grün}
   port[969] := 0; {Blau}
   dec(a);
 end;
end;










Procedure Makerain;
Var x,y,c,d:word;


begin
 d:=1;
 randomize;
 
 for x := 0 to 320 do
 begin
  c := random(65); {Zufällige Farbe fr den Start}
  for y:= 1 to 200 do
  begin
    if c > 64 then c := 1; {Wir benutzen dafür 64 Farben}
    mem[$a000:x+320*y] := 35+c; {setzte Pixel in Farbe}
    inc(c,d);
  end;
  d:=random(5)+1;
 end;
end;






begin


asm
 mov ax,13h {Modus 320x200 mit 256 Farben}
 int 10h
end;


while keypressed do readkey; {Tastaturpuffer leeren}


makerain; {Einmal zeichnen...}


repeat


 rotatepal; {...und für die Bewegung dann nur noch die Farben rotieren lassen}


 delay(10); {Aber nicht zu schnell!}


until keypressed; {Ende bei Tastendruck}
while keypressed do readkey;


asm
 mov ax,03h {Zurück in den Textmodus}
 int 10h
end;


end.

Hallo die Runde,

ich hatte die Idee, hier einige Quellcodes für einzelne VGA-Grafikeffekte (Modus 13h 320x200) zu sammeln. Ich finde, die 320x200 Ausflösung mit 256 Farben ist etwas absolut typisches für die DOS-Ära und das Maximum aus den Möglichkeiten dieses Grafikmodus herauszuholen, ist eine tolle Herausforderung für Programmierer.
Als ich kürzlich, nach Jahren ohne DOS-Programmierung, wieder angefangen habe mich da reinzdenken, habe ich mit VGA-Grafik angefangen und fand das einen perfekten (Wieder-)Eisntieg. Als ich gerade gelesen habe, dass es hier noch anderen so geht wie mir und sie nach längerer Pause gerne wieder in die DOS-Programmierung "reinkommen" würden, kam mir der Gedanke zu diesem Thread. Einige von euch schrieben ja auch, dass ihnen gerade die Idee für ein kleines Programmier-Projekt fehlt, vielleicht bringt euch ja dieser Thread eine neue Idee oder Anregung. Wie wäre es denn mit einem schönen Scrolltext, Linsen-, Schnee- oder Wassereffekt?
Ich selbst programmiere in Pascal, aber natürlich sind auch alle anderen Programmiersprachen willkommen. Wenn wir hier eine schöne Sammlung zusammenbekommen, können wir ja auch überlegen daraus eine "Forums-Demo" zusammenzustellen. Dann haben auchdie Nicht-Programmierer unter uns etwas davon.
Was haltet ihr von der Idee?
Ich bin gespannt auf eure Meinungen und Quelltexte und guck jetzt mal durch meine Quelltexte nach einem schönen Grafikeffekt um den Anfang zu machen

Hallo zusammen,

ich habe während meiner Schulzeit angefangen in Pascal zu programmieren und das als Hobby bis ins Studium fortgesetzt. Hauptsächlich verschiedene Tools und kleine Spiele. Aber auch einige schöne VGA-Demos, hauptsächlich um rauszufinden, wie die Größen der Szene die tollen Effekte hinbekommen haben. Generell war da viel Neugier dabei und ich wollte einfach rausbekommen, wie die Dinge funktionieren. Und so habe ich vom OPL-3/Adlib-Player bis zum eigenen Programm zum erstellen von Festplattenpartitionen alles mal gemacht. Auch Keygens, Cracks u.ä., was ich hier jetzt mal lieber nicht weiter ausführe
Gegen Weihnachten 2001 habe ich dann die DOS-Programmierung erstmal aufgegeben. Durch einen Fehler in einem Tool zur Reparatur der FAT, dass ich während der Feiertage schrieb, habe ich mir damals meine DOS-Partition völlig zerschossen und konnte sie auch mit diversen Tools nicht mehr herstellen. Meine größeren Projekte hatte ich auf Diskette gesichert und hielt das damals für ausreichend... Meine älteren Quellcodes, die ich jetzt gerne wieder hätte, sind aber komplett futsch....
Wenige Wochen später holte ich mir auch einen neuen Computer, legte erstmals keine DOS-Partition mehr an und beschloss mit der Zeit zu gehen und für Windows zu programmieren. Visual C++ (bekam ich kostenlos über die Uni) wurde dann meine bevorzugte Programmiersprache. Viele Programme entstanden aber nicht mehr, denn mir fehlte zusehends die Zeit und ich programnierte kaum noch.

Jetzt packte mich aber das Retrofieber und seit Februar habe ich nun einen 486er hier stehen und die ersten Pascalprogramme habe ich auch wieder erstellt. Aktuell schreibe ich, sofern ich Zeit finde, an meinem alten Player für OPL-2/OPL-3 FM-Musik weiter. Die alte Version (von 2001) konnte HSC,RAD und SNG Dateien abspielen, jetzt möchte ich noch AMD und A2M hinzufügen. Hat absolut was, so ein altes Projekt fortzuführen: Beta-Version 0.2 vom 03.09.2001; Version 0.3 vom 26.11.2016. Und immernoch im Beta-Stadium - da toppe ich sogar Duke Nukem Forever

Gute Wahl Ich habe mir vor ein paar Monaten auch einen TL866CS zugelegt und bin mit ihm rundum zufrieden. Die Software ist auch einfach zu bedienen und bisher wurde jeder EPROM erfolgreich beschrieben.

Alles klar, dann werde ich da am Wochenende mal gemütlich ein paar Inhalte hinzufügen

Ein wunderschöner 486er! Glückwunsch dazu!