tancotf.asm

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

	mov	b,r4
	mov	a,r5
	lcall	___fsadd
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	___fsmul_PARM_2,#0x22
	mov	(___fsmul_PARM_2 + 1),#0xAA
	mov	(___fsmul_PARM_2 + 2),#0xFD
	mov	(___fsmul_PARM_2 + 3),#0x39
;	genCall
	mov	dpl,_tancotf_xn_1_1
	mov	dph,(_tancotf_xn_1_1 + 1)
	mov	b,(_tancotf_xn_1_1 + 2)
	mov	a,(_tancotf_xn_1_1 + 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	___fssub_PARM_2,r6
	mov	(___fssub_PARM_2 + 1),r7
	mov	(___fssub_PARM_2 + 2),r0
	mov	(___fssub_PARM_2 + 3),r1
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fssub
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
;	genAssign
;	tancotf.c 61
;	genCall
; Peephole 191   removed redundant mov
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	_fabsf
	mov	r6,dpl
	mov	r7,dph
	mov	r0,b
	mov	r1,a
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genAssign
	mov	___fslt_PARM_2,#0x00
	mov	(___fslt_PARM_2 + 1),#0x00
	mov	(___fslt_PARM_2 + 2),#0x80
	mov	(___fslt_PARM_2 + 3),#0x39
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	lcall	___fslt
	mov	a,dpl
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genIfx
;	genIfxJump
; Peephole 110   removed ljmp by inverse jump logic
	jz  00104$
00127$:
;	tancotf.c 63
;	genAssign
	mov	_tancotf_xnum_1_1,r2
	mov	(_tancotf_xnum_1_1 + 1),r3
	mov	(_tancotf_xnum_1_1 + 2),r4
	mov	(_tancotf_xnum_1_1 + 3),r5
;	tancotf.c 64
;	genAssign
	mov	_tancotf_xden_1_1,#0x00
	mov	(_tancotf_xden_1_1 + 1),#0x00
	mov	(_tancotf_xden_1_1 + 2),#0x80
	mov	(_tancotf_xden_1_1 + 3),#0x3F
	ljmp	00105$
00104$:
;	tancotf.c 68
;	genAssign
	mov	___fsmul_PARM_2,r2
	mov	(___fsmul_PARM_2 + 1),r3
	mov	(___fsmul_PARM_2 + 2),r4
	mov	(___fsmul_PARM_2 + 3),r5
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	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	_tancotf_g_1_1,r6
	mov	(_tancotf_g_1_1 + 1),r7
	mov	(_tancotf_g_1_1 + 2),r0
	mov	(_tancotf_g_1_1 + 3),r1
;	tancotf.c 69
;	genAssign
	mov	___fsmul_PARM_2,#0xB8
	mov	(___fsmul_PARM_2 + 1),#0x33
	mov	(___fsmul_PARM_2 + 2),#0xC4
	mov	(___fsmul_PARM_2 + 3),#0xBD
;	genCall
	mov	dpl,_tancotf_g_1_1
	mov	dph,(_tancotf_g_1_1 + 1)
	mov	b,(_tancotf_g_1_1 + 2)
	mov	a,(_tancotf_g_1_1 + 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	___fsmul_PARM_2,r2
	mov	(___fsmul_PARM_2 + 1),r3
	mov	(___fsmul_PARM_2 + 2),r4
	mov	(___fsmul_PARM_2 + 3),r5
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	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	___fsadd_PARM_2,r2
	mov	(___fsadd_PARM_2 + 1),r3
	mov	(___fsadd_PARM_2 + 2),r4
	mov	(___fsadd_PARM_2 + 3),r5
;	genCall
	mov	dpl,r6
	mov	dph,r7
	mov	b,r0
	mov	a,r1
	lcall	___fsadd
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	_tancotf_xnum_1_1,r2
	mov	(_tancotf_xnum_1_1 + 1),r3
	mov	(_tancotf_xnum_1_1 + 2),r4
	mov	(_tancotf_xnum_1_1 + 3),r5
;	tancotf.c 70
;	genAssign
	mov	___fsmul_PARM_2,#0x75
	mov	(___fsmul_PARM_2 + 1),#0x33
	mov	(___fsmul_PARM_2 + 2),#0x1F
	mov	(___fsmul_PARM_2 + 3),#0x3C
;	genCall
	mov	dpl,_tancotf_g_1_1
	mov	dph,(_tancotf_g_1_1 + 1)
	mov	b,(_tancotf_g_1_1 + 2)
	mov	a,(_tancotf_g_1_1 + 3)
	lcall	___fsmul
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	___fsadd_PARM_2,#0xAF
	mov	(___fsadd_PARM_2 + 1),#0xB7
	mov	(___fsadd_PARM_2 + 2),#0xDB
	mov	(___fsadd_PARM_2 + 3),#0xBE
;	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
;	genAssign
	mov	___fsmul_PARM_2,_tancotf_g_1_1
	mov	(___fsmul_PARM_2 + 1),(_tancotf_g_1_1 + 1)
	mov	(___fsmul_PARM_2 + 2),(_tancotf_g_1_1 + 2)
	mov	(___fsmul_PARM_2 + 3),(_tancotf_g_1_1 + 3)
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fsmul
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
	mov	r5,a
;	genAssign
	mov	___fsadd_PARM_2,#0x00
	mov	(___fsadd_PARM_2 + 1),#0x00
	mov	(___fsadd_PARM_2 + 2),#0x80
	mov	(___fsadd_PARM_2 + 3),#0x3F
;	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
;	genAssign
	mov	_tancotf_xden_1_1,r2
	mov	(_tancotf_xden_1_1 + 1),r3
	mov	(_tancotf_xden_1_1 + 2),r4
	mov	(_tancotf_xden_1_1 + 3),r5
00105$:
;	tancotf.c 73
;	genAnd
	mov	a,_tancotf_n_1_1
;	genIfxJump
	jb	acc.0,00128$
	ljmp	00113$
00128$:
;	tancotf.c 76
;	genIfx
	mov	a,_tancotf_PARM_2
	orl	a,(_tancotf_PARM_2 + 1)
;	genIfxJump
; Peephole 110   removed ljmp by inverse jump logic
	jz  00107$
00129$:
;	genUminus
;	genUminusFloat
	mov	a,(_tancotf_xnum_1_1 + 3)
	cpl	acc.7
	mov	r5,a
	mov	r2,_tancotf_xnum_1_1
	mov	r3,(_tancotf_xnum_1_1 + 1)
	mov	r4,(_tancotf_xnum_1_1 + 2)
;	genAssign
	mov	___fsdiv_PARM_2,_tancotf_xden_1_1
	mov	(___fsdiv_PARM_2 + 1),(_tancotf_xden_1_1 + 1)
	mov	(___fsdiv_PARM_2 + 2),(_tancotf_xden_1_1 + 2)
	mov	(___fsdiv_PARM_2 + 3),(_tancotf_xden_1_1 + 3)
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fsdiv
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
;	genRet
; Peephole 191   removed redundant mov
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
	ljmp	00115$
00107$:
;	tancotf.c 77
;	genUminus
;	genUminusFloat
	mov	a,(_tancotf_xden_1_1 + 3)
	cpl	acc.7
	mov	r5,a
	mov	r2,_tancotf_xden_1_1
	mov	r3,(_tancotf_xden_1_1 + 1)
	mov	r4,(_tancotf_xden_1_1 + 2)
;	genAssign
	mov	___fsdiv_PARM_2,_tancotf_xnum_1_1
	mov	(___fsdiv_PARM_2 + 1),(_tancotf_xnum_1_1 + 1)
	mov	(___fsdiv_PARM_2 + 2),(_tancotf_xnum_1_1 + 2)
	mov	(___fsdiv_PARM_2 + 3),(_tancotf_xnum_1_1 + 3)
;	genCall
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	mov	a,r5
	lcall	___fsdiv
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
;	genRet
; Peephole 191   removed redundant mov
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
; Peephole 132   changed ljmp to sjmp
	sjmp 00115$
00113$:
;	tancotf.c 81
;	genIfx
	mov	a,_tancotf_PARM_2
	orl	a,(_tancotf_PARM_2 + 1)
;	genIfxJump
; Peephole 110   removed ljmp by inverse jump logic
	jz  00110$
00130$:
;	genAssign
	mov	___fsdiv_PARM_2,_tancotf_xnum_1_1
	mov	(___fsdiv_PARM_2 + 1),(_tancotf_xnum_1_1 + 1)
	mov	(___fsdiv_PARM_2 + 2),(_tancotf_xnum_1_1 + 2)
	mov	(___fsdiv_PARM_2 + 3),(_tancotf_xnum_1_1 + 3)
;	genCall
	mov	dpl,_tancotf_xden_1_1
	mov	dph,(_tancotf_xden_1_1 + 1)
	mov	b,(_tancotf_xden_1_1 + 2)
	mov	a,(_tancotf_xden_1_1 + 3)
	lcall	___fsdiv
	mov	r2,dpl
	mov	r3,dph
	mov	r4,b
;	genRet
; Peephole 191   removed redundant mov
	mov  r5,a
	mov  dpl,r2
	mov  dph,r3
	mov  b,r4
; Peephole 132   changed ljmp to sjmp
	sjmp 00115$
00110$:
;	tancotf.c 82
;	genAssign
	mov	___fsdiv_PARM_2,_tancotf_xden_1_1
	mov	(___fsdiv_PARM_2 + 1),(_tancotf_xden_1_1 + 1)
	mov	(___fsdiv_PARM_2 + 2),(_tancotf_xden_1_1 + 2)
	mov	(___fsdiv_PARM_2 + 3),(_tancotf_xden_1_1 + 3)
;	genCall
	mov	dpl,_tancotf_xnum_1_1
	mov	dph,(_tancotf_xnum_1_1 + 1)
	mov	b,(_tancotf_xnum_1_1 + 2)
	mov	a,(_tancotf_xnum_1_1 + 3)
	lcall	___fsdiv
;	genRet
; Peephole 156   removed misc moves via dph, dpl, b, a before return
00115$:
	ret
	.area CSEG    (CODE)
	.area	XINIT   (CODE)