Moved conio related files from common/ to conio/

[cc65] / libsrc / conio / cprintf.s

diff --git a/libsrc/conio/cprintf.s b/libsrc/conio/cprintf.s
new file mode 100644 (file)
index 0000000..d5e5691
--- /dev/null
+++ b/libsrc/conio/cprintf.s
@@ -0,0 +1,64 @@
+;
+; 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
+
+; Load va_list (last and __fastcall__ parameter to vfprintf)
+
+       lda     ptr1
+       ldx     ptr1+1
+
+; Call vcprintf
+
+       jsr     _vcprintf
+
+; Cleanup the stack. We will return what we got from vcprintf
+
+       ldy     ParamSize
+       jmp     addysp
+
+