diff --git a/Makefile.mak b/Makefile.mak
index 8c825c1b..5497258c 100644
--- a/Makefile.mak
+++ b/Makefile.mak
@@ -91,6 +91,11 @@ bin\th03\main.exe: bin\th03\main.obj th03\main_01.cpp th03\sprite16.cpp
 $**
 |
 
+bin\th04\res_huma.com: th04\res_huma.cpp
+	$(CC) $(CFLAGS) -mt -lt -Z -DGAME=4 -nbin\th04\ -eRES_HUMA.COM @&&|
+$**
+| masters.lib
+
 bin\th04\op.exe: bin\th04\op.obj th04\op_01.cpp th04\op_02.c
 	$(CC) $(CFLAGS) -ml -DGAME=4 -DBINARY='O' -nbin\th04\ -eOP.EXE @&&|
 $**
diff --git a/build32b.bat b/build32b.bat
index 4965b200..9bb47aeb 100755
--- a/build32b.bat
+++ b/build32b.bat
@@ -23,7 +23,6 @@ if errorlevel 9009 goto no_tasm32
 %ReC98_ASM% th03_main.asm bin\th03\main.obj
 %ReC98_ASM% th03_mainl.asm bin\th03\mainl.obj
 
-%ReC98_ASM% th04_res_huma.asm bin\th04\res_huma.obj
 %ReC98_ASM% th04_op.asm bin\th04\op.obj
 %ReC98_ASM% th04_main.asm bin\th04\main.obj
 %ReC98_ASM% th04_maine.asm bin\th04\maine.obj
diff --git a/th02/res_init.c b/th02/res_init.c
index eddc5eb4..2441a0af 100644
--- a/th02/res_init.c
+++ b/th02/res_init.c
@@ -47,5 +47,8 @@ int main(int argc, const unsigned char **argv)
 		resident_bytes[i] = 0;
 	}
 	cfg_init(sgm);
+#ifdef RES_INIT_BOTTOM
+	RES_INIT_BOTTOM;
+#endif
 	return 0;
 }
diff --git a/th04/res_huma.cpp b/th04/res_huma.cpp
new file mode 100644
index 00000000..6dfdefc0
--- /dev/null
+++ b/th04/res_huma.cpp
@@ -0,0 +1,65 @@
+/* ReC98
+ * -----
+ * TH04 ZUN.COM -S. Initializes the resident structure and configuration file
+ * required in order to run TH04.
+ */
+
+#include <ReC98.h>
+#include "th01/ranks.h"
+#include "th04/score.h"
+#include "th04/resident.hpp"
+#include "th04/snd/snd.h"
+#include "th04/formats/cfg.h"
+
+#pragma option -a1
+
+char debug = 0;
+const cfg_options_t OPTS_DEFAULT = {
+	RANK_DEFAULT, CFG_LIVES_DEFAULT, CFG_BOMBS_DEFAULT,
+	SND_BGM_FM26, SND_SE_FM, true
+};
+
+void cfg_init(seg_t resident_sgm)
+{
+	const char *fn = CFG_FN;
+	cfg_options_t opts = OPTS_DEFAULT;
+	cfg_t cfg_in;
+
+	if(!file_ropen(fn)) {
+recreate:
+		file_create(fn);
+		file_write(&opts, sizeof(opts));
+	} else {
+		file_read(&cfg_in, sizeof(cfg_in));
+		file_close();
+		if((
+			cfg_in.opts.rank
+			+ cfg_in.opts.lives
+			+ cfg_in.opts.bombs
+			+ cfg_in.opts.bgm_mode
+			+ cfg_in.opts.se_mode
+			+ cfg_in.opts.turbo_mode
+		) != cfg_in.opts_sum) {
+			goto recreate;
+		}
+		file_append(fn);
+		file_seek(offsetof(cfg_t, resident), 0);
+	}
+	file_write(&resident_sgm, sizeof(resident_sgm));
+	file_write(&debug, sizeof(debug));
+	// Yes, this is uninitialized if the file didn't exist!
+	file_write(&cfg_in.opts_sum, sizeof(cfg_in.opts_sum));
+	file_close();
+}
+
+#define LOGO \
+	"東方幻想郷用　 常駐プログラム　RES_HUMA.com Version1.00       (c)zun 1998"
+
+#define RES_INIT_BOTTOM { \
+	resident_t far *resident = reinterpret_cast<resident_t far *>(resident_bytes); \
+	if(debug) { \
+		resident->debug = true; \
+	} \
+}
+
+#include "th02/res_init.c"
diff --git a/th04/resident.hpp b/th04/resident.hpp
index f7a61b0a..9811cf26 100644
--- a/th04/resident.hpp
+++ b/th04/resident.hpp
@@ -1,3 +1,4 @@
+#pragma option -a1
 #define RES_ID "HUMAConfig"
 typedef struct {
 	char id[RES_ID_LEN];
@@ -54,3 +55,4 @@ typedef struct {
 	unsigned char turbo_mode;
 	int8_t unused_5[182];
 } resident_t;
+#pragma option -a.
diff --git a/th04_res_huma.asm b/th04_res_huma.asm
deleted file mode 100644
index 8a8ce991..00000000
--- a/th04_res_huma.asm
+++ /dev/null
@@ -1,380 +0,0 @@
-;
-; +-------------------------------------------------------------------------+
-; |   This file has been generated by The Interactive Disassembler (IDA)    |
-; |        Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com>           |
-; +-------------------------------------------------------------------------+
-;
-; Input	MD5   :	C84DB5A5C97E54BA50E3BE80D8C24034
-
-; File Name   :	th04/ZUN.COM:RES_HUMA (-S)
-; Format      :	MS-DOS COM-file
-; Base Address:	0h Range: 100h-19D8h Loaded length: 18D8h
-; OS type	  :  MS	DOS
-; Application type:  Executable	16bit
-
-		.286
-		.model tiny
-		__TINY__ equ 1
-
-include ReC98.inc
-include th04/th04.inc
-
-; ===========================================================================
-
-; Segment type:	Pure code
-_TEXT		segment	word public 'CODE' use16
-		assume cs:_TEXT
-		assume es:nothing, ss:nothing, ds:_TEXT
-
-include libs/BorlandC/c0.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_367		proc near
-
-var_10		= byte ptr -10h
-var_F		= byte ptr -0Fh
-var_E		= byte ptr -0Eh
-var_D		= byte ptr -0Dh
-var_C		= byte ptr -0Ch
-var_B		= byte ptr -0Bh
-var_7		= byte ptr -7
-var_6		= byte ptr -6
-arg_0		= byte ptr  4
-
-		enter	10h, 0
-		push	si
-		mov	si, offset aMiko_cfg ; "miko.cfg"
-		lea	ax, [bp+var_6]
-		push	ss
-		push	ax
-		push	ds
-		push	offset unk_15FF
-		mov	cx, 6
-		call	N_SCOPY@
-		push	si
-		call	file_ropen
-		or	ax, ax
-		jnz	short loc_396
-
-loc_386:
-		push	si
-		call	file_create
-		push	ss
-		lea	ax, [bp+var_6]
-		push	ax
-		push	6
-		call	file_write
-		jmp	short loc_3DC
-; ---------------------------------------------------------------------------
-
-loc_396:
-		push	ss
-		lea	ax, [bp+var_10]
-		push	ax
-		push	0Ah
-		call	file_read
-		call	file_close
-		mov	al, [bp+var_10]
-		cbw
-		push	ax
-		mov	al, [bp+var_F]
-		cbw
-		pop	dx
-		add	dx, ax
-		mov	al, [bp+var_E]
-		cbw
-		add	dx, ax
-		mov	al, [bp+var_D]
-		cbw
-		add	dx, ax
-		mov	al, [bp+var_C]
-		cbw
-		add	dx, ax
-		mov	al, [bp+var_B]
-		cbw
-		add	dx, ax
-		mov	al, [bp+var_7]
-		cbw
-		cmp	dx, ax
-		jnz	short loc_386
-		push	si
-		call	file_append
-		push	0
-		push	6
-		push	0
-		call	file_seek
-
-loc_3DC:
-		push	ss
-		lea	ax, [bp+arg_0]
-		push	ax
-		push	2
-		call	file_write
-		push	ds
-		push	offset byte_15FE
-		push	1
-		call	file_write
-		push	ss
-		lea	ax, [bp+var_7]
-		push	ax
-		push	1
-		call	file_write
-		call	file_close
-		pop	si
-		leave
-		retn
-sub_367		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-; int __cdecl main(int argc, const char	**argv,	const char **envp)
-_main		proc near
-
-var_C		= dword	ptr -0Ch
-var_8		= dword	ptr -8
-var_4		= word ptr -4
-var_2		= word ptr -2
-_argc		= word ptr  4
-_argv		= word ptr  6
-_envp		= word ptr  8
-
-		enter	0Ch, 0
-		push	si
-		push	di
-		mov	si, [bp+_argv]
-		mov	[bp+var_2], offset aHumaconfig ; "HUMAConfig"
-		push	[bp+var_2]
-		push	0Ah
-		push	10h
-		call	resdata_exist
-		mov	di, ax
-		push	offset aUmx	; "\n\n東方幻想郷用　 常駐プログラム　RES_HU"...
-		call	dos_puts2
-		call	graph_clear
-		cmp	[bp+_argc], 2
-		jnz	short loc_485
-		mov	bx, [si+2]
-		cmp	byte ptr [bx], '-'
-		jz	short loc_435
-		cmp	byte ptr [bx], '/'
-		jnz	short loc_45A
-
-loc_435:
-		mov	bx, [si+2]
-		cmp	byte ptr [bx+1], 'R'
-		jz	short loc_444
-		cmp	byte ptr [bx+1], 'r'
-		jnz	short loc_45A
-
-loc_444:
-		or	di, di
-		jnz	short loc_44D
-		push	offset aVavVBavVVvvVV ;	"わたし、まだいませんよぉ\n\n"
-		jmp	short loc_4A4
-; ---------------------------------------------------------------------------
-
-loc_44D:
-		push	di
-		call	dos_free
-		push	offset aVVcvVcbavVIqvj ; "さよなら、また会えたらいいな\n\n"
-		call	dos_puts2
-		jmp	loc_4F5
-; ---------------------------------------------------------------------------
-
-loc_45A:
-		mov	bx, [si+2]
-		cmp	byte ptr [bx], '-'
-		jz	short loc_467
-		cmp	byte ptr [bx], '/'
-		jnz	short loc_47D
-
-loc_467:
-		mov	bx, [si+2]
-		cmp	byte ptr [bx+1], 'D'
-		jz	short loc_476
-		cmp	byte ptr [bx+1], 'd'
-		jnz	short loc_47D
-
-loc_476:
-		mov	byte_15FE, 1
-		jmp	short loc_485
-; ---------------------------------------------------------------------------
-
-loc_47D:
-		push	offset aVV	; "そんなオプション付けられても、困るんで・...
-		call	dos_puts2
-		jmp	short loc_4A7
-; ---------------------------------------------------------------------------
-
-loc_485:
-		or	di, di
-		jz	short loc_491
-		push	offset aVavVBavVVVvvVV ; "わたし、すでにいますよぉ\n\n"
-		call	dos_puts2
-		jmp	short loc_4A7
-; ---------------------------------------------------------------------------
-
-loc_491:
-		push	[bp+var_2]
-		push	0Ah
-		push	10h
-		call	resdata_create
-		mov	di, ax
-		or	di, di
-		jnz	short loc_4AC
-		push	offset aNVVVV	; "作れません、わたしの居場所がないの！\n\n"
-
-loc_4A4:
-		call	dos_puts2
-
-loc_4A7:
-		mov	ax, 1
-		jmp	short loc_4F7
-; ---------------------------------------------------------------------------
-
-loc_4AC:
-		mov	word ptr [bp+var_8+2], di
-		mov	word ptr [bp+var_8], 0
-		push	offset aVVVVBavcvivVnv ; "それでは、よろしくお願いします\n\n"
-		call	dos_puts2
-		mov	[bp+var_4], 0Bh
-		jmp	short loc_4CE
-; ---------------------------------------------------------------------------
-
-loc_4C1:
-		les	bx, [bp+var_8]
-		add	bx, [bp+var_4]
-		mov	byte ptr es:[bx], 0
-		inc	[bp+var_4]
-
-loc_4CE:
-		cmp	[bp+var_4], 100h
-		jl	short loc_4C1
-		push	di
-		call	sub_367
-		pop	cx
-		mov	dx, word ptr [bp+var_8+2]
-		mov	ax, word ptr [bp+var_8]
-		mov	word ptr [bp+var_C+2], dx
-		mov	word ptr [bp+var_C], ax
-		cmp	byte_15FE, 0
-		jz	short loc_4F5
-		les	bx, [bp+var_C]
-		mov	es:[bx+resident_t.debug_mode], 1
-
-loc_4F5:
-		xor	ax, ax
-
-loc_4F7:
-		pop	di
-		pop	si
-		leave
-		retn
-_main		endp
-
-; ---------------------------------------------------------------------------
-		db 0
-include libs/master.lib/graph_clear.asm
-include libs/master.lib/resdata.asm
-include libs/master.lib/file_read.asm
-include libs/master.lib/file_close.asm
-include libs/master.lib/file_ropen.asm
-include libs/master.lib/file_write.asm
-include libs/master.lib/file_create.asm
-include libs/master.lib/file_seek.asm
-include libs/master.lib/file_append.asm
-include libs/master.lib/dos_free.asm
-include libs/master.lib/dos_axdx.asm
-include libs/master.lib/dos_puts2.asm
-include libs/master.lib/dos_ropen.asm
-include libs/BorlandC/_abort.asm
-include libs/BorlandC/atexit.asm
-include libs/BorlandC/errormsg.asm
-include libs/BorlandC/exit.asm
-include libs/BorlandC/ioerror.asm
-include libs/BorlandC/_isatty.asm
-include libs/BorlandC/lseek.asm
-include libs/BorlandC/n_scopy.asm
-include libs/BorlandC/setupio.asm
-include libs/BorlandC/brk.asm
-include libs/BorlandC/nearheap.asm
-include libs/BorlandC/pathops.asm
-include libs/BorlandC/fflush.asm
-include libs/BorlandC/flushall.asm
-include libs/BorlandC/fseek.asm
-include libs/BorlandC/setvbuf.asm
-include libs/BorlandC/_strlen.asm
-include libs/BorlandC/write.asm
-include libs/BorlandC/writea.asm
-include libs/BorlandC/xfflush.asm
-include libs/BorlandC/setargv.asm
-		db 8 dup(0)
-; ---------------------------------------------------------------------------
-
-include libs/BorlandC/c0[data].asm
-
-byte_15FE	db 0
-unk_15FF	db 0FFh
-		db    CFG_LIVES_DEFAULT
-		db    CFG_BOMBS_DEFAULT
-		db    1
-		db    1
-		db    1
-aMiko_cfg	db 'miko.cfg',0
-aHumaconfig	db 'HUMAConfig',0
-aUmx		db 0Ah
-		db 0Ah
-		db '東方幻想郷用　 常駐プログラム　RES_HUMA.com Version1.00       (c)zun 1998',0Ah,0
-aVavVBavVVvvVV	db 'わたし、まだいませんよぉ',0Ah
-		db 0Ah,0
-aVVcvVcbavVIqvj	db 'さよなら、また会えたらいいな',0Ah
-		db 0Ah,0
-aVV		db 'そんなオプション付けられても、困るんですけど',0Ah
-		db 0Ah,0
-aVavVBavVVVvvVV	db 'わたし、すでにいますよぉ',0Ah
-		db 0Ah,0
-aNVVVV		db '作れません、わたしの居場所がないの！',0Ah
-		db 0Ah,0
-aVVVVBavcvivVnv	db 'それでは、よろしくお願いします',0Ah
-		db 0Ah,0
-include libs/master.lib/version[data].asm
-include libs/master.lib/grp[data].asm
-include libs/master.lib/resdata[data].asm
-include libs/master.lib/fil[data].asm
-include libs/master.lib/dos_ropen[data].asm
-include libs/BorlandC/_abort[data].asm
-include libs/BorlandC/atexit[data].asm
-include libs/BorlandC/exit[data].asm
-include libs/BorlandC/files[data].asm
-__heaplen	dw 0
-include libs/BorlandC/ioerror[data].asm
-include libs/BorlandC/stklen[data].asm
-include libs/BorlandC/nearheap[data].asm
-include libs/BorlandC/pathops[data].asm
-include libs/BorlandC/setvbuf[data].asm
-include libs/BorlandC/sysnerr[data].asm
-include libs/BorlandC/setargv[data].asm
-
-InitStart	label byte
-include libs/BorlandC/setupio[initdata].asm
-include libs/BorlandC/pathops[initdata].asm
-include libs/BorlandC/setargv[initdata].asm
-InitEnd	label byte
-
-ExitStart	label byte
-ExitEnd	label byte
-
-bdata@	label byte
-include libs/master.lib/fil[bss].asm
-include libs/BorlandC/atexit[bss].asm
-edata@	label byte
-_TEXT		ends
-
-
-		end startx