unit1.asm

CMOS数据的写程序

	dd	0
@$xt$11Forms@TForm	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$ECTFO$@TForm1@$bdtr$qqrv	segment virtual
	align	2
@@_$ECTFO$@TForm1@$bdtr$qqrv	label	dword
	dd	0
	dd	-36
@_$ECTFO$@TForm1@$bdtr$qqrv	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@TForm1@$bdtr$qqrv	segment virtual
	align	2
@@TForm1@$bdtr$qqrv	proc	near
?live16428@0:
@95:
	push ebp
	mov ebp,esp
	add esp,-36
	push ebx
	push esi
	call __BeforeDestruction
	mov ebx,edx
	mov esi,eax
	mov eax,offset @@_$ECTFO$@TForm1@$bdtr$qqrv
	call @__InitExceptBlockLDTC
	test bl,bl
	jl        short @96
	sub dword ptr [ebp-8],16
	xor edx,edx
	mov eax,esi
	call @@Forms@TForm@$bdtr$qqrv
@96:
@97:
	mov edx,dword ptr [ebp-36]
	mov dword ptr fs:[0],edx
@99:
@98:
	test bl,bl
	jle       short @100
	mov eax,esi
	call __ClassDestroy
@100:
	pop esi
	pop ebx
	mov esp,ebp
	pop ebp
	ret 
@@TForm1@$bdtr$qqrv	endp
@TForm1@$bdtr$qqrv	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$DCGO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
	align	2
@@_$DCGO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	label	dword
	dd	@@$xt$p11Forms@TForm
	dd	1029
	dd	-4
	dd	0
@_$DCGO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTHO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
	align	2
@@_$ECTHO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCGO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
@_$ECTHO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Forms@TForm@$bctr$qqrp18Classes@TComponenti	segment virtual
	align	2
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti	proc	near
?live16429@0:
	push ebp
	mov ebp,esp
	add esp,-40
	test dl,dl
	push ebx
	push esi
	mov byte ptr [ebp-8],dl
	jle       short @101
	call __ClassCreate
@101:
@102:
	mov esi,ecx
	mov ebx,edx
	mov dword ptr [ebp-4],eax
	mov eax,offset @@_$ECTHO$@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	call @__InitExceptBlockLDTC
	mov word ptr [ebp-24],8
	mov edx,dword ptr [ebp+8]
	mov ecx,esi
	push edx
	xor edx,edx
	mov eax,dword ptr [ebp-4]
	call @@Forms@TCustomForm@$bctr$qqrp18Classes@TComponenti
	add dword ptr [ebp-12],15
	mov ecx,dword ptr [ebp-40]
	mov dword ptr fs:[0],ecx
	mov eax,dword ptr [ebp-4]
@104:
@103:
	test bl,bl
	je        short @105
	call __AfterConstruction
@105:
	pop esi
	pop ebx
	mov esp,ebp
	pop ebp
	ret 4
@@Forms@TForm@$bctr$qqrp18Classes@TComponenti	endp
@Forms@TForm@$bctr$qqrp18Classes@TComponenti	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$DCIO$@Forms@TForm@$bdtr$qqrv	segment virtual
	align	2
@@_$DCIO$@Forms@TForm@$bdtr$qqrv	label	dword
	dd	@@$xt$p11Forms@TForm
	dd	1029
	dd	-4
	dd	0
@_$DCIO$@Forms@TForm@$bdtr$qqrv	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTJO$@Forms@TForm@$bdtr$qqrv	segment virtual
	align	2
@@_$ECTJO$@Forms@TForm@$bdtr$qqrv	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCIO$@Forms@TForm@$bdtr$qqrv
@_$ECTJO$@Forms@TForm@$bdtr$qqrv	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Forms@TForm@$bdtr$qqrv	segment virtual
	align	2
@@Forms@TForm@$bdtr$qqrv	proc	near
?live16430@0:
@106:
	push ebp
	mov ebp,esp
	add esp,-40
	push ebx
	call __BeforeDestruction
	mov ebx,edx
	mov dword ptr [ebp-4],eax
	mov eax,offset @@_$ECTJO$@Forms@TForm@$bdtr$qqrv
	call @__InitExceptBlockLDTC
	mov dword ptr [ebp-12],15
	test bl,bl
	jl        short @107
	mov word ptr [ebp-24],8
	sub dword ptr [ebp-12],15
	xor edx,edx
	mov eax,dword ptr [ebp-4]
	call @@Forms@TCustomForm@$bdtr$qqrv
@107:
	mov edx,dword ptr [ebp-40]
	mov dword ptr fs:[0],edx
@108:
	test bl,bl
	jle       short @109
	mov eax,dword ptr [ebp-4]
	call __ClassDestroy
@109:
	pop ebx
	mov esp,ebp
	pop ebp
	ret 
@@Forms@TForm@$bdtr$qqrv	endp
@Forms@TForm@$bdtr$qqrv	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$17Forms@TCustomForm	segment virtual
	align	2
@@$xt$17Forms@TCustomForm	label	byte
	dd	752
	dw	3
	dw	48
	dd	0
	dd	183
	dw	68
	dw	84
	dd	0
	dw	0
	dw	0
	dd	0
	dd	15
	dd	15
	dd	@@Forms@TCustomForm@$bdtr$qqrv
	dw	3
	dw	88
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	84
	db	67
	db	117
	db	115
	db	116
	db	111
	db	109
	db	70
	db	111
	db	114
	db	109
	db	0
	db	0
	dd	@@$xt$26Forms@TScrollingWinControl
	dd	0
	dd	3
	dd	0
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	572
	dd	@@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%
	dd	592
	dd	@@$xt$42System@%DelphiInterface$t14Forms@IOleForm%
	dd	612
	dd	0
@$xt$17Forms@TCustomForm	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$42System@%DelphiInterface$t14Forms@IOleForm%	segment virtual
	align	2
@@$xt$42System@%DelphiInterface$t14Forms@IOleForm%	label	byte
	dd	4
	dw	3
	dw	48
	dd	-1
	dd	3
	dw	92
	dw	96
	dd	0
	dw	0
	dw	0
	dd	0
	dd	1
	dd	1
	dd	@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv
	dw	3
	dw	100
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	58
	db	58
	db	68
	db	101
	db	108
	db	112
	db	104
	db	105
	db	73
	db	110
	db	116
	db	101
	db	114
	db	102
	db	97
	db	99
	db	101
	db	60
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	73
	db	79
	db	108
	db	101
	db	70
	db	111
	db	114
	db	109
	db	62
	db	0
	db	0
	db	0
	db	0
	dd	0
	dd	0
	dd	0
@$xt$42System@%DelphiInterface$t14Forms@IOleForm%	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%	segment virtual
	align	2
@@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%	label	byte
	dd	4
	dw	3
	dw	48
	dd	-1
	dd	3
	dw	96
	dw	100
	dd	0
	dw	0
	dw	0
	dd	0
	dd	1
	dd	1
	dd	@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv
	dw	3
	dw	104
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	58
	db	58
	db	68
	db	101
	db	108
	db	112
	db	104
	db	105
	db	73
	db	110
	db	116
	db	101
	db	114
	db	102
	db	97
	db	99
	db	101
	db	60
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	73
	db	68
	db	101
	db	115
	db	105
	db	103
	db	110
	db	101
	db	114
	db	72
	db	111
	db	111
	db	107
	db	62
	db	0
	db	0
	db	0
	dd	0
	dd	0
	dd	0
@$xt$47System@%DelphiInterface$t19Forms@IDesignerHook%	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$26Forms@TScrollingWinControl	segment virtual
	align	2
@@$xt$26Forms@TScrollingWinControl	label	byte
	dd	544
	dw	3
	dw	48
	dd	0
	dd	183
	dw	76
	dw	92
	dd	0
	dw	0
	dw	0
	dd	0
	dd	11
	dd	11
	dd	@@Forms@TScrollingWinControl@$bdtr$qqrv
	dw	3
	dw	96
	db	70
	db	111
	db	114
	db	109
	db	115
	db	58
	db	58
	db	84
	db	83
	db	99
	db	114
	db	111
	db	108
	db	108
	db	105
	db	110
	db	103
	db	87
	db	105
	db	110
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	0
	dd	@@$xt$20Controls@TWinControl
	dd	0
	dd	3
	dd	0
	dd	0
	dd	0
@$xt$26Forms@TScrollingWinControl	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	segment virtual
	align	2
@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	proc	near
?live16440@0:
@110:
	push ebx
	push esi
	mov esi,edx
	mov ebx,eax
	test ebx,ebx
	je        short @111
?live16440@16: ; EBX = this, ESI = $delflag
	mov eax,dword ptr [ebx]
	test eax,eax
	je        short @112
?live16440@32: ; EBX = this, EAX = @temp1, ESI = $delflag
	push eax
	mov edx,dword ptr [eax]
	call dword ptr [edx+8]
?live16440@48: ; EBX = this, ESI = $delflag
	xor ecx,ecx
	mov dword ptr [ebx],ecx
@112:
	test esi,1
	je        short @113
	push ebx
	call @$bdele$qpv
	pop ecx
?live16440@64: ; 
@113:
@111:
@114:
	pop esi
	pop ebx
	ret 
@@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	endp
@System@%DelphiInterface$t14Forms@IOleForm%@$bdtr$qqrv	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	segment virtual
	align	2
@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	proc	near
?live16441@0:
@115:
	push ebx
	push esi
	mov esi,edx
	mov ebx,eax
	test ebx,ebx
	je        short @116
?live16441@16: ; EBX = this, ESI = $delflag
	mov eax,dword ptr [ebx]
	test eax,eax
	je        short @117
?live16441@32: ; EBX = this, EAX = @temp1, ESI = $delflag
	push eax
	mov edx,dword ptr [eax]
	call dword ptr [edx+8]
?live16441@48: ; EBX = this, ESI = $delflag
	xor ecx,ecx
	mov dword ptr [ebx],ecx
@117:
	test esi,1
	je        short @118
	push ebx
	call @$bdele$qpv
	pop ecx
?live16441@64: ; 
@118:
@116:
@119:
	pop esi
	pop ebx
	ret 
@@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	endp
@System@%DelphiInterface$t19Forms@IDesignerHook%@$bdtr$qqrv	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$20Controls@TWinControl	segment virtual
	align	2
@@$xt$20Controls@TWinControl	label	byte
	dd	520
	dw	3
	dw	48
	dd	0
	dd	183
	dw	72
	dw	88
	dd	0
	dw	0
	dw	0
	dd	0
	dd	10
	dd	10
	dd	@@Controls@TWinControl@$bdtr$qqrv
	dw	3
	dw	92
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	115
	db	58
	db	58
	db	84
	db	87
	db	105
	db	110
	db	67
	db	111
	db	110
	db	116
	db	114
	db	111
	db	108
	db	0
	db	0
	db	0
	dd	@@$xt$17Controls@TControl
	dd	0
	dd	3
	dd	0
	dd	0
	dd	@@$xt$49System@%DelphiInterface$t21Controls@IDockManager%
	dd	380
	dd	@@$xt$17System@AnsiString
	dd	392