ReC98/th04/hardware/snd_kaja_func.asm

22 lines
312 B
NASM

; int __pascal snd_kaja_func(int ax)
snd_kaja_func proc
@@ax = word ptr (cPtrSize + 2)
push bp
mov bp, sp
cmp _snd_bgm_mode, SND_BGM_OFF
jz short @@ret
mov ax, [bp+@@ax]
cmp _snd_bgm_mode, SND_BGM_MIDI
jz short @@midi
int 60h
jmp short @@ret
@@midi:
int 61h
@@ret:
pop bp
ret 2
snd_kaja_func endp