v1.0.1-fix-pack

Author: humbertotecnologia

Analise.cs

@@ -35,9 +35,9 @@ public static TipoVariavel ProcessaTipo(string tipo)
         switch(tipo)
         {
             case "int8":
-                return TipoVariavel.Int16;
+                return TipoVariavel.Int8;
             case "uint8":
-                return TipoVariavel.UInt16;
+                return TipoVariavel.UInt8;
             case "int16":
                 return TipoVariavel.Int16;
             case "uint16":

Distro/Atual/hcbasic.dll

@@ -0,0 +1,18 @@
+# Distribuição do HCBasic
+
+Todas as distribuições vem com alguns exemplos e arquivos que auxiliam na compilação.
+
+Para testar execute na sua plataforma:
+
+Linux/macOS:
+
+```sh
+chmod +x compilar.sh
+./compilar.sh
+```
+
+Windows:
+
+```sh
+compilar.bat
+```

Distro/Atual/hcbasic.pdb

@@ -1 +1,5 @@
-hcbasic helloworld.hcb helloworld.com Plataformas\8086-DOS\ Plataformas\8086\
+hcbasic helloworld.hcb helloworld.asm Plataformas\8086-DOS\ Plataformas\8086\
+nasm -f bin -o helloworld.com helloworld.asm
+
+hcbasic gui.hcb gui.asm Plataformas\8086-DOS\ Plataformas\8086\
+nasm -f bin -o gui.com gui.asm

Distro/Exemplos/README.MD

@@ -1,3 +1,9 @@
 #!/bin/sh
 
-./hcbasic helloworld.hcb helloworld.com Plataformas/8086-DOS Plataformas/8086/
+chmod +x hcbasic
+
+./hcbasic helloworld.hcb helloworld.asm Plataformas/8086-DOS Plataformas/8086/
+nasm -f bin -o helloworld.com helloworld.asm
+
+./hcbasic gui.hcb gui.asm Plataformas/8086-DOS Plataformas/8086/
+nasm -f bin -o gui.com gui.asm

Distro/Exemplos/compilar.bat

@@ -0,0 +1,70 @@
+' Este é um protótipo
+Imports System
+Imports System.Drawing
+Imports System.Forms
+Imports VGA
+
+Module Program
+
+    ' Os controles devem ser declarados no modulo
+    Dim MainForm as Control
+    Dim HelloWorldLabel as Control
+    Dim OkButton as Control
+    Dim HelloWorldText as String
+
+    Public Sub Main(args as String)
+        ' O Driver de Video deve ser iniciado
+        VGA.Mode640x480x2
+        ' O Motor de Aplicação deve ser iniciado
+        Application.Initialize
+
+        ' Os controles devem ser criados e inicializados
+        Form.Initialize MainForm
+        MainForm.Top = 30
+        MainForm.Left = 10
+        MainForm.Width = 200
+        MainForm.Height = 100
+        MainForm.Text = "0123456789 ABCDEFGHIJKLMNOPQRSTUVWXYZ"
+
+        Label.Initialize HelloWorldLabel
+        String.Copy HelloWorldText, "HELLO WORLD"
+        HelloWorldLabel.Text =  HelloWorldText
+        HelloWorldLabel.Top = 8
+        HelloWorldLabel.Left = 4
+        HelloWorldLabel.Width = 170
+        HelloWorldLabel.Height = 10
+        HelloWorldLabel.Visible = 1
+        Control.Add MainForm, HelloWorldLabel
+
+        Button.Initialize OkButton
+        OkButton.Text = "Enter para SAIR"
+        OkButton.Top = 21
+        OkButton.Left = 4
+        OkButton.Width = 150
+        OkButton.Height = 20
+        OkButton.Visible = 1
+        OkButton.OnKeyPress = AddressOf(OkButton_OnKeyPress)
+        OkButton.OnClick = AddressOf(OkButton_OnClick)
+        Control.Add MainForm, OkButton
+
+        ' Deve ser iniciado o gerenciador de aplicação que tomará conta dos eventos
+        Application.Run MainForm
+
+        Graphics.Mode80x25x16
+    End
+
+
+    Sub OkButton_OnKeyPress(ctrl as Control, e as KeyboardEventArgs)
+        String.Copy HelloWorldText, "PRESSIONADO     "
+        Dim ptr as PtrByteArray
+        ptr = HelloWorldText
+        @ptr = @ptr + 14
+        ptr = e.AsciiChar
+        Control.Redraw HelloWorldLabel
+    End
+
+    Sub OkButton_OnClick(ctrl as Control, e as MouseEventArgs)
+        Application.Exit 0
+    End
+
+End

Distro/Exemplos/compilar.sh

@@ -16,7 +16,7 @@ module OS
         asm "cmp sp, END"
         asm "ja .end"
         Throw StackOverflowError
-        asm ".end"
+        asm ".end:"
     End
 
     sub Start2
@@ -140,9 +140,18 @@ module OS
         asm "mov ax, REALOC_TABLE"
     end
 
-    public function ConsoleReadChar() as uint8
+    public function ConsoleAvail() as uint8
         asm "mov ah, 1"
-        asm "int 0x21"
+        asm "int 0x16"
+        asm "jnz .sim"
+        Return 0
+        asm ".sim:"
+        Return 1
+    end
+
+    public function ConsoleReadChar() as uint8
+        asm "mov ah, 0"
+        asm "int 0x16"
         asm "xor ah, ah"
     end