home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma01.dms / ma01.adf / wasp / src / wriffasm.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-12-29  |  700 b   |  41 lines
  1. /* wasp - Copyright 1991 by Steven Reiz
  2.  * see COPYING and wasp.c for further info
  3.  * wriffasm.c, 30/12/91
  4.  */
  5.  
  6. #ifndef AZTEC_C
  7. #error AZTEC_C should be defined!
  8. #endif
  9.  
  10. #asm
  11.     xdef    _clear_counts
  12.     xref    _counts
  13. _clear_counts:
  14.     movem.l    d2-d7/a2-a6,-(sp)
  15.     move.l    _counts,a6
  16.     add.l    #$4000,a6
  17.     move.w    #63,d7
  18.     move.l    #0,d0
  19.     move.l    d0,d1
  20.     move.l    d0,d2
  21.     move.l    d0,d3
  22.     move.l    d0,d4
  23.     move.l    d0,d5
  24.     move.l    d0,d6
  25.     move.l    d0,a0
  26.     move.l    d0,a1
  27.     move.l    d0,a2
  28.     move.l    d0,a3
  29.     move.l    d0,a4
  30.     move.l    d0,a5
  31. clear_counts_2:
  32.     movem.l    d0-d6/a0-a5,-(a6)
  33.     movem.l    d0-d6/a0-a5,-(a6)
  34.     movem.l    d0-d6/a0-a5,-(a6)
  35.     movem.l    d0-d6/a0-a5,-(a6)
  36.     movem.l    d0-d6/a0-a4,-(a6)
  37.     dbf.w    d7,clear_counts_2
  38.     movem.l    (sp)+,d2-d7/a2-a6
  39.     rts
  40. #endasm
  41.