Changeset 7 for branches/bigint/Instructions.pas

Timestamp:

Aug 1, 2024, 11:47:03 PM (3 months ago)

Author:

chronos

Message:

• Added: More instructions implemented.

File:

• branches/bigint/Instructions.pas (modified) (3 diffs)

branches/bigint/Instructions.pas

@@ -7 +7 @@
 
 type
-  TParamType = (ptNone, ptNumber, ptIndirect);
+  TParamType = (ptNone, ptNumber, ptIndirect, ptIndirect2);
   TParamTypeArray = array of TParamType;
 
@@ -74 +74 @@
   AddNew(inHalt, 'HALT', [], 'It terminates program execution and halts processor. Processor can be waked up by interrupt.');
   AddNew(inLoadConst, 'LDC', [ptIndirect, ptNumber], 'Loads constant into address location.');
-  AddNew(inLoad, 'LD', [ptIndirect, ptIndirect], 'Copies value from one register to another.');
+  AddNew(inLoadIndex, 'LDI', [ptIndirect, ptIndirect, ptNumber], 'Loads value from one memory location with added relative index to another.');
+  AddNew(inLoad, 'LD', [ptIndirect, ptIndirect], 'Loads value from one memory location to another.');
+  AddNew(inLoadMem, 'LDM', [ptIndirect, ptIndirect2], 'Loads value from one indirect memory location to another.');
+  AddNew(inStoreMem, 'STM', [ptIndirect2, ptIndirect], 'Stotes value to indirect memory location from source location.');
   AddNew(inInc, 'INC', [ptIndirect], 'Increments value in specified register.');
   AddNew(inDec, 'DEC', [ptIndirect], 'Decrements value in specified register.');
@@ -82 +85 @@
   AddNew(inJumpZero, 'JPZ', [ptIndirect, ptNumber], 'Jumps to given address if value of register is zero');
   AddNew(inJumpNotZero, 'JPNZ', [ptIndirect, ptNumber], 'Jumps to given address if value of register is not zero');
+  AddNew(inPush, 'PUSH', [ptIndirect], 'Push memory location onto stack.');
+  AddNew(inPop, 'POP', [ptIndirect], 'Pop item from stack and store it into memory location.');
+  AddNew(inCall, 'CALL', [ptNumber], 'Call subroutine.');
+  AddNew(inRet, 'RET', [], 'Return from subrotine.');
 end;