mirror of
https://github.com/cc65/cc65.git
synced 2024-07-23 18:29:47 +00:00
Rewrote cprintf() in assembler
git-svn-id: svn://svn.cc65.org/cc65/trunk@512 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
parent
9333d5a839
commit
aa10775c66
@ -5,7 +5,6 @@ _hextab.s
|
|||||||
abort.s
|
abort.s
|
||||||
bsearch.s
|
bsearch.s
|
||||||
calloc.s
|
calloc.s
|
||||||
cprintf.s
|
|
||||||
errormsg.s
|
errormsg.s
|
||||||
fclose.s
|
fclose.s
|
||||||
fdopen.s
|
fdopen.s
|
||||||
|
@ -16,7 +16,7 @@ C_OBJS = fclose.o fgets.o fprintf.o calloc.o _fopen.o\
|
|||||||
_hextab.o fdopen.o strtok.o\
|
_hextab.o fdopen.o strtok.o\
|
||||||
_afailed.o fopen.o fgetc.o fputc.o puts.o gets.o perror.o getchar.o\
|
_afailed.o fopen.o fgetc.o fputc.o puts.o gets.o perror.o getchar.o\
|
||||||
vprintf.o vsprintf.o sprintf.o abort.o qsort.o putchar.o\
|
vprintf.o vsprintf.o sprintf.o abort.o qsort.o putchar.o\
|
||||||
errormsg.o cprintf.o vcprintf.o freopen.o locale.o fsetpos.o\
|
errormsg.o vcprintf.o freopen.o locale.o fsetpos.o\
|
||||||
fgetpos.o rewind.o fseek.o ftell.o
|
fgetpos.o rewind.o fseek.o ftell.o
|
||||||
|
|
||||||
S_OBJS = _fdesc.o \
|
S_OBJS = _fdesc.o \
|
||||||
@ -32,6 +32,7 @@ S_OBJS = _fdesc.o \
|
|||||||
atexit.o \
|
atexit.o \
|
||||||
atoi.o \
|
atoi.o \
|
||||||
copydata.o \
|
copydata.o \
|
||||||
|
cprintf.o \
|
||||||
errno.o \
|
errno.o \
|
||||||
fmisc.o \
|
fmisc.o \
|
||||||
free.o \
|
free.o \
|
||||||
|
@ -1,26 +0,0 @@
|
|||||||
/*
|
|
||||||
* cprintf.c
|
|
||||||
*
|
|
||||||
* Ullrich von Bassewitz. 11.08.1998
|
|
||||||
*/
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
#include <stdarg.h>
|
|
||||||
#include <conio.h>
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
int cprintf (const char* format, ...)
|
|
||||||
{
|
|
||||||
va_list ap;
|
|
||||||
va_start (ap, format);
|
|
||||||
|
|
||||||
/* Do formatting and output. Since we know, that va_end is empty, we don't
|
|
||||||
* call it here, saving an extra variable and some code.
|
|
||||||
*/
|
|
||||||
return vcprintf ((char*) va_fix (ap, 1), ap);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
|
65
libsrc/common/cprintf.s
Normal file
65
libsrc/common/cprintf.s
Normal file
@ -0,0 +1,65 @@
|
|||||||
|
;
|
||||||
|
; int cprintf (const char* Format, ...);
|
||||||
|
;
|
||||||
|
; Ullrich von Bassewitz, 1.12.2000
|
||||||
|
;
|
||||||
|
|
||||||
|
.export _cprintf
|
||||||
|
.import pushax, addysp, _vcprintf
|
||||||
|
.importzp sp, ptr1
|
||||||
|
|
||||||
|
.macpack generic
|
||||||
|
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
; Data
|
||||||
|
|
||||||
|
.bss
|
||||||
|
|
||||||
|
ParamSize: .res 1 ; Number of parameter bytes
|
||||||
|
|
||||||
|
; ----------------------------------------------------------------------------
|
||||||
|
; Code
|
||||||
|
|
||||||
|
.code
|
||||||
|
|
||||||
|
|
||||||
|
_cprintf:
|
||||||
|
sty ParamSize ; Number of param bytes passed in Y
|
||||||
|
|
||||||
|
; Calculate a pointer that points to Format
|
||||||
|
|
||||||
|
dey
|
||||||
|
dey ; Sub size of Format
|
||||||
|
tya
|
||||||
|
add sp
|
||||||
|
sta ptr1
|
||||||
|
ldx sp+1
|
||||||
|
bcc @L1
|
||||||
|
inx
|
||||||
|
@L1: stx ptr1+1
|
||||||
|
|
||||||
|
; Push Format
|
||||||
|
|
||||||
|
ldy #1
|
||||||
|
lda (ptr1),y
|
||||||
|
tax
|
||||||
|
dey
|
||||||
|
lda (ptr1),y
|
||||||
|
jsr pushax
|
||||||
|
|
||||||
|
; Push va_list (last parameter to vcprintf)
|
||||||
|
|
||||||
|
lda ptr1
|
||||||
|
ldx ptr1+1
|
||||||
|
jsr pushax
|
||||||
|
|
||||||
|
; Call vcprintf
|
||||||
|
|
||||||
|
jsr _vcprintf
|
||||||
|
|
||||||
|
; Cleanup the stack. We will return what we got from vcprintf
|
||||||
|
|
||||||
|
ldy ParamSize
|
||||||
|
jmp addysp
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue
Block a user