Changeset 171 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 10, 2019, 4:00:46 PM (6 years ago)

Author:

chronos

Message:

• Added: Keyboard console.
• Added: Show Hello World! message.

File:

• branches/virtualcpu4/UFormMain.pas (modified) (6 diffs)

branches/virtualcpu4/UFormMain.pas

@@ -1 +1 @@
 unit UFormMain;
 
-{$mode objfpc}{$H+}
+{$mode delphi}{$H+}
 
 interface
@@ -17 +17 @@
     ButtonStop: TButton;
     Label1: TLabel;
+    Label2: TLabel;
     ListViewMemory: TListView;
     ListViewRegisters: TListView;
+    Memo1: TMemo;
     Timer1: TTimer;
     procedure ButtonStartClick(Sender: TObject);
@@ -27 +29 @@
     procedure ListViewMemoryData(Sender: TObject; Item: TListItem);
     procedure ListViewRegistersData(Sender: TObject; Item: TListItem);
+    procedure Memo1KeyPress(Sender: TObject; var Key: char);
     procedure Timer1Timer(Sender: TObject);
   private
+    KeyInputBuffer: array of Char;
+    function CpuInput(Port: TAddress): TRegister;
+    procedure CpuOutput(Port: TAddress; Value: TRegister);
     procedure ReloadMemoryDump;
     procedure ReloadRegisterDump;
@@ -62 +68 @@
 begin
   Cpu := TCpu.Create;
+  Cpu.OnInput := CpuInput;
+  Cpu.OnOutput := CpuOutput;
   Cpu.DataSize := bw16;
   Cpu.AddressSize := bw16;
@@ -110 +118 @@
 end;
 
+procedure TFormMain.Memo1KeyPress(Sender: TObject; var Key: char);
+begin
+  SetLength(KeyInputBuffer, Length(KeyInputBuffer) + 1);
+  KeyInputBuffer[High(KeyInputBuffer)] := Key;
+end;
+
 procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
@@ -133 +147 @@
   R1: Byte;
   R2: Byte;
+  R3: Byte;
   LabelStart: Integer;
+  LabelText: Integer;
+  LabelPrint: Integer;
 begin
   R1 := 1;
   R2 := 2;
+  R3 := 3;
   with InstructionWriter do begin
+    LabelText := 200;
+    LoadConst(R1, LabelText);
+    LoadConst(R2, 12);
+  LabelPrint := IP;
+    DataPrefix8; LoadMem(R3, R1);
+    DataPrefix8; Output(0, R3);
+    Increment(R1);
+    Decrement(R2);
+    Test(R2);
+    JumpNotZero(LabelPrint);
+
     LoadConst(R1, 100);
+  LabelStart := IP;
+    Increment(R1);
     LoadConst(R2, 100);
-    LabelStart := IP;
-    Increment(R1);
     DataPrefix8; StoreMem(R2, R1);
+    DataPrefix8; Input(R2, 0);
+    DataPrefix8; Output(0, R2);
     Jump(LabelStart);
     Halt;
-  end;
-end;
+  IP := LabelText;
+    WriteString('Hello World!');
+  end;
+end;
+
+function TFormMain.CpuInput(Port: TAddress): TRegister;
+begin
+  Result.Q := 0;
+  case Port of
+    0: begin
+      while (Length(KeyInputBuffer) = 0) and not Cpu.Terminated do begin
+        Sleep(100);
+      end;
+      if Length(KeyInputBuffer) > 0 then begin
+        Result.B := Ord(KeyInputBuffer[0]);
+        if Length(KeyInputBuffer) > 1 then
+          Move(KeyInputBuffer[1], KeyInputBuffer[0], Length(KeyInputBuffer) - 1);
+        SetLength(KeyInputBuffer, Length(KeyInputBuffer) - 1);
+      end else Result.B := 0;
+    end;
+  end;
+end;
+
+procedure TFormMain.CpuOutput(Port: TAddress; Value: TRegister);
+begin
+  case Port of
+    0: Memo1.Lines.Text := Memo1.Lines.Text + Char(Value.B);
+  end;
+end;
+