Changeset 218 for branches/CpuSingleSize/UInstructions.pas

Timestamp:

Oct 14, 2020, 7:51:40 PM (4 years ago)

Author:

chronos

Message:

• Added: Support for indirect instruction parameters used mailny for LD, ST, IN and OUT.

File:

• branches/CpuSingleSize/UInstructions.pas (modified) (2 diffs)

branches/CpuSingleSize/UInstructions.pas

@@ -9 +9 @@
 
 type
-  TParamType = (ptNone, ptNumber, ptReg);
+  TParamType = (ptNone, ptNumber, ptReg, ptRegIndirect);
   TParamTypeArray = array of TParamType;
+
   TInstructionInfo = class
     Instruction: TInstruction;
@@ -77 +78 @@
   AddNew(inInc, 'INC', [ptReg], 'Increments value in specified register.');
   AddNew(inDec, 'DEC', [ptReg], 'Decrements value in specified register.');
-  AddNew(inLoad, 'LD', [ptReg, ptReg], 'Loads value from memory to register.');
-  AddNew(inStore, 'ST', [ptReg, ptReg], 'Stores value from register to memory.');
+  AddNew(inLoad, 'LD', [ptReg, ptRegIndirect], 'Loads value from memory to register.');
+  AddNew(inStore, 'ST', [ptRegIndirect, ptReg], 'Stores value from register to memory.');
   AddNew(inAdd, 'ADD', [ptReg, ptReg], 'Adds second register to first register.');
   AddNew(inSub, 'SUB', [ptReg, ptReg], 'Subtracts second register from first register.');
-  AddNew(inIn, 'IN', [ptReg, ptReg], 'Reads value from input port to register.');
-  AddNew(inOut, 'OUT', [ptReg, ptReg], 'Writes value from register to output port.');
+  AddNew(inIn, 'IN', [ptReg, ptRegIndirect], 'Reads value from input port to register.');
+  AddNew(inOut, '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');