Changeset 179 for branches/virtualcpu4/UInstructionWriter.pas

Timestamp:

Apr 12, 2019, 3:23:47 PM (5 years ago)

Author:

chronos

Message:

• Added: Subroutine execution.

File:

• branches/virtualcpu4/UInstructionWriter.pas (modified) (2 diffs)

branches/virtualcpu4/UInstructionWriter.pas

@@ -47 +47 @@
     procedure Push(Reg: TRegIndex);
     procedure Pop(Reg: TRegIndex);
+    procedure Call(Addr: QWord);
+    procedure Return;
     procedure DataPrefix8;
     procedure DataPrefix16;
@@ -205 +207 @@
 end;
 
+procedure TInstructionWriter.Call(Addr: QWord);
+begin
+  PrefixBegin;
+  Write8(Byte(opCall));
+  WriteAddress(Addr);
+  PrefixEnd;
+end;
+
+procedure TInstructionWriter.Return;
+begin
+  PrefixBegin;
+  Write8(Byte(opRet));
+  PrefixEnd;
+end;
+
 procedure TInstructionWriter.DataPrefix8;
 begin