Changeset 46 for branches/ByteArray/Cpu.pas

Timestamp:

Oct 23, 2023, 11:34:54 PM (13 months ago)

Author:

chronos

Message:

• Added: Various useful forms, assembler and disassembler classes.

Location:

branches/ByteArray

Files:

• . (modified) (1 prop)
• Cpu.pas (modified) (5 diffs)

branches/ByteArray/Cpu.pas

@@ -22 +22 @@
     inJump, inJumpSize,
     inJumpNotZero, inJumpNotZeroSize,
+    inJumpZero, inJumpZeroSize,
     inJumpRel, inJumpRelSize,
     inCall, inCallSize,
@@ -36 +37 @@
     inOtir, inOti, inOtdr, inOtd,
     inCpir, inCpi, inCpdr, inCpd,
-    inEx,
-    inCp);
+    inEx, inEnableInterrupts, inDisableInterrupts,
+    inCompare);
 
   TRegIndex = (riA, riB, riC, riD, riE, riF, riG, riH);
@@ -64 +65 @@
     procedure InstructionJumpNotZero;
     procedure InstructionJumpNotZeroSize;
+    procedure InstructionJumpZero;
+    procedure InstructionJumpZeroSize;
     procedure InstructionJumpRel;
     procedure InstructionJumpRelSize;
@@ -257 +260 @@
 end;
 
+procedure TCpu.InstructionJumpZero;
+var
+  RegIndex: TRegIndex;
+  Address: TBigInt;
+begin
+  RegIndex := ReadRegIndex;
+  Address := Read(AddressWidth);
+  if Byte(Regs[RegIndex]) = 0 then
+    PC := Address;
+end;
+
+procedure TCpu.InstructionJumpZeroSize;
+var
+  RegIndex: TRegIndex;
+  Address: TBigInt;
+  DataSize: Byte;
+  AddressSize: Byte;
+begin
+  DataSize := Read(1);
+  AddressSize := Read(1);
+  RegIndex := ReadRegIndex;
+  Address := Read(AddressSize);
+  if Int64(Regs[RegIndex].Copy(DataSize)) = 0 then
+    PC := Address;
+end;
+
 procedure TCpu.InstructionJumpRel;
 begin
@@ -430 +459 @@
   Instructions[inJumpNotZero] := InstructionJumpNotZero;
   Instructions[inJumpNotZeroSize] := InstructionJumpNotZeroSize;
+  Instructions[inJumpZero] := InstructionJumpZero;
+  Instructions[inJumpZeroSize] := InstructionJumpZeroSize;
   Instructions[inJumpRel] := InstructionJumpRel;
   Instructions[inJumpRelSize] := InstructionJumpRelSize;