Changeset 186 for branches/virtualcpu4/UCpu.pas

Timestamp:

May 1, 2019, 11:39:27 PM (6 years ago)

Author:

chronos

Message:

• Added: Partial implementation of compiler to Pascal source.

File:

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

branches/virtualcpu4/UCpu.pas

@@ -275 +275 @@
   case AddrSize of
     bw8: case DataSize of
-      bw8: Registers[R1].B := PByte(Memory + PByte(@Registers[R2])^)^;
-      bw16: Registers[R1].W := PWord(Memory + PByte(@Registers[R2])^)^;
-      bw32: Registers[R1].D := PDWord(Memory + PByte(@Registers[R2])^)^;
-      bw64: Registers[R1].Q := PQWord(Memory + PByte(@Registers[R2])^)^;
+      bw8: Registers[R1].B := PByte(Memory + Registers[R2].B)^;
+      bw16: Registers[R1].W := PWord(Memory + Registers[R2].B)^;
+      bw32: Registers[R1].D := PDWord(Memory + Registers[R2].B)^;
+      bw64: Registers[R1].Q := PQWord(Memory + Registers[R2].B)^;
     end;
     bw16: case DataSize of
-      bw8: Registers[R1].B := PByte(Memory + PWord(@Registers[R2])^)^;
-      bw16: Registers[R1].W := PWord(Memory + PWord(@Registers[R2])^)^;
-      bw32: Registers[R1].D := PDWord(Memory + PWord(@Registers[R2])^)^;
-      bw64: Registers[R1].Q := PQWord(Memory + PWord(@Registers[R2])^)^;
+      bw8: Registers[R1].B := PByte(Memory + Registers[R2].W)^;
+      bw16: Registers[R1].W := PWord(Memory + Registers[R2].W)^;
+      bw32: Registers[R1].D := PDWord(Memory + Registers[R2].W)^;
+      bw64: Registers[R1].Q := PQWord(Memory + Registers[R2].W)^;
     end;
     bw32: case DataSize of
-      bw8: Registers[R1].B := PByte(Memory + PDWord(@Registers[R2])^)^;
-      bw16: Registers[R1].W := PWord(Memory + PDWord(@Registers[R2])^)^;
-      bw32: Registers[R1].D := PDWord(Memory + PDWord(@Registers[R2])^)^;
-      bw64: Registers[R1].Q := PQWord(Memory + PDWord(@Registers[R2])^)^;
+      bw8: Registers[R1].B := PByte(Memory + Registers[R2].D)^;
+      bw16: Registers[R1].W := PWord(Memory + Registers[R2].D)^;
+      bw32: Registers[R1].D := PDWord(Memory + Registers[R2].D)^;
+      bw64: Registers[R1].Q := PQWord(Memory + Registers[R2].D)^;
     end;
     bw64: case DataSize of
-      bw8: Registers[R1].B := PByte(Memory + PQWord(@Registers[R2])^)^;
-      bw16: Registers[R1].W := PWord(Memory + PQWord(@Registers[R2])^)^;
-      bw32: Registers[R1].D := PDWord(Memory + PQWord(@Registers[R2])^)^;
-      bw64: Registers[R1].Q := PQWord(Memory + PQWord(@Registers[R2])^)^;
+      bw8: Registers[R1].B := PByte(Memory + Registers[R2].Q)^;
+      bw16: Registers[R1].W := PWord(Memory + Registers[R2].Q)^;
+      bw32: Registers[R1].D := PDWord(Memory + Registers[R2].Q)^;
+      bw64: Registers[R1].Q := PQWord(Memory + Registers[R2].Q)^;
     end;
   end;
@@ -309 +309 @@
   case AddrSize of
     bw8: case DataSize of
-      bw8: PByte(Memory + PByte(@Registers[R1])^)^ := Registers[R2].B;
-      bw16: PWord(Memory + PByte(@Registers[R1])^)^ := Registers[R2].W;
-      bw32: PDWord(Memory + PByte(@Registers[R1])^)^ := Registers[R2].D;
-      bw64: PQWord(Memory + PByte(@Registers[R1])^)^ := Registers[R2].Q;
+      bw8: PByte(Memory + Registers[R1].B)^ := Registers[R2].B;
+      bw16: PWord(Memory + Registers[R1].B)^ := Registers[R2].W;
+      bw32: PDWord(Memory + Registers[R1].B)^ := Registers[R2].D;
+      bw64: PQWord(Memory + Registers[R1].B)^ := Registers[R2].Q;
     end;
     bw16: case DataSize of
-      bw8: PByte(Memory + PWord(@Registers[R1])^)^ := Registers[R2].B;
-      bw16: PWord(Memory + PWord(@Registers[R1])^)^ := Registers[R2].W;
-      bw32: PDWord(Memory + PWord(@Registers[R1])^)^ := Registers[R2].D;
-      bw64: PQWord(Memory + PWord(@Registers[R1])^)^ := Registers[R2].Q;
+      bw8: PByte(Memory + Registers[R1].W)^ := Registers[R2].B;
+      bw16: PWord(Memory + Registers[R1].W)^ := Registers[R2].W;
+      bw32: PDWord(Memory + Registers[R1].W)^ := Registers[R2].D;
+      bw64: PQWord(Memory + Registers[R1].W)^ := Registers[R2].Q;
     end;
     bw32: case DataSize of
-      bw8: PByte(Memory + PDWord(@Registers[R1])^)^ := Registers[R2].B;
-      bw16: PWord(Memory + PDWord(@Registers[R1])^)^ := Registers[R2].W;
-      bw32: PDWord(Memory + PDWord(@Registers[R1])^)^ := Registers[R2].D;
-      bw64: PQWord(Memory + PDWord(@Registers[R1])^)^ := Registers[R2].Q;
+      bw8: PByte(Memory + Registers[R1].D)^ := Registers[R2].B;
+      bw16: PWord(Memory + Registers[R1].D)^ := Registers[R2].W;
+      bw32: PDWord(Memory + Registers[R1].D)^ := Registers[R2].D;
+      bw64: PQWord(Memory + Registers[R1].D)^ := Registers[R2].Q;
     end;
     bw64: case DataSize of
-      bw8: PByte(Memory + PQWord(@Registers[R1])^)^ := Registers[R2].B;
-      bw16: PWord(Memory + PQWord(@Registers[R1])^)^ := Registers[R2].W;
-      bw32: PDWord(Memory + PQWord(@Registers[R1])^)^ := Registers[R2].D;
-      bw64: PQWord(Memory + PQWord(@Registers[R1])^)^ := Registers[R2].Q;
+      bw8: PByte(Memory + Registers[R1].Q)^ := Registers[R2].B;
+      bw16: PWord(Memory + Registers[R1].Q)^ := Registers[R2].W;
+      bw32: PDWord(Memory + Registers[R1].Q)^ := Registers[R2].D;
+      bw64: PQWord(Memory + Registers[R1].Q)^ := Registers[R2].Q;
     end;
   end;