home *** CD-ROM | disk | FTP | other *** search
/ back2roots/padua / padua.7z / padua / uucp / auucp+-1.02 / fuucp_plus_src.lzh / uucplib / sprintf.a < prev    next >
Encoding:
Text File  |  1991-04-10  |  421 b   |  37 lines
  1. CALL    macro
  2.     xref    _LVO\1
  3.     jsr    _LVO\1(a6)
  4.     endm
  5.  
  6.     csect    sprintf_routine,0,2,0,4
  7.  
  8.     xdef    _SPRINTF
  9.     xdef    __SPrintfA
  10.  
  11. *--------------------------------------------------------------------------
  12.  
  13. __SPrintfA:
  14.     rts
  15.  
  16. _SPRINTF:
  17.     movem.l    a2/a3/a6,-(sp)
  18.  
  19.     movea.l     4+12(sp),a3
  20.     movea.l     8+12(sp),a0
  21.     lea    12+12(sp),a1
  22.     lea    pushchar,a2
  23.  
  24.     movea.l    4,a6
  25.     jsr    -522(a6)
  26.  
  27.     movem.l    (sp)+,a2/a3/a6
  28.  
  29.     rts
  30.  
  31.  
  32. pushchar:
  33.     move.b    d0,(a3)+
  34.     rts
  35.  
  36.     end
  37.