📄 unit1.asm
字号:
.386p
ifdef ??version
if ??version GT 500H
.mmx
endif
endif
model flat
ifndef ??version
?debug macro
endm
endif
?debug S "D:\mytst\fomtst\green\Unit1.cpp"
?debug T "D:\mytst\fomtst\green\Unit1.cpp"
_TEXT segment dword public use32 'CODE'
_TEXT ends
_DATA segment dword public use32 'DATA'
_DATA ends
_BSS segment dword public use32 'BSS'
_BSS ends
$$BSYMS segment byte public use32 'DEBSYM'
$$BSYMS ends
$$BTYPES segment byte public use32 'DEBTYP'
$$BTYPES ends
$$BNAMES segment byte public use32 'DEBNAM'
$$BNAMES ends
$$BROWSE segment byte public use32 'DEBSYM'
$$BROWSE ends
$$BROWFILE segment byte public use32 'DEBSYM'
$$BROWFILE ends
?debug C FB0C0100600000
DGROUP group _BSS,_DATA
_BSS segment dword public use32 'BSS'
align 4
_Form2 label dword
db 4 dup(?)
align 4
_form0 label dword
db 4 dup(?)
_BSS ends
_DATA segment dword public use32 'DATA'
_isnew label byte
db 0
_isnewok label byte
db 0
_isdelete label byte
db 0
align 4
_ok label dword
dd 0
_DATA ends
_DATA segment dword public use32 'DATA'
@_$DCVG$@TForm2@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$DCVG$@TForm2@$bctr$qqrp18Classes@TComponent label dword
dd @@$xt$p6TForm2
dd 1029
dd -4
dd 0
@_$DCVG$@TForm2@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTWG$@TForm2@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$ECTWG$@TForm2@$bctr$qqrp18Classes@TComponent label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCVG$@TForm2@$bctr$qqrp18Classes@TComponent
@_$ECTWG$@TForm2@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@TForm2@$bctr$qqrp18Classes@TComponent segment virtual
@@TForm2@$bctr$qqrp18Classes@TComponent proc near
?live16385@0:
?debug T "D:\mytst\fomtst\green\Unit2.cpp"
?debug L 15
push ebp
mov ebp,esp
add esp,-48
mov byte ptr [ebp-8],dl
test dl,dl
jle short @1
call __ClassCreate
@1:
mov dword ptr [ebp-48],ecx
mov byte ptr [ebp-41],dl
mov dword ptr [ebp-4],eax
@2:
mov eax,offset @@_$ECTWG$@TForm2@$bctr$qqrp18Classes@TComponent
call @__InitExceptBlockLDTC
?debug L 16
mov word ptr [ebp-24],8
mov ecx,dword ptr [ebp-48]
xor edx,edx
mov eax,dword ptr [ebp-4]
call @@Forms@TForm@$bctr$qqrp18Classes@TComponent
add dword ptr [ebp-12],15
?debug L 18
mov edx,dword ptr [ebp-40]
mov dword ptr fs:[0],edx
mov eax,dword ptr [ebp-4]
@4:
@3:
cmp byte ptr [ebp-41],0
je short @5
call __AfterConstruction
?debug L 18
@5:
mov esp,ebp
pop ebp
ret
?debug L 0
@@TForm2@$bctr$qqrp18Classes@TComponent endp
@TForm2@$bctr$qqrp18Classes@TComponent ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
db 2
db 0
db 0
db 0
dw 85
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch1
dd ?patch2
dd ?patch3
df @@TForm2@$bctr$qqrp18Classes@TComponent
dw 0
dw 4114
dw 0
dw 22
dw 0
dw 0
dw 0
db 38
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 36
db 98
db 99
db 116
db 114
db 36
db 113
db 113
db 114
db 112
db 49
db 56
db 67
db 108
db 97
db 115
db 115
db 101
db 115
db 64
db 84
db 67
db 111
db 109
db 112
db 111
db 110
db 101
db 110
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 23
dw 0
dw 0
dw 0
dw ?patch4
dw 529
dw ?patch5
dd ?live16385@0-@@TForm2@$bctr$qqrp18Classes@TComponent
dd ?live16385@0-?live16385@0
dw 17
?patch5 equ 1
?patch4 equ 14
dw 18
dw 512
dw 65488
dw 65535
dw 65529
dw 65535
dw 24
dw 0
dw 0
dw 0
dw ?patch6
dw 529
dw ?patch7
dd ?live16385@0-@@TForm2@$bctr$qqrp18Classes@TComponent
dd ?live16385@0-?live16385@0
dw 18
?patch7 equ 1
?patch6 equ 14
?patch1 equ @4-@@TForm2@$bctr$qqrp18Classes@TComponent+15
?patch2 equ 0
?patch3 equ @4-@@TForm2@$bctr$qqrp18Classes@TComponent
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button1Click$qqrp14System@TObject segment virtual
@@TForm2@Button1Click$qqrp14System@TObject proc near
?live16390@0:
?debug L 21
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 24
@6:
cmp byte ptr [_isdelete],1
jne short @7
?debug L 28
mov eax,dword ptr [_form0]
call @@Forms@TCustomForm@Release$qqrv
?debug L 29
mov byte ptr [_isnew],1
?debug L 30
mov byte ptr [_isdelete],0
?debug L 31
mov byte ptr [_isnewok],0
?debug L 33
@7:
@8:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm2@Button1Click$qqrp14System@TObject endp
@TForm2@Button1Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch8
dd ?patch9
dd ?patch10
df @@TForm2@Button1Click$qqrp14System@TObject
dw 0
dw 4136
dw 0
dw 25
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 49
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 26
dw 0
dw 0
dw 0
dw ?patch11
dw 529
dw ?patch12
dd ?live16390@0-@@TForm2@Button1Click$qqrp14System@TObject
dd ?live16390@0-?live16390@0
dw 17
?patch12 equ 1
?patch11 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65530
dw 65535
dw 27
dw 0
dw 0
dw 0
dw ?patch13
dw 529
dw ?patch14
dd ?live16390@0-@@TForm2@Button1Click$qqrp14System@TObject
dd ?live16390@0-?live16390@0
dw 19
?patch14 equ 1
?patch13 equ 14
?patch8 equ @8-@@TForm2@Button1Click$qqrp14System@TObject+4
?patch9 equ 0
?patch10 equ @8-@@TForm2@Button1Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button3Click$qqrp14System@TObject segment virtual
@@TForm2@Button3Click$qqrp14System@TObject proc near
?live16391@0:
?debug L 36
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 38
@9:
mov eax,dword ptr [_form0]
call @@Forms@TCustomForm@Close$qqrv
?debug L 39
@10:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm2@Button3Click$qqrp14System@TObject endp
@TForm2@Button3Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch15
dd ?patch16
dd ?patch17
df @@TForm2@Button3Click$qqrp14System@TObject
dw 0
dw 4138
dw 0
dw 28
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 51
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 29
dw 0
dw 0
dw 0
dw ?patch18
dw 529
dw ?patch19
dd ?live16391@0-@@TForm2@Button3Click$qqrp14System@TObject
dd ?live16391@0-?live16391@0
dw 17
?patch19 equ 1
?patch18 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65530
dw 65535
dw 30
dw 0
dw 0
dw 0
dw ?patch20
dw 529
dw ?patch21
dd ?live16391@0-@@TForm2@Button3Click$qqrp14System@TObject
dd ?live16391@0-?live16391@0
dw 19
?patch21 equ 1
?patch20 equ 14
?patch15 equ @10-@@TForm2@Button3Click$qqrp14System@TObject+4
?patch16 equ 0
?patch17 equ @10-@@TForm2@Button3Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button4Click$qqrp14System@TObject segment virtual
@@TForm2@Button4Click$qqrp14System@TObject proc near
?live16392@0:
?debug L 41
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 43
@11:
mov dword ptr [_ok],1
?debug L 44
@12:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm2@Button4Click$qqrp14System@TObject endp
@TForm2@Button4Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch22
dd ?patch23
dd ?patch24
df @@TForm2@Button4Click$qqrp14System@TObject
dw 0
dw 4140
dw 0
dw 31
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 52
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
dw 65535
dw 4102
dw 0
dw 32
dw 0
dw 0
dw 0
dw ?patch25
dw 529
dw ?patch26
dd ?live16392@0-@@TForm2@Button4Click$qqrp14System@TObject
dd ?live16392@0-?live16392@0
dw 17
?patch26 equ 1
?patch25 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65530
dw 65535
dw 33
dw 0
dw 0
dw 0
dw ?patch27
dw 529
dw ?patch28
dd ?live16392@0-@@TForm2@Button4Click$qqrp14System@TObject
dd ?live16392@0-?live16392@0
dw 19
?patch28 equ 1
?patch27 equ 14
?patch22 equ @12-@@TForm2@Button4Click$qqrp14System@TObject+4
?patch23 equ 0
?patch24 equ @12-@@TForm2@Button4Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm2@Button5Click$qqrp14System@TObject segment virtual
@@TForm2@Button5Click$qqrp14System@TObject proc near
?live16393@0:
?debug L 46
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 48
@13:
xor eax,eax
mov dword ptr [_ok],eax
?debug L 49
@14:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm2@Button5Click$qqrp14System@TObject endp
@TForm2@Button5Click$qqrp14System@TObject ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 88
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch29
dd ?patch30
dd ?patch31
df @@TForm2@Button5Click$qqrp14System@TObject
dw 0
dw 4142
dw 0
dw 34
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 50
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 53
db 67
db 108
db 105
db 99
db 107
db 36
db 113
db 113
db 114
db 112
db 49
db 52
db 83
db 121
db 115
db 116
db 101
db 109
db 64
db 84
db 79
db 98
db 106
db 101
db 99
db 116
dw 18
dw 512
dw 65532
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -