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

Timestamp:

Oct 16, 2018, 11:03:59 AM (6 years ago)

Author:

chronos

Message:

• Added: Show CPU tick count.
• Added: Show IP register value.
• Modified: Condition instructions store result to R1 register rather then to condition boolean variable.
• Modified: Shorter InstructionWriter method names.

File:

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

branches/virtcpu fixed int/UInstructionWriter.pas

@@ -17 +17 @@
     IP: T;
     procedure Write(Value: T);
-    procedure AddNop;
-    procedure AddLd(R1, R2: Integer);
-    procedure AddHalt;
-    procedure AddLdc(R, Value: Integer);
-    procedure AddLdm(R1, R2: Integer);
-    procedure AddStm(R1, R2: Integer);
-    procedure AddNeg(R: Integer);
-    procedure AddIn(R1, R2: Integer);
-    procedure AddOut(R1, R2: Integer);
-    procedure AddJump(Addr: Integer);
-    {$IFDEF EXT_REL_JUMP}procedure AddJr(Addr: Integer);{$ENDIF}
-    procedure AddInc(R: Integer);
+    procedure NoOperation;
+    procedure Load(R1, R2: Integer);
+    procedure Halt;
+    procedure LoadConst(R, Value: Integer);
+    procedure LoadMemory(R1, R2: Integer);
+    procedure StoreMemory(R1, R2: Integer);
+    procedure Neg(R: Integer);
+    procedure Input(R1, R2: Integer);
+    procedure Output(R1, R2: Integer);
+    procedure Subtract(R1, R2: Integer);
+    procedure Jump(Addr: Integer);
+    procedure JumpNotZero(R1: Integer; Addr: Integer);
+    procedure JumpZero(R1: Integer; Addr: Integer);
+    {$IFDEF EXT_REL_JUMP}procedure JumpRelative(Addr: Integer);{$ENDIF}
+    procedure Increment(R: Integer);
+    procedure Decrement(R: Integer);
     constructor Create;
   end;
@@ -37 +41 @@
 { TInstructionWriter }
 
-procedure TInstructionWriter.AddNop;
+procedure TInstructionWriter.NoOperation;
 begin
   Write(T(opNop));
 end;
 
-procedure TInstructionWriter.AddLd(R1, R2: Integer);
+procedure TInstructionWriter.Load(R1, R2: Integer);
 begin
   Write(T(opLoad));
@@ -49 +53 @@
 end;
 
-procedure TInstructionWriter.AddHalt;
+procedure TInstructionWriter.Halt;
 begin
   Write(T(opHalt));
 end;
 
-procedure TInstructionWriter.AddLdc(R, Value: Integer);
+procedure TInstructionWriter.LoadConst(R, Value: Integer);
 begin
   Write(T(opLoadConst));
@@ -61 +65 @@
 end;
 
-procedure TInstructionWriter.AddLdm(R1, R2: Integer);
+procedure TInstructionWriter.LoadMemory(R1, R2: Integer);
 begin
   Write(T(opLoadMem));
@@ -68 +72 @@
 end;
 
-procedure TInstructionWriter.AddStm(R1, R2: Integer);
+procedure TInstructionWriter.StoreMemory(R1, R2: Integer);
 begin
   Write(T(opStoreMem));
@@ -75 +79 @@
 end;
 
-procedure TInstructionWriter.AddNeg(R: Integer);
+procedure TInstructionWriter.Neg(R: Integer);
 begin
   Write(T(opNeg));
@@ -81 +85 @@
 end;
 
-procedure TInstructionWriter.AddIn(R1, R2: Integer);
+procedure TInstructionWriter.Input(R1, R2: Integer);
 begin
   Write(T(opInput));
@@ -88 +92 @@
 end;
 
-procedure TInstructionWriter.AddOut(R1, R2: Integer);
+procedure TInstructionWriter.Output(R1, R2: Integer);
 begin
   Write(T(opOutput));
@@ -95 +99 @@
 end;
 
-procedure TInstructionWriter.AddJump(Addr: Integer);
+procedure TInstructionWriter.Subtract(R1, R2: Integer);
+begin
+  Write(T(opSub));
+  Write(R1);
+  Write(R2);
+end;
+
+procedure TInstructionWriter.Jump(Addr: Integer);
 begin
   Write(T(opJump));
@@ -101 +112 @@
 end;
 
+procedure TInstructionWriter.JumpNotZero(R1: Integer; Addr: Integer);
+begin
+  Write(T(opJumpNotZero));
+  Write(R1);
+  Write(Addr);
+end;
+
+procedure TInstructionWriter.JumpZero(R1: Integer; Addr: Integer);
+begin
+  Write(T(opJumpZero));
+  Write(R1);
+  Write(Addr);
+end;
+
 {$IFDEF EXT_REL_JUMP}
-procedure TInstructionWriter.AddJr(Addr: Integer);
+procedure TInstructionWriter.JumpRelative(Addr: Integer);
 begin
   Write(T(opJumpRel));
@@ -109 +134 @@
 {$ENDIF}
 
-procedure TInstructionWriter.AddInc(R: Integer);
+procedure TInstructionWriter.Increment(R: Integer);
 begin
   Write(T(opInc));
+  Write(R);
+end;
+
+procedure TInstructionWriter.Decrement(R: Integer);
+begin
+  Write(T(opDec));
   Write(R);
 end;