Rooba
/
ReC98
mirror of https://github.com/nmlgc/ReC98.git
1
1
Fork 0
Code Issues Packages Projects Releases Wiki Activity
ReC98/libs/master.lib/bgm_effect_sound.asm

120 lines
2.3 KiB
NASM
Raw Normal View History

[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
; master library - BGM
;
; Description:
; 効果音を実際に1音鳴らす
;
; Function/Procedures:
; int _bgm_effect_sound(void);
;
; Parameters:
;
;
; Returns:
; FINISH 演奏完了
; NOTFIN まだ演奏データに続きがある
;
; Binding Target:
; Microsoft-C / Turbo-C / Turbo Pascal
;
; Running Target:
; PC-9801
;
; Requiring Resources:
; CPU: V30
;
; Notes:
;
;
; Assembly Language Note:
;
;
; Compiler/Assembler:
; TASM 3.0
; OPTASM 1.6
;
; Author:
; femy(淀 文武) : オリジナル・C言語版
; steelman(千野 裕司) : アセンブリ言語版
; 恋塚
;
; Revision History:
; 93/12/19 Initial: b_e_snd.asm / master.lib 0.22 <- bgmlibs.lib 1.12
; 94/ 2/15 [M0.22a] 38未満の値があってもdiv zeroが出ないように(by 恋塚)
; 94/ 4/11 [M0.23] AT互換機対応
func _BGM_EFFECT_SOUND ; _bgm_effect_sound() {
;if (*(esound[glb.scnt - 1].sptr) == SEND)
mov AX,glb.scnt
dec AX
shl AX,3 ; * (type SESOUND)
mov BX,AX
les BX,esound[BX].sptr
mov CX,ES:[BX]
mov BX,AX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jcxz short B_E_SND_END_OF_SOUND ; cmp CX,SEND / jne
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
;bgm_bell2(*(esound[glb.scnt - 1].sptr)++);
add word ptr esound[BX].sptr,2
test Machine_State,10h ; PC/AT
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jz short B_E_SND_PC98
; PCAT:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
in AL,61h ;ビープON
or AL,3
out 61h,AL ; AT
mov DX,0012h ; 1193.18K(AT互換機)
mov AX,34dch
mov BX,BEEP_CNT_AT
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jmp short B_E_SND_CLOCK8MHZ
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
EVEN
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
B_E_SND_PC98:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
;ビープON (上にもってきたけど大丈夫かなあ)
mov AL,BEEP_ON
out BEEP_SW,AL ; 98
mov BX,BEEP_CNT
;spval = (CLOCK_CHK ? 1997000L : 2458000L) / hertz;
xor DX,DX
mov ES,DX
test byte ptr ES:[0501H],80h
mov DX,001eh ; 1996.8K(8MHz系)
mov AX,7800h
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jnz short B_E_SND_CLOCK8MHZ
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
mov DX,0025h ; 2457.6K(10MHz系)
mov AX,8000h
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
B_E_SND_CLOCK8MHZ:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
cmp CX,DX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
ja short B_E_SND_NORMAL
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
mov AX,0ffffh
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
jmp short B_E_SND_PLAY
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
EVEN
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
B_E_SND_NORMAL:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
div CX
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
B_E_SND_PLAY:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
;タイマカウント値設定
mov DX,BX ; BEEP_CNT
out DX,AL ; 98,AT
mov AL,AH
out DX,AL ; 98,AT
; ;ビープON
; mov AL,BEEP_ON
; out BEEP_SW,AL
xor AX,AX ; NOTFIN
ret
EVEN
[JWasm move] Use unique global names for local labels where it matters From the TASM manual: "NEAR labels defined with the colon directive (:) are considered block-scoped if they are located inside a procedure, and you've selected a language interfacing convention with the MODEL statement. However, these symbols are not truly block-scoped; they can't be defined as anything other than a near label elsewhere in the program." MASM's own local label syntax - declaring labels using @@ and then jumping to the next and previous @@ using @F and @B - is obviously too limiting for any longer function, and is not even supported by TASM unless we switch it to MASM mode completely. While this is indeed ugly, it only affected 16 files, which is way less than what we would get in a TASM build without LOCALS. In comparison to having a modern, cross-platform assembler, that really is a small price to pay.
2014-11-21 07:22:03 +00:00
B_E_SND_END_OF_SOUND:
[Reduction] #178: bgm_effect_sound
2014-08-25 22:34:16 +00:00
;esound[glb.scnt - 1].sptr = (uint far *)esound[glb.scnt - 1].sbuf;
mov AX,word ptr esound[BX].sbuf+2
mov word ptr esound[BX].sptr+2,AX
; mov AX,word ptr esound[BX].sbuf
; mov word ptr esound[BX].sptr,AX
mov word ptr esound[BX].sptr,0 ; sbufのoffsetは0のはず
mov AX,FINISH
ret
endfunc ; }