expf.asm

sdcc的win版本.是small device c compiler的意思.支持8051和z80.是一个遵循GPL的软件,不过他的库函数是LGPL的,允许商业联结,可以用在自己的软件里

	inc	dptr
	movx	@dptr,a
00114$:
;	expf.c 73
;	genAssign
	mov	dptr,#_expf_n_1_1
	movx	a,@dptr
	mov	_expf_sloc0_1_0,a
	inc	dptr
	movx	a,@dptr
	mov	(_expf_sloc0_1_0 + 1),a
;	genCall
	mov	dpl,_expf_sloc0_1_0
	mov	dph,(_expf_sloc0_1_0 + 1)
	lcall	___sint2fs
	mov	r4,dpl
	mov	r5,dph
	mov	r6,b
	mov	r7,a
;	expf.c 74
;	genAssign
	mov	dptr,#___fsmul_PARM_2
; Peephole 180   changed mov to clr
	clr  a
	movx	@dptr,a
	inc	dptr
	mov	a,#0x80
	movx	@dptr,a
	inc	dptr
	mov	a,#0x31
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3F
	movx	@dptr,a
;	genCall
	mov	dpl,r4
	mov	dph,r5
	mov	b,r6
	mov	a,r7
	push	ar4
	push	ar5
	push	ar6
	push	ar7
	lcall	___fsmul
	mov	_expf_sloc1_1_0,dpl
	mov	(_expf_sloc1_1_0 + 1),dph
	mov	(_expf_sloc1_1_0 + 2),b
	mov	(_expf_sloc1_1_0 + 3),a
	pop	ar7
	pop	ar6
	pop	ar5
	pop	ar4
;	genAssign
	mov	dptr,#_expf_y_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r0,a
	inc	dptr
	movx	a,@dptr
	mov	r1,a
;	genAssign
	mov	dptr,#___fssub_PARM_2
	mov	a,_expf_sloc1_1_0
	movx	@dptr,a
	inc	dptr
	mov	a,(_expf_sloc1_1_0 + 1)
	movx	@dptr,a
	inc	dptr
	mov	a,(_expf_sloc1_1_0 + 2)
	movx	@dptr,a
	inc	dptr
	mov	a,(_expf_sloc1_1_0 + 3)
	movx	@dptr,a
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r0
	mov	a,r1
	push	ar4
	push	ar5
	push	ar6
	push	ar7
	lcall	___fssub
	mov	r2,dpl
	mov	r3,dph
	mov	r0,b
	mov	r1,a
	pop	ar7
	pop	ar6
	pop	ar5
	pop	ar4
;	genAssign
	mov	dptr,#___fsmul_PARM_2
	mov	a,#0x83
	movx	@dptr,a
	inc	dptr
	mov	a,#0x80
	movx	@dptr,a
	inc	dptr
	mov	a,#0x5E
	movx	@dptr,a
	inc	dptr
	mov	a,#0xB9
	movx	@dptr,a
;	genCall
	mov	dpl,r4
	mov	dph,r5
	mov	b,r6
	mov	a,r7
	push	ar2
	push	ar3
	push	ar0
	push	ar1
	lcall	___fsmul
	mov	r4,dpl
	mov	r5,dph
	mov	r6,b
	mov	r7,a
	pop	ar1
	pop	ar0
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fssub_PARM_2
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
	inc	dptr
	mov	a,r7
	movx	@dptr,a
;	expf.c 75
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r0
	mov	a,r1
	lcall	___fssub
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	dptr,#___fsmul_PARM_2
	mov	a,r2
	movx	@dptr,a
	inc	dptr
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
;	expf.c 76
;	genCall
; Peephole 225   removed redundant move to acc
	mov     a,r5
	movx    @dptr,a
	mov     dpl,r2
	mov     dph,r3
	mov     b,r4
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsmul
	mov	_expf_sloc1_1_0,dpl
	mov	(_expf_sloc1_1_0 + 1),dph
	mov	(_expf_sloc1_1_0 + 2),b
	mov	(_expf_sloc1_1_0 + 3),a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fsmul_PARM_2
	mov	a,#0x08
	movx	@dptr,a
	inc	dptr
	mov	a,#0x53
	movx	@dptr,a
	inc	dptr
	mov	a,#0x88
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3B
	movx	@dptr,a
;	genCall
	mov	dpl,_expf_sloc1_1_0
	mov	dph,(_expf_sloc1_1_0 + 1)
	mov	b,(_expf_sloc1_1_0 + 2)
	mov	a,(_expf_sloc1_1_0 + 3)
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsmul
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fsadd_PARM_2
; Peephole 101   removed redundant mov
; Peephole 180   changed mov to clr
	clr  a
	movx @dptr,a
	inc  dptr
	movx @dptr,a
	inc	dptr
	mov	a,#0x80
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3E
	movx	@dptr,a
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsadd
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fsmul_PARM_2
	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
;	expf.c 77
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	lcall	___fsmul
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	dptr,#___fsmul_PARM_2
	mov	a,#0x5B
	movx	@dptr,a
	inc	dptr
	mov	a,#0xBF
	movx	@dptr,a
	inc	dptr
	mov	a,#0x4C
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3D
	movx	@dptr,a
;	genCall
	mov	dpl,_expf_sloc1_1_0
	mov	dph,(_expf_sloc1_1_0 + 1)
	mov	b,(_expf_sloc1_1_0 + 2)
	mov	a,(_expf_sloc1_1_0 + 3)
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsmul
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fsadd_PARM_2
; Peephole 101   removed redundant mov
; Peephole 180   changed mov to clr
; Peephole 180   changed mov to clr
; Peephole 226   removed unnecessary clr
	clr     a
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
	inc     dptr
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3F
	movx	@dptr,a
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsadd
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fssub_PARM_2
	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
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fssub
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	dptr,#___fsdiv_PARM_2
	mov	a,r6
	movx	@dptr,a
	inc	dptr
	mov	a,r7
	movx	@dptr,a
	inc	dptr
	mov	a,r0
	movx	@dptr,a
	inc	dptr
	mov	a,r1
	movx	@dptr,a
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fsdiv
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	dptr,#___fsadd_PARM_2
; Peephole 101   removed redundant mov
; Peephole 180   changed mov to clr
; Peephole 180   changed mov to clr
; Peephole 226   removed unnecessary clr
	clr     a
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
	inc     dptr
	movx	@dptr,a
	inc	dptr
	mov	a,#0x3F
	movx	@dptr,a
;	expf.c 79
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fsadd
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genPlus
	mov	dptr,#_ldexpf_PARM_2
;	genPlusIncr
	mov	a,#0x01
	add	a,_expf_sloc0_1_0
	movx	@dptr,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,(_expf_sloc0_1_0 + 1)
	inc	dptr
	movx	@dptr,a
;	expf.c 80
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	_ldexpf
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	expf.c 81
;	genAssign
	mov	dptr,#_expf_sign_1_1
	movx	a,@dptr
	mov	r6,a
	inc	dptr
	movx	a,@dptr
;	genIfx
; Peephole 135   removed redundant mov
	mov  r7,a
	orl  a,r6
;	genIfxJump
; Peephole 110   removed ljmp by inverse jump logic
	jz  00116$
00134$:
;	expf.c 82
;	genAssign
	mov	dptr,#___fsdiv_PARM_2
	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
;	genCall
; Peephole 181   used 16 bit load of dptr
	mov  dptr,#0x0000
	mov	b,#0x80
	mov	a,#0x3F
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fsdiv
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genRet
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
; Peephole 132   changed ljmp to sjmp
	sjmp 00118$
00116$:
;	expf.c 84
;	genRet
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
00118$:
	ret
	.area CSEG    (CODE)
	.area	XINIT   (CODE)