home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / quake_src / snd_int68k.s < prev    next >
Text File  |  2000-06-17  |  2KB  |  77 lines
  1. * 
  2. * Copyright (C) 1996-1997 Id Software, Inc. 
  3. * 
  4. * This program is free software; you can redistribute it and/or 
  5. * modify it under the terms of the GNU General Public License 
  6. * as published by the Free Software Foundation; either version 2 
  7. * of the License, or (at your option) any later version. 
  8. * 
  9. * This program is distributed in the hope that it will be useful, 
  10. * but WITHOUT ANY WARRANTY; without even the implied warranty of 
  11. * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   
  12. * 
  13. * See the GNU General Public License for more details. 
  14. * 
  15. * You should have received a copy of the GNU General Public License 
  16. * along with this program; if not, write to the Free Software 
  17. * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
  18. * 
  19.  
  20. **
  21. ** Audio Interrupt routine
  22. **
  23. ** used for M68k as well as for PowerPC
  24. ** written by Frank Wille <frank@phoenix.owl.de>
  25. **
  26.  
  27.     include    "devices/timer.i"
  28.     include "hardware/custom.i"
  29.     include    "hardware/intbits.i"
  30.  
  31. CUSTOM        equ    $dff000
  32. GetSysTime    equ    -66
  33.  
  34. ; a1 = IntData
  35. ; Offset 0:    *TimerBase
  36. ; Offset 4:    *FirstTime2
  37. ; Offset 8:    *aud_start_time
  38.  
  39.  
  40.     code
  41.  
  42.     xdef    _AudioIntCode
  43.     xdef    AudioIntCode
  44. _AudioIntCode:
  45. AudioIntCode:
  46.     movem.l    a4-a6,-(sp)
  47.     fsave    -(sp)
  48.     fmovem.x fp0-fp2,-(sp)
  49.     move.w    CUSTOM+intreqr,d0
  50.     and.w    #INTF_AUD0|INTF_AUD1|INTF_AUD2|INTF_AUD3,d0
  51.     move.w    d0,CUSTOM+intreq
  52.     move.l    a1,a5
  53.     move.l    (a5)+,a6        ; TimerBase
  54.     lea    TVstruct(pc),a0
  55.     jsr    GetSysTime(a6)
  56.     move.l    (a5)+,a1
  57.     move.l    TV_SECS(a0),d0
  58.     sub.l    (a1),d0            ; - FirstTime2
  59.     fmove.l    d0,fp0
  60.     move.l    TV_MICRO(a0),d1
  61.     fmove.l    d1,fp1
  62.     fmove.l    #1000000,fp2
  63.     fdiv    fp2,fp1
  64.     move.l    (a5),a0
  65.     fadd    fp1,fp0
  66.     fmove.d    fp0,(a0)
  67.     fmovem.x (sp)+,fp0-fp2
  68.     frestore (sp)+
  69.     movem.l    (sp)+,a4-a6
  70.     moveq    #0,d0
  71.     rts
  72.  
  73.  
  74.     cnop    0,8
  75. TVstruct:
  76.     dcb.b    TV_SIZE,0
  77.