Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
core_io.bi
| Uploader: |  ThePuppetMaster |
| Datum/Zeit: | 26.08.2008 22:11:13 |
'###############################################################################################################
'###############################################################################################################
'### F B - C O R E
'###############################################################################################################
'###############################################################################################################
'### Version: 1.00.0
'### Revision: 0
'###############################################################################################################
'### (c) 2008 By.: /_\ DeltaLab's Germany [experimental computing]
'### Author: Martin Wiemann
'### Date of Idea: 2008.08.16 - 17:55:38
'###############################################################################################################
'### Copy('s) of this code or a part of this IS allowed!!!
'###############################################################################################################
'###############################################################################################################
Public Sub outb(ByVal V_Port as UShort, ByVal V_Value as UByte)
Asm
mov edx, DWord Ptr [V_Port]
mov eax, DWord Ptr [V_Value]
out dx, al
End Asm
End Sub
'--------------------------------------------------------------------------------------------------------------------
Public Function inb(ByVal V_Port as UInteger) as UByte
ASM
mov edx, [V_Port]
in al, dx
mov [Function], al
END Asm
End Function
'--------------------------------------------------------------------------------------------------------------------
Public Function inw(ByVal V_Port as UInteger) as UShort
Asm
mov edx, DWord Ptr [V_Port]
in al, dx
mov [Function], al
End Asm
End Function