time.asm

很少见的源码公开的msc51和z80的c编译器。

;--------------------------------------------------------
; File Created by SDCC : FreeWare ANSI-C Compiler
; Version 2.3.0 Thu Sep 20 10:57:32 2001

;--------------------------------------------------------
	.module time
	
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
	.globl ___day
	.globl ___month
	.globl _RtcRead
	.globl _time
	.globl _asctime
	.globl _ctime
	.globl _localtime
	.globl _gmtime
	.globl _mktime
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
;--------------------------------------------------------
; special function bits 
;--------------------------------------------------------
;--------------------------------------------------------
; internal ram data
;--------------------------------------------------------
	.area DSEG    (DATA)
_asctime_sloc0_1_0::
	.ds 2
_asctime_sloc1_1_0::
	.ds 2
_asctime_sloc2_1_0::
	.ds 2
_asctime_sloc3_1_0::
	.ds 2
_asctime_sloc4_1_0::
	.ds 3
_asctime_sloc5_1_0::
	.ds 3
_asctime_sloc6_1_0::
	.ds 3
_gmtime_sloc0_1_0::
	.ds 2
_gmtime_sloc1_1_0::
	.ds 4
_gmtime_sloc2_1_0::
	.ds 4
_mktime_sloc0_1_0::
	.ds 2
_mktime_sloc1_1_0::
	.ds 1
_mktime_sloc2_1_0::
	.ds 2
_mktime_sloc3_1_0::
	.ds 4
_mktime_sloc4_1_0::
	.ds 4
;--------------------------------------------------------
; overlayable items in internal ram 
;--------------------------------------------------------
	.area OSEG    (OVR,DATA)
;--------------------------------------------------------
; indirectly addressable internal ram data
;--------------------------------------------------------
	.area ISEG    (DATA)
;--------------------------------------------------------
; bit data
;--------------------------------------------------------
	.area BSEG    (BIT)
;--------------------------------------------------------
; external ram data
;--------------------------------------------------------
	.area XSEG    (XDATA)
_time_timeptr_1_1::
	.ds 3
_time_now_1_1::
	.ds 12
_time_t_1_1::
	.ds 4
_ascTimeBuffer:
	.ds 32
_CheckTime_timeptr_1_1:
	.ds 3
_asctime_timeptr_1_1::
	.ds 3
_ctime_timep_1_1::
	.ds 3
_lastTime:
	.ds 12
_localtime_timep_1_1::
	.ds 3
_gmtime_timep_1_1::
	.ds 3
_gmtime_epoch_1_1::
	.ds 4
_gmtime_monthLength_1_1::
	.ds 1
_gmtime_days_1_1::
	.ds 4
_mktime_timeptr_1_1::
	.ds 3
_mktime_seconds_1_1::
	.ds 4
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area GSINIT  (CODE)
	.area GSFINAL (CODE)
	.area GSINIT  (CODE)
;--------------------------------------------------------
; Home
;--------------------------------------------------------
	.area HOME	 (CODE)
	.area CSEG    (CODE)
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area CSEG    (CODE)
;------------------------------------------------------------
;Allocation info for local variables in function 'RtcRead'
;------------------------------------------------------------
;timeptr                   Allocated to in memory with name '_RtcRead_timeptr_1_1'
;	time.c 40
;	-----------------------------------------
;	 function RtcRead
;	-----------------------------------------
_RtcRead:
	ar2 = 0x02
	ar3 = 0x03
	ar4 = 0x04
	ar5 = 0x05
	ar6 = 0x06
	ar7 = 0x07
	ar0 = 0x00
	ar1 = 0x01
;	time.c 43
	mov	dpl,#0x00
00101$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'time'
;------------------------------------------------------------
;timeptr                   Allocated to in memory with name '_time_timeptr_1_1'
;now                       Allocated to in memory with name '_time_now_1_1'
;t                         Allocated to in memory with name '_time_t_1_1'
;	time.c 48
;	-----------------------------------------
;	 function time
;	-----------------------------------------
_time:
;	time.c 58
	push	b
	push	dph
	push	dpl
	mov	dptr,#_time_timeptr_1_1
	pop	acc
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
;	time.c 50
	mov	dptr,#_time_t_1_1
; Peephole 101   removed redundant mov
	mov  a,#0xFF
	movx @dptr,a
	inc  dptr
	movx @dptr,a
	inc	dptr
; Peephole 101   removed redundant mov
	mov  a,#0xFF
	movx @dptr,a
	inc  dptr
	movx @dptr,a
;	time.c 52
	mov	r2,#_time_now_1_1
	mov	r3,#(_time_now_1_1 >> 8)
	mov	r4,#0x01
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	push	ar2
	push	ar3
	push	ar4
	lcall	_RtcRead
	mov	r5,dpl
	pop	ar4
	pop	ar3
	pop	ar2
	mov	a,r5
; Peephole 110   removed ljmp by inverse jump logic
	jz  00102$
00109$:
;	time.c 53
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	_mktime
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
	mov	dptr,#_time_t_1_1
	mov	a,r2
	movx	@dptr,a
	inc	dptr
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
00102$:
;	time.c 55
	mov	dptr,#_time_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,r2
	orl	a,r3
	orl	a,r4
; Peephole 110   removed ljmp by inverse jump logic
	jz  00104$
00110$:
;	time.c 56
	mov	dptr,#_time_t_1_1
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	inc	dptr
	movx	a,@dptr
	mov	r7,a
	inc	dptr
	movx	a,@dptr
	mov	r0,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	__gptrput
	inc	dptr
	mov	a,r6
	lcall	__gptrput
	inc	dptr
	mov	a,r7
	lcall	__gptrput
	inc	dptr
	mov	a,r0
	lcall	__gptrput
00104$:
;	time.c 58
	mov	dptr,#_time_t_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
; Peephole 191   removed redundant mov
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
00105$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'CheckTime'
;------------------------------------------------------------
;timeptr                   Allocated to in memory with name '_CheckTime_timeptr_1_1'
;	time.c 71
;	-----------------------------------------
;	 function CheckTime
;	-----------------------------------------
_CheckTime:
;	time.c 0
	push	b
	push	dph
	push	dpl
	mov	dptr,#_CheckTime_timeptr_1_1
	pop	acc
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
;	time.c 74
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x00,00148$
00148$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00104$
00149$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00105$
00104$:
;	time.c 75
	clr	c
	mov	a,#0x3B
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00105$
00150$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x3B
	lcall	__gptrput
00105$:
;	time.c 76
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	r2
	cjne	r2,#0x00,00151$
	inc	r3
00151$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x00,00152$
00152$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00109$
00153$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00110$
00109$:
;	time.c 77
	clr	c
	mov	a,#0x3B
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00110$
00154$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x3B
	lcall	__gptrput
00110$:
;	time.c 78
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,#0x02
	add	a,r2
	mov	r2,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r3,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x00,00155$
00155$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00114$
00156$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00115$
00114$:
;	time.c 79
	clr	c
	mov	a,#0x17
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00115$
00157$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x17
	lcall	__gptrput
00115$:
;	time.c 80
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,#0x07
	add	a,r2
	mov	r2,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r3,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x00,00158$
00158$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00119$
00159$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00120$
00119$:
;	time.c 81
	clr	c
	mov	a,#0x06
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00120$
00160$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x06
	lcall	__gptrput
00120$:
;	time.c 82
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,#0x03
	add	a,r2
	mov	r2,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r3,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x01,00161$
00161$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00124$
00162$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x01
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00125$
00124$:
;	time.c 83
	clr	c
	mov	a,#0x1F
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00125$
00163$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x1F
	lcall	__gptrput
00125$:
;	time.c 84
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,#0x04
	add	a,r2
	mov	r2,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r3,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	cjne	r5,#0x00,00164$
00164$:
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00129$
00165$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
; Peephole 132   changed ljmp to sjmp
	sjmp 00130$
00129$:
;	time.c 85
	clr	c
	mov	a,#0x0B
	subb	a,r5
; Peephole 108   removed ljmp by inverse jump logic
	jnc  00130$
00166$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,#0x0B
	lcall	__gptrput
00130$:
;	time.c 86
	mov	dptr,#_CheckTime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	a,#0x05
	add	a,r2
	mov	r2,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r3,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	inc	dptr
	lcall	__gptrget
; Peephole 105   removed redundant mov
	mov  r6,a
; Peephole 111   removed ljmp by inverse jump logic
	jnb  acc.7,00133$
00167$:
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
	inc	dptr
; Peephole 180   changed mov to clr
	clr  a
	lcall	__gptrput
00133$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'asctime'
;------------------------------------------------------------
;sloc0                     Allocated to in memory with name '_asctime_sloc0_1_0'
;sloc1                     Allocated to in memory with name '_asctime_sloc1_1_0'
;sloc2                     Allocated to in memory with name '_asctime_sloc2_1_0'
;sloc3                     Allocated to in memory with name '_asctime_sloc3_1_0'
;sloc4                     Allocated to in memory with name '_asctime_sloc4_1_0'
;sloc5                     Allocated to in memory with name '_asctime_sloc5_1_0'
;sloc6                     Allocated to in memory with name '_asctime_sloc6_1_0'
;timeptr                   Allocated to in memory with name '_asctime_timeptr_1_1'
;	time.c 90
;	-----------------------------------------
;	 function asctime
;	-----------------------------------------
_asctime:
;	time.c 0
	push	b
	push	dph
	push	dpl
	mov	dptr,#_asctime_timeptr_1_1
	pop	acc
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
;	time.c 91
	mov	dptr,#_asctime_timeptr_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	push	ar2
	push	ar3
	push	ar4
	lcall	_CheckTime
	pop	ar4
	pop	ar3
	pop	ar2
;	time.c 95
	mov	a,#0x05
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
	inc	dptr
	lcall	__gptrget
	mov	r6,a
	mov	a,#0x6C
	add	a,r5
	mov	r5,a
	mov	a,#0x07
	addc	a,r6
	mov	r6,a
;	time.c 94
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r7,a
	mov	r0,#0x00
	mov	a,#0x01
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r1,a
	mov	_asctime_sloc0_1_0,r1
	mov	(_asctime_sloc0_1_0 + 1),#0x00
	mov	a,#0x02
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r1,a
	mov	_asctime_sloc1_1_0,r1
	mov	(_asctime_sloc1_1_0 + 1),#0x00
;	time.c 93
	mov	a,#0x03
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r1,a
	mov	_asctime_sloc2_1_0,r1
	mov	(_asctime_sloc2_1_0 + 1),#0x00
	mov	a,#0x04
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r1,a
	mov	b,#0x02
	mov	a,r1
	mul	ab
	mov	_asctime_sloc3_1_0,a
	mov	(_asctime_sloc3_1_0 + 1),b
	mov	a,_asctime_sloc3_1_0
	add	a,#___month
	mov	dpl,a
	mov	a,(_asctime_sloc3_1_0 + 1)
	addc	a,#(___month >> 8)
	mov	dph,a
	clr	a
	movc	a,@a+dptr
	mov	_asctime_sloc3_1_0,a
	inc	dptr
	clr	a
	movc	a,@a+dptr
	mov	(_asctime_sloc3_1_0 + 1),a
	mov	_asctime_sloc4_1_0,_asctime_sloc3_1_0
	mov	(_asctime_sloc4_1_0 + 1),(_asctime_sloc3_1_0 + 1)
	mov	(_asctime_sloc4_1_0 + 2),#0x02
	mov	a,#0x07
	add	a,r2
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	dph,a
	mov	b,r4
	lcall	__gptrget
	mov	r2,a
	mov	b,#0x02
	mov	a,r2
	mul	ab
	mov	r2,a
	mov	r3,b
	mov	a,r2
	add	a,#___day
	mov	dpl,a
	mov	a,r3
	addc	a,#(___day >> 8)
	mov	dph,a
	clr	a
	movc	a,@a+dptr
	mov	r2,a
	inc	dptr
	clr	a
	movc	a,@a+dptr
	mov	r3,a
	mov	r4,#0x02
;	time.c 92
	mov	_asctime_sloc5_1_0,#__str_0
	mov	(_asctime_sloc5_1_0 + 1),#(__str_0 >> 8)
	mov	(_asctime_sloc5_1_0 + 2),#0x02
	mov	_asctime_sloc6_1_0,#_ascTimeBuffer
	mov	(_asctime_sloc6_1_0 + 1),#(_ascTimeBuffer >> 8)
	mov	(_asctime_sloc6_1_0 + 2),#0x01
	push	ar5
	push	ar6