time.asm

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

	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),#0x00
	mov	(_asctime_sloc6_1_0 + 2),#0x00
	push	ar5
	push	ar6
	push	ar7
	push	ar0
	push	_asctime_sloc0_1_0
	push	(_asctime_sloc0_1_0 + 1)
	push	_asctime_sloc1_1_0
	push	(_asctime_sloc1_1_0 + 1)
	push	_asctime_sloc2_1_0
	push	(_asctime_sloc2_1_0 + 1)
	push	_asctime_sloc4_1_0
	push	(_asctime_sloc4_1_0 + 1)
	push	(_asctime_sloc4_1_0 + 2)
	push	ar2
	push	ar3
	push	ar4
	push	_asctime_sloc5_1_0
	push	(_asctime_sloc5_1_0 + 1)
	push	(_asctime_sloc5_1_0 + 2)
	push	_asctime_sloc6_1_0
	push	(_asctime_sloc6_1_0 + 1)
	push	(_asctime_sloc6_1_0 + 2)
	lcall	_sprintf
	mov	a,sp
	add	a,#0xea
	mov	sp,a
;	time.c 96
	mov	dpl,_asctime_sloc6_1_0
	mov	dph,(_asctime_sloc6_1_0 + 1)
	mov	b,(_asctime_sloc6_1_0 + 2)
00101$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'ctime'
;------------------------------------------------------------
;timep                     Allocated to registers 
;	time.c 99
;	-----------------------------------------
;	 function ctime
;	-----------------------------------------
_ctime:
;	time.c 100
	lcall	_localtime
	lcall	_asctime
00101$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'localtime'
;------------------------------------------------------------
;timep                     Allocated to registers 
;	time.c 116
;	-----------------------------------------
;	 function localtime
;	-----------------------------------------
_localtime:
;	time.c 117
	lcall	_gmtime
00101$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'gmtime'
;------------------------------------------------------------
;timep                     Allocated to registers 
;epoch                     Allocated to registers r2 r3 r4 r5 
;year                      Allocated to registers 
;month                     Allocated to registers 
;monthLength               Allocated to registers r7 
;days                      Allocated to in memory with name '_gmtime_days_1_1'
;sloc0                     Allocated to in memory with name '_gmtime_sloc0_1_0'
;sloc1                     Allocated to in memory with name '_gmtime_sloc1_1_0'
;	time.c 120
;	-----------------------------------------
;	 function gmtime
;	-----------------------------------------
_gmtime:
;	time.c 0
;	time.c 121
	lcall	__gptrget
	mov	r2,a
	inc	dptr
	lcall	__gptrget
	mov	r3,a
	inc	dptr
	lcall	__gptrget
	mov	r4,a
	inc	dptr
	lcall	__gptrget
	mov	r5,a
;	time.c 126
	clr	a
	mov	(__modulong_PARM_2 + 3),a
	mov	(__modulong_PARM_2 + 2),a
	mov	(__modulong_PARM_2 + 1),a
	mov	__modulong_PARM_2,#0x3C
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__modulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	_lastTime,r6
;	time.c 127
	clr	a
	mov	(__divulong_PARM_2 + 3),a
	mov	(__divulong_PARM_2 + 2),a
	mov	(__divulong_PARM_2 + 1),a
	mov	__divulong_PARM_2,#0x3C
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__divulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	ar2,r6
	mov	ar3,r7
	mov	ar4,r0
	mov	ar5,r1
;	time.c 128
	clr	a
	mov	(__modulong_PARM_2 + 3),a
	mov	(__modulong_PARM_2 + 2),a
	mov	(__modulong_PARM_2 + 1),a
	mov	__modulong_PARM_2,#0x3C
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__modulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	(_lastTime + 0x0001),r6
;	time.c 129
	clr	a
	mov	(__divulong_PARM_2 + 3),a
	mov	(__divulong_PARM_2 + 2),a
	mov	(__divulong_PARM_2 + 1),a
	mov	__divulong_PARM_2,#0x3C
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__divulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	ar2,r6
	mov	ar3,r7
	mov	ar4,r0
	mov	ar5,r1
;	time.c 130
	clr	a
	mov	(__modulong_PARM_2 + 3),a
	mov	(__modulong_PARM_2 + 2),a
	mov	(__modulong_PARM_2 + 1),a
	mov	__modulong_PARM_2,#0x18
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__modulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	(_lastTime + 0x0002),r6
;	time.c 131
	clr	a
	mov	(__divulong_PARM_2 + 3),a
	mov	(__divulong_PARM_2 + 2),a
	mov	(__divulong_PARM_2 + 1),a
	mov	__divulong_PARM_2,#0x18
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__divulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	ar2,r6
	mov	ar3,r7
	mov	ar4,r0
	mov	ar5,r1
;	time.c 132
	mov	a,#0x04
	add	a,r2
	mov	r6,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	mov	r7,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r4
	mov	r0,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r5
	mov	r1,a
	clr	a
	mov	(__modulong_PARM_2 + 3),a
	mov	(__modulong_PARM_2 + 2),a
	mov	(__modulong_PARM_2 + 1),a
	mov	__modulong_PARM_2,#0x07
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	__modulong
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	(_lastTime + 0x0007),r6
;	time.c 135
	clr	a
	mov	(_gmtime_days_1_1 + 3),a
	mov	(_gmtime_days_1_1 + 2),a
	mov	(_gmtime_days_1_1 + 1),a
	mov	_gmtime_days_1_1,a
;	time.c 136
	mov	r6,#0xB2
	mov	r7,#0x07
00101$:
	clr	a
	mov	(__moduint_PARM_2 + 1),a
	mov	__moduint_PARM_2,#0x04
	mov	dpl,r6
	mov	dph,r7
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	push	ar6
	push	ar7
	lcall	__moduint
	mov	r0,dpl
	mov	r1,dph
	pop	ar7
	pop	ar6
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	cjne	r0,#0x00,00132$
	cjne	r1,#0x00,00132$
	mov	a,#0x01
	sjmp	00133$
00132$:
	clr	a
00133$:
; Peephole 105   removed redundant mov
	mov  r0,a
; Peephole 110   removed ljmp by inverse jump logic
	jz  00119$
00134$:
	mov	_gmtime_sloc0_1_0,#0x6E
	mov	(_gmtime_sloc0_1_0 + 1),#0x01
; Peephole 132   changed ljmp to sjmp
	sjmp 00120$
00119$:
	mov	_gmtime_sloc0_1_0,#0x6D
	mov	(_gmtime_sloc0_1_0 + 1),#0x01
00120$:
	mov	_gmtime_sloc1_1_0,_gmtime_sloc0_1_0
	mov	(_gmtime_sloc1_1_0 + 1),(_gmtime_sloc0_1_0 + 1)
	mov	a,(_gmtime_sloc0_1_0 + 1)
	rlc	a
	subb	a,acc
	mov	(_gmtime_sloc1_1_0 + 2),a
	mov	(_gmtime_sloc1_1_0 + 3),a
	mov	a,_gmtime_sloc1_1_0
	add	a,_gmtime_days_1_1
	mov	_gmtime_sloc1_1_0,a
	mov	a,(_gmtime_sloc1_1_0 + 1)
	addc	a,(_gmtime_days_1_1 + 1)
	mov	(_gmtime_sloc1_1_0 + 1),a
	mov	a,(_gmtime_sloc1_1_0 + 2)
	addc	a,(_gmtime_days_1_1 + 2)
	mov	(_gmtime_sloc1_1_0 + 2),a
	mov	a,(_gmtime_sloc1_1_0 + 3)
	addc	a,(_gmtime_days_1_1 + 3)
	mov	(_gmtime_sloc1_1_0 + 3),a
	mov	_gmtime_days_1_1,_gmtime_sloc1_1_0
	mov	(_gmtime_days_1_1 + 1),(_gmtime_sloc1_1_0 + 1)
	mov	(_gmtime_days_1_1 + 2),(_gmtime_sloc1_1_0 + 2)
	mov	(_gmtime_days_1_1 + 3),(_gmtime_sloc1_1_0 + 3)
	clr	c
	mov	a,r2
	subb	a,_gmtime_sloc1_1_0
	mov	a,r3
	subb	a,(_gmtime_sloc1_1_0 + 1)
	mov	a,r4
	subb	a,(_gmtime_sloc1_1_0 + 2)
	mov	a,r5
	subb	a,(_gmtime_sloc1_1_0 + 3)
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00103$
00135$:
;	time.c 137
	inc	r6
	cjne	r6,#0x00,00136$
	inc	r7
00136$:
	ljmp	00101$
00103$:
;	time.c 139
	mov	a,r6
	add	a,#0x94
	mov	r6,a
	mov	a,r7
	addc	a,#0xf8
	mov	r7,a
	mov	(_lastTime + 0x0005),r6
	mov	((_lastTime + 0x0005) + 1),r7
;	time.c 141
	mov	a,r0
; Peephole 110   removed ljmp by inverse jump logic
	jz  00121$
00137$:
	mov	r6,#0x6E
	mov	r7,#0x01
; Peephole 132   changed ljmp to sjmp
	sjmp 00122$
00121$:
	mov	r6,#0x6D
	mov	r7,#0x01
00122$:
	mov	_gmtime_sloc1_1_0,r6
	mov	(_gmtime_sloc1_1_0 + 1),r7
	mov	a,r7
	rlc	a
	subb	a,acc
	mov	(_gmtime_sloc1_1_0 + 2),a
	mov	(_gmtime_sloc1_1_0 + 3),a
	clr	c
	mov	a,_gmtime_days_1_1
	subb	a,_gmtime_sloc1_1_0
	mov	_gmtime_days_1_1,a
	mov	a,(_gmtime_days_1_1 + 1)
	subb	a,(_gmtime_sloc1_1_0 + 1)
	mov	(_gmtime_days_1_1 + 1),a
	mov	a,(_gmtime_days_1_1 + 2)
	subb	a,(_gmtime_sloc1_1_0 + 2)
	mov	(_gmtime_days_1_1 + 2),a
	mov	a,(_gmtime_days_1_1 + 3)
	subb	a,(_gmtime_sloc1_1_0 + 3)
	mov	(_gmtime_days_1_1 + 3),a
;	time.c 142
	clr	c
	mov	a,r2
	subb	a,_gmtime_days_1_1
	mov	r2,a
	mov	a,r3
	subb	a,(_gmtime_days_1_1 + 1)
	mov	r3,a
	mov	a,r4
	subb	a,(_gmtime_days_1_1 + 2)
	mov	r4,a
	mov	a,r5
	subb	a,(_gmtime_days_1_1 + 3)
	mov	r5,a
;	time.c 143
	mov	ar6,r2
	mov	ar7,r3
	mov	(_lastTime + 0x0008),r6
	mov	((_lastTime + 0x0008) + 1),r7
;	time.c 148
	mov	r6,#0x00
00113$:
	cjne	r6,#0x0C,00138$
00138$:
	jc	00139$
	ljmp	00116$
00139$:
;	time.c 149
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r6,#0x01,00108$
;00140$:
; Peephole 200   removed redundant sjmp
00141$:
;	time.c 150
	mov	a,r0
; Peephole 110   removed ljmp by inverse jump logic
	jz  00105$
00142$:
;	time.c 151
	mov	r7,#0x1D
; Peephole 132   changed ljmp to sjmp
	sjmp 00109$
00105$:
;	time.c 153
	mov	r7,#0x1C
; Peephole 132   changed ljmp to sjmp
	sjmp 00109$
00108$:
;	time.c 156
	mov	a,r6
; Peephole 180   changed mov to clr
; Peephole 186   optimized movc sequence
	mov  dptr,#_monthDays
	movc a,@a+dptr
	mov	r7,a
00109$:
;	time.c 159
	mov	_gmtime_sloc1_1_0,r7
	mov	(_gmtime_sloc1_1_0 + 1),#0x00
	mov	(_gmtime_sloc1_1_0 + 2),#0x00
	mov	(_gmtime_sloc1_1_0 + 3),#0x00
	clr	c
	mov	a,r2
	subb	a,_gmtime_sloc1_1_0
	mov	a,r3
	subb	a,(_gmtime_sloc1_1_0 + 1)
	mov	a,r4
	subb	a,(_gmtime_sloc1_1_0 + 2)
	mov	a,r5
	subb	a,(_gmtime_sloc1_1_0 + 3)
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00116$
00143$:
;	time.c 160
	clr	c
	mov	a,r2
	subb	a,_gmtime_sloc1_1_0
	mov	r2,a
	mov	a,r3
	subb	a,(_gmtime_sloc1_1_0 + 1)
	mov	r3,a
	mov	a,r4
	subb	a,(_gmtime_sloc1_1_0 + 2)
	mov	r4,a
	mov	a,r5
	subb	a,(_gmtime_sloc1_1_0 + 3)
	mov	r5,a
;	time.c 148
	inc	r6
	ljmp	00113$
00116$:
;	time.c 165
	mov	(_lastTime + 0x0004),r6
;	time.c 166
	inc	r2
	cjne	r2,#0x00,00144$
	inc	r3
	cjne	r3,#0x00,00144$
	inc	r4
	cjne	r4,#0x00,00144$
	inc	r5
00144$:
	mov	(_lastTime + 0x0003),r2
;	time.c 168
	mov	(_lastTime + 0x000a),#0x00
;	time.c 170
	mov	r2,#_lastTime
	mov	r3,#0x00
	mov	r4,#0x00
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
00117$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'mktime'
;------------------------------------------------------------
;timeptr                   Allocated to in memory with name '_mktime_timeptr_1_1'
;year                      Allocated to in memory with name '_mktime_year_1_1'
;month                     Allocated to in memory with name '_mktime_month_1_1'
;i                         Allocated to registers 
;seconds                   Allocated to in memory with name '_mktime_seconds_1_1'
;sloc0                     Allocated to in memory with name '_mktime_sloc0_1_0'
;	time.c 174
;	-----------------------------------------
;	 function mktime
;	-----------------------------------------
_mktime:
;	time.c 0
	mov	_mktime_timeptr_1_1,dpl
	mov	(_mktime_timeptr_1_1 + 1),dph
	mov	(_mktime_timeptr_1_1 + 2),b
;	time.c 175
	mov	a,#0x05
	add	a,_mktime_timeptr_1_1
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,(_mktime_timeptr_1_1 + 1)
	mov	dph,a
	mov	b,(_mktime_timeptr_1_1 + 2)
	lcall	__gptrget
	mov	r5,a
	inc	dptr
	lcall	__gptrget
	mov	r6,a
	mov	a,#0x6C
	add	a,r5
	mov	_mktime_year_1_1,a
	mov	a,#0x07
	addc	a,r6
	mov	(_mktime_year_1_1 + 1),a
	mov	a,#0x04
	add	a,_mktime_timeptr_1_1
	mov	dpl,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,(_mktime_timeptr_1_1 + 1)
	mov	dph,a
	mov	b,(_mktime_timeptr_1_1 + 2)
	lcall	__gptrget
	mov	r7,a
	mov	_mktime_month_1_1,r7
	mov	(_mktime_month_1_1 + 1),#0x00
;	time.c 178
	mov	dpl,_mktime_timeptr_1_1
	mov	dph,(_mktime_timeptr_1_1 + 1)
	mov	b,(_mktime_timeptr_1_1 + 2)
	lcall	_CheckTime
;	time.c 181
	mov	a,_mktime_year_1_1