2003-06-02 16:08:26 +00:00
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2003-06-02
|
|
|
|
|
;
|
|
|
|
|
; int __fastcall__ vprintf (const char* format, va_list ap);
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _vprintf
|
2003-06-02 16:08:26 +00:00
|
|
|
.import _vfprintf, _stdout
|
2013-05-09 11:56:54 +00:00
|
|
|
.import decsp2
|
|
|
|
|
.importzp sp
|
2003-06-02 16:08:26 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
.proc _vprintf
|
|
|
|
|
|
|
|
|
|
; Save A which contains the low part of ap
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
; Allocate one more word on the stack
|
|
|
|
|
|
|
|
|
|
jsr decsp2
|
|
|
|
|
|
|
|
|
|
; Move the format parameter down and store stdout in it's place
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
lda (sp),y
|
|
|
|
|
ldy #0
|
|
|
|
|
sta (sp),y
|
|
|
|
|
ldy #3
|
|
|
|
|
lda (sp),y
|
|
|
|
|
ldy #1
|
|
|
|
|
sta (sp),y
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda _stdout
|
|
|
|
|
sta (sp),y
|
|
|
|
|
iny
|
|
|
|
|
lda _stdout+1
|
|
|
|
|
sta (sp),y
|
|
|
|
|
|
|
|
|
|
; Restore A
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
|
|
|
|
; Call vfprintf (stdout, format, ap) which will cleanup the stack and return
|
|
|
|
|
|
|
|
|
|
jmp _vfprintf
|
|
|
|
|
|
|
|
|
|
.endproc
|
|
|
|
|
|
|
|
|
|
|
