home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 497b.lha / MED_v3.0 / Programmers / Examples / example4.a < prev   
Encoding:
Text File  |  1991-04-03  |  433 b   |  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.