object DebugForm: TDebugForm
  Left = 293
  Top = 293
  BorderStyle = bsToolWindow
  Caption = 'Z80 Debugger'
  ClientHeight = 464
  ClientWidth = 550
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = PrepareGrids
  PixelsPerInch = 96
  TextHeight = 13
  object GrpSource: TGroupBox
    Left = 8
    Top = 8
    Width = 361
    Height = 273
    Caption = ' Disassembly Listing '
    TabOrder = 0
    object SourceList: TListBox
      Left = 8
      Top = 16
      Width = 345
      Height = 249
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      ItemHeight = 14
      ParentFont = False
      TabOrder = 0
    end
  end
  object GrpRegs: TGroupBox
    Left = 376
    Top = 8
    Width = 169
    Height = 233
    Caption = ' Registers '
    TabOrder = 1
    object LabelAF: TLabel
      Left = 8
      Top = 24
      Width = 13
      Height = 13
      Caption = 'AF'
    end
    object LabelBC: TLabel
      Left = 8
      Top = 48
      Width = 14
      Height = 13
      Caption = 'BC'
    end
    object LabelDE: TLabel
      Left = 8
      Top = 72
      Width = 15
      Height = 13
      Caption = 'DE'
    end
    object LabelHL: TLabel
      Left = 8
      Top = 96
      Width = 14
      Height = 13
      Caption = 'HL'
    end
    object LabelAFAlt: TLabel
      Left = 83
      Top = 24
      Width = 15
      Height = 13
      Caption = 'AF'#39
    end
    object LabelBCAlt: TLabel
      Left = 83
      Top = 48
      Width = 16
      Height = 13
      Caption = 'BC'#39
    end
    object LabelDEAlt: TLabel
      Left = 83
      Top = 72
      Width = 17
      Height = 13
      Caption = 'DE'#39
    end
    object LabelHLAlt: TLabel
      Left = 83
      Top = 96
      Width = 16
      Height = 13
      Caption = 'HL'#39
    end
    object LabelIX: TLabel
      Left = 83
      Top = 128
      Width = 10
      Height = 13
      Caption = 'IX'
    end
    object LabelIYAlt: TLabel
      Left = 83
      Top = 156
      Width = 10
      Height = 13
      Caption = 'IY'
    end
    object LabelSP: TLabel
      Left = 8
      Top = 156
      Width = 14
      Height = 13
      Caption = 'SP'
    end
    object LabelPC: TLabel
      Left = 8
      Top = 128
      Width = 14
      Height = 13
      Caption = 'PC'
    end
    object LabelI: TLabel
      Left = 8
      Top = 184
      Width = 3
      Height = 13
      Caption = 'I'
    end
    object LabelR: TLabel
      Left = 8
      Top = 208
      Width = 8
      Height = 13
      Caption = 'R'
    end
    object LabelIM: TLabel
      Left = 83
      Top = 184
      Width = 12
      Height = 13
      Caption = 'IM'
    end
    object LblBP: TLabel
      Left = 83
      Top = 208
      Width = 14
      Height = 13
      Caption = 'BP'
    end
    object EditAF: TMaskEdit
      Left = 37
      Top = 16
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 0
      Text = 'FFFF'
    end
    object EditBC: TMaskEdit
      Left = 37
      Top = 40
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 1
      Text = 'FFFF'
    end
    object EditDE: TMaskEdit
      Left = 37
      Top = 64
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 2
      Text = 'FFFF'
    end
    object EditHL: TMaskEdit
      Left = 37
      Top = 88
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 3
      Text = 'FFFF'
    end
    object EditAAF: TMaskEdit
      Left = 107
      Top = 16
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 4
      Text = 'FFFF'
    end
    object EditABC: TMaskEdit
      Left = 107
      Top = 40
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 5
      Text = 'FFFF'
    end
    object EditADE: TMaskEdit
      Left = 107
      Top = 64
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 6
      Text = 'FFFF'
    end
    object EditAHL: TMaskEdit
      Left = 107
      Top = 88
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 7
      Text = 'FFFF'
    end
    object EditIX: TMaskEdit
      Left = 107
      Top = 120
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 8
      Text = 'FFFF'
    end
    object EditIY: TMaskEdit
      Left = 107
      Top = 148
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 9
      Text = 'FFFF'
    end
    object EditSP: TMaskEdit
      Left = 37
      Top = 148
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 10
      Text = 'FFFF'
    end
    object EditPC: TMaskEdit
      Left = 37
      Top = 120
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 11
      Text = 'FFFF'
    end
    object EditR: TMaskEdit
      Left = 22
      Top = 200
      Width = 55
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 12
      Text = 'FFFFFF'
    end
    object EditI: TMaskEdit
      Left = 53
      Top = 176
      Width = 25
      Height = 24
      EditMask = '>AA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      TabOrder = 13
      Text = 'FF'
    end
    object EditIM: TMaskEdit
      Left = 107
      Top = 176
      Width = 25
      Height = 24
      Enabled = False
      EditMask = '>AA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      TabOrder = 14
      Text = 'FF'
    end
    object EditBP: TMaskEdit
      Left = 107
      Top = 200
      Width = 41
      Height = 24
      EditMask = '>AAAA;0; '
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Courier New'
      Font.Style = [fsBold]
      MaxLength = 4
      ParentFont = False
      TabOrder = 15
      Text = 'FFFF'
      OnChange = BPChange
    end
    object ChkBP: TCheckBox
      Left = 151
      Top = 203
      Width = 14
      Height = 17
      TabOrder = 16
      OnClick = ChkBPClick
    end
  end
  object GrpMem: TGroupBox
    Left = 8
    Top = 280
    Width = 361
    Height = 177
    Caption = ' Memory '
    TabOrder = 2
    object MemoryGrid: TStringGrid
      Left = 8
      Top = 16
      Width = 329
      Height = 155
      ColCount = 10
      DefaultColWidth = 20
      DefaultRowHeight = 18
      RowCount = 8
      FixedRows = 0
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Courier New'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRowSelect]
      ParentFont = False
      ScrollBars = ssNone
      TabOrder = 0
    end
    object MemoryScroll: TScrollBar
      Left = 336
      Top = 16
      Width = 16
      Height = 153
      Kind = sbVertical
      LargeChange = 8
      Max = 8184
      PageSize = 0
      TabOrder = 1
      OnChange = ScrollChange
    end
  end
  object GrpControl: TGroupBox
    Left = 376
    Top = 344
    Width = 169
    Height = 113
    Caption = ' Control '
    TabOrder = 3
    object BtnStep: TButton
      Left = 8
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Step Into'
      TabOrder = 0
      OnClick = BtnStepClick
    end
    object BtnRun: TButton
      Left = 88
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Run'
      TabOrder = 1
      OnClick = BtnRunClick
    end
    object BtnTrace: TButton
      Left = 88
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Trace'
      Enabled = False
      TabOrder = 2
    end
    object BtnStepOver: TButton
      Left = 8
      Top = 48
      Width = 75
      Height = 25
      Caption = 'Step Over'
      Enabled = False
      TabOrder = 3
      OnClick = BtnStepOverClick
    end
    object BtnReset: TButton
      Left = 8
      Top = 80
      Width = 75
      Height = 25
      Caption = 'Reset'
      TabOrder = 4
      OnClick = BtnResetClick
    end
  end
  object GrpFlags: TGroupBox
    Left = 376
    Top = 248
    Width = 169
    Height = 73
    Caption = ' Flags '
    TabOrder = 4
    object LabelS: TLabel
      Left = 24
      Top = 16
      Width = 7
      Height = 13
      Caption = 'S'
    end
    object LabelZ: TLabel
      Left = 40
      Top = 16
      Width = 7
      Height = 13
      Caption = 'Z'
    end
    object Label15: TLabel
      Left = 56
      Top = 16
      Width = 6
      Height = 13
      Caption = '5'
    end
    object LabelH: TLabel
      Left = 72
      Top = 16
      Width = 8
      Height = 13
      Caption = 'H'
    end
    object LabelN: TLabel
      Left = 120
      Top = 16
      Width = 8
      Height = 13
      Caption = 'N'
    end
    object LabelC: TLabel
      Left = 136
      Top = 16
      Width = 7
      Height = 13
      Caption = 'C'
    end
    object Label13: TLabel
      Left = 88
      Top = 16
      Width = 6
      Height = 13
      Caption = '3'
    end
    object LabelP: TLabel
      Left = 104
      Top = 16
      Width = 7
      Height = 13
      Caption = 'P'
    end
    object LblFlagPri: TLabel
      Left = 6
      Top = 32
      Width = 12
      Height = 13
      Alignment = taRightJustify
      Caption = 'Pri'
    end
    object LblFlagAlt: TLabel
      Left = 6
      Top = 48
      Width = 12
      Height = 13
      Alignment = taRightJustify
      Caption = 'Alt'
    end
    object FlagS: TCheckBox
      Left = 24
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 0
    end
    object FlagZ: TCheckBox
      Left = 40
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 1
    end
    object Flag5: TCheckBox
      Left = 56
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 2
    end
    object FlagH: TCheckBox
      Left = 72
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 3
    end
    object FlagN: TCheckBox
      Left = 120
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 4
    end
    object FlagC: TCheckBox
      Left = 136
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 5
    end
    object FlagP: TCheckBox
      Left = 104
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 6
    end
    object Flag3: TCheckBox
      Left = 88
      Top = 32
      Width = 17
      Height = 17
      TabOrder = 7
    end
    object FlagAS: TCheckBox
      Left = 24
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 8
    end
    object FlagAZ: TCheckBox
      Left = 40
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 9
    end
    object FlagA5: TCheckBox
      Left = 56
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 10
    end
    object FlagAC: TCheckBox
      Left = 136
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 11
    end
    object FlagAN: TCheckBox
      Left = 120
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 12
    end
    object FlagAP: TCheckBox
      Left = 104
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 13
    end
    object FlagA3: TCheckBox
      Left = 88
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 14
    end
    object FlagAH: TCheckBox
      Left = 72
      Top = 48
      Width = 17
      Height = 17
      TabOrder = 15
    end
  end
  object TagSourceTrace: TCheckBox
    Left = 376
    Top = 328
    Width = 169
    Height = 17
    Caption = 'Follow PC in Source Listing'
    TabOrder = 5
  end
  object CPUTimer: TThreadedTimer
    Interval = 5
    OnTimer = DoCPU
    Left = 512
    Top = 424
  end
end
