Changeset 223 for branches/CpuSingleSize/Forms/UFormConsole.pas

Timestamp:

Jul 12, 2022, 10:43:40 PM (23 months ago)

Author:

chronos

Message:

• Modified: More instructions.
• Modified: Optimized instruction execution with procedure array instead case.

File:

• branches/CpuSingleSize/Forms/UFormConsole.pas (modified) (4 diffs)

branches/CpuSingleSize/Forms/UFormConsole.pas

@@ -1 +1 @@
 unit UFormConsole;
-
-{$mode delphi}
 
 interface
@@ -24 +22 @@
     procedure SetDevice(AValue: TDevice); override;
   public
-    Console: TConsole;
+    Console: TDeviceConsole;
   end;
 
@@ -63 +61 @@
 procedure TFormConsole.SetDevice(AValue: TDevice);
 begin
-  if AValue is TConsole then
-    Console := TConsole(AValue);
+  if AValue is TDeviceConsole then
+    Console := TDeviceConsole(AValue);
 end;
 
@@ -75 +73 @@
     Console.Lock.Release;
   end;
-  Console.Cpu.Interrupt(Console.InterruptVector);
+  Console.PulseInterrupt;
 end;