Changeset 3 for branches/bigint

Timestamp:

Aug 1, 2024, 10:09:05 PM (4 months ago)

Author:

chronos

Message:

• Modified: Added more instructions.

Location:

branches/bigint

Files:

• . (modified) (1 prop)
• Cpu.pas (modified) (5 diffs)
• FormMain.pas (modified) (1 diff)
• Memory.pas (modified) (1 diff)

branches/bigint/Cpu.pas

@@ -9 +9 @@
   TInstructionEvent = procedure of object;
 
-  TInstruction = (inNop, inHalt, inLoad, inLoadConst, inInput, inOutput);
+  TInstruction = (inNop, inHalt, inLoad, inLoadConst, inInput, inOutput,
+    inJump, inJumpZero, inJumpNotZero, inInc, inDec);
 
   { TCpu }
@@ -26 +27 @@
     procedure InstructionInput;
     procedure InstructionOutput;
+    procedure InstructionInc;
+    procedure InstructionDec;
+    procedure InstructionJump;
+    procedure InstructionJumpZero;
+    procedure InstructionJumpNotZero;
     procedure WriteMem(Address, Data: TInt);
     function ReadMem(Address: TInt): TInt;
@@ -95 +101 @@
 end;
 
+procedure TCpu.InstructionInc;
+var
+  Addr: TInt;
+begin
+  Addr := ReadMemPc;
+  WriteMem(Addr, ReadMem(Addr) + 1);
+end;
+
+procedure TCpu.InstructionDec;
+var
+  Addr: TInt;
+begin
+  Addr := ReadMemPc;
+  WriteMem(Addr, ReadMem(Addr) - 1);
+end;
+
+procedure TCpu.InstructionJump;
+begin
+  PC := ReadMem(ReadMemPc);
+end;
+
+procedure TCpu.InstructionJumpZero;
+var
+  Condition: TInt;
+  Addr: TInt;
+begin
+  Condition := ReadMemPc;
+  Addr := ReadMemPc;
+  if ReadMem(Condition) = 0 then PC := Addr;
+end;
+
+procedure TCpu.InstructionJumpNotZero;
+var
+  Condition: TInt;
+  Addr: TInt;
+begin
+  Condition := ReadMemPc;
+  Addr := ReadMemPc;
+  if ReadMem(Condition) <> 0 then PC := Addr;
+end;
+
 procedure TCpu.WriteMem(Address, Data: TInt);
 begin
@@ -139 +186 @@
 procedure TCpu.Step;
 var
-  Opcode: TInt;
-begin
-  Opcode := FOnReadMem(PC);
+  Opcode: TInstruction;
+begin
+  Opcode := TInstruction(FOnReadMem(PC));
   Inc(PC);
-  Instructions[TInstruction(Opcode)];
+  Instructions[Opcode];
 end;
 
@@ -154 +201 @@
   Instructions[inInput] := InstructionInput;
   Instructions[inOutput] := InstructionOutput;
+  Instructions[inJump] := InstructionJump;
+  Instructions[inJumpZero] := InstructionJumpZero;
+  Instructions[inJumpNotZero] := InstructionJumpNotZero;
+  Instructions[inInc] := InstructionInc;
+  Instructions[inDec] := InstructionDec;
 end;
 

branches/bigint/FormMain.pas

@@ -44 +44 @@
 
 procedure TFormMain.FormShow(Sender: TObject);
+var
+  Label1: TInt;
 begin
   with Machine.Memory do begin
     WritePos(TInt(inLoadConst));
-    WritePos(0);
+    WritePos(1000);
     WritePos(Ord('A'));
+
+    WritePos(TInt(inLoadConst));
+    WritePos(1001);
+    WritePos(20);
+
+    Label1 := Position;
+
     WritePos(TInt(inOutput));
     WritePos(0);
-    WritePos(0);
-    WritePos(TInt(inLoad));
-    WritePos(1);
-    WritePos(0);
+    WritePos(1000);
+
+    WritePos(TInt(inInc));
+    WritePos(1000);
+
+    WritePos(TInt(inDec));
+    WritePos(1001);
+
+    WritePos(TInt(inJumpNotZero));
+    WritePos(1001);
+    WritePos(Label1);
+
     WritePos(TInt(inHalt));
   end;

branches/bigint/Memory.pas

@@ -22 +22 @@
     function ReadPos: TInt;
     property Size: TInt read GetSize write SetSize;
+    property Position: TInt read FPosition write FPosition;
   end;