;
; +-------------------------------------------------------------------------+
; |   This file has been generated by The Interactive Disassembler (IDA)    |
; |        Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com>           |
; +-------------------------------------------------------------------------+
;
; Input	MD5   :	AD4E53E1F1A042FBDA82F86B9BD6728C

; File Name   :	th01/OP.EXE
; Format      :	MS-DOS executable (EXE)
; Base Address:	0h Range: 0h-14040h Loaded length: 13418h
; Entry	Point :	0:0
; OS type	  :  MS	DOS
; Application type:  Executable	16bit

		.286 ; Force the .model directive to create 16-bit default segments...
		.model large
		.386 ; ... then switch to what we actually need.
		; And yes, we can't move this to an include file for some reason.

BINARY = 'O'

include ReC98.inc
include th01/th01.inc

	option emulator

	extern @$bdla$qnv:proc
	extern @$bnwa$qui:proc
	extern FTOL@:proc
	extern SCOPY@:proc
	extern __mbcjmstojis:proc
	extern __mscjmstojis:proc
	extern __setargv__:proc ; main() needs both to be set
	extern __setenvp__:proc
	extern _atol:proc
	extern _close:proc
	extern _execl:proc
	extern _exit:proc
	extern _farfree:proc
	extern _farmalloc:proc
	extern _fclose:proc
	extern _filelength:proc
	extern _fopen:proc
	extern _fputc:proc
	extern _fputs:proc
	extern _fread:proc
	extern _int86:proc
	extern _intdosx:proc
	extern _memcmp:proc
	extern _open:proc
	extern _printf:proc
	extern _segread:proc
	extern _strcmp:proc
	extern _toupper:proc
	extern _vsprintf:proc

; ===========================================================================

; Segment type:	Pure code
_TEXT		segment	word public 'CODE' use16
		assume cs:_TEXT
		assume es:nothing, ds:DGROUP, fs:nothing, gs:nothing

include libs/piloadc/piloadc.asm
include libs/master.lib/graph_400line.asm
include libs/master.lib/graph_clear.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/respal_exist.asm
include libs/master.lib/respal_free.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_seek.asm
include libs/master.lib/dos_free.asm
include libs/master.lib/keystart.asm
include libs/master.lib/keybios.asm
include libs/master.lib/dos_ropen.asm
include libs/master.lib/egc.asm
include libs/master.lib/random.asm
_TEXT		ends

; ---------------------------------------------------------------------------
; ===========================================================================

; Segment type:	Pure code
op_01_TEXT	segment	byte public 'CODE' use16
		assume cs:op_01_TEXT
		;org 4
		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
		enter	2, 0
		push	si
		push	di
		xor	si, si
		jmp	short loc_A1E5
; ---------------------------------------------------------------------------

loc_A1CE:
		push	190h
		call	@$bnwa$qui
		pop	cx
		mov	bx, si
		shl	bx, 2
		mov	[bx+118Eh], dx
		mov	[bx+118Ch], ax
		inc	si

loc_A1E5:
		cmp	si, 50h	; 'P'
		jl	short loc_A1CE
		call	_grcg_setcolor_tdw stdcall, 4
		push	1
		call	_graph_accesspage_func
		add	sp, 4
		xor	si, si
		jmp	short loc_A22A
; ---------------------------------------------------------------------------

loc_A1FF:
		xor	di, di
		mov	[bp-2],	si
		jmp	short loc_A223
; ---------------------------------------------------------------------------

loc_A206:
		les	bx, _VRAM_PLANE_B
		add	bx, [bp-2]
		mov	al, es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+118Ch]
		add	bx, di
		mov	es:[bx], al
		inc	di
		add	word ptr [bp-2], 50h ; 'P'

loc_A223:
		cmp	di, 190h
		jl	short loc_A206
		inc	si

loc_A22A:
		cmp	si, 50h	; 'P'
		jl	short loc_A1FF
		call	_grcg_off_func
		push	0
		call	_graph_accesspage_func
		pop	cx
		pop	di
		pop	si
		leave
		retf

; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A240	proc far

_ptr		= byte ptr -12h
var_B		= byte ptr -0Bh
var_A		= byte ptr -0Ah
var_9		= byte ptr -9
var_8		= byte ptr -8
stream		= dword	ptr -6
var_1		= byte ptr -1

		enter	12h, 0
		mov	[bp+var_1], 0
		push	ds
		push	offset aRB	; "rb"
		push	ds
		push	offset path	; "reiiden.cfg"
		call	_fopen
		add	sp, 8
		mov	word ptr [bp+stream+2],	dx
		mov	word ptr [bp+stream], ax
		or	ax, dx
		jnz	short loc_A266

loc_A262:
		mov	[bp+var_1], 1

loc_A266:
		cmp	[bp+var_1], 0
		jnz	short loc_A2CE
		pushd	[bp+stream] ; stream
		push	0B0001h	; size
		push	ss
		lea	ax, [bp+_ptr]
		push	ax		; ptr
		call	_fread
		add	sp, 0Ch
		push	7		; n
		push	ds
		push	offset s	; "REIIDEN"
		push	ss
		lea	ax, [bp+_ptr]
		push	ax		; s1
		call	_memcmp
		add	sp, 0Ah
		or	ax, ax
		jz	short loc_A2A8
		pushd	[bp+stream] ; stream
		call	_fclose
		add	sp, 4
		jmp	short loc_A262
; ---------------------------------------------------------------------------

loc_A2A8:
		mov	al, [bp+var_B]
		mov	byte ptr word_12320, al
		mov	al, [bp+var_A]
		mov	byte ptr word_12320+1, al
		mov	al, [bp+var_9]
		mov	byte ptr word_12322, al
		mov	al, [bp+var_8]
		mov	byte ptr word_12322+1, al
		pushd	[bp+stream] ; stream
		call	_fclose
		add	sp, 4
		leave
		retf
; ---------------------------------------------------------------------------

loc_A2CE:
		mov	byte ptr word_12320, 1
		mov	byte ptr word_12320+1, 1
		mov	byte ptr word_12322, 1
		mov	byte ptr word_12322+1, 2
		leave
		retf
sub_A240	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A2E4	proc far

stream		= dword	ptr -6
var_1		= byte ptr -1

		enter	6, 0
		mov	[bp+var_1], 0
		push	ds
		push	offset aWb	; "wb"
		push	ds
		push	offset path	; "reiiden.cfg"
		call	_fopen
		add	sp, 8
		mov	word ptr [bp+stream+2],	dx
		mov	word ptr [bp+stream], ax
		or	ax, dx
		jnz	short loc_A30A
		mov	[bp+var_1], 1

loc_A30A:
		cmp	[bp+var_1], 0
		jnz	short locret_A361
		pushd	[bp+stream] ; stream
		push	ds
		push	offset s	; "REIIDEN"
		call	_fputs
		pushd	[bp+stream] ; stream
		mov	al, byte ptr word_12320
		cbw
		push	ax		; c
		call	_fputc
		pushd	[bp+stream] ; stream
		mov	al, byte ptr word_12320+1
		cbw
		push	ax		; c
		call	_fputc
		pushd	[bp+stream] ; stream
		mov	al, byte ptr word_12322
		cbw
		push	ax		; c
		call	_fputc
		pushd	[bp+stream] ; stream
		mov	al, byte ptr word_12322+1
		cbw
		push	ax		; c
		call	_fputc
		pushd	[bp+stream] ; stream
		call	_fclose
		add	sp, 24h

locret_A361:
		leave
		retf
sub_A2E4	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A363	proc far

var_30		= byte ptr -30h
var_2F		= byte ptr -2Fh
outregs		= REGS ptr -20h
inregs		= REGS ptr -10h

		enter	30h, 0
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 7
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 8
		push	ss
		lea	ax, [bp+var_30]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 14h
		test	byte ptr [bp+outregs+1], 4
		jnz	short loc_A3A8
		test	[bp+var_2F], 8
		jz	short loc_A3C9

loc_A3A8:
		cmp	word_12334, 0
		jnz	short loc_A3CF
		mov	al, byte_12325
		dec	al
		mov	byte_12325, al
		cbw
		or	ax, ax
		jge	short loc_A3C1
		mov	byte_12325, 3

loc_A3C1:
		mov	word_12334, 1
		jmp	short loc_A3CF
; ---------------------------------------------------------------------------

loc_A3C9:
		mov	word_12334, 0

loc_A3CF:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 9
		push	ss
		lea	ax, [bp+var_30]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 20h
		jnz	short loc_A3F7
		test	[bp+var_2F], 8
		jz	short loc_A419

loc_A3F7:
		cmp	word_12336, 0
		jnz	short loc_A41F
		mov	al, byte_12325
		inc	al
		mov	byte_12325, al
		cbw
		cmp	ax, 3
		jle	short loc_A411
		mov	byte_12325, 0

loc_A411:
		mov	word_12336, 1
		jmp	short loc_A41F
; ---------------------------------------------------------------------------

loc_A419:
		mov	word_12336, 0

loc_A41F:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 3
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 10h
		jz	short loc_A448
		mov	byte_12327, 1
		jmp	short loc_A44D
; ---------------------------------------------------------------------------

loc_A448:
		mov	byte_12327, 0

loc_A44D:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 5
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 2
		jz	short loc_A476
		mov	byte_12328, 1
		jmp	short loc_A47B
; ---------------------------------------------------------------------------

loc_A476:
		mov	byte_12328, 0

loc_A47B:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 0
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 1
		jz	short loc_A4A4
		mov	byte_12329, 1
		leave
		retf
; ---------------------------------------------------------------------------

loc_A4A4:
		mov	byte_12329, 0
		leave
		retf
sub_A363	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A4AB	proc far

var_30		= byte ptr -30h
var_2F		= byte ptr -2Fh
outregs		= REGS ptr -20h
inregs		= REGS ptr -10h

		enter	30h, 0
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 7
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 8
		push	ss
		lea	ax, [bp+var_30]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 14h
		test	byte ptr [bp+outregs+1], 4
		jnz	short loc_A4F0
		test	[bp+var_2F], 8
		jz	short loc_A512

loc_A4F0:
		cmp	word_12339, 0
		jnz	short loc_A518
		mov	al, byte_12325
		dec	al
		mov	byte_12325, al
		cbw
		or	ax, ax
		jge	short loc_A50A
		mov	al, byte_12338
		mov	byte_12325, al

loc_A50A:
		mov	word_12339, 1
		jmp	short loc_A518
; ---------------------------------------------------------------------------

loc_A512:
		mov	word_12339, 0

loc_A518:
		test	byte ptr [bp+outregs+1], 8
		jnz	short loc_A524
		test	[bp+var_2F], 40h
		jz	short loc_A52B

loc_A524:
		mov	byte_12326, 1
		jmp	short loc_A530
; ---------------------------------------------------------------------------

loc_A52B:
		mov	byte_12326, 0

loc_A530:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 9
		push	ss
		lea	ax, [bp+var_30]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 20h
		jnz	short loc_A558
		test	[bp+var_2F], 8
		jz	short loc_A57F

loc_A558:
		cmp	word_1233B, 0
		jnz	short loc_A585
		mov	al, byte_12325
		inc	al
		mov	byte_12325, al
		cbw
		mov	dl, byte_12338
		mov	dh, 0
		cmp	ax, dx
		jle	short loc_A577
		mov	byte_12325, 0

loc_A577:
		mov	word_1233B, 1
		jmp	short loc_A585
; ---------------------------------------------------------------------------

loc_A57F:
		mov	word_1233B, 0

loc_A585:
		test	byte ptr [bp+outregs+1], 10h
		jnz	short loc_A591
		test	[bp+var_2F], 1
		jz	short loc_A598

loc_A591:
		mov	byte_1232B, 1
		jmp	short loc_A59D
; ---------------------------------------------------------------------------

loc_A598:
		mov	byte_1232B, 0

loc_A59D:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 3
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 10h
		jz	short loc_A5C6
		mov	byte_12327, 1
		jmp	short loc_A5CB
; ---------------------------------------------------------------------------

loc_A5C6:
		mov	byte_12327, 0

loc_A5CB:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 5
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 2
		jz	short loc_A5F4
		mov	byte_12328, 1
		jmp	short loc_A5F9
; ---------------------------------------------------------------------------

loc_A5F4:
		mov	byte_12328, 0

loc_A5F9:
		mov	byte ptr [bp+inregs+1],	4
		mov	byte ptr [bp+inregs], 0
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		test	byte ptr [bp+outregs+1], 1
		jz	short loc_A622
		mov	byte_12329, 1
		leave
		retf
; ---------------------------------------------------------------------------

loc_A622:
		mov	byte_12329, 0
		leave
		retf
sub_A4AB	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A629	proc far

arg_0		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, [bp+arg_0]
		shl	ax, 6
		mov	dx, [bp+arg_0]
		shl	dx, 4
		add	ax, dx
		mov	si, ax
		call	_grcg_setcolor_rmw stdcall, 15
		pop	cx
		xor	di, di
		jmp	short loc_A65C
; ---------------------------------------------------------------------------

loc_A64A:
		les	bx, _VRAM_PLANE_B
		add	bx, si
		mov	dword ptr es:[bx], 0FFFFFFFFh
		inc	di
		add	si, 4

loc_A65C:
		cmp	di, 14h
		jl	short loc_A64A
		call	_grcg_off_func
		pop	di
		pop	si
		pop	bp
		retf
sub_A629	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A66A	proc far

var_192		= byte ptr -192h
var_2		= word ptr -2

		enter	192h, 0
		push	si
		push	di
		mov	[bp+var_2], 0
		xor	si, si
		xor	di, di
		lea	ax, [bp+var_192]
		push	ss
		push	ax
		push	ds
		push	offset unk_1233D
		mov	cx, 190h
		call	SCOPY@
		jmp	short loc_A6F5
; ---------------------------------------------------------------------------

loc_A68D:
		call	_egc_copy_rect_1_to_0 c, 0, si, large (1 shl 16) or RES_X
		call	_egc_copy_rect_1_to_0 c, 0, di, large (1 shl 16) or RES_X

loc_A6AF:
		call	IRand
		mov	bx, 190h
		cwd
		idiv	bx
		mov	si, dx
		cmp	[bp+si+var_192], 0
		jnz	short loc_A6AF
		mov	[bp+si+var_192], 1

loc_A6C8:
		call	IRand
		mov	bx, 190h
		cwd
		idiv	bx
		mov	di, dx
		cmp	[bp+di+var_192], 0
		jnz	short loc_A6C8
		mov	[bp+di+var_192], 1
		push	si
		call	sub_A629
		pop	cx
		push	di
		call	sub_A629
		pop	cx
		push	1
		call	_frame_delay
		pop	cx

loc_A6F5:
		mov	ax, [bp+var_2]
		inc	[bp+var_2]
		cmp	ax, 64h	; 'd'
		jb	short loc_A68D
		push	1
		call	_graph_accesspage_func
		pop	cx
		call	_graph_copy_page_back_to_front
		push	0
		call	_graph_accesspage_func
		pop	cx
		pop	di
		pop	si
		leave
		retf
sub_A66A	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A719	proc far
		push	bp
		mov	bp, sp
		push	ds
		push	offset aReimu_mdt ; "reimu.mdt"
		call	_mdrv2_bgm_load
		add	sp, 4
		call	_mdrv2_bgm_play
		push	1
		call	_graph_accesspage_func
		pop	cx
		call	_grp_put_palette_show c, offset aReiiden2_grp, ds ; "REIIDEN2.grp"
		call	_z_palette_black
		call	_graph_copy_page_back_to_front
		call	_grp_put c, offset aReiiden3_grp, ds ; "REIIDEN3.grp"
		push	0
		call	_graph_accesspage_func
		pop	cx
		call	_z_palette_black_in
		push	64h ; 'd'
		call	_frame_delay
		pop	cx
		call	sub_A66A
		pop	bp
		retf
sub_A719	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A772	proc far
		push	bp
		mov	bp, sp
		push	1
		call	_graph_accesspage_func
		pop	cx
		call	_graph_copy_page_back_to_front
		push	0
		call	_graph_accesspage_func
		pop	cx
		call	_grp_put_colorkey c, offset aOp_win_grp, ds ; "op_win.grp"
		call	_graph_copy_page_back_to_front
		pop	bp
		retf
sub_A772	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A79D	proc far
		push	bp
		mov	bp, sp
		mov	al, byte_1232F
		cbw
		cmp	ax, 1
		jnz	short loc_A7AE
		call	_resident_free

loc_A7AE:
		call	key_end
		pop	bp
		retf
sub_A79D	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A7B5	proc far
		push	bp
		mov	bp, sp
		push	si
		call	sub_A2E4
		pushd	[dword_13418]
		push	word_12322+1
		push	word_12322
		push	word_12320+1
		push	word_12320
		call	_resident_stuff_set
		add	sp, 0Ch
		call	sub_A79D
		call	_mdrv2_bgm_fade_out_nonblock
		call	_game_switch_binary
		mov	al, _mode
		cbw
		cmp	ax, 2
		jnz	short loc_A7FC
		les	bx, _resident
		mov	es:[bx+reiidenconfig_t.mode], 1
		jmp	short loc_A820
; ---------------------------------------------------------------------------

loc_A7FC:
		mov	al, _mode
		cbw
		cmp	ax, 3
		jnz	short loc_A810
		les	bx, _resident
		mov	es:[bx+reiidenconfig_t.mode], 3
		jmp	short loc_A820
; ---------------------------------------------------------------------------

loc_A810:
		cmp	_mode, 0
		jnz	short loc_A820
		les	bx, _resident
		mov	es:[bx+reiidenconfig_t.mode], 0

loc_A820:
		les	bx, _resident
		mov	es:[bx+reiidenconfig_t.route], 0
		mov	es:[bx+reiidenconfig_t.stage], 0
		mov	al, byte ptr word_12322+1
		add	al, 2
		mov	es:[bx+reiidenconfig_t.rem_lives], al
		mov	es:[bx+reiidenconfig_t.p_value], 0
		xor	si, si
		jmp	short loc_A867
; ---------------------------------------------------------------------------

loc_A842:
		mov	ax, si
		add	ax, ax
		les	bx, _resident
		add	bx, ax
		mov	es:[bx+reiidenconfig_t.continues_per_scene], 0
		mov	ax, si
		shl	ax, 2
		mov	bx, word ptr _resident
		add	bx, ax
		mov	es:[bx+reiidenconfig_t.bonus_per_stage], 0
		inc	si

loc_A867:
		cmp	si, 4
		jl	short loc_A842
		les	bx, _resident
		mov	es:[bx+reiidenconfig_t.score_highest], 0
		mov	es:[bx+reiidenconfig_t.continues_total], 0
		mov	es:[bx+reiidenconfig_t.end_flag], 0
		mov	es:[bx+reiidenconfig_t.unused_1], 0
		mov	es:[bx+reiidenconfig_t.snd_need_init], 1
		mov	es:[bx+reiidenconfig_t.bullet_speed], -4
		pushd	0
		push	ds
		push	offset aReiiden_0 ; "reiiden"
		push	ds
		push	offset aReiiden_0 ; "reiiden"
		call	_execl
		add	sp, 0Ch
		pop	si
		pop	bp
		retf
sub_A7B5	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A8AD	proc far
		push	bp
		mov	bp, sp
		call	sub_A2E4
		pushd	[dword_13418]
		push	word_12322+1
		push	word_12322
		push	word_12320+1
		push	word_12320
		call	_resident_stuff_set
		add	sp, 0Ch
		les	bx, _resident
		cmp	es:[bx+reiidenconfig_t.stage], 0
		jnz	short loc_A8E1
		mov	ax, seg	op_01_TEXT
		mov	es, ax
		assume es:op_01_TEXT

loc_A8E1:
		call	sub_A79D
		call	_mdrv2_bgm_fade_out_nonblock
		call	_game_switch_binary
		les	bx, _resident
		assume es:nothing
		mov	es:[bx+reiidenconfig_t.mode], 0
		mov	es:[bx+reiidenconfig_t.snd_need_init], 1
		mov	al, byte ptr word_12322+1
		add	al, 2
		mov	es:[bx+reiidenconfig_t.rem_lives], al
		mov	es:[bx+reiidenconfig_t.unused_1], 0
		mov	es:[bx+reiidenconfig_t.bullet_speed], -4
		mov	es:[bx+reiidenconfig_t.p_value], 0
		pushd	0
		push	ds
		push	offset s	; "REIIDEN"
		push	ds
		push	offset s	; "REIIDEN"
		call	_execl
		add	sp, 0Ch
		pop	bp
		retf
sub_A8AD	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A92C	proc far

arg_0		= word ptr  6

		push	bp
		mov	bp, sp
		mov	ax, [bp+arg_0]
		mov	bx, 70
		cwd
		idiv	bx
		cmp	dx, 50
		jge	short loc_A954
		call	_graph_putsa_fx c, 244, (2Fh shl 16) or 306, offset aVgvhvsb@vjvdvx, ds ; " ＨＩＴ　ＫＥＹ"
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_A954:
		call	_egc_copy_rect_1_to_0 c, large (306 shl 16) or 244, large (16 shl 16) or 128
		pop	bp
		retf
sub_A92C	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A96A	proc far

var_14		= byte ptr -14h
@@y		= word ptr -4
@@x		= word ptr -2
arg_0		= word ptr  6
arg_2		= word ptr  8

		enter	14h, 0
		push	si
		mov	si, [bp+arg_0]
		lea	ax, [bp+var_14]
		push	ss
		push	ax
		push	ds
		push	offset off_124CD
		mov	cx, 10h
		call	SCOPY@
		mov	[bp+@@x], 244
		mov	ax, si
		imul	ax, 14h
		add	ax, 276
		mov	[bp+@@y], ax
		mov	bx, si
		shl	bx, 2
		lea	ax, [bp+var_14]
		add	bx, ax
		pushd	dword ptr ss:[bx]
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax
		push	[bp+@@y]
		push	[bp+@@x]
		call	_graph_putsa_fx
		add	sp, 0Ah
		pop	si
		leave
		retf
sub_A96A	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_A9B9	proc far

var_42		= byte ptr -42h
var_2E		= byte ptr -2Eh
var_1E		= byte ptr -1Eh
var_A		= word ptr -0Ah
var_8		= byte ptr -8
arg_0		= word ptr  6
arg_2		= word ptr  8

		enter	42h, 0
		push	si
		push	di
		mov	si, [bp+arg_0]
		lea	ax, [bp+var_1E]
		push	ss
		push	ax
		push	ds
		push	offset off_124DD
		mov	cx, 14h
		call	SCOPY@
		lea	ax, [bp+var_2E]
		push	ss
		push	ax
		push	ds
		push	offset off_124F1
		mov	cx, 10h
		call	SCOPY@
		lea	ax, [bp+var_8]
		push	ss
		push	ax
		push	ds
		push	offset off_12501
		mov	cx, 8
		call	SCOPY@
		lea	ax, [bp+var_42]
		push	ss
		push	ax
		push	ds
		push	offset off_12509
		mov	cx, 14h
		call	SCOPY@
		mov	di, 228
		mov	ax, si
		imul	ax, 20
		add	ax, 266
		mov	[bp+var_A], ax
		call	_egc_copy_rect_1_to_0 c, di, ax, large (16 shl 16) or 176
		or	si, si
		jnz	short loc_AA34
		mov	al, byte ptr word_12320
		cbw
		shl	ax, 2
		lea	dx, [bp+var_2E]
		jmp	short loc_AA54
; ---------------------------------------------------------------------------

loc_AA34:
		cmp	si, 1
		jnz	short loc_AA45
		mov	al, byte ptr word_12320+1
		cbw
		shl	ax, 2
		lea	dx, [bp+var_8]
		jmp	short loc_AA54
; ---------------------------------------------------------------------------

loc_AA45:
		cmp	si, 2
		jnz	short loc_AA83
		mov	al, byte ptr word_12322+1
		cbw
		shl	ax, 2
		lea	dx, [bp+var_42]

loc_AA54:
		add	ax, dx
		mov	bx, ax
		pushd	dword ptr ss:[bx]
		mov	bx, si
		shl	bx, 2
		lea	ax, [bp+var_1E]
		add	bx, ax
		pushd	dword ptr ss:[bx]	; arglist
		push	ds
		push	offset aSS	; "%s%s"
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax		; int
		push	[bp+var_A]	; int
		push	di		; int
		call	_graph_printf_fx
		add	sp, 12h
		jmp	short loc_AAB2
; ---------------------------------------------------------------------------

loc_AA83:
		cmp	si, 3
		jz	short loc_AA8D
		cmp	si, 4
		jnz	short loc_AAB2

loc_AA8D:
		mov	bx, si
		shl	bx, 2
		lea	ax, [bp+var_1E]
		add	bx, ax
		pushd	dword ptr ss:[bx]	; arglist
		push	ds
		push	(offset	aSS+2)	; format
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax		; int
		push	[bp+var_A]	; int
		push	di		; int
		call	_graph_printf_fx
		add	sp, 0Eh

loc_AAB2:
		pop	di
		pop	si
		leave
		retf
sub_A9B9	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_AAB6	proc far

var_46		= byte ptr -46h
var_A		= word ptr -0Ah
var_8		= byte ptr -8
arg_0		= word ptr  6
arg_2		= word ptr  8

		enter	46h, 0
		push	si
		push	di
		mov	si, [bp+arg_0]
		lea	ax, [bp+var_8]
		push	ss
		push	ax
		push	ds
		push	offset off_1251E
		mov	cx, 8
		call	SCOPY@
		lea	ax, [bp+var_46]
		push	ss
		push	ax
		push	ds
		push	offset off_12526
		mov	cx, 3Ch	; '<'
		call	SCOPY@
		mov	di, 228
		mov	ax, si
		imul	ax, 40
		add	ax, 286
		mov	[bp+var_A], ax
		call	_egc_copy_rect_1_to_0 c, di, ax, large (16 shl 16) or 176
		or	si, si
		jnz	short loc_AB69
		push	(16 shl 16) or 192
		mov	ax, [bp+var_A]
		add	ax, 20
		push	ax
		push	di
		call	_egc_copy_rect_1_to_0
		add	sp, 8
		mov	al, byte_1251D
		cbw
		push	ax
		mov	bx, si
		shl	bx, 2
		lea	ax, [bp+var_8]
		add	bx, ax
		pushd	dword ptr ss:[bx]	; arglist
		push	ds
		push	offset aS_2d	; "%s%.2d"
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax		; int
		push	[bp+var_A]	; int
		push	di		; int
		call	_graph_printf_fx
		add	sp, 10h
		mov	al, byte_1251D
		cbw
		shl	ax, 2
		lea	dx, [bp+var_46]
		add	ax, dx
		mov	bx, ax
		pushd	dword ptr ss:[bx]
		push	ds
		push	(offset	aSS+2)
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax
		mov	ax, [bp+var_A]
		add	ax, 14h
		push	ax
		jmp	short loc_AB8A
; ---------------------------------------------------------------------------

loc_AB69:
		cmp	si, 1
		jnz	short loc_AB93
		mov	bx, si
		shl	bx, 2
		lea	ax, [bp+var_8]
		add	bx, ax
		pushd	dword ptr ss:[bx]	; arglist
		push	ds
		push	(offset	aSS+2)	; format
		mov	ax, [bp+arg_2]
		or	ax, 30h
		push	ax		; int
		push	[bp+var_A]	; int

loc_AB8A:
		push	di		; int
		call	_graph_printf_fx
		add	sp, 0Eh

loc_AB93:
		pop	di
		pop	si
		leave
		retf
sub_AAB6	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_AB97	proc far
		push	bp
		mov	bp, sp
		cmp	word_12564, 0
		jnz	short loc_AC04
		call	_egc_copy_rect_1_to_0 c, large (266 shl 16) or 220, large (100 shl 16) or 176
		push	50000h
		call	sub_A96A
		add	sp, 4
		push	50001h
		call	sub_A96A
		add	sp, 4
		push	50002h
		call	sub_A96A
		add	sp, 4
		push	50003h
		call	sub_A96A
		add	sp, 4
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_A96A
		add	sp, 4
		mov	word_12564, 1
		mov	al, byte_12325
		cbw
		mov	word_12562, ax

loc_AC04:
		mov	al, byte_12325
		cbw
		cmp	ax, word_12562
		jz	short loc_AC30
		push	5
		push	word_12562
		call	sub_A96A
		add	sp, 4
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_A96A
		add	sp, 4
		mov	al, byte_12325
		cbw
		mov	word_12562, ax

loc_AC30:
		cmp	byte_12327, 0
		jnz	short loc_AC3E
		cmp	byte_12328, 0
		jz	short loc_AC6E

loc_AC3E:
		mov	al, byte_12325
		cbw
		mov	bx, ax
		cmp	bx, 3
		ja	short loc_AC6E
		add	bx, bx
		jmp	cs:off_AC7C[bx]

loc_AC50:
		call	sub_A7B5
		jmp	short loc_AC6E
; ---------------------------------------------------------------------------

loc_AC56:
		call	sub_A8AD
		jmp	short loc_AC6E
; ---------------------------------------------------------------------------

loc_AC5C:
		mov	byte_1232A, 1
		mov	word_12564, 0
		jmp	short loc_AC6E
; ---------------------------------------------------------------------------

loc_AC69:
		mov	byte_1232C, 1

loc_AC6E:
		cmp	byte_12329, 0
		jz	short loc_AC7A
		mov	byte_1232C, 1

loc_AC7A:
		pop	bp
		retf
sub_AB97	endp

; ---------------------------------------------------------------------------
off_AC7C	dw offset loc_AC50
		dw offset loc_AC56
		dw offset loc_AC5C
		dw offset loc_AC69

; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_AC84	proc far
		push	bp
		mov	bp, sp
		cmp	word_12566, 0
		jnz	short loc_ACF9
		mov	byte_12325, 0
		mov	word_12568, 0
		mov	word_12566, 1
		mov	byte_12338, 4
		call	_egc_copy_rect_1_to_0 c, large (276 shl 16) or 220, large (80 shl 16) or 176
		push	0F0000h
		call	sub_A9B9
		add	sp, 4
		push	50001h
		call	sub_A9B9
		add	sp, 4
		push	50002h
		call	sub_A9B9
		add	sp, 4
		push	50003h
		call	sub_A9B9
		add	sp, 4
		push	50004h
		call	sub_A9B9
		add	sp, 4

loc_ACF9:
		mov	al, byte_12325
		cbw
		cmp	ax, word_12568
		jz	short loc_AD25
		push	5
		push	word_12568
		call	sub_A9B9
		add	sp, 4
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_A9B9
		add	sp, 4
		mov	al, byte_12325
		cbw
		mov	word_12568, ax

loc_AD25:
		mov	al, byte_12326
		cbw
		cmp	ax, 1
		jnz	short loc_AD96
		cmp	word_1256A, 0
		jnz	short loc_AD9C
		mov	al, byte_12325
		cbw
		or	ax, ax
		jz	short loc_AD49
		cmp	ax, 1
		jz	short loc_AD5C
		cmp	ax, 2
		jz	short loc_AD6F
		jmp	short loc_AD80
; ---------------------------------------------------------------------------

loc_AD49:
		dec	byte ptr word_12320
		mov	al, byte ptr word_12320
		cbw
		or	ax, ax
		jge	short loc_AD80
		mov	byte ptr word_12320, 3
		jmp	short loc_AD80
; ---------------------------------------------------------------------------

loc_AD5C:
		dec	byte ptr word_12320+1
		mov	al, byte ptr word_12320+1
		cbw
		or	ax, ax
		jge	short loc_AD80
		mov	byte ptr word_12320+1, 1
		jmp	short loc_AD80
; ---------------------------------------------------------------------------

loc_AD6F:
		dec	byte ptr word_12322+1
		mov	al, byte ptr word_12322+1
		cbw
		or	ax, ax
		jge	short loc_AD80
		mov	byte ptr word_12322+1, 4

loc_AD80:
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_A9B9
		add	sp, 4
		mov	word_1256A, 1
		jmp	short loc_AD9C
; ---------------------------------------------------------------------------

loc_AD96:
		mov	word_1256A, 0

loc_AD9C:
		mov	al, byte_1232B
		cbw
		cmp	ax, 1
		jnz	short loc_AE10
		cmp	word_1256C, 0
		jnz	short loc_AE16
		mov	al, byte_12325
		cbw
		or	ax, ax
		jz	short loc_ADC0
		cmp	ax, 1
		jz	short loc_ADD4
		cmp	ax, 2
		jz	short loc_ADE8
		jmp	short loc_ADFA
; ---------------------------------------------------------------------------

loc_ADC0:
		inc	byte ptr word_12320
		mov	al, byte ptr word_12320
		cbw
		cmp	ax, 3
		jle	short loc_ADFA
		mov	byte ptr word_12320, 0
		jmp	short loc_ADFA
; ---------------------------------------------------------------------------

loc_ADD4:
		inc	byte ptr word_12320+1
		mov	al, byte ptr word_12320+1
		cbw
		cmp	ax, 1
		jle	short loc_ADFA
		mov	byte ptr word_12320+1, 0
		jmp	short loc_ADFA
; ---------------------------------------------------------------------------

loc_ADE8:
		inc	byte ptr word_12322+1
		mov	al, byte ptr word_12322+1
		cbw
		cmp	ax, 4
		jle	short loc_ADFA
		mov	byte ptr word_12322+1, 0

loc_ADFA:
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_A9B9
		add	sp, 4
		mov	word_1256C, 1
		jmp	short loc_AE16
; ---------------------------------------------------------------------------

loc_AE10:
		mov	word_1256C, 0

loc_AE16:
		cmp	byte_12327, 0
		jnz	short loc_AE24
		cmp	byte_12328, 0
		jz	short loc_AE2D

loc_AE24:
		mov	al, byte_12325
		cbw
		cmp	ax, 4
		jz	short loc_AE34

loc_AE2D:
		cmp	byte_12329, 0
		jz	short loc_AE44

loc_AE34:
		mov	byte_1232A, 3
		mov	word_12566, 0
		mov	byte_12325, 2

loc_AE44:
		cmp	byte_12327, 0
		jnz	short loc_AE52
		cmp	byte_12328, 0
		jz	short loc_AE6B

loc_AE52:
		mov	al, byte_12325
		cbw
		cmp	ax, 3
		jnz	short loc_AE6B
		mov	byte_1232A, 2
		mov	word_12566, 0
		mov	byte_12325, 0

loc_AE6B:
		pop	bp
		retf
sub_AC84	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_AE6D	proc far

var_3C		= byte ptr -3Ch

		enter	3Ch, 0
		lea	ax, [bp+var_3C]
		push	ss
		push	ax
		push	ds
		push	offset off_1256E
		mov	cx, 3Ch	; '<'
		call	SCOPY@
		call	_mdrv2_bgm_stop
		mov	al, byte_1251D
		cbw
		shl	ax, 2
		lea	dx, [bp+var_3C]
		add	ax, dx
		mov	bx, ax
		pushd	dword ptr ss:[bx]	; path
		call	_mdrv2_bgm_load
		add	sp, 4
		call	_mdrv2_bgm_play
		leave
		retf
sub_AE6D	endp


; =============== S U B	R O U T	I N E =======================================

; Attributes: bp-based frame

sub_AEA8	proc far
		push	bp
		mov	bp, sp
		cmp	word_125AA, 0
		jnz	short loc_AF00
		mov	byte_12325, 0
		mov	word_125AC, 0
		mov	word_125AA, 1
		mov	byte_12327, 0
		mov	byte_12328, 0
		mov	byte_12338, 1
		call	_egc_copy_rect_1_to_0 c, large (266 shl 16) or 220, large (100 shl 16) or 176
		push	0F0000h
		call	sub_AAB6
		add	sp, 4
		push	50001h
		call	sub_AAB6
		add	sp, 4

loc_AF00:
		mov	al, byte_12325
		cbw
		cmp	ax, word_125AC
		jz	short loc_AF2C
		push	5
		push	word_125AC
		call	sub_AAB6
		add	sp, 4
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_AAB6
		add	sp, 4
		mov	al, byte_12325
		cbw
		mov	word_125AC, ax

loc_AF2C:
		mov	al, byte_12326
		cbw
		cmp	ax, 1
		jnz	short loc_AF69
		cmp	word_125AE, 0
		jnz	short loc_AF6F
		cmp	byte_12325, 0
		jnz	short loc_AF53
		dec	byte_1251D
		cmp	byte_1251D, 0
		jge	short loc_AF53
		mov	byte_1251D, 0Eh

loc_AF53:
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_AAB6
		add	sp, 4
		mov	word_125AE, 1
		jmp	short loc_AF6F
; ---------------------------------------------------------------------------

loc_AF69:
		mov	word_125AE, 0

loc_AF6F:
		mov	al, byte_1232B
		cbw
		cmp	ax, 1
		jnz	short loc_AFAC
		cmp	word_125B0, 0
		jnz	short loc_AFB2
		cmp	byte_12325, 0
		jnz	short loc_AF96
		inc	byte_1251D
		cmp	byte_1251D, 0Fh
		jl	short loc_AF96
		mov	byte_1251D, 0

loc_AF96:
		push	0Fh
		mov	al, byte_12325
		cbw
		push	ax
		call	sub_AAB6
		add	sp, 4
		mov	word_125B0, 1
		jmp	short loc_AFB2
; ---------------------------------------------------------------------------

loc_AFAC:
		mov	word_125B0, 0

loc_AFB2:
		cmp	byte_12327, 0
		jnz	short loc_AFC0
		cmp	byte_12328, 0
		jz	short loc_AFC9

loc_AFC0:
		mov	al, byte_12325
		cbw
		cmp	ax, 1
		jz	short loc_AFD0

loc_AFC9:
		cmp	byte_12329, 0
		jz	short loc_AFE0

loc_AFD0:
		mov	byte_1232A, 4
		mov	word_125AA, 0
		mov	byte_12325, 3

loc_AFE0:
		cmp	byte_12327, 0
		jnz	short loc_AFEE
		cmp	byte_12328, 0
		jz	short loc_AFF9

loc_AFEE:
		cmp	byte_12325, 0
		jnz	short loc_AFF9
		call	sub_AE6D

loc_AFF9:
		pop	bp
		retf
sub_AEA8	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)
public _main
_main		proc far

outregs		= REGS ptr -2Ch
inregs		= REGS ptr -1Ch
var_C		= word ptr -0Ch
var_9		= byte ptr -9
var_8		= dword	ptr -8
var_4		= dword	ptr -4
_argc		= word ptr  4
_argv		= dword	ptr  6
_envp		= dword	ptr  0Ah

		enter	2Ch, 0
		push	si
		push	di
		xor	si, si
		xor	di, di
		call	_mdrv2_resident
		or	ax, ax
		jnz	short loc_B015
		push	ds
		push	offset aGogbgGtg@gcglv ; "バッチファイルから起動してよ"
		jmp	loc_B25D
; ---------------------------------------------------------------------------

loc_B015:
		mov	byte_1232D, 0
		mov	dword_12330, 0
		mov	byte_1232E, 0
		cmp	word ptr [bp+_argv], 1
		jle	loc_B0D6
		les	bx, [bp+_argv+2]
		les	bx, es:[bx+4]
		mov	al, es:[bx]
		cbw
		cmp	ax, 73h	; 's'
		jnz	short loc_B045
		mov	_mode, 1

loc_B045:
		les	bx, [bp+_argv+2]
		les	bx, es:[bx+4]
		mov	al, es:[bx]
		cbw
		cmp	ax, 74h	; 't'
		jnz	short loc_B05A
		mov	_mode, 2

loc_B05A:
		les	bx, [bp+_argv+2]
		les	bx, es:[bx+4]
		mov	al, es:[bx]
		cbw
		cmp	ax, 64h	; 'd'
		jnz	short loc_B06F
		mov	_mode, 3

loc_B06F:
		push	3		; n
		push	ds
		push	offset aCon	; "CON"
		les	bx, [bp+_argv+2]
		pushd	dword ptr es:[bx+4] ; s1
		call	_memcmp
		add	sp, 0Ah
		or	ax, ax
		jnz	short loc_B0D6
		les	bx, [bp+_argv+2]
		mov	eax, es:[bx+8]
		mov	[bp+var_4], eax
		pushd	[bp+var_4]
		call	_atol
		add	sp, 4
		mov	byte_1232D, al
		les	bx, [bp+_argv+2]
		pushd	dword ptr es:[bx+0Ch]
		call	_atol
		add	sp, 4
		mov	word ptr dword_12330+2,	dx
		mov	word ptr dword_12330, ax
		les	bx, [bp+_argv+2]
		mov	eax, es:[bx+10h]
		mov	[bp+var_8], eax
		pushd	[bp+var_8]
		call	_atol
		add	sp, 4
		mov	byte_1232E, al

loc_B0D6:
		call	_mdrv2_check_board
		call	_game_init
		call	sub_A240
		mov	al, byte ptr word_12320+1
		cbw
		mov	si, ax
		mov	byte ptr [bp+inregs+1],	3
		push	ss
		lea	ax, [bp+outregs]
		push	ax		; outregs
		push	ss
		lea	ax, [bp+inregs]
		push	ax		; inregs
		push	18h		; intno
		call	_int86
		add	sp, 0Ah
		call	key_start
		call	sub_A719
		xor	ax, ax
		mov	es, ax
		mov	al, es:0500h
		or	al, 20h
		mov	[bp+var_9], al
		xor	ax, ax
		mov	dl, [bp+var_9]
		mov	es, ax
		mov	es:0500h, dl
		jmp	short loc_B135
; ---------------------------------------------------------------------------

loc_B126:
		push	1
		call	_frame_delay
		pop	cx
		push	di
		call	sub_A92C
		pop	cx
		inc	di

loc_B135:
		call	key_sense_bios
		or	ax, ax
		jz	short loc_B126
		call	sub_A772
		mov	eax, dword_13418
		mov	random_seed, eax
		jmp	loc_B21A
; ---------------------------------------------------------------------------

loc_B14D:
		cmp	byte_1232A, 0
		jnz	short loc_B15F
		call	sub_A363
		call	sub_AB97
		jmp	loc_B1EE
; ---------------------------------------------------------------------------

loc_B15F:
		mov	al, byte_1232A
		cbw
		cmp	ax, 1
		jnz	short loc_B172
		call	sub_A4AB
		call	sub_AC84
		jmp	short loc_B1EE
; ---------------------------------------------------------------------------

loc_B172:
		mov	al, byte_1232A
		cbw
		cmp	ax, 2
		jnz	short loc_B185
		call	sub_A4AB
		call	sub_AEA8
		jmp	short loc_B1EE
; ---------------------------------------------------------------------------

loc_B185:
		mov	al, byte_1232A
		cbw
		cmp	ax, 3
		jnz	short loc_B1D8
		mov	al, byte ptr word_12320+1
		cbw
		cmp	ax, si
		jz	short loc_B1C9
		cmp	byte ptr word_12320+1, 0
		jnz	short loc_B1A4
		call	_mdrv2_bgm_stop
		jmp	short loc_B1C3
; ---------------------------------------------------------------------------

loc_B1A4:
		mov	al, byte ptr word_12320+1
		cbw
		cmp	ax, 1
		jnz	short loc_B1C3
		call	_mdrv2_bgm_stop
		push	ds
		push	offset aReimu_mdt ; "reimu.mdt"
		call	_mdrv2_bgm_load
		add	sp, 4
		call	_mdrv2_bgm_play

loc_B1C3:
		mov	al, byte ptr word_12320+1
		cbw
		mov	si, ax

loc_B1C9:
		push	0Fh
		call	_frame_delay
		pop	cx
		mov	byte_1232A, 0
		jmp	short loc_B1EE
; ---------------------------------------------------------------------------

loc_B1D8:
		mov	al, byte_1232A
		cbw
		cmp	ax, 4
		jnz	short loc_B1EE
		push	0Fh
		call	_frame_delay
		pop	cx
		mov	byte_1232A, 1

loc_B1EE:
		xor	ax, ax
		mov	es, ax
		mov	ax, word ptr es:[0524h]
		mov	[bp+var_C], ax
		xor	ax, ax
		mov	dx, [bp+var_C]
		mov	es, ax
		mov	word ptr es:[0526h], dx
		mov	es, ax
		mov	byte ptr es:[0528h], 0
		inc	dword_13418
		push	1
		call	_frame_delay
		pop	cx

loc_B21A:
		cmp	byte_1232C, 0
		jz	loc_B14D
		call	sub_A2E4
		mov	byte_1232F, 1
		call	_mdrv2_bgm_stop
		call	sub_A79D
		push	1
		call	_graph_accesspage_func
		pop	cx
		call	_z_graph_clear
		push	0
		call	_graph_accesspage_func
		pop	cx
		call	_z_graph_clear
		call	_game_exit
		call	_mdrv2_bgm_stop
		push	ds
		push	offset format	; "おつかれさまでした！！\n"

loc_B25D:
		call	_printf
		add	sp, 4
		pop	di
		pop	si
		leave
		retf
_main		endp
op_01_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_02_TEXT	segment	byte public 'CODE' use16
	extern _frame_delay:proc
op_02_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_03_TEXT	segment	byte public 'CODE' use16
	extern _vsync_init:proc
	extern _vsync_exit:proc
	extern _z_vsync_wait:proc
op_03_TEXT	ends

; ===========================================================================

op_04_TEXT	segment	byte public 'CODE' use16
	extern _z_text_init:proc
	extern _z_text_25line:proc
	extern _z_text_setcursor:proc
	extern _z_text_clear:proc
	extern _z_text_show:proc
	extern _z_text_print:proc
op_04_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_05_TEXT	segment	byte public 'CODE' use16
	extern _game_init:proc
	extern _game_exit:proc
	extern _game_switch_binary:proc
op_05_TEXT	ends

; ---------------------------------------------------------------------------
; ===========================================================================

; Segment type:	Pure code
op_06_TEXT	segment	byte public 'CODE' use16
	extern _z_graph_exit:proc
	extern _graph_showpage_func:proc
	extern _graph_accesspage_func:proc
	extern _grcg_setcolor_rmw:proc
	extern _grcg_setcolor_tdw:proc
	extern _grcg_off_func:proc
	extern _z_palette_set_all_show:proc
	extern _z_palette_set_show:proc
	extern _z_graph_clear:proc
	extern _z_graph_clear_0:proc
	extern _graph_copy_page_back_to_front:proc
	extern _z_palette_black:proc
	extern _z_palette_black_in:proc
	extern _z_palette_black_out:proc
	extern _graph_putsa_fx:proc
	extern _z_respal_set:proc
op_06_TEXT	ends

; ---------------------------------------------------------------------------
; ===========================================================================

; Segment type:	Pure code
op_07_TEXT	segment	byte public 'CODE' use16
	extern _egc_copy_rect_1_to_0:proc
op_07_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_08_TEXT	segment	byte public 'CODE' use16
	extern _graph_printf_fx:proc
op_08_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_09_TEXT	segment	byte public 'CODE' use16
	extern _grp_put_palette_show:proc
	extern _grp_put:proc
	extern _grp_put_colorkey:proc
op_09_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_10_TEXT	segment	byte public 'CODE' use16
	extern _resident_stuff_set:proc
	extern _resident_free:proc
op_10_TEXT	ends

; ===========================================================================

; Segment type:	Pure code
op_11_TEXT	segment	byte public 'CODE' use16
	extern _mdrv2_resident:proc
	extern _mdrv2_bgm_load:proc
	extern _mdrv2_bgm_play:proc
	extern _mdrv2_bgm_stop:proc
	extern _mdrv2_bgm_fade_out_nonblock:proc
	extern _mdrv2_check_board:proc
op_11_TEXT	ends

; ===========================================================================

op_12_TEXT	segment	byte public 'CODE' use16
op_12_TEXT	ends

; ===========================================================================

	.data

word_12320	dw 101h
word_12322	dw 201h
_mode	db 0
byte_12325	db 0
byte_12326	db 0
byte_12327	db 0
byte_12328	db 0
byte_12329	db 0
byte_1232A	db 0
byte_1232B	db 0
byte_1232C	db 0
byte_1232D	db 0
byte_1232E	db 0
byte_1232F	db 0
dword_12330	dd 0
word_12334	dw 0
word_12336	dw 0
byte_12338	db 3
word_12339	dw 0
word_1233B	dw 0
unk_1233D	db    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		db    0
		db    0
word_123C0	dw 0
word_123C2	dw 0
word_123C4	dw 0
word_123C6	dw 0
byte_123C8	db 0
word_123C9	dw 0
byte_123CB	db 0
word_123CC	dw 0
word_123CE	dw 0
word_123D0	dw 0
word_123D2	dw 0
word_123D4	dw 0
word_123D6	dw 0
		db    0
		db    0
word_123DA	dw 0
word_123DC	dw 0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		dd    0
		db    0
		db    0
		db    0
off_124CD	dd aVrvsvVqvs
					; "   ＳＴＡＲＴ   "
		dd aVbvnvmvsvhvmvt	; "ＣＯＮＴＩＮＵＥ"
		dd aB@vnvovsvhvnvm	; "　ＯＰＴＩＯＮ　"
		dd aB@b@vpvtvhvsb@	; "　　ＱＵＩＴ　　"
off_124DD	dd aB@vqvVmvjb@
					; "　ＲＡＮＫ　	"
		dd aVlvtvrvhvb		; " ＭＵＳＩＣ	"
		dd aVovkvVxvdvq		; "ＰＬＡＹＥＲ	"
		dd aVlbdvsvdvrvs	; "Ｍ．ＴＥＳＴ	"
		dd aB@vpvtvhvsb@	; "　ＱＵＩＴ　	"
off_124F1	dd aEasy
					; " EASY "
		dd aNormal		; "NORMAL"
		dd aHard		; " HARD "
		dd aLunatic		; "LUNATIC"
off_12501	dd aOff
					; "  OFF "
		dd aFm			; "  FM	 "
off_12509	dd a3
					; "   3	 "
		dd a4			; "   4	 "
		dd a5			; "   5	 "
		dd a6			; "   6	 "
		dd a7			; "   7	 "
byte_1251D	db 0
off_1251E	dd aVlvtvrvhvbb@vm
					; "ＭＵＳＩＣ　Ｎｏ．"
		dd aB@b@vpvxvivf	; "　　Ｑｕｉｔ	     "
off_12526	dd aASacretLot
					; "    A Sacret	Lot"
		dd aXcvR_o		; "	 風の神社     "
		dd aIiiuvIPc		; "	永遠の巫女    "
		dd aHighlyResponsi	; "  Highly Responsive"
		dd aUmx
		dd aOrientalMagici	; "  Oriental Magician"
		dd aB@FjoVPmsUbb@	; "　  破邪の小太刀　 "
		dd aTheLegendOfKag	; " The	Legend of KAGE"
		dd aPositiveAndNeg	; "Positive and	Negative"
		dd aB@b@UvoguRrb@b	; "　　	 天使伝説　　 "
		dd aB@b@b@CvlB@b@b	; "　　　  魔鏡　　　 "
		dd aVvvUVRVnvVOuvV	; "いざ倒れ逝くその時まで"
		dd aB@b@oavVVrvivV	; "　　死なばもろとも　　"
		dd aB@b@Rpchmxom	; "　　	 星幽剣士"
		dd aB@b@b@gagcgkgx	; "　　　アイリス"
word_12562	dw 63h
word_12564	dw 0
word_12566	dw 0
word_12568	dw 0
word_1256A	dw 0
word_1256C	dw 0
off_1256E	dd aReimu_mdt
					; "reimu.mdt"
		dd aZipangu_mdt		; "ZIPANGU.mdt"
		dd aSt0_mdt		; "st0.mdt"
		dd aSt1_mdt		; "st1.mdt"
		dd aSt2_mdt		; "st2.mdt"
		dd aSt3_mdt		; "st3.mdt"
		dd aSt4_mdt		; "st4.mdt"
		dd aSt5_mdt		; "st5.mdt"
		dd aPositive_mdt	; "positive.mdt"
		dd aLegend_mdt		; "legend.mdt"
		dd aKami_mdt		; "kami.mdt"
		dd aTensi_mdt		; "tensi.mdt"
		dd aSyugen_mdt		; "syugen.mdt"
		dd aAlice_mdt		; "alice.mdt"
		dd aIris_mdt		; "iris.mdt"
word_125AA	dw 0
word_125AC	dw 0
word_125AE	dw 0
word_125B0	dw 0
; char path[]
path		db 'reiiden.cfg',0
aRB		db 'rb',0
; char s[]
s		db 'REIIDEN',0
; char aWb[]
aWb		db 'wb',0
; char aReimu_mdt[]
aReimu_mdt	db 'reimu.mdt',0
aReiiden2_grp	db 'REIIDEN2.grp',0
aReiiden3_grp	db 'REIIDEN3.grp',0
aOp_win_grp	db 'op_win.grp',0
; char aReiiden_0[]
aReiiden_0	db 'reiiden',0
aVgvhvsb@vjvdvx	db ' ＨＩＴ　ＫＥＹ',0
aVrvsvVqvs	db '   ＳＴＡＲＴ   ',0
aVbvnvmvsvhvmvt	db 'ＣＯＮＴＩＮＵＥ',0
aB@vnvovsvhvnvm	db '　ＯＰＴＩＯＮ　',0
aB@b@vpvtvhvsb@	db '　　ＱＵＩＴ　　',0
aB@vqvVmvjb@	db '　ＲＡＮＫ　 ',0
aVlvtvrvhvb	db ' ＭＵＳＩＣ  ',0
aVovkvVxvdvq	db 'ＰＬＡＹＥＲ ',0
aVlbdvsvdvrvs	db 'Ｍ．ＴＥＳＴ ',0
aB@vpvtvhvsb@	db '　ＱＵＩＴ　 ',0
aEasy		db ' EASY ',0
aNormal		db 'NORMAL',0
aHard		db ' HARD ',0
aLunatic	db 'LUNATIC',0
aOff		db '  OFF ',0
aFm		db '  FM  ',0
a3		db '   3  ',0
a4		db '   4  ',0
a5		db '   5  ',0
a6		db '   6  ',0
a7		db '   7  ',0
; char aSS[]
aSS		db '%s%s',0
aVlvtvrvhvbb@vm	db 'ＭＵＳＩＣ　Ｎｏ．',0
aB@b@vpvxvivf	db '　　Ｑｕｉｔ      ',0
aASacretLot	db '    A Sacret Lot',0
aXcvR_o		db '      風の神社     ',0
aIiiuvIPc	db '     永遠の巫女    ',0
aHighlyResponsi	db '  Highly Responsive',0
aUmx		db '     東方怪奇談    ',0
aOrientalMagici	db '  Oriental Magician',0
aB@FjoVPmsUbb@	db '　  破邪の小太刀　 ',0
aTheLegendOfKag	db ' The Legend of KAGE',0
aPositiveAndNeg	db 'Positive and Negative',0
aB@b@UvoguRrb@b	db '　　  天使伝説　　 ',0
aB@b@b@CvlB@b@b	db '　　　  魔鏡　　　 ',0
aVvvUVRVnvVOuvV	db 'いざ倒れ逝くその時まで',0
aB@b@oavVVrvivV	db '　　死なばもろとも　　',0
aB@b@Rpchmxom	db '　　  星幽剣士',0
aB@b@b@gagcgkgx	db '　　　アイリス',0
; char aS_2d[]
aS_2d		db '%s%.2d',0
aZipangu_mdt	db 'ZIPANGU.mdt',0
aSt0_mdt	db 'st0.mdt',0
aSt1_mdt	db 'st1.mdt',0
aSt2_mdt	db 'st2.mdt',0
aSt3_mdt	db 'st3.mdt',0
aSt4_mdt	db 'st4.mdt',0
aSt5_mdt	db 'st5.mdt',0
aPositive_mdt	db 'positive.mdt',0
aLegend_mdt	db 'legend.mdt',0
aKami_mdt	db 'kami.mdt',0
aTensi_mdt	db 'tensi.mdt',0
aSyugen_mdt	db 'syugen.mdt',0
aAlice_mdt	db 'alice.mdt',0
aIris_mdt	db 'iris.mdt',0
aGogbgGtg@gcglv	db 'バッチファイルから起動してよ',0
aCon		db 'CON',0
; char format[]
format		db 'おつかれさまでした！！',0Ah,0
include th01/hardware/vsync[data].asm
include th01/hardware/ztext[data].asm
include th01/core/initexit[data].asm
include th01/hardware/palette[data].asm
include th01/hardware/graph_r[data].asm
include th01/hardware/respal[data].asm
include th01/formats/grp_ptn[data].asm
include th01/formats/grz[data].asm
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/respal_exist[data].asm
include libs/master.lib/resdata[data].asm
include libs/master.lib/fil[data].asm
include libs/master.lib/keytable[data].asm
include libs/master.lib/keystart[data].asm
include libs/master.lib/keyback[data].asm
include libs/master.lib/dos_ropen[data].asm
include libs/master.lib/clip[data].asm
include libs/master.lib/rand[data].asm
public _res_id
_res_id	db 'ReiidenConfig',0
include th01/mdrv2[data].asm
	.data?

; TODO: Missing clip[bss].asm (16 bytes) somewhere in there...
dword_13418	dd ?
		db 320 dup(?)
include th01/hardware/vsync[bss].asm
		db 191 dup (?)
word_13627	dw ?
		db 60 dup (?)
word_13665	dw ?
		db ?
include th01/core/initexit[bss].asm
include th01/hardware/graph[bss].asm
include th01/hardware/vram_planes[bss].asm
		db 80 dup(?)
include th01/formats/grp_palette[bss].asm
include th01/formats/ptn_grz[bss].asm
include th01/formats/grp_buf[bss].asm
include libs/master.lib/pal[bss].asm
include libs/master.lib/fil[bss].asm
include libs/master.lib/keystart[bss].asm
		db 16 dup(?)
public _resident
_resident	dd ?

		end