Ignore:
Timestamp:
Apr 24, 2019, 5:04:53 PM (6 years ago)
Author:
chronos
Message:
  • Added: New instruction Convert which can convert numbers between different widths.
Location:
branches/virtualcpu4
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • branches/virtualcpu4

    • Property svn:ignore

      •  

        old new  
        55*.res
        66heaptrclog.trc
         7*.dbg

  • branches/virtualcpu4/Forms/UFormMain.lfm

    r181 r183  
    11object FormMain: TFormMain
    22  Left = 780
    3   Height = 269
     3  Height = 224
    44  Top = 527
    5   Width = 659
     5  Width = 549
    66  Caption = 'VirtCpu4'
    7   ClientHeight = 269
    8   ClientWidth = 659
    9   DesignTimePPI = 144
     7  ClientHeight = 224
     8  ClientWidth = 549
     9  DesignTimePPI = 120
    1010  OnCreate = FormCreate
    1111  OnDestroy = FormDestroy
    1212  OnShow = FormShow
    13   LCLVersion = '2.0.0.4'
     13  LCLVersion = '2.0.2.0'
    1414  object ButtonStart: TButton
    15     Left = 229
    16     Height = 37
    17     Top = 17
    18     Width = 113
     15    Left = 191
     16    Height = 31
     17    Top = 14
     18    Width = 94
    1919    Caption = 'Start'
    2020    OnClick = ButtonStartClick
    … …  
    2323  end
    2424  object ButtonStop: TButton
    25     Left = 229
    26     Height = 37
    27     Top = 65
    28     Width = 113
     25    Left = 191
     26    Height = 31
     27    Top = 54
     28    Width = 94
    2929    Caption = 'Stop'
    3030    OnClick = ButtonStopClick
    … …  
    3333  end
    3434  object ButtonDisassembler: TButton
    35     Left = 371
    36     Height = 38
    37     Top = 17
    38     Width = 185
     35    Left = 309
     36    Height = 32
     37    Top = 14
     38    Width = 154
    3939    Caption = 'Disassembler'
    4040    OnClick = ButtonDisassemblerClick
     41    ParentFont = False
    4142    TabOrder = 2
    4243  end
    4344  object ButtonMemory: TButton
    44     Left = 371
    45     Height = 38
    46     Top = 64
    47     Width = 185
     45    Left = 309
     46    Height = 32
     47    Top = 53
     48    Width = 154
    4849    Caption = 'Memory'
    4950    OnClick = ButtonMemoryClick
     51    ParentFont = False
    5052    TabOrder = 3
    5153  end
    5254  object ButtonCpuState: TButton
    53     Left = 371
    54     Height = 38
    55     Top = 111
    56     Width = 185
     55    Left = 309
     56    Height = 32
     57    Top = 92
     58    Width = 154
    5759    Caption = 'CPU state'
    5860    OnClick = ButtonCpuStateClick
     61    ParentFont = False
    5962    TabOrder = 4
    6063  end
    6164  object ButtonScreen: TButton
    62     Left = 24
    63     Height = 38
    64     Top = 16
    65     Width = 185
     65    Left = 20
     66    Height = 32
     67    Top = 13
     68    Width = 154
    6669    Caption = 'Screen'
    6770    OnClick = ButtonScreenClick
     71    ParentFont = False
    6872    TabOrder = 5
    6973  end
    7074  object ButtonConsole: TButton
    71     Left = 24
    72     Height = 38
    73     Top = 64
    74     Width = 185
     75    Left = 20
     76    Height = 32
     77    Top = 53
     78    Width = 154
    7579    Caption = 'Console'
    7680    OnClick = ButtonConsoleClick
     81    ParentFont = False
    7782    TabOrder = 6
    7883  end

  • branches/virtualcpu4/Forms/UFormMain.pas

    r182 r183  
    144144  with InstructionWriter do begin
    145145    Init;
     146    DataPrefix32; Loadi(R1, $12345678);
     147    DataPrefix8; Loadi(R1, $ff);
     148    DataPrefix8; Convert(R1);
     149
    146150    LabelMain := $100;
    147151    Jump(LabelMain);
Note: See TracChangeset for help on using the changeset viewer.