From 01de2900ddebf6c75d9bdd90bdb62e01bf849249 Mon Sep 17 00:00:00 2001
From: wintiger0222 <0xodbs02@naver.com>
Date: Mon, 18 Nov 2019 07:28:39 +0000
Subject: [PATCH] [Decompilation] [th01] frame_delay

Closes #7.
---
 Makefile.mak            |   4 +-
 th01/hardware/frmdely.c |   9 ++++
 th01/main_02.c          |   6 +++
 th01/op_02.c            |   6 +++
 th01_op.asm             |  37 +++-----------
 th01_reiiden.asm        | 107 +++++++++++++++-------------------------
 th01_reiiden_2.inc      |  58 +++++++++++-----------
 7 files changed, 100 insertions(+), 127 deletions(-)
 create mode 100644 th01/hardware/frmdely.c
 create mode 100644 th01/main_02.c
 create mode 100644 th01/op_02.c

diff --git a/Makefile.mak b/Makefile.mak
index 0811f5ad..e560b7b8 100644
--- a/Makefile.mak
+++ b/Makefile.mak
@@ -41,12 +41,12 @@ th05:: $(TH05:\=bin\th05\)
 bin\th01\zunsoft.com: th01\zunsoft.c
 	$(CC) $(CFLAGS) -mt -lt -nbin\th01\ $** masters.lib
 
-bin\th01\op.exe: bin\th01\op.obj th01\op_03.c th01\op_04.c th01\op_10.c th01\op_11.c th01\op_12.cpp
+bin\th01\op.exe: bin\th01\op.obj th01\op_02.c th01\op_03.c th01\op_04.c th01\op_10.c th01\op_11.c th01\op_12.cpp
 	$(CC) $(CFLAGS) -ml -3 -nbin\th01\ -eOP.EXE @&&|
 $**
 |
 
-bin\th01\reiiden.exe: bin\th01\reiiden.obj th01\main_03.c th01\main_04.c th01\main_12.c th01\main_13.c th01\main_14.c th01\main_16.c
+bin\th01\reiiden.exe: bin\th01\reiiden.obj th01\main_02.c th01\main_03.c th01\main_04.c th01\main_12.c th01\main_13.c th01\main_14.c th01\main_16.c
 	$(CC) $(CFLAGS) -ml -3 -nbin\th01\ -eREIIDEN.EXE @&&|
 $**
 |
diff --git a/th01/hardware/frmdely.c b/th01/hardware/frmdely.c
new file mode 100644
index 00000000..e6aeea1f
--- /dev/null
+++ b/th01/hardware/frmdely.c
@@ -0,0 +1,9 @@
+extern int vsync_frame;
+#define z_vsync_reset1() (vsync_frame = 0)
+// #define z_vsync_reset2() (vsync_unused = 0)
+
+void far frame_delay(unsigned int frames)
+{
+	while(vsync_frame < frames) {}
+	z_vsync_reset1();
+}
diff --git a/th01/main_02.c b/th01/main_02.c
new file mode 100644
index 00000000..e2dbdcea
--- /dev/null
+++ b/th01/main_02.c
@@ -0,0 +1,6 @@
+/* ReC98
+ * -----
+ * Code segment #2 of TH01's REIIDEN.EXE
+ */
+
+#include "th01/hardware/frmdely.c"
diff --git a/th01/op_02.c b/th01/op_02.c
new file mode 100644
index 00000000..493ac3e0
--- /dev/null
+++ b/th01/op_02.c
@@ -0,0 +1,6 @@
+/* ReC98
+ * -----
+ * Code segment #2 of TH01's OP.EXE
+ */
+
+#include "th01/hardware/frmdely.c"
diff --git a/th01_op.asm b/th01_op.asm
index 2aca05d6..19d0bc38 100644
--- a/th01_op.asm
+++ b/th01_op.asm
@@ -764,7 +764,7 @@ loc_A6C8:
 		call	sub_A629
 		pop	cx
 		push	1
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 
 loc_A6F5:
@@ -816,7 +816,7 @@ sub_A719	proc far
 		pop	cx
 		call	sub_BC8B
 		push	64h ; 'd'
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 		call	sub_A66A
 		pop	bp
@@ -1952,7 +1952,7 @@ loc_B0D6:
 
 loc_B126:
 		push	1
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 		push	di
 		call	sub_A92C
@@ -2031,7 +2031,7 @@ loc_B1C3:
 
 loc_B1C9:
 		push	0Fh
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 		mov	byte_1232A, 0
 		jmp	short loc_B1EE
@@ -2043,7 +2043,7 @@ loc_B1D8:
 		cmp	ax, 4
 		jnz	short loc_B1EE
 		push	0Fh
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 		mov	byte_1232A, 1
 
@@ -2060,7 +2060,7 @@ loc_B1EE:
 		mov	byte ptr es:[0528h], 0
 		inc	dword_13418
 		push	1
-		call	sub_B269
+		call	_frame_delay
 		pop	cx
 
 loc_B21A:
@@ -2097,30 +2097,7 @@ op_01_TEXT	ends
 
 ; Segment type:	Pure code
 op_02_TEXT	segment	byte public 'CODE' use16
-		assume cs:op_02_TEXT
-		;org 9
-		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_B269	proc far
-
-arg_0		= word ptr  6
-
-		push	bp
-		mov	bp, sp
-
-loc_B26C:
-		mov	ax, _vsync_frame
-		cmp	ax, [bp+arg_0]
-		jb	short loc_B26C
-		mov	_vsync_frame, 0
-		pop	bp
-		retf
-sub_B269	endp
-
+	extern _frame_delay:proc
 op_02_TEXT	ends
 
 ; ===========================================================================
diff --git a/th01_reiiden.asm b/th01_reiiden.asm
index bb6df6dc..02af2a8a 100644
--- a/th01_reiiden.asm
+++ b/th01_reiiden.asm
@@ -979,7 +979,7 @@ loc_BB96:
 		push	ax
 		call	sub_B933
 		push	23h ; '#'
-		call	sub_E364
+		call	_frame_delay
 		mov	[bp+var_4], 0
 		push	10020h
 		push	ss
@@ -1081,7 +1081,7 @@ loc_BC58:
 		push	ax
 		call	sub_B933
 		push	23h ; '#'
-		call	sub_E364
+		call	_frame_delay
 		push	ds
 		push	offset format	; "\x1B*"
 		call	_printf
@@ -1287,37 +1287,37 @@ loc_BE23:
 		push	456Ch
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		push	0Eh
 		call	_mdrv2_se_play
 		push	4A7Dh
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		push	0Eh
 		call	_mdrv2_se_play
 		push	217Ah
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		push	0Eh
 		call	_mdrv2_se_play
 		push	704Dh
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		push	0Eh
 		call	_mdrv2_se_play
 		push	305Bh
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		push	0Eh
 		call	_mdrv2_se_play
 		push	4541h
 		call	sub_B961
 		push	8
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 18h
 
 loc_BEA4:
@@ -2472,7 +2472,7 @@ loc_C7F4:
 
 loc_C816:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		push	ds
 		push	offset unk_37635
@@ -2706,7 +2706,7 @@ loc_CA1A:
 		cmp	byte_34A52, 0
 		jnz	short loc_CA39
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_CA30:
@@ -2723,7 +2723,7 @@ loc_CA39:
 		call	_egc_copy_rect_1_to_0
 		add	sp, 8
 		push	14h
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	byte_34A4B, 0
 		mov	byte_34A4E, 0
@@ -2795,7 +2795,7 @@ loc_CB47:
 		cmp	byte_34A52, 0
 		jnz	short loc_CB66
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_CB5D:
@@ -2999,7 +2999,7 @@ loc_CD52:
 		pop	cx
 		inc	di
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		cmp	byte_34A52, 1
 		jz	short loc_CD70
@@ -3298,7 +3298,7 @@ loc_CFF8:
 		cwd
 		idiv	bx
 		push	ax
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	di
 
@@ -3587,7 +3587,7 @@ loc_D1E3:
 
 loc_D26E:
 		push	3
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		push	0
 		call	sub_B502
@@ -4221,7 +4221,7 @@ loc_D6EE:
 		jnz	short loc_D72E
 		call	sub_D340
 		push	28h ; '('
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_D72E:
@@ -4256,7 +4256,7 @@ loc_D776:
 		add	sp, 4
 		call	sub_D340
 		push	28h ; '('
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_D795:
@@ -4526,7 +4526,7 @@ loc_DA2A:
 		add	sp, 4
 		call	sub_D340
 		push	28h ; '('
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_DA49:
@@ -4586,7 +4586,7 @@ loc_DA9E:
 		jnz	short loc_DAD7
 		call	sub_D340
 		push	28h ; '('
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_DAD7:
@@ -4712,7 +4712,7 @@ loc_DC17:
 		call	sub_19E48
 		pop	cx
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	dword_34A62
 
@@ -4919,7 +4919,7 @@ loc_DE0F:
 
 loc_DE47:
 		push	78h ; 'x'
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_E852
 		pushd	0
@@ -5354,32 +5354,7 @@ main_01_TEXT	ends
 
 ; Segment type:	Pure code
 main_02_TEXT	segment	byte public 'CODE' use16
-		assume cs:main_02_TEXT
-		;org 4
-		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_E364	proc far
-
-arg_0		= word ptr  6
-
-		push	bp
-		mov	bp, sp
-
-loc_E367:
-		mov	ax, _vsync_frame
-		cmp	ax, [bp+arg_0]
-		jb	short loc_E367
-
-loc_E36F:
-		mov	_vsync_frame, 0
-		pop	bp
-		retf
-sub_E364	endp
-
+	extern _frame_delay:proc
 main_02_TEXT	ends
 
 ; ===========================================================================
@@ -12879,7 +12854,7 @@ loc_126A7:
 
 loc_126B8:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_12640
 ; ---------------------------------------------------------------------------
@@ -12977,7 +12952,7 @@ loc_1276B:
 		cmp	[bp+var_6], 30h	; '0'
 		jge	short loc_1277B
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	short loc_12714
 ; ---------------------------------------------------------------------------
@@ -13097,7 +13072,7 @@ loc_127AC:
 		push	32h ; '2'
 
 loc_12902:
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		push	0
 		call	sub_B502
@@ -13300,7 +13275,7 @@ loc_12AC8:
 
 loc_12AD9:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_12A5F
 ; ---------------------------------------------------------------------------
@@ -13398,7 +13373,7 @@ loc_12B8C:
 		cmp	[bp+var_6], 30h	; '0'
 		jge	short loc_12B9C
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	short loc_12B35
 ; ---------------------------------------------------------------------------
@@ -13722,7 +13697,7 @@ loc_12E0D:
 		jb	short loc_12DC9
 		inc	[bp+var_12]
 		push	2
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		cmp	[bp+var_A], 190h
 		jnb	loc_12F42
@@ -13955,7 +13930,7 @@ loc_13002:
 		or	dx, dx
 		jnz	short loc_13023
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_13023:
@@ -14454,7 +14429,7 @@ arg_0		= word ptr  6
 		call	sub_30DEE
 		add	sp, 4
 		push	32h ; '2'
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	[bp+var_6], 0
 		call	sub_12F62
@@ -14477,7 +14452,7 @@ arg_0		= word ptr  6
 		call	sub_197E1
 		add	sp, 6
 		push	1Eh
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	ax, word_39DAC
 		imul	ax, 5
@@ -14543,7 +14518,7 @@ loc_13513:
 		push	56h ; 'V'
 		call	sub_12BAB
 		push	5
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	ax, word_34A88
 		imul	ax, 0C8h
@@ -14609,7 +14584,7 @@ loc_135E2:
 		push	6Bh ; 'k'
 		call	sub_12BAB
 		push	5
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	ax, _rem_lives
 		imul	ax, 1F4h
@@ -14680,7 +14655,7 @@ loc_136BF:
 		push	80h
 		call	sub_12BAB
 		push	5
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	ax, [bp+arg_0]
 		imul	ax, 3E8h
@@ -14753,7 +14728,7 @@ loc_13792:
 		push	95h
 		call	sub_12BAB
 		push	5
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	eax, dword_34A5E
 		add	_score, eax
@@ -14820,7 +14795,7 @@ loc_13792:
 		push	400C4h
 		call	sub_12BAB
 		push	5
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_B87C
 		mov	byte_34A4E, 1
@@ -16868,7 +16843,7 @@ loc_1483C:
 		cmp	[bp+var_8], 2
 		jz	short loc_1483C
 		push	4
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	di
 		jmp	short loc_1483C
@@ -25855,7 +25830,7 @@ loc_194DE:
 		cmp	di, 11h
 		jbe	short loc_1948B
 		push	1Bh
-		call	sub_E364
+		call	_frame_delay
 		mov	[bp+var_4], 0
 		push	10020h
 		push	ss
@@ -25952,7 +25927,7 @@ loc_19595:
 		cmp	di, 11h
 		jbe	loc_19508
 		push	1Bh
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	text_clear
 		pop	di
@@ -28966,7 +28941,7 @@ loc_1AE65:
 		call	sub_11738
 		pop	cx
 		push	2
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	si
 
@@ -29107,7 +29082,7 @@ loc_1AFB4:
 
 loc_1AFC0:
 		push	ax
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	si
 
diff --git a/th01_reiiden_2.inc b/th01_reiiden_2.inc
index 6220e0b4..d9a6c72b 100644
--- a/th01_reiiden_2.inc
+++ b/th01_reiiden_2.inc
@@ -7918,7 +7918,7 @@ loc_1FAE7:
 		cmp	di, 1
 		jz	short loc_1FAF6
 		push	2
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	short loc_1FACA
 ; ---------------------------------------------------------------------------
@@ -10232,7 +10232,7 @@ loc_20DAD:
 loc_20DD6:
 		inc	[bp+var_14]
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_20CF9
 ; ---------------------------------------------------------------------------
@@ -14430,7 +14430,7 @@ loc_23013:
 
 loc_23024:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 
 loc_2302C:
@@ -17237,7 +17237,7 @@ loc_24871:
 		push	word_36C28
 		call	sub_197E1
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 0Eh
 		jmp	loc_24796
 ; ---------------------------------------------------------------------------
@@ -17487,7 +17487,7 @@ loc_24AFF:
 		or	dx, dx
 		jz	loc_2489C
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_2489C
 ; ---------------------------------------------------------------------------
@@ -23036,7 +23036,7 @@ loc_27E35:
 		idiv	bx
 		inc	ax
 		push	ax
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_27C72
 ; ---------------------------------------------------------------------------
@@ -23324,7 +23324,7 @@ loc_28150:
 
 loc_28158:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_27E6E
 ; ---------------------------------------------------------------------------
@@ -23945,7 +23945,7 @@ loc_28703:
 		push	si
 		call	sub_11816
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 8
 		dec	si
 
@@ -30403,7 +30403,7 @@ loc_2C37F:
 		or	dx, dx
 		jz	loc_2C14E
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_2C14E
 ; ---------------------------------------------------------------------------
@@ -31085,7 +31085,7 @@ loc_2C9DA:
 
 loc_2CA9E:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		jmp	loc_2C949
 ; ---------------------------------------------------------------------------
 
@@ -31436,7 +31436,7 @@ loc_2CD98:
 
 loc_2CDA0:
 		push	2
-		call	sub_E364
+		call	_frame_delay
 		jmp	loc_2CCDC
 ; ---------------------------------------------------------------------------
 
@@ -31805,7 +31805,7 @@ loc_2D059:
 loc_2D06B:
 		inc	[bp+var_8]
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_2CFA2
 ; ---------------------------------------------------------------------------
@@ -31850,7 +31850,7 @@ loc_2D079:
 		push	6
 		call	sub_1117C
 		push	28h ; '('
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 0Ah
 		xor	si, si
 		jmp	short loc_2D120
@@ -31879,7 +31879,7 @@ loc_2D0EC:
 
 loc_2D117:
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		inc	si
 
@@ -31897,7 +31897,7 @@ loc_2D12A:
 		push	di
 		call	sub_11816
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 8
 		sub	di, 20h	; ' '
 
@@ -31919,7 +31919,7 @@ loc_2D14D:
 		push	ax
 		call	sub_11738
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 4
 		inc	si
 
@@ -31927,7 +31927,7 @@ loc_2D16E:
 		cmp	si, 20h	; ' '
 		jl	short loc_2D14D
 		push	1Eh
-		call	sub_E364
+		call	_frame_delay
 		push	0F000Fh
 		push	0F0009h
 		call	sub_EB59
@@ -31974,7 +31974,7 @@ loc_2D1DC:
 		push	offset unk_35090
 		call	sub_EB10
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		add	sp, 6
 		inc	di
 
@@ -36028,7 +36028,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	8
@@ -36045,7 +36045,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	9
@@ -36062,7 +36062,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Ah
@@ -36079,7 +36079,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Bh
@@ -36096,7 +36096,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Ch
@@ -36113,7 +36113,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Dh
@@ -36130,7 +36130,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Eh
@@ -36147,7 +36147,7 @@ loc_2F766:
 		call	sub_10CDD
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		call	sub_EC0D
 		push	0Fh
@@ -36167,7 +36167,7 @@ loc_2F766:
 		call	sub_110ED
 		pop	cx
 		push	0Ah
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		mov	word_3A6CA, 0
 
@@ -36243,7 +36243,7 @@ loc_2F9F9:
 		cmp	word_3A6CA, 40h
 		jg	short loc_2FA23
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_2F99A
 ; ---------------------------------------------------------------------------
@@ -36500,7 +36500,7 @@ loc_2FC06:
 loc_2FC0E:
 		inc	[bp+var_6]
 		push	1
-		call	sub_E364
+		call	_frame_delay
 		pop	cx
 		jmp	loc_2FAEB
 ; ---------------------------------------------------------------------------