;--------------------------------------------------------------------------
; xprsprintf.a is obviously based upon format.a by Russell McOrmond
; which was distributed with xprfts.library and xprclock.library sources
; $Id: format.a,v 1.1 92/09/20 12:16:17 rwm Exp Locker: rwm $
; $Revision: 1.1 $
; $Date: 92/09/20 12:16:17 $
;
;--------------------------------------------------------------------------


	        XDEF _xprsprintf

*                XREF _AbsExecBase
*                XREF _LVORawDoFmt

ABSEXECBASE        EQU        4
RawDoFmt        EQU        -522

                SECTION CODE

_xprsprintf:        ; ( ostring, format, {values} )
                movem.l a2/a3/a6,-(sp)

                move.l        4*4(sp),a3       ;Get the output string pointer
                move.l        5*4(sp),a0       ;Get the FormatString pointer
                lea.l        6*4(sp),a1       ;Get the pointer to the DataStream
                lea.l        stuffChar(pc),a2
*                move.l        _AbsExecBase,a6
*                jsr        _LVORawDoFmt(a6)
                move.l        ABSEXECBASE,a6
                jsr        RawDoFmt(a6)

                movem.l (sp)+,a2/a3/a6
                rts

        ;------ PutChProc function used by RawDoFmt -----------
        stuffChar:
                move.b        d0,(a3)+        ;Put data to output string
                rts

                end