_fsdiv.asm

来自「很少见的源码公开的msc51和z80的c编译器。」· 汇编 代码 · 共 963 行 · 第 1/2 页

	mov	a,r5
	rlc	a
	mov	r5,a
	mov	a,r6
	rlc	a
	mov	r6,a
	mov	dptr,#___fsdiv_mant1_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 110
	mov	dptr,#___fsdiv_exp_1_1
	movx	a,@dptr
	add	a,#0xff
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0xff
	mov	r4,a
	mov	dptr,#___fsdiv_exp_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
00106$:
;	_fsdiv.c 114
	mov	dptr,#___fsdiv_mask_1_1
; 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,#0x01
	movx	@dptr,a
;	_fsdiv.c 115
; Peephole 227   replaced inefficient 32 bit clear
	mov     dptr,#___fsdiv_result_1_1
	clr     a
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
	mov     dptr,#___fsdiv_result_1_1
;	_fsdiv.c 116
00109$:
	mov	dptr,#___fsdiv_mask_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	a,r3
	orl	a,r4
	orl	a,r5
	orl	a,r6
	jnz	00123$
	ljmp	00111$
00123$:
;	_fsdiv.c 118
	mov	dptr,#___fsdiv_mant2_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	dptr,#___fsdiv_mant1_1_1
	movx	a,@dptr
	mov	___fsdiv_sloc0_1_0,a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 1),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 2),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 3),a
	clr	c
	mov	a,___fsdiv_sloc0_1_0
	subb	a,r3
	mov	a,(___fsdiv_sloc0_1_0 + 1)
	subb	a,r4
	mov	a,(___fsdiv_sloc0_1_0 + 2)
	subb	a,r5
	mov	a,(___fsdiv_sloc0_1_0 + 3)
	xrl	a,#0x80
	mov	b,r6
	xrl	b,#0x80
	subb	a,b
	jnc	00124$
	ljmp	00108$
00124$:
;	_fsdiv.c 120
	mov	dptr,#___fsdiv_mask_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	___fsdiv_sloc0_1_0,a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 1),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 2),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 3),a
	mov	dptr,#___fsdiv_result_1_1
	mov	a,r3
	orl	a,___fsdiv_sloc0_1_0
	movx	@dptr,a
	mov	a,r4
	orl	a,(___fsdiv_sloc0_1_0 + 1)
	inc	dptr
	movx	@dptr,a
	mov	a,r5
	orl	a,(___fsdiv_sloc0_1_0 + 2)
	inc	dptr
	movx	@dptr,a
	mov	a,r6
	orl	a,(___fsdiv_sloc0_1_0 + 3)
	inc	dptr
	movx	@dptr,a
;	_fsdiv.c 121
	mov	dptr,#___fsdiv_mant2_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	dptr,#___fsdiv_mant1_1_1
	movx	a,@dptr
	mov	___fsdiv_sloc0_1_0,a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 1),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 2),a
	inc	dptr
	movx	a,@dptr
	mov	(___fsdiv_sloc0_1_0 + 3),a
	mov	dptr,#___fsdiv_mant1_1_1
	clr	c
	mov	a,___fsdiv_sloc0_1_0
	subb	a,r3
	movx	@dptr,a
	mov	a,(___fsdiv_sloc0_1_0 + 1)
	subb	a,r4
	inc	dptr
	movx	@dptr,a
	mov	a,(___fsdiv_sloc0_1_0 + 2)
	subb	a,r5
	inc	dptr
	movx	@dptr,a
	mov	a,(___fsdiv_sloc0_1_0 + 3)
	subb	a,r6
	inc	dptr
	movx	@dptr,a
00108$:
;	_fsdiv.c 123
	mov	dptr,#___fsdiv_mant1_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	a,r3
	add	a,acc
	mov	r3,a
	mov	a,r4
	rlc	a
	mov	r4,a
	mov	a,r5
	rlc	a
	mov	r5,a
	mov	a,r6
	rlc	a
	mov	r6,a
	mov	dptr,#___fsdiv_mant1_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 124
	mov	dptr,#___fsdiv_mask_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
; Peephole 105   removed redundant mov
	mov  r6,a
	clr	c
	rrc	a
	mov	r6,a
	mov	a,r5
	rrc	a
	mov	r5,a
	mov	a,r4
	rrc	a
	mov	r4,a
	mov	a,r3
	rrc	a
; Peephole 100   removed redundant mov
	mov  r3,a
	mov  dptr,#___fsdiv_mask_1_1
	movx @dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
	ljmp	00109$
00111$:
;	_fsdiv.c 128
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	dptr,#___fsdiv_result_1_1
	mov	a,#0x01
	add	a,r3
	movx	@dptr,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r4
	inc	dptr
	movx	@dptr,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r5
	inc	dptr
	movx	@dptr,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r6
	inc	dptr
	movx	@dptr,a
;	_fsdiv.c 131
	mov	dptr,#___fsdiv_exp_1_1
	movx	a,@dptr
	add	a,#0x01
	movx	@dptr,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0x00
	movx	@dptr,a
;	_fsdiv.c 132
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
; Peephole 105   removed redundant mov
	mov  r6,a
	mov	c,acc.7
	rrc	a
	mov	r6,a
	mov	a,r5
	rrc	a
	mov	r5,a
	mov	a,r4
	rrc	a
	mov	r4,a
	mov	a,r3
	rrc	a
; Peephole 100   removed redundant mov
	mov  r3,a
	mov  dptr,#___fsdiv_result_1_1
	movx @dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 134
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
	inc	dptr
	movx	a,@dptr
	mov	r6,a
	mov	dptr,#___fsdiv_result_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	mov	a,#0x7F
	anl	a,r5
	inc	dptr
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 137
	mov	dptr,#___fsdiv_exp_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
; Peephole 105   removed redundant mov
	mov  r4,a
	rlc	a
	subb	a,acc
	mov	r5,a
	mov	r6,a
	mov	ar5,r3
	mov	a,r4
	anl	a,#0x01
	mov	c,acc.0
	xch	a,r5
	rrc	a
	xch	a,r5
	rrc	a
	xch	a,r5
	mov	r6,a
; Peephole 3.c   changed mov to clr
	clr  a
	mov  r4,a
	mov  r3,a
	mov  a,r2
	rlc	a
	subb	a,acc
	mov	r7,a
	mov	r0,a
	mov	r1,a
	mov	a,r2
	orl	ar3,a
	mov	a,r7
	orl	ar4,a
	mov	a,r0
	orl	ar5,a
	mov	a,r1
	orl	ar6,a
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r7,a
	inc	dptr
	movx	a,@dptr
	mov	r0,a
	inc	dptr
	movx	a,@dptr
	mov	r1,a
	mov	a,r2
	orl	ar3,a
	mov	a,r7
	orl	ar4,a
	mov	a,r0
	orl	ar5,a
	mov	a,r1
	orl	ar6,a
	mov	dptr,#___fsdiv_fl1_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
	inc	dptr
	mov	a,r5
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 138
	mov	dptr,#___fsdiv_fl1_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
00112$:
	ret
	.area CSEG    (CODE)