home *** CD-ROM | disk | FTP | other *** search
/ Creative Computers / CreativeComputers.iso / shareware / fractals / fracblank / pointer.asm < prev    next >
Encoding:
Assembly Source File  |  1994-11-17  |  774 b   |  47 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.     csect    text,0,0,1,2
  13.  
  14.     xref    _StackNewSetPointer
  15.  
  16.     xdef    _StackOldSetPointer
  17.     xdef    _NewSetPointer
  18.  
  19. _StackOldSetPointer:
  20.     movem.l    a2/a6/d2/d3,-(sp)
  21.     move.l    _IntuitionBase(a4),a6
  22.     movem.l    20(sp),a0/a1
  23.     movem.l    28(sp),d0/d1/d2/d3
  24.     move.l    _OldSetPointer(a4),a2
  25.     jsr    (a2)
  26.     movem.l    (sp)+,a2/a6/d2/d3
  27.     rts
  28.  
  29. _NewSetPointer:
  30.     move.l    a6,-(sp)
  31.     movem.l    d0/d1/d2/d3,-(sp)
  32.     movem.l    a0/a1,-(sp)
  33.  
  34.     jsr    _StackNewSetPointer
  35.  
  36.     add.l    #24,sp
  37.  
  38.     move.l    (sp)+,a6
  39.     rts
  40.  
  41.     csect    __MERGED,DATA
  42.  
  43.     xref    _IntuitionBase
  44.     xref    _OldSetPointer
  45.  
  46.     end
  47.