home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_56 / ems4fct.asm < prev    next >
Encoding:
Assembly Source File  |  1995-01-01  |  1.1 KB  |  45 lines
  1. model large,pascal
  2.  
  3. .data
  4. EXTRN patEMShandle:WORD
  5. EXTRN EMSpat:BYTE
  6. EXTRN EMSsmp:BYTE
  7. EXTRN smpEMShandle:WORD
  8. EXTRN savhandle:WORD
  9.       patname DB 'Pattern',0
  10.       smpname DB 'Samples',0
  11.       savname DB 'saveMAP',0
  12. ends
  13.  
  14. .code
  15.  
  16. public setEMSnames
  17.  
  18. setEMSnames PROC NEAR
  19.             cmp      [EMSpat],0
  20.             je       endofset     ; No EMS reserved !
  21.             ; first EMS pattern
  22.             mov      si,offset patname
  23.             mov      ah,53h
  24.             mov      al,1
  25.             mov      dx,[patEMShandle]
  26.             int      67h
  27.             ; then Save Handle:
  28.             mov      si,offset savname
  29.             mov      ah,53h
  30.             mov      al,1
  31.             mov      dx,[savhandle]
  32.             int      67h
  33.             ; now SMP handle if there's for samples:
  34.             cmp      [EMSsmp],0
  35.             je       endofset
  36.             mov      si,offset smpname
  37.             mov      ah,53h
  38.             mov      al,1
  39.             mov      dx,[smpEMShandle]
  40.             int      67h
  41. endofset:   ret
  42. setEMSnames ENDP
  43.  
  44. ends
  45. end