From f861b0a5c37ef645cd88949c4f41d7e81a65f80b Mon Sep 17 00:00:00 2001
From: nmlgc <nmlgc@nmlgc.net>
Date: Tue, 17 Feb 2015 13:16:08 +0100
Subject: [PATCH] [C decompilation] ZUNSOFT.COM, all of it

And, of course, it recompiles into the exact binary ZUN shipped in 1997.
Success! This project is so going to happen now.
---
 build16b.bat     |  14 +-
 build32b.bat     |   1 -
 th01/zunsoft.c   | 254 ++++++++++++++
 th01_zunsoft.asm | 835 -----------------------------------------------
 4 files changed, 267 insertions(+), 837 deletions(-)
 create mode 100644 th01/zunsoft.c
 delete mode 100644 th01_zunsoft.asm

diff --git a/build16b.bat b/build16b.bat
index 44137934..c532acfa 100644
--- a/build16b.bat
+++ b/build16b.bat
@@ -4,13 +4,20 @@ echo If this fails or shows other weird behavior, run BUILD16B separately in DOS
 REM (Yes, we don't use %0%, as it actually has to be %0 on DOS. Just spelling
 REM out the name saves us that trouble.)
 
+set ReC98_CFLAGS=-Ilibs\master.lib\
+set ReC98_LFLAGS=-Lbin\
 set ReC98_LINK=tlink
 
 %ReC98_LINK% 1>NUL 2>NUL
 if errorlevel 9009 goto no_tlink
 if errorlevel 216 goto 64_bit
 
-%ReC98_LINK% /t bin\th01\zunsoft.obj
+tcc 1>NUL 2>NUL
+if errorlevel 9009 goto no_tcc
+if errorlevel 216 goto 64_bit
+
+tcc -lt -mt %ReC98_CFLAGS% %ReC98_LFLAGS% -O -a2 -nbin\th01\ th01\zunsoft.c masters.lib
+
 %ReC98_LINK% bin\th01\op.obj
 %ReC98_LINK% bin\th01\reiiden.obj
 %ReC98_LINK% bin\th01\fuuin.obj
@@ -39,8 +46,13 @@ goto eof
 echo You're running a 64-bit OS. Run BUILD16B.BAT separately in DOSBox instead.
 goto eof
 
+:no_tcc
+echo Could not find TCC.
+goto tc4j_bin
 :no_tlink
 echo Could not find TLINK.
+goto tc4j_bin
+:tc4j_bin
 echo Please make sure that the BIN directory of Turbo C++ 4.0J is in your PATH.
 goto eof
 
diff --git a/build32b.bat b/build32b.bat
index 410992ef..e5cc7200 100644
--- a/build32b.bat
+++ b/build32b.bat
@@ -8,7 +8,6 @@ for /L %%i in (1,1,5) do mkdir bin\th0%%i 2>NUL
 %ReC98_ASM% 1>NUL 2>NUL
 if errorlevel 9009 goto no_tasm32
 
-%ReC98_ASM% th01_zunsoft.asm bin\th01\zunsoft.obj
 %ReC98_ASM% th01_op.asm bin\th01\op.obj
 %ReC98_ASM% th01_reiiden.asm bin\th01\reiiden.obj
 %ReC98_ASM% th01_fuuin.asm bin\th01\fuuin.obj
diff --git a/th01/zunsoft.c b/th01/zunsoft.c
new file mode 100644
index 00000000..cf3588c7
--- /dev/null
+++ b/th01/zunsoft.c
@@ -0,0 +1,254 @@
+/* ReC98
+ * -----
+ * ZUN Soft logo used in TH01, TH02 and TH03
+ */
+
+#include <master.h>
+
+#define CIRCLE_COUNT 4
+#define STAR_COUNT 50
+
+const char LOGO_FILENAME[] = "touhou.dat";
+static char CIRCLE_COLORS[] = {4, 3, 2, 1};
+
+char page_write;
+char page_show;
+char tone;
+char logo_num;
+char wave_len;
+char wave_phase;
+char wave_amp;
+Point circle_pos[CIRCLE_COUNT];
+Point star_pos[STAR_COUNT];
+int frame;
+int circle_speed_x[CIRCLE_COUNT];
+int circle_speed_y[CIRCLE_COUNT];
+char star_angle;
+unsigned char star_speed[STAR_COUNT];
+
+void graph_clear_both(void)
+{
+	graph_accesspage(1);
+	graph_clear();
+	graph_accesspage(0);
+	graph_clear();
+	graph_showpage(0);
+}
+
+void zunsoft_init(void)
+{
+	mem_assign_all();
+	graph_start();
+	key_beep_off();
+	text_systemline_hide();
+	text_cursor_hide();
+	egc_start();
+	graph_clear_both();
+	text_clear();
+	page_write = 0;
+	page_show = 1;
+	grc_setclip(96, 100, 543, 299);
+	graph_hide();
+	super_entry_bfnt(LOGO_FILENAME);
+	palette_show();
+	palette_black();
+	graph_show();
+}
+
+void zunsoft_exit(void)
+{
+	super_free();
+	graph_clear_both();
+	mem_unassign();
+	text_clear();
+	egc_start();
+}
+
+void pascal cossin_times(int *cos, int *sin, unsigned char angle, int x)
+{
+	*cos = (x * (long)Cos8(angle)) >> 8;
+	*sin = (x * (long)Sin8(angle)) >> 8;
+}
+
+void objects_setup(void)
+{
+	int i;
+
+	circle_pos[0].x = 128;	circle_speed_x[0] = -8;
+	circle_pos[0].y = 320;	circle_speed_y[0] = 8;
+
+	circle_pos[1].x = 256;	circle_speed_x[1] = -8;
+	circle_pos[1].y = 240;	circle_speed_y[1] = 8;
+
+	circle_pos[2].x = 384;	circle_speed_x[2] = -8;
+	circle_pos[2].y = 160;	circle_speed_y[2] = 8;
+
+	circle_pos[3].x = 512;	circle_speed_x[3] = -8;
+	circle_pos[3].y = 80;	circle_speed_y[3] = 8;
+
+	frame = 0;
+	tone = 0;
+	logo_num = 0;
+	wave_len = 23;
+	wave_phase = 0;
+	wave_amp = 0;
+
+	for(i = 0; i < STAR_COUNT; i++) {
+		star_pos[i].x = rand() % 640;
+		star_pos[i].y = rand() % 400;
+		star_speed[i] = (rand() % 32) + 6;
+	}
+	star_angle = 64;
+}
+
+void circles_render_and_update(void)
+{
+	int i = CIRCLE_COUNT - 1;
+	while(i >= 0) {
+		grcg_setcolor(GC_RMW, CIRCLE_COLORS[i]);
+		grcg_circlefill(circle_pos[i].x, circle_pos[i].y, 96);
+
+		circle_pos[i].x += circle_speed_x[i];
+		circle_pos[i].y += circle_speed_y[i];
+		if(circle_pos[i].x <= 32 || circle_pos[i].x > 607) {
+			circle_speed_x[i] *= -1;
+		}
+		if(circle_pos[i].y <= 32 || circle_pos[i].y > 367) {
+			circle_speed_y[i] *= -1;
+		}
+		i--;
+	}
+	grcg_off();
+}
+
+void stars_render_and_update(void)
+{
+	int i;
+	grcg_setcolor(GC_RMW, 5);
+	for(i = 0; i < STAR_COUNT; i++) {
+		int cos, sin;
+
+		grcg_pset(star_pos[i].x, star_pos[i].y);
+
+		cossin_times(&cos, &sin, star_angle, star_speed[i]);
+		star_pos[i].x += cos;
+		star_pos[i].y += sin;
+		if(star_pos[i].x < 0) {
+			star_pos[i].x += 640;
+		} else if(star_pos[i].x >= 640) {
+			star_pos[i].x -= 640;
+		}
+		if(star_pos[i].y < 0) {
+			star_pos[i].y += 400;
+		} else if(star_pos[i].y >= 400) {
+			star_pos[i].y -= 400;
+		}
+	}
+	star_angle++;
+	grcg_off();
+}
+
+void wait(void)
+{
+	do {
+		__asm out 0x5F, al
+		__asm in  al, 0xA0
+	} while((_AL & 0x20) != 0);
+	do {
+		__asm out 0x5F, al
+		__asm in  al, 0xA0
+	} while((_AL & 0x20) == 0);
+}
+
+void logo_render_and_update(void)
+{
+	if(frame < 50) {
+		return;
+	}
+	if(frame < 90) {
+		if(frame == 55 || frame == 60 || frame == 65) {
+			logo_num += 2;
+		}
+		super_put_8(256, 192, logo_num+0);
+		super_put_8(320, 192, logo_num+1);
+	} else if(frame < 110) {
+		super_wave_put(256, 192, logo_num+0, wave_len, wave_amp, wave_phase);
+		super_wave_put(320, 192, logo_num+1, wave_len, wave_amp, wave_phase);
+		wave_len--;
+		wave_phase += 4;
+		wave_amp += 4;
+	} else if(frame < 130) {
+		if(frame == 110) {
+			logo_num += 2;
+		}
+		super_wave_put(256, 192, logo_num+0, wave_len, wave_amp, wave_phase);
+		super_wave_put(320, 192, logo_num+1, wave_len, wave_amp, wave_phase);
+		wave_len++;
+		wave_phase += 4;
+		wave_amp -= 4;
+	} else if(frame < 170) {
+		if(frame == 155 || frame == 160 || frame == 165) {
+			logo_num += 2;
+		}
+		super_put_8(256, 192, logo_num+0);
+		super_put_8(320, 192, logo_num+1);
+	}
+}
+
+void main(void)
+{
+	int keygroup, quit;
+	// Do some setup if we are running on a PC-9821
+	__asm {
+		xor  ax, ax
+		mov  es, ax
+		test byte ptr es:0x45C, 0x40
+		jz   hw_setup_done
+		mov  al, 0x7
+		out  0x6a, al
+		mov  al, 0x20
+		out  0x6a, al
+		mov  al, 0x6
+		out  0x6a, al
+		// Activate all graphics hardware in 16-color mode
+		and  byte ptr es:0x54d, 0x7f
+hw_setup_done:
+	}
+	zunsoft_init();
+	objects_setup();
+	while(1) {
+		if(frame > 180) {
+			if(tone <= 0) {
+				break;
+			}
+			palette_settone(tone -= 2);
+		} else if(tone < 100) {
+			palette_settone(tone += 2);
+		}
+
+		grcg_setcolor(GC_RMW, 0);
+		grcg_byteboxfill_x(12, 100, 67, 299);
+		stars_render_and_update();
+		circles_render_and_update();
+		logo_render_and_update();
+		wait();
+		wait();
+		__asm {
+			mov al, page_write
+			mov page_show, al
+			out 0xa4, al
+			xor page_write, 1
+			mov al, page_write
+			out 0xa6, al
+		}
+		quit = 0;
+		for(keygroup = 0; keygroup < 8; keygroup++) {
+			quit |= key_sense(keygroup);
+		}
+		if(quit) {
+			break;
+		}
+		frame++;
+	};
+	zunsoft_exit();
+}
diff --git a/th01_zunsoft.asm b/th01_zunsoft.asm
deleted file mode 100644
index e55c0449..00000000
--- a/th01_zunsoft.asm
+++ /dev/null
@@ -1,835 +0,0 @@
-;
-; +-------------------------------------------------------------------------+
-; |   This file has been generated by The Interactive Disassembler (IDA)    |
-; |        Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com>           |
-; +-------------------------------------------------------------------------+
-;
-; Input	MD5   :	DE5454973591EBD937B11452A8B4882D
-
-; File Name   :	th01/ZUNSOFT.COM
-; Format      :	MS-DOS COM-file
-; Base Address:	0h Range: 100h-2870h Loaded length: 2770h
-; OS type	  :  MS	DOS
-; Application type:  Executable	16bit
-
-		.286 ; Force the .model directive to create 16-bit default segments...
-		.model tiny
-		__TINY__ equ 1
-		.386 ; ... then switch to what we actually need.
-		; And yes, we can't move this to an include file for some reason.
-
-include ReC98.inc
-include th01/th01.asm
-
-CIRCLE_COUNT = 4
-STAR_COUNT = 50
-
-; ===========================================================================
-
-; Segment type:	Pure code
-_TEXT		segment	word public 'CODE' use16
-		assume cs:_TEXT
-		org 100h
-		assume es:nothing, ss:_TEXT, ds:_TEXT, fs:nothing, gs:nothing
-
-include libs/BorlandC/c0.asm
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_367		proc near
-		push	bp
-		mov	bp, sp
-		mov	dx, 0A6h
-		mov	al, 1
-		out	dx, al
-		call	graph_clear
-		mov	dx, 0A6h
-		mov	al, 0
-		out	dx, al
-		call	graph_clear
-		mov	dx, 0A4h
-		mov	al, 0
-		out	dx, al
-		pop	bp
-		retn
-sub_367		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_384		proc near
-		push	bp
-		mov	bp, sp
-		call	mem_assign_all
-		call	graph_start
-		call	key_beep_off
-		call	text_systemline_hide
-		call	text_cursor_hide
-		call	egc_start
-		call	sub_367
-		call	text_clear
-		mov	page_write, 0
-		mov	page_show, 1
-		call	grc_setclip pascal, 96, 100, 543, 299
-		call	graph_hide
-		call	super_entry_bfnt pascal, offset aTouhou_dat
-		call	palette_show
-		mov	PaletteTone, 0
-		call	palette_show
-		call	graph_show
-		pop	bp
-		retn
-sub_384		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_3D0		proc near
-		push	bp
-		mov	bp, sp
-		call	super_free
-		call	sub_367
-		call	mem_unassign
-		call	text_clear
-		call	egc_start
-		pop	bp
-		retn
-sub_3D0		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_3E4		proc near
-
-arg_0		= word ptr  4
-arg_2		= byte ptr  6
-arg_4		= word ptr  8
-arg_6		= word ptr  0Ah
-
-		push	bp
-		mov	bp, sp
-		push	si
-		push	di
-		mov	si, [bp+arg_6]
-		mov	di, [bp+arg_4]
-		mov	ax, [bp+arg_0]
-		cwd
-		mov	bl, [bp+arg_2]
-		mov	bh, 0
-		and	bx, 0FFh
-		add	bx, bx
-		push	ax
-		mov	ax, _CosTable8[bx]
-		push	dx
-		cwd
-		pop	cx
-		pop	bx
-		call	N_LXMUL@
-		mov	cl, 8
-		call	N_LXRSH@
-		mov	[si], ax
-		mov	ax, [bp+arg_0]
-		cwd
-		mov	bl, [bp+arg_2]
-		mov	bh, 0
-		and	bx, 0FFh
-		add	bx, bx
-		push	ax
-		mov	ax, _SinTable8[bx]
-		push	dx
-		cwd
-		pop	cx
-		pop	bx
-		call	N_LXMUL@
-		mov	cl, 8
-		call	N_LXRSH@
-		mov	[di], ax
-		pop	di
-		pop	si
-		pop	bp
-		retn	8
-sub_3E4		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_439		proc near
-		push	bp
-		mov	bp, sp
-		push	si
-		mov	(circle_pos[0 * size Point]).x, 128
-		mov	circle_speed_x[0*2], -8
-		mov	(circle_pos[0 * size Point]).y, 320
-		mov	circle_speed_y[0*2], 8
-		mov	(circle_pos[1 * size Point]).x, 256
-		mov	circle_speed_x[1*2], -8
-		mov	(circle_pos[1 * size Point]).y, 240
-		mov	circle_speed_y[1*2], 8
-		mov	(circle_pos[2 * size Point]).x, 384
-		mov	circle_speed_x[2*2], -8
-		mov	(circle_pos[2 * size Point]).y, 160
-		mov	circle_speed_y[2*2], 8
-		mov	(circle_pos[3 * size Point]).x, 512
-		mov	circle_speed_x[3*2], -8
-		mov	(circle_pos[3 * size Point]).y, 80
-		mov	circle_speed_y[3*2], 8
-		mov	frame, 0
-		mov	tone, 0
-		mov	logo_num, 0
-		mov	wave_len, 23
-		mov	wave_phase, 0
-		mov	byte ptr wave_amp, 0
-		xor	si, si
-		jmp	short loc_4F5
-; ---------------------------------------------------------------------------
-
-loc_4C0:
-		call	IRand
-		mov	bx, 640
-		cwd
-		idiv	bx
-		mov	bx, si
-		shl	bx, 2
-		mov	star_pos[bx].x, dx
-		call	IRand
-		mov	bx, 400
-		cwd
-		idiv	bx
-		mov	bx, si
-		shl	bx, 2
-		mov	star_pos[bx].y, dx
-		call	IRand
-		mov	bx, 32
-		cwd
-		idiv	bx
-		add	dl, 6
-		mov	star_speed[si], dl
-		inc	si
-
-loc_4F5:
-		cmp	si, STAR_COUNT
-		jl	short loc_4C0
-		mov	star_angle, 64
-		pop	si
-
-loc_500:
-		pop	bp
-		retn
-sub_439		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_502		proc near
-		push	bp
-		mov	bp, sp
-		push	si
-		mov	si, CIRCLE_COUNT - 1
-		jmp	loc_5A6
-; ---------------------------------------------------------------------------
-
-loc_50C:
-		push	GC_RMW
-		mov	al, CIRCLE_COLORS[si]
-		cbw
-		push	ax
-		call	grcg_setcolor
-		mov	bx, si
-		shl	bx, 2
-		push	circle_pos[bx].x
-		mov	bx, si
-		shl	bx, 2
-		push	circle_pos[bx].y
-		push	96
-		call	grcg_circlefill
-		mov	bx, si
-		add	bx, bx
-		mov	ax, circle_speed_x[bx]
-		mov	bx, si
-		shl	bx, 2
-		add	circle_pos[bx].x, ax
-		mov	bx, si
-		add	bx, bx
-		mov	ax, circle_speed_y[bx]
-		mov	bx, si
-		shl	bx, 2
-		add	circle_pos[bx].y, ax
-		mov	bx, si
-		shl	bx, 2
-		cmp	circle_pos[bx].x, 32
-		jle	short loc_56A
-		mov	bx, si
-		shl	bx, 2
-		cmp	circle_pos[bx].x, 607
-		jle	short loc_57B
-
-loc_56A:
-		mov	bx, si
-		add	bx, bx
-		mov	dx, -1
-		mov	ax, circle_speed_x[bx]
-		imul	dx
-		mov	circle_speed_x[bx], ax
-
-loc_57B:
-		mov	bx, si
-		shl	bx, 2
-		cmp	circle_pos[bx].y, 32
-		jle	short loc_594
-		mov	bx, si
-		shl	bx, 2
-		cmp	circle_pos[bx].y, 367
-		jle	short loc_5A5
-
-loc_594:
-		mov	bx, si
-		add	bx, bx
-		mov	dx, -1
-		mov	ax, circle_speed_y[bx]
-		imul	dx
-		mov	circle_speed_y[bx], ax
-
-loc_5A5:
-		dec	si
-
-loc_5A6:
-		or	si, si
-		jl	short loc_5AD
-		jmp	loc_50C
-; ---------------------------------------------------------------------------
-
-loc_5AD:
-		mov	dx, 7Ch
-		mov	al, GC_OFF
-		out	dx, al
-		pop	si
-		pop	bp
-		retn
-sub_502		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_5B6		proc near
-
-var_4		= word ptr -4
-var_2		= word ptr -2
-
-		enter	4, 0
-		push	si
-		call	grcg_setcolor pascal, GC_RMW, 5
-		xor	si, si
-		jmp	loc_66E
-; ---------------------------------------------------------------------------
-
-loc_5C8:
-		mov	bx, si
-		shl	bx, 2
-		push	star_pos[bx].x
-		mov	bx, si
-		shl	bx, 2
-		push	star_pos[bx].y
-		call	grcg_pset
-		lea	ax, [bp+var_2]
-		push	ax
-		lea	ax, [bp+var_4]
-		push	ax
-		push	word ptr star_angle
-		mov	al, star_speed[si]
-		mov	ah, 0
-		push	ax
-		call	sub_3E4
-		mov	bx, si
-		shl	bx, 2
-		mov	ax, [bp+var_2]
-		add	star_pos[bx].x, ax
-		mov	bx, si
-		shl	bx, 2
-		mov	ax, [bp+var_4]
-		add	star_pos[bx].y, ax
-		mov	bx, si
-		shl	bx, 2
-		cmp	star_pos[bx].x, 0
-		jge	short loc_624
-		mov	bx, si
-		shl	bx, 2
-		add	star_pos[bx].x, 640
-		jmp	short loc_63C
-; ---------------------------------------------------------------------------
-
-loc_624:
-		mov	bx, si
-		shl	bx, 2
-		cmp	star_pos[bx].x, 640
-		jl	short loc_63C
-		mov	bx, si
-		shl	bx, 2
-		sub	star_pos[bx].x, 640
-
-loc_63C:
-		mov	bx, si
-		shl	bx, 2
-		cmp	star_pos[bx].y, 0
-		jge	short loc_655
-		mov	bx, si
-		shl	bx, 2
-		add	star_pos[bx].y, 400
-		jmp	short loc_66D
-; ---------------------------------------------------------------------------
-
-loc_655:
-		mov	bx, si
-		shl	bx, 2
-		cmp	star_pos[bx].y, 400
-		jl	short loc_66D
-		mov	bx, si
-		shl	bx, 2
-		sub	star_pos[bx].y, 400
-
-loc_66D:
-		inc	si
-
-loc_66E:
-		cmp	si, STAR_COUNT
-		jge	short loc_676
-		jmp	loc_5C8
-; ---------------------------------------------------------------------------
-
-loc_676:
-		inc	star_angle
-		mov	dx, 7Ch
-		mov	al, GC_OFF
-		out	dx, al
-		pop	si
-		leave
-		retn
-sub_5B6		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_683		proc near
-		push	bp
-		mov	bp, sp
-
-loc_686:
-		out	5Fh, al
-		in	al, 0A0h	; PIC 2	 same as 0020 for PIC 1
-		test	al, 20h
-		jnz	short loc_686
-
-loc_68E:
-		out	5Fh, al
-		in	al, 0A0h	; PIC 2	 same as 0020 for PIC 1
-		test	al, 20h
-		jz	short loc_68E
-		pop	bp
-		retn
-sub_683		endp
-
-
-; =============== S U B	R O U T	I N E =======================================
-
-; Attributes: bp-based frame
-
-sub_698		proc near
-		push	bp
-		mov	bp, sp
-		cmp	frame, 50
-		jge	short loc_6A5
-		jmp	loc_7CB
-; ---------------------------------------------------------------------------
-
-loc_6A5:
-		cmp	frame, 90
-		jge	short loc_6CD
-		cmp	frame, 55
-		jnz	short loc_6B6
-		jmp	loc_7A6
-; ---------------------------------------------------------------------------
-
-loc_6B6:
-		cmp	frame, 60
-		jnz	short loc_6C0
-		jmp	loc_7A6
-; ---------------------------------------------------------------------------
-
-loc_6C0:
-		cmp	frame, 65
-		jz	short loc_6CA
-		jmp	loc_7AE
-; ---------------------------------------------------------------------------
-
-loc_6CA:
-		jmp	loc_7A6
-; ---------------------------------------------------------------------------
-
-loc_6CD:
-		cmp	frame, 110
-		jge	short loc_720
-		push	256
-		push	192
-		mov	al, logo_num
-		cbw
-		push	ax
-		mov	al, wave_len
-		cbw
-		push	ax
-		push	wave_amp
-		mov	al, wave_phase
-		cbw
-		push	ax
-		call	super_wave_put
-		push	320
-		push	192
-		mov	al, logo_num
-		cbw
-		inc	ax
-		push	ax
-		mov	al, wave_len
-		cbw
-		push	ax
-		push	wave_amp
-		mov	al, wave_phase
-		cbw
-		push	ax
-		call	super_wave_put
-		dec	wave_len
-
-loc_711:
-		mov	al, wave_phase
-		add	al, 4
-		mov	wave_phase, al
-		mov	al, byte ptr wave_amp
-		add	al, 4
-		jmp	short loc_781
-; ---------------------------------------------------------------------------
-
-loc_720:
-		cmp	frame, 130
-		jge	short loc_786
-		cmp	frame, 110
-		jnz	short loc_737
-		mov	al, logo_num
-		add	al, 2
-		mov	logo_num, al
-
-loc_737:
-		push	256
-		push	192
-		mov	al, logo_num
-		cbw
-		push	ax
-		mov	al, wave_len
-		cbw
-		push	ax
-		push	wave_amp
-		mov	al, wave_phase
-		cbw
-		push	ax
-		call	super_wave_put
-		push	320
-		push	192
-		mov	al, logo_num
-		cbw
-		inc	ax
-		push	ax
-		mov	al, wave_len
-		cbw
-		push	ax
-		push	wave_amp
-		mov	al, wave_phase
-		cbw
-		push	ax
-		call	super_wave_put
-		inc	wave_len
-		mov	al, wave_phase
-		add	al, 4
-		mov	wave_phase, al
-		mov	al, byte ptr wave_amp
-		add	al, -4
-
-loc_781:
-		mov	byte ptr wave_amp, al
-		pop	bp
-		retn
-; ---------------------------------------------------------------------------
-
-loc_786:
-		cmp	frame, 170
-		jge	short loc_7CB
-		cmp	frame, 155
-		jz	short loc_7A6
-		cmp	frame, 160
-		jz	short loc_7A6
-		cmp	frame, 165
-		jnz	short loc_7AE
-
-loc_7A6:
-		mov	al, logo_num
-		add	al, 2
-		mov	logo_num, al
-
-loc_7AE:
-		push	256
-		push	192
-		mov	al, logo_num
-		cbw
-		push	ax
-		call	super_put_8
-		push	320
-		push	192
-		mov	al, logo_num
-		cbw
-		inc	ax
-		push	ax
-		call	super_put_8
-
-loc_7CB:
-		pop	bp
-		retn
-sub_698		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
-
-_argc		= word ptr  4
-_argv		= word ptr  6
-_envp		= word ptr  8
-
-		push	bp
-		mov	bp, sp
-		push	si
-		push	di
-		xor	ax, ax
-		mov	es, ax
-		test	byte ptr es:[045Ch], 40h
-		jz	short loc_7F0
-		mov	al, 7
-		out	6Ah, al		; PC-98	GDC (6a):
-					;
-		mov	al, 20h
-		out	6Ah, al		; PC-98	GDC (6a):
-					;
-		mov	al, 6
-		out	6Ah, al		; PC-98	GDC (6a):
-					;
-		and	byte ptr es:[54Dh], 7Fh
-
-loc_7F0:
-		call	sub_384
-		call	sub_439
-
-loc_7F6:
-		cmp	frame, 180
-		jle	short loc_80C
-		cmp	tone, 0
-		jle	short loc_873
-		mov	al, tone
-		add	al, -2
-		jmp	short loc_818
-; ---------------------------------------------------------------------------
-
-loc_80C:
-		cmp	tone, 100
-		jge	short loc_822
-		mov	al, tone
-		add	al, 2
-
-loc_818:
-		mov	tone, al
-		cbw
-		mov	PaletteTone, ax
-		call	palette_show
-
-loc_822:
-		call	grcg_setcolor pascal, GC_RMW, 0
-		call	grcg_byteboxfill_x pascal, 12, 100, 67, 299
-		call	sub_5B6
-		call	sub_502
-		call	sub_698
-		call	sub_683
-		call	sub_683
-		mov	al, page_write
-		mov	page_show, al
-		out	0A4h, al
-		xor	page_write, 1
-		mov	al, page_write
-		out	0A6h, al
-		xor	di, di
-		xor	si, si
-		jmp	short loc_864
-; ---------------------------------------------------------------------------
-
-loc_85D:
-		push	si
-		call	key_sense
-		or	di, ax
-		inc	si
-
-loc_864:
-		cmp	si, 8
-		jl	short loc_85D
-		or	di, di
-		jnz	short loc_873
-		inc	frame
-		jmp	short loc_7F6
-; ---------------------------------------------------------------------------
-
-loc_873:
-		call	sub_3D0
-		pop	di
-		pop	si
-		pop	bp
-		retn
-_main		endp
-
-include libs/master.lib/text_clear.asm
-include libs/master.lib/txesc.asm
-include libs/master.lib/graph_400line.asm
-include libs/master.lib/graph_clear.asm
-include libs/master.lib/graph_hide.asm
-include libs/master.lib/graph_show.asm
-include libs/master.lib/graph_start.asm
-include libs/master.lib/palette_show.asm
-include libs/master.lib/palette_init.asm
-include libs/master.lib/keybeep.asm
-include libs/master.lib/key_sense.asm
-include libs/master.lib/bfnt_header_read.asm
-include libs/master.lib/bfnt_entry_pat.asm
-include libs/master.lib/bfnt_header_analysis.asm
-include libs/master.lib/bfnt_palette_set.asm
-include libs/master.lib/dos_close.asm
-include libs/master.lib/dos_ropen.asm
-include libs/master.lib/super_entry_bfnt.asm
-include libs/master.lib/super_cancel_pat.asm
-include libs/master.lib/super_entry_pat.asm
-include libs/master.lib/super_put_8.asm
-include libs/master.lib/super_free.asm
-include libs/master.lib/super_entry_at.asm
-include libs/master.lib/super_wave_put.asm
-include libs/master.lib/smem_wget.asm
-include libs/master.lib/smem_release.asm
-include libs/master.lib/memheap.asm
-include libs/master.lib/mem_assign.asm
-include libs/master.lib/mem_unassign.asm
-include libs/master.lib/grc_setclip.asm
-include libs/master.lib/grcg_hline.asm
-include libs/master.lib/grcg_setcolor.asm
-include libs/master.lib/grcg_pset.asm
-include libs/master.lib/egc.asm
-include libs/master.lib/grcg_circlefill.asm
-include libs/master.lib/grcg_byteboxfill_x.asm
-include libs/master.lib/random.asm
-include libs/BorlandC/_abort.asm
-include libs/BorlandC/atexit.asm
-include libs/BorlandC/errormsg.asm
-include libs/BorlandC/exit.asm
-include libs/BorlandC/H_LRSH.ASM
-include libs/BorlandC/ioerror.asm
-include libs/BorlandC/_isatty.asm
-include libs/BorlandC/lseek.asm
-include libs/BorlandC/N_LXMUL.ASM
-include libs/BorlandC/setupio.asm
-include libs/BorlandC/brk.asm
-include libs/BorlandC/nearheap.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
-
-; ---------------------------------------------------------------------------
-		db 0
-		db    0
-		db    0
-include libs/BorlandC/c0[data].asm
-aTOUHOU_DAT	db 'touhou.dat',0
-CIRCLE_COLORS	db 4, 3, 2, 1, 0
-include libs/master.lib/version[data].asm
-include libs/master.lib/grp[data].asm
-include libs/master.lib/pal[data].asm
-include libs/master.lib/bfnt_id[data].asm
-include libs/master.lib/dos_ropen[data].asm
-include libs/master.lib/super_entry_bfnt[data].asm
-include libs/master.lib/superpa[data].asm
-include libs/master.lib/mem[data].asm
-include libs/master.lib/clip[data].asm
-include libs/master.lib/edges[data].asm
-include libs/master.lib/sin8[data].asm
-include libs/master.lib/sin7[data].asm
-include libs/master.lib/rand[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/setvbuf[data].asm
-include libs/BorlandC/sysnerr[data].asm
-
-InitStart	label byte
-include libs/BorlandC/setupio[initdata].asm
-InitEnd	label byte
-
-ExitStart	label byte
-ExitEnd	label byte
-
-bdata@	label byte
-; TODO: Missing clip[bss].asm (8 bytes) somewhere in there...
-page_write	db ?
-page_show	db ?
-tone	db ?
-logo_num	db ?
-wave_len	db ?
-wave_phase	db ?
-wave_amp	dw ?
-circle_pos	Point CIRCLE_COUNT dup(<?>)
-star_pos	Point STAR_COUNT dup(<?>)
-frame		dw ?
-circle_speed_x	dw CIRCLE_COUNT dup(?)
-circle_speed_y	dw CIRCLE_COUNT dup(?)
-star_angle	db ?
-star_speed	db STAR_COUNT dup(?)
-		db    ?	;
-include libs/master.lib/pal[bss].asm
-include libs/master.lib/superpa[bss].asm
-include libs/master.lib/super_wave_put[bss].asm
-include libs/master.lib/mem[bss].asm
-		dd ?
-		dd ?
-		dd ?
-		dd ?
-include libs/BorlandC/atexit[bss].asm
-edata@	label byte
-
-_TEXT		ends
-
-
-		end startx