File: asmtestunit.lfm

package info (click to toggle)
lazarus 3.6%2Bdfsg1-4~bpo12%2B1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm-backports
  • size: 252,956 kB
  • sloc: pascal: 2,078,443; xml: 457,059; makefile: 323,038; cpp: 93,064; sh: 3,463; java: 609; perl: 297; sql: 222; ansic: 137
file content (109 lines) | stat: -rw-r--r-- 2,408 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
object Form1: TForm1
  Left = 435
  Height = 317
  Top = 232
  Width = 618
  HorzScrollBar.Page = 399
  VertScrollBar.Page = 223
  Caption = 'AsmTest'
  ClientHeight = 317
  ClientWidth = 618
  LCLVersion = '2.3.0.0'
  object Label1: TLabel
    Left = 8
    Height = 15
    Top = 16
    Width = 219
    Caption = 'Enter hex values separated by spaces here'
  end
  object Label2: TLabel
    Left = 8
    Height = 15
    Top = 266
    Width = 38
    Anchors = [akLeft, akBottom]
    Caption = 'Output'
  end
  object txtCode: TMemo
    Left = 8
    Height = 220
    Top = 40
    Width = 602
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Name = 'Courier'
    Lines.Strings = (
      '90'
      '41'
      'E8 12345678'
      'C3'
      'AA'
      '0F0F A4 B6 12345678 A6 ; pfrcpit1 mm4,[esi*4+esi+$12345678]'
      '65 0F 01 92 12345678'
      '43 DB 9C B1 55667788'
      '41 B8 03000000'
      '49 89 C1'
      '66 67 46 8b 44 8e 10'
      'f3 0f 10 45 fc'
      'c5 f1 73 f8 03'
      'f3 0f 1e fa ; rdssp edx'
      'f2 0f 59 45 f8 ;    mulsd xmm0,[rbp-$08]'
      'f2 48 0f 2d c0 ;    cvtsd2si rax,xmm0'
      'c5 fb 59 45 f0 ;    vmulsd xmm0,xmm0,QWORD PTR [rbp-0x10]'
      '66 0F 2D C1 ;      cvtpd2pi mmx0,xmm1'
      'd8 c2 ;                 fadd st(0),st(2)'
      '62 f3 fd 48 66 d2 03 ; vfpclasspd k2, zmm2, 0x3'
      '66 0f 2d c1 ; cvtpd2pi mmx0,xmm1'
      '64 dc 1d 123456 ; fcomp qword ptr fs:[$00123456]'
      'ff 14 25 123456 ; call qword ptr [$00123456] '
      ''
    )
    ParentFont = False
    ScrollBars = ssAutoBoth
    TabOrder = 0
    WordWrap = False
  end
  object txtOutput: TEdit
    Left = 8
    Height = 23
    Top = 284
    Width = 602
    Anchors = [akLeft, akRight, akBottom]
    ReadOnly = True
    TabOrder = 1
  end
  object chk64Bit: TCheckBox
    Left = 240
    Height = 19
    Top = 16
    Width = 47
    Caption = '64 bit'
    Checked = True
    State = cbChecked
    TabOrder = 2
  end
  object cmdSave: TButton
    Left = 456
    Height = 25
    Top = 8
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Save'
    OnClick = cmdSaveClick
    TabOrder = 3
  end
  object cmdLoad: TButton
    Left = 536
    Height = 25
    Top = 8
    Width = 75
    Anchors = [akTop, akRight]
    Caption = 'Load'
    OnClick = cmdLoadClick
    TabOrder = 4
  end
  object Timer1: TTimer
    Interval = 250
    OnTimer = Timer1Timer
    Top = 184
  end
end