Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -4,18 +4,18 @@
|
||||
; Ullrich von Bassewitz, 1.12.2000
|
||||
;
|
||||
|
||||
.export _fprintf
|
||||
.import addysp, decsp4, _vfprintf
|
||||
.importzp sp, ptr1
|
||||
.export _fprintf
|
||||
.import addysp, decsp4, _vfprintf
|
||||
.importzp sp, ptr1
|
||||
|
||||
.macpack generic
|
||||
.macpack generic
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; Data
|
||||
|
||||
.bss
|
||||
|
||||
ParamSize: .res 1 ; Number of parameter bytes
|
||||
ParamSize: .res 1 ; Number of parameter bytes
|
||||
|
||||
; ----------------------------------------------------------------------------
|
||||
; Code
|
||||
@@ -24,7 +24,7 @@ ParamSize: .res 1 ; Number of parameter bytes
|
||||
|
||||
|
||||
_fprintf:
|
||||
sty ParamSize ; Number of param bytes passed in Y
|
||||
sty ParamSize ; Number of param bytes passed in Y
|
||||
|
||||
; We have to push f and format, both in the order they already have on stack.
|
||||
; To make this somewhat more efficient, we will create space on the stack and
|
||||
@@ -33,37 +33,37 @@ _fprintf:
|
||||
; of the fixed arguments, this will allow us to calculate the pointer to the
|
||||
; fixed size arguments easier (they're just ParamSize bytes away).
|
||||
|
||||
jsr decsp4
|
||||
jsr decsp4
|
||||
|
||||
; Calculate a pointer to the Format argument
|
||||
|
||||
lda ParamSize
|
||||
add sp
|
||||
sta ptr1
|
||||
ldx sp+1
|
||||
bcc @L1
|
||||
inx
|
||||
@L1: stx ptr1+1
|
||||
lda ParamSize
|
||||
add sp
|
||||
sta ptr1
|
||||
ldx sp+1
|
||||
bcc @L1
|
||||
inx
|
||||
@L1: stx ptr1+1
|
||||
|
||||
; Now copy both, f and format
|
||||
|
||||
ldy #4-1
|
||||
@L2: lda (ptr1),y
|
||||
sta (sp),y
|
||||
dey
|
||||
bpl @L2
|
||||
ldy #4-1
|
||||
@L2: lda (ptr1),y
|
||||
sta (sp),y
|
||||
dey
|
||||
bpl @L2
|
||||
|
||||
; Load va_list (last and __fastcall__ parameter to vfprintf)
|
||||
|
||||
lda ptr1
|
||||
ldx ptr1+1
|
||||
lda ptr1
|
||||
ldx ptr1+1
|
||||
|
||||
; Call vfprintf
|
||||
|
||||
jsr _vfprintf
|
||||
jsr _vfprintf
|
||||
|
||||
; Cleanup the stack. We will return what we got from vfprintf
|
||||
|
||||
ldy ParamSize
|
||||
jmp addysp
|
||||
ldy ParamSize
|
||||
jmp addysp
|
||||
|
||||
|
||||
Reference in New Issue
Block a user