2004-11-27 18:23:24 +00:00
|
|
|
;
|
|
|
|
|
; int __fastcall__ vscanf (const char* format, va_list ap);
|
|
|
|
|
;
|
|
|
|
|
; Ullrich von Bassewitz, 2004-11-27
|
|
|
|
|
;
|
|
|
|
|
|
2013-05-09 11:56:54 +00:00
|
|
|
.export _vscanf
|
2004-11-27 18:23:24 +00:00
|
|
|
.import _vfscanf
|
|
|
|
|
.import _stdin
|
|
|
|
|
.import decsp2
|
|
|
|
|
|
|
|
|
|
.include "zeropage.inc"
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
; ----------------------------------------------------------------------------
|
|
|
|
|
; int __fastcall__ vscanf (const char* format, va_list ap)
|
|
|
|
|
; /* Standard C function */
|
|
|
|
|
; {
|
|
|
|
|
; return vfscanf (stdin, format, ap);
|
|
|
|
|
; }
|
|
|
|
|
;
|
|
|
|
|
|
|
|
|
|
.code
|
|
|
|
|
_vscanf:
|
|
|
|
|
pha ; Save low byte of ap
|
|
|
|
|
|
|
|
|
|
; Decrement the stack pointer by two for the additional parameter.
|
|
|
|
|
|
|
|
|
|
jsr decsp2 ; Won't touch X
|
|
|
|
|
|
|
|
|
|
; Move the format down
|
|
|
|
|
|
|
|
|
|
ldy #2
|
|
|
|
|
lda (sp),y ; Load byte of format
|
|
|
|
|
ldy #0
|
|
|
|
|
sta (sp),y
|
|
|
|
|
ldy #3
|
|
|
|
|
lda (sp),y
|
|
|
|
|
ldy #1
|
|
|
|
|
sta (sp),y
|
|
|
|
|
|
|
|
|
|
; Store stdin into the stack frame
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
lda _stdin
|
|
|
|
|
sta (sp),y
|
|
|
|
|
iny
|
|
|
|
|
lda _stdin+1
|
|
|
|
|
sta (sp),y
|
|
|
|
|
|
|
|
|
|
; Restore the low byte of ap and jump to vfscanf, which will cleanup the stack
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
jmp _vfscanf
|
|
|
|
|
|
