Für die WinIO habe ich hier einige Beispiel-Procedures, falls sie jemand braucht.
Code: Alles auswählen
Global WinIOAktiv.l
Procedure OpenWinIO()
Result.l = OpenLibrary(0, "WinIo.dll")
If Result = #False
WinIOAktiv = #False
MessageRequester("ERROR", "WinIO.dll wurde nicht gefunden oder ist korrupt.", #MB_ICONERROR)
End
Else
If CallFunction(0, "InstallWinIoDriver", "WinIo.vxd", #False)
WinIOAktiv = #True
Else
MessageRequester("ERROR", "WinIO.sys konnte nicht installiert werden." + Chr(13) + "Bitte melden sie sich mich Administratorrechten an und versuchen sie es erneut.", #MB_ICONERROR)
End
EndIf
If CallFunction(0, "InitializeWinIO")
WinIOAktiv = #True
Else
MessageRequester("ERROR", "WinIO konnte nicht initialisiert werden.", #MB_ICONERROR)
End
EndIf
EndIf
ProcedureReturn Result.l
EndProcedure
Procedure CloseWinIO()
CallFunction(0, "ShutDownWinIo")
CallFunction(0, "RemoveWinIoDriver")
CloseLibrary(0)
WinIOAktiv = #False
EndProcedure
Procedure SetBits(Value.l)
Address.l = 956
Result1.l = CallFunction(0, "SetPortVal", Address, Value)
If Result1.l = #False : Debug "SetBits - ERROR" : EndIf
ProcedureReturn Result1
EndProcedure
Procedure GetBits(Address.l)
Value.l
Result.l = CallFunction(0, "GetPortVal", Address, @Value, 4)
If Result = #False : Debug "GetBits - ERROR" : EndIf
ProcedureReturn Value
EndProcedure
Procedure GetPVal(Address.l, Length.l)
Value.l
Result.l = CallFunction(0, "GetPortVal", Address, @Value, Length)
If Result = #False : Debug "GetPVal - ERROR" : EndIf
ProcedureReturn Value
EndProcedure
Procedure SetPVal(Address.l, Value.l, Length.l)
Result.l = CallFunction(0, "SetPortVal", Address, Value, Length)
If Result = #False : Debug "SetPVal - ERROR" : EndIf
ProcedureReturn Result
EndProcedure
Procedure CheckWinIOFunctions()
If WinIOAktiv
Restore CheckWinIOFunctionsData
For a.l = 1 To 10
Read FunctionName.s
If IsFunction(0, FunctionName) = #False
MessageRequester("ERROR", "Die Funktion " + Chr(34) + FunctionName + Chr(34) +" wurde nicht gefunden", #MB_ICONERROR)
ProcedureReturn #False
EndIf
Next
ProcedureReturn #True
Else
ProcedureReturn #False
EndIf
DataSection
CheckWinIOFunctionsData:
Data.s "InitializeWinIo", "ShutdownWinIo", "InstallWinIoDriver", "RemoveWinIoDriver"
Data.s "GetPortVal", "SetPortVal", "GetPhysLong", "SetPhysLong"
Data.s "MapPhysToLin", "UnmapPhysicalMemory"
EndDataSection
EndProcedure
Procedure.b ReadCMOSByte(Offset.b)
InpB.b
CallFunction(0, "SetPortVal", $70, Offset, 1)
CallFunction(0, "GetPortVal", $71, @InpB, 1)
ProcedureReturn InpB
EndProcedure
OpenWinIO()
CheckWinIOFunctions()
SetBits(1)
CloseWinIO()
) aber es hing nach der 7 Schleife ! 
. So in etwa könnte das lesen und schreiben der Ports aussehen. So wie es jetzt ist habe ich schon beim ausslesen in IN al, dx einen Fehler. Wenn hier ein ASM-Profi hier nachhelfen kann, wenn das so überhaupt möglich ist, würde ich mich sehr freuen. Im Voraus vielen Dank wenn es überhaupt möglich ist. Hier habe ich erst mal einen Versuch gemacht, der so nicht funst. 
