'AnzeigeCheck:|Il1 sind Alt-0124, Gro�es i, kleines L, Eins ������ߎę֚�񱸩��
Const Author="SchnittstellenAdressen.Bas v0183b �2007 by ytwinky, MD"
'linux-Benutzer brauchen dies Programm nicht ;-))
'..und ob es Debug.Exe noch bei vista gibt, intreressiert mich nicht ^^
Dim As String Deb=Environ("Tmp") &"\deb", Adr, s 'in %Tmp% zu speicherrn sollte erlaubt sein
Dim As uByte i, j, DebFile=FreeFile
Dim As Integer ComAdr(1 To 4), LptAdr(1 To 4)

Open Deb &".in" For Binary As #DebFile
	Print #DebFile, !"d40:00 F\r\nq\r\n" 'Ab &h400 16Bytes ausgeben und fertich..
Close #DebFile
Shell "Debug.exe <" &Deb &".in" &" >" &Deb &".out"
Kill Deb &".in" 'Nicht mehr ben�tigte Datei l�schen

Open Deb &".out" For Input As #DebFile
	Do While Not Eof(DebFile)
		Input #DebFile, s
		If InStr(s, "0040:0000") Then Adr=Mid(s, 12, 47)
	Loop
Close #DebFile
Kill Deb &".out" 'Nicht mehr ben�tigte Datei l�schen

s=Author &!"\n(alle Adressen hexadezimal)\nSerielle Schnittstellen:\n"
'Print "<" &Adr &">" 'bei Interesse das erste Remzeichen entfernen
For i=3 To 21 Step 6 'Adressen der seriellen Schnittstellen ermitteln
	j=i\6+1
	ComAdr(j)=Val("&h" &Chr(Adr[i], Adr[i+1], Adr[i-3], Adr[i-2]))
	s+="Com" &j &": " & Hex(ComAdr(j),4) &!"\n"
Next
s+=!"\nParallele Schnittstellen:\n"
For i=27 To 45 Step 6 'Adressen der parallelen Schnittstellen ermitteln
	j=i\6-3
	LptAdr(j)=Val("&h" &Chr(Adr[i], Adr[i+1], Adr[i-3], Adr[i-2]))
	s+="Lpt" &(j) &": " & Hex(LptAdr(j), 4) &!"\n"
Next
Print s &!"(Alle Angaben ohne Gewehr..^^)\nEniki..";
GetKey