home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 1 / GoldFishApril1994_CD2.img / d4xx / d483 / med / med.lzh / MED / Programmers / Examples / example4.a < prev    next >
Text File  |  1991-05-08  |  433b  |  22 lines
  1. ;    example4.a -- calling modplayer from assembler program
  2.  
  3.     xref    _sng    ;the name of the object file should be "sng"
  4.     xref    _InitPlayer
  5.     xref    _PlayModule
  6.     xref    _RemPlayer
  7.  
  8.     code
  9.     movem.l a0-a6/d0-d7,-(sp)
  10.     jsr    _InitPlayer(pc)    ;no error checking needed here!!
  11.     lea    _sng,a0
  12.     jsr    _PlayModule(pc)
  13.     movea.l 4,a6
  14.     moveq    #$40,d0
  15.     lsl.l    #6,d0
  16.     jsr    -$13e(a6)    ;wait for Ctrl-C
  17.     jsr    _RemPlayer(pc)
  18.     movem.l (sp)+,a0-a6/d0-d7
  19.     moveq    #0,d0
  20.     rts
  21.     end
  22.