Ignore:
Timestamp:
Apr 10, 2019, 3:26:36 PM (6 years ago)
Author:
chronos
Message:
  • Added: Instruction write class.
  • Added: Execute CPU in background thread.
  • Fixed: DataPrefix opcodes now working.
  • Added: Show content of registers and memory. Show total number of CPU ticks.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/virtualcpu4/UFormMain.lfm

    r169 r170  
    1 object Form1: TForm1
    2   Left = 464
    3   Height = 300
    4   Top = 302
    5   Width = 400
    6   Caption = 'Form1'
    7   ClientHeight = 300
    8   ClientWidth = 400
     1object FormMain: TFormMain
     2  Left = 384
     3  Height = 613
     4  Top = 219
     5  Width = 1178
     6  Caption = 'VirtCpu4'
     7  ClientHeight = 613
     8  ClientWidth = 1178
    99  DesignTimePPI = 120
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
     12  OnShow = FormShow
    1213  LCLVersion = '2.0.0.4'
    13   object ButtonRun: TButton
    14     Left = 72
     14  object ButtonStart: TButton
     15    Left = 984
    1516    Height = 31
    16     Top = 79
     17    Top = 8
    1718    Width = 94
    18     Caption = 'Run'
    19     OnClick = ButtonRunClick
     19    Caption = 'Start'
     20    OnClick = ButtonStartClick
    2021    TabOrder = 0
    2122  end
     23  object ButtonStop: TButton
     24    Left = 984
     25    Height = 31
     26    Top = 48
     27    Width = 94
     28    Caption = 'Stop'
     29    OnClick = ButtonStopClick
     30    TabOrder = 1
     31  end
     32  object Label1: TLabel
     33    Left = 984
     34    Height = 20
     35    Top = 96
     36    Width = 35
     37    Caption = 'Ticks:'
     38    ParentColor = False
     39  end
     40  object ListViewRegisters: TListView
     41    Left = 8
     42    Height = 592
     43    Top = 8
     44    Width = 312
     45    Anchors = [akTop, akLeft, akBottom]
     46    Columns = <   
     47      item
     48        Caption = 'Register'
     49        Width = 100
     50      end   
     51      item
     52        Width = 180
     53      end>
     54    Font.Height = -17
     55    Font.Name = 'Liberation Mono'
     56    OwnerData = True
     57    ParentFont = False
     58    TabOrder = 2
     59    ViewStyle = vsReport
     60    OnData = ListViewRegistersData
     61  end
     62  object ListViewMemory: TListView
     63    Left = 328
     64    Height = 592
     65    Top = 8
     66    Width = 648
     67    Anchors = [akTop, akLeft, akBottom]
     68    Columns = <   
     69      item
     70        Caption = 'Address'
     71        Width = 100
     72      end   
     73      item
     74        Width = 500
     75      end>
     76    Font.Height = -17
     77    Font.Name = 'Liberation Mono'
     78    OwnerData = True
     79    ParentFont = False
     80    TabOrder = 3
     81    ViewStyle = vsReport
     82    OnData = ListViewMemoryData
     83  end
     84  object Timer1: TTimer
     85    Interval = 200
     86    OnTimer = Timer1Timer
     87    left = 96
     88    top = 144
     89  end
    2290end
Note: See TracChangeset for help on using the changeset viewer.