home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / source / driver / util / amiga / SNPrintf.a < prev    next >
Text File  |  1994-11-12  |  1KB  |  64 lines
  1. ;
  2. ; SNPrintf.a
  3. ;
  4. ; Version 1.1 (30 Oct 1994)
  5. ; Written by Giuseppe Ghibò <ghibo@galileo.polito.it>
  6. ; 
  7. ; C prototype:
  8. ;
  9. ; LONG __stdargs SNPrintf(STRPTR String, LONG Size, STRPTR FmtString, ...);
  10.  
  11.  
  12.     SECTION text,code
  13.  
  14. _LVORawDoFmt     EQU -$20a
  15.  
  16.     XDEF    _SNPrintf
  17. ;    XREF    _LVORawDoFmt
  18.  
  19. _SNPrintf:
  20.  
  21.     movem.l    a2-a4/a6,-(sp)
  22.     move.l    5*4(sp),a3    ; Get output string pointer
  23.  
  24.     move.l    6*4(sp),a4    ; Get size of string buffer
  25.     beq.b    exit        ; 
  26.  
  27.     move.l    7*4(sp),a0    ; Get format string pointer
  28.     lea.l    8*4(sp),a1    ; Get the pointer to the data stream
  29.  
  30.     lea.l    copychr(pc),a2    ; PutChProc
  31.  
  32.     adda.l    a3,a4
  33.     move.l    a4,_SNPrintf__BufEnd
  34.  
  35.     move.l    4.W,a6
  36.     jsr    _LVORawDoFmt(a6)
  37.  
  38.     move.l    _SNPrintf__Last,d0
  39.     sub.l    a3,d0        ; returns string length
  40.  
  41. exit:
  42.     movem.l    (sp)+,a2-a4/a6
  43.     rts
  44.  
  45. copychr:
  46.     movem.l    a5,-(sp)    ; save a5 register
  47.     move.l    _SNPrintf__BufEnd,a5
  48.     cmpa.l    a5,a3
  49.     blt    nextchr
  50.     subq.l    #1,a3
  51.  
  52. nextchr:
  53.     move.l    a3,_SNPrintf__Last
  54.     move.b    d0,(a3)+
  55.     movem.l    (sp)+,a5    ; restore a5 register
  56.     rts
  57.  
  58.     CNOP 0,4
  59.  
  60. _SNPrintf__BufEnd:    ds.l    1
  61. _SNPrintf__Last:    ds.l    1
  62.  
  63.     END
  64.