diff --git a/libs/master.lib/palette_black_out.asm b/libs/master.lib/palette_black_out.asm
new file mode 100644
index 00000000..8dfe661f
--- /dev/null
+++ b/libs/master.lib/palette_black_out.asm
@@ -0,0 +1,70 @@
+; superimpose & master library module
+;
+; Description:
+;	画面をじわじわと真っ黒にする
+;
+; Functions/Procedures:
+;	void palette_black_out( int speed ) ;
+;
+; Parameters:
+;	speed	遅延時間(vsync単位) 0=遅延なし
+;
+; Returns:
+;	
+;
+; Binding Target:
+;	Microsoft-C / Turbo-C / Turbo Pascal
+;
+; Running Target:
+;	PC-9801V
+;
+; Requiring Resources:
+;	CPU: 8086
+;
+; Notes:
+;	
+;
+; Compiler/Assembler:
+;	TASM 3.0
+;	OPTASM 1.6
+;
+; Author:
+;	Kazumi(奥田  仁)
+;	恋塚(恋塚昭彦)
+;
+; Revision History:
+;
+;$Id: blackout.asm 0.01 93/02/19 20:15:27 Kazumi Rel $
+;	93/ 3/20 Initial: master.lib <- super.lib 0.22b
+;	93/ 6/25 [M0.19] palette_show使用
+
+func PALETTE_BLACK_OUT	; palette_black_out() {
+	mov	BX,SP
+	push	SI
+	push	DI
+	; 引数
+	speed	= (RETSIZE+0)*2
+	mov	SI,SS:[BX+speed]
+
+	mov	PaletteTone,100
+	nopcall	VSYNC_WAIT	; 表示タイミングあわせ
+@@MLOOP:
+	nopcall	PALETTE_SHOW
+	mov	DI,SI
+	cmp	DI,0
+	jle	short @@SKIP
+@@VWAIT:
+	nopcall	VSYNC_WAIT
+	dec	DI
+	jnz	short @@VWAIT
+@@SKIP:
+
+	sub	PaletteTone,6
+	jg	short @@MLOOP
+
+	mov	PaletteTone,0
+	nopcall	PALETTE_SHOW
+	pop	DI
+	pop	SI
+	ret	2
+endfunc		; }
diff --git a/th02_main.asm b/th02_main.asm
index 2fd20254..38488848 100644
--- a/th02_main.asm
+++ b/th02_main.asm
@@ -35,39 +35,7 @@ include libs/master.lib/bcloser.asm
 include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_536		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h	; 'd'
-		nopcall	vsync_wait
-
-loc_549:
-		nopcall palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_55D
-
-loc_555:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_555
-
-loc_55D:
-		sub	PaletteTone, 6
-		jg	short loc_549
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_536		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -20524,7 +20492,7 @@ sub_C1E4	proc far
 loc_C20B:
 		mov	word_1FFA8, 0
 		push	0Ah
-		call	sub_536
+		call	palette_black_out
 		mov	byte_20607, 1
 		call	sub_FA46
 
diff --git a/th02_maine.asm b/th02_maine.asm
index 07df5045..509b580e 100644
--- a/th02_maine.asm
+++ b/th02_maine.asm
@@ -36,40 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_57A		proc far
-					; sub_9B64+2B2P ...
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_58D:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_5A1
-
-loc_599:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_599
-
-loc_5A1:
-		sub	PaletteTone, 6
-		jg	short loc_58D
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_57A		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -15706,7 +15673,7 @@ sub_9B64	proc near
 		push	14h
 		call	sub_B520
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		push	1
 		call	sub_98B5
 		push	1
@@ -15934,7 +15901,7 @@ loc_9D96:
 		push	large [dword_F8A2]
 		call	graph_pi_free
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		les	bx, dword_FB02
 		cmp	byte ptr es:[bx+26h], 0
 		jnz	short loc_9E2A
@@ -16265,7 +16232,7 @@ sub_A09D	proc near
 		push	14h
 		call	sub_B520
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -16396,7 +16363,7 @@ loc_A247:
 		cmp	si, 0Fh
 		jle	short loc_A22F
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -16618,7 +16585,7 @@ loc_A451:
 		push	6
 		call	sub_9643
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -16787,7 +16754,7 @@ loc_A620:
 		cmp	si, 42h	; 'B'
 		jle	short loc_A608
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -16941,7 +16908,7 @@ loc_A6B6:
 		push	6
 		call	sub_9643
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -17421,7 +17388,7 @@ loc_A992:
 		call	sub_B855
 		pop	cx
 		push	4
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -17753,7 +17720,7 @@ loc_AF56:
 		add	sp, 6
 		call	sub_B4B7
 		push	5
-		call	sub_57A
+		call	palette_black_out
 		nop
 		push	cs
 		call	near ptr sub_AFE7
@@ -17816,7 +17783,7 @@ sub_AFE7	proc far
 		call	graph_pi_free
 		call	sub_B4B7
 		push	5
-		call	sub_57A
+		call	palette_black_out
 
 loc_B07D:
 		pop	bp
@@ -17874,7 +17841,7 @@ sub_B07F	proc far
 		call	graph_pi_free
 		call	sub_B4B7
 		push	5
-		call	sub_57A
+		call	palette_black_out
 
 loc_B115:
 		pop	bp
diff --git a/th02_op.asm b/th02_op.asm
index 4cbd488c..310d1b3f 100644
--- a/th02_op.asm
+++ b/th02_op.asm
@@ -36,38 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_57A		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_58D:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_5A1
-
-loc_599:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_599
-
-loc_5A1:
-		sub	PaletteTone, 6
-		jg	short loc_58D
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_57A		endp
+include libs/master.lib/palette_black_out.asm
 
 ; ---------------------------------------------------------------------------
 		push	bp
@@ -19646,7 +19615,7 @@ loc_BFB7:
 		push	word_F184
 		call	graph_pi_free
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		pop	di
 		pop	si
 		leave
diff --git a/th03_main.asm b/th03_main.asm
index 91916446..38c033af 100644
--- a/th03_main.asm
+++ b/th03_main.asm
@@ -35,38 +35,7 @@ include libs/master.lib/bcloser.asm
 include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_536		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h	; 'd'
-		nopcall	vsync_wait
-
-loc_549:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_55D
-
-loc_555:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_555
-
-loc_55D:
-		sub	PaletteTone, 6
-		jg	short loc_549
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_536		endp
+include libs/master.lib/palette_black_out.asm
 
 ; ---------------------------------------------------------------------------
 		push	bp
@@ -20333,7 +20302,7 @@ sub_C7A5	proc near
 		cmp	byte ptr es:[bx+0Fh], 0
 		jz	short loc_C7C8
 		push	1
-		call	sub_536
+		call	palette_black_out
 
 loc_C7C1:
 		mov	byte_23B00, 1
diff --git a/th03_mainl.asm b/th03_mainl.asm
index bec67b1c..a49bc1a6 100644
--- a/th03_mainl.asm
+++ b/th03_mainl.asm
@@ -36,40 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_57A		proc far
-					; sub_9F8D+142P ...
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_58D:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_5A1
-
-loc_599:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_599
-
-loc_5A1:
-		sub	PaletteTone, 6
-		jg	short loc_58D
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_57A		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -14715,7 +14682,7 @@ loc_9868:
 
 loc_987D:
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		pop	si
 		pop	bp
 		retn
@@ -15653,7 +15620,7 @@ loc_A0C5:
 		push	203h
 		call	sub_CEC2
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		mov	dx, 0A6h ; '�'
 		mov	al, 0
 		out	dx, al		; Interrupt Controller #2, 8259A
@@ -16649,7 +16616,7 @@ loc_A8A7:
 
 loc_A8CA:
 		push	[bp+var_2]
-		call	sub_57A
+		call	palette_black_out
 		jmp	loc_AB90
 ; ---------------------------------------------------------------------------
 
@@ -18742,7 +18709,7 @@ loc_B871:
 
 loc_B879:
 		push	2
-		call	sub_57A
+		call	palette_black_out
 		les	bx, dword_105DA
 		mov	al, es:[bx+0Bh]
 		mov	ah, 0
@@ -18827,7 +18794,7 @@ sub_B92E	proc near
 		push	large 30040h
 		call	sub_D3FC
 		push	1
-		call	sub_57A
+		call	palette_black_out
 		push	100h
 		call	sub_CEC2
 		pop	bp
@@ -20176,7 +20143,7 @@ sub_C40D	proc near
 		push	210h
 		call	sub_CEC2
 		push	4
-		call	sub_57A
+		call	palette_black_out
 		push	0FFh
 		call	sub_C864
 		pop	cx
diff --git a/th03_op.asm b/th03_op.asm
index 8fc9e0d0..c0669f98 100644
--- a/th03_op.asm
+++ b/th03_op.asm
@@ -35,41 +35,7 @@ include libs/master.lib/bcloser.asm
 include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
-
-; ---------------------------------------------------------------------------
-
-loc_536:
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_549:
-		nop
-		push	cs
-; ---------------------------------------------------------------------------
-		db 0E8h, 56h
-byte_54D	db 15h
-; ---------------------------------------------------------------------------
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_55D
-
-loc_555:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_555
-
-loc_55D:
-		sub	PaletteTone, 6
-		jg	short loc_549
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -1646,8 +1612,7 @@ sub_10FE	proc far
 		mov	word_DA6E, ax
 		mov	word_DA74, ax
 		mov	es, ax
-		assume es:seg000
-		mov	ah, es:byte_54D
+		mov	ah, es:[54Dh]
 		and	ah, 4
 		add	ah, 3Fh	; '?'
 		and	ah, 40h
@@ -15550,7 +15515,7 @@ loc_9DDF:
 		cmp	si, 10h
 		jl	short loc_9DD3
 		push	1
-		call	far ptr	loc_536
+		call	palette_black_out
 		call	sub_9980
 		call	sub_F1A
 		push	100h
diff --git a/th04_main.asm b/th04_main.asm
index ba130c62..abb0e567 100644
--- a/th04_main.asm
+++ b/th04_main.asm
@@ -37,40 +37,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_666		proc far
-					; seg001:0988P	...
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h	; 'd'
-		nopcall	vsync_wait
-
-loc_679:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_68D
-
-loc_685:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_685
-
-loc_68D:
-		sub	PaletteTone, 6
-		jg	short loc_679
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_666		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -17997,7 +17964,7 @@ loc_B156:
 		cmp	vsync_Count2, 80h	; '�'
 		jb	short loc_B156
 		push	1
-		call	sub_666
+		call	palette_black_out
 		mov	PaletteTone, 64h	; 'd'
 		call	far ptr	palette_show
 		call	sub_10D77
@@ -18308,7 +18275,7 @@ loc_B46D:
 		push	word ptr dword_23D92+2
 		call	hmem_free
 		push	0Ah
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset aOp_0	; "op"
 		nop
@@ -18698,7 +18665,7 @@ sub_B7B9	proc far
 		push	204h
 		call	sub_133DC
 		push	10h
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset aMaine	; "maine"
 		nop
@@ -18722,7 +18689,7 @@ sub_B7E4	proc far
 		push	204h
 		call	sub_133DC
 		push	10h
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset aMaine_0	; "maine"
 		nop
@@ -18745,7 +18712,7 @@ sub_B80F	proc far
 		push	204h
 		call	sub_133DC
 		push	10h
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset aMaine_1	; "maine"
 		nop
@@ -22720,7 +22687,7 @@ loc_D245:
 
 loc_D268:
 		push	[bp+var_2]
-		call	sub_666
+		call	palette_black_out
 		jmp	loc_D528	; default
 ; ---------------------------------------------------------------------------
 
@@ -25365,7 +25332,7 @@ loc_E654:
 		push	204h
 		call	sub_133DC
 		push	4
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset aMaine_2	; "maine"
 		nop
diff --git a/th04_maine.asm b/th04_maine.asm
index 20f7d189..0e09bf75 100644
--- a/th04_maine.asm
+++ b/th04_maine.asm
@@ -37,39 +37,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_666		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_679:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_68D
-
-loc_685:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_685
-
-loc_68D:
-		sub	PaletteTone, 6
-		jg	short loc_679
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_666		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -14383,7 +14351,7 @@ loc_A187:
 		push	0
 		call	sub_CE7A
 		push	4
-		call	sub_666
+		call	palette_black_out
 
 loc_A1E9:
 		push	204h
@@ -14427,7 +14395,7 @@ loc_A1FE:
 		push	0
 		call	sub_CE7A
 		push	4
-		call	sub_666
+		call	palette_black_out
 		jmp	short loc_A27E
 ; ---------------------------------------------------------------------------
 
@@ -15478,7 +15446,7 @@ loc_AA55:
 
 loc_AA78:
 		push	[bp+var_2]
-		call	sub_666
+		call	palette_black_out
 		jmp	loc_AD2B
 ; ---------------------------------------------------------------------------
 
@@ -16751,7 +16719,7 @@ sub_B44D	proc near
 		push	large 12000C8h
 		call	sub_B3AC
 		push	4
-		call	sub_666
+		call	palette_black_out
 		call	sub_D8CE
 		mov	dx, 0A6h ; '�'
 		mov	al, 1
@@ -16886,7 +16854,7 @@ sub_B44D	proc near
 		call	sub_D6C4
 		call	sub_D8CE
 		push	4
-		call	sub_666
+		call	palette_black_out
 		pop	bp
 		retn
 sub_B44D	endp
@@ -17844,7 +17812,7 @@ loc_C0CB:
 		push	0
 		call	sub_CE7A
 		push	2
-		call	sub_666
+		call	palette_black_out
 		pop	si
 		leave
 		retn
@@ -19335,7 +19303,7 @@ loc_CB89:
 		call	super_free
 		call	text_clear
 		push	1
-		call	sub_666
+		call	palette_black_out
 		pop	di
 		pop	si
 		leave
diff --git a/th04_op.asm b/th04_op.asm
index ffff4f0c..22482c40 100644
--- a/th04_op.asm
+++ b/th04_op.asm
@@ -37,38 +37,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_666		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_679:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_68D
-
-loc_685:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_685
-
-loc_68D:
-		sub	PaletteTone, 6
-		jg	short loc_679
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_666		endp
+include libs/master.lib/palette_black_out.asm
 
 ; ---------------------------------------------------------------------------
 		push	bp
@@ -15264,7 +15233,7 @@ loc_AA56:
 
 loc_AA6E:
 		push	1
-		call	sub_666
+		call	palette_black_out
 		call	super_free
 		push	ds
 		push	offset unk_116C8
@@ -17156,7 +17125,7 @@ sub_B9CE	proc near
 		call	sub_156C
 		call	sub_B8B1
 		push	1
-		call	sub_666
+		call	palette_black_out
 		call	super_free
 		pop	bp
 		retn
@@ -17713,7 +17682,7 @@ loc_BE87:
 		cmp	di, 0AAh ; '�'
 		jl	loc_BD84
 		push	1
-		call	sub_666
+		call	palette_black_out
 
 loc_BE96:
 		call	super_free
@@ -18568,7 +18537,7 @@ loc_C544:
 		mov	dx, 0A6h ; '�'
 		out	dx, al		; Interrupt Controller #2, 8259A
 		push	1
-		call	sub_666
+		call	palette_black_out
 		call	sub_E4C6
 		push	ds
 		push	offset aOp_2	; "op"
@@ -19282,7 +19251,7 @@ sub_CA94	proc near
 		push	280h
 		call	sub_DC74
 		push	1
-		call	sub_666
+		call	palette_black_out
 		les	bx, dword_10DA4
 		assume es:nothing
 		mov	al, es:[bx+0Fh]
@@ -19338,7 +19307,7 @@ loc_CB58:
 		push	201h
 		call	sub_DC74
 		push	1
-		call	sub_666
+		call	palette_black_out
 		push	ds
 		push	offset unk_116C8
 		push	large [dword_116B0]
@@ -20911,7 +20880,7 @@ loc_D8B2:
 		test	byte ptr word_11A50+1, 10h
 		jz	short loc_D8D7
 		push	1
-		call	sub_666
+		call	palette_black_out
 		call	sub_D1F3
 		push	ds
 		push	offset unk_116C8
@@ -21010,7 +20979,7 @@ loc_D994:
 		add	al, 30h	; '0'
 		mov	es:[bx+12h], al
 		push	1
-		call	sub_666
+		call	palette_black_out
 		call	sub_D1F3
 		push	ds
 		push	offset unk_116C8
diff --git a/th05_main.asm b/th05_main.asm
index bbac9184..0db865e8 100644
--- a/th05_main.asm
+++ b/th05_main.asm
@@ -36,40 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_644		proc far
-					; seg001:0A07P	...
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h	; 'd'
-		nopcall	vsync_wait
-
-loc_657:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_66B
-
-loc_663:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_663
-
-loc_66B:
-		sub	PaletteTone, 6
-		jg	short loc_657
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_644		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -18422,7 +18389,7 @@ loc_B4BB:
 		cmp	vsync_Count2, 80h	; '�'
 		jb	short loc_B4BB
 		push	1
-		call	sub_644
+		call	palette_black_out
 		mov	PaletteTone, 64h	; 'd'
 		call	far ptr	palette_show
 		call	sub_118F3
@@ -18771,7 +18738,7 @@ loc_B80C:
 		push	word ptr dword_25FF4+2
 		call	hmem_free
 		push	8
-		call	sub_644
+		call	palette_black_out
 		push	ds
 		push	offset aOp_1	; "op"
 		nop
@@ -24965,7 +24932,7 @@ loc_E466:
 		push	204h
 		call	sub_14F68
 		push	10h
-		call	sub_644
+		call	palette_black_out
 		push	ds
 		push	offset aMaine	; "maine"
 		nop
@@ -24988,7 +24955,7 @@ sub_E480	proc far
 		push	204h
 		call	sub_14F68
 		push	10h
-		call	sub_644
+		call	palette_black_out
 		push	ds
 		push	offset aMaine_0	; "maine"
 		nop
@@ -27107,7 +27074,7 @@ loc_F318:
 		push	word ptr dword_25FF4+2
 		call	hmem_free
 		push	8
-		call	sub_644
+		call	palette_black_out
 		push	ds
 		push	offset aOp_0	; "op"
 		nop
@@ -28097,7 +28064,7 @@ loc_FA7D:
 		push	204h
 		call	sub_14F68
 		push	4
-		call	sub_644
+		call	palette_black_out
 		push	ds
 		push	offset aMaine_1	; "maine"
 		nop
diff --git a/th05_maine.asm b/th05_maine.asm
index 8cc71b1f..858cc5c0 100644
--- a/th05_maine.asm
+++ b/th05_maine.asm
@@ -36,40 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_644		proc far
-					; sub_B273+24P	...
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h	; 'd'
-		nopcall	vsync_wait
-
-loc_657:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_66B
-
-loc_663:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_663
-
-loc_66B:
-		sub	PaletteTone, 6
-		jg	short loc_657
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_644		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -15886,7 +15853,7 @@ loc_ABF3:
 
 loc_AC16:
 		push	[bp+var_2]
-		call	sub_644
+		call	palette_black_out
 		jmp	loc_AF8F	; default
 ; ---------------------------------------------------------------------------
 
@@ -16652,7 +16619,7 @@ arg_2		= word ptr  6
 		mov	ax, [bx+7E0h]
 		mov	[bp+var_2], ax
 		push	2
-		call	sub_644
+		call	palette_black_out
 		push	large 0C0000Eh
 		call	sub_F28
 		mov	dx, 0A6h ; '�'
@@ -16864,7 +16831,7 @@ loc_B4B5:
 		or	al, al
 		jz	short loc_B4B5
 		push	4
-		call	sub_644
+		call	palette_black_out
 		push	0
 		call	sub_F082
 		mov	dx, 0A6h ; '�'
@@ -19184,7 +19151,7 @@ loc_C5CD:
 		call	super_free
 		call	text_clear
 		push	1
-		call	sub_644
+		call	palette_black_out
 		pop	di
 		pop	si
 		leave
@@ -20505,7 +20472,7 @@ sub_D1B1	proc near
 		push	0
 		call	sub_F212
 		push	2
-		call	sub_644
+		call	palette_black_out
 		pop	bp
 		retn
 sub_D1B1	endp
diff --git a/th05_op.asm b/th05_op.asm
index 5fd81b85..58d08dc1 100644
--- a/th05_op.asm
+++ b/th05_op.asm
@@ -36,39 +36,7 @@ include libs/master.lib/bfill.asm
 include libs/master.lib/bfnt_palette_set.asm
 include libs/master.lib/bgetc.asm
 include libs/master.lib/palette_black_in.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-
-sub_644		proc far
-		mov	bx, sp
-		push	si
-		push	di
-		mov	si, ss:[bx+4]
-		mov	PaletteTone, 64h ; 'd'
-		nopcall	vsync_wait
-
-loc_657:
-		nopcall	palette_show
-		mov	di, si
-		cmp	di, 0
-		jle	short loc_66B
-
-loc_663:
-		nopcall	vsync_wait
-		dec	di
-		jnz	short loc_663
-
-loc_66B:
-		sub	PaletteTone, 6
-		jg	short loc_657
-		mov	PaletteTone, 0
-		nopcall	palette_show
-		pop	di
-		pop	si
-		retf	2
-sub_644		endp
-
+include libs/master.lib/palette_black_out.asm
 
 ; =============== S U B	R O U T	I N E =======================================
 
@@ -14742,7 +14710,7 @@ loc_A5BF:
 		call	sub_BC83
 		call	sub_BB0E
 		push	1
-		call	sub_644
+		call	palette_black_out
 		call	sub_D7EC
 		push	large 0
 		push	ds
@@ -16682,7 +16650,7 @@ sub_B5A6	proc near
 		call	sub_1250
 		call	sub_B489
 		push	1
-		call	sub_644
+		call	palette_black_out
 		call	super_free
 		pop	bp
 		retn
@@ -17235,7 +17203,7 @@ loc_BA47:
 		cmp	di, 0AAh ; '�'
 		jl	loc_B949
 		push	1
-		call	sub_644
+		call	palette_black_out
 
 loc_BA56:
 		call	super_free
@@ -18799,7 +18767,7 @@ loc_C790:
 		mov	dx, 0A6h ; '�'
 		out	dx, al		; Interrupt Controller #2, 8259A
 		push	1
-		call	sub_644
+		call	palette_black_out
 		call	sub_D726
 		push	ds
 		push	(offset	aH_op+2)
@@ -19507,7 +19475,7 @@ sub_CC5C	proc near
 		push	280h
 		call	sub_DC76
 		push	1
-		call	sub_644
+		call	palette_black_out
 		les	bx, dword_11DCC
 		mov	al, es:[bx+11h]
 		mov	byte_14101, al
@@ -19559,7 +19527,7 @@ loc_CD17:
 		push	201h
 		call	sub_DC76
 		push	1
-		call	sub_644
+		call	palette_black_out
 		push	0
 		call	sub_DEE0
 		mov	dx, 0A6h ; '�'
@@ -20237,7 +20205,7 @@ loc_D292:
 		mov	al, byte ptr word_14118
 		mov	es:[bx+14h], al
 		push	1
-		call	sub_644
+		call	palette_black_out
 		call	sub_D726
 		xor	ax, ax
 		leave
@@ -20249,7 +20217,7 @@ loc_D2CC:
 		test	byte ptr word_12A72+1, 10h
 		jz	short loc_D2E4
 		push	1
-		call	sub_644
+		call	palette_black_out
 		call	sub_D726
 		mov	ax, 1
 		leave