Changeset 173 for branches/virtualcpu4/UInstructionWriter.pas

Timestamp:

Apr 11, 2019, 11:43:06 PM (6 years ago)

Author:

chronos

Message:

• Added: More instructions.

File:

• branches/virtualcpu4/UInstructionWriter.pas (modified) (8 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -24 +24 @@
     procedure Nop;
     procedure Halt;
-    procedure LoadConst(Reg: Byte; Value: QWord);
-    procedure Increment(Reg: Byte);
-    procedure Decrement(Reg: Byte);
+    procedure Loadi(Reg: TRegIndex; Value: QWord);
+    procedure Increment(Reg: TRegIndex);
+    procedure Decrement(Reg: TRegIndex);
     procedure Jump(Value: QWord);
     procedure JumpNotZero(Value: QWord);
     procedure DataPrefix8;
-    procedure StoreMem(RegAddr, RegSrc: Byte);
-    procedure LoadMem(RegDst, RegAddr: Byte);
-    procedure Output(Port: TAddress; Reg: Byte);
-    procedure Input(Reg: Byte; Port: TAddress);
-    procedure Test(Reg: Byte);
+    procedure DataPrefix16;
+    procedure DataPrefix32;
+    procedure DataPrefix64;
+    procedure StoreMem(RegAddr, RegSrc: TRegIndex);
+    procedure LoadMem(RegDst, RegAddr: TRegIndex);
+    procedure Output(Port: TAddress; Reg: TRegIndex);
+    procedure Input(Reg: TRegIndex; Port: TAddress);
+    procedure Test(Reg: TRegIndex);
   end;
 
@@ -52 +55 @@
 end;
 
-procedure TInstructionWriter.LoadConst(Reg: Byte; Value: QWord);
+procedure TInstructionWriter.Loadi(Reg: TRegIndex; Value: QWord);
 begin
-  Write8(Byte(opLoadConst));
+  Write8(Byte(opLoadi));
   Write8(Reg);
   WriteData(Value);
 end;
 
-procedure TInstructionWriter.Increment(Reg: Byte);
+procedure TInstructionWriter.Increment(Reg: TRegIndex);
 begin
   Write8(Byte(opInc));
@@ -65 +68 @@
 end;
 
-procedure TInstructionWriter.Decrement(Reg: Byte);
+procedure TInstructionWriter.Decrement(Reg: TRegIndex);
 begin
   Write8(Byte(opDec));
@@ -88 +91 @@
 end;
 
-procedure TInstructionWriter.StoreMem(RegAddr, RegSrc: Byte);
+procedure TInstructionWriter.DataPrefix16;
+begin
+  Write8(Byte(opDataPrefix16));
+end;
+
+procedure TInstructionWriter.DataPrefix32;
+begin
+  Write8(Byte(opDataPrefix32));
+end;
+
+procedure TInstructionWriter.DataPrefix64;
+begin
+  Write8(Byte(opDataPrefix64));
+end;
+
+procedure TInstructionWriter.StoreMem(RegAddr, RegSrc: TRegIndex);
 begin
   Write8(Byte(opStoreMem));
@@ -95 +113 @@
 end;
 
-procedure TInstructionWriter.LoadMem(RegDst, RegAddr: Byte);
+procedure TInstructionWriter.LoadMem(RegDst, RegAddr: TRegIndex);
 begin
   Write8(Byte(opLoadMem));
@@ -102 +120 @@
 end;
 
-procedure TInstructionWriter.Output(Port: TAddress; Reg: Byte);
+procedure TInstructionWriter.Output(Port: TAddress; Reg: TRegIndex);
 begin
   Write8(Byte(opOut));
@@ -109 +127 @@
 end;
 
-procedure TInstructionWriter.Input(Reg: Byte; Port: TAddress);
+procedure TInstructionWriter.Input(Reg: TRegIndex; Port: TAddress);
 begin
   Write8(Byte(opIn));
@@ -116 +134 @@
 end;
 
-procedure TInstructionWriter.Test(Reg: Byte);
+procedure TInstructionWriter.Test(Reg: TRegIndex);
 begin
   Write8(Byte(opTest));