Changeset 32 for branches/UltimatOS/Forms/UFormMain.pas

Timestamp:

Jul 10, 2022, 12:37:58 AM (23 months ago)

Author:

chronos

Message:

• Added: Interrupt handling.

Location:

branches/UltimatOS

Files:

• . (modified) (1 prop)
• Forms/UFormMain.pas (modified) (7 diffs)

branches/UltimatOS

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib

branches/UltimatOS/Forms/UFormMain.pas

@@ -13 +13 @@
   TFormMain = class(TForm)
     ButtonMemory: TButton;
-    ButtonRun: TButton;
+    ButtonCompile: TButton;
+    ButtonStart: TButton;
+    ButtonStop: TButton;
+    ButtonRestart: TButton;
     Label1: TLabel;
     MemoCode: TMemo;
     PaintBox1: TPaintBox;
     Timer1: TTimer;
+    procedure ButtonCompileClick(Sender: TObject);
     procedure ButtonMemoryClick(Sender: TObject);
-    procedure ButtonRunClick(Sender: TObject);
+    procedure ButtonRestartClick(Sender: TObject);
+    procedure ButtonStartClick(Sender: TObject);
+    procedure ButtonStopClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormShow(Sender: TObject);
+    procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
+      Y: Integer);
     procedure PaintBox1Paint(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     procedure InitProgram;
+    procedure UpdateInterface;
   public
     Machine: TMachine;
@@ -40 +50 @@
 
 uses
-  UInstructionWriter, UFormMemory;
+  UAssembler, UFormMemory;
 
 { TFormMain }
@@ -50 +60 @@
 end;
 
-procedure TFormMain.ButtonRunClick(Sender: TObject);
+procedure TFormMain.ButtonStartClick(Sender: TObject);
 begin
   Machine.Reset;
-  with TInstructionWriter.Create do
-  try
-    Memory := Machine.Cpu.Memory;
-    Parse(MemoCode.Lines);
-  finally
-    Free;
-  end;
-  Machine.Cpu.Run;
-  Label1.Caption := 'Executed instructions: ' + IntToStr(Machine.Cpu.ExecutedCount);
+  ButtonCompile.Click;
+  Machine.Running := True;
+  UpdateInterface;
+end;
+
+procedure TFormMain.ButtonStopClick(Sender: TObject);
+begin
+  Machine.Running := False;
+  UpdateInterface;
 end;
 
@@ -70 +80 @@
 end;
 
+procedure TFormMain.ButtonCompileClick(Sender: TObject);
+begin
+  with TAssembler.Create do
+  try
+    Memory := Machine.Cpu.Memory;
+    Parse(MemoCode.Lines);
+  finally
+    Free;
+  end;
+end;
+
+procedure TFormMain.ButtonRestartClick(Sender: TObject);
+begin
+  ButtonStop.Click;
+  ButtonStart.Click;
+end;
+
 procedure TFormMain.FormDestroy(Sender: TObject);
 begin
@@ -75 +102 @@
 end;
 
+procedure TFormMain.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState
+  );
+begin
+  Machine.Keyboard.Press(Key);
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  UpdateInterface;
+end;
+
+procedure TFormMain.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
+  Y: Integer);
+begin
+  Machine.Mouse.Move(X, Y);
 end;
 
@@ -99 +139 @@
     PaintBox1.Repaint;
   end;
+  Label1.Caption := 'Executed instructions: ' + IntToStr(Machine.Cpu.ExecutedCount) + LineEnding +
+    'Interrupts: ' + IntToStr(Machine.Cpu.InterruptCount);
 end;
 
@@ -106 +148 @@
 end;
 
+procedure TFormMain.UpdateInterface;
+begin
+  ButtonStart.Enabled := not Machine.Running;
+  ButtonStop.Enabled := Machine.Running;
+  ButtonRestart.Enabled := not Machine.Running;
+end;
+
 end.
 

@@ -2 +2 @@
 UltimatOS.lps
 UltimatOS.res
+UltimatOS.dbg
 lib