⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 unit1.asm

📁 该程序用来测试89C51与IDE硬盘的接口
💻 ASM
📖 第 1 页 / 共 5 页
字号:
	db	5
	db        69,100,105,116,49
	dd	732
	dw	0
	db	7
	db        66,117,116,116,111,110,51
	dd	736
	dw	0
	db	7
	db        66,117,116,116,111,110,52
	dw	4
	dw	19
	dd	@@TForm1@Button1Click$qqrp14System@TObject
	db	12
	db        66,117,116,116,111,110,49,67,108,105,99,107
	dw	19
	dd	@@TForm1@Button2Click$qqrp14System@TObject
	db	12
	db        66,117,116,116,111,110,50,67,108,105,99,107
	dw	19
	dd	@@TForm1@Button3Click$qqrp14System@TObject
	db	12
	db        66,117,116,116,111,110,51,67,108,105,99,107
	dw	19
	dd	@@TForm1@Button4Click$qqrp14System@TObject
	db	12
	db        66,117,116,116,111,110,52,67,108,105,99,107
	db	6
	db        84,70,111,114,109,49
	dw	2
	dd	@Stdctrls@TButton@
	dd	@Stdctrls@TEdit@
@TForm1@	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@$xp$6TForm1	segment virtual
	align	2
@@$xp$6TForm1	label	byte
	dd	@@$xp$6TForm1+4
	db	7
	db	6
	db        84,70,111,114,109,49
	dd	@@TForm1@+76
	dd	@$xp$11Forms@TForm
	dw	86
	db	5
	db        85,110,105,116,49
	dw	0
@$xp$6TForm1	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$6TForm1	segment virtual
	align	2
@@$xt$6TForm1	label	byte
	dd	744
	dw	3
	dw	48
	dd	0
	dd	183
	dw	56
	dw	72
	dd	0
	dw	0
	dw	0
	dd	0
	dd	16
	dd	16
	dd	@@TForm1@$bdtr$qqrv
	dw	3
	dw	76
	db	84
	db	70
	db	111
	db	114
	db	109
	db	49
	db	0
	db	0
	dd	@@$xt$11Forms@TForm
	dd	0
	dd	3
	dd	0
	dd	0
	dd	0
@$xt$6TForm1	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$11Forms@TForm	segment virtual
	align	2
@@$xt$11Forms@TForm	label	byte
	dd	720
	dw	3
	dw	48
	dd	0
	dd	183
	dw	64
	dw	80
	dd	0
	dw	0
	dw	0
	dd	0
	dd	15
	dd	15
	dd	@@Forms@TForm@$bdtr$qqrv
	dw	3
	dw	84
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	84
	db	70
	db	111
	db	114
	db	109
	db	0
	db	0
	db	0
	db	0
	dd	@@$xt$17Forms@TCustomForm
	dd	0
	dd	3
	dd	0
	dd	0
	dd	0
@$xt$11Forms@TForm	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$ECTJE$@TForm1@$bdtr$qqrv	segment virtual
	align	2
@@_$ECTJE$@TForm1@$bdtr$qqrv	label	dword
	dd	0
	dd	-36
@_$ECTJE$@TForm1@$bdtr$qqrv	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@TForm1@$bdtr$qqrv	segment virtual
@@TForm1@$bdtr$qqrv	proc	near
?live16406@0:
	?debug L 0
	push      ebp
	mov       ebp,esp
	add       esp,-44
	call      __BeforeDestruction
	mov       byte ptr [ebp-41],dl
	mov       dword ptr [ebp-40],eax
@25:
	mov       eax,offset @@_$ECTJE$@TForm1@$bdtr$qqrv
	call      @__InitExceptBlockLDTC
	cmp       byte ptr [ebp-41],0
	jl        short @26
	sub       dword ptr [ebp-8],15
	xor       edx,edx
	mov       eax,dword ptr [ebp-40]
	call      @@Forms@TForm@$bdtr$qqrv
@26:
@27:
	mov       edx,dword ptr [ebp-36]
	mov       dword ptr fs:[0],edx
@29:
@28:
	cmp       byte ptr [ebp-41],0
	jle       short @30
	mov       eax,dword ptr [ebp-40]
	call      __ClassDestroy
	?debug L 933
@30:
	mov       esp,ebp
	pop       ebp
	ret 
	?debug L 0
@@TForm1@$bdtr$qqrv	endp
@TForm1@$bdtr$qqrv	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	65
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch55
	dd	?patch56
	dd	?patch57
	df	@@TForm1@$bdtr$qqrv
	dw	0
	dw	4145
	dw	0
	dw	37
	dw	0
	dw	0
	dw	0
	db	18
	db	64
	db	84
	db	70
	db	111
	db	114
	db	109
	db	49
	db	64
	db	36
	db	98
	db	100
	db	116
	db	114
	db	36
	db	113
	db	113
	db	114
	db	118
	dw	18
	dw	512
	dw	65496
	dw	65535
	dw	4102
	dw	0
	dw	38
	dw	0
	dw	0
	dw	0
	dw	?patch58
	dw	529
	dw	?patch59
	dd	?live16406@0-@@TForm1@$bdtr$qqrv
	dd	?live16406@0-?live16406@0
	dw	17
?patch59	equ	1
?patch58	equ	14
?patch55	equ	@29-@@TForm1@$bdtr$qqrv+18
?patch56	equ	0
?patch57	equ	@29-@@TForm1@$bdtr$qqrv
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_DATA	segment dword public use32 'DATA'
@_$DCKE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	segment virtual
	align	2
@@_$DCKE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	label	dword
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-4
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	8
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-8
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-12
	dd	0
@_$DCKE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTLE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	segment virtual
	align	2
@@_$ECTLE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	label	dword
	dd	0
	dd	-48
	dw	0
	dw	5
	dd	2
	dd	@@_$DCKE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dw	8
	dw	5
	dd	4
	dd	@@_$DCKE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2+28
@_$ECTLE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	segment virtual
@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	proc	near
?live16407@0:
	?debug	T "C:\PROGRAM FILES\BORLAND\CBUILDER5\INCLUDE\VCL\classes.hpp"
	?debug L 2068
	push      ebp
	mov       ebp,esp
	add       esp,-56
	mov       dword ptr [ebp-4],ecx
	mov       byte ptr [ebp-53],dl
	mov       dword ptr [ebp-52],eax
@31:
	mov       eax,offset @@_$ECTLE$@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	call      @__InitExceptBlockLDTC
	mov       dword ptr [ebp-20],2
	lea       edx,dword ptr [ebp-4]
	lea       eax,dword ptr [ebp-4]
	call      @@System@AnsiString@$bctr$qqrrx17System@AnsiString
	inc       dword ptr [ebp-20]
	?debug L 2069
	mov       word ptr [ebp-32],8
	lea       edx,dword ptr [ebp+8]
	lea       eax,dword ptr [ebp+8]
	call      @@System@AnsiString@$bctr$qqrrx17System@AnsiString
	inc       dword ptr [ebp-20]
	lea       edx,dword ptr [ebp+8]
	lea       eax,dword ptr [ebp-12]
	call      @@System@AnsiString@$bctr$qqrrx17System@AnsiString
	inc       dword ptr [ebp-20]
	push      dword ptr [eax]
	mov       word ptr [ebp-32],20
	lea       edx,dword ptr [ebp-4]
	lea       eax,dword ptr [ebp-8]
	call      @@System@AnsiString@$bctr$qqrrx17System@AnsiString
	inc       dword ptr [ebp-20]
	mov       ecx,dword ptr [eax]
	mov       dl,byte ptr [ebp-53]
	mov       eax,dword ptr [@Classes@TComponent@]
	call      @@Classes@TComponent@UpdateRegistry$qqrp17System@TMetaClassox17System@AnsiStringt3
	dec       dword ptr [ebp-20]
	lea       eax,dword ptr [ebp-12]
	mov       edx,2
	call      @@System@AnsiString@$bdtr$qqrv
	dec       dword ptr [ebp-20]
	lea       eax,dword ptr [ebp-8]
	mov       edx,2
	call      @@System@AnsiString@$bdtr$qqrv
	dec       dword ptr [ebp-20]
	lea       eax,dword ptr [ebp+8]
	mov       edx,2
	call      @@System@AnsiString@$bdtr$qqrv
	dec       dword ptr [ebp-20]
	lea       eax,dword ptr [ebp-4]
	mov       edx,2
	call      @@System@AnsiString@$bdtr$qqrv
	mov       ecx,dword ptr [ebp-48]
	mov       dword ptr fs:[0],ecx
	?debug L 2069
@32:
	mov       esp,ebp
	pop       ebp
	ret       4
	?debug L 0
@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	endp
@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	108
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch60
	dd	?patch61
	dd	?patch62
	df	@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dw	0
	dw	4147
	dw	0
	dw	39
	dw	0
	dw	0
	dw	0
	db	61
	db	64
	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
	db	64
	db	85
	db	112
	db	100
	db	97
	db	116
	db	101
	db	82
	db	101
	db	103
	db	105
	db	115
	db	116
	db	114
	db	121
	db	36
	db	113
	db	113
	db	114
	db	111
	db	120
	db	49
	db	55
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	64
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	116
	db	50
	dw	18
	dw	512
	dw	65484
	dw	65535
	dw	4148
	dw	0
	dw	40
	dw	0
	dw	0
	dw	0
	dw	?patch63
	dw	529
	dw	?patch64
	dd	?live16407@0-@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dd	?live16407@0-?live16407@0
	dw	17
?patch64	equ	1
?patch63	equ	14
	dw	18
	dw	512
	dw	65483
	dw	65535
	dw	48
	dw	0
	dw	41
	dw	0
	dw	0
	dw	0
	dw	?patch65
	dw	529
	dw	?patch66
	dd	?live16407@0-@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dd	?live16407@0-?live16407@0
	dw	3
?patch66	equ	1
?patch65	equ	14
	dw	18
	dw	512
	dw	65532
	dw	65535
	dw	4149
	dw	0
	dw	42
	dw	0
	dw	0
	dw	0
	dw	?patch67
	dw	529
	dw	?patch68
	dd	?live16407@0-@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dd	?live16407@0-?live16407@0
	dw	0
?patch68	equ	1
?patch67	equ	14
	dw	18
	dw	512
	dw	8
	dw	0
	dw	4149
	dw	0
	dw	43
	dw	0
	dw	0
	dw	0
?patch60	equ	@32-@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2+6
?patch61	equ	0
?patch62	equ	@32-@@Classes@TComponent@UpdateRegistry$qqrox17System@AnsiStringt2
	dw	2
	dw	6
	dw	4
	dw	531
	dw	0
$$BSYMS	ends
_DATA	segment dword public use32 'DATA'
@_$DCME$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
	align	2
@@_$DCME$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	label	dword
	dd	@@$xt$p11Forms@TForm
	dd	1029
	dd	-4
	dd	0
@_$DCME$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTNE$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
	align	2
@@_$ECTNE$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCME$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
@_$ECTNE$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti	proc	near
?live16408@0:
	?debug	T "C:\PROGRAM FILES\BORLAND\CBUILDER5\INCLUDE\VCL\forms.hpp"
	?debug L 936
	push      ebp
	mov       ebp,esp
	add       esp,-48
	mov       byte ptr [ebp-8],dl
	test      dl,dl
	jle       short @33
	call      __ClassCreate
@33:
	mov       dword ptr [ebp-48],ecx
	mov       byte ptr [ebp-41],dl
	mov       dword ptr [ebp-4],eax
@34:
	mov       eax,offset @@_$ECTNE$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	call      @__InitExceptBlockLDTC
	?debug L 937
	mov       word ptr [ebp-24],8
	push      dword ptr [ebp+8]
	mov       ecx,dword ptr [ebp-48]
	xor       edx,edx
	mov       eax,dword ptr [ebp-4]
	call      @@Forms@TCustomForm@$bctr$qqrp18Classes@TComponenti
	add       dword ptr [ebp-12],14
	mov       edx,dword ptr [ebp-40]
	mov       dword ptr fs:[0],edx
	mov       eax,dword ptr [ebp-4]
@36:
@35:
	cmp       byte ptr [ebp-41],0
	je        short @37
	call      __AfterConstruction
	?debug L 937
@37:
	mov       esp,ebp
	pop       ebp
	ret       4
	?debug L 0
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti	endp
@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_TEXT	ends
$$BSYMS	segment byte public use32 'DEBSYM'
	dw	91
	dw	517
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dw	0
	dd	?patch69
	dd	?patch70
	dd	?patch71
	df	@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	dw	0
	dw	4151
	dw	0
	dw	44
	dw	0
	dw	0
	dw	0
	db	44
	db	64
	db	70
	db	111
	db	114
	db	109
	db	115
	db	64
	db	84
	db	70
	db	111
	db	114
	db	109
	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
	db	105
	dw	18
	dw	512
	dw	65532
	dw	65535
	dw	4143
	dw	0
	dw	45
	dw	0
	dw	0
	dw	0
	dw	?patch72
	dw	529
	dw	?patch73
	dd	?live16408@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	dd	?live16408@0-?live16408@0
	dw	17
?patch73	equ	1
?patch72	equ	14
	dw	18
	dw	512
	dw	65488
	dw	65535
	dw	65531
	dw	65535
	dw	46
	dw	0
	dw	0
	dw	0
	dw	?patch74
	dw	529
	dw	?patch75
	dd	?live16408@0-@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	dd	?live16408@0-?live16408@0
	dw	18
?patch75	equ	1
?patch74	equ	14

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -