rtctimer.asm

CMOS数据的写程序

	.386p
	ifdef ??version
	if ??version GT 500H
	.mmx
	endif
	endif
	model flat
	ifndef	??version
	?debug	macro
	endm
	endif
	?debug	S "E:\CMOSRW\RTCTimer.cpp"
	?debug	T "E:\CMOSRW\RTCTimer.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
DGROUP	group	_BSS,_DATA
_DATA	segment dword public use32 'DATA'
@_$CHAF$@WinMain$qqspvt1pci	segment virtual
	align	2
@@_$CHAF$@WinMain$qqspvt1pci	label	dword
	dd	-4
	dd	4
	dd	@1
	dd	@@$xt$r18Sysutils@Exception
	dd	0
	dd	0
	dd	0
	dd	0
@_$CHAF$@WinMain$qqspvt1pci	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTBF$@WinMain$qqspvt1pci	segment virtual
	align	2
@@_$ECTBF$@WinMain$qqspvt1pci	label	dword
	dd	0
	dd	-40
	dw	0
	dw	3
	dd	@@_$CHAF$@WinMain$qqspvt1pci
	dw	0
	dw	4
@_$ECTBF$@WinMain$qqspvt1pci	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
WinMain	segment virtual
	align	2
@WinMain	proc	near
?live16385@0:
@2:
	push ebp
	mov ebp,esp
	add esp,-40
	mov eax,offset @@_$ECTBF$@WinMain$qqspvt1pci
	push ebx
	push esi
	push edi
	call @__InitExceptBlockLDTC
	mov word ptr [ebp-24],8
	mov edx,dword ptr [@Forms@Application]
	mov eax,dword ptr [edx]
	call @@Forms@TApplication@Initialize$qqrv
	mov edx,dword ptr [@Forms@Application]
	mov eax,dword ptr [edx]
	mov ecx,dword ptr [_Form1]
	mov edx,dword ptr [@@TForm1@]
	call @@Forms@TApplication@CreateForm$qqrp17System@TMetaClasspv
	mov eax,dword ptr [@Forms@Application]
	mov eax,dword ptr [eax]
	call @@Forms@TApplication@Run$qqrv
	mov word ptr [ebp-24],0
	jmp short @3
@4:
@1:
	mov edx,dword ptr [@Forms@Application]
	mov eax,dword ptr [edx]
	mov edx,dword ptr [ebp-4]
	call @@Forms@TApplication@ShowException$qqrp18Sysutils@Exception
@5:
	mov word ptr [ebp-24],16
	call @@_CatchCleanup$qv
@3:
	xor eax,eax
	mov edx,dword ptr [ebp-40]
	mov dword ptr fs:[0],edx
@7:
@6:
	pop edi
	pop esi
	pop ebx
	mov esp,ebp
	pop ebp
	ret 16
@WinMain	endp
WinMain	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$r18Sysutils@Exception	segment virtual
	align	2
@@$xt$r18Sysutils@Exception	label	dword
	dd	4
	dw	160
	dw	12
	dd	@@$xt$18Sysutils@Exception
	db	69
	db	120
	db	99
	db	101
	db	112
	db	116
	db	105
	db	111
	db	110
	db	32
	db	38
	db	0
@$xt$r18Sysutils@Exception	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$18Sysutils@Exception	segment virtual
	align	2
@@$xt$18Sysutils@Exception	label	byte
	dd	12
	dw	3
	dw	48
	dd	0
	dd	183
	dw	68
	dw	84
	dd	0
	dw	0
	dw	0
	dd	0
	dd	3
	dd	3
	dd	@@Sysutils@Exception@$bdtr$qqrv
	dw	3
	dw	88
	db	83
	db	121
	db	115
	db	117
	db	116
	db	105
	db	108
	db	115
	db	58
	db	58
	db	69
	db	120
	db	99
	db	101
	db	112
	db	116
	db	105
	db	111
	db	110
	db	0
	dd	@@$xt$14System@TObject
	dd	0
	dd	3
	dd	0
	dd	0
	dd	@@$xt$17System@AnsiString
	dd	4
	dd	0
@$xt$18Sysutils@Exception	ends
_TEXT	ends
_DATA	segment dword public use32 'DATA'
@_$DCCF$@Sysutils@Exception@$bdtr$qqrv	segment virtual
	align	2
@@_$DCCF$@Sysutils@Exception@$bdtr$qqrv	label	dword
	dd	@@$xt$p18Sysutils@Exception
	dd	1029
	dd	-4
	dd	0
@_$DCCF$@Sysutils@Exception@$bdtr$qqrv	ends
_DATA	ends
_DATA	segment dword public use32 'DATA'
@_$ECTDF$@Sysutils@Exception@$bdtr$qqrv	segment virtual
	align	2
@@_$ECTDF$@Sysutils@Exception@$bdtr$qqrv	label	dword
	dd	0
	dd	-40
	dw	0
	dw	5
	dd	0
	dd	@@_$DCCF$@Sysutils@Exception@$bdtr$qqrv
@_$ECTDF$@Sysutils@Exception@$bdtr$qqrv	ends
_DATA	ends
_TEXT	segment dword public use32 'CODE'
@Sysutils@Exception@$bdtr$qqrv	segment virtual
	align	2
@@Sysutils@Exception@$bdtr$qqrv	proc	near
?live16390@0:
@8:
	push ebp
	mov ebp,esp
	add esp,-40
	push ebx
	call __BeforeDestruction
	mov ebx,edx
	mov dword ptr [ebp-4],eax
	mov eax,offset @@_$ECTDF$@Sysutils@Exception@$bdtr$qqrv
	call @__InitExceptBlockLDTC
	mov dword ptr [ebp-12],2
	test bl,bl
	jl        short @9
	mov word ptr [ebp-24],8
	dec dword ptr [ebp-12]
	mov edx,2
	mov eax,dword ptr [ebp-4]
	add eax,4
	call @@System@AnsiString@$bdtr$qqrv
	dec dword ptr [ebp-12]
	xor edx,edx
	mov eax,dword ptr [ebp-4]
	call @@System@TObject@$bdtr$qqrv
@9:
	mov ecx,dword ptr [ebp-40]
	mov dword ptr fs:[0],ecx
@10:
	test bl,bl
	jle       short @11
	mov eax,dword ptr [ebp-4]
	call __ClassDestroy
@11:
	pop ebx
	mov esp,ebp
	pop ebp
	ret 
@@Sysutils@Exception@$bdtr$qqrv	endp
@Sysutils@Exception@$bdtr$qqrv	ends
_TEXT	ends
_TEXT	segment dword public use32 'CODE'
@$xt$p18Sysutils@Exception	segment virtual
	align	2
@@$xt$p18Sysutils@Exception	label	dword
	dd	4
	dw	144
	dw	12
	dd	@@$xt$18Sysutils@Exception
	db	69
	db	120