Fixed two bugs, made the sources somewhat better readable.
git-svn-id: svn://svn.cc65.org/cc65/trunk@4256 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
@@ -19,10 +19,10 @@
|
|||||||
;
|
;
|
||||||
|
|
||||||
outdesc: ; Static outdesc structure
|
outdesc: ; Static outdesc structure
|
||||||
.word 0 ; ccount
|
ccount: .word 0 ; ccount
|
||||||
.word out ; Output function pointer
|
func: .word out ; Output function pointer
|
||||||
.word 0 ; ptr
|
bufptr: .word 0 ; ptr
|
||||||
.word 0 ; Buffer size
|
bufsize:.word 0 ; Buffer size
|
||||||
|
|
||||||
.code
|
.code
|
||||||
|
|
||||||
@@ -40,12 +40,12 @@ out:
|
|||||||
; Calculate the space left in the buffer. If no space is left, don't copy
|
; Calculate the space left in the buffer. If no space is left, don't copy
|
||||||
; any characters
|
; any characters
|
||||||
|
|
||||||
lda outdesc+6 ; Low byte of buffer size
|
lda bufsize ; Low byte of buffer size
|
||||||
sec
|
sec
|
||||||
sbc outdesc+0 ; Low byte of bytes already written
|
sbc ccount+0 ; Low byte of bytes already written
|
||||||
sta ptr1
|
sta ptr1
|
||||||
lda outdesc+7
|
lda bufsize+1
|
||||||
sbc outdesc+1
|
sbc ccount+1
|
||||||
sta ptr1+1
|
sta ptr1+1
|
||||||
bcs @L0 ; Space left
|
bcs @L0 ; Space left
|
||||||
lda #0
|
lda #0
|
||||||
@@ -55,14 +55,14 @@ out:
|
|||||||
; Replace the pointer to d by a pointer to the write position in the buffer
|
; Replace the pointer to d by a pointer to the write position in the buffer
|
||||||
; for the call to memcpy that follows.
|
; for the call to memcpy that follows.
|
||||||
|
|
||||||
@L0: lda outdesc+0
|
@L0: lda bufptr+0
|
||||||
clc
|
clc
|
||||||
adc outdesc+4
|
adc ccount+0
|
||||||
ldy #4
|
ldy #4
|
||||||
sta (sp),y
|
sta (sp),y
|
||||||
|
|
||||||
lda outdesc+1
|
lda bufptr+1
|
||||||
adc outdesc+5
|
adc ccount+1
|
||||||
iny
|
iny
|
||||||
sta (sp),y
|
sta (sp),y
|
||||||
|
|
||||||
@@ -74,19 +74,19 @@ out:
|
|||||||
|
|
||||||
pha
|
pha
|
||||||
clc
|
clc
|
||||||
adc outdesc+0
|
adc ccount+0
|
||||||
sta outdesc+0
|
sta ccount+0
|
||||||
txa
|
txa
|
||||||
adc outdesc+1
|
adc ccount+1
|
||||||
sta outdesc+1
|
sta ccount+1
|
||||||
pla
|
pla
|
||||||
|
|
||||||
; if (Count > Left) Count = Left;
|
; if (Count > Left) Count = Left;
|
||||||
|
|
||||||
cmp ptr1
|
|
||||||
bne @L1
|
|
||||||
cpx ptr1+1
|
cpx ptr1+1
|
||||||
@L1: bcs @L2
|
bne @L1
|
||||||
|
cmp ptr1
|
||||||
|
@L1: bcc @L2
|
||||||
lda ptr1
|
lda ptr1
|
||||||
ldx ptr1+1
|
ldx ptr1+1
|
||||||
|
|
||||||
@@ -107,8 +107,8 @@ _vsnprintf:
|
|||||||
; Setup the outdesc structure
|
; Setup the outdesc structure
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
sta outdesc
|
sta ccount+0
|
||||||
sta outdesc+1 ; Clear ccount
|
sta ccount+1 ; Clear ccount
|
||||||
|
|
||||||
; Get the size parameter and replace it by a pointer to outdesc. This is to
|
; Get the size parameter and replace it by a pointer to outdesc. This is to
|
||||||
; build a stack frame for the call to _printf.
|
; build a stack frame for the call to _printf.
|
||||||
@@ -128,22 +128,22 @@ _vsnprintf:
|
|||||||
lda #>outdesc
|
lda #>outdesc
|
||||||
sta (sp),y
|
sta (sp),y
|
||||||
|
|
||||||
; Write size-1 to the outdesc structure
|
; Write size-1 to outdesc.uns
|
||||||
|
|
||||||
ldx ptr1
|
ldx ptr1
|
||||||
ldy ptr1+1
|
ldy ptr1+1
|
||||||
dex
|
dex
|
||||||
bne L1
|
bne L1
|
||||||
dey
|
dey
|
||||||
L1: stx outdesc+6
|
L1: stx bufsize+0
|
||||||
sty outdesc+7
|
sty bufsize+1
|
||||||
|
|
||||||
; Copy buf to the outdesc structure
|
; Copy buf to the outdesc.ptr
|
||||||
|
|
||||||
ldy #5
|
ldy #5
|
||||||
jsr ldaxysp
|
jsr ldaxysp
|
||||||
sta outdesc+4
|
sta bufptr+0
|
||||||
stx outdesc+5
|
stx bufptr+1
|
||||||
|
|
||||||
; Restore low byte of ap and call _printf
|
; Restore low byte of ap and call _printf
|
||||||
|
|
||||||
@@ -152,19 +152,19 @@ L1: stx outdesc+6
|
|||||||
|
|
||||||
; Terminate the string
|
; Terminate the string
|
||||||
|
|
||||||
lda outdesc+0
|
lda ccount+0
|
||||||
ldx outdesc+1
|
ldx ccount+1
|
||||||
cpx outdesc+7
|
cpx bufsize+1
|
||||||
bne L2
|
bne L2
|
||||||
cmp outdesc+6
|
cmp bufsize+0
|
||||||
L2: bcc L3
|
L2: bcc L3
|
||||||
lda outdesc+6
|
lda bufsize+0
|
||||||
ldx outdesc+7
|
ldx bufsize+1
|
||||||
clc
|
clc
|
||||||
L3: adc outdesc+4
|
L3: adc bufptr+0
|
||||||
sta ptr1
|
sta ptr1
|
||||||
txa
|
txa
|
||||||
adc outdesc+5
|
adc bufptr+1
|
||||||
sta ptr1+1
|
sta ptr1+1
|
||||||
|
|
||||||
lda #0
|
lda #0
|
||||||
@@ -173,8 +173,8 @@ L3: adc outdesc+4
|
|||||||
|
|
||||||
; Return the number of bytes written and drop buf
|
; Return the number of bytes written and drop buf
|
||||||
|
|
||||||
lda outdesc ; ccount
|
lda ccount+0
|
||||||
ldx outdesc+1
|
ldx ccount+1
|
||||||
jmp incsp2
|
jmp incsp2
|
||||||
|
|
||||||
; Bail out if size is zero
|
; Bail out if size is zero
|
||||||
|
|||||||
@@ -1,18 +1,18 @@
|
|||||||
;
|
;
|
||||||
; int vsprintf (char* Buf, const char* Format, va_list ap);
|
; int __fastcall__ vsprintf (char* Buf, const char* Format, va_list ap);
|
||||||
;
|
;
|
||||||
; Ullrich von Bassewitz, 2009-09-26
|
; Ullrich von Bassewitz, 2009-09-26
|
||||||
;
|
;
|
||||||
|
|
||||||
.export _vsprintf
|
.export _vsprintf
|
||||||
.import ldax0sp, pushax, staxysp
|
.import pushw0sp, staxysp
|
||||||
.import _vsnprintf
|
.import _vsnprintf
|
||||||
|
|
||||||
|
|
||||||
; ----------------------------------------------------------------------------
|
; ----------------------------------------------------------------------------
|
||||||
; vsprintf - formatted output into a buffer
|
; vsprintf - formatted output into a buffer
|
||||||
;
|
;
|
||||||
; int vsprintf (char* buf, const char* format, va_list ap);
|
; int __fastcall__ vsprintf (char* buf, const char* format, va_list ap);
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
@@ -22,12 +22,11 @@ _vsprintf:
|
|||||||
pha ; Save high byte of op
|
pha ; Save high byte of op
|
||||||
|
|
||||||
; Build a stackframe for vsnprintf. To do that, we move format one word down,
|
; Build a stackframe for vsnprintf. To do that, we move format one word down,
|
||||||
; and store 0x7FF (INT_MAX) as size.
|
; and store 0x7FFF (INT_MAX) as size.
|
||||||
|
|
||||||
jsr ldax0sp ; Get format
|
jsr pushw0sp ; Get format and push it
|
||||||
jsr pushax ; And push it
|
lda #$FF
|
||||||
lda #$7F
|
ldx #$7F ; INT_MAX
|
||||||
ldx #$FF ; INT_MAX
|
|
||||||
ldy #2
|
ldy #2
|
||||||
jsr staxysp
|
jsr staxysp
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user