time.asm

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

	add	a,#0x4e
	mov	r1,a
	mov	a,(_mktime_year_1_1 + 1)
	addc	a,#0xf8
	mov	r7,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,#0xff
	mov	r0,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,#0xff
	mov	r2,a
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r1
	mov	dph,r7
	mov	b,r0
	mov	a,r2
	lcall	__mulslong
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r7,a
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r7
	lcall	__mulslong
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r7,a
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x18
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r7
	lcall	__mulslong
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r7,a
	mov	__mulslong_PARM_2,#0x6D
	mov	(__mulslong_PARM_2 + 1),#0x01
	mov	(__mulslong_PARM_2 + 2),#0x00
	mov	(__mulslong_PARM_2 + 3),#0x00
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r7
	lcall	__mulslong
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r7,a
;	time.c 184
	mov	_mktime_seconds_1_1,r2
	mov	(_mktime_seconds_1_1 + 1),r3
	mov	(_mktime_seconds_1_1 + 2),r4
	mov	(_mktime_seconds_1_1 + 3),r7
	mov	r5,#0xB2
	mov	r6,#0x07
00107$:
	clr	c
	mov	a,r5
	subb	a,_mktime_year_1_1
	mov	a,r6
	xrl	a,#0x80
	mov	b,(_mktime_year_1_1 + 1)
	xrl	b,#0x80
	subb	a,b
	clr	a
	rlc	a
	mov	r0,a
	mov	r2,_mktime_seconds_1_1
	mov	r3,(_mktime_seconds_1_1 + 1)
	mov	r4,(_mktime_seconds_1_1 + 2)
	mov	r7,(_mktime_seconds_1_1 + 3)
	mov	a,r0
; Peephole 110   removed ljmp by inverse jump logic
	jz  00123$
00124$:
;	time.c 185
	clr	a
	mov	(__modsint_PARM_2 + 1),a
	mov	__modsint_PARM_2,#0x04
	mov	dpl,r5
	mov	dph,r6
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	push	ar6
	push	ar7
	lcall	__modsint
	mov	r0,dpl
	mov	r1,dph
	pop	ar7
	pop	ar6
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
; Peephole 132   changed ljmp to sjmp
; Peephole 198   optimized misc jump sequence
	cjne r0,#0x00,00109$
	cjne r1,#0x00,00109$
;00125$:
; Peephole 200   removed redundant sjmp
00126$:
;	time.c 186
	mov	a,#0x80
	add	a,_mktime_seconds_1_1
	mov	_mktime_seconds_1_1,a
	mov	a,#0x51
	addc	a,(_mktime_seconds_1_1 + 1)
	mov	(_mktime_seconds_1_1 + 1),a
	mov	a,#0x01
	addc	a,(_mktime_seconds_1_1 + 2)
	mov	(_mktime_seconds_1_1 + 2),a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,(_mktime_seconds_1_1 + 3)
	mov	(_mktime_seconds_1_1 + 3),a
00109$:
;	time.c 184
	inc	r5
	cjne	r5,#0x00,00127$
	inc	r6
00127$:
	ljmp	00107$
;	time.c 191
00123$:
	clr	a
	mov	(__modsint_PARM_2 + 1),a
	mov	__modsint_PARM_2,#0x04
	mov	dpl,_mktime_year_1_1
	mov	dph,(_mktime_year_1_1 + 1)
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__modsint
	mov	r5,dpl
	mov	r6,dph
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	cjne	r5,#0x00,00128$
	cjne	r6,#0x00,00128$
	mov	a,#0x01
	sjmp	00129$
00128$:
	clr	a
00129$:
	mov	r5,a
	mov	r6,#0x00
	mov	r0,#0x00
00111$:
	clr	c
	mov	a,r6
	subb	a,_mktime_month_1_1
	mov	a,r0
	xrl	a,#0x80
	mov	b,(_mktime_month_1_1 + 1)
	xrl	b,#0x80
	subb	a,b
	jc	00130$
	ljmp	00114$
00130$:
;	time.c 192
; Peephole 132   changed ljmp to sjmp
; Peephole 198   optimized misc jump sequence
	cjne r6,#0x01,00104$
	cjne r0,#0x00,00104$
;00131$:
; Peephole 200   removed redundant sjmp
00132$:
	mov	a,r5
; Peephole 110   removed ljmp by inverse jump logic
	jz  00104$
00133$:
;	time.c 193
	mov	a,#0x80
	add	a,r2
	mov	r2,a
	mov	a,#0x3B
	addc	a,r3
	mov	r3,a
	mov	a,#0x26
	addc	a,r4
	mov	r4,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r7
	mov	r7,a
	ljmp	00113$
00104$:
;	time.c 195
	mov	a,r6
	add	a,#_monthDays
	mov	dpl,a
	mov	a,r0
	addc	a,#(_monthDays >> 8)
	mov	dph,a
	clr	a
	movc	a,@a+dptr
; Peephole 166   removed redundant mov
	mov  r1,a
	mov  _mktime_sloc0_1_0,r1 
	rlc	a
	subb	a,acc
	mov	(_mktime_sloc0_1_0 + 1),a
	mov	(_mktime_sloc0_1_0 + 2),a
	mov	(_mktime_sloc0_1_0 + 3),a
	mov	__mulslong_PARM_2,#0x80
	mov	(__mulslong_PARM_2 + 1),#0x51
	mov	(__mulslong_PARM_2 + 2),#0x01
	mov	(__mulslong_PARM_2 + 3),#0x00
	mov	dpl,_mktime_sloc0_1_0
	mov	dph,(_mktime_sloc0_1_0 + 1)
	mov	b,(_mktime_sloc0_1_0 + 2)
	mov	a,(_mktime_sloc0_1_0 + 3)
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	push	ar6
	push	ar7
	push	ar0
	lcall	__mulslong
	mov	_mktime_sloc0_1_0,dpl
	mov	(_mktime_sloc0_1_0 + 1),dph
	mov	(_mktime_sloc0_1_0 + 2),b
	mov	(_mktime_sloc0_1_0 + 3),a
	pop	ar0
	pop	ar7
	pop	ar6
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
	mov	a,_mktime_sloc0_1_0
	add	a,r2
	mov	r2,a
	mov	a,(_mktime_sloc0_1_0 + 1)
	addc	a,r3
	mov	r3,a
	mov	a,(_mktime_sloc0_1_0 + 2)
	addc	a,r4
	mov	r4,a
	mov	a,(_mktime_sloc0_1_0 + 3)
	addc	a,r7
	mov	r7,a
00113$:
;	time.c 191
	inc	r6
	cjne	r6,#0x00,00134$
	inc	r0
00134$:
	ljmp	00111$
00114$:
;	time.c 199
	mov	a,#0x03
	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
	dec	r5
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
	clr  a
	mov  r6,a
	mov  r0,a
	mov  r1,a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x18
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	mov	a,r5
	add	a,r2
	mov	r2,a
	mov	a,r6
	addc	a,r3
	mov	r3,a
	mov	a,r0
	addc	a,r4
	mov	r4,a
	mov	a,r1
	addc	a,r7
	mov	r7,a
;	time.c 200
	mov	a,#0x02
	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
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
	clr  a
	mov  r6,a
	mov  r0,a
	mov  r1,a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	clr	a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	mov	a,r5
	add	a,r2
	mov	r2,a
	mov	a,r6
	addc	a,r3
	mov	r3,a
	mov	a,r0
	addc	a,r4
	mov	r4,a
	mov	a,r1
	addc	a,r7
	mov	r7,a
;	time.c 201
	mov	a,#0x01
	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
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
; Peephole 3.b   changed mov to clr
	clr  a
	mov  r6,a
	mov  r0,a
	mov  r1,a
	mov	(__mulslong_PARM_2 + 3),a
	mov	(__mulslong_PARM_2 + 2),a
	mov	(__mulslong_PARM_2 + 1),a
	mov	__mulslong_PARM_2,#0x3C
	mov	dpl,r5
	mov	dph,r6
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar7
	lcall	__mulslong
	mov	r5,dpl
	mov	r6,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar4
	pop	ar3
	pop	ar2
	mov	a,r5
	add	a,r2
	mov	r2,a
	mov	a,r6
	addc	a,r3
	mov	r3,a
	mov	a,r0
	addc	a,r4
	mov	r4,a
	mov	a,r1
	addc	a,r7
	mov	r7,a
;	time.c 202
	mov	dpl,_mktime_timeptr_1_1
	mov	dph,(_mktime_timeptr_1_1 + 1)
	mov	b,(_mktime_timeptr_1_1 + 2)
	lcall	__gptrget
	mov	r5,a
; Peephole 3.c   changed mov to clr
; Peephole 3.b   changed mov to clr
	clr  a
	mov  r6,a
	mov  r0,a
	mov  r1,a
	mov  a,r5
	add	a,r2
	mov	r5,a
	mov	a,r6
	addc	a,r3
	mov	r6,a
	mov	a,r0
	addc	a,r4
	mov	r0,a
	mov	a,r1
	addc	a,r7
;	time.c 203
; Peephole 191   removed redundant mov
	mov  r1,a
	mov  dpl,r5
	mov  dph,r6
	mov  b,r0
00115$:
	ret
	.area CSEG    (CODE)
_monthDays:
	.db #0x1F
	.db #0x1C
	.db #0x1F
	.db #0x1E
	.db #0x1F
	.db #0x1E
	.db #0x1F
	.db #0x1F
	.db #0x1E
	.db #0x1F
	.db #0x1E
	.db #0x1F
___month:
	.byte _str_1,(_str_1 >> 8)
	.byte _str_2,(_str_2 >> 8)
	.byte _str_3,(_str_3 >> 8)
	.byte _str_4,(_str_4 >> 8)
	.byte _str_5,(_str_5 >> 8)
	.byte _str_6,(_str_6 >> 8)
	.byte _str_7,(_str_7 >> 8)
	.byte _str_8,(_str_8 >> 8)
	.byte _str_9,(_str_9 >> 8)
	.byte _str_10,(_str_10 >> 8)
	.byte _str_11,(_str_11 >> 8)
	.byte _str_12,(_str_12 >> 8)
___day:
	.byte _str_13,(_str_13 >> 8)
	.byte _str_14,(_str_14 >> 8)
	.byte _str_15,(_str_15 >> 8)
	.byte _str_16,(_str_16 >> 8)
	.byte _str_17,(_str_17 >> 8)
	.byte _str_18,(_str_18 >> 8)
	.byte _str_19,(_str_19 >> 8)
__str_0:
	.ascii "%s %s %2d %02d:%02d:%02d %04d"
	.db 0x0A
	.db 0x00
_str_1:
	.ascii "Jan"
	.db 0x00
_str_2:
	.ascii "Feb"
	.db 0x00
_str_3:
	.ascii "Mar"
	.db 0x00
_str_4:
	.ascii "Apr"
	.db 0x00
_str_5:
	.ascii "May"
	.db 0x00
_str_6:
	.ascii "Jun"
	.db 0x00
_str_7:
	.ascii "Jul"
	.db 0x00
_str_8:
	.ascii "Aug"
	.db 0x00
_str_9:
	.ascii "Sep"
	.db 0x00
_str_10:
	.ascii "Oct"
	.db 0x00
_str_11:
	.ascii "Nov"
	.db 0x00
_str_12:
	.ascii "Dec"
	.db 0x00
_str_13:
	.ascii "Sun"
	.db 0x00
_str_14:
	.ascii "Mon"
	.db 0x00
_str_15:
	.ascii "Tue"
	.db 0x00
_str_16:
	.ascii "Wed"
	.db 0x00
_str_17:
	.ascii "Thu"
	.db 0x00
_str_18:
	.ascii "Fri"
	.db 0x00
_str_19:
	.ascii "Sat"
	.db 0x00