home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
audio
/
utils
/
med_424
/
programmers
/
examples
/
example4.a
< prev
next >
Wrap
Text File
|
1990-12-30
|
423b
|
21 lines
; example4.a -- calling modplayer from assembler program
xref _song ;the name of the object file should be "song"
xref _InitPlayer
xref _PlayModule
xref _RemPlayer
code
movem.l a0-a6/d0-d7,-(sp)
jsr _InitPlayer(pc) ;no error checking needed here!!
lea _song,a0
jsr _PlayModule(pc)
movea.l 4,a6
moveq #$40,d0
lsl.l #6,d0
jsr -$13e(a6) ;wait for Ctrl-C
jsr _RemPlayer(pc)
movem.l (sp)+,a0-a6/d0-d7
rts
end