162 lines
6.6 KiB
Plaintext
162 lines
6.6 KiB
Plaintext
|
{<7B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ
|
|||
|
<20> <20>
|
|||
|
<20> X - P a c k e t <20>
|
|||
|
<20> <20>
|
|||
|
<20> <20>
|
|||
|
<20> X P D E B U G . P A S <20>
|
|||
|
<20> <20>
|
|||
|
<20> Verschiedene Systemausk<73>nfte <20>
|
|||
|
<20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>}
|
|||
|
|
|||
|
|
|||
|
Procedure Debug_Info (* Kanal,Aufruf : Byte *);
|
|||
|
Var A : Byte;
|
|||
|
i,i1 : Integer;
|
|||
|
l : LongInt;
|
|||
|
Istr,
|
|||
|
Chan : String[2];
|
|||
|
Frei : String[10];
|
|||
|
Hstr : String[80];
|
|||
|
f : Text;
|
|||
|
|
|||
|
|
|||
|
Begin
|
|||
|
A := Aufruf;
|
|||
|
Assign(G^.TFile,G^.TempPfad + DebDatei);
|
|||
|
FiResult := RewriteTxt(G^.TFile);
|
|||
|
if A = 0 then Moni_Off(0);
|
|||
|
|
|||
|
Frei := B1 + InfoZeile(325) + B1;
|
|||
|
|
|||
|
Writeln(G^.TFile);
|
|||
|
Writeln(G^.TFile,'':5,'D E B U G - I N F O','':10,Version,B2,lastEdit);
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Prefix-Segment : ' + Hex(PrefixSeg,4)) +
|
|||
|
'<27> OvrDosHandle : ' + int_str(OvrDosHandle));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Code-Segment : ' + Hex(CSeg,4)) +
|
|||
|
'<27> OvrEmsHandle : ' + int_str(OvrEmsHandle));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Daten-Segment : ' + Hex(DSeg,4)) +
|
|||
|
'<27> OvrHeapBegin : ' + Pointer_Str(Ptr(OvrHeapOrg,0)));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Stack-Segment : ' + Hex(SSeg,4)) +
|
|||
|
'<27> OvrHeapEnde : ' + Pointer_Str(Ptr(OvrHeapEnd,0)));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Stack-Pointer : ' + Hex(SPtr,4)) +
|
|||
|
'<27> OvrHeapPtr : ' + Pointer_Str(Ptr(OvrHeapPtr,0)));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Heap-Anfang : ' + Pointer_Str(HeapOrg)) +
|
|||
|
'<27> OvrHeapSize : ' + FormByte(int_str(OvrHeapSize)) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Akt.HeapSpitze : ' + Pointer_Str(HeapPtr)) +
|
|||
|
'<27> OvrGetBuf : ' + FormByte(int_str(OvrGetBuf)) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Heap-Ende : ' + Pointer_Str(HeapEnd)) +
|
|||
|
'<27> OvrLoadCount : ' + int_str(OvrLoadCount));
|
|||
|
Writeln(G^.TFile,EFillStr(30,B1,'Video-Pointer : ' + Pointer_Str(Bild)) +
|
|||
|
'<27> OvrLoadList : ' + int_str(OvrLoadList));
|
|||
|
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
for i := 1 to 4 do
|
|||
|
begin
|
|||
|
Hstr := 'Port LPT-' + int_str(i) + ' = ' + Hex(LPT_Base[i],4);
|
|||
|
if not LPT_Error(i) then Hstr := Hstr + ' Printer exist.';
|
|||
|
Writeln(G^.TFile,Hstr);
|
|||
|
end;
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
for i := 0 to maxLink do
|
|||
|
begin
|
|||
|
l := SizeOf(K[i]^);
|
|||
|
Chan := SFillStr(2,B1,int_str(i));
|
|||
|
Hstr := Chan + '.Kanal-Pointer: ' + Pointer_Str(K[i]) + ' => '
|
|||
|
+ FormByte(int_str(l)) + B1 + Bytes
|
|||
|
+ ' <20> Syncherrors = ' + int_str(K[i]^.SynchErrAnz);
|
|||
|
Writeln(G^.TFile,Hstr);
|
|||
|
end;
|
|||
|
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
for i := 1 to maxTNC do
|
|||
|
begin
|
|||
|
if TNC_used[i] then l := SizeOf(TNC[i]^) else l := 0;
|
|||
|
Hstr := int_str(i) + '.TNC-Pointer : ' + Pointer_Str(TNC[i]) +
|
|||
|
' => ' + SFillStr(4,B1,FormByte(int_str(l))) + B1 + Bytes + B1;
|
|||
|
if TNC_used[i] then
|
|||
|
begin
|
|||
|
if TNC[i]^.RS232 <> 5 then
|
|||
|
begin
|
|||
|
if HwHs then Istr := '--'
|
|||
|
else Istr := SFillStr(2,B1,int_str(Com[TNC[i]^.RS232].IRQ_Nr));
|
|||
|
Hstr := Hstr + ' COM/PORT/IRQ/BAUD = ' +
|
|||
|
int_str(TNC[i]^.RS232) + '/' +
|
|||
|
Hex(Com[TNC[i]^.RS232].Base,4) + '/' +
|
|||
|
Istr + '/' +
|
|||
|
int_str(Com[TNC[i]^.RS232].Baudrate)
|
|||
|
end else Hstr := Hstr + B1 + PcxStr;
|
|||
|
end;
|
|||
|
Writeln(G^.TFile,Hstr);
|
|||
|
end;
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
Writeln(G^.TFile,ConstStr(B1,10) + 'IRQs - 76543210');
|
|||
|
Writeln(G^.TFile,'IRQ-Maske : ' + Bin(Port[$21],8));
|
|||
|
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
Writeln(G^.TFile,'System-Pfad : ' +
|
|||
|
SFillStr(11,B1,FreeStr(SysPfad[1])) + B1 + Bytes + frei + SysPfad);
|
|||
|
Writeln(G^.TFile,'Mailbox-Pfad : ' +
|
|||
|
SFillStr(11,B1,FreeStr(G^.MailPfad[1])) + B1 + Bytes + Frei + G^.MailPfad);
|
|||
|
Writeln(G^.TFile,'Remote-Pfad : ' +
|
|||
|
SFillStr(11,B1,FreeStr(K[show]^.RemPath[1])) + B1 + Bytes + Frei + K[show]^.RemPath);
|
|||
|
Writeln(G^.TFile,'Runfile-Pfad : ' +
|
|||
|
SFillStr(11,B1,FreeStr(G^.RunPfad[1])) + B1 + Bytes + Frei + G^.RunPfad);
|
|||
|
Writeln(G^.TFile,'Speakfile-Pfad : ' +
|
|||
|
SFillStr(11,B1,FreeStr(G^.SpkPfad[1])) + B1 + Bytes + Frei + G^.SpkPfad);
|
|||
|
|
|||
|
if use_VDisk then
|
|||
|
Writeln(G^.TFile,'RAM-Floppy : ' +
|
|||
|
SFillStr(11,B1,FreeStr(Vdisk[1])) + B1 + Bytes + Frei + Vdisk);
|
|||
|
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
Assign(f,SysPfad + BootDatei);
|
|||
|
if ResetTxt(f) = 0 then
|
|||
|
begin
|
|||
|
Readln(f);
|
|||
|
Readln(f);
|
|||
|
while not Eof(f) do
|
|||
|
begin
|
|||
|
Readln(f,Hstr);
|
|||
|
Writeln(G^.TFile,Hstr);
|
|||
|
end;
|
|||
|
FiResult := CloseTxt(f);
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
end;
|
|||
|
|
|||
|
Writeln(G^.TFile,'Freier RAM insgesamt : ' + SFillStr(8,B1,FormByte(int_str(MemAvail))) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,'gr. freier RAM-Block : ' + SFillStr(8,B1,FormByte(int_str(MaxAvail))) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,'RAM vor dem Start : ' + SFillStr(8,B1,FormByte(int_str(FreeRam))) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,'Belegter Heap : ' +
|
|||
|
SFillStr(8,B1,FormByte(int_str(Adr_absolut(HeapPtr) - Adr_absolut(HeapOrg) + OvrGetBuf))) + B1 + Bytes);
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
|
|||
|
for i := 0 to maxLink do
|
|||
|
begin
|
|||
|
l := K[i]^.maxNotCh;
|
|||
|
Chan := SFillStr(2,B1,int_str(i));
|
|||
|
Hstr := Chan + '.Scroll : ' + Pointer_Str(NotCh[i]) + ' => ' +
|
|||
|
SFillStr(6,B1,FormByte(int_str(l))) + B1 + Bytes + ' <20> ';
|
|||
|
l := K[i]^.VorZeilen * 81;
|
|||
|
Hstr := Hstr + Chan + '.Vor : ' + Pointer_Str(VorWrite[i]) + ' => ' +
|
|||
|
SFillStr(6,B1,FormByte(int_str(l))) + B1 + Bytes + B1;
|
|||
|
Writeln(G^.TFile,Hstr);
|
|||
|
end;
|
|||
|
Writeln(G^.TFile,ConstStr('<27>',79));
|
|||
|
FiResult := CloseTxt(G^.TFile);
|
|||
|
|
|||
|
if Aufruf = 0 then
|
|||
|
begin
|
|||
|
ExecDOS(G^.Ext_View_Path + B1 + G^.TempPfad + DebDatei);
|
|||
|
Neu_Bild;
|
|||
|
Moni_On;
|
|||
|
end;
|
|||
|
if Aufruf = 1 then SF_Text(Kanal,G^.TempPfad + DebDatei);
|
|||
|
KillFile(G^.TempPfad + DebDatei);
|
|||
|
END;
|