home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 591b.lha / OctaMED_v1.0b / Programmers / MEDPlayerLibrary / medplrlib_stub.a < prev   
Encoding:
Text File  |  1991-04-30  |  1.5 KB  |  105 lines
  1. ; medplrlib_stub.a:    stub routines for calling medplayer.library from
  2. ;            C-compilers which don't support direct library
  3. ;            calling
  4.  
  5.     XREF    _MEDPlayerBase
  6.     XDEF    _GetPlayer
  7.     XDEF    _FreePlayer
  8.     XDEF    _PlayModule
  9.     XDEF    _ContModule
  10.     XDEF    _StopPlayer
  11.     XDEF    _DimOffPlayer
  12.     XDEF    _SetTempo
  13.     XDEF    _LoadModule
  14.     XDEF    _UnLoadModule
  15.     XDEF    _GetCurrentModule
  16.     XDEF    _ResetMIDI
  17.  
  18.     CODE
  19.  
  20. _GetPlayer:
  21.     MOVE.L    4(SP),D0
  22.     MOVE.L    A6,-(SP)
  23.     MOVEA.L    _MEDPlayerBase,A6
  24.     JSR    -$1E(A6)
  25.     MOVEA.L    (SP)+,A6
  26.     RTS
  27.  
  28. _FreePlayer:
  29.     MOVE.L    A6,-(SP)
  30.     MOVEA.L    _MEDPlayerBase,A6
  31.     JSR    -$24(A6)
  32.     MOVEA.L    (SP)+,A6
  33.     RTS
  34.  
  35. _PlayModule:
  36.     MOVEA.L    4(SP),A0
  37.     MOVE.L    A6,-(SP)
  38.     MOVEA.L    _MEDPlayerBase,A6
  39.     JSR    -$2A(A6)
  40.     MOVEA.L    (SP)+,A6
  41.     RTS
  42.  
  43. _ContModule:
  44.     MOVEA.L    4(SP),A0
  45.     MOVE.L    A6,-(SP)
  46.     MOVEA.L    _MEDPlayerBase,A6
  47.     JSR    -$30(A6)
  48.     MOVEA.L    (SP)+,A6
  49.     RTS
  50.  
  51. _StopPlayer:
  52.     MOVE.L    A6,-(SP)
  53.     MOVEA.L    _MEDPlayerBase,A6
  54.     JSR    -$36(A6)
  55.     MOVEA.L    (SP)+,A6
  56.     RTS
  57.  
  58. _DimOffPlayer:
  59.     MOVE.L    4(SP),D0
  60.     MOVE.L    A6,-(SP)
  61.     MOVEA.L    _MEDPlayerBase,A6
  62.     JSR    -$3C(A6)
  63.     MOVEA.L    (SP)+,A6
  64.     RTS
  65.  
  66. _SetTempo:
  67.     MOVE.L    4(SP),D0
  68.     MOVE.L    A6,-(SP)
  69.     MOVEA.L _MEDPlayerBase,A6
  70.     JSR    -$42(A6)
  71.     MOVEA.L    (SP)+,A6
  72.     RTS
  73.  
  74. _LoadModule:
  75.     MOVEA.L    4(SP),A0
  76.     MOVE.L    A6,-(SP)
  77.     MOVEA.L    _MEDPlayerBase,A6
  78.     JSR    -$48(A6)
  79.     MOVEA.L    (SP)+,A6
  80.     RTS
  81.  
  82. _UnLoadModule:
  83.     MOVEA.L    4(SP),A0
  84.     MOVE.L    A6,-(SP)
  85.     MOVEA.L _MEDPlayerBase,A6
  86.     JSR    -$4E(A6)
  87.     MOVEA.L    (SP)+,A6
  88.     RTS
  89.  
  90. _GetCurrentModule:
  91.     MOVE.L    A6,-(SP)
  92.     MOVEA.L _MEDPlayerBase,A6
  93.     JSR    -$54(A6)
  94.     MOVEA.L    (SP)+,A6
  95.     RTS
  96.  
  97. _ResetMIDI:
  98.     MOVE.L    A6,-(SP)
  99.     MOVEA.L _MEDPlayerBase,A6
  100.     JSR    -$5A(A6)
  101.     MOVEA.L    (SP)+,A6
  102.     RTS
  103.  
  104.     END
  105.