vprintf.asm

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

;--------------------------------------------------------
; File Created by SDCC : FreeWare ANSI-C Compiler
; Version 2.3.1-pj3 Sun Jan 20 13:10:22 2002

;--------------------------------------------------------
	.module vprintf
	
;--------------------------------------------------------
; Public variables in this module
;--------------------------------------------------------
	.globl _vprintf_PARM_2
	.globl _vsprintf_PARM_3
	.globl _vsprintf_PARM_2
	.globl _vsprintf
	.globl _vprintf
;--------------------------------------------------------
; special function registers
;--------------------------------------------------------
;--------------------------------------------------------
; special function bits 
;--------------------------------------------------------
;--------------------------------------------------------
; internal ram data
;--------------------------------------------------------
	.area DSEG    (DATA)
_value:
	.ds 5
_vsprintf_sloc0_1_0::
	.ds 2
;--------------------------------------------------------
; overlayable items in internal ram 
;--------------------------------------------------------
	.area OSEG    (OVR,DATA)
;--------------------------------------------------------
; indirectly addressable internal ram data
;--------------------------------------------------------
	.area ISEG    (DATA)
;--------------------------------------------------------
; bit data
;--------------------------------------------------------
	.area BSEG    (BIT)
_output_to_string:
	.ds 1
_lower_case:
	.ds 1
_lsd:
	.ds 1
_vsprintf_left_justify_1_1:
	.ds 1
_vsprintf_zero_padding_1_1:
	.ds 1
_vsprintf_prefix_sign_1_1:
	.ds 1
_vsprintf_prefix_space_1_1:
	.ds 1
_vsprintf_signed_argument_1_1:
	.ds 1
_vsprintf_char_argument_1_1:
	.ds 1
_vsprintf_long_argument_1_1:
	.ds 1
_vsprintf_float_argument_1_1:
	.ds 1
;--------------------------------------------------------
; external ram data
;--------------------------------------------------------
	.area XSEG    (XDATA)
_output_ptr:
	.ds 3
_radix:
	.ds 1
_charsOutputted:
	.ds 2
_vsprintf_PARM_2::
	.ds 3
_vsprintf_PARM_3::
	.ds 1
_vsprintf_buf_1_1::
	.ds 3
_vsprintf_width_1_1::
	.ds 1
_vsprintf_decimals_1_1::
	.ds 1
_vsprintf_length_1_1::
	.ds 1
_vsprintf_c_1_1::
	.ds 1
_vprintf_PARM_2::
	.ds 1
_vprintf_format_1_1::
	.ds 3
;--------------------------------------------------------
; external initialized ram data
;--------------------------------------------------------
	.area XISEG   (XDATA)
;--------------------------------------------------------
; global & static initialisations
;--------------------------------------------------------
	.area GSINIT  (CODE)
	.area GSFINAL (CODE)
	.area GSINIT  (CODE)
;--------------------------------------------------------
; Home
;--------------------------------------------------------
	.area HOME    (CODE)
	.area CSEG    (CODE)
;--------------------------------------------------------
; code
;--------------------------------------------------------
	.area CSEG    (CODE)
;------------------------------------------------------------
;Allocation info for local variables in function 'output_char'
;------------------------------------------------------------
;c                         Allocated to registers r2 
;	vprintf.c 86
;	-----------------------------------------
;	 function output_char
;	-----------------------------------------
_output_char:
	ar2 = 0x02
	ar3 = 0x03
	ar4 = 0x04
	ar5 = 0x05
	ar6 = 0x06
	ar7 = 0x07
	ar0 = 0x00
	ar1 = 0x01
	push	_bp
	mov	_bp,sp
;	vprintf.c 96
;	genReceive
	mov	r2,dpl
;	vprintf.c 88
;	genIfx
;	genIfxJump
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _output_to_string,00102$
00107$:
;	vprintf.c 90
;	genAssign
	mov	dptr,#_output_ptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
	inc	dptr
	movx	a,@dptr
	mov	r5,a
;	genPointerSet
;	genGenPointerSet
	mov	dpl,r3
	mov	dph,r4
	mov	b,r5
	mov	a,r2
	lcall	__gptrput
;	genPlus
	mov	dptr,#_output_ptr
;	genPlusIncr
	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
	inc	dptr
	mov	a,r5
	movx	@dptr,a
; Peephole 132   changed ljmp to sjmp
	sjmp 00103$
00102$:
;	vprintf.c 94
;	genCall
	mov	dpl,r2
	lcall	_putchar
00103$:
;	vprintf.c 96
;	genAssign
	mov	dptr,#_charsOutputted
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
;	genPlus
	mov	dptr,#_charsOutputted
;	genPlusIncr
	mov	a,#0x01
	add	a,r2
	movx	@dptr,a
; Peephole 180   changed mov to clr
	clr  a
	addc	a,r3
	inc	dptr
	movx	@dptr,a
00104$:
	mov	sp,_bp
	pop	_bp
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'output_digit'
;------------------------------------------------------------
;n                         Allocated to registers r2 
;	vprintf.c 101
;	-----------------------------------------
;	 function output_digit
;	-----------------------------------------
_output_digit:
	push	_bp
	mov	_bp,sp
;	vprintf.c 104
;	genReceive
	mov	r2,dpl
;	vprintf.c 103
;	genCmpGt
;	genCmp
	clr	c
	mov	a,#0x09
	subb	a,r2
	clr	a
	rlc	a
;	genNot
; Peephole 105   removed redundant mov
	mov  r3,a
	cjne	a,#0x01,00109$
00109$:
	clr	a
	rlc	a
;	genIfx
; Peephole 105   removed redundant mov
	mov  r3,a
;	genIfxJump
; Peephole 110   removed ljmp by inverse jump logic
	jz  00103$
00110$:
;	genPlus
	mov	a,#0x30
	add	a,r2
	mov	r3,a
; Peephole 132   changed ljmp to sjmp
	sjmp 00104$
00103$:
;	vprintf.c 104
;	genIfx
;	genIfxJump
; Peephole 111   removed ljmp by inverse jump logic
	jnb  _lower_case,00105$
00111$:
;	genPlus
	mov	a,#0x57
	add	a,r2
	mov	r4,a
; Peephole 132   changed ljmp to sjmp
	sjmp 00106$
00105$:
;	genPlus
	mov	a,#0x37
	add	a,r2
	mov	r4,a
00106$:
;	genAssign
	mov	ar3,r4
00104$:
;	genCall
	mov	dpl,r3
	lcall	_output_char
00101$:
	mov	sp,_bp
	pop	_bp
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'output_2digits'
;------------------------------------------------------------
;b                         Allocated to registers r2 
;	vprintf.c 109
;	-----------------------------------------
;	 function output_2digits
;	-----------------------------------------
_output_2digits:
	push	_bp
	mov	_bp,sp
;	vprintf.c 112
;	genReceive
	mov	r2,dpl
;	vprintf.c 111
;	genRightShift
;	genRightShiftLiteral
;	genrshOne
	mov	a,r2
	swap	a
	anl	a,#0x0f
	mov	r3,a
;	genCall
	mov	dpl,r3
	push	ar2
	lcall	_output_digit
	pop	ar2
;	vprintf.c 112
;	genAnd
	anl	ar2,#0x0F
;	genCall
	mov	dpl,r2
	lcall	_output_digit
00101$:
	mov	sp,_bp
	pop	_bp
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'calculate_digit'
;------------------------------------------------------------
;i                         Allocated to in memory with name '_calculate_digit_i_1_1'
;	vprintf.c 117
;	-----------------------------------------
;	 function calculate_digit
;	-----------------------------------------
_calculate_digit:
;	vprintf.c 121
;	genAssign
	mov	r2,#0x20
00103$:
;	genCmpEq
	cjne	r2,#0x00,00112$
; Peephole 132   changed ljmp to sjmp
	sjmp 00107$
00112$:
;	vprintf.c 140
;	genInline
	  clr c
	  mov a,_value+0
	  rlc a
	  mov _value+0,a
	  mov a,_value+1
	  rlc a
	  mov _value+1,a
	  mov a,_value+2
	  rlc a
	  mov _value+2,a
	  mov a,_value+3
	  rlc a
	  mov _value+3,a
	  mov a,_value+4
	  rlc a
	  mov _value+4,a
;	vprintf.c 142
;	genAssign
;	genAssign
	mov	dptr,#_radix
	movx	a,@dptr
	mov	r3,a
;	genCmpGt
;	genCmp
	clr	c
	mov	a,0x0004 + _value
	subb	a,r3
;	genIfxJump
; Peephole 132   changed ljmp to sjmp
; Peephole 160   removed sjmp by inverse jump logic
	jc   00105$
00113$:
;	vprintf.c 144
;	genAssign
;	genMinus
	clr	c
	mov	a,0x0004 + _value
	subb	a,r3
;	genPointerSet
;	genNearPointerSet
;	genDataPointerSet
	mov	(_value + 0x0004),a
;	vprintf.c 145
;	genPointerGet
;	genNearPointerGet
;	genDataPointerGet
	mov	r3,_value
;	genPlus
;	genPlusIncr
	mov	a,#0x01
	add	a,r3
;	genPointerSet
;	genNearPointerSet
;	genDataPointerSet
	mov	_value,a
00105$:
;	vprintf.c 121
;	genMinus
;	genMinusDec
	dec	r2
; Peephole 132   changed ljmp to sjmp
	sjmp 00103$
00107$:
	ret
;------------------------------------------------------------
;Allocation info for local variables in function 'vsprintf'
;------------------------------------------------------------
;sloc0                     Allocated to in memory with name '_vsprintf_sloc0_1_0'
;format                    Allocated to in memory with name '_vsprintf_PARM_2'
;ap                        Allocated to in memory with name '_vsprintf_PARM_3'
;buf                       Allocated to in memory with name '_vsprintf_buf_1_1'
;width                     Allocated to in memory with name '_vsprintf_width_1_1'
;decimals                  Allocated to in memory with name '_vsprintf_decimals_1_1'
;length                    Allocated to in memory with name '_vsprintf_length_1_1'
;c                         Allocated to in memory with name '_vsprintf_c_1_1'
;	vprintf.c 282
;	-----------------------------------------
;	 function vsprintf
;	-----------------------------------------
_vsprintf:
;	vprintf.c 0
;	genReceive
	push	b
	push	dph
	push	dpl
	mov	dptr,#_vsprintf_buf_1_1
	pop	acc
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
	pop	acc
	inc	dptr
	movx	@dptr,a
;	vprintf.c 299
;	genAssign
; Peephole 229   replaced inefficient 16 bit clear
	mov     dptr,#_charsOutputted
	clr     a
	movx    @dptr,a
	inc     dptr
	movx    @dptr,a
;	vprintf.c 301
;	genAssign
; Peephole 231   removed redundant mov to dptr
	mov     dptr,#_vsprintf_buf_1_1
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
;	genAssign
	mov	dptr,#_output_ptr
	mov	a,r2
	movx	@dptr,a
	inc	dptr
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
;	vprintf.c 302
;	genIfx
	mov	a,r2
	orl	a,r3
	orl	a,r4
;	genIfxJump
; Peephole 109   removed ljmp by inverse jump logic
	jnz  00102$
00287$:
;	vprintf.c 304
;	genAssign
	clr	_output_to_string
; Peephole 132   changed ljmp to sjmp
	sjmp 00225$
00102$:
;	vprintf.c 308
;	genAssign
	setb	_output_to_string
;	vprintf.c 317
00225$:
00209$:
;	genAssign
	mov	dptr,#_vsprintf_PARM_2
	movx	a,@dptr
	mov	r2,a
	inc	dptr
	movx	a,@dptr
	mov	r3,a
	inc	dptr
	movx	a,@dptr
	mov	r4,a
;	genPointerGet
;	genGenPointerGet
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r5,a
;	genPlus
;	genPlusIncr
	inc	r2
	cjne	r2,#0x00,00288$
	inc	r3
00288$:
;	genAssign
	mov	dptr,#_vsprintf_PARM_2
	mov	a,r2
	movx	@dptr,a
	inc	dptr
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
;	genIfx
	mov	a,r5
;	genIfxJump
	jnz	00289$
	ljmp	00211$
00289$:
;	vprintf.c 319
;	genCmpEq
	cjne	r5,#0x25,00290$
	sjmp	00291$
00290$:
	ljmp	00207$
00291$:
;	vprintf.c 321
;	genAssign
	clr	_vsprintf_left_justify_1_1
;	vprintf.c 322
;	genAssign
	clr	_vsprintf_zero_padding_1_1
;	vprintf.c 323
;	genAssign
	clr	_vsprintf_prefix_sign_1_1
;	vprintf.c 324
;	genAssign
	clr	_vsprintf_prefix_space_1_1
;	vprintf.c 325
;	genAssign
	clr	_vsprintf_signed_argument_1_1
;	vprintf.c 326
;	genAssign
	mov	dptr,#_radix
; Peephole 180   changed mov to clr
	clr  a
	movx	@dptr,a
;	vprintf.c 327
;	genAssign
	clr	_vsprintf_char_argument_1_1
;	vprintf.c 328
;	genAssign
	clr	_vsprintf_long_argument_1_1
;	vprintf.c 329
;	genAssign
	clr	_vsprintf_float_argument_1_1
;	vprintf.c 330
;	genAssign
	mov	dptr,#_vsprintf_width_1_1
; Peephole 180   changed mov to clr
	clr  a
	movx	@dptr,a
;	vprintf.c 331
;	genAssign
	mov	dptr,#_vsprintf_decimals_1_1
	mov	a,#0xFF
	movx	@dptr,a
;	vprintf.c 333
;	genAssign
00104$:
;	vprintf.c 335
;	genPointerGet
;	genGenPointerGet
	mov	dpl,r2
	mov	dph,r3
	mov	b,r4
	lcall	__gptrget
	mov	r6,a
;	genPlus
;	genPlusIncr
	inc	r2
	cjne	r2,#0x00,00292$
	inc	r3
00292$:
;	genAssign
	mov	dptr,#_vsprintf_PARM_2
	mov	a,r2
	movx	@dptr,a
	inc	dptr
	mov	a,r3
	movx	@dptr,a
	inc	dptr
	mov	a,r4
	movx	@dptr,a
;	genAssign
	mov	dptr,#_vsprintf_c_1_1
	mov	a,r6
	movx	@dptr,a
;	vprintf.c 337
;	genCmpEq
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r6,#0x25,00106$
;00293$:
; Peephole 200   removed redundant sjmp
00294$:
;	vprintf.c 338
;	genCall
	mov	dpl,r6
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	push	ar6
	lcall	_output_char
	pop	ar6
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	vprintf.c 339
	ljmp	00209$
00106$:
;	vprintf.c 342
;	genCall
	mov	dpl,r6
	push	ar2
	push	ar3
	push	ar4
	push	ar5
	push	ar6
	lcall	_isdigit
	mov	a,dpl
	pop	ar6
	pop	ar5
	pop	ar4
	pop	ar3
	pop	ar2
;	genIfx
;	genIfxJump
	jnz	00295$
	ljmp	00113$
00295$:
;	vprintf.c 343
;	genAssign
	mov	dptr,#_vsprintf_decimals_1_1
	movx	a,@dptr
	mov	r7,a
;	genCmpEq
; Peephole 132   changed ljmp to sjmp
; Peephole 199   optimized misc jump sequence
	cjne r7,#0xFF,00110$
;00296$:
; Peephole 200   removed redundant sjmp
00297$:
;	vprintf.c 344
;	genIpush
	push	ar5
;	genAssign
	mov	dptr,#_vsprintf_width_1_1
	movx	a,@dptr
	mov	r0,a
;	genMult
;	genMultOneByte
	mov	b,#0x0A
	mov	a,r0
	mul	ab
	mov	_vsprintf_sloc0_1_0,a
	mov	(_vsprintf_sloc0_1_0 + 1),b
;	genMinus
	mov	a,r6
	add	a,#0xd0
;	genCast
; Peephole 105   removed redundant mov
	mov  r5,a
	rlc	a
	subb	a,acc
	mov	r0,a
;	genPlus
	mov	a,r5
	add	a,_vsprintf_sloc0_1_0
	mov	r5,a
	mov	a,r0
	addc	a,(_vsprintf_sloc0_1_0 + 1)
	mov	r0,a
;	genCast
;	genAssign
	mov	dptr,#_vsprintf_width_1_1
	mov	a,r5
	movx	@dptr,a
;	vprintf.c 345
;	genCmpEq
	cjne	r5,#0x00,00298$
	mov	a,#0x01
	sjmp	00299$
00298$:
	clr	a
00299$:
;	genIpop
	pop	ar5
;	genIfx
;	genIfxJump
	jnz	00300$
	ljmp	00104$