mirror of https://github.com/nmlgc/ReC98.git
33 lines
462 B
NASM
33 lines
462 B
NASM
include libs/kaja/kaja.inc
|
|
include th03/arg_bx.inc
|
|
include th04/snd/snd.inc
|
|
|
|
extrn _snd_bgm_mode:byte
|
|
|
|
SHARED_ segment word public 'CODE' use16
|
|
assume cs:SHARED_
|
|
|
|
public SND_KAJA_INTERRUPT
|
|
snd_kaja_interrupt proc far
|
|
cmp _snd_bgm_mode, SND_BGM_OFF
|
|
jz short @@ret
|
|
|
|
arg_bx far, @ax:word
|
|
|
|
mov ax, @ax
|
|
cmp _snd_bgm_mode, SND_BGM_MIDI
|
|
jz short @@midi
|
|
int PMD
|
|
jmp short @@ret
|
|
|
|
@@midi:
|
|
int MMD
|
|
|
|
@@ret:
|
|
ret_bx
|
|
snd_kaja_interrupt endp
|
|
even
|
|
SHARED_ ends
|
|
|
|
end
|