home *** CD-ROM | disk | FTP | other *** search
- ideal
- P286
- model Huge
- jumps
-
- stack 1024
-
- include "gusmod.inc"
- include "musgus.asm"
-
- segment MyCode
- assume cs:MyCode,ds:MyCode
-
- MyFile db 'M.INF',0
- proc DumpSoundSeg
- push ds
- mov ax,cs
- mov ds,ax
- mov dx,offset MyFile
- mov cx,0
- mov ah,3Ch
- int 21h
- mov bx,ax
- mov cx,SizeSoundSeg
- mov dx,0
- push ds
- mov ax,GUSSound
- mov ds,ax
- mov ah,40h
- int 21h
- pop ds
- mov ah,3Eh
- int 21h
- pop ds
- ret
- endp DumpSoundSeg
-
- Start:
- call DumpSoundSeg
- mov ax,4C00h
- int 21h
-
- ends MyCode
- end Start
-
-
-