home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 552.lha / Format / StringFormat.asm < prev   
Assembly Source File  |  1991-09-08  |  1KB  |  87 lines
  1. * $Revision Header * Header built automatically - do not edit! *************
  2. *
  3. *    (C) Copyright 1990 by Olaf 'Olsen' Barthel & MXM
  4. *
  5. *    Name .....: StringFormat.asm
  6. *    Created ..: Monday 21-Jan-91 20:12
  7. *    Revision .: 1
  8. *
  9. *    Date            Author          Comment
  10. *    =========       ========        ====================
  11. *    21-Jan-91       Olsen           Created this file!
  12. *
  13. * $Revision Header *********************************************************
  14.  
  15. CALL    macro
  16.     xref    _LVO\1
  17.     jsr    _LVO\1(a6)
  18.     endm
  19.  
  20.     csect    text,0,0,1,2
  21.  
  22. *--------------------------------------------------------------------------
  23. *
  24. *    This file contains some ANSI-`C' style routines which are not
  25. *    directly implemented through dos.library or utility.library or
  26. *    whose amiga.lib equivalent is broken at the time of writing.
  27. *
  28. *--------------------------------------------------------------------------
  29.  
  30.     xdef    _Printf
  31.     xdef    _SPrintf
  32.     xdef    _VSPrintf
  33.  
  34. _Printf:
  35.     movem.l    d2/a6,-(sp)
  36.  
  37.     move.l    12(sp),d1
  38.     lea    16(sp),a0
  39.     move.l    a0,d2
  40.  
  41.     move.l    _DOSBase(a4),a6
  42.  
  43.     CALL    VPrintf
  44.  
  45.     movem.l    (sp)+,d2/a6
  46.     rts
  47.  
  48. _SPrintf:
  49.     movem.l    a2/a3/a6,-(sp)
  50.  
  51.     move.l     4+12(sp),a3
  52.     move.l     8+12(sp),a0
  53.     lea    12+12(sp),a1
  54.     lea    stuffchar(pc),a2
  55.  
  56.     move.l    4,a6
  57.     CALL    RawDoFmt
  58.  
  59.     movem.l    (sp)+,a2/a3/a6
  60.  
  61.     rts
  62.  
  63. _VSPrintf:
  64.     movem.l    a2/a3/a6,-(sp)
  65.  
  66.     move.l     4+12(sp),a3
  67.     move.l     8+12(sp),a0
  68.     move.l    12+12(sp),a1
  69.     lea    stuffchar(pc),a2
  70.  
  71.     move.l    4,a6
  72.     CALL    RawDoFmt
  73.  
  74.     movem.l    (sp)+,a2/a3/a6
  75.  
  76.     rts
  77.  
  78. stuffchar:
  79.     move.b    d0,(a3)+
  80.     rts
  81.  
  82.     csect    __MERGED
  83.  
  84.     xref    _DOSBase
  85.  
  86.     end
  87.