Changeset 178

Timestamp:

Apr 12, 2019, 2:19:02 PM (5 years ago)

Author:

chronos

Message:

• Added: Use more opcodes.

Location:

branches/virtualcpu4

Files:

• UCpu.pas (modified) (1 diff)
• UFormMain.pas (modified) (1 diff)
• UInstructionWriter.pas (modified) (2 diffs)

branches/virtualcpu4/UCpu.pas

@@ -391 +391 @@
     end;
     bw16: begin
-      Registers[Read8].B := PWord(Memory + SP)^;
+      Registers[Read8].W := PWord(Memory + SP)^;
       Inc(SP, SizeOf(Word));
     end;
     bw32: begin
-      Registers[Read8].B := PDWord(Memory + SP)^;
+      Registers[Read8].D := PDWord(Memory + SP)^;
       Inc(SP, SizeOf(DWord));
     end;
     bw64: begin
-      Registers[Read8].B := PQWord(Memory + SP)^;
+      Registers[Read8].Q := PQWord(Memory + SP)^;
       Inc(SP, SizeOf(QWord));
     end;

branches/virtualcpu4/UFormMain.pas

@@ -222 +222 @@
 
     // Update screen area
+    Push(R1);
     Loadi(R1, 0);
     Output(4, R1);
     Loadi(R1, $10000);
     Output(5, R1);
+    Pop(R1);
 
     // Read keyboard and print to console

branches/virtualcpu4/UInstructionWriter.pas

@@ -45 +45 @@
     procedure JumpRelNotZero(Addr: QWord);
     procedure JumpRelZero(Addr: QWord);
+    procedure Push(Reg: TRegIndex);
+    procedure Pop(Reg: TRegIndex);
     procedure DataPrefix8;
     procedure DataPrefix16;
@@ -187 +189 @@
 end;
 
+procedure TInstructionWriter.Push(Reg: TRegIndex);
+begin
+  PrefixBegin;
+  Write8(Byte(opPush));
+  Write8(Reg);
+  PrefixEnd;
+end;
+
+procedure TInstructionWriter.Pop(Reg: TRegIndex);
+begin
+  PrefixBegin;
+  Write8(Byte(opPop));
+  Write8(Reg);
+  PrefixEnd;
+end;
+
 procedure TInstructionWriter.DataPrefix8;
 begin