v0.9.9

Author: humbertotecnologia

Distro/Linux64/Plataformas/8086/System.hcb

@@ -407,4 +407,39 @@ module UInt32
         asm "mov [si], ax\n"
         asm "mov [si+2], bx\n"
     end
-end
+end
+
+Module IO
+    Public Sub OutputByte(port as UInt16, value as UInt8)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, al"
+    End
+
+    Public Sub OutputWord(port as UInt16, value as UInt16)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, ax"
+    End
+
+    Public Function InputByte(port as UInt16) as UInt8
+        asm "mov dx, [bp+6]"
+        asm "xor ax, ax"
+        asm "in al, dx"
+    End
+
+    Public Function InputWord(port as UInt16) as UInt16
+        asm "mov dx, [bp+6]"
+        asm "in ax, dx"
+    End
+
+    Public Sub RegisterHandler(interrupt as UInt8, handler as PtrByteArray)
+        Dim ptr as PtrWordArray
+        #ptr = 0
+        @ptr = interrupt * 4
+        ptr = @handler
+        @ptr ++
+        @ptr ++
+        ptr = #handler
+    End
+End

Distro/Linux64/hcbasic.dll

@@ -407,4 +407,39 @@ module UInt32
         asm "mov [si], ax\n"
         asm "mov [si+2], bx\n"
     end
-end
+end
+
+Module IO
+    Public Sub OutputByte(port as UInt16, value as UInt8)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, al"
+    End
+
+    Public Sub OutputWord(port as UInt16, value as UInt16)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, ax"
+    End
+
+    Public Function InputByte(port as UInt16) as UInt8
+        asm "mov dx, [bp+6]"
+        asm "xor ax, ax"
+        asm "in al, dx"
+    End
+
+    Public Function InputWord(port as UInt16) as UInt16
+        asm "mov dx, [bp+6]"
+        asm "in ax, dx"
+    End
+
+    Public Sub RegisterHandler(interrupt as UInt8, handler as PtrByteArray)
+        Dim ptr as PtrWordArray
+        #ptr = 0
+        @ptr = interrupt * 4
+        ptr = @handler
+        @ptr ++
+        @ptr ++
+        ptr = #handler
+    End
+End

Distro/Linux64/hcbasic.pdb

@@ -407,4 +407,39 @@ module UInt32
         asm "mov [si], ax\n"
         asm "mov [si+2], bx\n"
     end
-end
+end
+
+Module IO
+    Public Sub OutputByte(port as UInt16, value as UInt8)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, al"
+    End
+
+    Public Sub OutputWord(port as UInt16, value as UInt16)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, ax"
+    End
+
+    Public Function InputByte(port as UInt16) as UInt8
+        asm "mov dx, [bp+6]"
+        asm "xor ax, ax"
+        asm "in al, dx"
+    End
+
+    Public Function InputWord(port as UInt16) as UInt16
+        asm "mov dx, [bp+6]"
+        asm "in ax, dx"
+    End
+
+    Public Sub RegisterHandler(interrupt as UInt8, handler as PtrByteArray)
+        Dim ptr as PtrWordArray
+        #ptr = 0
+        @ptr = interrupt * 4
+        ptr = @handler
+        @ptr ++
+        @ptr ++
+        ptr = #handler
+    End
+End

Distro/LinuxARM32/Plataformas/8086/System.hcb

@@ -407,4 +407,39 @@ module UInt32
         asm "mov [si], ax\n"
         asm "mov [si+2], bx\n"
     end
-end
+end
+
+Module IO
+    Public Sub OutputByte(port as UInt16, value as UInt8)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, al"
+    End
+
+    Public Sub OutputWord(port as UInt16, value as UInt16)
+        asm "mov dx, [bp+6]"
+        asm "mov ax, [bp+8]"
+        asm "out dx, ax"
+    End
+
+    Public Function InputByte(port as UInt16) as UInt8
+        asm "mov dx, [bp+6]"
+        asm "xor ax, ax"
+        asm "in al, dx"
+    End
+
+    Public Function InputWord(port as UInt16) as UInt16
+        asm "mov dx, [bp+6]"
+        asm "in ax, dx"
+    End
+
+    Public Sub RegisterHandler(interrupt as UInt8, handler as PtrByteArray)
+        Dim ptr as PtrWordArray
+        #ptr = 0
+        @ptr = interrupt * 4
+        ptr = @handler
+        @ptr ++
+        @ptr ++
+        ptr = #handler
+    End
+End