Changeset 219 for branches/CpuSingleSize/UCpu.pas
- Timestamp:
- Oct 14, 2020, 8:04:25 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/CpuSingleSize/UCpu.pas
r216 r219 12 12 inAdd, inSub, inIn, inOut, inJump, inJumpZero, inJumpNotZero, inPush, inPop, 13 13 inCall, inRet, inAnd, inOr, inXor, inShl, inShr, inMul, inDiv, inMod, 14 inJumpRel );14 inJumpRel, inLoadIndex, inStoreIndex); 15 15 16 16 TInteger = Integer; … … 114 114 Index: TInteger; 115 115 Port: TInteger; 116 Dest: TInteger; 116 117 begin 117 118 Instruction := TInstruction(ReadNext); … … 207 208 R[Index] := R[Index] mod R[ReadNext]; 208 209 end; 210 inLoadIndex: R[ReadNext] := Data[R[ReadNext] + ReadNext]; 211 inStoreIndex: Data[R[ReadNext] + ReadNext] := R[ReadNext]; 209 212 end; 210 213 Inc(Ticks);
Note:
See TracChangeset
for help on using the changeset viewer.