📄 ifggzs.pas
字号:
0061AB85 763F jbe 0061ABC6
* Reference to field TFrmInfoGgZs.OFFS_02D0
|
0061AB87 8B83D0020000 mov eax, [ebx+$02D0]
0061AB8D 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00767F18
|
0061AB8F E884D31400 call 00767F18
0061AB94 8B401F mov eax, [eax+$1F]
0061AB97 89442424 mov [esp+$24], eax
0061AB9B 33C0 xor eax, eax
0061AB9D 89442428 mov [esp+$28], eax
0061ABA1 DF6C2424 fild qword ptr [esp+$24]
0061ABA5 8B442410 mov eax, [esp+$10]
0061ABA9 8944242C mov [esp+$2C], eax
0061ABAD 33C0 xor eax, eax
0061ABAF 89442430 mov [esp+$30], eax
0061ABB3 DF6C242C fild qword ptr [esp+$2C]
0061ABB7 DEF1 fdivrp st(1), st(0)
0061ABB9 D80DF0AB6100 fmul dword ptr [$0061ABF0]
0061ABBF D99B18030000 fstp dword ptr [ebx+$0318]
0061ABC5 9B wait
* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061ABC6 80BB1D03000000 cmp byte ptr [ebx+$031D], $00
0061ABCD 7507 jnz 0061ABD6
0061ABCF 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs._PROC_0061BA88()
|
0061ABD1 E8B20E0000 call 0061BA88
0061ABD6 83C434 add esp, +$34
0061ABD9 5F pop edi
0061ABDA 5E pop esi
0061ABDB 5B pop ebx
0061ABDC C3 ret
*)
end;
procedure TFrmInfoGgZs._PROC_0061ABE8(Sender : TObject);
begin
(*
0061ABE8 F5 cmc
0061ABE9 3F aas
0061ABEA 0000 add [eax], al
*)
end;
procedure TFrmInfoGgZs._PROC_0061AC11(Sender : TObject);
begin
(*
0061AC11 8BEC mov ebp, esp
0061AC13 51 push ecx
0061AC14 53 push ebx
0061AC15 56 push esi
0061AC16 57 push edi
0061AC17 894DFC mov [ebp-$04], ecx
0061AC1A 8BF2 mov esi, edx
0061AC1C 8BF8 mov edi, eax
0061AC1E 8B5D08 mov ebx, [ebp+$08]
0061AC21 668B4602 mov ax, word ptr [esi+$02]
0061AC25 668903 mov [ebx], ax
0061AC28 8B4604 mov eax, [esi+$04]
0061AC2B 894304 mov [ebx+$04], eax
0061AC2E 8B87D0020000 mov eax, [edi+$02D0]
0061AC34 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_007681EC
|
0061AC36 E8B1D51400 call 007681EC
0061AC3B 884308 mov [ebx+$08], al
0061AC3E FF7604 push dword ptr [esi+$04]
0061AC41 8B87D0020000 mov eax, [edi+$02D0]
0061AC47 8B00 mov eax, [eax]
* Reference to: Unit_00767B88.Proc_00767F18
|
0061AC49 E8CAD21400 call 00767F18
0061AC4E FF7007 push dword ptr [eax+$07]
0061AC51 8BC7 mov eax, edi
* Reference to : TFrmInfoGgZs._PROC_0061AD94()
|
0061AC53 E83C010000 call 0061AD94
0061AC58 89430C mov [ebx+$0C], eax
0061AC5B 807D0C01 cmp byte ptr [ebp+$0C], $01
0061AC5F 750C jnz 0061AC6D
0061AC61 8B55FC mov edx, [ebp-$04]
0061AC64 8BC6 mov eax, esi
* Reference to: Unit_005B0D4C.Proc_005B1F98
|
0061AC66 E82D73F9FF call 005B1F98
0061AC6B EB03 jmp 0061AC70
0061AC6D 8A4618 mov al, byte ptr [esi+$18]
0061AC70 8B5608 mov edx, [esi+$08]
0061AC73 895310 mov [ebx+$10], edx
0061AC76 8B561A mov edx, [esi+$1A]
0061AC79 895318 mov [ebx+$18], edx
0061AC7C 3C01 cmp al, $01
0061AC7E 7509 jnz 0061AC89
0061AC80 C74314FF505000 mov dword ptr [ebx+$14], $005050FF
0061AC87 EB14 jmp 0061AC9D
0061AC89 3C02 cmp al, $02
0061AC8B 7509 jnz 0061AC96
* Possible String Reference to: 'p2@'
|
0061AC8D C7431450FF5000 mov dword ptr [ebx+$14], $0050FF50
0061AC94 EB07 jmp 0061AC9D
0061AC96 C74314FFFFFF00 mov dword ptr [ebx+$14], $00FFFFFF
0061AC9D 5F pop edi
0061AC9E 5E pop esi
0061AC9F 5B pop ebx
0061ACA0 59 pop ecx
0061ACA1 5D pop ebp
0061ACA2 C20800 ret $0008
*)
end;
procedure TFrmInfoGgZs._PROC_0061ACA8(Sender : TObject);
begin
(*
0061ACA8 53 push ebx
0061ACA9 56 push esi
0061ACAA 57 push edi
0061ACAB 55 push ebp
0061ACAC 83C4DC add esp, -$24
0061ACAF 8BD8 mov ebx, eax
* Reference to pointer to GlobalVar_0078CF18
|
0061ACB1 A1E8D07700 mov eax, dword ptr [$0077D0E8]
0061ACB6 8B00 mov eax, [eax]
* Reference to: Unit_0075E474.Proc_0075E5B8
|
0061ACB8 E8FB381400 call 0075E5B8
0061ACBD 84C0 test al, al
0061ACBF 0F84C4000000 jz 0061AD89
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061ACC5 83BBD802000000 cmp dword ptr [ebx+$02D8], +$00
0061ACCC 0F84B7000000 jz 0061AD89
0061ACD2 33C0 xor eax, eax
0061ACD4 890424 mov [esp], eax
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061ACD7 8B83D8020000 mov eax, [ebx+$02D8]
0061ACDD 8B5010 mov edx, [eax+$10]
0061ACE0 2B500C sub edx, dword ptr [eax+$0C]
0061ACE3 42 inc edx
* Reference to field TFrmInfoGgZs.OFFS_0328
|
0061ACE4 3B9328030000 cmp edx, [ebx+$0328]
0061ACEA 0F8499000000 jz 0061AD89
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061ACF0 8B83D8020000 mov eax, [ebx+$02D8]
0061ACF6 8B4010 mov eax, [eax+$10]
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061ACF9 8B93D8020000 mov edx, [ebx+$02D8]
0061ACFF 2B420C sub eax, dword ptr [edx+$0C]
0061AD02 40 inc eax
* Reference to field TFrmInfoGgZs.OFFS_0328
|
0061AD03 898328030000 mov [ebx+$0328], eax
* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061AD09 8B8370030000 mov eax, [ebx+$0370]
* Reference to: dzhlist.Proc_006BC490
|
0061AD0F E87C170A00 call 006BC490
0061AD14 33ED xor ebp, ebp
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061AD16 8B83D8020000 mov eax, [ebx+$02D8]
0061AD1C 8B500C mov edx, [eax+$0C]
0061AD1F 8B7810 mov edi, [eax+$10]
0061AD22 2BFA sub edi, edx
0061AD24 7C51 jl 0061AD77
0061AD26 47 inc edi
0061AD27 89542404 mov [esp+$04], edx
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061AD2B 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to class TCmdtTickSlot
|
0061AD31 8B15F4E47600 mov edx, [$0076E4F4]
* Reference to: system.@AsClass;
|
0061AD37 E82087DEFF call 0040345C
0061AD3C 8BCC mov ecx, esp
0061AD3E 8B542404 mov edx, [esp+$04]
* Reference to: Unit_0076E494.Proc_0076EAD4
|
0061AD42 E88D3D1500 call 0076EAD4
0061AD47 8BF0 mov esi, eax
0061AD49 85F6 test esi, esi
0061AD4B 7423 jz 0061AD70
0061AD4D 6A01 push $01
0061AD4F 8D44240C lea eax, [esp+$0C]
0061AD53 50 push eax
0061AD54 8BCD mov ecx, ebp
0061AD56 8BD6 mov edx, esi
0061AD58 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs.Proc_0061AC10()
|
0061AD5A E8B1FEFFFF call 0061AC10
0061AD5F 8D542408 lea edx, [esp+$08]
* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061AD63 8B8370030000 mov eax, [ebx+$0370]
* Reference to: dzhlist.Proc_006BC88C
|
0061AD69 E81E1B0A00 call 006BC88C
0061AD6E 8BEE mov ebp, esi
0061AD70 FF442404 inc dword ptr [esp+$04]
0061AD74 4F dec edi
0061AD75 75B4 jnz 0061AD2B
* Reference to field TFrmInfoGgZs.OFFS_0370
|
0061AD77 8B8370030000 mov eax, [ebx+$0370]
* Reference to: dzhlist.Proc_006BC4CC
|
0061AD7D E84A170A00 call 006BC4CC
0061AD82 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs._PROC_0061A944()
|
0061AD84 E8BBFBFFFF call 0061A944
0061AD89 83C424 add esp, +$24
0061AD8C 5D pop ebp
0061AD8D 5F pop edi
0061AD8E 5E pop esi
0061AD8F 5B pop ebx
0061AD90 C3 ret
*)
end;
procedure TFrmInfoGgZs._PROC_0061AD94(Sender : TObject);
begin
(*
0061AD94 55 push ebp
0061AD95 8BEC mov ebp, esp
0061AD97 D9450C fld dword ptr [ebp+$0C]
0061AD9A D85D08 fcomp dword ptr [ebp+$08]
0061AD9D DFE0 fstsw ax
0061AD9F 9E sahf
0061ADA0 7607 jbe 0061ADA9
0061ADA2 BAFF505000 mov edx, $005050FF
0061ADA7 EB22 jmp 0061ADCB
0061ADA9 D9450C fld dword ptr [ebp+$0C]
0061ADAC D85D08 fcomp dword ptr [ebp+$08]
0061ADAF DFE0 fstsw ax
0061ADB1 9E sahf
0061ADB2 7507 jnz 0061ADBB
0061ADB4 BAFFFFFF00 mov edx, $00FFFFFF
0061ADB9 EB10 jmp 0061ADCB
0061ADBB D9450C fld dword ptr [ebp+$0C]
0061ADBE D85D08 fcomp dword ptr [ebp+$08]
0061ADC1 DFE0 fstsw ax
0061ADC3 9E sahf
0061ADC4 7305 jnb 0061ADCB
* Possible String Reference to: 'p2@'
|
0061ADC6 BA50FF5000 mov edx, $0050FF50
0061ADCB 8BC2 mov eax, edx
0061ADCD 5D pop ebp
0061ADCE C20800 ret $0008
*)
end;
procedure TFrmInfoGgZs._PROC_0061ADD4(Sender : TObject);
begin
(*
0061ADD4 53 push ebx
0061ADD5 56 push esi
0061ADD6 83C4F0 add esp, -$10
0061ADD9 8BD8 mov ebx, eax
* Reference to field TFrmInfoGgZs.OFFS_02D8
|
0061ADDB 83BBD802000000 cmp dword ptr [ebx+$02D8], +$00
0061ADE2 7407 jz 0061ADEB
0061ADE4 8BC3 mov eax, ebx
* Reference to : TFrmInfoGgZs._PROC_0061ACA8()
|
0061ADE6 E8BDFEFFFF call 0061ACA8
* Reference to field TFrmInfoGgZs.OFFS_031D : Byte
|
0061ADEB 80BB1D03000000 cmp byte ptr [ebx+$031D], $00
0061ADF2 7442 jz 0061AE36
* Reference to control TFrmInfoGgZs.PaintBox1 : TPaintBox
|
0061ADF4 8BB3E0020000 mov esi, [ebx+$02E0]
* Reference to field TPaintBox.Height : Integer
|
0061ADFA 8B463C mov eax, [esi+$3C]
0061ADFD 50 push eax
0061ADFE 8D442404 lea eax, [esp+$04]
0061AE02 50 push eax
* Reference to field TPaintBox.Width : Integer
|
0061AE03 8B4E38 mov ecx, [esi+$38]
0061AE06 33D2 xor edx, edx
0061AE08 33C0 xor eax, eax
* Reference to: Classes.Proc_00413328
|
0061AE0A E81985DFFF call 00413328
0061AE0F 54 push esp
* Reference to field TFrmInfoGgZs.OFFS_02F8
|
0061AE10 8B83F8020000 mov eax, [ebx+$02F8]
* Reference to class TAlysWin
|
0061AE16 8B157CEE6300 mov edx, [$0063EE7C]
* Reference to: system.@AsClass;
|
0061AE1C E83B86DEFF call 0040345C
0061AE21 8B80DC030000 mov eax, [eax+$03DC]
0061AE27 8B483C mov ecx, [eax+$3C]
* Reference to field TFrmInfoGgZs.OFFS_0320
|
0061AE2A 8B8320030000 mov eax, [ebx+$0320]
0061AE30 5A pop edx
* Reference to: Unit_0061C03C.Proc_0061D294
|
0061AE31 E85E240000 call 0061D294
0061AE36 83C410 add esp, +$10
0061AE39 5E pop esi
0061AE3A 5B pop ebx
0061AE3B C3 ret
*)
end;
procedure TFrmInfoGgZs._PROC_0061AE44(Sender : TObject);
begin
(*
0061AE44 53 push ebx
0061AE45 56 push esi
0061AE46 83C4F0 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -