Ignore:
Timestamp:
Apr 13, 2019, 12:03:31 AM (6 years ago)
Author:
chronos
Message:
  • Added: Disassemble instruction.
Location:
branches/virtualcpu4/Forms
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • branches/virtualcpu4/Forms/UFormDisassembler.lfm

    r180 r181  
    2525      item
    2626        Caption = 'Opcode'
    27         Width = 100
     27        Width = 150
    2828      end   
    2929      item
    3030        Caption = 'Assembly'
    31         Width = 490
     31        Width = 440
    3232      end>
    3333    OwnerData = True

  • branches/virtualcpu4/Forms/UFormDisassembler.pas

    r180 r181  
    77uses
    88  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ComCtrls,
    9   UInstructionWriter;
     9  UDisassembler;
    1010
    1111type

  • branches/virtualcpu4/Forms/UFormMain.lfm

    r180 r181  
    11object FormMain: TFormMain
    2   Left = 288
    3   Height = 948
    4   Top = 196
    5   Width = 1718
     2  Left = 780
     3  Height = 269
     4  Top = 527
     5  Width = 659
    66  Caption = 'VirtCpu4'
    7   ClientHeight = 948
    8   ClientWidth = 1718
     7  ClientHeight = 269
     8  ClientWidth = 659
    99  DesignTimePPI = 144
    1010  OnCreate = FormCreate
    … …  
    1313  LCLVersion = '2.0.0.4'
    1414  object ButtonStart: TButton
    15     Left = 1181
     15    Left = 229
    1616    Height = 37
    17     Top = 10
     17    Top = 17
    1818    Width = 113
    1919    Caption = 'Start'
    … …  
    2323  end
    2424  object ButtonStop: TButton
    25     Left = 1181
     25    Left = 229
    2626    Height = 37
    27     Top = 58
     27    Top = 65
    2828    Width = 113
    2929    Caption = 'Stop'
    … …  
    3333  end
    3434  object ButtonDisassembler: TButton
    35     Left = 1323
     35    Left = 371
    3636    Height = 38
    37     Top = 10
     37    Top = 17
    3838    Width = 185
    3939    Caption = 'Disassembler'
    … …  
    4242  end
    4343  object ButtonMemory: TButton
    44     Left = 1323
     44    Left = 371
    4545    Height = 38
    46     Top = 57
     46    Top = 64
    4747    Width = 185
    4848    Caption = 'Memory'
    … …  
    5151  end
    5252  object ButtonCpuState: TButton
    53     Left = 1323
     53    Left = 371
    5454    Height = 38
    55     Top = 104
     55    Top = 111
    5656    Width = 185
    5757    Caption = 'CPU state'
    … …  
    6060  end
    6161  object ButtonScreen: TButton
    62     Left = 976
     62    Left = 24
    6363    Height = 38
    64     Top = 9
     64    Top = 16
    6565    Width = 185
    6666    Caption = 'Screen'
    … …  
    6969  end
    7070  object ButtonConsole: TButton
    71     Left = 976
     71    Left = 24
    7272    Height = 38
    73     Top = 57
     73    Top = 64
    7474    Width = 185
    7575    Caption = 'Console'

  • branches/virtualcpu4/Forms/UFormMain.pas

    r180 r181  
    6060  if not Assigned(FormDisassembler) then
    6161    FormDisassembler := TFormDisassembler.Create(Self);
    62   FormDisassembler.Disassembler.Memory.Owner:= False;
    63   FormDisassembler.Disassembler.Memory.Data := Machine.Memory;
     62  FormDisassembler.Disassembler.Cpu := Machine.Cpu;
    6463  FormDisassembler.Disassembler.Process;
    6564  FormDisassembler.Show;
    … …  
    164163    Decrement(R2);
    165164    Test(R2);
    166     AddrPrefix8; JumpNotZero(LabelPrintLoop);
     165    AddrPrefix8; JumpRelNotZero(LabelPrintLoop);
    167166    Pop(R1);
    168167    Pop(R2);
Note: See TracChangeset for help on using the changeset viewer.