; ****************************************************************
; ** Program : Tm.asm                                           **
; ** Type    : Interface                                        **
; ** Module  : ADLPLAY.BAS                                      **
; ** Purpose : Basic Interface To Adlib Sound Driver            **
; ** Language: Compiled with Masm 5.0                           **
; ** Useage  : Call With Function Number in Si                  **
;              ES:Bx Will point the way to the other arguments  **
; ****************************************************************
; Note This Module is as simple as possible for 2 reasons.
; 1. It is easy to understand.
; 2. I had to write assembler .... ugh
;
;

.MODEL MEDIUM,C

		 .CODE
		  PUBLIC soundcard
soundcard         PROC  arg1:word,arg2:word,arg3:word,arg4:word,arg5:word,arg6:word

		  mov   bx,arg1
		  mov   si,bx
		  lea   bx,arg2
		  push  SS
		  pop   ES
		  int 65h
		  ret

soundcard         endp
		  end