unit1.asm

CMOS数据的写程序

_DATA	segment dword public use32 'DATA'
@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject	segment virtual
	align	2
@@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject	label	dword
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-4
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-4
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	-8
	dd	0
@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTCO$@TForm1@Button3Click$qqrp14System@TObject	segment virtual
	align	2
@@_$ECTCO$@TForm1@Button3Click$qqrp14System@TObject	label	dword
	dd	0
	dd	-44
	dw	0
	dw	5
	dd	0
	dd	@@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject+16
	dw	0
	dw	5
	dd	0
	dd	@@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject
	dw	20
	dw	5
	dd	1
	dd	@@_$DCBO$@TForm1@Button3Click$qqrp14System@TObject+32
@_$ECTCO$@TForm1@Button3Click$qqrp14System@TObject	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@TForm1@Button3Click$qqrp14System@TObject	segment virtual
	align	2
@@TForm1@Button3Click$qqrp14System@TObject	proc	near
?live16418@0:
@81:
	push ebp
	mov ebp,esp
	add esp,-44
	push ebx
	push esi
	mov ebx,eax
	mov eax,offset @@_$ECTCO$@TForm1@Button3Click$qqrp14System@TObject
	call @__InitExceptBlockLDTC
?live16418@16: ; EBX = this
	mov word ptr [ebp-28],8
	xor edx,edx
	lea ecx,dword ptr [ebx+795]
	mov dword ptr [ebp-4],edx
	inc dword ptr [ebp-16]
	mov word ptr [ebp-28],20
	push 128
	push 0
	push ecx
	call @_memset
	add esp,12
	mov eax,dword ptr [ebx+780]
	mov edx,dword ptr [eax]
	call dword ptr [edx+60]
	test al,al
	je        short @82
	mov word ptr [ebp-28],32
	xor ecx,ecx
	mov dword ptr [ebp-8],ecx
	lea edx,dword ptr [ebp-8]
	inc dword ptr [ebp-16]
	mov eax,dword ptr [ebx+780]
	call @@Dialogs@TOpenDialog@GetFileName$qqrv
	lea edx,dword ptr [ebp-8]
	lea eax,dword ptr [ebp-4]
	call @@System@AnsiString@$basg$qqrrx17System@AnsiString
	dec dword ptr [ebp-16]
	lea eax,dword ptr [ebp-8]
	mov edx,2
	call @@System@AnsiString@$bdtr$qqrv
	jmp short @83
?live16418@112: ; 
@82:
	dec dword ptr [ebp-16]
	lea eax,dword ptr [ebp-4]
	mov edx,2
	call @@System@AnsiString@$bdtr$qqrv
	mov ecx,dword ptr [ebp-44]
	mov dword ptr fs:[0],ecx
	jmp @84
?live16418@128: ; EBX = this
@83:
	push offset s@+139
	cmp dword ptr [ebp-4],0
	je        short @85
	mov eax,dword ptr [ebp-4]
	jmp short @86
@85:
	mov eax,offset s@+142
@86:
	push eax
	call @_fopen
	add esp,8
	mov esi,eax
?live16418@144: ; EBX = this, ESI = fp
	test esi,esi
	je        short @87
	push esi
	push 128
	push 1
	lea eax,dword ptr [ebx+795]
	push eax
	call @_fread
	add esp,16
	push esi
	call @_fclose
	pop ecx
?live16418@192: ; EBX = this
	jmp short @88
?live16418@208: ; 
@87:
	mov eax,dword ptr [@Forms@Application]
	push 48
	mov ecx,offset s@+191
	mov edx,offset s@+143
	mov eax,dword ptr [eax]
	call @@Forms@TApplication@MessageBoxA$qqrpxct1i
	dec dword ptr [ebp-16]
	lea eax,dword ptr [ebp-4]
	mov edx,2
	call @@System@AnsiString@$bdtr$qqrv
	mov ecx,dword ptr [ebp-44]
	mov dword ptr fs:[0],ecx
	jmp short @84
?live16418@240: ; EBX = this
@88:
	mov dword ptr [_Ring3ProcName],offset @@TForm1@WriteComs$qqrv
	mov dword ptr [_Ring3ProcName+4],ebx
	call @@Ring0Proc$qqrv
?live16418@256: ; 
	dec dword ptr [ebp-16]
	lea eax,dword ptr [ebp-4]
	mov edx,2
	call @@System@AnsiString@$bdtr$qqrv
	mov ecx,dword ptr [ebp-44]
	mov dword ptr fs:[0],ecx
@89:
@84:
	pop esi
	pop ebx
	mov esp,ebp
	pop ebp
	ret 
@@TForm1@Button3Click$qqrp14System@TObject	endp
@TForm1@Button3Click$qqrp14System@TObject	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$DCDO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	segment virtual
	align	2
@@_$DCDO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	label	dword
	dd	@@$xt$p11Forms@TForm
	dd	1029
	dd	-4
	dd	0
@_$DCDO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTEO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	segment virtual
	align	2
@@_$ECTEO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCDO$@Forms@TForm@$bctr$qqrp18Classes@TComponent
@_$ECTEO$@Forms@TForm@$bctr$qqrp18Classes@TComponent	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Forms@TForm@$bctr$qqrp18Classes@TComponent	segment virtual
	align	2
@@Forms@TForm@$bctr$qqrp18Classes@TComponent	proc	near
?live16401@0:
	push ebp
	mov ebp,esp
	add esp,-40
	test dl,dl
	push ebx
	push esi
	mov byte ptr [ebp-8],dl
	jle       short @90
	call __ClassCreate
@90:
@91:
	mov esi,ecx
	mov ebx,edx
	mov dword ptr [ebp-4],eax
	mov eax,offset @@_$ECTEO$@Forms@TForm@$bctr$qqrp18Classes@TComponent
	call @__InitExceptBlockLDTC
	mov word ptr [ebp-24],8
	mov ecx,esi
	xor edx,edx
	mov eax,dword ptr [ebp-4]
	call @@Forms@TCustomForm@$bctr$qqrp18Classes@TComponent
	add dword ptr [ebp-12],15
	mov edx,dword ptr [ebp-40]
	mov dword ptr fs:[0],edx
	mov eax,dword ptr [ebp-4]
@93:
@92:
	test bl,bl
	je        short @94
	call __AfterConstruction
@94:
	pop esi
	pop ebx
	mov esp,ebp
	pop ebp
	ret 
@@Forms@TForm@$bctr$qqrp18Classes@TComponent	endp
@Forms@TForm@$bctr$qqrp18Classes@TComponent	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$p11Forms@TForm	segment virtual
	align	2
@@$xt$p11Forms@TForm	label	dword
	dd	4
	dw	144
	dw	12
	dd	@@$xt$11Forms@TForm
	db	84
	db	70
	db	111
	db	114
	db	109
	db	32
	db	42
	db	0
@$xt$p11Forms@TForm	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$p6TForm1	segment virtual
	align	2
@@$xt$p6TForm1	label	dword
	dd	4
	dw	144
	dw	12
	dd	@@$xt$6TForm1
	db	84
	db	70
	db	111
	db	114
	db	109
	db	49
	db	32
	db	42
	db	0
@$xt$p6TForm1	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$17System@AnsiString	segment virtual
	align	2
@@$xt$17System@AnsiString	label	byte
	dd	4
	dw	3
	dw	48
	dd	-1
	dd	3
	dw	68
	dw	72
	dd	0
	dw	0
	dw	0
	dd	0
	dd	1
	dd	1
	dd	@@System@AnsiString@$bdtr$qqrv
	dw	3
	dw	76
	db	83
	db	121
	db	115
	db	116
	db	101
	db	109
	db	58
	db	58
	db	65
	db	110
	db	115
	db	105
	db	83
	db	116
	db	114
	db	105
	db	110
	db	103
	db	0
	db	0
	dd	0
	dd	0
	dd	0
@$xt$17System@AnsiString	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@TForm1@	segment virtual
	align	2
@@TForm1@	label	byte
	dd	@@TForm1@+76
	dd	0
	dd	0
	dd	0
	dd	@@$xp$6TForm1+4
	dd	@@TForm1@+316
	dd	@@TForm1@+453
	dd	0
	dd	@@TForm1@+581
	dd	928
	dd	@Forms@TForm@
	dd	@@Classes@TComponent@SafeCallException$qqrp14System@TObjectpv
	dd	@@Forms@TCustomForm@AfterConstruction$qqrv
	dd	@@Forms@TCustomForm@BeforeDestruction$qqrv
	dd	@@System@TObject@Dispatch$qqrpv
	dd	@@Forms@TCustomForm@DefaultHandler$qqrpv
	dd	@@System@TObject@NewInstance$qqrp17System@TMetaClass
	dd	@@System@TObject@FreeInstance$qqrv
	dd	@@TForm1@$bdtr$qqrv
	dd	@@Controls@TWinControl@AssignTo$qqrp19Classes@TPersistent
	dd	@@Forms@TCustomForm@DefineProperties$qqrp14Classes@TFiler
	dd	@@Classes@TPersistent@Assign$qqrp19Classes@TPersistent
	dd	@@Forms@TCustomForm@Loaded$qqrv
	dd	@@Forms@TCustomForm@Notification$qqrp18Classes@TComponent18Classes@TOperation
	dd	@@Forms@TCustomForm@ReadState$qqrp15Classes@TReader
	dd	@@Controls@TControl@SetName$qqrx17System@AnsiString
	dd	@@Classes@TComponent@UpdateRegistry$qqrp17System@TMetaClassox17System@AnsiStringt3
	dd	@@Forms@TCustomForm@ValidateRename$qqrp18Classes@TComponentx17System@AnsiStringt2
	dd	@@Classes@TComponent@WriteState$qqrp15Classes@TWriter
	dd	@@Forms@TCustomForm@QueryInterface$qqsrx5_GUIDpv
	dd	@@TForm1@$bctr$qqrp18Classes@TComponent
	dd	@@Controls@TWinControl@CanResize$qqrrit1
	dd	@@Controls@TWinControl@CanAutoSize$qqrrit1
	dd	@@Controls@TWinControl@ConstrainedResize$qqrrit1t1t1
	dd	@@Controls@TControl@GetAction$qqrv
	dd	@@Controls@TWinControl@GetClientOrigin$qqrv
	dd	@@Forms@TCustomForm@GetClientRect$qqrv
	dd	@@Controls@TWinControl@GetDeviceContext$qqrrpv
	dd	@@Controls@TControl@GetDragImages$qqrv
	dd	@@Controls@TControl@GetEnabled$qqrv
	dd	@@Forms@TCustomForm@GetFloating$qqrv
	dd	@@Controls@TControl@GetFloatingDockSiteClass$qqrv
	dd	@@Controls@TControl@SetAutoSize$qqro
	dd	@@Controls@TControl@SetDragMode$qqr18Controls@TDragMode
	dd	@@Controls@TControl@SetEnabled$qqro
	dd	@@Forms@TCustomForm@SetParent$qqrp20Controls@TWinControl
	dd	@@Forms@TCustomForm@SetParentBiDiMode$qqro
	dd	@@Controls@TControl@SetBiDiMode$qqr17Classes@TBiDiMode
	dd	@@Forms@TCustomForm@WndProc$qqrr17Messages@TMessage
	dd	@@Controls@TControl@InitiateAction$qqrv
	dd	@@Controls@TWinControl@Invalidate$qqrv
	dd	@@Controls@TWinControl@Repaint$qqrv
	dd	@@Controls@TWinControl@SetBounds$qqriiii
	dd	@@Controls@TWinControl@Update$qqrv
	dd	@@Forms@TScrollingWinControl@AdjustClientRect$qqrr11Types@TRect
	dd	@@Forms@TCustomForm@AlignControls$qqrp17Controls@TControlr11Types@TRect
	dd	@@Controls@TWinControl@CreateHandle$qqrv
	dd	@@Forms@TCustomForm@CreateParams$qqrr22Controls@TCreateParams
	dd	@@Forms@TCustomForm@CreateWindowHandle$qqrrx22Controls@TCreateParams
	dd	@@Forms@TCustomForm@CreateWnd$qqrv
	dd	@@Controls@TWinControl@CustomAlignInsertBefore$qqrp17Controls@TControlt1
	dd	@@Controls@TWinControl@CustomAlignPosition$qqrp17Controls@TControlrit2t2t2r11Types@TRectrx19Controls@TAlignInfo
	dd	@@Forms@TCustomForm@DestroyWindowHandle$qqrv
	dd	@@Controls@TWinControl@DestroyWnd$qqrv
	dd	@@Controls@TWinControl@GetControlExtents$qqrv
	dd	@@Forms@TCustomForm@PaintWindow$qqrpv
	dd	@@Controls@TWinControl@ShowControl$qqrp17Controls@TControl
	dd	@@Forms@TCustomForm@SetFocus$qqrv
	dd	@@Forms@TScrollingWinControl@AutoScrollEnabled$qqrv
	dd	@@Forms@TScrollingWinControl@AutoScrollInView$qqrp17Controls@TControl
	dd	@@Forms@TCustomForm@Resizing$qqr18Forms@TWindowState
	dd	@@Forms@TCustomForm@DoCreate$qqrv
	dd	@@Forms@TCustomForm@DoDestroy$qqrv
	dd	@@Forms@TCustomForm@UpdateActions$qqrv
	dd	@@Forms@TForm@$bctr$qqrp18Classes@TComponenti
	dd	@@Forms@TCustomForm@CloseQuery$qqrv
	dd	@@Forms@TCustomForm@SetFocusedControl$qqrp20Controls@TWinControl
	dd	@@Forms@TCustomForm@ShowModal$qqrv
	dd	@@Forms@TCustomForm@WantChildKey$qqrp17Controls@TControlr17Messages@TMessage
	dw	10
	dd	@@TForm1@+588
	dd	752
	dw	0
	db	6
	db 76,97,98,101,108,49
	dd	756
	dw	1
	db	5
	db 69,100,105,116,49
	dd	760
	dw	2
	db	6
	db 84,105,109,101,114,49
	dd	764
	dw	1
	db	5
	db 69,100,105,116,50
	dd	768
	dw	1
	db	5
	db 69,100,105,116,51
	dd	772
	dw	3
	db	7
	db 66,117,116,116,111,110,50
	dd	776
	dw	3
	db	7
	db 66,117,116,116,111,110,51
	dd	780
	dw	4
	db	8
	db 100,108,103,79,112,101,110,49
	dd	784
	dw	0
	db	6
	db 76,97,98,101,108,50
	dd	788
	dw	0
	db	6
	db 76,97,98,101,108,51
	dw	7
	dw	15
	dd	@@TForm1@FormShow$qqrp14System@TObject
	db	8
	db 70,111,114,109,83,104,111,119
	dw	17
	dd	@@TForm1@FormCreate$qqrp14System@TObject
	db	10
	db 70,111,114,109,67,114,101,97,116,101
	dw	21
	dd	@@TForm1@FormCloseQuery$qqrp14System@TObjectro
	db	14
	db 70,111,114,109,67,108,111,115,101,81,117,101,114,121
	dw	19
	dd	@@TForm1@Button1Click$qqrp14System@TObject
	db	12
	db 66,117,116,116,111,110,49,67,108,105,99,107
	dw	16
	dd	@@TForm1@ShowTimer$qqrp14System@TObject
	db	9
	db 83,104,111,119,84,105,109,101,114
	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
	db	6
	db 84,70,111,114,109,49
	dw	5
	dd	@Stdctrls@TLabel@
	dd	@Stdctrls@TEdit@
	dd	@Extctrls@TTimer@
	dd	@Stdctrls@TButton@
	dd	@Dialogs@TOpenDialog@
@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	92
	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	928
	dw	3
	dw	48
	dd	0
	dd	183
	dw	56
	dw	72
	dd	0
	dw	0
	dw	0
	dd	0
	dd	17
	dd	17
	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	752
	dw	3
	dw	48
	dd	0
	dd	183
	dw	64
	dw	80
	dd	0
	dw	0
	dw	0
	dd	0
	dd	16
	dd	16
	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