Changeset 42 for branches/simple/Forms/FormMain.pas

Timestamp:

Sep 8, 2023, 11:20:27 PM (8 months ago)

Author:

chronos

Message:

• Modified: Improved simple virtual machine.

File:

• branches/simple/Forms/FormMain.pas (modified) (7 diffs)

branches/simple/Forms/FormMain.pas

@@ -43 +43 @@
 {$R *.lfm}
 
+uses
+  Screen, Channel;
+
 { TFormMain }
 
@@ -49 +52 @@
   FormScreen := TFormScreen.Create(nil);
   FormConsole := TFormConsole.Create(nil);
-  InitMachine16;
+  InitMachine8;
 end;
 
@@ -66 +69 @@
   FreeAndNil(FormScreen);
   FreeAndNil(FormConsole);
-  FreeAndNil(Machine8);
+  if Assigned(Machine8) then FreeAndNil(Machine8);
+  if Assigned(Machine16) then FreeAndNil(Machine16);
 end;
 
@@ -80 +84 @@
     Console.OnWrite := FormConsole.ConsoleWrite;
     Screen.OnChange := FormScreen.ScreenChange;
-    FormScreen.Machine := Machine8;
+    FormScreen.Screen := TScreen.Create(bw8, Machine8.Screen, nil);
     with Memory do begin
       // LD A8, 'A'
@@ -90 +94 @@
       // LD A8, 'A'
       WritePos8(Byte(inLoadImmediate8));
-      WritePos8(Ord('H'));
-      // OUT (0), A8
-      WritePos8(Byte(inOutput8));
-      WritePos8(1);
+      WritePos8(Ord('B'));
       // OUT (0), A8
       WritePos8(Byte(inOutput8));
@@ -110 +111 @@
     Console.OnWrite := FormConsole.ConsoleWrite;
     Screen.OnChange := FormScreen.ScreenChange;
-    FormScreen.Machine := Machine16;
+    FormScreen.Screen := TScreen.Create(bw16, nil, Machine16.Screen);
     with Memory do begin
       // LD A8, 'A'
@@ -122 +123 @@
       WritePos16(Ord('H'));
       // OUT8 (0), A8
-      WritePos8(Byte(inOutput8));
+      WritePos8(Byte(inOutput16));
       WritePos16(1);
       // HALT