Changeset 12 for branches/bigint/Instructions.pas

Timestamp:

Apr 24, 2025, 10:12:32 PM (2 weeks ago)

Author:

chronos

Message:

• Added: More CPU instructions.
• Added: Mouse device.

File:

• branches/bigint/Instructions.pas (modified) (1 diff)

branches/bigint/Instructions.pas

@@ -78 +78 @@
   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.');
+  AddNew(inIncrement, 'INC', [ptIndirect], 'Increments value in specified register.');
+  AddNew(inDecrement, 'DEC', [ptIndirect], 'Decrements value in specified register.');
   AddNew(inInput, 'IN', [ptIndirect, ptIndirect], 'Reads value from input port to register.');
   AddNew(inOutput, 'OUT', [ptIndirect, ptIndirect], 'Writes value from register to output port.');
   AddNew(inJump, 'JP', [ptNumber], 'Unconditional absolute jump to defined address.');
-  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(inJumpZero, 'JPZ', [ptIndirect, ptNumber], 'Jumps to absolute address if value of register is zero');
+  AddNew(inJumpNotZero, 'JPNZ', [ptIndirect, ptNumber], 'Jumps to absolute address if value of register is not zero');
+  AddNew(inJumpRel, 'JR', [ptNumber], 'Unconditional relative jump to defined address.');
+  AddNew(inJumpRelZero, 'JRZ', [ptIndirect, ptNumber], 'Jumps to relative address if value of register is zero');
+  AddNew(inJumpRelNotZero, 'JRNZ', [ptIndirect, ptNumber], 'Jumps to relative 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.');
+  AddNew(inReturn, 'RET', [], 'Return from subrotine.');
+  AddNew(inAdd, 'ADD', [ptIndirect, ptIndirect, ptIndirect], 'Addition of two numbers.');
+  AddNew(inSubtract, 'Sub', [ptIndirect, ptIndirect, ptIndirect], 'Subtraction of two numbers.');
+  AddNew(inAnd, 'AND', [ptIndirect, ptIndirect, ptIndirect], 'Logical AND operation.');
+  AddNew(inOr, 'OR', [ptIndirect, ptIndirect, ptIndirect], 'Logical OR operation.');
+  AddNew(inXor, 'XOR', [ptIndirect, ptIndirect, ptIndirect], 'Logical XOR operation.');
+  AddNew(inShiftLeft, 'SHL', [ptIndirect, ptIndirect, ptIndirect], 'Bitwise shift to the left.');
+  AddNew(inShiftRight, 'SHR', [ptIndirect, ptIndirect, ptIndirect], 'Bitwise shift to the right.');
+  AddNew(inBitSet, 'SET', [ptIndirect, ptIndirect, ptIndirect], 'Set specific bit.');
+  AddNew(inBitReset, 'RES', [ptIndirect, ptIndirect, ptIndirect], 'Reset specific bit.');
+  AddNew(inBitTest, 'BIT', [ptIndirect, ptIndirect, ptIndirect], 'Test of specific bit.');
 end;