Changeset 41 for branches/simple/Cpu.pas

Timestamp:

Aug 12, 2023, 5:46:27 PM (9 months ago)

Author:

chronos

Message:

• Modified: Screen and console made as separate forms.

Location:

branches/simple

Files:

• . (modified) (1 prop)
• Cpu.pas (modified) (7 diffs)

branches/simple/Cpu.pas

@@ -21 +21 @@
     A: Byte;
     PC: Byte;
-    function ReadPC8: Byte;
+    function ReadProg8: Byte;
     procedure Reset;
     procedure Run;
@@ -37 +37 @@
     A: Word;
     PC: Word;
-    function ReadPC8: Byte;
-    function ReadPC16: Word;
+    function ReadProg8: Byte;
+    function ReadProg16: Word;
     procedure Reset;
     procedure Run;
@@ -49 +49 @@
 { TCpu16 }
 
-function TCpu16.ReadPC8: Byte;
+function TCpu16.ReadProg8: Byte;
 begin
   Result := Memory.Read8(PC);
@@ -55 +55 @@
 end;
 
-function TCpu16.ReadPC16: Word;
+function TCpu16.ReadProg16: Word;
 begin
   Result := Memory.Read16(PC);
@@ -77 +77 @@
   Instruction: TInstruction;
 begin
-  Instruction := TInstruction(ReadPC8);
+  Instruction := TInstruction(ReadProg8);
   case Instruction of
     inHalt: Terminated := True;
-    inLoadImmediate8: A := ReadPC8;
-    inLoadImmediate16: A := ReadPC16;
-    inLoad8: A := Memory.Read8(ReadPC16);
-    inLoad16: A := Memory.Read16(ReadPC16);
-    inStore8: Memory.Write8(ReadPC16, A);
-    inStore16: Memory.Write16(ReadPC16, A);
-    inInput8: A := IO.Read8(ReadPC16);
-    inInput16: A := IO.Read16(ReadPC16);
-    inOutput8: IO.Write8(ReadPC16, A);
-    inOutput16: IO.Write16(ReadPC16, A);
-    inJump: PC := ReadPC16;
+    inLoadImmediate8: A := ReadProg8;
+    inLoadImmediate16: A := ReadProg16;
+    inLoad8: A := Memory.Read8(ReadProg16);
+    inLoad16: A := Memory.Read16(ReadProg16);
+    inStore8: Memory.Write8(ReadProg16, A);
+    inStore16: Memory.Write16(ReadProg16, A);
+    inInput8: A := IO.Read8(ReadProg16);
+    inInput16: A := IO.Read16(ReadProg16);
+    inOutput8: IO.Write8(ReadProg16, A);
+    inOutput16: IO.Write16(ReadProg16, A);
+    inJump: PC := ReadProg16;
   end;
 end;
@@ -96 +96 @@
 { TCpu8 }
 
-function TCpu8.ReadPC8: Byte;
+function TCpu8.ReadProg8: Byte;
 begin
   Result := Memory.Read8(PC);
@@ -118 +118 @@
   Instruction: TInstruction;
 begin
-  Instruction := TInstruction(ReadPC8);
+  Instruction := TInstruction(ReadProg8);
   case Instruction of
-    inLoadImmediate8: A := ReadPC8;
-    inLoad8: A := Memory.Read8(ReadPC8);
-    inStore8: Memory.Write8(ReadPC8, A);
-    inInput8: A := IO.Read8(ReadPC8);
-    inOutput8: IO.Write8(ReadPC8, A);
+    inLoadImmediate8: A := ReadProg8;
+    inLoad8: A := Memory.Read8(ReadProg8);
+    inStore8: Memory.Write8(ReadProg8, A);
+    inInput8: A := IO.Read8(ReadProg8);
+    inOutput8: IO.Write8(ReadProg8, A);
     inHalt: Terminated := True;
-    inJump: PC := ReadPC8;
+    inJump: PC := ReadProg8;
   end;
 end;