Changeset 12 for branches/bigint/Cpu.pas

Timestamp:

Apr 24, 2025, 10:12:32 PM (2 weeks ago)

Author:

chronos

Message:

• Added: More CPU instructions.
• Added: Mouse device.

File:

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

branches/bigint/Cpu.pas

@@ -10 +10 @@
 
   TInstruction = (inNop, inHalt, inLoad, inLoadConst, inInput, inOutput,
-    inJump, inJumpZero, inJumpNotZero, inInc, inDec, inLoadIndex, inPush, inPop,
-    inCall, inRet, inLoadMem, inStoreMem);
+    inJump, inJumpZero, inJumpNotZero, inIncrement, inDecrement, inLoadIndex,
+    inPush, inPop, inCall, inReturn, inLoadMem, inStoreMem, inAdd, inSubtract,
+    inAnd, inOr, inXor, inShiftLeft, inShiftRight, inJumpRel, inJumpRelZero,
+    inJumpRelNotZero, inBitSet, inBitReset, inBitTest, inGetMaxInt, inGetMinInt);
 
   { TCpu }
@@ -36 +38 @@
     procedure InstructionJumpZero;
     procedure InstructionJumpNotZero;
+    procedure InstructionJumpRel;
+    procedure InstructionJumpRelZero;
+    procedure InstructionJumpRelNotZero;
     procedure InstructionPush;
     procedure InstructionPop;
     procedure InstructionCall;
     procedure InstructionRet;
+    procedure InstructionAdd;
+    procedure InstructionSub;
+    procedure InstructionAnd;
+    procedure InstructionOr;
+    procedure InstructionXor;
+    procedure InstructionShl;
+    procedure InstructionShr;
+    procedure InstructionBitSet;
+    procedure InstructionBitReset;
+    procedure InstructionBitTest;
+    procedure InstructionGetMaxInt;
+    procedure InstructionGetMinInt;
     procedure WriteMem(Address, Data: TInt);
     function ReadMem(Address: TInt): TInt;
@@ -180 +197 @@
 end;
 
+procedure TCpu.InstructionJumpRel;
+var
+  Addr: TInt;
+begin
+  Addr := ReadMemPc;
+  PC := PC + Addr;
+end;
+
+procedure TCpu.InstructionJumpRelZero;
+var
+  Condition: TInt;
+  Addr: TInt;
+begin
+  Condition := ReadMemPc;
+  Addr := ReadMemPc;
+  if ReadMem(Condition) = 0 then PC := PC + Addr;
+end;
+
+procedure TCpu.InstructionJumpRelNotZero;
+var
+  Condition: TInt;
+  Addr: TInt;
+begin
+  Condition := ReadMemPc;
+  Addr := ReadMemPc;
+  if ReadMem(Condition) <> 0 then PC := PC + Addr;
+end;
+
 procedure TCpu.InstructionPush;
 begin
@@ -202 +247 @@
 begin
   PC := Pop;
+end;
+
+procedure TCpu.InstructionAdd;
+var
+  Dst, Src1, Src2: TInt;
+begin
+  Dst := ReadMemPc;
+  Src1 := ReadMemPc;
+  Src2 := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src1) + ReadMem(Src2));
+end;
+
+procedure TCpu.InstructionSub;
+var
+  Dst, Src1, Src2: TInt;
+begin
+  Dst := ReadMemPc;
+  Src1 := ReadMemPc;
+  Src2 := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src1) - ReadMem(Src2));
+end;
+
+procedure TCpu.InstructionAnd;
+var
+  Dst, Src1, Src2: TInt;
+begin
+  Dst := ReadMemPc;
+  Src1 := ReadMemPc;
+  Src2 := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src1) and ReadMem(Src2));
+end;
+
+procedure TCpu.InstructionOr;
+var
+  Dst, Src1, Src2: TInt;
+begin
+  Dst := ReadMemPc;
+  Src1 := ReadMemPc;
+  Src2 := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src1) or ReadMem(Src2));
+end;
+
+procedure TCpu.InstructionXor;
+var
+  Dst, Src1, Src2: TInt;
+begin
+  Dst := ReadMemPc;
+  Src1 := ReadMemPc;
+  Src2 := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src1) xor ReadMem(Src2));
+end;
+
+procedure TCpu.InstructionShl;
+var
+  Dst, Src, Shift: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Shift := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src) shl ReadMem(Shift));
+end;
+
+procedure TCpu.InstructionShr;
+var
+  Dst, Src, Shift: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Shift := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src) shr ReadMem(Shift));
+end;
+
+procedure TCpu.InstructionBitSet;
+var
+  Dst, Src, Bit: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Bit := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src) or (1 << ReadMem(Bit)));
+end;
+
+procedure TCpu.InstructionBitReset;
+var
+  Dst, Src, Bit: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Bit := ReadMemPc;
+  WriteMem(Dst, ReadMem(Src) and (-1 xor (1 << ReadMem(Bit))));
+end;
+
+procedure TCpu.InstructionBitTest;
+var
+  Dst, Src, Bit: TInt;
+begin
+  Dst := ReadMemPc;
+  Src := ReadMemPc;
+  Bit := ReadMemPc;
+  WriteMem(Dst, (ReadMem(Src) >> ReadMem(Bit)) and 1);
+end;
+
+procedure TCpu.InstructionGetMaxInt;
+var
+  Dst: TInt;
+begin
+  Dst := ReadMemPc;
+  WriteMem(Dst, SizeOf(TInt) * 8);
+end;
+
+procedure TCpu.InstructionGetMinInt;
+var
+  Dst: TInt;
+begin
+  Dst := ReadMemPc;
+//  WriteMem(Dst, SizeOf(TInt) * 8);
 end;
 
@@ -281 +442 @@
   Instructions[inJumpZero] := InstructionJumpZero;
   Instructions[inJumpNotZero] := InstructionJumpNotZero;
-  Instructions[inInc] := InstructionInc;
-  Instructions[inDec] := InstructionDec;
+  Instructions[inJumpRel] := InstructionJumpRel;
+  Instructions[inJumpRelZero] := InstructionJumpRelZero;
+  Instructions[inJumpRelNotZero] := InstructionJumpRelNotZero;
+  Instructions[inIncrement] := InstructionInc;
+  Instructions[inDecrement] := InstructionDec;
   Instructions[inPush] := InstructionPush;
   Instructions[inPop] := InstructionPop;
   Instructions[inCall] := InstructionCall;
-  Instructions[inRet] := InstructionRet;
+  Instructions[inReturn] := InstructionRet;
+  Instructions[inAdd] := InstructionAdd;
+  Instructions[inSubtract] := InstructionSub;
+  Instructions[inAnd] := InstructionAnd;
+  Instructions[inOr] := InstructionOr;
+  Instructions[inXor] := InstructionXor;
+  Instructions[inShiftLeft] := InstructionShl;
+  Instructions[inShiftRight] := InstructionShr;
+  Instructions[inBitSet] := InstructionBitSet;
+  Instructions[inBitReset] := InstructionBitReset;
+  Instructions[inBitTest] := InstructionBitTest;
+  Instructions[inGetMaxInt] := InstructionGetMaxInt;
+  Instructions[inGetMinInt] := InstructionGetMinInt;
 end;