📄 unit1.asm
字号:
.386p
ifdef ??version
if ??version GT 500H
.mmx
endif
endif
model flat
ifndef ??version
?debug macro
endm
endif
?debug S "D:\Unit1.cpp"
?debug T "D:\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
_Form1 label dword
db 4 dup(?)
_BSS ends
_DATA segment dword public use32 'DATA'
@_$DCDE$@TForm1@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$DCDE$@TForm1@$bctr$qqrp18Classes@TComponent label dword
dd @@$xt$p6TForm1
dd 1029
dd -4
dd 0
@_$DCDE$@TForm1@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_DATA segment dword public use32 'DATA'
@_$ECTEE$@TForm1@$bctr$qqrp18Classes@TComponent segment virtual
align 2
@@_$ECTEE$@TForm1@$bctr$qqrp18Classes@TComponent label dword
dd 0
dd -40
dw 0
dw 5
dd 0
dd @@_$DCDE$@TForm1@$bctr$qqrp18Classes@TComponent
@_$ECTEE$@TForm1@$bctr$qqrp18Classes@TComponent ends
_DATA ends
_TEXT segment dword public use32 'CODE'
@TForm1@$bctr$qqrp18Classes@TComponent segment virtual
@@TForm1@$bctr$qqrp18Classes@TComponent proc near
?live16385@0:
?debug L 12
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 @@_$ECTEE$@TForm1@$bctr$qqrp18Classes@TComponent
call @__InitExceptBlockLDTC
?debug L 13
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 15
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 15
@5:
mov esp,ebp
pop ebp
ret
?debug L 0
@@TForm1@$bctr$qqrp18Classes@TComponent endp
@TForm1@$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 @@TForm1@$bctr$qqrp18Classes@TComponent
dw 0
dw 4110
dw 0
dw 14
dw 0
dw 0
dw 0
db 38
db 64
db 84
db 70
db 111
db 114
db 109
db 49
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 15
dw 0
dw 0
dw 0
dw ?patch4
dw 529
dw ?patch5
dd ?live16385@0-@@TForm1@$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 65531
dw 65535
dw 16
dw 0
dw 0
dw 0
dw ?patch6
dw 529
dw ?patch7
dd ?live16385@0-@@TForm1@$bctr$qqrp18Classes@TComponent
dd ?live16385@0-?live16385@0
dw 18
?patch7 equ 1
?patch6 equ 14
?patch1 equ @4-@@TForm1@$bctr$qqrp18Classes@TComponent+15
?patch2 equ 0
?patch3 equ @4-@@TForm1@$bctr$qqrp18Classes@TComponent
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@_outp$qqrusuc segment virtual
@@_outp$qqrusuc proc near
?live16390@0:
?debug L 19
push ebp
mov ebp,esp
push ecx
mov byte ptr [ebp-3],dl
mov word ptr [ebp-2],ax
?debug L 21
@6:
mov dx, word ptr [ebp-2]
?debug L 22
mov al, byte ptr [ebp-3]
?debug L 23
out dx, al
?debug L 24
xor ah, ah
?debug L 25
movzx eax,ax
?debug L 26
@8:
@7:
pop ecx
pop ebp
ret
?debug L 0
@@_outp$qqrusuc endp
@_outp$qqrusuc ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 61
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch8
dd ?patch9
dd ?patch10
df @@_outp$qqrusuc
dw 0
dw 4130
dw 0
dw 17
dw 0
dw 0
dw 0
db 14
db 64
db 95
db 111
db 117
db 116
db 112
db 36
db 113
db 113
db 114
db 117
db 115
db 117
db 99
dw 18
dw 512
dw 65534
dw 65535
dw 33
dw 0
dw 18
dw 0
dw 0
dw 0
dw ?patch11
dw 529
dw ?patch12
dd ?live16390@0-@@_outp$qqrusuc
dd ?live16390@0-?live16390@0
dw 9
?patch12 equ 1
?patch11 equ 14
dw 18
dw 512
dw 65533
dw 65535
dw 32
dw 0
dw 19
dw 0
dw 0
dw 0
dw ?patch13
dw 529
dw ?patch14
dd ?live16390@0-@@_outp$qqrusuc
dd ?live16390@0-?live16390@0
dw 3
?patch14 equ 1
?patch13 equ 14
?patch8 equ @8-@@_outp$qqrusuc+3
?patch9 equ 0
?patch10 equ @8-@@_outp$qqrusuc
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@_inp$qqrus segment virtual
@@_inp$qqrus proc near
?live16391@0:
?debug L 28
push ebp
mov ebp,esp
push ecx
mov word ptr [ebp-2],ax
?debug L 30
@9:
mov dx,word ptr [ebp-2]
?debug L 31
in al,dx
?debug L 32
xor ah,ah
?debug L 33
movzx eax,ax
?debug L 34
@11:
@10:
pop ecx
pop ebp
ret
?debug L 0
@@_inp$qqrus endp
@_inp$qqrus ends
_TEXT ends
$$BSYMS segment byte public use32 'DEBSYM'
dw 58
dw 517
dw 0
dw 0
dw 0
dw 0
dw 0
dw 0
dd ?patch15
dd ?patch16
dd ?patch17
df @@_inp$qqrus
dw 0
dw 4132
dw 0
dw 20
dw 0
dw 0
dw 0
db 11
db 64
db 95
db 105
db 110
db 112
db 36
db 113
db 113
db 114
db 117
db 115
dw 18
dw 512
dw 65534
dw 65535
dw 33
dw 0
dw 21
dw 0
dw 0
dw 0
dw ?patch18
dw 529
dw ?patch19
dd ?live16391@0-@@_inp$qqrus
dd ?live16391@0-?live16391@0
dw 9
?patch19 equ 1
?patch18 equ 14
?patch15 equ @11-@@_inp$qqrus+3
?patch16 equ 0
?patch17 equ @11-@@_inp$qqrus
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm1@Button1Click$qqrp14System@TObject segment virtual
@@TForm1@Button1Click$qqrp14System@TObject proc near
?live16392@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
@12:
mov dl,15
mov ax,890
call @@_outp$qqrusuc
?debug L 39
xor edx,edx
mov ax,888
call @@_outp$qqrusuc
?debug L 40
@13:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm1@Button1Click$qqrp14System@TObject endp
@TForm1@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 ?patch20
dd ?patch21
dd ?patch22
df @@TForm1@Button1Click$qqrp14System@TObject
dw 0
dw 4134
dw 0
dw 22
dw 0
dw 0
dw 0
db 41
db 64
db 84
db 70
db 111
db 114
db 109
db 49
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 23
dw 0
dw 0
dw 0
dw ?patch23
dw 529
dw ?patch24
dd ?live16392@0-@@TForm1@Button1Click$qqrp14System@TObject
dd ?live16392@0-?live16392@0
dw 17
?patch24 equ 1
?patch23 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65532
dw 65535
dw 24
dw 0
dw 0
dw 0
dw ?patch25
dw 529
dw ?patch26
dd ?live16392@0-@@TForm1@Button1Click$qqrp14System@TObject
dd ?live16392@0-?live16392@0
dw 19
?patch26 equ 1
?patch25 equ 14
?patch20 equ @13-@@TForm1@Button1Click$qqrp14System@TObject+4
?patch21 equ 0
?patch22 equ @13-@@TForm1@Button1Click$qqrp14System@TObject
dw 2
dw 6
dw 4
dw 531
dw 0
$$BSYMS ends
_TEXT segment dword public use32 'CODE'
@TForm1@Button2Click$qqrp14System@TObject segment virtual
@@TForm1@Button2Click$qqrp14System@TObject proc near
?live16393@0:
?debug L 44
push ebp
mov ebp,esp
add esp,-8
mov dword ptr [ebp-8],edx
mov dword ptr [ebp-4],eax
?debug L 46
@14:
mov dl,15
mov ax,890
call @@_outp$qqrusuc
?debug L 47
mov dl,-16
mov ax,888
call @@_outp$qqrusuc
?debug L 48
@15:
pop ecx
pop ecx
pop ebp
ret
?debug L 0
@@TForm1@Button2Click$qqrp14System@TObject endp
@TForm1@Button2Click$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 ?patch27
dd ?patch28
dd ?patch29
df @@TForm1@Button2Click$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 49
db 64
db 66
db 117
db 116
db 116
db 111
db 110
db 50
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 ?patch30
dw 529
dw ?patch31
dd ?live16393@0-@@TForm1@Button2Click$qqrp14System@TObject
dd ?live16393@0-?live16393@0
dw 17
?patch31 equ 1
?patch30 equ 14
dw 18
dw 512
dw 65528
dw 65535
dw 65532
dw 65535
dw 27
dw 0
dw 0
dw 0
dw ?patch32
dw 529
dw ?patch33
dd ?live16393@0-@@TForm1@Button2Click$qqrp14System@TObject
dd ?live16393@0-?live16393@0
dw 19
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -