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

; File Name   :	th04/OP.EXE
; Format      :	MS-DOS executable (EXE)
; Base Address:	0h Range: 0h-133E0h Loaded length: 11A40h
; Entry	Point :	0:0
; OS type	  :  MS	DOS
; Application type:  Executable	16bit

		.386
		.model use16 large _TEXT

BINARY = 'O'

include ReC98.inc
include th04/th04.inc
include th04/hardware/grppsafx.inc
include th04/op/music.inc
include th04/sprites/op_cdg.inc

	extern _execl:proc
	extern _getch:proc

op_01 group OP_MAIN_TEXT, OP_01_TEXT
g_SHARED group SHARED, SHARED_

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

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

include libs/master.lib/bfnt_entry_pat.asm
include libs/master.lib/bfnt_extend_header_skip.asm
include libs/master.lib/bfnt_header_read.asm
include libs/master.lib/bfnt_header_analysis.asm
include libs/master.lib/atrtcmod.asm
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
include libs/master.lib/palette_black_in.asm
include libs/master.lib/palette_black_out.asm
include libs/master.lib/bopenr.asm
include libs/master.lib/bread.asm
include libs/master.lib/bseek.asm
include libs/master.lib/bseek_.asm
include libs/master.lib/dos_axdx.asm
include libs/master.lib/dos_keyclear.asm
include libs/master.lib/dos_puts2.asm
include libs/master.lib/dos_read.asm
include libs/master.lib/dos_seek.asm
include libs/master.lib/dos_setvect.asm
include libs/master.lib/egc.asm
include libs/master.lib/file_append.asm
include libs/master.lib/file_close.asm
include libs/master.lib/file_create.asm
include libs/master.lib/file_exist.asm
include libs/master.lib/file_read.asm
include libs/master.lib/file_ropen.asm
include libs/master.lib/file_seek.asm
include libs/master.lib/file_write.asm
include libs/master.lib/dos_close.asm
include libs/master.lib/dos_ropen.asm
include libs/master.lib/grcg_boxfill.asm
include libs/master.lib/grcg_byteboxfill_x.asm
include libs/master.lib/grcg_hline.asm
include libs/master.lib/grcg_polygon_c.asm
include libs/master.lib/grcg_round_boxfill.asm
include libs/master.lib/grcg_setcolor.asm
include libs/master.lib/get_machine_98.asm
include libs/master.lib/get_machine_at.asm
include libs/master.lib/get_machine_dosbox.asm
include libs/master.lib/check_machine_fmr.asm
include libs/master.lib/get_machine.asm
include libs/master.lib/gaiji_backup.asm
include libs/master.lib/gaiji_entry_bfnt.asm
include libs/master.lib/gaiji_read.asm
include libs/master.lib/gaiji_write.asm
include libs/master.lib/graph_400line.asm
include libs/master.lib/graph_clear.asm
include libs/master.lib/graph_copy_page.asm
include libs/master.lib/graph_extmode.asm
include libs/master.lib/graph_pi_free.asm
include libs/master.lib/graph_pi_load_pack.asm
include libs/master.lib/graph_pack_put_8.asm
include libs/master.lib/graph_show.asm
include libs/master.lib/graph_start.asm
include libs/master.lib/js_end.asm
include libs/master.lib/keybeep.asm
include libs/master.lib/make_linework.asm
include libs/master.lib/palette_init.asm
include libs/master.lib/palette_show.asm
include libs/master.lib/pfclose.asm
include libs/master.lib/pfgetc.asm
include libs/master.lib/pfread.asm
include libs/master.lib/pfrewind.asm
include libs/master.lib/pfseek.asm
include libs/master.lib/random.asm
include libs/master.lib/rottbl.asm
include libs/master.lib/smem_release.asm
include libs/master.lib/smem_wget.asm
include libs/master.lib/soundio.asm
include libs/master.lib/text_clear.asm
include libs/master.lib/txesc.asm
include libs/master.lib/vsync.asm
include libs/master.lib/vsync_wait.asm
include libs/master.lib/palette_white_in.asm
include libs/master.lib/hmem_lallocate.asm
include libs/master.lib/mem_assign_dos.asm
include libs/master.lib/mem_assign.asm
include libs/master.lib/memheap.asm
include libs/master.lib/mem_unassign.asm
include libs/master.lib/super_free.asm
include libs/master.lib/super_entry_pat.asm
include libs/master.lib/super_entry_at.asm
include libs/master.lib/super_entry_bfnt.asm
include libs/master.lib/super_cancel_pat.asm
include libs/master.lib/super_put_rect.asm
include libs/master.lib/super_put.asm
include libs/master.lib/respal_exist.asm
include libs/master.lib/respal_free.asm
include libs/master.lib/pfint21.asm
		db 0
include libs/master.lib/js_start.asm
include libs/master.lib/draw_trapezoid.asm
include th03/formats/pfopen.asm
include libs/master.lib/pf_str_ieq.asm
include libs/master.lib/js_sense.asm
include libs/master.lib/bgm_bell_org.asm
include libs/master.lib/bgm_mget.asm
include libs/master.lib/bgm_read_sdata.asm
include libs/master.lib/bgm_timer.asm
include libs/master.lib/bgm_pinit.asm
include libs/master.lib/bgm_timerhook.asm
include libs/master.lib/bgm_play.asm
include libs/master.lib/bgm_sound.asm
include libs/master.lib/bgm_effect_sound.asm
include libs/master.lib/bgm_stop_play.asm
include libs/master.lib/bgm_set_tempo.asm
include libs/master.lib/bgm_init_finish.asm
include libs/master.lib/bgm_stop_sound.asm
include libs/master.lib/graph_gaiji_puts.asm
include libs/master.lib/graph_gaiji_putc.asm
_TEXT		ends

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

OP_MAIN_TEXT segment byte public 'CODE' use16
	@cfg_load$qv procdesc near
	@cfg_save$qv procdesc near
	@cfg_save_exit$qv procdesc near
	_start_demo procdesc near
	@OPTION_UNPUT_AND_PUT$QIUI procdesc pascal near \
		sel:word, col:word
	@MENU_SEL_UPDATE_AND_RENDER$QCC procdesc pascal near \
		max:byte, direction:byte
	@main_update_and_render$qv procdesc near
OP_MAIN_TEXT ends

; Segment type:	Pure code
op_01_TEXT	segment	byte public 'CODE' use16
		assume cs:op_01
		;org 0Ch
		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing

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

; Attributes: bp-based frame
public OPTION_UPDATE_AND_RENDER
option_update_and_render	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	_option_initialized, 0
		jnz	short loc_B0A2
		mov	_option_input_allowed, 0
		call	@egc_copy_rect_1_to_0_16$qiiii pascal, (272 shl 16) or 224, (160 shl 16) or 144
		xor	si, si
		jmp	short loc_B08D
; ---------------------------------------------------------------------------

loc_B077:
		push	si
		mov	al, _menu_sel
		cbw
		cmp	ax, si
		jnz	short loc_B085
		mov	ax, 8
		jmp	short loc_B088
; ---------------------------------------------------------------------------

loc_B085:
		mov	ax, 1

loc_B088:
		push	ax
		call	@option_unput_and_put$qiui
		inc	si

loc_B08D:
		cmp	si, 8
		jl	short loc_B077
		mov	_menu_unput_and_put, offset @option_unput_and_put$qiui
		mov	_option_initialized, 1
		mov	_option_input_allowed, 0

loc_B0A2:
		cmp	_key_det, INPUT_NONE
		jnz	short loc_B0AE
		mov	_option_input_allowed, 1

loc_B0AE:
		cmp	_option_input_allowed, 0
		jz	loc_B35B
		test	_key_det.lo, low INPUT_UP
		jz	short loc_B0C5
		call	@menu_sel_update_and_render$qcc pascal, 7, -1

loc_B0C5:
		test	_key_det.lo, low INPUT_DOWN
		jz	short loc_B0D3
		call	@menu_sel_update_and_render$qcc pascal, 7, 1

loc_B0D3:
		test	_key_det.hi, high INPUT_OK
		jnz	short loc_B0E3
		test	_key_det.lo, low INPUT_SHOT
		jz	loc_B16F

loc_B0E3:
		mov	al, _menu_sel
		cbw
		cmp	ax, 6
		jz	short loc_B0F4
		cmp	ax, 7
		jz	short loc_B14F
		jmp	loc_B178
; ---------------------------------------------------------------------------

loc_B0F4:
		les	bx, _resident
		mov	es:[bx+resident_t.rank], RANK_NORMAL
		mov	es:[bx+resident_t.cfg_lives], CFG_LIVES_DEFAULT
		mov	es:[bx+resident_t.cfg_bombs], CFG_BOMBS_DEFAULT
		mov	es:[bx+resident_t.bgm_mode], SND_BGM_FM86
		mov	es:[bx+resident_t.se_mode], SND_SE_FM
		mov	es:[bx+resident_t.turbo_mode], 1
		kajacall	KAJA_SONG_STOP
		les	bx, _resident
		mov	al, es:[bx+resident_t.bgm_mode]
		mov	ah, 0
		push	ax
		mov	al, es:[bx+resident_t.se_mode]
		mov	ah, 0
		push	ax
		call	snd_determine_modes
		call	snd_load pascal, ds, offset aOp, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		mov	_option_initialized, 0
		jmp	short loc_B16F
; ---------------------------------------------------------------------------

loc_B14F:
		call	_snd_se_reset
		call	snd_se_play pascal, 11
		call	_snd_se_update
		mov	_option_initialized, 0
		mov	_menu_sel, 4
		mov	_in_option, 0

loc_B16F:
		test	_key_det.lo, low INPUT_RIGHT
		jz	loc_B250

loc_B178:
		mov	al, _menu_sel
		cbw
		mov	bx, ax
		cmp	bx, 5
		ja	loc_B246
		add	bx, bx
		jmp	cs:off_B36B[bx]

loc_B18C:
		les	bx, _resident
		inc	es:[bx+resident_t.rank]
		cmp	es:[bx+resident_t.rank], RANK_LUNATIC
		jbe	loc_B246
		mov	es:[bx+resident_t.rank], RANK_EASY
		jmp	loc_B246
; ---------------------------------------------------------------------------

loc_B1A5:
		les	bx, _resident
		inc	es:[bx+resident_t.cfg_lives]
		cmp	es:[bx+resident_t.cfg_lives], CFG_LIVES_MAX
		jbe	loc_B246
		mov	es:[bx+resident_t.cfg_lives], 1
		jmp	loc_B246
; ---------------------------------------------------------------------------

loc_B1BE:
		les	bx, _resident
		inc	es:[bx+resident_t.cfg_bombs]
		cmp	es:[bx+resident_t.cfg_bombs], CFG_BOMBS_MAX
		jbe	short loc_B246
		mov	es:[bx+resident_t.cfg_bombs], 0
		jmp	short loc_B246
; ---------------------------------------------------------------------------

loc_B1D4:
		les	bx, _resident
		inc	es:[bx+resident_t.bgm_mode]
		cmp	es:[bx+resident_t.bgm_mode], SND_BGM_MODE_COUNT
		jb	short loc_B1E8
		mov	es:[bx+resident_t.bgm_mode], SND_BGM_OFF

loc_B1E8:
		kajacall	KAJA_SONG_STOP
		les	bx, _resident
		mov	al, es:[bx+resident_t.bgm_mode]
		mov	ah, 0
		push	ax
		mov	al, es:[bx+resident_t.se_mode]
		mov	ah, 0
		push	ax
		call	snd_determine_modes
		call	snd_load pascal, ds, offset aOp, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		jmp	short loc_B246
; ---------------------------------------------------------------------------

loc_B21C:
		les	bx, _resident
		cmp	es:[bx+resident_t.se_mode], SND_SE_OFF
		jnz	short loc_B22E
		mov	es:[bx+resident_t.se_mode], SND_SE_BEEP
		jmp	short loc_B246
; ---------------------------------------------------------------------------

loc_B22E:
		les	bx, _resident
		dec	es:[bx+resident_t.se_mode]
		jmp	short loc_B246
; ---------------------------------------------------------------------------

loc_B238:
		les	bx, _resident
		mov	al, 1
		sub	al, es:[bx+resident_t.turbo_mode]
		mov	es:[bx+resident_t.turbo_mode], al

loc_B246:
		mov	al, _menu_sel
		cbw
		call	@option_unput_and_put$qiui pascal, ax, 8

loc_B250:
		test	_key_det.lo, low INPUT_LEFT
		jz	loc_B339
		mov	al, _menu_sel
		cbw
		mov	bx, ax
		cmp	bx, 5
		ja	loc_B32F
		add	bx, bx
		jmp	cs:off_B35F[bx]

loc_B26D:
		les	bx, _resident
		cmp	es:[bx+resident_t.rank], RANK_EASY
		jnz	short loc_B27D
		mov	es:[bx+resident_t.rank], RANK_EXTRA

loc_B27D:
		les	bx, _resident
		dec	es:[bx+resident_t.rank]
		jmp	loc_B32F
; ---------------------------------------------------------------------------

loc_B288:
		les	bx, _resident
		cmp	es:[bx+resident_t.cfg_lives], 1
		jnz	short loc_B298
		mov	es:[bx+resident_t.cfg_lives], (CFG_LIVES_MAX + 1)

loc_B298:
		les	bx, _resident
		dec	es:[bx+resident_t.cfg_lives]
		jmp	loc_B32F
; ---------------------------------------------------------------------------

loc_B2A3:
		les	bx, _resident
		cmp	es:[bx+resident_t.cfg_bombs], 0
		jnz	short loc_B2B3
		mov	es:[bx+resident_t.cfg_bombs], (CFG_BOMBS_MAX + 1)

loc_B2B3:
		les	bx, _resident
		dec	es:[bx+resident_t.cfg_bombs]
		jmp	short loc_B32F
; ---------------------------------------------------------------------------

loc_B2BD:
		les	bx, _resident
		cmp	es:[bx+resident_t.bgm_mode], SND_BGM_OFF
		jnz	short loc_B2CF
		mov	es:[bx+resident_t.bgm_mode], SND_BGM_FM86
		jmp	short loc_B2D7
; ---------------------------------------------------------------------------

loc_B2CF:
		les	bx, _resident
		dec	es:[bx+resident_t.bgm_mode]

loc_B2D7:
		kajacall	KAJA_SONG_STOP
		les	bx, _resident
		mov	al, es:[bx+resident_t.bgm_mode]
		mov	ah, 0
		push	ax
		mov	al, es:[bx+resident_t.se_mode]
		mov	ah, 0
		push	ax
		call	snd_determine_modes
		call	snd_load pascal, ds, offset aOp, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		jmp	short loc_B32F
; ---------------------------------------------------------------------------

loc_B30B:
		les	bx, _resident
		inc	es:[bx+resident_t.se_mode]
		cmp	es:[bx+resident_t.se_mode], SND_SE_MODE_COUNT
		jb	short loc_B32F
		mov	es:[bx+resident_t.se_mode], SND_SE_OFF
		jmp	short loc_B32F
; ---------------------------------------------------------------------------

loc_B321:
		les	bx, _resident
		mov	al, 1
		sub	al, es:[bx+resident_t.turbo_mode]
		mov	es:[bx+resident_t.turbo_mode], al

loc_B32F:
		mov	al, _menu_sel
		cbw
		call	@option_unput_and_put$qiui pascal, ax, 8

loc_B339:
		test	_key_det.hi, high INPUT_CANCEL
		jz	short loc_B34F
		mov	_option_initialized, 0
		mov	_menu_sel, 4
		mov	_in_option, 0

loc_B34F:
		cmp	_key_det, INPUT_NONE
		jz	short loc_B35B
		mov	_option_input_allowed, 0

loc_B35B:
		pop	si
		pop	bp
		retn
option_update_and_render	endp

; ---------------------------------------------------------------------------
		db 0
off_B35F	dw offset loc_B26D
		dw offset loc_B288
		dw offset loc_B2A3
		dw offset loc_B2BD
		dw offset loc_B30B
		dw offset loc_B321
off_B36B	dw offset loc_B18C
		dw offset loc_B1A5
		dw offset loc_B1BE
		dw offset loc_B1D4
		dw offset loc_B21C
		dw offset loc_B238

; =============== 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

_argc		= word ptr  6
_argv		= dword	ptr  8
_envp		= dword	ptr  0Ch

		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		call	text_clear
		call	respal_create
		mov	_mem_assign_paras, MEM_ASSIGN_PARAS_OP
		call	@game_init_op$qnxuc c, offset aMSzlEd_dat, ds
		or	ax, ax
		jz	short loc_B3AB
		push	ds
		push	offset asc_F7F7	; "\n空きメモリ不足です。メモリ空きを増やし"...
		call	dos_puts2
		call	_getch

loc_B3AB:
		call	gaiji_backup
		push	ds
		push	offset aGameft_bft ; "GAMEFT.bft"
		call	gaiji_entry_bfnt
		call	@cfg_load$qv
		les	bx, _resident
		cmp	es:[bx+resident_t.rank], RANK_SHOW_SETUP_MENU
		jnz	short loc_B3D3
		call	_setup_menu
		les	bx, _resident
		mov	es:[bx+resident_t.rank], RANK_NORMAL

loc_B3D3:
		les	bx, _resident
		mov	al, es:[bx+resident_t.bgm_mode]
		mov	ah, 0
		push	ax
		mov	al, es:[bx+resident_t.se_mode]
		mov	ah, 0
		push	ax
		call	snd_determine_modes
		call	snd_load pascal, ds, offset aMiko, SND_LOAD_SE
		les	bx, _resident
		cmp	es:[bx+resident_t.zunsoft_shown], 0
		jnz	short loc_B40D
		call	_zunsoft
		les	bx, _resident
		mov	es:[bx+resident_t.zunsoft_shown], 1

loc_B40D:
		les	bx, _resident
		cmp	es:[bx+resident_t.demo_num], 0
		jnz	short loc_B420
		kajacall	KAJA_SONG_STOP

loc_B420:
		call	_op_animate
		call	_cleardata_and_regist_view_sprite
		call	_main_cdg_load
		mov	_in_option, 0
		mov	_quit, 0
		mov	_menu_sel, 0
		jmp	short loc_B47B
; ---------------------------------------------------------------------------

loc_B43A:
		call	far ptr	_input_reset_sense
		mov	al, _in_option
		cbw
		or	ax, ax
		jz	short loc_B44E
		cmp	ax, 1
		jz	short loc_B45C
		jmp	short loc_B45F
; ---------------------------------------------------------------------------

loc_B44E:
		call	@main_update_and_render$qv
		cmp	si, 640
		jl	short loc_B45F
		call	_start_demo
		jmp	short loc_B45F
; ---------------------------------------------------------------------------

loc_B45C:
		call	option_update_and_render

loc_B45F:
		cmp	_key_det, INPUT_NONE
		jnz	short loc_B469
		inc	si
		jmp	short loc_B46B
; ---------------------------------------------------------------------------

loc_B469:
		xor	si, si

loc_B46B:
		les	bx, _resident
		inc	es:[bx+resident_t.rand]
		push	1
		call	frame_delay

loc_B47B:
		cmp	_quit, 0
		jz	short loc_B43A
		call	_main_cdg_free
		call	@cfg_save_exit$qv
		call	gaiji_restore
		call	text_clear
		call	@game_exit_to_dos$qv
		call	respal_free
		pop	si
		pop	bp
		retf
_main		endp

include th04/setup.asm

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

; Attributes: bp-based frame

sub_B794	proc near

var_2		= word ptr -2

		enter	2, 0
		mov	_window_tiles.x, (448 / WINDOW_TILE_W)
		call	window_singleline pascal, (96 shl 16) or 80
		call	graph_putsa_fx pascal, (112 shl 16) or 88, V_WHITE, ds, offset aSETUP_BGM_HEAD
		mov	_window_tiles.x, (160 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 3
		call	window_dropdown_animate pascal, ( 32 shl 16) or 128
		mov	[bp+var_2], 0
		jmp	short loc_B7EB
; ---------------------------------------------------------------------------

loc_B7D4:
		push	[bp+var_2]
		cmp	[bp+var_2], 2
		jnz	short loc_B7E2
		mov	ax, V_WHITE
		jmp	short loc_B7E4
; ---------------------------------------------------------------------------

loc_B7E2:
		xor	ax, ax

loc_B7E4:
		push	ax
		call	setup_bgm_choice_put
		inc	[bp+var_2]

loc_B7EB:
		cmp	[bp+var_2], 3
		jl	short loc_B7D4
		mov	_window_tiles.x, (400 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 9
		call	window_dropdown_animate pascal, (192 shl 16) or 128
		call	setup_bgm_help_put
		mov	[bp+var_2], 2

loc_B80E:
		call	input_wait_for_change pascal, 0
		push	1
		call	frame_delay
		test	_key_det.hi, high INPUT_OK
		jnz	short loc_B87A
		test	_key_det.lo, low INPUT_SHOT
		jnz	short loc_B87A
		test	_key_det.lo, low INPUT_UP
		jz	short loc_B851
		call	setup_bgm_choice_put pascal, [bp+var_2], 0
		cmp	[bp+var_2], 2
		jnz	short loc_B846
		mov	[bp+var_2], 0
		jmp	short loc_B849
; ---------------------------------------------------------------------------

loc_B846:
		inc	[bp+var_2]

loc_B849:
		call	setup_bgm_choice_put pascal, [bp+var_2], V_WHITE

loc_B851:
		test	_key_det.lo, low INPUT_DOWN
		jz	short loc_B80E
		call	setup_bgm_choice_put pascal, [bp+var_2], 0
		cmp	[bp+var_2], 0
		jnz	short loc_B86D
		mov	[bp+var_2], 2
		jmp	short loc_B870
; ---------------------------------------------------------------------------

loc_B86D:
		dec	[bp+var_2]

loc_B870:
		call	setup_bgm_choice_put pascal, [bp+var_2], V_WHITE
		jmp	short loc_B80E
; ---------------------------------------------------------------------------

loc_B87A:
		mov	_window_tiles.x, (400 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 9
		call	window_rollup_animate pascal, (192 shl 16) or 128
		mov	_window_tiles.x, (160 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 3
		call	window_rollup_animate pascal, ( 32 shl 16) or 128
		les	bx, _resident
		mov	al, byte ptr [bp+var_2]
		mov	es:[bx+resident_t.bgm_mode], al
		leave
		retn
sub_B794	endp


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

; Attributes: bp-based frame

sub_B8B1	proc near

var_2		= word ptr -2

		enter	2, 0
		mov	_window_tiles.x, (448 / WINDOW_TILE_W)
		call	window_singleline pascal, (96 shl 16) or 80
		call	graph_putsa_fx pascal, (112 shl 16) or 88, V_WHITE, ds, offset aSETUP_SE_HEAD
		mov	_window_tiles.x, (160 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 3
		call	window_dropdown_animate pascal, ( 32 shl 16) or 128
		mov	[bp+var_2], 0
		jmp	short loc_B908
; ---------------------------------------------------------------------------

loc_B8F1:
		push	[bp+var_2]
		cmp	[bp+var_2], 1
		jnz	short loc_B8FF
		mov	ax, V_WHITE
		jmp	short loc_B901
; ---------------------------------------------------------------------------

loc_B8FF:
		xor	ax, ax

loc_B901:
		push	ax
		call	setup_se_choice_put
		inc	[bp+var_2]

loc_B908:
		cmp	[bp+var_2], 3
		jl	short loc_B8F1
		mov	_window_tiles.x, (400 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 9
		call	window_dropdown_animate pascal, (192 shl 16) or 128
		call	setup_se_help_put
		mov	[bp+var_2], 1

loc_B92B:
		call	input_wait_for_change pascal, 0
		push	1
		call	frame_delay
		test	_key_det.hi, high INPUT_OK
		jnz	short loc_B997
		test	_key_det.lo, low INPUT_SHOT
		jnz	short loc_B997
		test	_key_det.lo, low INPUT_DOWN
		jz	short loc_B96E
		call	setup_se_choice_put pascal, [bp+var_2], 0
		cmp	[bp+var_2], 2
		jnz	short loc_B963
		mov	[bp+var_2], 0
		jmp	short loc_B966
; ---------------------------------------------------------------------------

loc_B963:
		inc	[bp+var_2]

loc_B966:
		call	setup_se_choice_put pascal, [bp+var_2], V_WHITE

loc_B96E:
		test	_key_det.lo, low INPUT_UP
		jz	short loc_B92B
		call	setup_se_choice_put pascal, [bp+var_2], 0
		cmp	[bp+var_2], 0
		jnz	short loc_B98A
		mov	[bp+var_2], 2
		jmp	short loc_B98D
; ---------------------------------------------------------------------------

loc_B98A:
		dec	[bp+var_2]

loc_B98D:
		call	setup_se_choice_put pascal, [bp+var_2], V_WHITE
		jmp	short loc_B92B
; ---------------------------------------------------------------------------

loc_B997:
		mov	_window_tiles.x, (400 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 9
		call	window_rollup_animate pascal, (192 shl 16) or 128
		mov	_window_tiles.x, (160 / WINDOW_TILE_W)
		mov	_window_tiles.y, 1 + 3
		call	window_rollup_animate pascal, ( 32 shl 16) or 128
		les	bx, _resident
		mov	al, byte ptr [bp+var_2]
		mov	es:[bx+resident_t.se_mode], al
		leave
		retn
sub_B8B1	endp


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

; Attributes: bp-based frame
public _setup_menu
_setup_menu proc near
		push	bp
		mov	bp, sp
		mov	PaletteTone, 0
		call	far ptr	palette_show
		call	super_entry_bfnt pascal, ds, offset aMswin_bft ; "mswin.bft"
		graph_accesspage 1
		call	pi_load pascal, 0, ds, offset aMs_pi
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		freePISlotLarge	0
		call	graph_copy_page pascal, 0
		push	1
		call	palette_black_in
		call	sub_B794
		push	1
		call	frame_delay
		call	graph_copy_page pascal, 0
		call	sub_B8B1
		push	1
		call	palette_black_out
		call	super_free
		pop	bp
		retn
_setup_menu endp

include th04/zunsoft.asm

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

; Attributes: bp-based frame
public DRAW_TRACK
draw_track	proc near

var_1		= byte ptr -1
@@color		= byte ptr  4
@@sel		= byte ptr  6

		enter	2, 0
		mov	al, 1
		sub	al, _music_page
		mov	[bp+var_1], al
		graph_accesspage al
		push	16
		mov	al, [bp+@@sel]
		mov	ah, 0
		shl	ax, 4
		add	ax, 8
		push	ax
		mov	al, [bp+@@color]
		mov	ah, 0
		push	ax
		mov	al, [bp+@@sel]
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		pushd	_MUSIC_TITLES[bx]
		call	graph_putsa_fx
		graph_accesspage _music_page
		push	16
		mov	al, [bp+@@sel]
		mov	ah, 0
		shl	ax, 4
		add	ax, 8
		push	ax
		mov	al, [bp+@@color]
		mov	ah, 0
		push	ax
		mov	al, [bp+@@sel]
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		pushd	_MUSIC_TITLES[bx]
		call	graph_putsa_fx
		leave
		retn	4
draw_track	endp


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

; Attributes: bp-based frame
public DRAW_TRACKS
draw_tracks	proc near

@@sel		= byte ptr  4

		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_BF5E
; ---------------------------------------------------------------------------

loc_BF49:
		push	si
		mov	al, [bp+@@sel]
		mov	ah, 0
		cmp	ax, si
		jnz	short loc_BF57
		mov	al, 3
		jmp	short loc_BF59
; ---------------------------------------------------------------------------

loc_BF57:
		mov	al, 5

loc_BF59:
		push	ax
		call	draw_track
		inc	si

loc_BF5E:
		cmp	si, 18h
		jl	short loc_BF49
		pop	si
		pop	bp
		retn	2
draw_tracks	endp

include th02/op/music.asm
include th02/op/music_cmt_load.asm

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

; Attributes: bp-based frame
public DRAW_CMT_LINES
draw_cmt_lines	proc near
		push	bp
		mov	bp, sp
		push	si
		call	graph_putsa_fx pascal, (320 shl 16) or 64, 7, ds, offset _music_cmt
		mov	si, 1
		jmp	short loc_C306
; ---------------------------------------------------------------------------

loc_C2DE:
		mov	bx, si
		imul	bx, MUSIC_CMT_LINE_LEN
		cmp	_music_cmt[bx], ';'
		jz	short loc_C305
		push	320
		lea	ax, [si+4]
		shl	ax, 4
		push	ax
		push	7
		push	ds
		mov	ax, si
		imul	ax, MUSIC_CMT_LINE_LEN
		add	ax, offset _music_cmt
		push	ax
		call	graph_putsa_fx

loc_C305:
		inc	si

loc_C306:
		cmp	si, MUSIC_CMT_LINE_COUNT
		jl	short loc_C2DE
		pop	si
		pop	bp
		retn
draw_cmt_lines	endp


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

; Attributes: bp-based frame

sub_C30E	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	si, FX_MASK
		jmp	short loc_C328
; ---------------------------------------------------------------------------

loc_C317:
		mov	_graph_putsa_fx_func, si
		call	draw_cmt_lines
		call	music_flip
		call	draw_cmt_lines
		call	music_flip
		inc	si

loc_C328:
		cmp	si, FX_MASK_END
		jl	short loc_C317
		mov	_graph_putsa_fx_func, FX_WEIGHT_BOLD
		call	draw_cmt_lines
		call	music_flip
		call	draw_cmt_lines
		pop	si
		pop	bp
		retn
sub_C30E	endp


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

; Attributes: bp-based frame

sub_C33F	proc near
		push	bp
		mov	bp, sp
		mov	_graph_putsa_fx_func, FX_WEIGHT_BOLD
		call	bgimage_put_rect pascal, (320 shl 16) or 64, (320 shl 16) or 320
		call	music_flip
		call	bgimage_put_rect pascal, (320 shl 16) or 64, (320 shl 16) or 320
		pop	bp
		retn
sub_C33F	endp


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

; Attributes: bp-based frame
public DRAW_CMT
draw_cmt	proc near

@@track		= word ptr  4

		push	bp
		mov	bp, sp
		cmp	byte_12DBE, 0
		jz	short loc_C37C
		call	sub_C33F

loc_C37C:
		call	music_cmt_load pascal, [bp+@@track]
		call	screen_back_B_put
		call	bgimage_put_rect pascal, (320 shl 16) or 64, (320 shl 16) or 320
		cmp	byte_12DBE, 0
		jz	short loc_C3A2
		call	sub_C30E
		jmp	short loc_C3B0
; ---------------------------------------------------------------------------

loc_C3A2:
		mov	byte_12DBE, 1
		call	draw_cmt_lines
		call	music_flip
		call	draw_cmt_lines

loc_C3B0:
		call	screen_back_B_put
		pop	bp
		retn	2
draw_cmt	endp


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

; Attributes: bp-based frame
public _musicroom
_musicroom	proc near
		push	bp
		mov	bp, sp
		mov	byte_12DBE, 0
		call	cdg_free_all
		call	text_clear
		mov	_music_page, 1
		mov	PaletteTone, 0
		call	far ptr	palette_show
		graph_showpage 0
		graph_accesspage al
		call	graph_clear
		graph_accesspage 1
		call	pi_load pascal, 0, ds, offset aMusic_pi
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		freePISlotLarge	0
		mov	al, music_track_playing
		mov	_music_sel, al
		call	draw_tracks pascal, word ptr _music_sel
		call	graph_copy_page pascal, 0
		call	_bgimage_snap
		graph_accesspage 1
		graph_showpage 0
		call	screen_back_B_snap
		mov	al, music_track_playing
		mov	ah, 0
		call	draw_cmt pascal, ax
		mov	PaletteTone, 100
		call	far ptr	palette_show

loc_C454:
		call	far ptr	_input_reset_sense
		cmp	_key_det, INPUT_NONE
		jz	short loc_C465
		call	music_flip
		jmp	short loc_C454
; ---------------------------------------------------------------------------

loc_C465:
		call	far ptr	_input_reset_sense
		test	_key_det.lo, low INPUT_UP
		jz	short loc_C4A0
		call	draw_track pascal, word ptr _music_sel, 5
		cmp	_music_sel, 0
		jbe	short loc_C487
		dec	_music_sel
		jmp	short loc_C48C
; ---------------------------------------------------------------------------

loc_C487:
		mov	_music_sel, 17h

loc_C48C:
		cmp	_music_sel, 16h
		jnz	short loc_C497
		dec	_music_sel

loc_C497:
		call	draw_track pascal, word ptr _music_sel, 3

loc_C4A0:
		test	_key_det.lo, low INPUT_DOWN
		jz	short loc_C4D6
		call	draw_track pascal, word ptr _music_sel, 5
		cmp	_music_sel, 17h
		jnb	short loc_C4BD
		inc	_music_sel
		jmp	short loc_C4C2
; ---------------------------------------------------------------------------

loc_C4BD:
		mov	_music_sel, 0

loc_C4C2:
		cmp	_music_sel, 16h
		jnz	short loc_C4CD
		inc	_music_sel

loc_C4CD:
		call	draw_track pascal, word ptr _music_sel, 3

loc_C4D6:
		test	_key_det.lo, low INPUT_SHOT
		jnz	short loc_C4E4
		test	_key_det.hi, high INPUT_OK
		jz	short loc_C51D

loc_C4E4:
		cmp	_music_sel, 17h
		jz	short loc_C533
		kajacall	KAJA_SONG_FADE, 32
		mov	al, _music_sel
		mov	music_track_playing, al
		mov	ah, 0
		call	draw_cmt pascal, ax
		mov	al, _music_sel
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		call	snd_load pascal, dword ptr _MUSIC_FILES[bx], SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY

loc_C51D:
		test	_key_det.hi, high INPUT_CANCEL
		jnz	short loc_C533
		cmp	_key_det, INPUT_NONE
		jnz	loc_C454
		call	music_flip
		jmp	loc_C465
; ---------------------------------------------------------------------------

loc_C533:
		call	far ptr	_input_reset_sense
		cmp	_key_det, INPUT_NONE
		jz	short loc_C544
		call	music_flip
		jmp	short loc_C533
; ---------------------------------------------------------------------------

loc_C544:
		kajacall	KAJA_SONG_FADE, 16
		call	screen_back_B_free
		graph_showpage 0
		graph_accesspage al
		push	1
		call	palette_black_out
		call	_bgimage_free
		call	snd_load pascal, ds, offset aOp_2, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		pop	bp
		retn
_musicroom	endp

include th04/formats/scoredat_decode_both.asm
include th04/formats/scoredat_encode.asm
include th04/formats/scoredat_recreate.asm
include th04/formats/scoredat_load_both.asm

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

; Attributes: bp-based frame

sub_C79E	proc near

var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6

		enter	4, 0
		push	si
		push	di
		mov	di, [bp+arg_2]
		mov	si, [bp+arg_0]
		mov	[bp+var_4], 16
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_reimu.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		cmp	ax, 10
		jl	short loc_C7E0
		push	140
		push	di
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_reimu.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		mov	bx, 10
		cwd
		idiv	bx
		push	ax
		call	super_put

loc_C7E0:
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_marisa.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		cmp	ax, 10
		jl	short loc_C811
		push	448
		push	di
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_marisa.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		mov	bx, 10
		cwd
		idiv	bx
		push	ax
		call	super_put

loc_C811:
		push	156
		push	di
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_reimu.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		mov	bx, 10
		cwd
		idiv	bx
		push	dx
		call	super_put
		push	464
		push	di
		mov	bx, si
		shl	bx, 3
		mov	al, _hi_marisa.score.g_score[bx][SCORE_DIGITS - 1]
		mov	ah, 0
		add	ax, -gb_0_
		mov	bx, 10
		cwd
		idiv	bx
		push	dx
		call	super_put
		mov	[bp+var_2], 6
		jmp	short loc_C899
; ---------------------------------------------------------------------------

loc_C854:
		mov	ax, [bp+var_4]
		add	ax, 156
		push	ax
		push	di
		mov	bx, si
		shl	bx, 3
		add	bx, [bp+var_2]
		mov	al, _hi_reimu.score.g_score[bx]
		mov	ah, 0
		add	ax, -gb_0_
		push	ax
		call	super_put
		mov	ax, [bp+var_4]
		add	ax, 464
		push	ax
		push	di
		mov	bx, si
		shl	bx, 3
		add	bx, [bp+var_2]
		mov	al, _hi_marisa.score.g_score[bx]
		mov	ah, 0
		add	ax, -gb_0_
		push	ax
		call	super_put
		dec	[bp+var_2]
		add	[bp+var_4], 16

loc_C899:
		cmp	[bp+var_2], 0
		jge	short loc_C854
		pop	di
		pop	si
		leave
		retn	4
sub_C79E	endp

include th04/hiscore/hiscore_stage_put.asm

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

; Attributes: bp-based frame

sub_C8F5	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, [bp+arg_0]
		or	si, si
		jnz	loc_C989
		push	(10 shl 16) or 98
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_reimu.score.g_name
		push	ds
		push	ax
		push	14
		call	graph_gaiji_puts
		push	(8 shl 16) or 96
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_reimu.score.g_name
		push	ds
		push	ax
		push	7
		call	graph_gaiji_puts
		push	(322 shl 16) or 98
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_marisa.score.g_name
		push	ds
		push	ax
		push	14
		call	graph_gaiji_puts
		push	(320 shl 16) or 96
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_marisa.score.g_name
		push	ds
		push	ax
		push	7
		call	graph_gaiji_puts
		push	600000h
		call	sub_C79E
		push	(292 shl 16) or 96
		mov	al, _hi_reimu.score.g_stage[si]
		mov	ah, 0
		push	ax
		call	hiscore_stage_put
		push	(600 shl 16) or 96
		jmp	loc_CA0A
; ---------------------------------------------------------------------------

loc_C989:
		mov	ax, si
		shl	ax, 4
		add	ax, 112
		mov	di, ax
		push	10
		add	ax, 2
		push	ax
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_reimu.score.g_name
		push	ds
		push	ax
		push	14
		call	graph_gaiji_puts
		push	8
		push	di
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_reimu.score.g_name
		push	ds
		push	ax
		push	2
		call	graph_gaiji_puts
		push	322
		lea	ax, [di+2]
		push	ax
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_marisa.score.g_name
		push	ds
		push	ax
		push	14
		call	graph_gaiji_puts
		push	320
		push	di
		push	GAIJI_W
		mov	ax, si
		imul	ax, (SCOREDAT_NAME_LEN + 1)
		add	ax, offset _hi_marisa.score.g_name
		push	ds
		push	ax
		push	2
		call	graph_gaiji_puts
		push	di
		push	si
		call	sub_C79E
		push	292
		push	di
		mov	al, _hi_reimu.score.g_stage[si]
		mov	ah, 0
		push	ax
		call	hiscore_stage_put
		push	600
		push	di

loc_CA0A:
		mov	al, _hi_marisa.score.g_stage[si]
		mov	ah, 0
		push	ax
		call	hiscore_stage_put
		pop	di
		pop	si
		pop	bp
		retn	2
sub_C8F5	endp


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

; Attributes: bp-based frame
public _score_render
_score_render proc near
		push	bp
		mov	bp, sp
		push	si
		graph_accesspage 1
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		graph_accesspage 0
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		push	0
		call	sub_C8F5
		mov	si, 1
		jmp	short loc_CA5B
; ---------------------------------------------------------------------------

loc_CA56:
		push	si
		call	sub_C8F5
		inc	si

loc_CA5B:
		cmp	si, 9
		jl	short loc_CA56
		push	9
		call	sub_C8F5
		push	(496 shl 16) or 376
		mov	al, _rank
		mov	ah, 0
		add	ax, ax
		add	ax, 10
		push	ax
		call	super_put
		push	(560 shl 16) or 376
		mov	al, _rank
		mov	ah, 0
		add	ax, ax
		add	ax, 11
		push	ax
		call	super_put
		pop	si
		pop	bp
		retn
_score_render endp


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

; Attributes: bp-based frame
public _regist_view_menu
_regist_view_menu proc near
		push	bp
		mov	bp, sp
		kajacall	KAJA_SONG_STOP
		call	snd_load pascal, ds, offset aName, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		kajacall	KAJA_SONG_FADE, -128
		push	1
		call	palette_black_out
		les	bx, _resident
		assume es:nothing
		mov	al, es:[bx+resident_t.rank]
		mov	_rank, al
		call	_scoredat_load_both
		call	pi_load pascal, 0, ds, offset aHi01_pi

loc_CADA:
		call	_score_render
		push	1
		call	palette_black_in

loc_CAE4:
		call	far ptr	_input_reset_sense
		push	1
		call	frame_delay
		test	_key_det.hi, high INPUT_OK
		jnz	short loc_CB58
		test	_key_det.lo, low INPUT_SHOT
		jnz	short loc_CB58
		test	_key_det.hi, high INPUT_CANCEL
		jnz	short loc_CB58
		test	_key_det.hi, high INPUT_OK
		jnz	short loc_CB58
		test	_key_det.lo, low INPUT_LEFT
		jz	short loc_CB36
		cmp	_rank, RANK_EASY
		jz	short loc_CB36
		dec	_rank
		mov	PaletteTone, 0
		call	far ptr	palette_show
		call	_scoredat_load_both
		call	_score_render
		push	1
		call	palette_black_in

loc_CB36:
		test	_key_det.lo, low INPUT_RIGHT
		jz	short loc_CAE4
		cmp	_rank, RANK_EXTRA
		jnb	short loc_CAE4
		inc	_rank
		mov	PaletteTone, 0
		call	far ptr	palette_show
		call	_scoredat_load_both
		jmp	short loc_CADA
; ---------------------------------------------------------------------------

loc_CB58:
		kajacall	KAJA_SONG_FADE, 1
		push	1
		call	palette_black_out
		freePISlotLarge	0
		graph_accesspage 1
		call	pi_load pascal, 0, ds, offset aOp1_pi_0
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		freePISlotLarge	0
		call	graph_copy_page pascal, 0
		push	1
		call	palette_black_in

loc_CBB3:
		call	far ptr	_input_reset_sense
		push	1
		call	frame_delay
		cmp	_key_det, INPUT_NONE
		jnz	short loc_CBB3
		kajacall	KAJA_SONG_STOP
		call	snd_load pascal, ds, offset aOp_0, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		pop	bp
		retn
_regist_view_menu endp


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

; Attributes: bp-based frame
public _cleardata_and_regist_view_sprite
_cleardata_and_regist_view_sprite	proc near
		push	bp
		mov	bp, sp
		mov	_rank, RANK_EASY
		jmp	loc_CC6F
; ---------------------------------------------------------------------------

loc_CBEE:
		call	_scoredat_load_both
		or	al, al
		jnz	loc_CC78
		mov	al, _rank
		mov	ah, 0
		mov	dl, _hi_reimu.score.cleared
		mov	bx, ax
		mov	_cleared_with_reimu[bx], dl
		mov	al, _rank
		mov	ah, 0
		mov	dl, _hi_marisa.score.cleared
		mov	bx, ax
		mov	_cleared_with_marisa[bx], dl
		mov	al, _rank
		mov	ah, 0
		mov	bx, ax
		cmp	_cleared_with_reimu[bx], SCOREDAT_CLEARED_BOTH
		jbe	short loc_CC2F
		mov	al, _rank
		mov	ah, 0
		mov	bx, ax
		mov	_cleared_with_reimu[bx], 0

loc_CC2F:
		mov	al, _rank
		mov	ah, 0
		mov	bx, ax
		cmp	_cleared_with_marisa[bx], SCOREDAT_CLEARED_BOTH
		jbe	short loc_CC49
		mov	al, _rank
		mov	ah, 0
		mov	bx, ax
		mov	_cleared_with_marisa[bx], 0

loc_CC49:
		cmp	_rank, RANK_EASY
		jz	short loc_CC6B
		mov	al, _rank
		mov	ah, 0
		mov	bx, ax
		mov	al, _cleared_with_reimu[bx]
		mov	dl, _rank
		mov	dh, 0
		mov	bx, dx
		or	al, _cleared_with_marisa[bx]
		or	_extra_unlocked, al

loc_CC6B:
		inc	_rank

loc_CC6F:
		cmp	_rank, RANK_COUNT
		jb	loc_CBEE

loc_CC78:
		les	bx, _resident
		mov	al, es:[bx+resident_t.rank]
		mov	_rank, al
		call	super_entry_bfnt pascal, ds, offset aScnum_bft ; "scnum.bft"
		call	super_entry_bfnt pascal, ds, offset aHi_m_bft ; "hi_m.bft"
		pop	bp
		retn
_cleardata_and_regist_view_sprite	endp


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

; Attributes: bp-based frame
public _main_cdg_load
_main_cdg_load	proc near
		push	bp
		mov	bp, sp
		call	cdg_load_all pascal, CDG_NUMERAL, ds, offset aSft1_cd2
		call	cdg_load_all pascal, CDG_MAIN, ds, offset aSft2_cd2
		call	cdg_load_all pascal, CDG_CURSOR, ds, offset aCar_cd2
		call	cdg_load_all_noalpha pascal, 40, ds, offset aSl_cd2
		pop	bp
		retn
_main_cdg_load	endp


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

; Attributes: bp-based frame
public _main_cdg_free
_main_cdg_free	proc near
		push	bp
		mov	bp, sp
		call	cdg_free_all
		pop	bp
		retn
_main_cdg_free	endp


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

; Attributes: bp-based frame
public _op_animate
_op_animate	proc near

@@page		= byte ptr -4
var_3		= byte ptr -3
@@component		= word ptr -2

		enter	4, 0
		push	si
		push	di
		mov	PaletteTone, 0
		call	far ptr	palette_show
		graph_accesspage 1
		call	grcg_setcolor pascal, (GC_RMW shl 16) + V_WHITE
		call	grcg_byteboxfill_x pascal, large 0, (((RES_X - 1) / 8) shl 16) or (RES_Y - 1)
		GRCG_OFF_CLOBBERING dx
		call	graph_copy_page pascal, 0
		call	pi_load pascal, 0, ds, offset aOp5b_pi
		call	pi_load pascal, 1, ds, offset aOp4b_pi
		call	pi_load pascal, 2, ds, offset aOp3b_pi
		call	pi_load pascal, 3, ds, offset aOp2b_pi
		call	pi_load pascal, 4, ds, offset aOp1b_pi
		call	pi_load pascal, 5, ds, offset aOp0b_pi
		call	pi_palette_apply pascal, 0
		push	4
		call	palette_black_in
		graph_showpage 0
		graph_accesspage 1
		xor	si, si
		mov	[bp+var_3], 0
		mov	di, 100
		mov	[bp+@@page], 0
		jmp	short loc_CDC4
; ---------------------------------------------------------------------------

loc_CD7A:
		mov	ax, si
		mov	bx, 4
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_CDB0
		cmp	[bp+var_3], 6
		jnb	short loc_CDB0
		pushd	38
		mov	al, [bp+var_3]
		mov	ah, 0
		push	ax
		call	pi_put_8
		inc	[bp+var_3]
		graph_accesspage [bp+@@page]
		mov	al, 1
		sub	al, [bp+@@page]
		mov	[bp+@@page], al
		graph_showpage al

loc_CDB0:
		mov	PaletteTone, di
		call	far ptr	palette_show
		add	di, 2
		push	1
		call	frame_delay
		inc	si

loc_CDC4:
		cmp	si, 1Ch
		jl	short loc_CD7A
		mov	PaletteTone, 200
		call	far ptr	palette_show
		graph_showpage 0
		graph_accesspage al
		freePISlotLarge	0
		freePISlotLarge	1
		freePISlotLarge	2
		freePISlotLarge	3
		freePISlotLarge	4
		freePISlotLarge	5
		les	bx, _resident
		cmp	es:[bx+resident_t.demo_num], 0
		jnz	short loc_CE50
		call	snd_load pascal, ds, offset aOp_1, SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY

loc_CE50:
		graph_accesspage 1
		call	pi_load pascal, 0, ds, offset aOp1_pi_1
		call	pi_palette_apply pascal, 0
		call	pi_put_8 pascal, large 0, 0
		freePISlotLarge	0
		call	graph_copy_page pascal, 0
		xor	si, si
		jmp	short loc_CEAA
; ---------------------------------------------------------------------------

loc_CE8B:
		mov	bx, si
		imul	bx, size rgb_t
		mov	Palettes[bx].r, 255
		mov	bx, si
		imul	bx, size rgb_t
		mov	Palettes[bx].g, 255
		mov	bx, si
		imul	bx, size rgb_t
		mov	Palettes[bx].b, 255
		inc	si

loc_CEAA:
		cmp	si, COLOR_COUNT
		jl	short loc_CE8B
		call	far ptr	palette_show
		mov	PaletteTone, 100
		call	far ptr	palette_show
		xor	si, si
		mov	[bp+var_3], 240
		jmp	short loc_CEE8
; ---------------------------------------------------------------------------

loc_CEC7:
		mov	al, [bp+var_3]
		mov	Palettes[0 * size rgb_t].r, al
		mov	Palettes[0 * size rgb_t].g, al
		mov	Palettes[0 * size rgb_t].b, al
		call	far ptr	palette_show
		push	1
		call	frame_delay
		inc	si
		mov	al, [bp+var_3]
		add	al, -16
		mov	[bp+var_3], al

loc_CEE8:
		cmp	si, 15
		jl	short loc_CEC7
		xor	si, si
		mov	[bp+var_3], 252
		jmp	short loc_CF4E
; ---------------------------------------------------------------------------

loc_CEF5:
		mov	di, 1
		jmp	short loc_CF34
; ---------------------------------------------------------------------------

loc_CEFA:
		mov	[bp+@@component], 0
		jmp	short loc_CF2D
; ---------------------------------------------------------------------------

loc_CF01:
		mov	bx, di
		imul	bx, size rgb_t
		add	bx, [bp+@@component]
		mov	al, _pi_headers._palette[bx]
		mov	bx, di
		imul	bx, size rgb_t
		add	bx, [bp+@@component]
		cmp	al, Palettes[bx].r
		jnb	short loc_CF2A
		mov	bx, di
		imul	bx, size rgb_t
		add	bx, [bp+@@component]
		mov	al, [bp+var_3]
		mov	Palettes[bx].r, al

loc_CF2A:
		inc	[bp+@@component]

loc_CF2D:
		cmp	[bp+@@component], size rgb_t
		jl	short loc_CF01
		inc	di

loc_CF34:
		cmp	di, COLOR_COUNT
		jl	short loc_CEFA
		call	far ptr	palette_show
		push	1
		call	frame_delay
		inc	si
		mov	al, [bp+var_3]
		add	al, -4
		mov	[bp+var_3], al

loc_CF4E:
		cmp	si, 63
		jl	short loc_CEF5
		call	pi_palette_apply pascal, 0
		pop	di
		pop	si
		leave
		retn
_op_animate	endp

	_playchar_menu procdesc near
op_01_TEXT	ends

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

SHARED	segment	word public 'CODE' use16
	extern FRAME_DELAY:proc
	extern PI_PALETTE_APPLY:proc
	extern PI_PUT_8:proc
	extern PI_LOAD:proc
	extern INPUT_WAIT_FOR_CHANGE:proc
	extern @POLAR$QIII:proc
	extern SND_KAJA_INTERRUPT:proc
	extern SND_DETERMINE_MODES:proc
	extern SND_DELAY_UNTIL_MEASURE:proc
	extern @game_exit_to_dos$qv:proc
	extern SND_LOAD:proc
SHARED	ends

SHARED_	segment	word public 'CODE' use16
		assume cs:g_SHARED
		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing

include th04/hardware/grppsafx.asm
	extern @game_exit$qv:proc
	extern @game_init_op$qnxuc:proc
	extern _input_reset_sense:proc
	extern _input_sense:proc
	extern _snd_se_reset:proc
	extern SND_SE_PLAY:proc
	extern _snd_se_update:proc
	extern @EGC_COPY_RECT_1_TO_0_16$QIIII:proc
	extern _bgimage_snap:proc
	extern _bgimage_put:proc
	extern _bgimage_free:proc
	extern BGIMAGE_PUT_RECT:proc
	extern CDG_LOAD_ALL_NOALPHA:proc
	extern CDG_LOAD_ALL:proc
	extern CDG_FREE_ALL:proc
	extern FRAME_DELAY_2:proc
SHARED_	ends

	.data

	extern _menu_sel:byte
	extern _quit:byte

public _MENU_DESC
_MENU_DESC label dword
		dd aGqbGav		; "ゲームを開始します"
		dd aGgglgxgggigxge	; "エキストラステージを開始します"
		dd aMNVGngcgxgrgav	; "現在のハイスコアを表\示します"
		dd aIKyoVU		; "音楽室に入ります"
		dd aKeoarTsv		; "各種設定を変更出来ます"
		dd aVcvnvrvCVsvV	; "ＤＯＳに戻ります"
		dd aUqiUxv		; "難易度をやさしくします　（初心者向け、・...
		dd aUqiUxv_1		; "難易度を標準にします　　　（一般向け、・...
		dd aUqiUxv_0		; "難易度を難しくします　　　（アーケーダ・...
		dd aUqiUxv_2		; "難易度を非常に難しくします　（シュータ・...
		dd aGqbGagxgBGgouv	; "ゲームスタート時の人数を変更出来ます（・...
		dd aGGavOgcpi		; "ボムの使用回数を変更出来ます（除くエキ・...
		dd aVavfvlvCmvVVV	; "ＢＧＭは流れません"
		dd aVavfvlvVqvuvji	; "ＢＧＭに２６Ｋ音源互換を使用します"
		dd aVavfvlvVwvuiMM	; "ＢＧＭに８６音源互換を使用します"
		dd aM_0			; "効果音は流れません"
		dd aM_2			; "効果音にＦＭ音源を使用します"
		dd aM_1			; "効果音にＢｅｅｐ音源を使用します"
		dd aUgtevSVvpPkvBa	; "敵弾の多い場所で、わざと処理落ち（スロ・...
		dd aPicacovV		; "処理落ちをマシンのスピードに任せます（・...
		dd aVVGigvgvgzguv	; "このオプションを全て標準に戻します"
		dd aGigvgvgzguv		; "オプションを終了します"
		dd aGqbGav_0		; "ゲームを開始します（イージー）"
		dd aGqbGav_1		; "ゲームを開始します（ノーマル）"
		dd aGqbGav_2		; "ゲームを開始します（ハード）"
		dd aGqbGav_3		; "ゲームを開始します（ルナティック）"

public _main_menu_initialized
_main_menu_initialized	db 0
_option_initialized	db 0

public _CFG_FN, _aMAIN, _aDEB
_CFG_FN	db 'MIKO.CFG',0
_aMAIN	db 'main',0
_aDEB	db 'deb',0
aGqbGav		db 'ゲームを開始します',0
aGgglgxgggigxge	db 'エキストラステージを開始します',0
aMNVGngcgxgrgav	db '現在のハイスコアを表示します',0
aIKyoVU		db '音楽室に入ります',0
aKeoarTsv	db '各種設定を変更出来ます',0
aVcvnvrvCVsvV	db 'ＤＯＳに戻ります',0
aUqiUxv		db '難易度をやさしくします　（初心者向け、５面エンド）',0
aUqiUxv_1	db '難易度を標準にします　　　（一般向け、全６面）　　',0
aUqiUxv_0	db '難易度を難しくします　　　（アーケーダー向け）　　',0
aUqiUxv_2	db '難易度を非常に難しくします　（シューター向け）　　',0
aGqbGagxgBGgouv	db 'ゲームスタート時の人数を変更出来ます（除くエキストラ）',0
aGGavOgcpi	db 'ボムの使用回数を変更出来ます（除くエキストラ）',0
aVavfvlvCmvVVV	db 'ＢＧＭは流れません',0
aVavfvlvVqvuvji	db 'ＢＧＭに２６Ｋ音源互換を使用します',0
aVavfvlvVwvuiMM	db 'ＢＧＭに８６音源互換を使用します',0
aM_0		db '効果音は流れません',0
aM_2		db '効果音にＦＭ音源を使用します',0
aM_1		db '効果音にＢｅｅｐ音源を使用します',0
aUgtevSVvpPkvBa	db '敵弾の多い場所で、わざと処理落ち（スロー）させます（初心者用）',0
aPicacovV	db '処理落ちをマシンのスピードに任せます（標準）',0
aVVGigvgvgzguv	db 'このオプションを全て標準に戻します',0
aGigvgvgzguv	db 'オプションを終了します',0
aGqbGav_0	db 'ゲームを開始します（イージー）',0
aGqbGav_1	db 'ゲームを開始します（ノーマル）',0
aGqbGav_2	db 'ゲームを開始します（ハード）',0
aGqbGav_3	db 'ゲームを開始します（ルナティック）',0
public _MENU_MAIN_BG_FN
_MENU_MAIN_BG_FN	db 'op1.pi',0
aOp		db 'op',0
aMSzlEd_dat	db '幻想郷ed.dat',0
asc_F7F7	db 0Ah
		db '空きメモリ不足です。メモリ空きを増やしてから実行してね',0Ah,0
aGameft_bft	db 'GAMEFT.bft',0
aMiko		db 'miko',0
include libs/master.lib/atrtcmod[data].asm
include libs/master.lib/bfnt_id[data].asm
include libs/master.lib/clip[data].asm
include libs/master.lib/edges[data].asm
include libs/master.lib/fil[data].asm
include libs/master.lib/dos_ropen[data].asm
include libs/master.lib/get_machine_98[data].asm
include libs/master.lib/get_machine_at[data].asm
include libs/master.lib/gaiji_backup[data].asm
include libs/master.lib/gaiji_entry_bfnt[data].asm
include libs/master.lib/grp[data].asm
include libs/master.lib/js[data].asm
include libs/master.lib/machine[data].asm
include libs/master.lib/pal[data].asm
include libs/master.lib/pf[data].asm
include libs/master.lib/rand[data].asm
include libs/master.lib/sin8[data].asm
include libs/master.lib/tx[data].asm
include libs/master.lib/vs[data].asm
include libs/master.lib/wordmask[data].asm
include libs/master.lib/mem[data].asm
include libs/master.lib/super_entry_bfnt[data].asm
include libs/master.lib/superpa[data].asm
include libs/master.lib/respal_exist[data].asm
include libs/master.lib/draw_trapezoid[data].asm
include th02/formats/pfopen[data].asm
include libs/master.lib/bgm_timerhook[data].asm
include libs/master.lib/bgm[data].asm
include th04/snd/se_priority[data].asm
include th04/snd/snd[data].asm
		db    0
include th04/snd/load[data].asm
include th04/hardware/grppsafx[data].asm
include th03/snd/se_state[data].asm
include th04/hardware/bgimage[data].asm
include th03/formats/cdg[data].asm
include th04/setup[data].asm
include th04/zunsoft[data].asm
public _MUSIC_TITLES
_MUSIC_TITLES	label dword
		dd aNo_1MSzlBLotus	; "No.1	  幻想郷  〜 Lotus Land	Story"
		dd aNo_2WitchingDr	; "No.2		Witching Dream	     "
		dd aNo_3SeleneSLig	; "No.3		Selene's light       "
		dd aNo_4Sxp		; "No.4	 装飾戦　〜 Decoration Battle"
		dd aNo_5BreakTheSa	; "No.5	       Break the Sabbath     "
		dd aNo_6NglLBScarl	; "No.6	  紅響曲  〜 Scarlet Phoneme "
		dd aNo_7BadApple	; "No.7		  Bad Apple!!	     "
		dd aNo_8CRab@bPerd	; "No.8	   霊戦　〜 Perdition crisis "
		dd aNo_9GagkgxgGgg	; "No.9	       アリスマエステラ	     "
		dd aNo_10Pnpcuyszl	; "No.10   少女綺想曲　〜 Capriccio  "
		dd aNo_11RpvKab@bC	; "No.11  星の器　〜 Casket of Star  "
		dd aNo_12LotusLove	; "No.12	  Lotus	Love	     "
		dd aNo_13CVVslXBSl	; "No.13 眠れる恐怖 〜Sleeping Terror"
		dd aNo_14DreamLand	; "No.14	  Dream	Land	     "
		dd aNo_15ChcB@bIna	; "No.15   幽夢　〜 Inanimate Dream  "
		dd aNo_16LVVVsv		; "No.16     禁じざるをえない遊戯    "
		dd aNo_17GbgcghmSz	; "No.17 メイド幻想　〜	Icemilk	Magic"
		dd aNo_18Vivavvvvi	; "No.18  かわいい悪魔　〜 Innocence "
		dd aNo_19Days		; "No.19	     Days	     "
		dd aNo_20Peaceful	; "No.20	   Peaceful	     "
		dd aNo_21ArcadianD	; "No.21	Arcadian Dream	     "
		dd aNo_22MSzvPzrl	; "No.22	  幻想の住人	     "
		dd asc_105B2		; "				     "
		dd aB@b@vpvxvivf	; "	       　　Ｑｕｉｔ	     "
public _MUSIC_FILES
_MUSIC_FILES	label dword
		dd aOp_2		; "op"
		dd aSt00		; "st00"
		dd aSt10		; "st10"
		dd aSt00b		; "st00b"
		dd aSt01		; "st01"
		dd aSt01b		; "st01b"
		dd aSt02		; "st02"
		dd aSt02b		; "st02b"
		dd aSt03		; "st03"
		dd aSt03c		; "st03c"
		dd aSt03b		; "st03b"
		dd aSt04		; "st04"
		dd aSt04b		; "st04b"
		dd aSt05		; "st05"
		dd aSt05b		; "st05b"
		dd aSt06		; "st06"
		dd aSt06b		; "st06b"
		dd aSt06c		; "st06c"
		dd aEnd1		; "end1"
		dd aEnd2		; "end2"
		dd aStaff		; "staff"
		dd aName_0		; "name"
include th02/op/polygons[data].asm
music_track_playing	db 0
aNo_1MSzlBLotus	db 'No.1   幻想郷  〜 Lotus Land Story',0
aNo_2WitchingDr	db 'No.2         Witching Dream       ',0
aNo_3SeleneSLig	db 'No.3         Selene',27h,'s light       ',0
aNo_4Sxp	db 'No.4  装飾戦　〜 Decoration Battle',0
aNo_5BreakTheSa	db 'No.5        Break the Sabbath     ',0
aNo_6NglLBScarl	db 'No.6   紅響曲  〜 Scarlet Phoneme ',0
aNo_7BadApple	db 'No.7           Bad Apple!!        ',0
aNo_8CRab@bPerd	db 'No.8    霊戦　〜 Perdition crisis ',0
aNo_9GagkgxgGgg	db 'No.9        アリスマエステラ      ',0
aNo_10Pnpcuyszl	db 'No.10   少女綺想曲　〜 Capriccio  ',0
aNo_11RpvKab@bC	db 'No.11  星の器　〜 Casket of Star  ',0
aNo_12LotusLove	db 'No.12          Lotus Love         ',0
aNo_13CVVslXBSl	db 'No.13 眠れる恐怖 〜Sleeping Terror',0
aNo_14DreamLand	db 'No.14          Dream Land         ',0
aNo_15ChcB@bIna	db 'No.15   幽夢　〜 Inanimate Dream  ',0
aNo_16LVVVsv	db 'No.16     禁じざるをえない遊戯    ',0
aNo_17GbgcghmSz	db 'No.17 メイド幻想　〜 Icemilk Magic',0
aNo_18Vivavvvvi	db 'No.18  かわいい悪魔　〜 Innocence ',0
aNo_19Days	db 'No.19             Days            ',0
aNo_20Peaceful	db 'No.20           Peaceful          ',0
aNo_21ArcadianD	db 'No.21        Arcadian Dream       ',0
aNo_22MSzvPzrl	db 'No.22          幻想の住人         ',0
asc_105B2	db '                                  ',0
aB@b@vpvxvivf	db '            　　Ｑｕｉｔ          ',0
aOp_2		db 'op',0
aSt00		db 'st00',0
aSt10		db 'st10',0
aSt00b		db 'st00b',0
aSt01		db 'st01',0
aSt01b		db 'st01b',0
aSt02		db 'st02',0
aSt02b		db 'st02b',0
aSt03		db 'st03',0
aSt03c		db 'st03c',0
aSt03b		db 'st03b',0
aSt04		db 'st04',0
aSt04b		db 'st04b',0
aSt05		db 'st05',0
aSt05b		db 'st05b',0
aSt06		db 'st06',0
aSt06b		db 'st06b',0
aSt06c		db 'st06c',0
aEnd1		db 'end1',0
aEnd2		db 'end2',0
aStaff		db 'staff',0
aName_0		db 'name',0
include th04/op/music_cmt_load[data].asm
aMusic_pi	db 'music.pi',0
aGensou_scr	db 'GENSOU.SCR',0
aName		db 'name',0
aHi01_pi	db 'hi01.pi',0
aOp1_pi_0	db 'op1.pi',0
aOp_0		db 'op',0
aScnum_bft	db 'scnum.bft',0
aHi_m_bft	db 'hi_m.bft',0
		db    0
aSft1_cd2	db 'sft1.cd2',0
aSft2_cd2	db 'sft2.cd2',0
aCar_cd2	db 'car.cd2',0
aSl_cd2		db 'sl.cd2',0
aOp5b_pi	db 'op5b.pi',0
aOp4b_pi	db 'op4b.pi',0
aOp3b_pi	db 'op3b.pi',0
aOp2b_pi	db 'op2b.pi',0
aOp1b_pi	db 'op1b.pi',0
aOp0b_pi	db 'op0b.pi',0
aOp_1		db 'op',0
aOp1_pi_1	db 'op1.pi',0

	.data?

	extern _resident:dword
	extern _in_option:byte
	extern _menu_unput_and_put:word

_option_input_allowed = byte ptr $-1 ; place in padding area of previous segment

include libs/master.lib/clip[bss].asm
include libs/master.lib/fil[bss].asm
include libs/master.lib/js[bss].asm
include libs/master.lib/pal[bss].asm
include libs/master.lib/vs[bss].asm
include libs/master.lib/vsync[bss].asm
include libs/master.lib/mem[bss].asm
include libs/master.lib/superpa[bss].asm
include libs/master.lib/super_put_rect[bss].asm
include th01/hardware/vram_planes[bss].asm
include libs/master.lib/pfint21[bss].asm
include th02/formats/pi_slots[bss].asm
include th03/formats/hfliplut[bss].asm
include th04/snd/interrupt[bss].asm
include libs/master.lib/bgm[bss].asm
include th02/snd/load[bss].asm
include th04/mem[bss].asm
include th04/hardware/input[bss].asm
include th04/hardware/egcrect[bss].asm
include th04/formats/cdg[bss].asm
include th04/setup[bss].asm
include th04/zunsoft[bss].asm
		db 56 dup(?)
include th02/op/music[bss].asm
byte_12DBE	db ?
		db    ?	;
include th03/op/cmt_back[bss].asm
include th02/op/music_cmt[bss].asm
include th04/formats/scoredat_op[bss].asm
_rank	db ?
public _cleared_with, _extra_unlocked
_cleared_with label byte
_cleared_with_reimu 	db RANK_COUNT dup (?)
_cleared_with_marisa	db RANK_COUNT dup (?)
_extra_unlocked	db ?
		db 49 dup(?)

		end