From 88a9143309c95fa3dcf90f4d12ed6ffeb1bfff44 Mon Sep 17 00:00:00 2001
From: wintiger0222 <0xodbs02@naver.com>
Date: Mon, 2 Dec 2019 19:23:57 +0900
Subject: [PATCH] =?UTF-8?q?[Reverse-engineering]=20[th01]=20JIS=20X=200208?=
 =?UTF-8?q?=20=E6=9D=B1=E6=96=B9=E2=98=85=E9=9D=88=E7=95=B0=E4=BC=9D=20cod?=
 =?UTF-8?q?e=20points?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 th01_reiiden.asm | 56 ++++++++++++++++--------------------------------
 1 file changed, 19 insertions(+), 37 deletions(-)

diff --git a/th01_reiiden.asm b/th01_reiiden.asm
index 1506d0fe..1feb6bf5 100644
--- a/th01_reiiden.asm
+++ b/th01_reiiden.asm
@@ -1282,43 +1282,25 @@ loc_BE0B:
 		jnz	loc_BEA4
 
 loc_BE23:
-		push	0Eh
-		call	_mdrv2_se_play
-		push	456Ch
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		push	0Eh
-		call	_mdrv2_se_play
-		push	4A7Dh
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		push	0Eh
-		call	_mdrv2_se_play
-		push	217Ah
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		push	0Eh
-		call	_mdrv2_se_play
-		push	704Dh
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		push	0Eh
-		call	_mdrv2_se_play
-		push	305Bh
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		push	0Eh
-		call	_mdrv2_se_play
-		push	4541h
-		call	sub_B961
-		push	8
-		call	_frame_delay
-		add	sp, 18h
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 456Ch	; “Œ (JIS CODE)
+		call	_frame_delay pascal, 8
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 4A7Dh	; •ϋ (JIS CODE)
+		call	_frame_delay pascal, 8
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 217Ah	; š (JIS CODE)
+		call	_frame_delay pascal, 8
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 704Dh	; θΛ (JIS CODE)
+		call	_frame_delay pascal, 8
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 305Bh	; ˆΩ (JIS CODE)
+		call	_frame_delay pascal, 8
+		call	_mdrv2_se_play pascal, 14
+		call	sub_B961 pascal, 4541h	; “` (JIS CODE)
+		call	_frame_delay pascal, 8
+		add	sp, 18h	; (only sub_B961 actually uses Pascal calling convention!)
 
 loc_BEA4:
 		mov	al, byte_34A34