6502 hat geschrieben:Mal ein paar Bilder:
https://www.dropbox.com/s/7w9effq6assqc ... .jpeg?dl=0
https://www.dropbox.com/s/xcpnega0jv9d2 ... .jpeg?dl=0
https://www.dropbox.com/s/10o5kizyrm83s ... .jpeg?dl=0
Den Akku von der Speichererweiterung hab ich gleich mal runtergelötet und die Platine sauber gemacht. Der Akku war gerade in Beginn zu siffen.
ja das ist richtig! Aber da müßt ich beim nächsten Mal auch erst mal schauen da man das offenbar beimAlCarbonara hat geschrieben:Es sollte hier zur Pflicht gemacht werden, Bilder auf den Foren-Server hochzuladen......wenn der externe Hoster mal nicht mehr existiert sind die Bilder weg und keiner weiss, um was es ging!
echt geil!
Das Problem ist: Ich trau mich an alles ran inkl. 230v, aber nicht an CRTs... Da hab ich keine Ahnung von, da lass ich lieber die Finger wech... Ergo wird der arme wohl mit seinen Elkos auskommen müssenDarius hat geschrieben:@6502:
und dann noch den 1084er Monitor. Ich würde das System hegen und pflegen und
dem Monitor neue Elkos spendieren, ...
Und den Amiga schon kurz angetestet... sieht auch soweit gut aus... Ich glaub ich muss demnächst mal ne Runde ausgeben bei dem Glück 
Wenn du mal einen 1084ST-Monitor findest...zuschlagen.6502 hat geschrieben:So, und gleich auch noch mal den c64 rangehangen... Was ein scharfes Bild... Hatte bisher nur den 1802 hier für den c64... aber der 1084 schlägt den ja noch mal um Längen... Ich mein, ich freu mich echt über den Amiga, aber der Monitor macht mir gerade noch viel mehr Spaß! Endlich kann ich den Schlepptopp auch in Bunt und Groß genießen, den Cevi nochmal in noch schönerer Pracht bestaunen und den Amiga erstmals richtig erleben. Und all das für 20 Öcken
Code: Alles auswählen
uses crt;
Const Baseport:word=$378;
var w:word;
var c:char;
begin;
writeln('dezimale Basisadresse Parallelport eingeben (0=$378)');
readln(w);
if w<>0 then Baseport:=w;
Writeln('OK');
repeat;
c:=readkey;
{write(c);}
Port[Baseport]:=ord(c);
Port[Baseport+2]:=$01; {Strobe->Strobe vom mfa}
delay(1);
Port[Baseport+2]:=0;
until ord(c)=0;{F-Tasten}
end.Code: Alles auswählen
Program MFATast_fuer_den_Portfolio;
uses Dos;
const taste :byte=0; {Variable für die Tastaturcodes/auch für
Delayinitialisierung verwendet}
var baseport :word; {Basisadresse des Parallelports}
const delayconst:longint=0; {Delaykonstante, wird noch initialisiert}
var delayvar :longint; {Delayvariable}
const quit :boolean=false; {Wenn true, dann Programmende}
var TimerTick :procedure; {TimerTick - bei PC 18.2/s, beim Pofo 1/s bzw. 1/128s -
siehe weiter unten}
procedure DelayInit; interrupt; {Interuptroutine für die Initialisierung der
Delaykonstante}
begin {Unit CRT läuft nicht auf dem Pofo}
taste:=not taste; {macht aus $00 ein $FF und umgekehrt - flag für Start/Ende
des Delayinit}
end;
begin
asm {setzen des Systemticks auf 1 Tick/s - Pofospezifisch, PCs
haben 18.2 Ticks/s}
mov ah,$1e {int $61 - Pofoint}
mov al,$01 {ah=$1E -> Systemtick}
mov bx,1 {al=$01 setzen, al=$00 lesen der Einstellung}
int $61 {bx=0 -> 1Tick/128s, bx=1 -> 1Tick/s}
end;
GetIntVec ($1c, @TimerTick); {umleiten des SystemTicks auf die Delayinitialisierung}
SetIntVec ($1c, @DelayInit);
repeat;until taste<>0; {warten auf den ersten Ticks für den Start der Messung,
siehe Delayinit}
repeat;
inc(delayconst); {Zählschleife für die DelayKonstante}
until taste=0; {der zweite Tick setzt die Variable taste zurück auf
0-> Ende der Messung}
{siehe DelayInit}
SetIntVec ($1c, @TimerTick); {zurücksetzen der Interruptumleitung}
asm
mov ah,$1e {zurücksetzen des Systemticks auf 1 Tick/128s}
mov al,$01
mov bx,0
int $61
end;
delayconst:=delayconst shr 1; {berechnen der Delaykonstante für 1ms; shr 1 = /2 - für
den Fall dass delayconst in den negativen Bereich}
delayconst:=round(delayconst/500); {gelaufen ist. 2147483647+1=-2147483648}
writeln('Delaykonstante für 1ms: ',delayconst);
Baseport:=$8078; {Die Basisadresse des Parallelports beim Pofo}
Writeln('OK');
repeat; {Hauptschleife}
asm
mov ah,$08 {Ersatz für readkey (Unit crt läuft nicht auf dem Pofo)}
int $21 {wartet auf einen Tastendruck und liefert den Tastencode}
mov taste,al {in al zurück}
end;
if taste>0 then
begin;
Port[Baseport]:=taste; {Ausgabe der Taste an den MFA}
Port[Baseport+1]:=$01; {Signal für Tastendruck: Strobe->Strobe vom mfa}
delayvar:=0; {Register (mit dem Strobesignal) ist beim Pofo verschoben}
repeat {1ms warten}
inc(delayvar);
until delayvar>=delayconst;
Port[Baseport+1]:=0; {zurücksetzen des Tastensignals - damit der MFA kein
dauerdrücken erkennt}
end
else
begin
asm
mov ah,$08 {Tastencode 0 bedeutet 2byte code, d.h. ein Tastencode}
int $21 {muss noch abgefangen werden um genaue Taste zu}
mov taste,al {erkennen}
end;
(*###IN ARBEIT###*) {Erkennung der F-Taste für Load/Save/Quit}
quit:=true;
end;
until quit;
end.
