Changeset 7 for branches/bigint/Cpu.pas

Timestamp:

Aug 1, 2024, 11:47:03 PM (3 months ago)

Author:

chronos

Message:

• Added: More instructions implemented.

File:

• branches/bigint/Cpu.pas (modified) (10 diffs)

branches/bigint/Cpu.pas

@@ -10 +10 @@
 
   TInstruction = (inNop, inHalt, inLoad, inLoadConst, inInput, inOutput,
-    inJump, inJumpZero, inJumpNotZero, inInc, inDec);
+    inJump, inJumpZero, inJumpNotZero, inInc, inDec, inLoadIndex, inPush, inPop,
+    inCall, inRet, inLoadMem, inStoreMem);
 
   { TCpu }
@@ -25 +26 @@
     procedure InstructionLoad;
     procedure InstructionLoadConst;
+    procedure InstructionLoadIndex;
+    procedure InstructionLoadMem;
+    procedure InstructionStoreMem;
     procedure InstructionInput;
     procedure InstructionOutput;
@@ -32 +36 @@
     procedure InstructionJumpZero;
     procedure InstructionJumpNotZero;
+    procedure InstructionPush;
+    procedure InstructionPop;
+    procedure InstructionCall;
+    procedure InstructionRet;
     procedure WriteMem(Address, Data: TInt);
     function ReadMem(Address: TInt): TInt;
@@ -37 +45 @@
     procedure WriteIo(Address, Data: TInt);
     function ReadIo(Address: TInt): TInt;
+    procedure Push(Data: TInt);
+    function Pop: TInt;
   public
     Halted: Boolean;
@@ -83 +93 @@
 end;
 
+procedure TCpu.InstructionLoadIndex;
+var
+  Dst, Src, Index: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Index := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src + Index));
+end;
+
+procedure TCpu.InstructionLoadMem;
+var
+  Dst, Src: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  WriteMem(Dst, ReadMem(ReadMem(Src)));
+end;
+
+procedure TCpu.InstructionStoreMem;
+var
+  Dst, Src: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  WriteMem(ReadMem(Dst), ReadMem(Src));
+end;
+
 procedure TCpu.InstructionInput;
 var
@@ -119 +157 @@
 procedure TCpu.InstructionJump;
 begin
-  PC := ReadMem(ReadMemPc);
+  PC := ReadMemPc;
 end;
 
@@ -140 +178 @@
   Addr := ReadMemPc;
   if ReadMem(Condition) <> 0 then PC := Addr;
+end;
+
+procedure TCpu.InstructionPush;
+begin
+  Push(ReadMem(ReadMemPc));
+end;
+
+procedure TCpu.InstructionPop;
+begin
+  WriteMem(ReadMemPc, Pop);
+end;
+
+procedure TCpu.InstructionCall;
+var
+  Addr: TInt;
+begin
+  Addr := ReadMemPc;
+  Push(PC);
+  PC := Addr;
+end;
+
+procedure TCpu.InstructionRet;
+begin
+  PC := Pop;
 end;
 
@@ -170 +232 @@
 end;
 
+procedure TCpu.Push(Data: TInt);
+begin
+  Dec(SP);
+  WriteMem(SP, Data);
+end;
+
+function TCpu.Pop: TInt;
+begin
+  Result := ReadMem(SP);
+  Inc(SP);
+end;
+
 procedure TCpu.Reset;
 begin
   PC := 0;
-  SP := 0;
+  SP := 1000;
   Halted := False;
 end;
@@ -198 +272 @@
   Instructions[inHalt] := InstructionHalt;
   Instructions[inLoad] := InstructionLoad;
+  Instructions[inLoadIndex] := InstructionLoadIndex;
   Instructions[inLoadConst] := InstructionLoadConst;
+  Instructions[inLoadMem] := InstructionLoadMem;
+  Instructions[inStoreMem] := InstructionStoreMem;
   Instructions[inInput] := InstructionInput;
   Instructions[inOutput] := InstructionOutput;
@@ -206 +283 @@
   Instructions[inInc] := InstructionInc;
   Instructions[inDec] := InstructionDec;
+  Instructions[inPush] := InstructionPush;
+  Instructions[inPop] := InstructionPop;
+  Instructions[inCall] := InstructionCall;
+  Instructions[inRet] := InstructionRet;
 end;