Changeset 215 for branches/virtcpu fixed int/UInstructionWriter.pas

Timestamp:

Aug 19, 2020, 11:54:20 PM (4 years ago)

Author:

chronos

Message:

• Added: TMachine class which contains CPU and peripherals.
• Added: Execute TCpu inside background thread.

File:

• branches/virtcpu fixed int/UInstructionWriter.pas (modified) (3 diffs)

branches/virtcpu fixed int/UInstructionWriter.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UMachine;
+  Classes, SysUtils, UCpu;
 
 type
@@ -28 +28 @@
     procedure Subtract(R1, R2: Integer);
     procedure Jump(Addr: Integer);
-    procedure JumpNotZero(R1: Integer; Addr: Integer);
-    procedure JumpZero(R1: Integer; Addr: Integer);
+    procedure JumpCond(Addr: Integer);
+    procedure TestZero(R: Integer);
     {$IFDEF EXT_REL_JUMP}procedure JumpRelative(Addr: Integer);{$ENDIF}
+    procedure SysCall;
     procedure Increment(R: Integer);
     procedure Decrement(R: Integer);
@@ -112 +113 @@
 end;
 
-procedure TInstructionWriter.JumpNotZero(R1: Integer; Addr: Integer);
+procedure TInstructionWriter.JumpCond(Addr: Integer);
 begin
-  Write(T(opJumpNotZero));
-  Write(R1);
+  Write(T(opJumpCond));
   Write(Addr);
 end;
 
-procedure TInstructionWriter.JumpZero(R1: Integer; Addr: Integer);
+procedure TInstructionWriter.TestZero(R: Integer);
 begin
-  Write(T(opJumpZero));
-  Write(R1);
-  Write(Addr);
+  Write(T(opTestZero));
+  Write(R);
+end;
+
+procedure TInstructionWriter.SysCall;
+begin
+  Write(T(opSysCall));
 end;