Subversion Repositories ht46f47_simulator

Rev

Blame | Last modification | View Log | RSS feed

object Form2: TForm2
  Left = 0
  Top = 0
  Caption = 'HT46F47 Simulator'
  ClientHeight = 662
  ClientWidth = 851
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label20: TLabel
    Left = 24
    Top = 392
    Width = 100
    Height = 13
    Caption = 'Command Reference'
  end
  object BtnStart: TButton
    Left = 728
    Top = 253
    Width = 115
    Height = 49
    Caption = 'Run'
    TabOrder = 0
    OnClick = BtnStartClick
  end
  object BtnStop: TButton
    Left = 728
    Top = 312
    Width = 115
    Height = 49
    Caption = 'Stop'
    Enabled = False
    TabOrder = 1
    OnClick = BtnStopClick
  end
  object GroupBox1: TGroupBox
    Left = 728
    Top = 37
    Width = 113
    Height = 169
    Caption = 'Internal state'
    TabOrder = 2
    object Label7: TLabel
      Left = 7
      Top = 24
      Width = 13
      Height = 13
      Caption = 'PC'
    end
    object Label14: TLabel
      Left = 51
      Top = 138
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label13: TLabel
      Left = 8
      Top = 138
      Width = 29
      Height = 13
      Caption = 'Reg D'
    end
    object Label12: TLabel
      Left = 51
      Top = 119
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label11: TLabel
      Left = 8
      Top = 119
      Width = 29
      Height = 13
      Caption = 'Reg C'
    end
    object Label10: TLabel
      Left = 51
      Top = 100
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label9: TLabel
      Left = 7
      Top = 100
      Width = 28
      Height = 13
      Caption = 'Reg B'
    end
    object Label8: TLabel
      Left = 51
      Top = 24
      Width = 12
      Height = 13
      Caption = '00'
    end
    object Label6: TLabel
      Left = 51
      Top = 81
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label5: TLabel
      Left = 7
      Top = 81
      Width = 29
      Height = 13
      Caption = 'Reg A'
    end
    object Label4: TLabel
      Left = 51
      Top = 62
      Width = 12
      Height = 13
      Caption = '00'
    end
    object Label3: TLabel
      Left = 7
      Top = 62
      Width = 17
      Height = 13
      Caption = 'Ret'
    end
    object Label2: TLabel
      Left = 51
      Top = 43
      Width = 6
      Height = 13
      Caption = '0'
    end
    object Label1: TLabel
      Left = 7
      Top = 43
      Width = 28
      Height = 13
      Caption = 'Page:'
    end
  end
  object BtnRandom: TButton
    Left = 24
    Top = 25
    Width = 75
    Height = 25
    Caption = 'Rnd'
    TabOrder = 3
    OnClick = BtnRandomClick
  end
  object GroupBox2: TGroupBox
    Left = 483
    Top = 25
    Width = 225
    Height = 149
    Caption = 'Input'
    TabOrder = 4
    object Label15: TLabel
      Left = 24
      Top = 67
      Width = 20
      Height = 13
      Caption = 'AD1'
    end
    object Label16: TLabel
      Left = 95
      Top = 67
      Width = 20
      Height = 13
      Caption = 'AD2'
    end
    object Label17: TLabel
      Left = 24
      Top = 22
      Width = 42
      Height = 13
      Caption = 'Digital In'
    end
    object CheckBox1: TCheckBox
      Left = 24
      Top = 36
      Width = 33
      Height = 17
      Caption = '1'
      TabOrder = 0
    end
    object CheckBox2: TCheckBox
      Left = 63
      Top = 36
      Width = 33
      Height = 17
      Caption = '2'
      TabOrder = 1
    end
    object CheckBox3: TCheckBox
      Left = 102
      Top = 36
      Width = 33
      Height = 17
      Caption = '4'
      TabOrder = 2
    end
    object CheckBox4: TCheckBox
      Left = 141
      Top = 36
      Width = 33
      Height = 17
      Caption = '8'
      TabOrder = 3
    end
    object SpinEdit2: TSpinEdit
      Left = 95
      Top = 80
      Width = 65
      Height = 22
      MaxValue = 15
      MinValue = 0
      TabOrder = 5
      Value = 0
    end
    object SpinEdit1: TSpinEdit
      Left = 24
      Top = 80
      Width = 65
      Height = 22
      MaxValue = 15
      MinValue = 0
      TabOrder = 4
      Value = 0
    end
    object CheckBox5: TCheckBox
      Left = 24
      Top = 111
      Width = 41
      Height = 17
      Caption = 'S1'
      TabOrder = 6
    end
    object CheckBox6: TCheckBox
      Left = 88
      Top = 111
      Width = 41
      Height = 17
      Caption = 'S2'
      TabOrder = 7
    end
  end
  object GroupBox3: TGroupBox
    Left = 483
    Top = 180
    Width = 225
    Height = 181
    Caption = 'Digital Out'
    TabOrder = 5
    object Label18: TLabel
      Left = 16
      Top = 24
      Width = 50
      Height = 13
      Caption = 'Digital Out'
    end
    object Label19: TLabel
      Left = 16
      Top = 90
      Width = 24
      Height = 13
      Caption = 'PWM'
    end
    object Panel1: TPanel
      Left = 16
      Top = 43
      Width = 41
      Height = 41
      Caption = '1'
      Color = clWhite
      ParentBackground = False
      TabOrder = 0
    end
    object Panel2: TPanel
      Left = 63
      Top = 43
      Width = 41
      Height = 41
      Caption = '2'
      Color = clWhite
      ParentBackground = False
      TabOrder = 1
    end
    object Panel3: TPanel
      Left = 110
      Top = 43
      Width = 41
      Height = 41
      Caption = '4'
      Color = clWhite
      ParentBackground = False
      TabOrder = 2
    end
    object Panel4: TPanel
      Left = 157
      Top = 43
      Width = 41
      Height = 41
      Caption = '8'
      Color = clWhite
      ParentBackground = False
      TabOrder = 3
    end
    object SpinEdit3: TSpinEdit
      Left = 16
      Top = 104
      Width = 65
      Height = 22
      TabStop = False
      MaxValue = 15
      MinValue = 0
      ReadOnly = True
      TabOrder = 4
      Value = 0
    end
  end
  object Memo1: TMemo
    Left = 24
    Top = 408
    Width = 433
    Height = 233
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      ' 10'#9'LED 0000'#9'PORT 0'
      ' 11'#9'LED 0001'#9'PORT 1'
      ' 12'#9'LED 0010'#9'PORT 2'
      ' 13'#9'LED 0011'#9'PORT 3'
      ' 14'#9'LED 0100'#9'PORT 4'
      ' 15'#9'LED 0101'#9'PORT 5'
      ' 16'#9'LED 0110'#9'PORT 6'
      ' 17'#9'LED 0111'#9'PORT 7'
      ' 18'#9'LED 1000'#9'PORT 8'
      ' 19'#9'LED 1001'#9'PORT 9'
      ' 1A'#9'LED 1010'#9'PORT 10'
      ' 1B'#9'LED 1011'#9'PORT 11'
      ' 1C'#9'LED 1100'#9'PORT 12'
      ' 1D'#9'LED 1101'#9'PORT 13'
      ' 1E'#9'LED 1110'#9'PORT 14'
      ' 1F'#9'LED 1111'#9'PORT 15'
      ''
      ' 20'#9'WAIT 1ms'
      ' 21'#9'WAIT 2ms'
      ' 22'#9'WAIT 5ms'
      ' 23'#9'WAIT 10ms'
      ' 24'#9'WAIT 20ms'
      ' 25'#9'WAIT 50ms'
      ' 26'#9'WAIT 100ms'
      ' 27'#9'WAIT 200ms'
      ' 28'#9'WAIT 500ms'
      ' 29'#9'WAIT 1s'
      ' 2A'#9'WAIT 2s'
      ' 2B'#9'WAIT 5s'
      ' 2C'#9'WAIT 10s'
      ' 2D'#9'WAIT 20s'
      ' 2E'#9'WAIT 30s'
      ' 2F'#9'WAIT 60s'
      ''
      ' 30'#9'JUMP -0'#9#9'HALT'
      ' 31'#9'JUMP -1'
      ' 32'#9'JUMP -2'
      ' 33'#9'JUMP -3'
      ' 34'#9'JUMP -4'
      ' 35'#9'JUMP -5'
      ' 36'#9'JUMP -6'
      ' 37'#9'JUMP -7'
      ' 38'#9'JUMP -8'
      ' 39'#9'JUMP -9'
      ' 3A'#9'JUMP -10'
      ' 3B'#9'JUMP -11'
      ' 3C'#9'JUMP -12'
      ' 3D'#9'JUMP -13'
      ' 3E'#9'JUMP -14'
      ' 3F'#9'JUMP -15'
      ''
      ' 40'#9'SET A=0'
      ' 41'#9'SET A=1'
      ' 42'#9'SET A=2'
      ' 43'#9'SET A=3'
      ' 44'#9'SET A=4'
      ' 45'#9'SET A=5'
      ' 46'#9'SET A=6'
      ' 47'#9'SET A=7'
      ' 48'#9'SET A=8'
      ' 49'#9'SET A=9'
      ' 4A'#9'SET A=10'
      ' 4B'#9'SET A=11'
      ' 4C'#9'SET A=12'
      ' 4D'#9'SET A=13'
      ' 4E'#9'SET A=14'
      ' 4F'#9'SET A=15'
      ''
      ' 50'
      ' 51'#9'SET B=A'
      ' 52'#9'SET C=A'
      ' 53'#9'SET D=A'
      ' 54'#9'SET Dout=A'
      ' 55'#9'SET Dout.0=A.0'
      ' 56'#9'SET Dout.1=A.0'
      ' 57'#9'SET Dout.2=A.0'
      ' 58'#9'SET Dout.3=A.0'
      ' 59'#9'SET PWM=A'
      ' 5A'
      ' 5B'
      ' 5C'
      ' 5D'
      ' 5E'
      ' 5F'
      ''
      ' 60'
      ' 61'#9'SET A=B'
      ' 62'#9'SET A=C'
      ' 63'#9'SET A=D'
      ' 64'#9'SET A=Din'
      ' 65'#9'SET A=Din.0'
      ' 66'#9'SET A=Din.1'
      ' 67'#9'SET A=Din.2'
      ' 68'#9'SET A=Din.3'
      ' 69'#9'SET A=AD1'
      ' 6A'#9'SET A=AD2'
      ' 6B'
      ' 6C'
      ' 6D'
      ' 6E'
      ' 6F'
      ''
      ' 70'
      ' 71'#9'SET A=A+1'
      ' 72'#9'SET A=A-1'
      ' 73'#9'SET A=A+B'
      ' 74'#9'SET A=A-B'
      ' 75'#9'SET A=A*B'
      ' 76'#9'SET A=A/B'
      ' 77'#9'SET A=A&B'#9#9#9'AND'
      ' 78'#9'SET A=A|B'#9#9#9'OR'
      ' 79'#9'SET A=A^B'#9#9#9'XOR'
      ' 7A'#9'SET A=~A'#9#9#9'NOT'
      ' 7B'
      ' 7C'
      ' 7D'
      ' 7E'
      ' 7F'
      ''
      ' 80'#9'PAGE 0'#9#9#9#9'Page is used by JUMP, CALL, CTIMES and DTIMES'
      ' 81'#9'PAGE 1'
      ' 82'#9'PAGE 2'
      ' 83'#9'PAGE 3'
      ' 84'#9'PAGE 4'
      ' 85'#9'PAGE 5'
      ' 86'#9'PAGE 6'
      ' 87'#9'PAGE 7'
      ' 88'#9'PAGE 8'
      ' 89'#9'PAGE 9'
      ' 8A'#9'PAGE A'
      ' 8B'#9'PAGE B'
      ' 8C'#9'PAGE C'
      ' 8D'#9'PAGE D'
      ' 8E'#9'PAGE E'
      ' 8F'#9'PAGE F'
      ''
      ' 90'#9'JUMP <PAGE>0'
      ' 91'#9'JUMP <PAGE>1'
      ' 92'#9'JUMP <PAGE>2'
      ' 93'#9'JUMP <PAGE>3'
      ' 94'#9'JUMP <PAGE>4'
      ' 95'#9'JUMP <PAGE>5'
      ' 96'#9'JUMP <PAGE>6'
      ' 97'#9'JUMP <PAGE>7'
      ' 98'#9'JUMP <PAGE>8'
      ' 99'#9'JUMP <PAGE>9'
      ' 9A'#9'JUMP <PAGE>A'
      ' 9B'#9'JUMP <PAGE>B'
      ' 9C'#9'JUMP <PAGE>C'
      ' 9D'#9'JUMP <PAGE>D'
      ' 9E'#9'JUMP <PAGE>E'
      ' 9F'#9'JUMP <PAGE>F'
      ''
      
        ' A0'#9'CTIMES <PAGE>0'#9#9#9'IF C>0 THEN ( C=C-1 ; JUMP <PAGE>X ) ELSE C' +
        'ONTINUE'
      ' A1'#9'CTIMES <PAGE>1'
      ' A2'#9'CTIMES <PAGE>2'
      ' A3'#9'CTIMES <PAGE>3'
      ' A4'#9'CTIMES <PAGE>4'
      ' A5'#9'CTIMES <PAGE>5'
      ' A6'#9'CTIMES <PAGE>6'
      ' A7'#9'CTIMES <PAGE>7'
      ' A8'#9'CTIMES <PAGE>8'
      ' A9'#9'CTIMES <PAGE>9'
      ' AA'#9'CTIMES <PAGE>A'
      ' AB'#9'CTIMES <PAGE>B'
      ' AC'#9'CTIMES <PAGE>C'
      ' AD'#9'CTIMES <PAGE>D'
      ' AE'#9'CTIMES <PAGE>E'
      ' AF'#9'CTIMES <PAGE>F'
      ''
      
        ' B0'#9'DTIMES <PAGE>0'#9#9#9'IF D>0 THEN ( D=D-1 ; JUMP <PAGE>X ) ELSE C' +
        'ONTINUE'
      ' B1'#9'DTIMES <PAGE>1'
      ' B2'#9'DTIMES <PAGE>2'
      ' B3'#9'DTIMES <PAGE>3'
      ' B4'#9'DTIMES <PAGE>4'
      ' B5'#9'DTIMES <PAGE>5'
      ' B6'#9'DTIMES <PAGE>6'
      ' B7'#9'DTIMES <PAGE>7'
      ' B8'#9'DTIMES <PAGE>8'
      ' B9'#9'DTIMES <PAGE>9'
      ' BA'#9'DTIMES <PAGE>A'
      ' BB'#9'DTIMES <PAGE>B'
      ' BC'#9'DTIMES <PAGE>C'
      ' BD'#9'DTIMES <PAGE>D'
      ' BE'#9'DTIMES <PAGE>E'
      ' BF'#9'DTIMES <PAGE>F'
      ''
      ' C0'
      ' C1'#9'SKIP_IF A>B'
      ' C2'#9'SKIP_IF A<B'
      ' C3'#9'SKIP_IF A=B'
      ' C4'#9'SKIP_IF Din.0=1'
      ' C5'#9'SKIP_IF Din.1=1'
      ' C6'#9'SKIP_IF Din.2=1'
      ' C7'#9'SKIP_IF Din.3=1'
      ' C8'#9'SKIP_IF Din.0=0'
      ' C9'#9'SKIP_IF Din.1=0'
      ' CA'#9'SKIP_IF Din.2=0'
      ' CB'#9'SKIP_IF Din.3=0'
      ' CC'#9'SKIP_IF S1=0'
      ' CD'#9'SKIP_IF S2=0'
      ' CE'#9'SKIP_IF S1=1'
      ' CF'#9'SKIP_IF S2=1'
      ''
      ' D0'#9'CALL <PAGE>0'
      ' D1'#9'CALL <PAGE>1'
      ' D2'#9'CALL <PAGE>2'
      ' D3'#9'CALL <PAGE>3'
      ' D4'#9'CALL <PAGE>4'
      ' D5'#9'CALL <PAGE>5'
      ' D6'#9'CALL <PAGE>6'
      ' D7'#9'CALL <PAGE>7'
      ' D8'#9'CALL <PAGE>8'
      ' D9'#9'CALL <PAGE>9'
      ' DA'#9'CALL <PAGE>A'
      ' DB'#9'CALL <PAGE>B'
      ' DC'#9'CALL <PAGE>C'
      ' DD'#9'CALL <PAGE>D'
      ' DE'#9'CALL <PAGE>E'
      ' DF'#9'CALL <PAGE>F'
      ''
      ' E0'#9'RET')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 6
  end
  object Memo2: TMemo
    Left = 24
    Top = 56
    Width = 433
    Height = 313
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    Lines.Strings = (
      '80 42 52 1F 26 27 10 26 27 A3 42 52 18 27 14 27'
      '12 27 11 27 12 27 14 27 AC 18 27 10 27 91')
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 7
    WantTabs = True
  end
end