Changeset 31 for branches/UltimatOS/UCpu.pas

Timestamp:

Jul 6, 2022, 1:05:27 AM (23 months ago)

Author:

chronos

Message:

• Modified: Code parsing and execution improvements.

File:

• branches/UltimatOS/UCpu.pas (modified) (3 diffs)

branches/UltimatOS/UCpu.pas

@@ -9 +9 @@
   TInstruction = (inNop, inHalt, inSet, inInput, inOutput, inInc, inDec, inJp,
     inJpz, inJpnz, inAdd, inSub, inCall, inRet, inPush, inPop, inCopy,
-    inShl, inShr, inLoad, inStore, inMul, inAnd, inOr, inXor);
+    inShl, inShr, inLoad, inLoadi, inStore, inMul, inAnd, inAndi, inOr, inXor);
   TAddress = Integer;
   PAddress = ^TAddress;
@@ -107 +107 @@
       R[RegIndex] := PData(@Memory.Data[R[RegIndex2]])^;
     end;
+    inLoadi: begin
+      RegIndex := ReadByte;
+      Address := ReadAddress;
+      R[RegIndex] := PData(@Memory.Data[Address])^;
+    end;
     inStore: begin
       RegIndex := ReadByte;
@@ -194 +199 @@
       RegIndex2 := ReadByte;
       R[RegIndex] := R[RegIndex] and R[RegIndex2];
+    end;
+    inAndi: begin
+      RegIndex := ReadByte;
+      R[RegIndex] := R[RegIndex] and ReadData;
     end;
     inOr: begin