Changeset 171 for branches/virtualcpu4/UInstructionWriter.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/UInstructionWriter.pas (modified) (5 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -19 +19 @@
     procedure Write32(Value: DWord);
     procedure Write64(Value: QWord);
+    procedure WriteAddress(Value: TAddress);
+    procedure WriteData(Value: QWord);
+    procedure WriteString(Text: string);
     procedure Nop;
     procedure Halt;
     procedure LoadConst(Reg: Byte; Value: QWord);
     procedure Increment(Reg: Byte);
+    procedure Decrement(Reg: Byte);
     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);
   end;
 
@@ -47 +56 @@
   Write8(Byte(opLoadConst));
   Write8(Reg);
-  case Cpu.DataSize of
-    bw8: Write8(Value);
-    bw16: Write16(Value);
-    bw32: Write32(Value);
-    bw64: Write64(Value);
-  end;
+  WriteData(Value);
 end;
 
@@ -61 +65 @@
 end;
 
+procedure TInstructionWriter.Decrement(Reg: Byte);
+begin
+  Write8(Byte(opDec));
+  Write8(Reg);
+end;
+
 procedure TInstructionWriter.Jump(Value: QWord);
 begin
   Write8(Byte(opJump));
-  case Cpu.AddressSize of
-    bw8: Write8(Value);
-    bw16: Write16(Value);
-    bw32: Write32(Value);
-    bw64: Write64(Value);
-  end;
+  WriteAddress(Value);
+end;
+
+procedure TInstructionWriter.JumpNotZero(Value: QWord);
+begin
+  Write8(Byte(opJumpNotZero));
+  WriteAddress(Value);
 end;
 
@@ -82 +93 @@
   Write8(RegAddr);
   Write8(RegSrc);
+end;
+
+procedure TInstructionWriter.LoadMem(RegDst, RegAddr: Byte);
+begin
+  Write8(Byte(opLoadMem));
+  Write8(RegDst);
+  Write8(RegAddr);
+end;
+
+procedure TInstructionWriter.Output(Port: TAddress; Reg: Byte);
+begin
+  Write8(Byte(opOut));
+  WriteAddress(Port);
+  Write8(Reg);
+end;
+
+procedure TInstructionWriter.Input(Reg: Byte; Port: TAddress);
+begin
+  Write8(Byte(opIn));
+  Write8(Reg);
+  WriteAddress(Port);
+end;
+
+procedure TInstructionWriter.Test(Reg: Byte);
+begin
+  Write8(Byte(opTest));
+  Write8(Reg);
+end;
+
+procedure TInstructionWriter.WriteString(Text: string);
+var
+  I: Integer;
+begin
+  for I := 1 to Length(Text) do
+    Write8(Ord(Text[I]));
 end;
 
@@ -108 +154 @@
 end;
 
+procedure TInstructionWriter.WriteAddress(Value: TAddress);
+begin
+  case Cpu.AddressSize of
+    bw8: Write8(Value);
+    bw16: Write16(Value);
+    bw32: Write32(Value);
+    bw64: Write64(Value);
+  end;
+end;
+
+procedure TInstructionWriter.WriteData(Value: QWord);
+begin
+  case Cpu.DataSize of
+    bw8: Write8(Value);
+    bw16: Write16(Value);
+    bw32: Write32(Value);
+    bw64: Write64(Value);
+  end;
+end;
+
 end.