Changeset 175 for branches/virtualcpu4/UFormMain.pas

Timestamp:

Apr 12, 2019, 1:34:47 AM (6 years ago)

Author:

chronos

Message:

• Added: Drawing to video memory.

File:

• branches/virtualcpu4/UFormMain.pas (modified) (7 diffs)

branches/virtualcpu4/UFormMain.pas

@@ -21 +21 @@
     ListViewRegisters: TListView;
     Memo1: TMemo;
+    PaintBox1: TPaintBox;
     Timer1: TTimer;
+    TimerDraw: TTimer;
     procedure ButtonStartClick(Sender: TObject);
     procedure ButtonStopClick(Sender: TObject);
@@ -30 +32 @@
     procedure ListViewRegistersData(Sender: TObject; Item: TListItem);
     procedure Memo1KeyPress(Sender: TObject; var Key: char);
+    procedure PaintBox1Paint(Sender: TObject);
+    procedure PaintBox1Resize(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
+    procedure TimerDrawTimer(Sender: TObject);
   private
     procedure ReloadMemoryDump;
@@ -85 +90 @@
   I: Integer;
 begin
-  if Item.Index < Length(Machine.Memory) div ItemsPerLine then begin
+  if Item.Index < Machine.MemorySize div ItemsPerLine then begin
     Line := '';
     for I := 0 to ItemsPerLine - 1 do
-      Line := Line + IntToHex(Machine.Memory[Item.Index * ItemsPerLine + I], 2) + ' ';
+      Line := Line + IntToHex(PByte(Machine.Memory + Item.Index * ItemsPerLine + I)^, 2) + ' ';
     Item.Caption := IntToHex(Item.Index * ItemsPerLine, 8);
     Item.SubItems.Add(Line);
@@ -118 +123 @@
 end;
 
+procedure TFormMain.PaintBox1Paint(Sender: TObject);
+var
+  X, Y: Integer;
+  B: Byte;
+  MemorySizeTmp: Integer;
+  Addr: Integer;
+begin
+  MemorySizeTmp := Machine.MemorySize;
+  with Machine, Screen do
+  for Y := 0 to Size.Y - 1 do
+  for X := 0 to Size.X - 1 do begin
+    Addr := MemoryBase + Y * Size.X + X;
+    if Addr < MemorySizeTmp then begin
+      B := PByte(Memory + Addr)^;
+      PaintBox1.Canvas.Pixels[X, Y] := B * $010101;
+    end;
+  end;
+end;
+
+procedure TFormMain.PaintBox1Resize(Sender: TObject);
+begin
+  Machine.Screen.Size := Point(PaintBox1.Width, PaintBox1.Height);
+end;
+
 procedure TFormMain.Timer1Timer(Sender: TObject);
 begin
@@ -129 +158 @@
 end;
 
+procedure TFormMain.TimerDrawTimer(Sender: TObject);
+begin
+  PaintBox1.Repaint;
+end;
+
 procedure TFormMain.ReloadMemoryDump;
 begin
-  ListViewMemory.Items.Count := Length(Machine.Memory) div ItemsPerLine;
+  ListViewMemory.Items.Count := Machine.MemorySize div ItemsPerLine;
   ListViewMemory.Refresh;
 end;
@@ -146 +180 @@
   R2: Byte;
   R3: Byte;
+  R4: Byte;
   LabelStart: Integer;
   LabelText: Integer;
   LabelPrint: Integer;
+  LabelClearScreen: Integer;
 begin
   R1 := 1;
   R2 := 2;
   R3 := 3;
+  R4 := 4;
   with InstructionWriter do begin
+    // Print Hello world text
     LabelText := 200;
     Loadi(R1, LabelText);
     Loadi(R2, 12);
   LabelPrint := IP;
-    DataPrefix8; LoadMem(R3, R1);
+      DataPrefix8; LoadMem(R3, R1);
     DataPrefix8; Output(0, R3);
     Increment(R1);
@@ -165 +203 @@
     JumpNotZero(LabelPrint);
 
+    // Draw to video memory
+    Loadi(R1, Machine.Screen.MemoryBase);
+    Loadi(R2, $10000);
+    Loadi(R3, $7f);
+  LabelClearScreen := IP;
+    DataPrefix8; StoreMem(R1, R3);
+    Increment(R1);
+    Decrement(R2);
+    Test(R2);
+    JumpNotZero(LabelClearScreen);
+
+    // Read keyboard and print to console
     Loadi(R1, 100);
   LabelStart := IP;
     Increment(R1);
-    Loadi(R2, 100);
+    Loadi(R2, $100);
     DataPrefix8; StoreMem(R2, R1);
     DataPrefix8; Input(R2, 0);