Changeset 55 for branches/ByteArray/Instructions.pas

Timestamp:

Nov 22, 2023, 10:09:35 PM (7 months ago)

Author:

chronos

Message:

• Modified: Extended BigInt type implementation.

File:

• branches/ByteArray/Instructions.pas (modified) (2 diffs)

branches/ByteArray/Instructions.pas

@@ -7 +7 @@
 
 type
-  TParamType = (ptNone, ptNumber, ptReg, ptRegIndirect, ptRegIndirectIndex,
-    ptRegIndirectGroup);
+  TParamType = (ptNone, ptNumber, ptReg, ptRegIndirect, ptRegIndirectIndex);
   TParamTypeArray = array of TParamType;
 
@@ -80 +79 @@
   AddNew(inAdd, 'ADD', [ptReg, ptReg], 'Adds second register to first register.');
   AddNew(inSub, 'SUB', [ptReg, ptReg], 'Subtracts second register from first register.');
-  AddNew(inInput, 'IN', [ptReg, ptRegIndirectGroup], 'Reads value from input port to register.');
-  AddNew(inOutput, 'OUT', [ptRegIndirectGroup, ptReg], 'Writes value from register to output port.');
+  AddNew(inInput, 'IN', [ptReg, ptRegIndirect], 'Reads value from input port to register.');
+  AddNew(inOutput, 'OUT', [ptRegIndirect, ptReg], 'Writes value from register to output port.');
   AddNew(inJumpZero, 'JZ', [ptReg, ptNumber], 'Jumps to given address if value of register is zero');
   AddNew(inJumpNotZero, 'JNZ', [ptReg, ptNumber], 'Jumps to given address if value of register is not zero');