_fsdiv.asm

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

;	genAssign: resultIsFar = TRUE
	mov	dptr,#___fsdiv_exp_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
;	genLabel 
00106$:
;	_fsdiv.c 114
;	genAssign 
;	genAssign: resultIsFar = TRUE
	mov	dptr,#___fsdiv_mask_1_1
; Peephole 101   removed redundant mov
; Peephole 180   changed mov to clr
	clr  a
	movx @dptr,a
	inc  dptr
	movx @dptr,a
	inc	dptr
; Peephole 180   changed mov to clr
	clr  a
	movx	@dptr,a
	inc	dptr
	mov	a,#0x01
	movx	@dptr,a
;	_fsdiv.c 115
;	genAssign 
;	genAssign: resultIsFar = TRUE
	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
;	_fsdiv.c 116
;	genLabel 
00109$:
;	genIfx 
	mov	dptr,#___fsdiv_mask_1_1
	push	b
	movx	a,@dptr
	mov	b, a
	inc	dptr
	movx	a,@dptr
	orl	b,a
	inc	dptr
	movx	a,@dptr
	orl	b,a
	inc	dptr
	movx	a,@dptr
	orl	b,a
	mov	a,b
	pop	b
;	genIfxJump 
	jnz	00129$
	ljmp	00111$
00129$:
;	_fsdiv.c 118
;	genCmpLt 
	mov	dptr,#___fsdiv_mant2_1_1
	mov	dps, #0x01
	mov	dptr, #___fsdiv_mant1_1_1
	dec	dps
;	genCmp
	clr	c
;	genCmp #1: 3/1/0
	mov	dps, #0x01
	movx	a,@dptr
	mov	dps, #0x00
;	genCmp #2
;	genCmp #4
;	genCmp #4.1
	xch	a, b
	movx	a,@dptr
	xch	a, b
	subb	a,b
;	genCmp #1: 2/1/1
	mov	dps, #0x01
	inc	dptr
	movx	a,@dptr
	mov	dps, #0x00
;	genCmp #2
;	genCmp #4
;	genCmp #4.1
	xch	a, b
	inc	dptr
	movx	a,@dptr
	xch	a, b
	subb	a,b
;	genCmp #1: 1/1/2
	mov	dps, #0x01
	inc	dptr
	movx	a,@dptr
	mov	dps, #0x00
;	genCmp #2
;	genCmp #4
;	genCmp #4.1
	xch	a, b
	inc	dptr
	movx	a,@dptr
	xch	a, b
	subb	a,b
;	genCmp #1: 0/1/3
	mov	dps, #0x01
	inc	dptr
	movx	a,@dptr
	mov	dps, #0x00
;	genCmp #2
;	genCmp #3
	xrl	a,#0x80
;	genCmp #3.2
	push	acc
	inc	dptr
	movx	a,@dptr
	mov	b,a
	xrl	b,#0x80
	pop	acc
	subb	a,b
;	genIfxJump 
	jnc	00130$
	ljmp	00108$
00130$:
;	_fsdiv.c 120
;	genAssign 
	mov	dptr,#___fsdiv_result_1_1
;	genAssign: resultIsFar = TRUE
;	genFarFarAssign
	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
;	genOr 
	mov	dptr,#___fsdiv_mask_1_1
	movx	a,@dptr
	orl	ar3,a
	inc	dptr
	movx	a,@dptr
	orl	ar4,a
	inc	dptr
	movx	a,@dptr
	orl	ar5,a
	inc	dptr
	movx	a,@dptr
	orl	ar6,a
;	genAssign 
;	genAssign: resultIsFar = TRUE
	mov	dptr,#___fsdiv_result_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 121
;	genMinus 
	mov	dptr,#___fsdiv_mant1_1_1
	mov	dps, #0x01
	mov	dptr, #___fsdiv_mant2_1_1
	dec	dps
	clr	c
	movx	a,@dptr
	xch	a, ap
	inc	dps
	movx	a,@dptr
	xch	a, ap
	subb	a,ap
	push	acc
	dec	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	inc	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	subb	a,ap
	push	acc
	dec	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	inc	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	subb	a,ap
	push	acc
	dec	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	inc	dps
	inc	dptr
	movx	a,@dptr
	xch	a, ap
	subb	a,ap
	push	acc
	mov	dps, #0x00
	pop	acc
	mov	r6,a
	pop	acc
	mov	r5,a
	pop	acc
	mov	r4,a
	pop	acc
;	genAssign 
;	genAssign: resultIsFar = TRUE
; Peephole 100   removed redundant mov
	mov  r3,a
	mov  dptr,#___fsdiv_mant1_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
;	genLabel 
00108$:
;	_fsdiv.c 123
;	genLeftShift 
;	genLeftShiftLiteral (1), size 4
;	genLeftShiftLiteral wimping out
	mov	b,#0x02
	mov	dptr,#___fsdiv_mant1_1_1
	movx	a,@dptr
	mov	r3,acc
	inc	dptr
	movx	a,@dptr
	mov	r4,acc
	inc	dptr
	movx	a,@dptr
	mov	r5,acc
	inc	dptr
	movx	a,@dptr
	mov	r6,acc
	sjmp	00132$
00131$:
	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
00132$:
	djnz	b,00131$
;	genAssign 
;	genAssign: resultIsFar = TRUE
	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
;	genRightShift 
;	genRightShiftLiteral (1), size 4
;	genRightShiftLiteral wimping out
	mov	b,#0x02
	mov	dptr,#___fsdiv_mask_1_1
	movx	a,@dptr
	mov	r3,acc
	inc	dptr
	movx	a,@dptr
	mov	r4,acc
	inc	dptr
	movx	a,@dptr
	mov	r5,acc
	inc	dptr
	movx	a,@dptr
	mov	r6,acc
	sjmp	00134$
00133$:
	clr	c
	mov	a,r6
	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
	mov	r3,a
00134$:
	djnz	b,00133$
;	genAssign 
;	genAssign: resultIsFar = TRUE
	mov	dptr,#___fsdiv_mask_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
;	genGoto 
	ljmp	00109$
;	genLabel 
00111$:
;	_fsdiv.c 128
;	genPlus 
	mov	dptr,#___fsdiv_result_1_1
;	Swapped plus args.
	movx	a,@dptr
	add	a,#0x01
	movx	@dptr,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0x00
	movx	@dptr,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0x00
	movx	@dptr,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0x00
	movx	@dptr,a
;	_fsdiv.c 131
;	genPlus 
	mov	dptr,#___fsdiv_exp_1_1
;	Swapped plus args.
	movx	a,@dptr
	add	a,#0x01
	movx	@dptr,a
	inc	dptr
	movx	a,@dptr
	addc	a,#0x00
	movx	@dptr,a
;	_fsdiv.c 132
;	genRightShift 
;	genSignedRightShift 
;	genRightShiftLiteral (1), size 4
;	genRightShiftLiteral wimping out
	mov	b,#0x02
	mov	dptr,#___fsdiv_result_1_1
	movx	a,@dptr
	mov	r3,acc
	inc	dptr
	movx	a,@dptr
	mov	r4,acc
	inc	dptr
	movx	a,@dptr
	mov	r5,acc
	inc	dptr
	movx	a,@dptr
	mov	r6,acc
	movx	a,@dptr
; Peephole 206   removed redundant mov a,a
	rlc	a
	mov	ov,c
	sjmp	00136$
00135$:
	mov	c,ov
	mov	a,r6
	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
	mov	r3,a
00136$:
	djnz	b,00135$
;	genAssign 
;	genAssign: resultIsFar = TRUE
	mov	dptr,#___fsdiv_result_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 134
;	genAssign 
	mov	dptr,#___fsdiv_result_1_1
;	genAssign: resultIsFar = TRUE
;	genFarFarAssign
	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
;	genAnd 
	mov	dptr,#___fsdiv_result_1_1
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
;	better literal AND.
	mov	a,r5
	anl	a, #0x7F
	inc	dptr
	movx	@dptr,a
	inc	dptr
	mov	a,r6
	movx	@dptr,a
;	_fsdiv.c 137
;	genCast 
	mov	dptr,#___fsdiv_exp_1_1
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	movx	a,@dptr
	rlc	a
	subb	a,acc
	mov	r5,a
	mov	r6,a
;	genLeftShift 
;	genLeftShiftLiteral (23), size 4
;	genLeftShiftLiteral wimping out
	mov	b,#0x18
	sjmp	00138$
00137$:
	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
00138$:
	djnz	b,00137$
;	genCast 
	mov	a,r2
	rlc	a
	subb	a,acc
	mov	r7,a
	mov	r0,a
	mov	r1,a
;	genOr 
	mov	a,r2
	orl	ar3,a
	mov	a,r7
	orl	ar4,a
	mov	a,r0
	orl	ar5,a
	mov	a,r1
	orl	ar6,a
;	genAssign 
	mov	dptr,#___fsdiv_result_1_1
;	genAssign: resultIsFar = TRUE
;	genFarFarAssign
	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
;	genOr 
	mov	a,r2
	orl	ar3,a
	mov	a,r7
	orl	ar4,a
	mov	a,r0
	orl	ar5,a
	mov	a,r1
	orl	ar6,a
;	genPointerSet 
	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
;	genPointerGet 
;	genFarPointerGet
	mov	dptr,#___fsdiv_fl1_1_1
	movx	a,@dptr
	inc	dptr
	mov	r2,a
	movx	a,@dptr
	inc	dptr
	mov	r3,a
	movx	a,@dptr
	inc	dptr
	mov	r4,a
	movx	a,@dptr
	mov	r5,a
;	genRet 
	mov	dpl,r2
	mov	dph,r3
	mov	dpx,r4
	mov	b,r5
;	genLabel 
00112$:
;	genEndFunction 
	ret
	.area CSEG    (CODE)