home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / fractals / fracblank / stringformat.asm < prev   
Encoding:
Assembly Source File  |  1994-11-17  |  913 b   |  81 lines
  1. **
  2. **    FracBlank - AmigaDOS 2.04 commodities utility screenblanker
  3. **
  4. **    Copyright ⌐ 1991-1992 by Olaf `Olsen' Barthel
  5. **        All Rights Reserved
  6. **
  7. **    Cosmic flame fractal code derived from xlock source code
  8. **
  9. **    Copyright ⌐ 1988-1991 by Patrick J. Naughton.
  10. **
  11.  
  12. CALL    macro
  13.     xref    _LVO\1
  14.     jsr    _LVO\1(a6)
  15.     endm
  16.  
  17.     csect    text,0,0,1,2
  18.  
  19.     xdef    _SPrintf
  20.  
  21. _SPrintf:
  22.     movem.l    a2/a3/a6,-(sp)
  23.  
  24.     move.l     4+12(sp),a3
  25.     move.l     8+12(sp),a0
  26.     lea    12+12(sp),a1
  27.     lea    stuffchar(pc),a2
  28.  
  29.     move.l    (4).w,a6
  30.     CALL    RawDoFmt
  31.  
  32.     movem.l    (sp)+,a2/a3/a6
  33.  
  34.     rts
  35.  
  36. stuffchar:
  37.     move.b    d0,(a3)+
  38.     rts
  39.  
  40.     xdef    _Atol
  41.  
  42. _Atol:    move.l    a0,d1
  43.  
  44.     move.l    d2,-(sp)
  45.     move.l    a6,-(sp)
  46.  
  47.     pea.l    0
  48.  
  49.     lea.l    (sp),a0
  50.     move.l    a0,d2
  51.  
  52.     move.l    _DOSBase(a4),a6
  53.  
  54.     CALL    StrToLong
  55.  
  56.     tst.l    d0
  57.  
  58.     bmi.b    1$
  59.  
  60.     move.l    (sp),d0
  61.  
  62.     add.w    #4,sp
  63.     move.l    (sp)+,a6
  64.     move.l    (sp)+,d2
  65.  
  66.     rts
  67.  
  68. 1$    moveq    #0,d0
  69.  
  70.     add.w    #4,sp
  71.     move.l    (sp)+,a6
  72.     move.l    (sp)+,d2
  73.  
  74.     rts
  75.  
  76.     csect    __MERGED
  77.  
  78.     xref    _DOSBase
  79.  
  80.     end
  81.