[Decompilation] [th04/th05] Dialog: Face unblitting

Part of P0258, funded by [Anonymous] and Blue Bolt.
nmlgc · Oct 31, 2023 · a06996a · a06996a
1 parent 3616619
commit a06996a
Show file tree

Hide file tree

Showing 4 changed files with 19 additions and 46 deletions.
diff --git a/th04/main/dialog/face_unput_8.asm b/th04/main/dialog/face_unput_8.asm
diff --git a/th04/main/dialog/shared.cpp b/th04/main/dialog/shared.cpp
@@ -139,3 +139,20 @@ void near playfield_copy_front_to_back(void)
 
 	egc_off();
 }
+
+void pascal near dialog_face_unput_8(uscreen_x_t left, uvram_y_t top)
+{
+	egc_start_copy_noframe();
+
+	// ZUN bloat: _ES = grcg_segment(0, top);
+	_AX = top;
+	_BX = _AX;
+	_ES = (SEG_PLANE_B + ((_AX * 4) + _BX));
+
+	_DI = ((FACE_H - 1) * ROW_SIZE);
+	_DI += (left / BYTE_DOTS);
+	egc_rect_interpage_16(
+		reinterpret_cast<egc_temp_t __es *>(_DI), FACE_W, page_back
+	);
+	egc_off();
+}
diff --git a/th04_main.asm b/th04_main.asm
@@ -1909,8 +1909,9 @@ DIALOG_TEXT	segment	byte public 'CODE' use16
 	@DIALOG_BOX_PUT$QUIUII procdesc pascal near \
 		left_and_top:dword, tile:word
 	@playfield_copy_front_to_back$qv procdesc near
+	@DIALOG_FACE_UNPUT_8$QUIUI procdesc pascal near \
+		left_and_top:dword
 
-include th04/main/dialog/face_unput_8.asm
 include th04/main/dialog/box_fade_in.asm
 
 ; =============== S U B	R O U T	I N E =======================================

diff --git a/th05_main.asm b/th05_main.asm
@@ -3188,8 +3188,6 @@ DIALOG_TEXT	segment	byte public 'CODE' use16
 		left_and_top:dword, tile:word
 	@playfield_copy_front_to_back$qv procdesc near
 
-include th04/main/dialog/face_unput_8.asm
-
 ; =============== S U B	R O U T	I N E =======================================
 
 ; Attributes: bp-based frame