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