Changeset 220 for branches/CpuSingleSize/UCpu.pas

Timestamp:

Oct 20, 2020, 1:10:09 AM (4 years ago)

Author:

chronos

Message:

• Added: Devices form with tree view of connected devices. Device control form can be opened by double click.
• Modifid: IN/OUT instructions now use also device group index to directly specify which device should be read/written.

File:

• branches/CpuSingleSize/UCpu.pas (modified) (3 diffs)

branches/CpuSingleSize/UCpu.pas

@@ -17 +17 @@
 
   TCpuThread = class;
-  TOutputEvent = procedure (Port: TInteger; Value: TInteger) of object;
-  TInputEvent = function (Port: TInteger): TInteger of object;
+  TOutputEvent = procedure (Device, Port: TInteger; Value: TInteger) of object;
+  TInputEvent = function (Device, Port: TInteger): TInteger of object;
 
   { TCpu }
@@ -115 +115 @@
   Port: TInteger;
   Dest: TInteger;
+  Device: TInteger;
 begin
   Instruction := TInstruction(ReadNext);
@@ -136 +137 @@
     inIn: begin
       Index := ReadNext;
+      Device := R[ReadNext];
       Port := R[ReadNext];
-      if Assigned(FOnInput) then R[Index] := FOnInput(Port);
+      if Assigned(FOnInput) then R[Index] := FOnInput(Device, Port);
     end;
     inOut: begin
+      Device := R[ReadNext];
       Port := R[ReadNext];
-      if Assigned(FOnOutput) then FOnOutput(Port, R[ReadNext]);
+      if Assigned(FOnOutput) then FOnOutput(Device, Port, R[ReadNext]);
     end;
     inJump: IP := ReadNext;