Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

core_io.bi

Uploader:MitgliedThePuppetMaster
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