*
* sprintf.asm
* -----------
* Ersatz fuer sprintf() der lc?.lib
* unter Benutzung von RawDoFmt()
* naehres siehe Autodoc dort
*
* Diese Routine ist Public Domain
* d.h. sie darf ohne Angabe der Quelle
* immer und ueberall verwendet werden :-)
*

    csect   "text",0,,2,2
    xdef    _sprintf
_sprintf:
    movem.l a2/a3/a6,-(sp)
    move.l  16(sp),a3
    move.l  20(sp),a0
    lea     24(sp),a1
    lea     chp(pc),a2
    move.l  4,a6
    jsr     -522(a6)
    movem.l (sp)+,a2/a3/a6
    rts
chp:
    move.b  d0,(a3)+
    rts

    END