th02_main.asm

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

; File Name   :	th02/MAIN.EXE
; Format      :	MS-DOS executable (EXE)
; Base Address:	0h Range: 0h-26EB0h Loaded length: 1F466h
; 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 main_02_TEXT
		__LARGE__ equ 1
		.386 ; ... then switch to what we actually need.
		; And yes, we can't move this to an include file for some reason.

include ReC98.inc
include th02/th02.asm

	extern SCOPY@:proc
	extern _execl:proc
	extern _getdate:proc
	extern _memcpy:proc

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

; 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/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_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/cutline.asm
include libs/master.lib/dos_axdx.asm
include libs/master.lib/dos_filesize.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_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_size.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_circlefill.asm
include libs/master.lib/grcg_circle.asm
include libs/master.lib/grcg_circle_x.asm
include libs/master.lib/grc_setclip.asm
include libs/master.lib/grcg_fill.asm
include libs/master.lib/grcg_hline.asm
include libs/master.lib/grcg_line.asm
include libs/master.lib/grcg_pset.asm
include libs/master.lib/grcg_setcolor.asm
include libs/master.lib/grcg_vline.asm
include libs/master.lib/gdc_outpw.asm
		db 0
include libs/master.lib/gaiji_backup.asm
include libs/master.lib/gaiji_entry_bfnt.asm
include libs/master.lib/gaiji_putca.asm
include libs/master.lib/gaiji_putsa.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_scrollup.asm
include libs/master.lib/graph_scroll.asm
include libs/master.lib/iatan2.asm
include libs/master.lib/key_sense.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/text_boxfilla.asm
include libs/master.lib/text_clear.asm
include libs/master.lib/text_fillca.asm
include libs/master.lib/text_putca.asm
include libs/master.lib/text_putsa.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/palette_white_out.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_put_1plane.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_clean.asm
include libs/master.lib/super_roll_put_1plane.asm
include libs/master.lib/super_roll_put.asm
include libs/master.lib/super_put_rect.asm
include libs/master.lib/super_put.asm
include libs/master.lib/super_roll_put_tiny.asm
include libs/master.lib/super_convert_tiny.asm
include libs/master.lib/super_zoom.asm

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

; Attributes: bp-based frame

sub_3998	proc far

arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		push	di
		push	ds
		mov	di, [bp+arg_2]
		mov	ax, [bp+arg_4]
		sar	ax, 3
		mov	dx, di
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	ax, [bp+arg_0]
		shl	ax, 7
		mov	dx, word ptr _mptn_buffer+2
		mov	bx, word ptr _mptn_buffer
		add	bx, ax
		mov	ds, dx
		mov	si, bx
		mov	cx, 10h

loc_39CC:
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		mov	ax, [si]
		mov	es:[di], ax
		mov	ax, 0B000h
		mov	es, ax
		assume es:nothing
		mov	ax, [si+20h]
		mov	es:[di], ax
		mov	ax, 0B800h
		mov	es, ax
		assume es:nothing
		mov	ax, [si+40h]
		mov	es:[di], ax
		mov	ax, 0E000h
		mov	es, ax
		assume es:nothing
		mov	ax, [si+60h]
		mov	es:[di], ax
		add	di, 50h	; 'P'
		add	si, 2
		loop	loc_39CC
		pop	ds
		pop	di
		pop	si
		pop	bp
		retf	6
sub_3998	endp

include libs/master.lib/pfint21.asm
		db 0
include th02/formats/pfopen.asm
include libs/master.lib/pf_str_ieq.asm

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

; Attributes: bp-based frame

sub_3DDE	proc far
		push	bp
		mov	bp, sp
		xor	bx, bx
		jmp	short loc_3DED
; ---------------------------------------------------------------------------

loc_3DE5:
		mov	byte ptr [bx+258Ch], 0
		add	bx, 0Ch

loc_3DED:
		cmp	bx, 168h
		jl	short loc_3DE5
		mov	word_1FFF0, 20h	; ' '
		mov	word_1FFF2, 1
		mov	word_1FFF4, 0
		mov	byte_1FFF8, 0Fh
		mov	byte_1FFF9, 0
		mov	byte_1FFFA, 0FFh
		mov	word_1FFF6, 20h	; ' '
		pop	bp
		retf
sub_3DDE	endp


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

; Attributes: bp-based frame

sub_3E1C	proc far

arg_0		= byte ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		mov	cx, [bp+arg_4]
		mov	bx, [bp+arg_2]
		shl	cx, 4
		shl	bx, 4
		mov	ax, 258Ch
		mov	si, ax
		xor	dx, dx
		jmp	short loc_3E5F
; ---------------------------------------------------------------------------

loc_3E35:
		cmp	byte ptr [si], 0
		jnz	short loc_3E5B
		mov	byte ptr [si], 1
		mov	al, [bp+arg_0]
		mov	[si+1],	al
		mov	[si+2],	cx
		mov	[si+6],	cx
		mov	[si+4],	bx
		mov	[si+8],	bx
		mov	byte ptr [si+0Ah], 1
		mov	al, byte ptr word_1FFF0
		mov	[si+0Bh], al
		jmp	short loc_3E64
; ---------------------------------------------------------------------------

loc_3E5B:
		inc	dx
		add	si, 0Ch

loc_3E5F:
		cmp	dx, 1Eh
		jl	short loc_3E35

loc_3E64:
		pop	si
		pop	bp
		retf	6
sub_3E1C	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

sub_3E6A	proc far

var_2		= word ptr -2
arg_0		= word ptr  6

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		mov	si, [bp+arg_0]
		mov	ax, word_20164
		sar	ax, 3
		mov	dx, word_20166
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	bx, word_20164
		and	bx, 7
		mov	al, [si+8EEh]
		mov	ah, 0
		mov	[bp+var_2], ax
		mov	cl, bl
		shr	ax, cl
		mov	cl, 10h
		sub	cl, bl
		mov	dx, [bp+var_2]
		shl	dx, cl
		or	ax, dx
		jmp	short loc_3EB8
; ---------------------------------------------------------------------------

loc_3EB1:
		mov	es:[di], ax
		add	di, 50h	; 'P'
		dec	si

loc_3EB8:
		or	si, si
		jg	short loc_3EB1
		pop	di
		pop	si
		leave
		retf	2
sub_3E6A	endp


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

; Attributes: bp-based frame

sub_3EC2	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_0]
		mov	ax, word_20164
		sar	ax, 3
		mov	dx, word_20166
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	bx, ax
		jmp	short loc_3EEA
; ---------------------------------------------------------------------------

loc_3EE1:
		mov	word ptr es:[bx], 0FFFFh
		add	bx, 50h	; 'P'
		dec	si

loc_3EEA:
		or	si, si
		jg	short loc_3EE1
		pop	si
		pop	bp
		retn	2
sub_3EC2	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

sub_3EF4	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		push	GC_RMW
		mov	al, byte_1FFF9
		mov	ah, 0
		push	ax
		nopcall	grcg_setcolor
		mov	ax, 258Ch
		mov	si, ax
		xor	di, di
		jmp	short loc_3F7B
; ---------------------------------------------------------------------------

loc_3F15:
		cmp	byte ptr [si], 0
		jz	short loc_3F77
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		sar	ax, 4
		mov	word_20164, ax
		mov	ax, [bx+si+4]
		sar	ax, 4
		mov	word_20166, ax
		cmp	byte_2066C, 0
		jz	short loc_3F4B
		mov	al, _page_back
		mov	ah, 0
		mov	dx, di
		and	dx, 1
		cmp	ax, dx
		jnz	short loc_3F54

loc_3F4B:
		mov	al, [si+0Ah]
		mov	ah, 0
		push	ax
		call	sub_3EC2

loc_3F54:
		cmp	byte ptr [si], 2
		jnz	short loc_3F5E
		mov	byte ptr [si], 0
		jmp	short loc_3F77
; ---------------------------------------------------------------------------

loc_3F5E:
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		mov	cx, [bx+si+4]
		xor	bx, 4
		mov	[bx+si+2], ax
		mov	[bx+si+4], cx

loc_3F77:
		inc	di
		add	si, 0Ch

loc_3F7B:
		cmp	di, 1Eh
		jl	short loc_3F15
		nopcall	grcg_off
		pop	di
		pop	si
		pop	bp
		retf
sub_3EF4	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

sub_3F8A	proc far

var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		push	GC_RMW
		mov	al, byte_1FFF8
		mov	ah, 0
		push	ax
		nopcall	grcg_setcolor
		mov	al, byte_1FFFA
		mov	byte_20168, al
		mov	al, byte_1FFF8
		mov	byte_20169, al
		mov	ax, 258Ch
		mov	si, ax
		mov	[bp+var_2], 0
		jmp	loc_407E
; ---------------------------------------------------------------------------

loc_3FB9:
		cmp	byte ptr [si], 1
		jz	short loc_3FC1
		jmp	loc_4078
; ---------------------------------------------------------------------------

loc_3FC1:
		mov	al, [si+0Bh]
		add	al, byte ptr word_1FFF2
		mov	[si+0Bh], al
		mov	al, [si+1]
		add	al, byte ptr word_1FFF4
		mov	[si+1],	al
		push	ss
		lea	ax, [bp+var_4]
		push	ax
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	word ptr [si+1]
		mov	al, [si+0Bh]
		mov	ah, 0
		push	ax
		nop
		push	cs
		; Hack (what is this I don't even)
		db 0e8h
		db 075h
		db 0b5h
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	dx, [bp+var_4]
		add	[bx+si+2], dx
		mov	dx, [bp+var_6]
		add	[bx+si+4], dx
		mov	dx, [bx+si+2]
		sar	dx, 4
		mov	word_20164, dx
		mov	ax, [bx+si+4]
		sar	ax, 4
		mov	word_20166, ax
		cmp	dx, 1A0h
		jge	short loc_402B
		cmp	dx, 18h
		jle	short loc_402B
		cmp	ax, 8
		jle	short loc_402B
		cmp	ax, 180h
		jl	short loc_4030

loc_402B:
		mov	byte ptr [si], 2
		jmp	short loc_4078
; ---------------------------------------------------------------------------

loc_4030:
		mov	ax, word_1FFF6
		shl	ax, 2
		add	ax, word_1FFF6
		mov	di, ax
		mov	bl, 5
		jmp	short loc_404F
; ---------------------------------------------------------------------------

loc_4040:
		mov	al, [si+0Bh]
		mov	ah, 0
		cmp	ax, di
		jg	short loc_4055
		sub	di, word_1FFF6
		dec	bl

loc_404F:
		cmp	di, word_1FFF6
		jg	short loc_4040

loc_4055:
		mov	[si+0Ah], bl
		cmp	byte_2066C, 0
		jz	short loc_406E
		mov	al, _page_back
		mov	ah, 0
		mov	dx, [bp+var_2]
		and	dx, 1
		cmp	ax, dx
		jnz	short loc_4078

loc_406E:
		mov	al, [si+0Ah]
		mov	ah, 0
		push	ax
		call	sub_3E6A

loc_4078:
		inc	[bp+var_2]
		add	si, 0Ch

loc_407E:
		cmp	[bp+var_2], 1Eh
		jge	short loc_4087
		jmp	loc_3FB9
; ---------------------------------------------------------------------------

loc_4087:
		nopcall	grcg_off
		pop	di
		pop	si
		leave
		retf
sub_3F8A	endp


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

; Attributes: bp-based frame

sub_4090	proc far

var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah
arg_6		= word ptr  0Ch
arg_8		= word ptr  0Eh

		enter	8, 0
		push	si
		push	di
		mov	ax, [bp+arg_6]
		cmp	ax, 190h
		jb	short loc_40A1
		sub	ax, 190h

loc_40A1:
		mov	[bp+arg_6], ax
		shl	[bp+arg_8], 4
		shl	[bp+arg_6], 4
		mov	ax, 37D0h
		mov	si, ax
		mov	ax, word_20274
		mov	[bp+var_8], ax
		mov	cl, 14h
		imul	cl
		add	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	[bp+var_6], ax
		xor	di, di
		jmp	short loc_4142
; ---------------------------------------------------------------------------

loc_40CC:
		mov	byte ptr [si], 1
		mov	byte ptr [si+1], 0
		mov	bx, [bp+var_6]
		mov	dx, [bp+arg_8]
		mov	[bx+si+2], dx
		mov	dx, [bp+arg_6]
		mov	[bx+si+4], dx
		cmp	[bp+arg_0], 0
		jnz	short loc_4100
		mov	al, [si+13h]
		mov	[si+0Eh], al
		mov	al, [si+11h]
		mov	ah, 0
		add	ax, [bp+arg_4]
		mov	[bp+var_2], ax
		mov	al, [si+10h]
		mov	ah, 0
		jmp	short loc_4114
; ---------------------------------------------------------------------------

loc_4100:
		mov	byte ptr [si+0Eh], 0Eh
		mov	ax, [bp+arg_4]
		mov	[bp+var_2], ax
		mov	ax, di
		mov	cl, 8
		shl	ax, cl
		cwd
		idiv	[bp+arg_2]

loc_4114:
		mov	[bp+var_4], ax
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		push	[bp+var_4]
		push	[bp+var_2]
		nop
		push	cs
		; Hack (what is this I don't even)
		db 0e8h
		db 036h
		db 0b4h
		inc	di
		add	si, 14h
		inc	[bp+var_8]
		cmp	[bp+var_8], 40h
		jl	short loc_4142
		mov	[bp+var_8], 0
		sub	si, 500h

loc_4142:
		cmp	di, [bp+arg_2]
		jl	short loc_40CC
		mov	ax, [bp+arg_2]
		add	byte ptr word_20274, al
		and	byte ptr word_20274, 3Fh
		pop	di
		pop	si
		leave
		retf	0Ah
sub_4090	endp

; ---------------------------------------------------------------------------
		nop

include th02/spark_render.asm

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

; Attributes: bp-based frame

sub_41AA	proc far

var_E		= word ptr -0Eh
var_C		= word ptr -0Ch
var_A		= word ptr -0Ah
var_6		= word ptr -6
var_2		= word ptr -2

		enter	0Eh, 0
		push	si
		push	di
		push	GC_RMW
		push	14
		nopcall	grcg_setcolor
		mov	ax, 37D0h
		mov	si, ax
		mov	[bp+var_2], 0
		jmp	loc_4276
; ---------------------------------------------------------------------------

loc_41C7:
		cmp	byte ptr [si], 1
		jz	short loc_41CF
		jmp	loc_4270
; ---------------------------------------------------------------------------

loc_41CF:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, si
		add	ax, 2
		mov	[bp+var_6], ax
		add	ax, 2
		mov	[bp+var_A], ax
		mov	ax, [si+0Ah]
		mov	bx, [bp+var_6]
		add	[bx], ax
		mov	ax, word_1EB0A
		add	[si+0Ah], ax
		mov	ax, [si+0Ch]
		mov	bx, [bp+var_A]
		add	[bx], ax
		mov	ax, [bx]
		mov	[bp+var_E], ax
		mov	bx, [bp+var_6]
		mov	ax, [bx]
		sar	ax, 4
		mov	[bp+var_C], ax
		mov	bx, [bp+var_A]
		mov	ax, [bx]
		sar	ax, 4
		mov	[bp+var_E], ax
		mov	di, [bp+var_E]
		inc	word ptr [si+0Ch]
		inc	byte ptr [si+1]
		cmp	[bp+var_C], 20h	; ' '
		jl	short loc_4240
		cmp	[bp+var_C], 198h
		jge	short loc_4240
		mov	al, [si+1]
		cmp	al, byte_2174C
		ja	short loc_4240
		cmp	di, 180h
		jge	short loc_4240
		cmp	di, 8
		jg	short loc_4245

loc_4240:
		mov	byte ptr [si], 2
		jmp	short loc_4270
; ---------------------------------------------------------------------------

loc_4245:
		add	di, _scroll_line
		cmp	di, RES_Y
		jb	short loc_4253
		sub	di, RES_Y

loc_4253:
		push	[bp+var_C]
		push	di
		cmp	byte ptr [si+0Eh], 0
		jnz	short loc_4264
		nopcall	grcg_pset
		jmp	short loc_4270
; ---------------------------------------------------------------------------

loc_4264:
		mov	al, [si+1]
		mov	ah, 0
		and	ax, 7
		push	ax
		call	spark_render

loc_4270:
		inc	[bp+var_2]
		add	si, 14h

loc_4276:
		cmp	[bp+var_2], 40h
		jge	short loc_427F
		jmp	loc_41C7
; ---------------------------------------------------------------------------

loc_427F:
		nopcall	grcg_off
		pop	di
		pop	si
		leave
		retf
sub_41AA	endp


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

; Attributes: bp-based frame

sub_4288	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 37D0h
		mov	si, ax
		xor	di, di
		jmp	short loc_42EF
; ---------------------------------------------------------------------------

loc_4296:
		cmp	byte ptr [si], 0
		jz	short loc_42EB
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		sar	ax, 4
		push	ax
		mov	ax, [bx+si+4]
		sar	ax, 4
		push	ax
		cmp	byte ptr [si+0Eh], 0
		jnz	short loc_42BF
		push	1
		push	1
		jmp	short loc_42C3
; ---------------------------------------------------------------------------

loc_42BF:
		push	8
		push	8

loc_42C3:
		nopcall	sub_45FC
		cmp	byte ptr [si], 2
		jnz	short loc_42D2
		mov	byte ptr [si], 0
		jmp	short loc_42EB
; ---------------------------------------------------------------------------

loc_42D2:
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		mov	dx, [bx+si+4]
		xor	bx, 4
		mov	[bx+si+2], ax
		mov	[bx+si+4], dx

loc_42EB:
		inc	di
		add	si, 14h

loc_42EF:
		cmp	di, 40h
		jl	short loc_4296
		pop	di
		pop	si
		leave
		retf
sub_4288	endp


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


sub_42F8	proc far
		mov	word_22796, 17h
		mov	byte_22798, 0
		mov	_page_back, 0
		mov	byte_2287E, 1
		mov	byte_22D48, 0
		retf
sub_42F8	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

MAP_SIG_SIZE = 10

map_load proc pascal
	arg @@fn:dword
	local @@ms:byte:MAP_SIG_SIZE

	push	word ptr @@fn+2
	push	word ptr @@fn
	nopcall	file_ropen
	push	ss
	lea	ax, @@ms
	push	ax
	push	MAP_SIG_SIZE
	nopcall	file_read
	push	ds
	push	offset map
	push	MAP_SIZE
	nopcall	file_read
	nopcall	file_close
	ret
map_load endp


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

; Attributes: bp-based frame

sub_4344	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	si, si
		jmp	short loc_43A6
; ---------------------------------------------------------------------------

loc_434D:
		mov	di, 1
		graph_accesspage 1

loc_4356:
		mov	ax, si
		mov	bx, 19h
		cwd
		idiv	bx
		shl	ax, 4
		add	ax, 240h
		push	ax
		mov	ax, si
		cwd
		idiv	bx
		shl	dx, 4
		push	dx
		push	si
		nopcall	sub_3998
		cmp	di, 0
		jz	short loc_4383
		xor	di, di
		graph_accesspage 0
		jmp	short loc_4356
; ---------------------------------------------------------------------------

loc_4383:
		mov	ax, si
		mov	bx, 19h
		cwd
		idiv	bx
		add	ax, ax
		push	ax
		mov	ax, si
		cwd
		idiv	bx
		imul	dx, 500h
		pop	ax
		add	ax, dx
		add	ax, 48h	; 'H'
		mov	bx, si
		add	bx, bx
		mov	[bx+4D2Ah], ax
		inc	si

loc_43A6:
		cmp	si, 64h	; 'd'
		jl	short loc_434D
		pop	di
		pop	si
		pop	bp
		retf
sub_4344	endp
		nop


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


egc_start_copy_noframe	proc far
		nopcall	egc_on
		EGC_SETUP_COPY
		retf
egc_start_copy_noframe	endp


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

; Attributes: bp-based frame

sub_43E0	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_2]
		mov	bx, [bp+arg_0]
		add	bx, bx
		mov	ax, [bx+4D2Ah]
		mov	dx, word_22862
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	si, ax
		mov	cx, word_22864

loc_4405:
		mov	ax, es:[si]
		mov	es:[di], ax
		add	di, 50h	; 'P'
		add	si, 50h	; 'P'
		loop	loc_4405
		pop	di
		pop	si
		pop	bp
		retn	4
sub_43E0	endp


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

; Attributes: bp-based frame

sub_4419	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_2]
		mov	bx, [bp+arg_0]
		add	bx, bx
		mov	si, [bx+4D2Ah]
		mov	cx, 10h

loc_442D:
		mov	ax, es:[si]
		mov	es:[di], ax
		add	di, 50h	; 'P'
		add	si, 50h	; 'P'
		loop	loc_442D
		pop	di
		pop	si
		pop	bp
		retn	4
sub_4419	endp


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

; Attributes: bp-based frame

sub_4441	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_0]
		mov	cx, 10h

loc_444B:
		mov	word ptr es:[si], 0FFFFh
		add	si, 50h	; 'P'
		loop	loc_444B
		pop	si
		pop	bp
		retn	2
sub_4441	endp


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

; Attributes: bp-based frame

sub_445A	proc far

var_2		= word ptr -2
arg_0		= word ptr  6

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	al, byte_22798
		sub	al, byte ptr [bp+arg_0]
		mov	byte_22798, al
		mov	ax, _scroll_line
		sar	ax, 4
		imul	ax, 18h
		mov	[bp+var_2], ax
		cmp	byte_22798, 0
		jge	short loc_44D9
		mov	al, byte_22798
		add	al, 10h
		mov	byte_22798, al
		inc	word_22796
		mov	ax, word_22796
		shr	ax, 3
		cmp	ax, word_22FD8
		jb	short loc_449C
		mov	ax, 1
		jmp	loc_453A
; ---------------------------------------------------------------------------

loc_449C:
		mov	ax, word_22796
		shr	ax, 3
		mov	bx, ax
		mov	al, [bx+4BE6h]
		mov	ah, 0
		imul	ax, 0C0h
		mov	di, ax
		mov	ax, word_22796
		and	ax, 7
		imul	ax, 18h
		mov	cx, ax
		xor	si, si
		jmp	short loc_44D4
; ---------------------------------------------------------------------------

loc_44BF:
		mov	bx, di
		add	bx, cx
		mov	al, map[bx]
		mov	[si+4DF6h], al
		mov	bx, [bp+var_2]
		mov	_tile_ring[bx+si], al
		inc	si
		inc	cx

loc_44D4:
		cmp	si, 18h
		jl	short loc_44BF

loc_44D9:
		mov	al, byte_22798
		cbw
		mov	word_22862, ax
		mov	ax, [bp+arg_0]
		mov	word_22864, ax
		mov	ax, _scroll_line
		shl	ax, 6
		mov	dx, ax
		shr	dx, 2
		add	ax, dx
		add	ax, 4
		mov	di, ax
		graph_accesspage _page_front
		mov	ax, 0A800h
		mov	es, ax
		xor	si, si
		jmp	short loc_4517
; ---------------------------------------------------------------------------

loc_4508:
		push	di
		mov	al, [si+4DF6h]
		mov	ah, 0
		push	ax
		call	sub_43E0
		inc	si
		add	di, 2

loc_4517:
		cmp	si, 18h
		jl	short loc_4508
		graph_accesspage _page_back
		jmp	short loc_4534
; ---------------------------------------------------------------------------

loc_4525:
		dec	si
		sub	di, 2
		push	di
		mov	al, [si+4DF6h]
		mov	ah, 0
		push	ax
		call	sub_43E0

loc_4534:
		or	si, si
		jge	short loc_4525
		xor	ax, ax

loc_453A:
		pop	di
		pop	si
		leave
		retf	2
sub_445A	endp


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

; Attributes: bp-based frame

sub_4540	proc near
		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	ax, [bp+4]
		sar	ax, 3
		mov	di, ax
		mov	al, [di+4BE6h]
		mov	ah, 0
		mov	di, ax
		xor	si, si
		jmp	short loc_458B
; ---------------------------------------------------------------------------

loc_455C:
		mov	bx, di
		imul	bx, 0C0h
		mov	ax, [bp+4]
		and	ax, 7
		imul	ax, 18h
		add	bx, ax
		mov	al, map[bx+si]
		mov	ah, 0
		mov	[bp-2],	ax
		mov	ax, si
		shl	ax, 4
		add	ax, [bp+8]
		push	ax
		push	word ptr [bp+6]
		push	word ptr [bp-2]
		nopcall	sub_3998
		inc	si

loc_458B:
		cmp	si, 18h
		jl	short loc_455C
		pop	di
		pop	si
		leave
		retn	6
sub_4540	endp


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

; Attributes: bp-based frame

sub_4596	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		xor	di, di
		jmp	short loc_45F3
; ---------------------------------------------------------------------------

loc_45A2:
		push	20h ; ' '
		mov	ax, di
		shl	ax, 4
		mov	dx, 170h
		sub	dx, ax
		push	dx
		push	di
		call	sub_4540
		mov	ax, di
		sar	ax, 3
		mov	[bp+var_2], ax
		mov	bx, [bp+var_2]
		mov	al, [bx+4BE6h]
		mov	ah, 0
		mov	[bp+var_2], ax
		xor	si, si
		jmp	short loc_45ED
; ---------------------------------------------------------------------------

loc_45CB:
		mov	bx, [bp+var_2]
		imul	bx, 0C0h
		mov	ax, di
		and	ax, 7
		imul	ax, 18h
		add	bx, ax
		mov	al, map[bx+si]
		mov	bx, 17h
		sub	bx, di
		imul	bx, TILES_X
		mov	_tile_ring[bx+si], al
		inc	si

loc_45ED:
		cmp	si, TILES_X
		jl	short loc_45CB
		inc	di

loc_45F3:
		cmp	di, 18h
		jl	short loc_45A2
		pop	di
		pop	si
		leave
		retf
sub_4596	endp


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

; Attributes: bp-based frame

sub_45FC	proc far

arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah
arg_6		= word ptr  0Ch

		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	byte_2287E, 2
		jnz	short loc_460B
		jmp	loc_468C
; ---------------------------------------------------------------------------

loc_460B:
		dec	[bp+arg_2]
		mov	ax, [bp+arg_6]
		add	[bp+arg_2], ax
		sar	[bp+arg_2], 4
		sar	[bp+arg_6], 4
		sub	[bp+arg_6], 2
		sub	[bp+arg_2], 2
		mov	ax, [bp+arg_4]
		add	ax, _scroll_line
		cmp	ax, RES_Y
		jl	short loc_4635
		sub	ax, RES_Y
		jmp	short loc_463D
; ---------------------------------------------------------------------------

loc_4635:
		cmp	ax, 0
		jnb	short loc_463D
		add	ax, RES_Y

loc_463D:
		mov	di, [bp+arg_0]
		dec	di
		add	di, ax
		and	ax, 0FFF0h
		mov	[bp+arg_4], ax
		mov	si, [bp+arg_6]
		mov	ax, si
		imul	ax, 19h
		jmp	short loc_4687
; ---------------------------------------------------------------------------

loc_4653:
		or	si, si
		jl	short loc_4683
		cmp	si, 18h
		jge	short loc_4683
		mov	cx, [bp+arg_4]

loc_465F:
		mov	dx, cx
		cmp	dx, 190h
		jl	short loc_466B
		sub	dx, 190h

loc_466B:
		sar	dx, 4
		mov	bx, ax
		add	bx, dx
		mov	byte ptr [bx+5068h], 1
		add	cx, 10h
		cmp	cx, di
		jle	short loc_465F
		mov	byte ptr [si+52C0h], 1

loc_4683:
		inc	si
		add	ax, 19h

loc_4687:
		cmp	si, [bp+arg_2]
		jle	short loc_4653

loc_468C:
		pop	di
		pop	si
		pop	bp
		retf	8
sub_45FC	endp


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

; Attributes: bp-based frame

sub_4692	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	ax, 0E000h
		mov	es, ax
		assume es:nothing
		cmp	byte_2287E, 1
		jnz	short loc_46FE
		xor	di, di
		jmp	short loc_46F7
; ---------------------------------------------------------------------------

loc_46AA:
		cmp	byte_22D48, 1
		jz	short loc_46B8
		cmp	byte ptr [di+52C0h], 0
		jz	short loc_46F6

loc_46B8:
		mov	ax, di
		add	ax, ax
		add	ax, 4
		mov	[bp+var_2], ax
		xor	si, si
		jmp	short loc_46F1
; ---------------------------------------------------------------------------

loc_46C6:
		cmp	byte_22D48, 1
		jz	short loc_46D9
		mov	bx, di
		imul	bx, 19h
		cmp	byte ptr [bx+si+5068h],	0
		jz	short loc_46EB

loc_46D9:
		push	[bp+var_2]
		mov	bx, si
		imul	bx, TILES_X
		mov	al, _tile_ring[bx+di]
		mov	ah, 0
		push	ax
		call	sub_4419

loc_46EB:
		inc	si
		add	[bp+var_2], 500h

loc_46F1:
		cmp	si, 19h
		jl	short loc_46C6

loc_46F6:
		inc	di

loc_46F7:
		cmp	di, 18h
		jl	short loc_46AA
		jmp	short loc_475E
; ---------------------------------------------------------------------------

loc_46FE:
		cmp	byte_2287E, 0
		jnz	short loc_475E
		push	GC_RMW
		push	0
		nopcall	grcg_setcolor
		xor	di, di
		jmp	short loc_4754
; ---------------------------------------------------------------------------

loc_4713:
		cmp	byte_22D48, 1
		jz	short loc_4721
		cmp	byte ptr [di+52C0h], 0
		jz	short loc_4753

loc_4721:
		mov	ax, di
		add	ax, ax
		add	ax, 4
		mov	[bp+var_2], ax
		xor	si, si
		jmp	short loc_474E
; ---------------------------------------------------------------------------

loc_472F:
		cmp	byte_22D48, 1
		jz	short loc_4742
		mov	bx, di
		imul	bx, 19h
		cmp	byte ptr [bx+si+5068h],	0
		jz	short loc_4748

loc_4742:
		push	[bp+var_2]
		call	sub_4441

loc_4748:
		inc	si
		add	[bp+var_2], 500h

loc_474E:
		cmp	si, 19h
		jl	short loc_472F

loc_4753:
		inc	di

loc_4754:
		cmp	di, 18h
		jl	short loc_4713
		nopcall	grcg_off

loc_475E:
		xor	bx, bx
		mov	cx, 258h

loc_4763:
		mov	byte ptr [bx+5068h], 0
		inc	bx
		loop	loc_4763
		xor	bx, bx
		mov	cx, 18h

loc_4770:
		mov	byte ptr [bx+52C0h], 0
		inc	bx
		loop	loc_4770
		mov	byte_22D48, 0
		pop	di
		pop	si
		leave
		retf
sub_4692	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

sub_4782	proc far

var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		mov	word_22862, 0
		mov	word_22864, 10h
		call	egc_start_copy_noframe
		cmp	byte_2287E, 1
		jnz	short loc_47E6
		mov	[bp+var_2], 0
		mov	[bp+var_6], 4
		jmp	short loc_47DE
; ---------------------------------------------------------------------------

loc_47B2:
		xor	si, si
		mov	di, [bp+var_6]
		jmp	short loc_47D1
; ---------------------------------------------------------------------------

loc_47B9:
		mov	bx, [bp+var_2]
		imul	bx, TILES_X
		mov	al, _tile_ring[bx+si]
		mov	ah, 0
		mov	[bp+var_4], ax
		push	di
		push	ax
		call	sub_43E0
		inc	si
		add	di, 2

loc_47D1:
		cmp	si, TILES_X
		jl	short loc_47B9
		inc	[bp+var_2]
		add	[bp+var_6], 500h

loc_47DE:
		cmp	[bp+var_2], 19h
		jl	short loc_47B2
		jmp	short loc_4803
; ---------------------------------------------------------------------------

loc_47E6:
		push	GC_RMW
		push	0
		nopcall	grcg_setcolor
		push	4
		push	10h
		push	34h ; '4'
		push	180h
		nopcall	grcg_byteboxfill_x
		nopcall	grcg_off

loc_4803:
		nopcall	egc_off
		pop	di
		pop	si
		leave
		retf
sub_4782	endp


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

; Attributes: bp-based frame

sub_480C	proc far

var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
@@tile		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		mov	di, [bp+arg_4]
		mov	si, [bp+arg_2]
		mov	ax, si
		sar	ax, 4
		mov	[bp+var_2], ax
		lea	ax, [di-20h]
		sar	ax, 4
		mov	[bp+var_4], ax
		mov	word_22862, 0
		mov	word_22864, 10h
		mov	bx, [bp+var_2]
		imul	bx, TILES_X
		add	bx, [bp+var_4]
		mov	al, byte ptr [bp+@@tile]
		mov	_tile_ring[bx], al
		call	egc_start_copy_noframe
		graph_accesspage _page_front
		mov	ax, [bp+var_2]
		shl	ax, 4
		mov	si, ax
		mov	ax, di
		sar	ax, 3
		mov	dx, si
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	[bp+var_6], ax
		push	ax
		push	[bp+@@tile]
		call	sub_43E0
		graph_accesspage _page_back
		push	[bp+var_6]
		push	[bp+@@tile]
		call	sub_43E0
		nopcall	egc_off
		pop	di
		pop	si
		leave
		retf	6
sub_480C	endp

; ---------------------------------------------------------------------------
		nop

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

; Attributes: bp-based frame

sub_4896	proc far

arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0E000h
		mov	es, ax
		assume es:nothing
		mov	ax, [bp+arg_4]
		sar	ax, 3
		mov	dx, [bp+arg_2]
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	bx, [bp+arg_0]
		add	bx, bx
		mov	bx, [bx+4D2Ah]
		xor	si, si
		jmp	short loc_48D9
; ---------------------------------------------------------------------------

loc_48C2:
		mov	ax, es:[bx]
		mov	es:[di], ax
		add	di, 50h	; 'P'
		add	bx, 50h	; 'P'
		cmp	di, 7D00h
		jle	short loc_48D8
		sub	di, 7D00h

loc_48D8:
		inc	si

loc_48D9:
		cmp	si, 10h
		jl	short loc_48C2
		pop	di
		pop	si
		pop	bp
		retf	6
sub_4896	endp

_TEXT		ends

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

; Segment type:	Pure code
main_01_TEXT	segment	word public 'CODE' use16
		assume cs:main_01_TEXT
		;org 3
		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

; 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
		call	sub_C273
		or	ax, ax
		jz	short loc_B17E
		call	_game_init_main
		or	ax, ax
		jz	short loc_B183
		push	3
		call	zun_error

loc_B17E:
		mov	ax, 1
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_B183:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.bgm_mode], 1
		jnz	short loc_B19A
		call	_snd_pmd_resident
		mov	_snd_midi_active, 0
		jmp	short loc_B1B5
; ---------------------------------------------------------------------------

loc_B19A:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.bgm_mode], 2
		jnz	short loc_B1BA
		call	_snd_pmd_resident
		call	_snd_mmd_resident
		mov	al, _snd_midi_possible
		mov	_snd_midi_active, al

loc_B1B5:
		call	_snd_determine_mode

loc_B1BA:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jz	short loc_B1CA
		nopcall	sub_C13E

loc_B1CA:
		call	sub_B2AB

loc_B1CD:
		les	bx, mikoconfig
		mov	eax, es:[bx+mikoconfig_t.frame]
		mov	random_seed, eax
		call	sub_B3DA
		nopcall	sub_E16D
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_B237
		mov	al, stage_id
		cbw
		cmp	ax, 5
		jnz	short loc_B202
		push	(16 shl 16) + 12
		push	ds
		push	offset gEXTRA_STAGE
		jmp	short loc_B213
; ---------------------------------------------------------------------------

loc_B202:
		mov	al, stage1_gaiji_halflen
		mov	ah, 0
		mov	dx, 1Ch
		sub	dx, ax
		push	dx
		push	12
		push	ds
		push	offset gStage1

loc_B213:
		push	TX_YELLOW
		call	gaiji_putsa
		mov	al, stage_title_halflen
		mov	ah, 0
		mov	dx, 1Ch
		sub	dx, ax
		call	text_putsa pascal, dx, 13, ds, stage_title_str, TX_WHITE
		jmp	short loc_B249
; ---------------------------------------------------------------------------

loc_B237:
		call	gaiji_putsa pascal, (18 shl 16) + 12, ds, offset gDEMO_PLAY, TX_YELLOW + TX_BLINK

loc_B249:
		mov	_input, 0

loc_B24F:
		call	farfp_1F4A4
		or	ax, ax
		jz	short loc_B263
		kajacall	KAJA_SONG_FADE, 40
		pop	cx
		jmp	loc_B1CD
; ---------------------------------------------------------------------------

loc_B263:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_B287
		call	sub_C31F
		or	ax, ax
		jz	short loc_B27A
		call	sub_B98E
		jmp	short loc_B24F
; ---------------------------------------------------------------------------

loc_B27A:
		les	bx, mikoconfig
		mov	al, stage_id
		mov	es:[bx+mikoconfig_t.stage], al
		jmp	short loc_B290
; ---------------------------------------------------------------------------

loc_B287:
		push	word ptr dword_1F4A8+2
		call	hmem_free

loc_B290:
		mov	PaletteTone, 0
		call	far ptr	palette_show
		push	ds
		push	offset arg0	; "op"
		nopcall	sub_C566
		add	sp, 4
		xor	ax, ax
		pop	bp
		retf
_main		endp


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

; Attributes: bp-based frame

sub_B2AB	proc near
		push	bp
		mov	bp, sp
		push	si
		call	_snd_load stdcall, offset aHuuma_efc, ds, SND_LOAD_SE
		call	sub_1CD36
		call	_pi_slot_load stdcall, 0, offset aEye_pi, ds
		add	sp, 0Ch
		push	ds
		push	offset aMiko_bft ; "miko.bft"
		call	super_entry_bfnt
		push	ds
		push	offset aMiko32_bft ; "miko32.bft"
		call	super_entry_bfnt
		push	ds
		push	offset aMiko16_bft ; "miko16.bft"
		call	super_entry_bfnt
		mov	si, 30h	; '0'
		jmp	short loc_B2F5
; ---------------------------------------------------------------------------

loc_B2EE:
		push	si
		call	super_convert_tiny
		inc	si

loc_B2F5:
		cmp	si, 80h
		jl	short loc_B2EE
		call	sub_DC38
		call	sub_E178
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.perf]
		mov	byte_2066C, al
		setfarfp	farfp_1F4A4, sub_BCB1
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jz	short loc_B34C
		cmp	es:[bx+mikoconfig_t.continues_used], 9
		jb	short loc_B32B
		mov	ax, 9
		jmp	short loc_B333
; ---------------------------------------------------------------------------

loc_B32B:
		les	bx, mikoconfig
		mov	ax, es:[bx+mikoconfig_t.continues_used]

loc_B333:
		movzx	eax, ax
		mov	dword_1E598, eax
		mov	al, stage_id
		cbw
		mov	bx, 5
		cwd
		idiv	bx
		add	dx, 2
		mov	word_1E51E, dx

loc_B34C:
		cmp	_rank, RANK_EASY
		jnz	short loc_B35A
		mov	byte_1F4AC, 4
		jmp	short loc_B35F
; ---------------------------------------------------------------------------

loc_B35A:
		mov	byte_1F4AC, 10h

loc_B35F:
		pop	si
		pop	bp
		retn
sub_B2AB	endp


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

; Attributes: bp-based frame

sub_B362	proc near

arg_0		= dword	ptr  4
arg_4		= dword	ptr  8

		push	bp
		mov	bp, sp
		push	si
		les	bx, [bp+arg_4]
		push	es
		les	si, [bp+arg_0]
		mov	al, es:[si]
		pop	es
		mov	es:[bx+7], al
		les	bx, [bp+arg_0]
		mov	al, es:[bx+1]
		les	bx, [bp+arg_4]
		mov	es:[bx+8], al
		les	bx, [bp+arg_0]
		mov	al, es:[bx+2]
		les	bx, [bp+arg_4]
		mov	es:[bx+9], al
		pop	si
		pop	bp
		retn	8
sub_B362	endp


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

; Attributes: bp-based frame

sub_B396	proc near

arg_0		= dword	ptr  4

		push	bp
		mov	bp, sp
		les	bx, [bp+arg_0]
		mov	byte ptr es:[bx], 73h ;	's'
		mov	byte ptr es:[bx+1], 74h	; 't'
		mov	byte ptr es:[bx+2], 61h	; 'a'
		mov	byte ptr es:[bx+3], 67h	; 'g'
		mov	byte ptr es:[bx+4], 65h	; 'e'
		mov	al, stage_id
		add	al, 30h	; '0'
		mov	es:[bx+5], al
		mov	byte ptr es:[bx+6], 2Eh	; '.'
		mov	byte ptr es:[bx+7], 62h	; 'b'
		mov	byte ptr es:[bx+8], 66h	; 'f'
		mov	byte ptr es:[bx+9], 74h	; 't'
		mov	byte ptr es:[bx+0Ah], 0
		pop	bp
		retn	4
sub_B396	endp


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

; Attributes: bp-based frame

sub_B3DA	proc near

var_C		= byte ptr -0Ch

		enter	0Ch, 0
		push	si
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	sub_B396
		mov	vsync_Count1, 0
		call	sub_BF7B
		call	graph_scrollup pascal, 0
		graph_accesspage 1
		call	graph_clear
		graph_accesspage 0
		call	graph_clear
		graph_showpage 0
		call	sub_E012
		call	sub_FBE9
		call	_pi_slot_palette_apply stdcall, 0
		call	_pi_slot_palette_apply stdcall, 0
		call	_pi_slot_put stdcall, 96, large 144
		add	sp, 0Ah
		call	sub_102D6
		call	sub_16A6B
		call	sub_3DDE
		call	sub_129DD
		call	sub_E271
		call	_snd_se_reset
		call	sub_1028C
		nopcall	sub_CA1C
		call	_randring_fill
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		mov	ax, 0D0h
		mov	word_205E6, ax
		mov	word_205E8, ax
		mov	ax, 150h
		mov	word_205EA, ax
		mov	word_205EC, ax
		mov	dword_20612, 0
		mov	byte_2061A, 0
		mov	byte_1F466, 0
		mov	byte_2066D, 1
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_B4BB
		mov	bgm_show_timer, 1
		mov	al, stage_id
		add	al, al
		mov	bgm_title_id, al
		mov	al, stage_id
		add	al, al
		inc	al
		mov	byte_1F46E, al
		jmp	short loc_B4C0
; ---------------------------------------------------------------------------

loc_B4BB:
		mov	bgm_show_timer, 0

loc_B4C0:
		mov	si, 0C0h
		jmp	short loc_B4D7
; ---------------------------------------------------------------------------

loc_B4C5:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+1EDAh], 0
		jz	short loc_B4D6
		push	si
		call	super_cancel_pat

loc_B4D6:
		dec	si

loc_B4D7:
		cmp	si, 80h
		jge	short loc_B4C5
		mov	stage1_gaiji_halflen, 6
		mov	al, stage_id
		cbw
		mov	bx, 5
		cwd
		idiv	bx
		add	dl, 0A1h
		mov	gStage1+5, dl
		mov	al, stage_id
		cbw
		add	ax, ax
		mov	bx, ax
		mov	ax, STAGE_TITLE[bx]
		mov	stage_title_str, ax
		mov	al, stage_id
		cbw
		mov	bx, ax
		mov	al, STAGE_TITLE_HALFLENGTHS[bx]
		mov	stage_title_halflen, al
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	super_entry_bfnt
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	ds
		push	offset aBmt	; "bmt"
		call	sub_B362
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	super_entry_bfnt
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	ds
		push	offset aBbt	; "bbt"
		call	sub_B362
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	super_entry_bfnt
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	ds
		push	offset aMap	; "map"
		call	sub_B362
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	map_load
		call	sub_42F8
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	ds
		push	offset aMpn	; "mpn"
		call	sub_B362
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	mptn_load
		push	30h ; '0'       ; n
		push	ds
		push	offset _mptn_palette ; src
		push	ds
		push	offset unk_1F4AD ; dest
		call	_memcpy
		add	sp, 0Ah
		call	sub_1C608
		call	sub_1C3DF
		call	sub_12C72
		setfarfp	_boss_bg_render, sub_BF90
		setfarfp	_boss_update, sub_BF95
		setfarfp	farfp_1F490, sub_BF90
		setfarfp	farfp_1F4A0, sub_BF90
		setfarfp	farfp_23A72, sub_BF90
		setfarfp	farfp_23A76, sub_BF90
		setfarfp	farfp_26C3C, sub_17979
		setfarfp	farfp_26C40, sub_1766E
		setfarfp	farfp_1F494, sub_BFD0
		setfarfp	farfp_1F498, sub_C05D
		setfarfp	farfp_1F48C, sub_BF95
		call	sub_C5B0
		mov	byte_20342, 1
		mov	byte_1E500, 4
		mov	al, stage_id
		cbw
		mov	bx, ax
		cmp	bx, 5
		ja	loc_B88A
		add	bx, bx
		jmp	cs:off_B982[bx]

loc_B63C:
		mov	word_20616, 74h	; 't'
		setfarfp	farfp_1F474, sub_13786
		setfarfp	farfp_1F470, sub_13909
		setfarfp	_boss_init, sub_13ADE
		setfarfp	_boss_end, sub_13B8B
		setfarfp	_boss_bg_render_func, sub_13BB5
		setfarfp	_boss_update_func, sub_13FE5
		setfarfp	farfp_1F490, sub_13671
		jmp	short loc_B6F2
; ---------------------------------------------------------------------------

loc_B698:
		mov	word_20616, 50h	; 'P'
		setfarfp	farfp_1F474, sub_1410A
		setfarfp	farfp_1F470, sub_1424A
		setfarfp	_boss_init, sub_1523C
		setfarfp	_boss_end, sub_15218
		setfarfp	_boss_bg_render_func, sub_143E5
		setfarfp	_boss_update_func, sub_150F4
		setfarfp	farfp_1F490, sub_140AE

loc_B6F2:
		setfarfp	farfp_1F4A0, sub_13513
		jmp	loc_B88A
; ---------------------------------------------------------------------------

loc_B701:
		mov	word_20616, 67h	; 'g'
		setfarfp	farfp_1F474, sub_110B7
		setfarfp	farfp_1F470, sub_114D6
		setfarfp	_boss_init, sub_12754
		setfarfp	_boss_end, sub_1273B
		setfarfp	_boss_bg_render_func, sub_116AD
		setfarfp	_boss_update_func, sub_123A9
		setfarfp	farfp_1F490, sub_10E95
		setfarfp	farfp_1F4A0, sub_10E4F
		jmp	loc_B88A
; ---------------------------------------------------------------------------

loc_B76A:
		mov	word_20616, 3B0h
		setfarfp	farfp_1F474, sub_19EF3
		setfarfp	farfp_1F470, sub_1A1FF
		setfarfp	_boss_init, sub_1A7D5
		setfarfp	_boss_end, sub_1C270
		setfarfp	_boss_bg_render_func, sub_1C16A
		setfarfp	_boss_update_func, sub_1BEF2
		cmp	byte_2066C, 0
		jnz	short loc_B7CB
		setfarfp	farfp_1F490, sub_19E2F

loc_B7CB:
		call	sub_129FC
		mov	byte_20342, 2
		mov	byte_1E500, 1
		jmp	loc_B88A
; ---------------------------------------------------------------------------

loc_B7DD:
		mov	word_20616, 0FFFFh
		setfarfp	farfp_1F474, sub_BF95
		setfarfp	farfp_1F470, sub_BF90
		setfarfp	_boss_init, sub_199B3
		setfarfp	_boss_end, sub_19D96
		setfarfp	_boss_bg_render_func, sub_17B75
		setfarfp	_boss_update_func, sub_19456
		mov	byte_1E500, 1
		jmp	short loc_B88A
; ---------------------------------------------------------------------------

loc_B832:
		mov	word_20616, 0C8h
		setfarfp	farfp_1F474, sub_15402
		setfarfp	farfp_1F470, sub_1540C
		setfarfp	_boss_init, sub_1696B
		setfarfp	_boss_end, sub_16A21
		setfarfp	_boss_bg_render_func, sub_159AF
		setfarfp	_boss_update_func, sub_16744
		call	sub_129FC
		mov	byte_1E500, 2

loc_B88A:
		call	sub_4344
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_B8AF
		call	_snd_delay_until_volume stdcall, 255
		pop	cx
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	ds
		push	offset aM	; "m"
		call	sub_B362

loc_B8AF:
		call	sub_D629
		call	sub_DCD1

loc_B8B5:
		cmp	vsync_Count1, 64h	; 'd'
		jb	short loc_B8B5
		call	text_boxfilla pascal, (4 shl 16) + 1, (51 shl 16) + 23, TX_BLACK + TX_REVERSE
		push	30h ; '0'       ; n
		push	ds
		push	offset unk_1F4AD ; src
		push	ds
		push	offset Palettes ; dest
		call	_memcpy
		add	sp, 0Ah
		call	far ptr	palette_show
		graph_accesspage 1
		call	sub_4596
		graph_accesspage 0
		call	sub_4782
		call	mptn_free
		push	ds
		push	offset aMiko_k_mpn ; "miko_k.mpn"
		call	mptn_load
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_B922
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		call	sub_13ABB
		add	sp, 4

loc_B922:
		pushd	0
		push	27F018Fh
		call	grc_setclip
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 11
		graph_accesspage 0
		push	1A00000h
		push	23F018Fh
		call	grcg_boxfill
		graph_accesspage 1
		push	1A00000h
		push	23F018Fh
		call	grcg_boxfill
		call	grcg_off
		mov	_page_front, 1
		mov	al, _page_front
		out	0A4h, al
		xor	al, al
		out	0A6h, al
		mov	_page_back, al
		pop	si
		leave
		retn
sub_B3DA	endp

; ---------------------------------------------------------------------------
off_B982	dw offset loc_B63C
		dw offset loc_B698
		dw offset loc_B701
		dw offset loc_B76A
		dw offset loc_B7DD
		dw offset loc_B832

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

; Attributes: bp-based frame

sub_B98E	proc near
		push	bp
		mov	bp, sp
		call	sub_E012
		nopcall	sub_E162
		mov	ax, 0D0h
		mov	word_205E8, ax
		mov	word_205E6, ax
		mov	ax, 150h
		mov	word_205EC, ax
		mov	word_205EA, ax
		call	sub_C5B0
		mov	byte_20605, 0C8h
		graph_accesspage _page_front
		call	sub_4782
		graph_accesspage _page_back
		call	sub_4782
		call	sub_10E0A
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		nopcall	sub_E16D
		pop	bp
		retn
sub_B98E	endp


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

; Attributes: bp-based frame

sub_B9E2	proc near

var_1		= byte ptr -1

		enter	2, 0
		push	si
		xor	si, si
		mov	[bp+var_1], 0
		call	text_putsa pascal, (23 shl 16) + 15, off_1DB70, TX_WHITE + TX_UNDERLINE
		call	text_putsa pascal, (23 shl 16) + 16, off_1DB6C, TX_MAGENTA
		mov	PaletteTone, 46h	; 'F'
		call	far ptr	palette_show

loc_BA1D:
		mov	ax, si
		and	ax, 3Fh
		cmp	ax, 32h	; '2'
		jnb	short loc_BA33
		push	(18 shl 16) + 12
		push	ds
		push	offset gPAUSE_MENU
		jmp	short loc_BA3D
; ---------------------------------------------------------------------------

loc_BA33:
		push	(18 shl 16) + 12
		push	ds
		push	offset g11SPACES

loc_BA3D:
		push	TX_WHITE
		call	gaiji_putsa
		call	_input_sense
		inc	si
		cmp	[bp+var_1], 0
		jnz	short loc_BA5C
		cmp	_input, 0
		jnz	short loc_BA5C
		mov	[bp+var_1], 1

loc_BA5C:
		cmp	[bp+var_1], 1
		jnz	loc_BB30
		test	byte ptr _input, 1
		jnz	short loc_BA72
		test	byte ptr _input, 2
		jz	short loc_BAC8

loc_BA72:
		mov	al, 1
		sub	al, byte_1DB74
		mov	byte_1DB74, al
		cmp	byte_1DB74, 0
		jnz	short loc_BA8E
		mov	byte_1F4DD, TX_WHITE + TX_UNDERLINE
		mov	byte_1F4DE, TX_MAGENTA
		jmp	short loc_BA98
; ---------------------------------------------------------------------------

loc_BA8E:
		mov	byte_1F4DD, TX_MAGENTA
		mov	byte_1F4DE, TX_WHITE + TX_UNDERLINE

loc_BA98:
		push	(23 shl 16) + 15
		pushd	[off_1DB70]
		mov	al, byte_1F4DD
		mov	ah, 0
		push	ax
		call	text_putsa
		push	(23 shl 16) + 16
		pushd	[off_1DB6C]
		mov	al, byte_1F4DE
		mov	ah, 0
		push	ax
		call	text_putsa
		mov	[bp+var_1], 0

loc_BAC8:
		test	byte ptr _input, INPUT_OK
		jnz	short loc_BAD6
		test	byte ptr _input, INPUT_SHOT
		jz	short loc_BB24

loc_BAD6:
		cmp	byte_1DB74, 0
		jnz	short loc_BAE3
		mov	[bp+var_1], 2
		jmp	short loc_BB24
; ---------------------------------------------------------------------------

loc_BAE3:
		call	text_putsa pascal, (17 shl 16) + 14, off_1DB76, TX_WHITE + TX_BLINK
		call	text_putsa pascal, (17 shl 16) + 15, off_1DB7A, TX_WHITE
		call	text_putsa pascal, (17 shl 16) + 16, off_1DB7E, TX_MAGENTA
		mov	[bp+var_1], 3
		mov	byte_1DB74, 0

loc_BB24:
		test	byte ptr _input, INPUT_CANCEL
		jz	loc_BCA4
		jmp	loc_BCA0
; ---------------------------------------------------------------------------

loc_BB30:
		cmp	[bp+var_1], 2
		jnz	short loc_BB9D
		cmp	_input, 0
		jnz	loc_BCA4
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		mov	_input, 0
		call	gaiji_putsa pascal, (18 shl 16) + 12, ds, offset g11SPACES, TX_WHITE
		call	gaiji_putsa pascal, (17 shl 16) + 14, ds, offset g11SPACES, TX_WHITE
		call	gaiji_putsa pascal, (17 shl 16) + 15, ds, offset g11SPACES, TX_WHITE
		call	gaiji_putsa pascal, (17 shl 16) + 16, ds, offset g11SPACES, TX_WHITE
		xor	ax, ax
		jmp	loc_BCAE
; ---------------------------------------------------------------------------

loc_BB9D:
		cmp	[bp+var_1], 3
		jnz	short loc_BBB2
		cmp	_input, 0
		jnz	loc_BCA4
		inc	[bp+var_1]
		jmp	loc_BCA4
; ---------------------------------------------------------------------------

loc_BBB2:
		cmp	[bp+var_1], 4
		jnz	loc_BCA4
		test	byte ptr _input, 1
		jnz	short loc_BBC8
		test	byte ptr _input, 2
		jz	short loc_BC1E

loc_BBC8:
		mov	al, 1
		sub	al, byte_1DB74
		mov	byte_1DB74, al
		cmp	byte_1DB74, 0
		jnz	short loc_BBE4
		mov	byte_1F4DD, TX_WHITE + TX_UNDERLINE
		mov	byte_1F4DE, TX_MAGENTA
		jmp	short loc_BBEE
; ---------------------------------------------------------------------------

loc_BBE4:
		mov	byte_1F4DD, TX_MAGENTA
		mov	byte_1F4DE, TX_WHITE + TX_UNDERLINE

loc_BBEE:
		push	(17 shl 16) + 15
		pushd	[off_1DB7A]
		mov	al, byte_1F4DD
		mov	ah, 0
		push	ax
		call	text_putsa
		push	(17 shl 16) + 16
		pushd	[off_1DB7E]
		mov	al, byte_1F4DE
		mov	ah, 0
		push	ax
		call	text_putsa
		mov	[bp+var_1], 3

loc_BC1E:
		test	byte ptr _input, INPUT_OK
		jnz	short loc_BC2C
		test	byte ptr _input, INPUT_SHOT
		jz	short loc_BC99

loc_BC2C:
		cmp	byte_1DB74, 0
		jnz	short loc_BC94
		call	gaiji_putsa pascal, (17 shl 16) + 14, ds, offset g11SPACES, TX_WHITE
		call	gaiji_putsa pascal, (17 shl 16) + 15, ds, offset g11SPACES, TX_WHITE
		call	gaiji_putsa pascal, (17 shl 16) + 16, ds, offset g11SPACES, TX_WHITE
		call	text_putsa pascal, (23 shl 16) + 15, off_1DB70, TX_WHITE + TX_UNDERLINE
		call	text_putsa pascal, (23 shl 16) + 16, off_1DB6C, TX_MAGENTA
		mov	[bp+var_1], 0
		jmp	short loc_BC99
; ---------------------------------------------------------------------------

loc_BC94:
		mov	ax, 1
		jmp	short loc_BCAE
; ---------------------------------------------------------------------------

loc_BC99:
		test	byte ptr _input, INPUT_CANCEL
		jz	short loc_BCA4

loc_BCA0:
		mov	[bp+var_1], 2

loc_BCA4:
		push	1
		call	frame_delay
		jmp	loc_BA1D
; ---------------------------------------------------------------------------

loc_BCAE:
		pop	si
		leave
		retn
sub_B9E2	endp


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

; Attributes: bp-based frame

sub_BCB1	proc far

var_8		= dword	ptr -8
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 8
		push	si
		mov	eax, dword_1DB82
		mov	[bp+var_8], eax
		jmp	loc_BF63
; ---------------------------------------------------------------------------

loc_BCC3:
		call	_snd_se_update
		call	farfp_1F498
		call	bgm_show
		mov	si, _scroll_line
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		lea	dx, [bp+var_8]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		mov	_scroll_line, ax
		call	_boss_bg_render
		cmp	byte_2061A, 0
		jz	short loc_BCF9
		call	farfp_1F474
		mov	byte_2061A, al

loc_BCF9:
		call	farfp_26C3C
		call	sub_C6B2
		call	sub_10D42
		call	farfp_23A72
		call	sub_D874
		call	sub_4288
		call	sub_E2D9
		cmp	word_2034C, 0
		jz	short loc_BD26
		call	sub_16D9B
		mov	word_2034C, 0

loc_BD26:
		call	egc_start_copy_1
		call	farfp_1F4A0
		call	sub_4692
		call	farfp_1F490
		outw2	EGC_ACTIVEPLANEREG, 0FFF0h
		outw2	EGC_MASKREG, 0FFFFh
		mov	al, 7
		out	6Ah, al		; PC-98	GDC (6a):
					;
		mov	al, 4
		out	6Ah, al		; PC-98	GDC (6a):
					;
		GRCG_OFF_VIA_MOV al
		mov	al, 6
		out	6Ah, al		; PC-98	GDC (6a):
					;
		mov	ax, word_2034A
		cmp	ax, word_20616
		jnz	short loc_BD62
		mov	byte_2061A, 1

loc_BD62:
		mov	byte_1E503, 0
		mov	_scroll_line, si
		cmp	byte_1E501, 0
		jnz	short loc_BDA2
		mov	al, byte_20343
		mov	ah, 0
		mov	dl, byte_1E500
		mov	dh, 0
		push	dx
		cwd
		pop	bx
		idiv	bx
		or	dx, dx
		jnz	short loc_BDA2
		mov	al, byte_20342
		mov	ah, 0
		sub	_scroll_line, ax
		cmp	_scroll_line, 0
		jge	short loc_BD9C
		add	_scroll_line, RES_Y

loc_BD9C:
		mov	al, byte_20342
		mov	byte_1E503, al

loc_BDA2:
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		lea	dx, [bp+var_8]
		add	ax, dx
		mov	dx, _scroll_line
		mov	bx, ax
		mov	ss:[bx], dx
		call	_input_sense
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jz	short loc_BDCC
		nopcall	sub_C1E4

loc_BDCC:
		call	sub_F1D8
		call	sub_ECAC
		call	farfp_26C40
		call	_boss_update
		mov	byte_1F466, al
		cmp	byte_2061A, 0
		jz	short loc_BDE8
		call	farfp_1F470

loc_BDE8:
		call	sub_EF36
		call	sub_DAF0
		call	farfp_23A76
		call	sub_10BC6
		call	sub_41AA
		test	byte ptr _input, INPUT_CANCEL
		jz	short loc_BE0F
		call	sub_B9E2
		or	ax, ax
		jz	short loc_BE0F
		mov	byte_20607, 1

loc_BE0F:
		cmp	byte_1E503, 0
		jz	loc_BEDC
		mov	ax, _scroll_line
		shl	ax, 5
		mov	dx, _scroll_line
		shl	dx, 3
		add	ax, dx
		mov	word_20348, ax
		test	byte ptr _scroll_line, 7
		jnz	short loc_BE3B
		inc	word_2034A
		mov	word_2034C, 1

loc_BE3B:
		call	egc_start_copy_1
		mov	al, byte_20342
		mov	ah, 0
		push	ax
		call	sub_445A
		mov	byte_1E501, al
		outw2	EGC_ACTIVEPLANEREG, 0FFF0h
		outw2	EGC_MASKREG, 0FFFFh
		mov	al, 7
		out	6Ah, al		; PC-98	GDC (6a):
					;
		mov	al, 4
		out	6Ah, al		; PC-98	GDC (6a):
					;
		GRCG_OFF_VIA_MOV al
		mov	al, 6
		out	6Ah, al		; PC-98	GDC (6a):
					;
		cmp	byte_1E501, 0
		jz	short loc_BE77
		inc	_scroll_line
		jmp	short loc_BEE0
; ---------------------------------------------------------------------------

loc_BE77:
		mov	ax, RES_Y
		sub	ax, _scroll_line
		mov	[bp+var_2], ax
		mov	ax, word_20348
		mov	[bp+var_4], ax
		mov	cx, graph_VramZoom
		mov	cl, 4

loc_BE8D:
		jmp	short $+2
		in	al, 0A0h	; PIC 2	 same as 0020 for PIC 1
		test	cl, al
		jz	short loc_BE8D
		mov	al, 70h	; 'p'
		out	0A2h, al
		mov	ax, [bp+var_4]
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	al, ah
		jmp	short $+2
		jmp	short $+2
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	ax, [bp+var_2]
		shl	ax, cl
		or	ah, ch
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	al, ah
		jmp	short $+2
		jmp	short $+2
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	ax, 0
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	al, ah
		jmp	short $+2
		jmp	short $+2
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	ax, 190h
		shl	ax, cl
		or	ah, ch
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		mov	al, ah
		jmp	short $+2
		jmp	short $+2
		out	0A0h, al	; PIC 2	 same as 0020 for PIC 1
		cmp	byte_1E501, 0
		jnz	short loc_BEE0

loc_BEDC:
		inc	byte_20343

loc_BEE0:
		cmp	byte_2066D, 1
		jnz	short loc_BEED
		mov	vsync_Count1, 0

loc_BEED:
		mov	al, byte_2066D
		mov	ah, 0
		cmp	ax, vsync_Count1
		ja	short loc_BEED
		mov	vsync_Count1, 0
		mov	al, _page_back
		mov	_page_front, al
		out	0A4h, al
		xor	_page_back, 1
		mov	al, _page_back
		out	0A6h, al
		call	farfp_1F494
		les	bx, mikoconfig
		inc	es:[bx+mikoconfig_t.frame]
		inc	dword_20612
		call	farfp_1F48C
		or	ax, ax
		jz	short loc_BF36
		cmp	byte_20607, 0
		jnz	short loc_BF36
		mov	ax, 1
		jmp	short loc_BF78
; ---------------------------------------------------------------------------

loc_BF36:
		mov	eax, dword_20612
		mov	ebx, 708h
		xor	edx, edx
		div	ebx
		cmp	edx, 5DCh
		jnz	short loc_BF60
		mov	al, byte_1F4AC
		mov	ah, 0
		cmp	ax, word_20272
		jle	short loc_BF60
		inc	word_20272
		jmp	short $+2

loc_BF60:
		call	sub_DD41

loc_BF63:
		cmp	byte_20607, 0
		jz	loc_BCC3
		nopcall	sub_DCFE
		mov	byte_20607, 0
		xor	ax, ax

loc_BF78:
		pop	si
		leave
		retf
sub_BCB1	endp


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

; Attributes: bp-based frame

sub_BF7B	proc near
		push	bp
		mov	bp, sp
		call	text_clear
		call	text_fillca pascal, (' ' shl 16) + TX_BLACK + TX_REVERSE
		pop	bp
		retn
sub_BF7B	endp


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

; Attributes: bp-based frame

sub_BF90	proc far
		push	bp
		mov	bp, sp
		pop	bp
		retf
sub_BF90	endp


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

; Attributes: bp-based frame

sub_BF95	proc far
		push	bp
		mov	bp, sp
		xor	ax, ax
		pop	bp
		retf
sub_BF95	endp


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

; Attributes: bp-based frame

sub_BF9C	proc far
		push	bp
		mov	bp, sp
		cmp	byte_1F466, 2
		jnz	short loc_BFCC
		mov	al, stage_id
		cbw
		cmp	ax, 2
		jnz	short loc_BFC3
		mov	Palettes, 0
		mov	Palettes+1, 0
		mov	Palettes+2, 0
		call	far ptr	palette_show

loc_BFC3:
		call	_boss_end
		mov	ax, 1
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_BFCC:
		xor	ax, ax
		pop	bp
		retf
sub_BF9C	endp


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

; Attributes: bp-based frame

sub_BFD0	proc far
		push	bp
		mov	bp, sp
		cmp	byte_1E501, 1
		jnz	loc_C05B
		mov	byte_1F466, 1
		mov	al, stage_id
		cbw
		cmp	ax, 3
		jnz	short loc_BFF8
		setfarfp	farfp_1F490, sub_BF90
		jmp	short loc_C015
; ---------------------------------------------------------------------------

loc_BFF8:
		mov	al, stage_id
		cbw
		cmp	ax, 2
		jnz	short loc_C015
		mov	Palettes, 0
		mov	Palettes+1, 0
		mov	Palettes+2, 0
		call	far ptr	palette_show

loc_C015:
		call	_boss_init
		call	sub_17A55
		call	sub_16A8A
		setfarfp	farfp_1F494, sub_BF90
		mov	eax, _boss_bg_render_func
		mov	_boss_bg_render, eax
		mov	eax, _boss_update_func
		mov	_boss_update, eax
		setfarfp	farfp_1F48C, sub_BF9C
		mov	byte_20343, 0FFh
		mov	bgm_show_timer, 1
		mov	al, byte_1F46E
		mov	bgm_title_id, al

loc_C05B:
		pop	bp
		retf
sub_BFD0	endp


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

; Attributes: bp-based frame

sub_C05D	proc far
		push	bp
		mov	bp, sp
		cmp	dword_20612, 0A0h
		jnz	short loc_C0A6
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 0
		jnz	short loc_C09A
		call	text_putsa pascal, (4 shl 16) + 12, ds, offset aEMPTY, TX_WHITE
		call	text_putsa pascal, (4 shl 16) + 13, ds, offset aEMPTY, TX_WHITE

loc_C09A:
		setfarfp	farfp_1F498, sub_BF90

loc_C0A6:
		pop	bp
		retf
sub_C05D	endp


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

; Attributes: bp-based frame

bgm_show	proc near
		push	bp
		mov	bp, sp
		cmp	bgm_show_timer, 0
		jz	short loc_C108
		cmp	bgm_show_timer, 1
		jnz	short loc_C0E6
		call	gaiji_putca pascal, (24 shl 16) + 23, (0D8h shl 16) + TX_YELLOW
		push	(26 shl 16) + 23
		push	ds
		mov	al, bgm_title_id
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr BGM_TITLE[bx]
		push	TX_WHITE
		call	text_putsa

loc_C0E6:
		inc	bgm_show_timer
		cmp	bgm_show_timer, 0A0h
		jb	short loc_C108
		call	text_putsa pascal, (24 shl 16) + 23, ds, offset aEMPTY+22, TX_WHITE
		mov	bgm_show_timer, 0

loc_C108:
		pop	bp
		retn
bgm_show	endp

EGC_START_COPY_DEF 1, near

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

; Attributes: bp-based frame

sub_C13E	proc far
		push	bp
		mov	bp, sp
		push	36B0h
		call	hmem_allocbyte
		mov	word ptr dword_1F4A8+2,	ax
		mov	word ptr dword_1F4A8, 0
		mov	power, 80
		mov	word_20272, 0Ch
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.frame], 12h
		cmp	es:[bx+mikoconfig_t.demo_num], 1
		jnz	short loc_C18A
		mov	stage_id, 3
		push	ds
		push	offset aDemo1_rec ; "DEMO1.REC"
		call	file_ropen
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.shottype], 0
		jmp	short loc_C1D0
; ---------------------------------------------------------------------------

loc_C18A:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 2
		jnz	short loc_C1AE
		mov	stage_id, 2
		push	ds
		push	offset aDemo2_rec ; "DEMO2.REC"
		call	file_ropen
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.shottype], 2
		jmp	short loc_C1D0
; ---------------------------------------------------------------------------

loc_C1AE:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.demo_num], 3
		jnz	short loc_C1D0
		mov	stage_id, 1
		push	ds
		push	offset aDemo3_rec ; "DEMO3.REC"
		call	file_ropen
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.shottype], 1

loc_C1D0:
		pushd	[dword_1F4A8]
		push	36B0h
		call	file_read
		call	file_close
		pop	bp
		retf
sub_C13E	endp


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

; Attributes: bp-based frame

sub_C1E4	proc far
		push	bp
		mov	bp, sp
		cmp	_input, 0
		jnz	short loc_C20B
		mov	ax, word_1DB86
		add	ax, ax
		les	bx, dword_1F4A8
		add	bx, ax
		mov	ax, es:[bx]
		mov	_input, ax
		inc	word_1DB86
		cmp	word_1DB86, 1B26h
		jl	short loc_C222

loc_C20B:
		mov	_input, 0
		push	0Ah
		call	palette_black_out
		mov	byte_20607, 1
		call	_snd_se_reset

loc_C222:
		pop	bp
		retf
sub_C1E4	endp

include th02/math/randring_fill.asm
RANDRING_NEXT_DEF 1

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

; Attributes: bp-based frame

sub_C273	proc near

var_2		= word ptr -2

		enter	2, 0
		push	ds
		push	offset aHuuma_cfg ; "huuma.cfg"
		call	file_ropen
		pushd	5
		push	0
		call	file_seek
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		push	2
		call	file_read
		call	file_close
		cmp	[bp+var_2], 0
		jz	short loc_C2F0
		mov	ax, [bp+var_2]
		mov	word ptr mikoconfig+2,	ax
		mov	word ptr mikoconfig, 0
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.stage]
		mov	stage_id, al
		mov	al, es:[bx+mikoconfig_t.start_lives]
		mov	lives, al
		mov	al, es:[bx+mikoconfig_t.start_bombs]
		mov	bombs, al
		mov	al, es:[bx+mikoconfig_t.rank]
		mov	_rank, al
		mov	al, es:[bx+mikoconfig_t.start_power]
		mov	power, al
		cmp	power, 0
		jnz	short loc_C2DF
		inc	power

loc_C2DF:
		mov	word_20272, 0
		mov	word_1E51E, 0
		mov	ax, 1
		leave
		retn
; ---------------------------------------------------------------------------

loc_C2F0:
		xor	ax, ax
		leave
		retn
sub_C273	endp


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

; Attributes: bp-based frame

sub_C2F4	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	18000Eh
		push	ds
		push	offset gYES
		push	[bp+arg_2]
		call	gaiji_putsa
		push	19000Fh
		push	ds
		push	offset gNO
		push	[bp+arg_0]
		call	gaiji_putsa
		pop	bp
		retn	4
sub_C2F4	endp


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

; Attributes: bp-based frame

sub_C31F	proc near

var_2		= word ptr -2

		enter	2, 0
		push	si
		push	di
		mov	[bp+var_2], 0
		mov	di, 1
		nopcall	sub_E162
		mov	PaletteTone, 32h	; '2'
		call	far ptr	palette_show
		nopcall	sub_E16D
		mov	si, 15h
		jmp	loc_C3E5
; ---------------------------------------------------------------------------

loc_C348:
		push	18
		lea	ax, [si+1]
		push	ax
		push	ds
		push	offset asc_1E47E ; "		    "
		push	TX_WHITE
		call	text_putsa
		call	gaiji_putsa pascal, 18, si, ds, offset gGAMEOVER, TX_WHITE
		push	18
		mov	ax, 23
		sub	ax, si
		push	ax
		push	ds
		push	offset asc_1E47E ; "		    "
		push	TX_WHITE
		call	text_putsa
		push	18
		mov	ax, 24
		sub	ax, si
		push	ax
		push	ds
		push	offset gGAMEOVER
		push	TX_WHITE
		call	gaiji_putsa
		mov	ax, 29
		sub	ax, si
		call	text_putsa pascal, ax, 12, ds, offset asc_1E47E, TX_WHITE
		mov	ax, 30
		sub	ax, si
		call	gaiji_putsa pascal, ax, 12, ds, offset gGAMEOVER, TX_WHITE
		lea	ax, [si+7]
		call	text_putsa pascal, ax, 12, ds, offset asc_1E47E, TX_WHITE
		lea	ax, [si+6]
		call	gaiji_putsa pascal, ax, 12, ds, offset gGAMEOVER, TX_WHITE
		push	1
		call	frame_delay
		dec	si

loc_C3E5:
		cmp	si, 0Ch
		jge	loc_C348
		push	1Eh
		call	frame_delay
		mov	_input, 0
		jmp	short loc_C400
; ---------------------------------------------------------------------------

loc_C3FB:
		call	_input_sense

loc_C400:
		cmp	_input, 0
		jz	short loc_C3FB
		call	sub_FBE9
		call	sub_1C9FE
		call	sub_FBE9
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 3
		jnb	loc_C4F5
		mov	al, _rank
		cbw
		cmp	ax, RANK_EXTRA
		jge	loc_C4F5
		call	gaiji_putsa pascal, (18 shl 16) + 12, ds, offset gCONTINUE?, TX_WHITE
		push	0E500E1h
		call	sub_C2F4
		call	gaiji_putsa pascal, (18 shl 16) + 20, ds, offset gCREDIT, TX_GREEN
		les	bx, mikoconfig
		mov	ax, 0A3h ; '｣'
		sub	ax, es:[bx+mikoconfig_t.continues_used]
		mov	si, ax
		call	gaiji_putca pascal, (32 shl 16) + 20, ax, TX_GREEN
		mov	di, 1

loc_C47A:
		call	_input_sense
		cmp	[bp+var_2], 0
		jnz	short loc_C493
		cmp	_input, 0
		jnz	short loc_C493
		mov	[bp+var_2], 1
		jmp	short loc_C4A5
; ---------------------------------------------------------------------------

loc_C493:
		cmp	[bp+var_2], 1
		jnz	short loc_C4A5
		cmp	_input, 0
		jz	short loc_C4A5
		mov	[bp+var_2], 2

loc_C4A5:
		test	byte ptr _input, 1
		jz	short loc_C4B8
		mov	di, 1
		push	0E500E1h
		call	sub_C2F4

loc_C4B8:
		test	byte ptr _input, 2
		jz	short loc_C4CA
		xor	di, di
		push	0E100E5h
		call	sub_C2F4

loc_C4CA:
		cmp	[bp+var_2], 2
		jnz	short loc_C4E5
		test	byte ptr _input, INPUT_SHOT
		jnz	short loc_C4EE
		test	byte ptr _input, INPUT_OK
		jnz	short loc_C4EE
		test	byte ptr _input, INPUT_CANCEL
		jnz	short loc_C4EE

loc_C4E5:
		push	1
		call	frame_delay
		jmp	short loc_C47A
; ---------------------------------------------------------------------------

loc_C4EE:
		test	byte ptr _input, INPUT_CANCEL
		jz	short loc_C4F7

loc_C4F5:
		xor	di, di

loc_C4F7:
		les	bx, mikoconfig
		mov	eax, es:[bx+mikoconfig_t.score_highest]
		cmp	eax, dword_1E598
		jnb	short loc_C50D
		mov	eax, dword_1E598
		jmp	short loc_C516
; ---------------------------------------------------------------------------

loc_C50D:
		les	bx, mikoconfig
		mov	eax, es:[bx+mikoconfig_t.score_highest]

loc_C516:
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.score_highest], eax
		mov	al, es:[bx+mikoconfig_t.start_lives]
		mov	lives, al
		mov	al, es:[bx+mikoconfig_t.start_bombs]
		mov	bombs, al
		mov	power, 1
		inc	es:[bx+mikoconfig_t.continues_used]
		call	sub_DD1B
		mov	al, stage_id
		cbw
		mov	bx, 5
		cwd
		idiv	bx
		add	dx, 2
		mov	word_1E51E, dx
		mov	power_overflow_level, 10
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		call	sub_FBE9
		mov	ax, di
		pop	di
		pop	si
		leave
		retn
sub_C31F	endp


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

; Attributes: bp-based frame

; int __cdecl __far sub_C566(char *arg0)
sub_C566	proc far

_arg0		= dword	ptr  6

		push	bp
		mov	bp, sp
		freePISlotLarge	0
		call	sub_E24A
		call	mptn_free
		call	sub_1C608
		call	super_free
		call	graph_clear
		call	text_clear
		call	sub_DC4B
		call	_game_exit
		pushd	0
		pushd	[bp+_arg0]	; arg0
		pushd	[bp+_arg0]	; path
		call	_execl
		add	sp, 0Ch
		pop	bp
		retf
sub_C566	endp


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

; Attributes: bp-based frame

sub_C5B0	proc near
		push	bp
		mov	bp, sp
		xor	dx, dx
		jmp	short loc_C5C2
; ---------------------------------------------------------------------------

loc_C5B7:
		mov	bx, dx
		shl	bx, 4
		mov	byte ptr [bx+2908h], 0
		inc	dx

loc_C5C2:
		cmp	dx, 26h	; '&'
		jl	short loc_C5B7
		mov	byte_205DE, 0
		mov	byte_20605, 0
		mov	byte_20606, 0
		mov	byte_20607, 0
		mov	byte_20608, 0
		mov	byte_20609, 0
		mov	byte_205DF, 8
		mov	byte_205E0, 0
		mov	_player_is_hit, 0
		mov	byte_1E517, 0
		mov	byte_1E51B, 48h	; 'H'
		mov	word_205D8, 0FFFFh
		mov	word_205DC, 0FFFFh
		mov	word_205DA, 0FFFFh
		mov	byte_20610, 0
		mov	byte_20611, 0
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.shottype]
		mov	ah, 0
		or	ax, ax
		jz	short loc_C634
		cmp	ax, 1
		jz	short loc_C655
		cmp	ax, 2
		jz	short loc_C67F
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_C634:
		mov	playchar_shot_func, offset shot_a
		mov	_playchar_speed_aligned_x, 5
		mov	_playchar_speed_aligned_y, 5
		mov	_playchar_speed_diagonal_x, 4
		mov	_playchar_speed_diagonal_y, 4
		mov	byte_2060E, 30h	; '0'
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_C655:
		mov	playchar_shot_func, offset shot_b
		mov	_playchar_speed_aligned_x, 4
		mov	_playchar_speed_aligned_y, 4
		mov	_playchar_speed_diagonal_x, 3
		mov	_playchar_speed_diagonal_y, 3
		mov	byte_2060E, 34h	; '4'
		mov	byte_2060F, 37h	; '7'
		inc	byte_1E51B
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_C67F:
		mov	playchar_shot_func, offset shot_c
		mov	_playchar_speed_aligned_x, 3
		mov	_playchar_speed_aligned_y, 3
		mov	_playchar_speed_diagonal_x, 3
		mov	_playchar_speed_diagonal_y, 3
		mov	byte_1E518, 3
		mov	byte_2060E, 7Dh	; '}'
		mov	byte_2060F, 3Bh	; ';'
		mov	al, byte_1E51B
		add	al, 2
		mov	byte_1E51B, al
		pop	bp
		retn
sub_C5B0	endp


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

; Attributes: bp-based frame

sub_C6B2	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	[bp+var_2], 2
		call	sub_D38F
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2B76h
		mov	word_205EE, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2B7Ah
		mov	word_205F0, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, 2B8Ah
		mov	word_205F2, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, 2B8Ch
		mov	word_205F4, ax
		mov	bx, word_205EE
		push	word ptr [bx]
		mov	bx, word_205F0
		push	word ptr [bx]
		push	200030h
		call	sub_45FC
		mov	bx, word_205F2
		mov	si, [bx]
		push	si
		mov	bx, word_205F4
		push	word ptr [bx]
		push	100010h
		call	sub_45FC
		lea	ax, [si+30h]
		push	ax
		mov	bx, word_205F4
		push	word ptr [bx]
		push	100010h
		call	sub_45FC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		mov	bx, word_205EE
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B7Ah]
		mov	bx, word_205F0
		mov	[bx], ax
		pop	si
		leave
		retn
sub_C6B2	endp


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

; Attributes: bp-based frame

sub_C764	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_C772
; ---------------------------------------------------------------------------

loc_C76C:
		mov	byte ptr [si+28A8h], 0
		inc	si

loc_C772:
		cmp	si, 14h
		jl	short loc_C76C
		mov	byte_20276, 0Fh
		mov	al, _rank
		cbw
		mov	bx, ax
		cmp	bx, RANK_EXTRA
		ja	short loc_C7BC
		add	bx, bx
		jmp	cs:off_C7C0[bx]

loc_C78E:
		mov	byte_20340, 0Ch
		mov	byte_20341, 0Ch
		jmp	short loc_C7BC
; ---------------------------------------------------------------------------

loc_C79A:
		mov	byte_20340, 0Ah
		mov	byte_20341, 2
		jmp	short loc_C7BC
; ---------------------------------------------------------------------------

loc_C7A6:
		mov	byte_20340, 0Ah
		mov	byte_20341, 4
		jmp	short loc_C7BC
; ---------------------------------------------------------------------------

loc_C7B2:
		mov	byte_20340, 0Ah
		mov	byte_20341, 8

loc_C7BC:
		pop	si
		pop	bp
		retn
sub_C764	endp

; ---------------------------------------------------------------------------
		db 0
off_C7C0	dw offset loc_C78E
		dw offset loc_C78E
		dw offset loc_C79A
		dw offset loc_C7A6
		dw offset loc_C7B2

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

; Attributes: bp-based frame

sub_C7CA	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	cx, [bp+arg_4]
		mov	dx, [bp+arg_2]
		mov	di, [bp+arg_0]
		xor	si, si
		jmp	short loc_C812
; ---------------------------------------------------------------------------

loc_C7DC:
		cmp	byte ptr [si+28A8h], 0
		jnz	short loc_C811
		mov	byte ptr [si+28A8h], 1
		mov	byte ptr [si+28BCh], 0
		mov	bx, si
		add	bx, bx
		mov	[bx+2880h], di
		mov	bx, si
		add	bx, bx
		mov	[bx+2808h], cx
		mov	bx, si
		shl	bx, 2
		mov	[bx+2830h], dx
		mov	bx, si
		shl	bx, 2
		mov	[bx+2832h], dx
		jmp	short loc_C817
; ---------------------------------------------------------------------------

loc_C811:
		inc	si

loc_C812:
		cmp	si, 14h
		jl	short loc_C7DC

loc_C817:
		pop	di
		pop	si
		pop	bp
		retn	6
sub_C7CA	endp


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

; Attributes: bp-based frame

sub_C81D	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_C885
; ---------------------------------------------------------------------------

loc_C825:
		cmp	byte ptr [si+28A8h], 0
		jz	short loc_C884
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+2808h]
		mov	bx, si
		shl	bx, 2
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		push	word ptr [bx+2830h]
		push	400008h
		call	sub_45FC
		cmp	byte ptr [si+28A8h], 2
		jnz	short loc_C85F
		mov	byte ptr [si+28A8h], 0
		jmp	short loc_C884
; ---------------------------------------------------------------------------

loc_C85F:
		mov	bx, si
		shl	bx, 2
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		mov	ax, [bx+2830h]
		mov	bx, si
		shl	bx, 2
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		add	bx, dx
		mov	[bx+2830h], ax

loc_C884:
		inc	si

loc_C885:
		cmp	si, 14h
		jl	short loc_C825
		pop	si
		pop	bp
		retn
sub_C81D	endp


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

; Attributes: bp-based frame

sub_C88D	proc near

var_2		= byte ptr -2
var_1		= byte ptr -1
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	di, [bp+arg_4]
		mov	[bp+var_1], 0
		xor	si, si
		jmp	short loc_C8E0
; ---------------------------------------------------------------------------

loc_C8A0:
		mov	bx, si
		add	bx, bx
		mov	ax, [bp+arg_0]
		xor	dx, dx
		div	word ptr [bx+0A20h]
		mov	[bp+var_2], al
		mov	bx, si
		add	bx, bx
		mov	ax, [bp+arg_0]
		xor	dx, dx
		div	word ptr [bx+0A20h]
		mov	[bp+arg_0], dx
		cmp	[bp+var_2], 0
		jnz	short loc_C8CC
		cmp	[bp+var_1], 0
		jz	short loc_C8DC

loc_C8CC:
		mov	[bp+var_1], 1
		push	di
		push	[bp+arg_2]
		mov	al, [bp+var_2]
		cbw
		push	ax
		call	numerals_draw

loc_C8DC:
		inc	si
		add	di, 8

loc_C8E0:
		cmp	si, 4
		jl	short loc_C8A0
		push	di
		push	[bp+arg_2]
		push	0
		call	numerals_draw
		lea	ax, [di+8]
		push	ax
		push	[bp+arg_2]
		mov	al, byte_20340
		mov	ah, 0
		push	ax
		call	numerals_draw
		lea	ax, [di+10h]
		push	ax
		push	[bp+arg_2]
		mov	al, byte_20341
		mov	ah, 0
		push	ax
		call	numerals_draw
		pop	di
		pop	si
		leave
		retn	6
sub_C88D	endp


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

; Attributes: bp-based frame

sub_C914	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		push	GC_RMW
		mov	al, byte_20276
		mov	ah, 0
		push	ax
		call	grcg_setcolor
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		xor	si, si
		jmp	short loc_C997
; ---------------------------------------------------------------------------

loc_C930:
		cmp	byte ptr [si+28A8h], 1
		jnz	short loc_C996
		cmp	byte ptr [si+28BCh], 6
		jbe	short loc_C95E
		mov	bx, si
		shl	bx, 2
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		dec	word ptr [bx+2830h]
		cmp	byte ptr [si+28BCh], 18h
		jbe	short loc_C95E
		mov	byte ptr [si+28A8h], 2
		jmp	short loc_C996
; ---------------------------------------------------------------------------

loc_C95E:
		inc	byte ptr [si+28BCh]
		mov	bx, si
		shl	bx, 2
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		mov	di, [bx+2830h]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_C982
		sub	di, RES_Y

loc_C982:
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+2808h]
		push	di
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+2880h]
		call	sub_C88D

loc_C996:
		inc	si

loc_C997:
		cmp	si, 14h
		jl	short loc_C930
		call	grcg_off
		pop	di
		pop	si
		pop	bp
		retn
sub_C914	endp

; ---------------------------------------------------------------------------
		db 0

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

; Attributes: bp-based frame

; int __stdcall	numerals_draw(int numeral, int,	int)
numerals_draw	proc near

numeral		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		enter	0, 0
		push	si
		push	di
		mov	ax, [bp+arg_4]
		sar	ax, 3
		mov	dx, [bp+arg_2]
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	ax, [bp+arg_4]
		and	ax, 7
		mov	dl, al
		mov	bl, 8
		sub	bl, al
		mov	dh, bl
		mov	si, [bp+numeral]
		shl	si, 3
		add	si, offset NUMERALS
		mov	cx, 8
		cmp	ax, 0
		jnz	short loc_C9F3

loc_C9E1:
		movsb
		add	di, 4Fh	; 'O'
		cmp	di, 7D00h
		jl	short loc_C9EF
		sub	di, 7D00h

loc_C9EF:
		loop	loc_C9E1
		jmp	short loc_CA16
; ---------------------------------------------------------------------------

loc_C9F3:
		mov	al, [si]
		mov	ah, al
		mov	bx, cx
		mov	cl, dl
		shr	al, cl
		mov	cl, dh
		shl	ah, cl
		mov	cx, bx
		mov	es:[di], ax
		add	di, 80
		cmp	di, 7D00h
		jl	short loc_CA13
		sub	di, 7D00h

loc_CA13:
		inc	si
		loop	loc_C9F3

loc_CA16:
		pop	di
		pop	si
		leave
		retn	6
numerals_draw	endp


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

; Attributes: bp-based frame

sub_CA1C	proc far
		push	bp
		mov	bp, sp
		mov	byte_20342, 1
		mov	byte_20343, 0
		mov	_scroll_line, 0
		mov	word_20346, 0
		mov	word_2034A, 0
		mov	byte_1E500, 4
		mov	byte_1E501, 0
		mov	byte_2034E, 0
		mov	byte_1E502, 0
		mov	word_20348, 0
		mov	word_2034C, 0
		mov	byte_1E503, 0
		pop	bp
		retf
sub_CA1C	endp


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

; Attributes: bp-based frame

sub_CA62	proc near

arg_0		= byte ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		mov	dl, [bp+arg_0]
		mov	ax, word_205E2
		shl	ax, 4
		add	ax, 2908h
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	cx, ax
		mov	word ptr [si], 1
		mov	ax, word_205F6
		add	ax, [bp+arg_2]
		shl	ax, 4
		mov	bx, cx
		add	bx, bx
		mov	[bx+si+2], ax
		mov	bx, cx
		add	bx, bx
		mov	ax, word_205E4
		mov	[bx+si+4], ax
		mov	al, dl
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, _CosTable8[bx]
		imul	ax, 0Ch
		sar	ax, 4
		mov	[si+0Ah], ax
		mov	al, dl
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, _SinTable8[bx]
		imul	ax, 0Ch
		sar	ax, 4
		mov	[si+0Ch], ax
		mov	al, byte_1E519
		mov	ah, 0
		mov	[si+0Eh], ax
		pop	si
		pop	bp
		retn	4
sub_CA62	endp


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

; Attributes: bp-based frame

sub_CAD2	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		mov	ax, word_205E2
		shl	ax, 4
		add	ax, 2908h
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	dx, ax
		mov	word ptr [si], 101h
		mov	bx, word_205F2
		mov	ax, [bx]
		add	ax, [bp+arg_4]
		shl	ax, 4
		mov	bx, dx
		add	bx, bx
		mov	[bx+si+2], ax
		mov	bx, word_205F4
		mov	ax, [bx]
		shl	ax, 4
		mov	bx, dx
		add	bx, bx
		mov	[bx+si+4], ax
		mov	ax, [bp+arg_2]
		mov	[si+0Ah], ax
		mov	ax, [bp+arg_0]
		mov	[si+0Ch], ax
		mov	al, byte_1E51A
		mov	ah, 0
		add	ax, 100h
		mov	[si+0Eh], ax
		pop	si
		pop	bp
		retn	6
sub_CAD2	endp


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

; Attributes: bp-based frame

shot_a	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		xor	si, si
		xor	di, di
		mov	[bp+var_2], 0
		mov	ax, word_205F8
		add	ax, 20h	; ' '
		shl	ax, 4
		mov	word_205E4, ax
		mov	word_205E2, 0
		jmp	loc_CD04
; ---------------------------------------------------------------------------

loc_CB53:
		mov	bx, word_205E2
		shl	bx, 4
		cmp	byte ptr [bx+2908h], 0
		jnz	loc_CD00
		mov	al, shot_level
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 9
		ja	loc_CCFB
		add	bx, bx
		jmp	cs:off_CD16[bx]

loc_CB78:
		push	8
		push	0C0h
		call	sub_CA62
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CB83:
		push	8
		push	3
		call	_randring1_next8_and
		add	al, 0BEh
		push	ax
		call	sub_CA62
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CB93:
		cmp	si, 1
		jnz	short loc_CB9D
		mov	[bp+var_2], 10h

loc_CB9D:
		push	[bp+var_2]
		push	7
		call	_randring1_next8_and
		add	al, 0BCh
		push	ax

loc_CBA8:
		call	sub_CA62
		mov	di, 1
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CBB1:
		cmp	si, 1
		jnz	short loc_CBBB
		mov	[bp+var_2], 10h

loc_CBBB:
		push	[bp+var_2]
		push	0C0h
		jmp	short loc_CBA8
; ---------------------------------------------------------------------------

loc_CBC3:
		mov	[bp+var_2], 2

loc_CBC8:
		or	si, si
		jnz	short loc_CBD3
		push	8
		push	0C0h
		jmp	short loc_CBE9
; ---------------------------------------------------------------------------

loc_CBD3:
		cmp	si, 1
		jnz	short loc_CBE1
		push	8
		mov	al, 0BBh
		sub	al, byte ptr [bp+var_2]
		jmp	short loc_CBE8
; ---------------------------------------------------------------------------

loc_CBE1:
		push	8
		mov	al, byte ptr [bp+var_2]
		add	al, 0C5h

loc_CBE8:
		push	ax

loc_CBE9:
		call	sub_CA62
		mov	di, 2
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CBF2:
		or	si, si
		jnz	short loc_CBFD
		push	0
		push	0C0h
		jmp	short loc_CC19
; ---------------------------------------------------------------------------

loc_CBFD:
		cmp	si, 1
		jnz	short loc_CC09
		push	10h
		push	0C0h
		jmp	short loc_CC19
; ---------------------------------------------------------------------------

loc_CC09:
		push	1Fh
		call	_randring1_next8_and
		mov	ah, 0
		add	ax, 0B1h
		mov	[bp+var_2], ax
		push	8
		push	ax

loc_CC19:
		call	sub_CA62
		mov	di, 3
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CC22:
		or	si, si
		jnz	short loc_CC2D
		push	0
		push	0C0h
		jmp	short loc_CC4A
; ---------------------------------------------------------------------------

loc_CC2D:
		cmp	si, 1
		jnz	short loc_CC39
		push	10h
		push	0C0h
		jmp	short loc_CC4A
; ---------------------------------------------------------------------------

loc_CC39:
		cmp	si, 2
		jnz	short loc_CC45
		push	8
		push	0B8h
		jmp	short loc_CC4A
; ---------------------------------------------------------------------------

loc_CC45:
		push	8
		push	0C8h

loc_CC4A:
		call	sub_CA62
		mov	di, 3
		jmp	loc_CCFB
; ---------------------------------------------------------------------------

loc_CC53:
		or	si, si
		jnz	short loc_CC5E
		mov	[bp+var_2], 0C0h
		jmp	short loc_CC87
; ---------------------------------------------------------------------------

loc_CC5E:
		cmp	si, 1
		jnz	short loc_CC6A
		mov	[bp+var_2], 0B8h
		jmp	short loc_CC87
; ---------------------------------------------------------------------------

loc_CC6A:
		cmp	si, 2
		jnz	short loc_CC76
		mov	[bp+var_2], 0C8h
		jmp	short loc_CC87
; ---------------------------------------------------------------------------

loc_CC76:
		cmp	si, 3
		jnz	short loc_CC82
		mov	[bp+var_2], 0B0h ; 'ｰ'
		jmp	short loc_CC87
; ---------------------------------------------------------------------------

loc_CC82:
		mov	[bp+var_2], 0D0h

loc_CC87:
		push	8
		push	[bp+var_2]
		call	sub_CA62
		mov	di, 4
		jmp	short loc_CCFB
; ---------------------------------------------------------------------------

loc_CC94:
		or	si, si
		jnz	short loc_CC9F
		push	0
		push	0C0h
		jmp	short loc_CCF5
; ---------------------------------------------------------------------------

loc_CC9F:
		cmp	si, 1
		jnz	short loc_CCAB
		push	10h
		push	0C0h
		jmp	short loc_CCF5
; ---------------------------------------------------------------------------

loc_CCAB:
		cmp	si, 2
		jnz	short loc_CCBE
		mov	byte_1E519, 34h	; '4'
		mov	[bp+var_2], 0B3h
		push	8
		jmp	short loc_CCF2
; ---------------------------------------------------------------------------

loc_CCBE:
		cmp	si, 3
		jnz	short loc_CCCC
		mov	[bp+var_2], 0CDh
		push	8
		jmp	short loc_CCF2
; ---------------------------------------------------------------------------

loc_CCCC:
		cmp	si, 4
		jnz	short loc_CCE6
		mov	byte_1E519, 36h	; '6'
		mov	al, byte_20610
		cbw
		mov	dx, 0C0h
		sub	dx, ax
		mov	[bp+var_2], dx
		push	0FFE8h
		jmp	short loc_CCF2
; ---------------------------------------------------------------------------

loc_CCE6:
		mov	al, byte_20610
		cbw
		add	ax, 0C0h
		mov	[bp+var_2], ax
		push	28h ; '('

loc_CCF2:
		push	[bp+var_2]

loc_CCF5:
		call	sub_CA62
		mov	di, 5

loc_CCFB:
		cmp	si, di
		jz	short loc_CD0D
		inc	si

loc_CD00:
		inc	word_205E2

loc_CD04:
		cmp	word_205E2, 26h	; '&'
		jl	loc_CB53

loc_CD0D:
		mov	byte_205DE, 0
		pop	di
		pop	si
		leave
		retn
shot_a	endp

; ---------------------------------------------------------------------------
off_CD16	dw offset loc_CB78
		dw offset loc_CB83
		dw offset loc_CB93
		dw offset loc_CBB1
		dw offset loc_CBC8
		dw offset loc_CBC3
		dw offset loc_CBF2
		dw offset loc_CC22
		dw offset loc_CC53
		dw offset loc_CC94

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

; Attributes: bp-based frame

shot_b	proc near

var_3		= byte ptr -3
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		xor	si, si
		xor	di, di
		mov	[bp+var_2], 0
		mov	[bp+var_3], 0
		mov	ax, word_205F8
		add	ax, 20h	; ' '
		shl	ax, 4
		mov	word_205E4, ax
		mov	word_205E2, 0
		jmp	loc_D039
; ---------------------------------------------------------------------------

loc_CD54:
		mov	bx, word_205E2
		shl	bx, 4
		cmp	byte ptr [bx+2908h], 0
		jnz	loc_D035
		cmp	[bp+var_3], 0
		jnz	loc_CEF7
		mov	al, shot_level
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 9
		ja	loc_CEE8
		add	bx, bx
		jmp	cs:off_D057[bx]

loc_CD81:
		push	8
		push	0C0h
		call	sub_CA62
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CD8C:
		push	8
		push	3
		call	_randring1_next8_and
		add	al, 0BEh
		jmp	short loc_CDA0
; ---------------------------------------------------------------------------

loc_CD97:
		push	8
		push	7
		call	_randring1_next8_and
		add	al, 0BCh

loc_CDA0:
		push	ax
		call	sub_CA62
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CDA7:
		or	si, si
		jnz	short loc_CDAF
		push	0
		jmp	short loc_CDB1
; ---------------------------------------------------------------------------

loc_CDAF:
		push	10h

loc_CDB1:
		push	7
		call	_randring1_next8_and
		add	al, 0BCh
		push	ax
		call	sub_CA62
		mov	di, 1
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CDC2:
		cmp	si, 1
		jnz	short loc_CDCC
		mov	[bp+var_2], 10h

loc_CDCC:
		push	[bp+var_2]
		push	0C0h
		call	sub_CA62
		mov	di, 1
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CDDB:
		or	si, si
		jnz	short loc_CDE6
		push	0
		push	0BEh
		jmp	short loc_CDEB
; ---------------------------------------------------------------------------

loc_CDE6:
		push	10h
		push	0C2h

loc_CDEB:
		call	sub_CA62
		mov	di, 1
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CDF4:
		mov	[bp+var_2], 2

loc_CDF9:
		or	si, si
		jnz	short loc_CE04
		push	8
		push	0C0h
		jmp	short loc_CE1A
; ---------------------------------------------------------------------------

loc_CE04:
		cmp	si, 1
		jnz	short loc_CE12
		push	8
		mov	al, 0BBh
		sub	al, byte ptr [bp+var_2]
		jmp	short loc_CE19
; ---------------------------------------------------------------------------

loc_CE12:
		push	8
		mov	al, byte ptr [bp+var_2]
		add	al, 0C5h

loc_CE19:
		push	ax

loc_CE1A:
		call	sub_CA62
		mov	di, 2
		jmp	loc_CEE8
; ---------------------------------------------------------------------------

loc_CE23:
		or	si, si
		jnz	short loc_CE29
		jmp	short loc_CE46
; ---------------------------------------------------------------------------

loc_CE29:
		cmp	si, 1
		jnz	short loc_CE30
		jmp	short loc_CE53
; ---------------------------------------------------------------------------

loc_CE30:
		push	1Fh
		call	_randring1_next8_and
		mov	ah, 0
		add	ax, 0B1h
		mov	[bp+var_2], ax
		push	8
		jmp	loc_CEDF
; ---------------------------------------------------------------------------

loc_CE42:
		or	si, si
		jnz	short loc_CE4E

loc_CE46:
		push	0
		push	0C0h
		jmp	loc_CEE2
; ---------------------------------------------------------------------------

loc_CE4E:
		cmp	si, 1
		jnz	short loc_CE5B

loc_CE53:
		push	10h
		push	0C0h
		jmp	loc_CEE2
; ---------------------------------------------------------------------------

loc_CE5B:
		cmp	si, 2
		jnz	short loc_CE9F
		mov	byte_1E519, 32h	; '2'
		cmp	word_205DA, 0
		jle	short loc_CE96
		mov	ax, word_205DA
		sub	ax, word_205F8
		add	ax, 0FFE0h
		push	ax
		mov	ax, word_205D8
		sub	ax, word_205F6
		push	ax
		call	iatan2
		mov	[bp+var_2], ax
		push	7
		call	_randring1_next8_and
		mov	ah, 0
		add	ax, 0FFFDh
		add	[bp+var_2], ax
		jmp	short loc_CE9B
; ---------------------------------------------------------------------------

loc_CE96:
		mov	[bp+var_2], 0B7h

loc_CE9B:
		push	0
		jmp	short loc_CEDF
; ---------------------------------------------------------------------------

loc_CE9F:
		cmp	si, 3
		jnz	short loc_CEE5
		cmp	word_205DA, 0
		jle	short loc_CED8
		mov	ax, word_205DA
		sub	ax, word_205F8
		add	ax, 0FFE0h
		push	ax
		mov	ax, word_205D8
		sub	ax, word_205F6
		add	ax, 0FFF0h
		push	ax
		call	iatan2
		mov	[bp+var_2], ax
		push	7
		call	_randring1_next8_and
		mov	ah, 0
		add	ax, 0FFFDh
		add	[bp+var_2], ax
		jmp	short loc_CEDD
; ---------------------------------------------------------------------------

loc_CED8:
		mov	[bp+var_2], 0C9h

loc_CEDD:
		push	10h

loc_CEDF:
		push	[bp+var_2]

loc_CEE2:
		call	sub_CA62

loc_CEE5:
		mov	di, 3

loc_CEE8:
		cmp	si, di
		jnz	loc_D034
		mov	[bp+var_3], 1
		xor	si, si
		jmp	loc_D035
; ---------------------------------------------------------------------------

loc_CEF7:
		cmp	shot_level, 2
		jb	loc_D042
		cmp	shot_level, 9
		jnz	short loc_CF0F
		mov	ax, word_205D8
		mov	word_205DC, ax
		jmp	short loc_CF15
; ---------------------------------------------------------------------------

loc_CF0F:
		mov	word_205DC, 0FFFFh

loc_CF15:
		cmp	byte_205DE, 0
		jnz	loc_D042
		mov	al, shot_level
		mov	ah, 0
		sub	ax, 2
		mov	bx, ax
		cmp	bx, 7
		ja	loc_D029
		add	bx, bx
		jmp	cs:off_D047[bx]

loc_CF36:
		mov	ax, si
		imul	ax, 30h
		push	ax
		pushd	0FFFCh
		call	sub_CAD2
		mov	di, 1
		jmp	loc_D029
; ---------------------------------------------------------------------------

loc_CF4B:
		or	si, si
		jnz	short loc_CF56
		pushd	0
		push	0FFF0h
		jmp	short loc_CF7A
; ---------------------------------------------------------------------------

loc_CF56:
		cmp	si, 1
		jnz	short loc_CF65
		push	300000h
		push	0FFF0h
		jmp	short loc_CF7A
; ---------------------------------------------------------------------------

loc_CF65:
		cmp	si, 2
		jnz	short loc_CF72
		push	0FFF8FFFDh
		jmp	short loc_CF78
; ---------------------------------------------------------------------------

loc_CF72:
		push	380003h

loc_CF78:
		push	0FFFAh

loc_CF7A:
		call	sub_CAD2
		mov	di, 3
		jmp	loc_D029
; ---------------------------------------------------------------------------

loc_CF83:
		or	si, si
		jnz	short loc_CF8E
		pushd	0
		push	0FFDEh
		jmp	short loc_CFD0
; ---------------------------------------------------------------------------

loc_CF8E:
		cmp	si, 1
		jnz	short loc_CF9D
		push	300000h
		push	0FFDEh
		jmp	short loc_CFD0
; ---------------------------------------------------------------------------

loc_CF9D:
		cmp	si, 2
		jnz	short loc_CFAC
		push	0FFF8FFFBh
		push	0FFE4h
		jmp	short loc_CFD0
; ---------------------------------------------------------------------------

loc_CFAC:
		cmp	si, 3
		jnz	short loc_CFBB
		push	380005h
		push	0FFE4h
		jmp	short loc_CFD0
; ---------------------------------------------------------------------------

loc_CFBB:
		cmp	si, 4
		jnz	short loc_CFC8
		push	0FFF0FFF6h
		jmp	short loc_CFCE
; ---------------------------------------------------------------------------

loc_CFC8:
		push	40000Ah

loc_CFCE:
		push	0FFE8h

loc_CFD0:
		call	sub_CAD2
		mov	di, 5

loc_CFD6:
		or	si, si
		jnz	short loc_CFE1
		pushd	0
		push	0FFCAh
		jmp	short loc_D023
; ---------------------------------------------------------------------------

loc_CFE1:
		cmp	si, 1
		jnz	short loc_CFF0
		push	300000h
		push	0FFCAh
		jmp	short loc_D023
; ---------------------------------------------------------------------------

loc_CFF0:
		cmp	si, 2
		jnz	short loc_CFFF
		push	0FFF8FFF0h
		push	0FFCEh
		jmp	short loc_D023
; ---------------------------------------------------------------------------

loc_CFFF:
		cmp	si, 3
		jnz	short loc_D00E
		push	380010h
		push	0FFCEh
		jmp	short loc_D023
; ---------------------------------------------------------------------------

loc_D00E:
		cmp	si, 4
		jnz	short loc_D01B
		push	0FFF0FFE0h
		jmp	short loc_D021
; ---------------------------------------------------------------------------

loc_D01B:
		push	400020h

loc_D021:
		push	0FFD8h

loc_D023:
		call	sub_CAD2
		mov	di, 5

loc_D029:
		cmp	si, di
		jnz	short loc_D034
		mov	byte_205DE, 1
		jmp	short loc_D042
; ---------------------------------------------------------------------------

loc_D034:
		inc	si

loc_D035:
		inc	word_205E2

loc_D039:
		cmp	word_205E2, 26h	; '&'
		jl	loc_CD54

loc_D042:
		pop	di
		pop	si
		leave
		retn
shot_b	endp

; ---------------------------------------------------------------------------
		db 0
off_D047	dw offset loc_CF36
		dw offset loc_CF36
		dw offset loc_CF36
		dw offset loc_CF4B
		dw offset loc_CF4B
		dw offset loc_CF4B
		dw offset loc_CF83
		dw offset loc_CFD6
off_D057	dw offset loc_CD81
		dw offset loc_CD8C
		dw offset loc_CD97
		dw offset loc_CDA7
		dw offset loc_CDC2
		dw offset loc_CDDB
		dw offset loc_CDF9
		dw offset loc_CDF4
		dw offset loc_CE23
		dw offset loc_CE42

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

; Attributes: bp-based frame

shot_c	proc near

var_3		= byte ptr -3
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		xor	si, si
		mov	[bp+var_2], 0
		xor	di, di
		mov	[bp+var_3], 0
		inc	byte_20350
		mov	ax, word_205F8
		add	ax, 20h	; ' '
		shl	ax, 4
		mov	word_205E4, ax
		cmp	shot_level, 2
		jb	short loc_D09C
		mov	byte_1E519, 7Ch	; '|'

loc_D09C:
		mov	word_205E2, 0
		jmp	loc_D345
; ---------------------------------------------------------------------------

loc_D0A5:
		mov	bx, word_205E2
		shl	bx, 4
		cmp	byte ptr [bx+2908h], 0
		jnz	loc_D341
		cmp	[bp+var_3], 0
		jnz	loc_D17D
		mov	al, shot_level
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 9
		ja	loc_D16E
		add	bx, bx
		jmp	cs:off_D362[bx]

loc_D0D2:
		push	8
		push	0C0h
		call	sub_CA62
		jmp	loc_D16E
; ---------------------------------------------------------------------------

loc_D0DD:
		push	8
		push	3
		call	_randring1_next8_and
		add	al, 0BEh
		jmp	short loc_D0F1
; ---------------------------------------------------------------------------

loc_D0E8:
		push	8
		push	7
		call	_randring1_next8_and
		add	al, 0BCh

loc_D0F1:
		push	ax
		call	sub_CA62
		jmp	short loc_D16E
; ---------------------------------------------------------------------------

loc_D0F7:
		or	si, si
		jnz	short loc_D105
		push	8
		push	0C0h
		call	sub_CA62
		jmp	short loc_D158
; ---------------------------------------------------------------------------

loc_D105:
		cmp	si, 1
		jnz	short loc_D116
		mov	[bp+var_2], 0FFF0h
		mov	byte_1E519, 31h	; '1'
		jmp	short loc_D133
; ---------------------------------------------------------------------------

loc_D116:
		cmp	si, 2
		jnz	short loc_D11D
		jmp	short loc_D12E
; ---------------------------------------------------------------------------

loc_D11D:
		cmp	si, 3
		jnz	short loc_D129
		mov	[bp+var_2], 0FFF0h
		jmp	short loc_D133
; ---------------------------------------------------------------------------

loc_D129:
		cmp	si, 4
		jnz	short loc_D133

loc_D12E:
		mov	[bp+var_2], 20h	; ' '

loc_D133:
		push	[bp+var_2]
		push	0C0h
		call	sub_CA62
		cmp	si, 3
		jl	short loc_D158
		mov	bx, word_205E2
		shl	bx, 4
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		sub	word ptr [bx+290Ch], 100h

loc_D158:
		mov	al, byte_20350
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_D16C
		mov	di, 4
		jmp	short loc_D16E
; ---------------------------------------------------------------------------

loc_D16C:
		xor	di, di

loc_D16E:
		cmp	si, di
		jnz	loc_D340
		mov	[bp+var_3], 1
		xor	si, si
		jmp	loc_D341
; ---------------------------------------------------------------------------

loc_D17D:
		cmp	shot_level, 2
		jb	loc_D34E
		cmp	shot_level, 3
		jnb	short loc_D197
		cmp	byte_205DE, 0
		jz	short loc_D1E3
		jmp	loc_D34E
; ---------------------------------------------------------------------------

loc_D197:
		cmp	shot_level, 4
		jnb	short loc_D1B0
		mov	al, byte_20350
		mov	ah, 0
		mov	bx, 5
		cwd
		idiv	bx
		or	dx, dx
		jz	short loc_D1E3
		jmp	loc_D34E
; ---------------------------------------------------------------------------

loc_D1B0:
		cmp	shot_level, 6
		jnb	short loc_D1C1
		test	byte_20350, 3
		jz	short loc_D1E3
		jmp	loc_D34E
; ---------------------------------------------------------------------------

loc_D1C1:
		cmp	shot_level, 9
		jnb	short loc_D1DA
		mov	al, byte_20350
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jz	short loc_D1E3
		jmp	loc_D34E
; ---------------------------------------------------------------------------

loc_D1DA:
		test	byte_20350, 1
		jnz	loc_D34E

loc_D1E3:
		mov	al, shot_level
		mov	ah, 0
		sub	ax, 2
		mov	bx, ax
		cmp	bx, 7
		ja	loc_D335
		add	bx, bx
		jmp	cs:off_D352[bx]

loc_D1FB:
		mov	ax, si
		imul	ax, 30h
		push	ax
		pushd	0FFFCh
		jmp	short loc_D215
; ---------------------------------------------------------------------------

loc_D209:
		mov	ax, si
		imul	ax, 30h
		push	ax
		pushd	0FFF0h

loc_D215:
		call	sub_CAD2
		mov	di, 1
		jmp	loc_D335
; ---------------------------------------------------------------------------

loc_D21E:
		or	si, si
		jnz	short loc_D227
		pushd	4
		jmp	short loc_D241
; ---------------------------------------------------------------------------

loc_D227:
		cmp	si, 1
		jnz	short loc_D234
		push	30FFFCh
		jmp	short loc_D241
; ---------------------------------------------------------------------------

loc_D234:
		cmp	si, 2
		jnz	short loc_D23D
		push	0FFF8h
		jmp	short loc_D23F
; ---------------------------------------------------------------------------

loc_D23D:
		push	38h ; '8'

loc_D23F:
		push	0

loc_D241:
		push	0FFF0h
		call	sub_CAD2
		jmp	loc_D332
; ---------------------------------------------------------------------------

loc_D249:
		or	si, si
		jnz	short loc_D252
		pushd	6
		jmp	short loc_D26C
; ---------------------------------------------------------------------------

loc_D252:
		cmp	si, 1
		jnz	short loc_D25F
		push	30FFFAh
		jmp	short loc_D26C
; ---------------------------------------------------------------------------

loc_D25F:
		cmp	si, 2
		jnz	short loc_D268
		push	0FFF8h
		jmp	short loc_D26A
; ---------------------------------------------------------------------------

loc_D268:
		push	38h ; '8'

loc_D26A:
		push	0

loc_D26C:
		push	0FFE8h
		call	sub_CAD2
		jmp	loc_D332
; ---------------------------------------------------------------------------

loc_D274:
		or	si, si
		jnz	short loc_D27D
		pushd	6
		jmp	short loc_D297
; ---------------------------------------------------------------------------

loc_D27D:
		cmp	si, 1
		jnz	short loc_D28A
		push	30FFFAh
		jmp	short loc_D297
; ---------------------------------------------------------------------------

loc_D28A:
		cmp	si, 2
		jnz	short loc_D293
		push	0FFF8h
		jmp	short loc_D295
; ---------------------------------------------------------------------------

loc_D293:
		push	38h ; '8'

loc_D295:
		push	0

loc_D297:
		push	0FFE6h
		call	sub_CAD2
		jmp	loc_D332
; ---------------------------------------------------------------------------

loc_D29F:
		or	si, si
		jnz	short loc_D2A8
		pushd	0Ah
		jmp	short loc_D2C8
; ---------------------------------------------------------------------------

loc_D2A8:
		cmp	si, 1
		jnz	short loc_D2B5
		push	30FFF6h
		jmp	short loc_D2C8
; ---------------------------------------------------------------------------

loc_D2B5:
		cmp	si, 2
		jnz	short loc_D2C2
		push	0FFF8FFFCh
		jmp	short loc_D2C8
; ---------------------------------------------------------------------------

loc_D2C2:
		push	380004h

loc_D2C8:
		push	0FFD0h
		call	sub_CAD2
		jmp	short loc_D332
; ---------------------------------------------------------------------------

loc_D2CF:
		or	si, si
		jnz	short loc_D2DE
		pushd	0FFF6h
		push	0FF60h
		jmp	short loc_D323
; ---------------------------------------------------------------------------

loc_D2DE:
		cmp	si, 1
		jnz	short loc_D2EE
		push	30000Ah
		push	0FF60h
		jmp	short loc_D323
; ---------------------------------------------------------------------------

loc_D2EE:
		cmp	si, 2
		jnz	short loc_D2FE
		push	0FFF80014h
		push	0FF74h
		jmp	short loc_D323
; ---------------------------------------------------------------------------

loc_D2FE:
		cmp	si, 3
		jnz	short loc_D30E
		push	38FFECh
		push	0FF74h
		jmp	short loc_D323
; ---------------------------------------------------------------------------

loc_D30E:
		cmp	si, 4
		jnz	short loc_D31B
		push	0FFF0FFF9h
		jmp	short loc_D321
; ---------------------------------------------------------------------------

loc_D31B:
		push	400007h

loc_D321:
		push	0FF88h

loc_D323:
		call	sub_CAD2
		test	byte_20350, 3
		jnz	short loc_D332
		mov	di, 5
		jmp	short loc_D335
; ---------------------------------------------------------------------------

loc_D332:
		mov	di, 3

loc_D335:
		cmp	si, di
		jnz	short loc_D340
		mov	byte_205DE, 1
		jmp	short loc_D34E
; ---------------------------------------------------------------------------

loc_D340:
		inc	si

loc_D341:
		inc	word_205E2

loc_D345:
		cmp	word_205E2, 26h	; '&'
		jl	loc_D0A5

loc_D34E:
		pop	di
		pop	si
		leave
		retn
shot_c	endp

; ---------------------------------------------------------------------------
off_D352	dw offset loc_D1FB
		dw offset loc_D1FB
		dw offset loc_D209
		dw offset loc_D21E
		dw offset loc_D249
		dw offset loc_D274
		dw offset loc_D29F
		dw offset loc_D2CF
off_D362	dw offset loc_D0D2
		dw offset loc_D0D2
		dw offset loc_D0D2
		dw offset loc_D0DD
		dw offset loc_D0DD
		dw offset loc_D0DD
		dw offset loc_D0E8
		dw offset loc_D0E8
		dw offset loc_D0E8
		dw offset loc_D0F7

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

; Attributes: bp-based frame

sub_D376	proc far
		push	bp
		mov	bp, sp
		xor	ax, ax
		jmp	short loc_D388
; ---------------------------------------------------------------------------

loc_D37D:
		mov	bx, ax
		shl	bx, 4
		mov	byte ptr [bx+2908h], 0
		inc	ax

loc_D388:
		cmp	ax, 26h	; '&'
		jl	short loc_D37D
		pop	bp
		retf
sub_D376	endp


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

; Attributes: bp-based frame

sub_D38F	proc near

var_3		= byte ptr -3
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	[bp+var_3], 0
		mov	si, 2908h
		xor	di, di
		jmp	loc_D472
; ---------------------------------------------------------------------------

loc_D3A3:
		cmp	byte ptr [si], 0
		jz	loc_D46E
		cmp	byte_2066C, 0
		jz	short loc_D3BF
		mov	al, _page_back
		mov	ah, 0
		mov	dx, di
		and	dx, 1
		cmp	ax, dx
		jnz	short loc_D419

loc_D3BF:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		sar	ax, 4
		mov	[bp+var_2], ax
		cmp	byte ptr [si+0Eh], 7Ch ; '|'
		jb	short loc_D3DE
		cmp	byte ptr [si+1], 0
		jnz	short loc_D3FA

loc_D3DE:
		push	[bp+var_2]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+4]
		sar	ax, 4
		push	ax
		push	100010h
		jmp	short loc_D414
; ---------------------------------------------------------------------------

loc_D3FA:
		push	[bp+var_2]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+4]
		sar	ax, 4
		push	ax
		push	200020h

loc_D414:
		call	sub_45FC

loc_D419:
		cmp	byte ptr [si], 2
		jnz	short loc_D423
		mov	byte ptr [si], 0
		jmp	short loc_D46E
; ---------------------------------------------------------------------------

loc_D423:
		mov	bx, di
		shl	bx, 4
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+290Ah]
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+si+2], ax
		mov	bx, di
		shl	bx, 4
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+290Ch]
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+si+4], ax
		cmp	byte ptr [si+0Fh], 0
		jz	short loc_D46E
		inc	[bp+var_3]

loc_D46E:
		inc	di
		add	si, 10h

loc_D472:
		cmp	di, 26h	; '&'
		jl	loc_D3A3
		cmp	[bp+var_3], 0
		jnz	short loc_D484
		mov	byte_205DE, 0

loc_D484:
		pop	di
		pop	si
		leave
		retn
sub_D38F	endp


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

; Attributes: bp-based frame

sub_D488	proc near

var_E		= word ptr -0Eh
var_C		= word ptr -0Ch
var_9		= byte ptr -9
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 0Eh
		push	si
		push	di
		mov	al, byte_2066C
		mov	cl, _page_back
		shl	al, cl
		mov	[bp+var_9], al
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	[bp+var_C], ax
		mov	si, 2908h
		mov	[bp+var_2], 0
		jmp	loc_D61D
; ---------------------------------------------------------------------------

loc_D4B2:
		cmp	byte ptr [si], 1
		jnz	loc_D613
		mov	ax, si
		add	ax, [bp+var_C]
		add	ax, 2
		mov	[bp+var_6], ax
		mov	ax, si
		add	ax, [bp+var_C]
		add	ax, 4
		mov	[bp+var_8], ax
		mov	ax, [si+0Ah]
		mov	bx, [bp+var_6]
		add	[bx], ax
		mov	ax, [si+0Ch]
		mov	bx, [bp+var_8]
		add	[bx], ax
		mov	ax, [bx]
		sar	ax, 4
		mov	di, ax
		mov	bx, [bp+var_6]
		mov	ax, [bx]
		sar	ax, 4
		mov	[bp+var_4], ax
		cmp	word ptr [bx], 100h
		jle	short loc_D508
		cmp	word ptr [bx], 1A20h
		jge	short loc_D508
		cmp	di, 180h
		jg	short loc_D508
		cmp	di, 8
		jge	short loc_D50E

loc_D508:
		mov	byte ptr [si], 2
		jmp	loc_D613
; ---------------------------------------------------------------------------

loc_D50E:
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_D51C
		sub	di, RES_Y

loc_D51C:
		cmp	byte ptr [si+0Fh], 0
		jnz	loc_D5B0
		mov	bx, [bp+var_2]
		inc	byte ptr [bx+28E1h]
		cmp	byte ptr [si+1], 0
		jnz	short loc_D55D
		cmp	[bp+var_9], 2
		jz	loc_D613
		mov	al, [si+0Eh]
		mov	ah, 0
		mov	[bp+var_E], ax
		cmp	[bp+var_E], 32h	; '2'
		jl	short loc_D553
		mov	al, [bx+28E1h]
		mov	ah, 0
		and	ax, 1
		add	[bp+var_E], ax

loc_D553:
		push	[bp+var_4]
		push	di
		push	[bp+var_E]
		jmp	loc_D60E
; ---------------------------------------------------------------------------

loc_D55D:
		cmp	byte ptr [si+1], 5
		jbe	short loc_D569
		mov	byte ptr [si], 2
		jmp	loc_D613
; ---------------------------------------------------------------------------

loc_D569:
		cmp	[bp+var_9], 2
		jz	short loc_D59F
		cmp	byte ptr [si+0Eh], 7Ch ; '|'
		jnb	short loc_D589
		push	[bp+var_4]
		push	di
		mov	al, [si+1]
		mov	ah, 0
		add	ax, 4Ah	; 'J'
		push	ax
		call	super_roll_put_tiny
		jmp	short loc_D59F
; ---------------------------------------------------------------------------

loc_D589:
		push	[bp+var_4]
		push	di
		mov	al, [si+1]
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+0A94h]
		call	super_roll_put

loc_D59F:
		test	byte ptr dword_20612, 3
		jnz	short loc_D613
		mov	al, [si+1]
		inc	al
		mov	[si+1],	al
		jmp	short loc_D613
; ---------------------------------------------------------------------------

loc_D5B0:
		cmp	byte ptr [si+1], 1
		jbe	short loc_D5ED
		mov	al, byte_1E518
		cbw
		movsx	ebx, ax
		mov	eax, dword_20612
		xor	edx, edx
		div	ebx
		cmp	edx, 0
		jnz	short loc_D5E1
		mov	al, [si+1]
		inc	al
		mov	[si+1],	al
		cmp	byte ptr [si+1], 4
		jbe	short loc_D5E1
		mov	byte ptr [si], 2
		jmp	short loc_D613
; ---------------------------------------------------------------------------

loc_D5E1:
		test	byte ptr dword_20612, 1
		jz	short loc_D5F7
		sar	word ptr [si+0Ch], 1
		jmp	short loc_D5F7
; ---------------------------------------------------------------------------

loc_D5ED:
		cmp	byte ptr [si+0Eh], 3Bh ; ';'
		jz	short loc_D5F7
		sub	word ptr [si+0Ch], 4

loc_D5F7:
		cmp	[bp+var_9], 2
		jz	short loc_D613
		push	[bp+var_4]
		push	di
		mov	al, [si+0Eh]
		mov	ah, 0
		mov	dl, [si+1]
		mov	dh, 0
		add	ax, dx
		push	ax

loc_D60E:
		call	super_roll_put_tiny

loc_D613:
		inc	[bp+var_2]
		xor	[bp+var_9], 3
		add	si, 10h

loc_D61D:
		cmp	[bp+var_2], 26h	; '&'
		jl	loc_D4B2
		pop	di
		pop	si
		leave
		retn
sub_D488	endp


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

; Attributes: bp-based frame

sub_D629	proc near
		push	bp
		mov	bp, sp
		push	si
		push	7
		call	_randring1_next8_and
		mov	byte_218A0, al
		xor	si, si
		jmp	short loc_D644
; ---------------------------------------------------------------------------

loc_D639:
		mov	bx, si
		shl	bx, 4
		mov	byte ptr [bx+3CE6h], 0
		inc	si

loc_D644:
		cmp	si, 14h
		jl	short loc_D639
		mov	word_2189E, 0
		call	sub_C764
		mov	byte_218A1, 0
		pop	si
		pop	bp
		retn
sub_D629	endp


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

; Attributes: bp-based frame

sub_D65A	proc far

arg_0		= word ptr  6
arg_2		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, [bp+arg_2]
		mov	di, [bp+arg_0]
		cmp	word_1E51E, 0
		jz	short loc_D67B
		dec	word_1E51E
		push	si
		push	di
		push	3
		nopcall	sub_D6CA
		jmp	short loc_D6C4
; ---------------------------------------------------------------------------

loc_D67B:
		mov	al, byte_218A2
		inc	byte_218A2
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_D6C4
		call	_randring1_next16
		and	ax, 1FFh
		cmp	ax, 12h
		jnz	short loc_D69F
		push	si
		push	di
		push	2
		jmp	short loc_D6AF
; ---------------------------------------------------------------------------

loc_D69F:
		push	si
		push	di
		mov	al, byte_218A0
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+0AB0h]
		mov	ah, 0
		push	ax

loc_D6AF:
		nopcall	sub_D6CA
		inc	byte_218A0
		cmp	byte_218A0, 0Ah
		jb	short loc_D6C4
		mov	byte_218A0, 0

loc_D6C4:
		pop	di
		pop	si
		pop	bp
		retf	4
sub_D65A	endp


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

; Attributes: bp-based frame

sub_D6CA	proc far

arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_4]
		mov	cx, [bp+arg_2]
		cmp	word_1E51E, 0
		jz	short loc_D6EB
		cmp	[bp+arg_0], 2
		jge	short loc_D6EB
		dec	word_1E51E
		mov	[bp+arg_0], 3

loc_D6EB:
		mov	si, 3CE6h
		shl	cx, 4
		mov	al, lives
		cbw
		cmp	ax, 5
		jnz	short loc_D705
		cmp	[bp+arg_0], 4
		jnz	short loc_D705
		mov	[bp+arg_0], 2

loc_D705:
		xor	dx, dx
		jmp	short loc_D738
; ---------------------------------------------------------------------------

loc_D709:
		cmp	byte ptr [si], 0
		jnz	short loc_D734
		mov	byte ptr [si], 1
		mov	al, byte ptr [bp+arg_0]
		mov	[si+1],	al
		mov	[si+2],	di
		mov	[si+4],	cx
		mov	[si+6],	di
		mov	[si+8],	cx
		mov	word ptr [si+0Ah], 0FFD0h
		mov	word ptr [si+0Ch], 0
		mov	word ptr [si+0Eh], 0
		jmp	short loc_D73D
; ---------------------------------------------------------------------------

loc_D734:
		inc	dx
		add	si, 10h

loc_D738:
		cmp	dx, 14h
		jl	short loc_D709

loc_D73D:
		pop	di
		pop	si
		pop	bp
		retf	6
sub_D6CA	endp


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

; Attributes: bp-based frame

sub_D743	proc near

var_19		= byte ptr -19h
var_18		= word ptr -18h
var_16		= word ptr -16h
var_14		= byte ptr -14h
var_12		= word ptr -12h
var_10		= word ptr -10h
var_E		= byte ptr -0Eh
var_C		= word ptr -0Ch
var_A		= word ptr -0Ah
var_8		= byte ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		sub	sp, 1Ah
		push	si
		push	di
		xor	di, di
		mov	[bp+var_4], 1
		mov	ax, word_1E588
		mov	[bp+var_C], ax
		mov	ax, word_1E58A
		mov	[bp+var_A], ax
		mov	al, byte_1E58C
		mov	[bp+var_8], al
		mov	ax, word_1E58D
		mov	[bp+var_12], ax
		mov	ax, word_1E58F
		mov	[bp+var_10], ax
		mov	al, byte_1E591
		mov	[bp+var_E], al
		mov	ax, word_1E592
		mov	[bp+var_18], ax
		mov	ax, word_1E594
		mov	[bp+var_16], ax
		mov	al, byte_1E596
		mov	[bp+var_14], al
		cmp	word_205F6, 80h
		jg	short loc_D794
		mov	al, 0FFh
		jmp	short loc_D7A2
; ---------------------------------------------------------------------------

loc_D794:
		cmp	word_205F6, 100h
		jg	short loc_D7A0
		mov	al, 0
		jmp	short loc_D7A2
; ---------------------------------------------------------------------------

loc_D7A0:
		mov	al, 1

loc_D7A2:
		mov	[bp+var_19], al
		mov	si, 3CE6h
		shl	[bp+arg_0], 4
		mov	[bp+var_2], 0
		jmp	loc_D866
; ---------------------------------------------------------------------------

loc_D7B4:
		cmp	byte ptr [si], 0
		jnz	loc_D860
		mov	byte ptr [si], 1
		mov	ax, [bp+arg_2]
		mov	[si+2],	ax
		mov	ax, [bp+arg_0]
		mov	[si+4],	ax
		mov	ax, [bp+arg_2]
		mov	[si+6],	ax
		mov	ax, [bp+arg_0]
		mov	[si+8],	ax
		mov	word ptr [si+0Eh], 0
		cmp	byte_218A1, 0
		jnz	short loc_D82B
		cmp	[bp+var_4], 0
		jz	short loc_D810
		call	_randring1_next8
		mov	ah, 0
		mov	bx, 5
		sub	bx, di
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_D7FE
		mov	ax, 3
		jmp	short loc_D80B
; ---------------------------------------------------------------------------

loc_D7FE:
		call	_randring1_next8
		mov	ah, 0
		mov	bx, 2
		cwd
		idiv	bx
		mov	ax, dx

loc_D80B:
		mov	[bp+var_6], ax
		jmp	short loc_D81E
; ---------------------------------------------------------------------------

loc_D810:
		call	_randring1_next8
		mov	ah, 0
		mov	bx, 2
		cwd
		idiv	bx
		mov	[bp+var_6], dx

loc_D81E:
		cmp	[bp+var_6], 3
		jnz	short loc_D830
		mov	[bp+var_4], 0
		jmp	short loc_D830
; ---------------------------------------------------------------------------

loc_D82B:
		mov	[bp+var_6], 3

loc_D830:
		mov	al, byte ptr [bp+var_6]
		mov	[si+1],	al
		cmp	[bp+var_19], 0
		jz	short loc_D84C
		mov	al, byte ptr [bp+di+var_C]
		cbw
		mov	[si+0Ah], ax
		mov	al, [bp+var_19]
		cbw
		imul	ax, -2
		jmp	short loc_D857
; ---------------------------------------------------------------------------

loc_D84C:
		mov	al, byte ptr [bp+di+var_18]
		cbw
		mov	[si+0Ah], ax
		mov	al, byte ptr [bp+di+var_12]
		cbw

loc_D857:
		mov	[si+0Ch], ax
		inc	di
		cmp	di, 5
		jge	short loc_D86E

loc_D860:
		inc	[bp+var_2]
		add	si, 10h

loc_D866:
		cmp	[bp+var_2], 14h
		jl	loc_D7B4

loc_D86E:
		pop	di
		pop	si
		leave
		retn	4
sub_D743	endp


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

; Attributes: bp-based frame

sub_D874	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		xor	si, si
		jmp	short loc_D8FA
; ---------------------------------------------------------------------------

loc_D880:
		mov	bx, si
		shl	bx, 4
		cmp	byte ptr [bx+3CE6h], 0
		jz	short loc_D8F9
		mov	ax, si
		shl	ax, 4
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		add	ax, dx
		add	ax, 3CE8h
		mov	di, ax
		mov	ax, [di+2]
		sar	ax, 4
		mov	[bp+var_2], ax
		push	word ptr [di]
		push	ax
		push	100010h
		call	sub_45FC
		mov	bx, si
		shl	bx, 4
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+3CE8h]
		mov	[di], ax
		mov	bx, si
		shl	bx, 4
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+3CEAh]
		mov	[di+2],	ax
		mov	bx, si
		shl	bx, 4
		cmp	byte ptr [bx+3CE6h], 2
		jnz	short loc_D8F9
		mov	bx, si
		shl	bx, 4
		mov	byte ptr [bx+3CE6h], 0

loc_D8F9:
		inc	si

loc_D8FA:
		cmp	si, 14h
		jl	short loc_D880
		call	sub_C81D
		pop	di
		pop	si
		leave
		retn
sub_D874	endp


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

; Attributes: bp-based frame

sub_D906	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	ax, word_2189C
		mov	[bp+var_2], ax
		cmp	ax, word_205F8
		jl	loc_DADE
		mov	ax, word_205F8
		add	ax, 18h
		cmp	ax, [bp+var_2]
		jl	loc_DADE
		mov	ax, word_2189A
		add	ax, 0FFF4h
		mov	si, ax
		mov	bx, [bp+arg_0]
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 4
		ja	loc_DAB6
		add	bx, bx
		jmp	cs:off_DAE6[bx]

loc_D949:
		cmp	power, 80
		jnb	short loc_D964
		inc	power
		call	sub_DEAD
		mov	power_overflow_level, 0
		inc	dword_218A4
		jmp	short loc_D984
; ---------------------------------------------------------------------------

loc_D964:
		cmp	power_overflow_level, 42
		jge	short loc_D96F
		inc	power_overflow_level

loc_D96F:
		mov	bx, power_overflow_level
		add	bx, bx
		movsx	eax, POWER_OVERFLOW_BONUS[bx]
		add	dword_218A4, eax
		inc	byte_218A8

loc_D984:
		inc	byte_218A8
		push	si
		push	word_2189C
		mov	bx, power_overflow_level
		add	bx, bx
		push	POWER_OVERFLOW_BONUS[bx]
		call	sub_C7CA
		jmp	loc_DAB6
; ---------------------------------------------------------------------------

loc_D99D:
		inc	word_2189E
		cmp	[bp+var_2], 40h
		jg	short loc_D9B4
		mov	al, byte_218A8
		add	al, 8
		mov	byte_218A8, al
		mov	di, 1400h
		jmp	short loc_D9E5
; ---------------------------------------------------------------------------

loc_D9B4:
		mov	ax, [bp+var_2]
		imul	ax, 7
		mov	dx, 0AF0h
		sub	dx, ax
		mov	di, dx
		cmp	di, 7D0h
		jb	short loc_D9D1
		mov	al, byte_218A8
		add	al, 4
		mov	byte_218A8, al
		jmp	short loc_D9E5
; ---------------------------------------------------------------------------

loc_D9D1:
		cmp	di, 3E8h
		jb	short loc_D9E1
		mov	al, byte_218A8
		add	al, 2
		mov	byte_218A8, al
		jmp	short loc_D9E5
; ---------------------------------------------------------------------------

loc_D9E1:
		inc	byte_218A8

loc_D9E5:
		push	si
		push	word_2189C
		push	di
		call	sub_C7CA
		movzx	eax, di
		add	dword_218A4, eax
		jmp	loc_DAB6
; ---------------------------------------------------------------------------

loc_D9FA:
		mov	al, bombs
		cbw
		cmp	ax, 5
		jge	short loc_DA21
		inc	bombs
		add	dword_218A4, 3E8h
		push	si
		push	word_2189C
		push	3E8h
		call	sub_C7CA
		call	sub_DFC4
		jmp	loc_DAB6
; ---------------------------------------------------------------------------

loc_DA21:
		add	dword_218A4, 1999h
		push	si
		push	word_2189C
		push	1999h
		call	sub_C7CA
		mov	al, byte_218A8
		add	al, 10h
		mov	byte_218A8, al
		jmp	short loc_DAB6
; ---------------------------------------------------------------------------

loc_DA3F:
		cmp	power, 70
		jnb	short loc_DA5B
		mov	al, power
		add	al, 10
		mov	power, al
		inc	dword_218A4
		mov	power_overflow_level, 0
		jmp	short loc_DA85
; ---------------------------------------------------------------------------

loc_DA5B:
		cmp	power_overflow_level, 38
		jge	short loc_DA69
		add	power_overflow_level, 5
		jmp	short loc_DA6F
; ---------------------------------------------------------------------------

loc_DA69:
		mov	power_overflow_level, 42

loc_DA6F:
		mov	power, 80
		mov	bx, power_overflow_level
		add	bx, bx
		movsx	eax, POWER_OVERFLOW_BONUS[bx]
		add	dword_218A4, eax

loc_DA85:
		push	si
		push	word_2189C
		mov	bx, power_overflow_level
		add	bx, bx
		push	POWER_OVERFLOW_BONUS[bx]
		call	sub_C7CA
		call	sub_DEAD
		jmp	short loc_DAB6
; ---------------------------------------------------------------------------

loc_DA9C:
		mov	al, lives
		cbw
		cmp	ax, 5
		jge	short loc_DAB6
		inc	lives
		call	sub_DF76
		call	_snd_se_play c, 8

loc_DAB6:
		mov	bx, [bp+arg_0]
		mov	byte ptr [bx], 2
		call	_snd_se_play c, 13
		cmp	byte_218A8, 20h	; ' '
		jb	short loc_DAD9
		inc	word_1E586
		mov	al, byte_218A8
		add	al, 0E0h
		mov	byte_218A8, al

loc_DAD9:
		mov	ax, 1
		jmp	short loc_DAE0
; ---------------------------------------------------------------------------

loc_DADE:
		xor	ax, ax

loc_DAE0:
		pop	di
		pop	si
		leave
		retn	2
sub_D906	endp

; ---------------------------------------------------------------------------
off_DAE6	dw offset loc_D949
		dw offset loc_D99D
		dw offset loc_D9FA
		dw offset loc_DA3F
		dw offset loc_DA9C

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

; Attributes: bp-based frame

sub_DAF0	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	si, 3CE6h
		inc	word_218AA
		mov	dword_218A4, 0
		xor	di, di
		jmp	loc_DBFE
; ---------------------------------------------------------------------------

loc_DB0D:
		cmp	byte ptr [si], 1
		jnz	loc_DBFA
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, si
		add	ax, 2
		mov	[bp+var_2], ax
		mov	word_21896, ax
		add	ax, 2
		mov	word_21898, ax
		cmp	word ptr [si+0Ah], 0
		jg	short loc_DB3C
		mov	ax, [si+0Ch]
		mov	bx, word_21896
		add	[bx], ax

loc_DB3C:
		mov	ax, [si+0Ah]
		mov	bx, word_21898
		add	[bx], ax
		mov	bx, word_21896
		mov	ax, [bx]
		mov	word_2189A, ax
		mov	bx, word_21898
		mov	ax, [bx]
		sar	ax, 4
		mov	word_2189C, ax
		cmp	word_2189C, 0
		jge	short loc_DB6D
		mov	word_2189C, 0
		mov	word ptr [bx], 0
		jmp	short loc_DB89
; ---------------------------------------------------------------------------

loc_DB6D:
		cmp	word_2189C, 180h
		jl	short loc_DB89
		mov	byte ptr [si], 2
		inc	byte_1E597
		test	byte_1E597, 0Fh
		jnz	short loc_DBFA
		dec	word_1E586
		jmp	short loc_DBFA
; ---------------------------------------------------------------------------

loc_DB89:
		cmp	word_2189A, 10h
		jle	short loc_DB98
		cmp	word_2189A, 1A0h
		jl	short loc_DB9D

loc_DB98:
		mov	byte ptr [si], 2
		jmp	short loc_DBFA
; ---------------------------------------------------------------------------

loc_DB9D:
		inc	word ptr [si+0Eh]
		inc	word ptr [si+0Ah]
		cmp	_player_is_hit, 0
		jnz	short loc_DBCA
		mov	ax, word_205F6
		add	ax, 0FFF8h
		cmp	ax, word_2189A
		jg	short loc_DBCA
		mov	ax, word_205F6
		add	ax, 18h
		cmp	ax, word_2189A
		jl	short loc_DBCA
		push	si
		call	sub_D906
		or	ax, ax
		jnz	short loc_DBFA

loc_DBCA:
		mov	ax, _scroll_line
		add	word_2189C, ax
		cmp	word_2189C, RES_Y
		jl	short loc_DBDF
		sub	word_2189C, RES_Y

loc_DBDF:
		push	word_2189A
		push	word_2189C
		mov	al, [si+1]
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+0ABAh]
		mov	ah, 0
		push	ax
		call	super_roll_put_tiny

loc_DBFA:
		inc	di
		add	si, 10h

loc_DBFE:
		cmp	di, 14h
		jl	loc_DB0D
		cmp	dword_218A4, 0
		jz	short loc_DC31
		mov	al, _rank
		cbw
		cmp	ax, RANK_HARD
		jl	short loc_DC28
		mov	cl, _rank
		add	cl, 0FFh
		mov	eax, dword_218A4
		shl	eax, cl
		mov	dword_218A4, eax

loc_DC28:
		mov	eax, dword_218A4
		add	dword_218AC, eax

loc_DC31:
		call	sub_C914
		pop	di
		pop	si
		leave
		retn
sub_DAF0	endp


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

; Attributes: bp-based frame

sub_DC38	proc near
		push	bp
		mov	bp, sp
		call	gaiji_backup
		push	ds
		push	offset aMikoft_bft ; "MIKOFT.bft"
		call	gaiji_entry_bfnt
		pop	bp
		retn
sub_DC38	endp


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

; Attributes: bp-based frame

sub_DC4B	proc near
		push	bp
		mov	bp, sp
		call	gaiji_restore
		pop	bp
		retn
sub_DC4B	endp


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

; Attributes: bp-based frame

sub_DC55	proc near

var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= dword	ptr  4
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	si, offset _POWERS_OF_10_LONG
		mov	di, 38h	; '8'
		jmp	short loc_DC9A
; ---------------------------------------------------------------------------

loc_DC65:
		mov	eax, [bp+arg_0]
		cdq
		idiv	dword ptr [si]
		mov	[bp+var_4], ax
		movsx	eax, [bp+var_4]
		imul	eax, [si]
		sub	[bp+arg_0], eax
		add	si, 4
		mov	ax, [bp+var_4]
		add	ax, GB_DIGITS
		mov	[bp+var_2], ax
		call	gaiji_putca pascal, di, [bp+arg_4], ax, TX_WHITE
		add	di, 2

loc_DC9A:
		cmp	di, 46h	; 'F'
		jl	short loc_DC65
		pop	di
		pop	si
		leave
		retn	6
sub_DC55	endp


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

; Attributes: bp-based frame

sub_DCA5	proc near

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

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	si, [bp+arg_0]
		cmp	si, 0Ah
		jl	short loc_DCB7
		mov	si, 9

loc_DCB7:
		lea	ax, [si+0A0h]
		mov	[bp+var_2], ax
		call	gaiji_putca pascal, 70, [bp+arg_2], ax, TX_WHITE
		pop	si
		leave
		retn	4
sub_DCA5	endp


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

; Attributes: bp-based frame

sub_DCD1	proc near
		push	bp
		mov	bp, sp
		mov	word_1E5B6, 0
		jmp	short loc_DCE0
; ---------------------------------------------------------------------------

loc_DCDC:
		inc	word_1E5B6

loc_DCE0:
		mov	bx, word_1E5B6
		shl	bx, 2
		mov	eax, [bx+0B2Eh]
		cmp	eax, dword_1E598
		jle	short loc_DCDC
		mov	dword_218AC, 0
		pop	bp
		retn
sub_DCD1	endp


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

; Attributes: bp-based frame

sub_DCFE	proc far
		push	bp
		mov	bp, sp
		mov	eax, dword_218AC
		add	dword_1E598, eax
		mov	dword_218AC, 0
		mov	word_218B0, 0
		pop	bp
		retf
sub_DCFE	endp


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

; Attributes: bp-based frame

sub_DD1B	proc near
		push	bp
		mov	bp, sp
		mov	dword_1E598, 0
		mov	dword_218AC, 0
		mov	word_218B0, 0
		mov	dword_1E5B8, 9C40h
		pop	bp
		retn
sub_DD1B	endp


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

; Attributes: bp-based frame

sub_DD41	proc near

var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 4
		cmp	dword_218AC, 0
		jz	loc_DE46
		cmp	byte_2066C, 0
		jnz	short loc_DDA1
		mov	eax, dword_218AC
		mov	[bp+var_4], eax
		cmp	[bp+var_4], 20h	; ' '
		jge	short loc_DD6F
		mov	[bp+var_4], 20h	; ' '

loc_DD6F:
		mov	eax, [bp+var_4]
		sar	eax, 5
		mov	[bp+var_4], eax
		movzx	eax, word_218B0
		cmp	eax, [bp+var_4]
		jge	short loc_DDA7
		cmp	[bp+var_4], 457h
		jle	short loc_DD99
		mov	[bp+var_4], 457h

loc_DD99:
		mov	ax, word ptr [bp+var_4]
		mov	word_218B0, ax
		jmp	short loc_DDA7
; ---------------------------------------------------------------------------

loc_DDA1:
		mov	word_218B0, 0C27h

loc_DDA7:
		mov	eax, dword_218AC
		mov	[bp+var_4], eax
		movzx	eax, word_218B0
		sub	[bp+var_4], eax
		cmp	[bp+var_4], 0
		jge	short loc_DDCE
		mov	ax, word ptr dword_218AC
		mov	word_218B0, ax
		mov	[bp+var_4], 0

loc_DDCE:
		mov	eax, [bp+var_4]
		mov	dword_218AC, eax
		movzx	eax, word_218B0
		add	dword_1E598, eax
		push	6
		pushd	[dword_1E598]
		call	sub_DC55
		mov	eax, dword_1E598
		cmp	eax, dword_252F8
		jle	short loc_DE01
		mov	dword_252F8, eax
		push	4
		push	eax
		call	sub_DC55

loc_DE01:
		mov	bx, word_1E5B6
		shl	bx, 2
		mov	eax, [bx+0B2Eh]
		cmp	eax, dword_1E598
		jg	short locret_DE4C
		mov	al, lives
		cbw
		cmp	ax, 5
		jge	short loc_DE26
		inc	lives
		call	sub_DF76
		jmp	short loc_DE36
; ---------------------------------------------------------------------------

loc_DE26:
		mov	al, bombs
		cbw
		cmp	ax, 5
		jge	short loc_DE36
		inc	bombs
		call	sub_DFC4

loc_DE36:
		call	_snd_se_play c, 8
		inc	word_1E5B6
		leave
		retn
; ---------------------------------------------------------------------------

loc_DE46:
		mov	word_218B0, 0

locret_DE4C:
		leave
		retn
sub_DD41	endp


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

; Attributes: bp-based frame

sub_DE4E	proc far
		push	bp
		mov	bp, sp
		mov	eax, dword_218AC
		add	dword_1E598, eax
		push	6
		pushd	[dword_1E598]
		call	sub_DC55
		mov	eax, dword_1E598
		cmp	eax, dword_252F8
		jle	short loc_DE7A
		mov	dword_252F8, eax
		push	4
		push	eax
		call	sub_DC55

loc_DE7A:
		mov	bx, word_1E5B6
		shl	bx, 2
		mov	eax, [bx+0B2Eh]
		cmp	eax, dword_1E598
		jg	short loc_DEAB
		mov	al, lives
		cbw
		cmp	ax, 5
		jge	short loc_DEA7
		inc	lives
		call	sub_DF76
		call	_snd_se_play c, 8

loc_DEA7:
		inc	word_1E5B6

loc_DEAB:
		pop	bp
		retf
sub_DE4E	endp


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

; Attributes: bp-based frame

sub_DEAD	proc near

var_18		= word ptr -18h
var_16		= word ptr -16h
var_14		= word ptr -14h
var_12		= word ptr -12h
var_10		= word ptr -10h
var_E		= word ptr -0Eh
var_C		= word ptr -0Ch
var_A		= byte ptr -0Ah
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 18h
		push	si
		xor	si, si
		mov	ax, word_1E5D8
		mov	[bp+var_8], ax
		mov	ax, word_1E5DA
		mov	[bp+var_6], ax
		mov	ax, word_1E5DC
		mov	[bp+var_4], ax
		mov	ax, word_1E5DE
		mov	[bp+var_12], ax
		mov	ax, word_1E5E0
		mov	[bp+var_10], ax
		mov	ax, word_1E5E2
		mov	[bp+var_E], ax
		mov	ax, word_1E5E4
		mov	[bp+var_C], ax
		mov	al, byte_1E5E6
		mov	[bp+var_A], al
		mov	ax, word_1E5E7
		mov	[bp+var_18], ax
		mov	ax, word_1E5E9
		mov	[bp+var_16], ax
		mov	ax, word_1E5EB
		mov	[bp+var_14], ax
		mov	al, power
		mov	ah, 0
		sar	ax, 2
		mov	bx, ax
		mov	al, SHOT_LEVELS[bx]
		mov	shot_level, al
		cmp	shot_level, 9
		jnz	short loc_DF20
		push	(62 shl 16) + 20
		push	ss
		lea	ax, [bp+var_8]
		push	ax
		push	TX_WHITE
		jmp	short loc_DF6E
; ---------------------------------------------------------------------------

loc_DF20:
		mov	al, power
		mov	ah, 0
		mov	[bp+var_2], ax
		sub	[bp+var_2], 10h
		jmp	short loc_DF37
; ---------------------------------------------------------------------------

loc_DF2E:
		mov	byte ptr [bp+si+var_18], 3Fh ; '?'
		sub	[bp+var_2], 10h
		inc	si

loc_DF37:
		cmp	[bp+var_2], 0
		jg	short loc_DF2E
		mov	al, power
		mov	ah, 0
		dec	ax
		and	ax, 0Fh
		mov	[bp+var_2], ax
		mov	al, byte ptr [bp+var_2]
		add	al, 30h	; '0'
		mov	byte ptr [bp+si+var_18], al
		push	(62 shl 16) + 20
		push	ss
		lea	ax, [bp+var_18]
		push	ax
		mov	al, shot_level
		mov	ah, 0
		lea	dx, [bp+var_12]
		add	ax, dx
		mov	bx, ax
		mov	al, ss:[bx]
		mov	ah, 0
		push	ax

loc_DF6E:
		call	gaiji_putsa
		pop	si
		leave
		retn
sub_DEAD	endp


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

; Attributes: bp-based frame

sub_DF76	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_DF95
; ---------------------------------------------------------------------------

loc_DF7E:
		mov	ax, si
		add	ax, ax
		add	ax, 62
		call	gaiji_putca pascal, ax, (17 shl 16) + 2, TX_WHITE
		inc	si

loc_DF95:
		mov	al, lives
		cbw
		cmp	ax, si
		jg	short loc_DF7E
		mov	al, lives
		cbw
		mov	si, ax
		jmp	short loc_DFBC
; ---------------------------------------------------------------------------

loc_DFA5:
		mov	ax, si
		add	ax, ax
		add	ax, 62
		call	gaiji_putca pascal, ax, (17 shl 16) + 0CFh, TX_WHITE
		inc	si

loc_DFBC:
		cmp	si, 5
		jl	short loc_DFA5
		pop	si
		pop	bp
		retn
sub_DF76	endp


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

; Attributes: bp-based frame

sub_DFC4	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_DFE3
; ---------------------------------------------------------------------------

loc_DFCC:
		mov	ax, si
		add	ax, ax
		add	ax, 62
		call	gaiji_putca pascal, ax, (15 shl 16) + 3, TX_WHITE
		inc	si

loc_DFE3:
		mov	al, bombs
		cbw
		cmp	ax, si
		jg	short loc_DFCC
		mov	al, bombs
		cbw
		mov	si, ax
		jmp	short loc_E00A
; ---------------------------------------------------------------------------

loc_DFF3:
		mov	ax, si
		add	ax, ax
		add	ax, 62
		call	gaiji_putca pascal, ax, (15 shl 16) + 0CFh, TX_WHITE
		inc	si

loc_E00A:
		cmp	si, 5
		jl	short loc_DFF3
		pop	si
		pop	bp
		retn
sub_DFC4	endp


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

; Attributes: bp-based frame

sub_E012	proc near
		push	bp
		mov	bp, sp
		call	gaiji_putsa pascal, (61 shl 16) + 5, ds, offset gsSCORE, TX_YELLOW
		push	6
		pushd	[dword_1E598]
		call	sub_DC55
		push	6
		les	bx, mikoconfig
		assume es:nothing
		push	es:[bx+mikoconfig_t.continues_used]
		call	sub_DCA5
		call	gaiji_putsa pascal, (60 shl 16) + 3, ds, offset gsHISCORE, TX_YELLOW
		push	4
		pushd	[dword_252F8]
		call	sub_DC55
		push	4
		mov	al, byte_252FC
		mov	ah, 0
		push	ax
		call	sub_DCA5
		call	gaiji_putsa pascal, (57 shl 16) + 17, ds, offset gsREIMU, TX_YELLOW
		call	sub_DF76
		call	gaiji_putsa pascal, (57 shl 16) + 15, ds, offset gsREIGEKI, TX_YELLOW
		call	sub_DFC4
		call	gaiji_putsa pascal, (57 shl 16) + 20, ds, offset gsREIRYOKU, TX_YELLOW
		call	sub_DEAD
		push	(57 shl 16) + 22
		push	ds
		mov	al, _rank
		cbw
		shl	ax, 3
		add	ax, offset glEASY
		push	ax
		cmp	_rank, RANK_EASY
		jnz	short loc_E0C2
		mov	ax, TX_GREEN
		jmp	short loc_E0E1
; ---------------------------------------------------------------------------

loc_E0C2:
		mov	al, _rank
		cbw
		cmp	ax, RANK_NORMAL
		jnz	short loc_E0D0
		mov	ax, TX_CYAN
		jmp	short loc_E0E1
; ---------------------------------------------------------------------------

loc_E0D0:
		mov	al, _rank
		cbw
		cmp	ax, RANK_HARD
		jnz	short loc_E0DE
		mov	ax, TX_MAGENTA
		jmp	short loc_E0E1
; ---------------------------------------------------------------------------

loc_E0DE:
		mov	ax, TX_RED

loc_E0E1:
		push	ax
		call	gaiji_putsa
		pop	bp
		retn
sub_E012	endp


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

; Attributes: bp-based frame

sub_E0E9	proc near

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

		enter	6, 0
		push	si
		push	di
		mov	ax, [bp+arg_0]
		add	ax, 8
		mov	[bp+var_6], ax
		mov	[bp+var_4], 0
		jmp	short loc_E156
; ---------------------------------------------------------------------------

loc_E0FF:
		xor	si, si
		jmp	short loc_E147
; ---------------------------------------------------------------------------

loc_E103:
		mov	[bp+var_2], 1
		jmp	short loc_E140
; ---------------------------------------------------------------------------

loc_E10A:
		mov	ax, si
		sar	ax, 1
		mov	dx, [bp+arg_0]
		add	dx, [bp+var_4]
		sub	dx, ax
		mov	di, dx
		cmp	di, [bp+arg_0]
		jge	short loc_E122
		mov	di, [bp+arg_0]
		jmp	short loc_E12A
; ---------------------------------------------------------------------------

loc_E122:
		cmp	di, [bp+var_6]
		jle	short loc_E12A
		mov	di, [bp+var_6]

loc_E12A:
		mov	ax, si
		add	ax, ax
		add	ax, 4
		call	gaiji_putca pascal, ax, [bp+var_2], di, TX_BLACK
		inc	[bp+var_2]

loc_E140:
		cmp	[bp+var_2], 17h
		jle	short loc_E10A
		inc	si

loc_E147:
		cmp	si, 18h
		jl	short loc_E103
		push	2
		call	frame_delay
		inc	[bp+var_4]

loc_E156:
		cmp	[bp+var_4], 15h
		jl	short loc_E0FF
		pop	di
		pop	si
		leave
		retn	2
sub_E0E9	endp


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

; Attributes: bp-based frame

sub_E162	proc far
		push	bp
		mov	bp, sp
		push	0CFh
		call	sub_E0E9
		pop	bp
		retf
sub_E162	endp


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

; Attributes: bp-based frame

sub_E16D	proc far
		push	bp
		mov	bp, sp
		push	0F1h
		call	sub_E0E9
		pop	bp
		retf
sub_E16D	endp


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

; Attributes: bp-based frame

sub_E178	proc near
		push	bp
		mov	bp, sp
		push	ds
		push	offset aBombs_bft ; "bombs.bft"
		call	file_ropen
		pushd	20h ; ' '
		push	0
		call	file_seek
		push	438h
		call	hmem_allocbyte
		mov	word_218C0, ax
		mov	word_218BE, 0
		push	ax
		push	word_218BE
		push	438h
		call	file_read
		call	file_close
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 0
		jnz	short loc_E1D2
		call	_pi_slot_load c, 1, offset aBomb1_pi, ds
		mov	fp_219CA, offset sub_E618
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_E1D2:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 2
		jnz	short loc_E1F3
		call	_pi_slot_load c, 1, offset aBomb3_pi, ds
		mov	fp_219CA, offset sub_E89C
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_E1F3:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 1
		jnz	short loc_E248
		call	_pi_slot_load c, 1, offset aBomb2_pi, ds
		push	ds
		push	offset aBomb1_bft ; "bomb1.bft"
		call	file_ropen
		pushd	50h ; 'P'
		push	0
		call	file_seek
		push	1440h
		call	hmem_allocbyte
		mov	word ptr dword_218BA+2,	ax
		mov	word ptr dword_218BA, 0
		push	ax
		push	word ptr dword_218BA
		push	1440h
		call	file_read
		call	file_close
		mov	fp_219CA, offset sub_EAEB

loc_E248:
		pop	bp
		retn
sub_E178	endp


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

; Attributes: bp-based frame

sub_E24A	proc near
		push	bp
		mov	bp, sp
		freePISlotLarge	1
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 1
		jnz	short loc_E26F
		push	word ptr dword_218BA+2
		call	hmem_free

loc_E26F:
		pop	bp
		retn
sub_E24A	endp


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

; Attributes: bp-based frame

sub_E271	proc near
		push	bp
		mov	bp, sp
		mov	byte_218C2, 0
		mov	byte_218B4, 0
		pop	bp
		retn
sub_E271	endp


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

; Attributes: bp-based frame

sub_E280	proc near
		push	bp
		mov	bp, sp
		cmp	byte_218B4, 0
		jnz	short loc_E2D7
		cmp	bombs, 0
		jz	short loc_E2D7
		mov	byte_218B4, 1
		mov	byte_20606, 1
		dec	bombs
		call	sub_DFC4
		mov	word_218B6, 0
		inc	byte_218C2
		inc	byte_1E64E
		call	_snd_se_play c, 9
		mov	word_218C4, 0DCh
		mov	word_218C6, 0C4h
		mov	word_218C8, 0
		mov	word_218CA, 0
		call	sub_10E0A

loc_E2D7:
		pop	bp
		retn
sub_E280	endp


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

; Attributes: bp-based frame

sub_E2D9	proc near

var_5		= byte ptr -5
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		cmp	byte_218B4, 0
		jz	loc_E3EA
		cmp	word_218C8, 1
		jle	loc_E38A
		dec	word_218B6
		mov	ax, word_218B6
		shl	ax, 3
		mov	dx, 100h
		sub	dx, ax
		mov	[bp+var_2], dx
		xor	di, di
		mov	al, byte ptr word_218B6
		jmp	short loc_E371
; ---------------------------------------------------------------------------

loc_E30C:
		movsx	eax, [bp+var_2]
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C4
		mov	[bp+var_4], ax
		movsx	eax, [bp+var_2]
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C6
		mov	si, ax
		cmp	si, 8
		jle	short loc_E36B
		cmp	si, 180h
		jge	short loc_E36B
		push	[bp+var_4]
		push	si
		push	80008h
		call	sub_45FC

loc_E36B:
		inc	di
		mov	al, [bp+var_5]
		add	al, 4

loc_E371:
		mov	[bp+var_5], al
		cmp	di, 40h
		jl	short loc_E30C
		cmp	word_218B6, 20h	; ' '
		jl	short loc_E386
		mov	word_218C8, 0

loc_E386:
		inc	word_218B6

loc_E38A:
		cmp	word_218CA, 1
		jnz	short loc_E39D
		cmp	word_218B6, 20h	; ' '
		jg	short loc_E39D
		mov	byte_22D48, 1

loc_E39D:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 0
		jnz	short loc_E3BA
		cmp	word_218B6, 88h
		jz	short loc_E3E5
		cmp	word_218B6, 89h
		jnz	short loc_E3EA
		jmp	short loc_E3E5
; ---------------------------------------------------------------------------

loc_E3BA:
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.shottype], 1
		jnz	short loc_E3D7
		cmp	word_218B6, 0A4h
		jz	short loc_E3E5
		cmp	word_218B6, 0A5h
		jnz	short loc_E3EA
		jmp	short loc_E3E5
; ---------------------------------------------------------------------------

loc_E3D7:
		cmp	word_218B6, 70h	; 'p'
		jz	short loc_E3E5
		cmp	word_218B6, 71h	; 'q'
		jnz	short loc_E3EA

loc_E3E5:
		mov	byte_22D48, 1

loc_E3EA:
		pop	di
		pop	si
		leave
		retn
sub_E2D9	endp


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

; Attributes: bp-based frame

sub_E3EE	proc near

var_5		= byte ptr -5
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		inc	word_218C8
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	dx, _scroll_line
		mov	bx, ax
		mov	[bx+3E5Ch], dx
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	ax, word_218B6
		shl	ax, 3
		mov	dx, 100h
		sub	dx, ax
		mov	di, dx
		xor	si, si
		mov	al, byte ptr word_218B6
		jmp	short loc_E47B
; ---------------------------------------------------------------------------

loc_E42A:
		movsx	eax, di
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C4
		mov	[bp+var_2], ax
		movsx	eax, di
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C6
		mov	[bp+var_4], ax
		push	[bp+var_2]
		push	ax
		call	sub_ED11
		inc	si
		mov	al, [bp+var_5]
		add	al, 4

loc_E47B:
		mov	[bp+var_5], al
		cmp	si, 40h
		jl	short loc_E42A
		call	grcg_off
		pop	di
		pop	si
		leave
		retn
sub_E3EE	endp


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

; Attributes: bp-based frame

sub_E48C	proc near

var_5		= byte ptr -5
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 14
		mov	ax, [bp+arg_0]
		shl	ax, 5
		mov	di, ax
		xor	si, si
		mov	al, byte ptr [bp+arg_0]
		jmp	short loc_E4FF
; ---------------------------------------------------------------------------

loc_E4AE:
		movsx	eax, di
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C4
		mov	[bp+var_2], ax
		movsx	eax, di
		mov	dl, [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_218C6
		mov	[bp+var_4], ax
		push	[bp+var_2]
		push	ax
		call	sub_ED11
		inc	si
		mov	al, [bp+var_5]
		add	al, 4

loc_E4FF:
		mov	[bp+var_5], al
		cmp	si, 40h
		jl	short loc_E4AE
		call	grcg_off
		pop	di
		pop	si
		leave
		retn	2
sub_E48C	endp


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

; Attributes: bp-based frame

sub_E512	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, word_218B6
		and	ax, 0Fh
		add	ax, ax
		mov	di, ax
		xor	si, si
		jmp	short loc_E55D
; ---------------------------------------------------------------------------

loc_E525:
		call	_randring1_next16
		mov	bx, 180h
		xor	dx, dx
		div	bx
		add	dx, 20h	; ' '
		mov	bx, di
		add	bx, si
		shl	bx, 2
		mov	[bx+3F5Ch], dx
		call	_randring1_next16
		mov	bx, 170h
		xor	dx, dx
		div	bx
		add	dx, 10h
		mov	bx, di
		add	bx, si
		shl	bx, 2
		mov	[bx+3F5Eh], dx
		mov	bx, si
		mov	byte ptr [bx+di+3F28h],	1
		inc	si

loc_E55D:
		cmp	si, 2
		jl	short loc_E525
		xor	si, si
		jmp	short loc_E5AC
; ---------------------------------------------------------------------------

loc_E566:
		cmp	byte ptr [si+3F28h], 0
		jz	short loc_E5AB
		mov	ax, word_218B6
		and	ax, 3
		mov	dx, si
		and	dx, 3
		cmp	ax, dx
		jnz	short loc_E58E
		inc	byte ptr [si+3F28h]
		cmp	byte ptr [si+3F28h], 5
		jb	short loc_E58E
		mov	byte ptr [si+3F28h], 0
		jmp	short loc_E5AB
; ---------------------------------------------------------------------------

loc_E58E:
		mov	bx, si
		shl	bx, 2
		push	word ptr [bx+3F5Ch]
		mov	bx, si
		shl	bx, 2
		push	word ptr [bx+3F5Eh]
		mov	al, [si+3F28h]
		mov	ah, 0
		dec	ax
		push	ax
		call	sub_ED9F

loc_E5AB:
		inc	si

loc_E5AC:
		cmp	si, 20h	; ' '
		jl	short loc_E566
		pop	di
		pop	si
		pop	bp
		retn
sub_E512	endp


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

; Attributes: bp-based frame

sub_E5B5	proc near

var_6		= word ptr -6
var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		mov	ax, word_218B6
		dec	ax
		sar	ax, 1
		mov	[bp+var_6], ax
		imul	ax, 48h
		mov	dx, word_218C0
		mov	bx, word_218BE
		add	bx, ax
		mov	word ptr [bp+var_4+2], dx
		mov	word ptr [bp+var_4], bx
		mov	si, 10h
		jmp	short loc_E60F
; ---------------------------------------------------------------------------

loc_E5DD:
		push	20h ; ' '
		push	si
		les	bx, [bp+var_4]
		mov	al, es:[bx]
		push	ax
		call	sub_EE76
		push	0A0h
		push	si
		les	bx, [bp+var_4]
		mov	al, es:[bx+1]
		push	ax
		call	sub_EE76
		push	120h
		push	si
		les	bx, [bp+var_4]
		mov	al, es:[bx+2]
		push	ax
		call	sub_EE76
		add	word ptr [bp+var_4], 3
		add	si, 10h

loc_E60F:
		cmp	si, 190h
		jl	short loc_E5DD
		pop	si
		leave
		retn
sub_E5B5	endp


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

; Attributes: bp-based frame

sub_E618	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		cmp	word_218B6, 1
		jnz	short loc_E668
		mov	[bp+var_2], 0
		jmp	short loc_E64E
; ---------------------------------------------------------------------------

loc_E638:
		mov	bx, [bp+var_2]
		mov	al, [bx+1A98h]
		mov	[bx+3FDDh], al
		mov	al, [bx+1AA1h]
		mov	[bx+3FE0h], al
		inc	[bp+var_2]

loc_E64E:
		cmp	[bp+var_2], 3
		jl	short loc_E638
		mov	Palettes+9, 40h
		mov	Palettes+10, 10h
		mov	Palettes+11, 40h
		call	far ptr	palette_show

loc_E668:
		cmp	word_218B6, 20h	; ' '
		jge	short loc_E680
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 3
		call	sub_E5B5
		jmp	loc_E892
; ---------------------------------------------------------------------------

loc_E680:
		cmp	word_218B6, 20h	; ' '
		jnz	short loc_E6CC
		mov	al, byte_21A50
		mov	Palettes+9, al
		mov	al, byte_21A51
		mov	Palettes+10, al
		mov	al, byte_21A52
		mov	Palettes+11, al
		mov	Palettes, 80h
		mov	Palettes+1, 0
		mov	Palettes+2, 80h
		call	far ptr	palette_show
		mov	al, byte_2287E
		mov	byte_21A4C, al
		mov	byte_2287E, 2
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		jmp	loc_E892
; ---------------------------------------------------------------------------

loc_E6CC:
		cmp	word_218B6, 88h
		jge	loc_E821
		cmp	word_218B6, 40h
		jle	short loc_E6E8
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 11

loc_E6E8:
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		call	grcg_off
		cmp	word_218B6, 40h
		jg	short loc_E74D
		mov	ax, word_218B6
		shl	ax, 2
		add	ax, 0FF80h
		mov	dx, 80h
		sub	dx, ax
		mov	[bp+var_2], dx
		mov	al, byte ptr [bp+var_2]
		mov	Palettes, al
		mov	Palettes+1, 0
		mov	Palettes+2, al
		cmp	word_218B6, 40h
		jnz	short loc_E745
		mov	PaletteTone, 0C8h
		call	far ptr	palette_show
		mov	Palettes, 0FFh
		mov	Palettes+1, 0FFh
		mov	Palettes+2, 0FFh

loc_E745:
		call	far ptr	palette_show
		jmp	loc_E7E8
; ---------------------------------------------------------------------------

loc_E74D:
		push	0D400BEh
		push	320001h
		push	0
		call	sub_4090
		cmp	word_218B6, 46h	; 'F'
		jnz	short loc_E774
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		jmp	short loc_E7A0
; ---------------------------------------------------------------------------

loc_E774:
		cmp	byte_2066C, 0
		jz	short loc_E782
		test	byte ptr word_218B6, 1
		jz	short loc_E7A0

loc_E782:
		mov	si, 90
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_E793
		sub	si, RES_Y

loc_E793:
		call	_pi_slot_put c, 112, si, 1

loc_E7A0:
		cmp	word_218B6, 56h	; 'V'
		jl	short loc_E7E8
		mov	ax, word_218B6
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jz	short loc_E7BB
		mov	[bp+var_2], 0FFh
		jmp	short loc_E7C0
; ---------------------------------------------------------------------------

loc_E7BB:
		mov	[bp+var_2], 0A0h

loc_E7C0:
		mov	al, byte ptr [bp+var_2]
		mov	Palettes, al
		mov	Palettes+1, al
		mov	Palettes+2, al
		mov	ax, word_218B6
		add	ax, ax
		add	ax, 0FFB8h
		mov	PaletteTone, ax
		call	far ptr	palette_show
		cmp	word_218B6, 6Fh	; 'o'
		jle	short loc_E7E8
		mov	byte_2066D, 2

loc_E7E8:
		cmp	word_218B6, 56h	; 'V'
		jge	short loc_E80E
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		test	byte ptr word_218B6, 3
		jnz	short loc_E80B
		call	_snd_se_play c, 15

loc_E80B:
		call	sub_E512

loc_E80E:
		cmp	word_218B6, 56h	; 'V'
		jnz	short loc_E892
		call	_snd_se_play c, 17
		jmp	short loc_E892
; ---------------------------------------------------------------------------

loc_E821:
		cmp	word_218B6, 88h
		jnz	short loc_E867
		mov	al, byte_21A4D
		mov	Palettes, al
		mov	al, byte_21A4E
		mov	Palettes+1, al
		mov	al, byte_21A4F
		mov	Palettes+2, al
		call	far ptr	palette_show
		call	_snd_se_play c, 16
		mov	al, byte_21A4C
		mov	byte_2287E, al
		mov	byte_2066D, 1
		mov	PaletteTone, 0C8h
		call	far ptr	palette_show
		call	sub_10E0A
		jmp	short loc_E892
; ---------------------------------------------------------------------------

loc_E867:
		cmp	word_218B6, 9Ch
		jge	short loc_E888
		mov	ax, word_218B6
		imul	ax, 5
		add	ax, 0FD58h
		mov	dx, 0C8h
		sub	dx, ax
		mov	PaletteTone, dx
		call	far ptr	palette_show
		jmp	short loc_E892
; ---------------------------------------------------------------------------

loc_E888:
		call	grcg_off
		mov	ax, 1
		jmp	short loc_E899
; ---------------------------------------------------------------------------

loc_E892:
		call	grcg_off
		xor	ax, ax

loc_E899:
		pop	si
		leave
		retn
sub_E618	endp


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

; Attributes: bp-based frame

sub_E89C	proc near

var_64		= byte ptr -64h
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 64h
		push	si
		push	di
		mov	si, 0BE0h
		lea	di, [bp+var_64]
		push	ss
		pop	es
		mov	cx, 30h	; '0'
		rep movsw
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 2
		cmp	word_218B6, 20h	; ' '
		jge	short loc_E8C9
		call	sub_E5B5
		jmp	loc_EA60
; ---------------------------------------------------------------------------

loc_E8C9:
		cmp	word_218B6, 20h	; ' '
		jnz	short loc_E915
		mov	al, byte_2287E
		mov	byte_21A53, al
		mov	byte_2287E, 2
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		mov	[bp+var_4], 0
		jmp	short loc_E902
; ---------------------------------------------------------------------------

loc_E8F3:
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	word ptr [bx+3E62h], 14h
		inc	[bp+var_4]

loc_E902:
		cmp	[bp+var_4], 30h	; '0'
		jl	short loc_E8F3
		call	_snd_se_play c, 17
		jmp	loc_EA60
; ---------------------------------------------------------------------------

loc_E915:
		cmp	word_218B6, 64h	; 'd'
		jge	loc_E9A6
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		cmp	word_218B6, 50h	; 'P'
		jl	short loc_E94C
		mov	ax, word_218B6
		imul	ax, 5
		add	ax, 0FED4h
		mov	PaletteTone, ax
		call	far ptr	palette_show
		mov	byte_2066D, 2

loc_E94C:
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 14
		call	sub_E512
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 1
		mov	[bp+var_4], 0
		jmp	short loc_E99D
; ---------------------------------------------------------------------------

loc_E96C:
		mov	bx, [bp+var_4]
		add	bx, bx
		lea	ax, [bp+var_64]
		add	bx, ax
		mov	ax, ss:[bx]
		mov	bx, [bp+var_4]
		shl	bx, 2
		add	[bx+3E62h], ax
		mov	ax, [bp+var_4]
		shl	ax, 3
		add	ax, 20h	; ' '
		push	ax
		mov	bx, [bp+var_4]
		shl	bx, 2
		push	word ptr [bx+3E62h]
		call	sub_EDF0
		inc	[bp+var_4]

loc_E99D:
		cmp	[bp+var_4], 30h	; '0'
		jl	short loc_E96C
		jmp	loc_EA60
; ---------------------------------------------------------------------------

loc_E9A6:
		cmp	word_218B6, 70h	; 'p'
		jge	short loc_EA11
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		test	byte ptr word_218B6, 1
		jz	short loc_E9F3
		call	grcg_off
		mov	[bp+var_2], 10h
		mov	ax, _scroll_line
		add	[bp+var_2], ax
		cmp	[bp+var_2], RES_Y
		jl	short loc_E9DB
		sub	[bp+var_2], RES_Y

loc_E9DB:
		call	_pi_slot_put stdcall, 32, [bp+var_2], 1
		call	_snd_se_play stdcall, 16
		add	sp, 8
		jmp	short loc_EA60
; ---------------------------------------------------------------------------

loc_E9F3:
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		jmp	short loc_EA60
; ---------------------------------------------------------------------------

loc_EA11:
		cmp	word_218B6, 70h	; 'p'
		jnz	short loc_EA35
		mov	al, byte_21A53
		mov	byte_2287E, al
		mov	byte_2066D, 1
		mov	PaletteTone, 0C8h
		call	far ptr	palette_show
		call	sub_10E0A
		jmp	short loc_EA60
; ---------------------------------------------------------------------------

loc_EA35:
		cmp	word_218B6, 80h
		jge	short loc_EA56
		mov	ax, word_218B6
		imul	ax, 5
		add	ax, 0FDE4h
		mov	dx, 0C8h
		sub	dx, ax
		mov	PaletteTone, dx
		call	far ptr	palette_show
		jmp	short loc_EA60
; ---------------------------------------------------------------------------

loc_EA56:
		call	grcg_off
		mov	ax, 1
		jmp	short loc_EA67
; ---------------------------------------------------------------------------

loc_EA60:
		call	grcg_off
		xor	ax, ax

loc_EA67:
		pop	di
		pop	si
		leave
		retn
sub_E89C	endp


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

; Attributes: bp-based frame

sub_EA6B	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	ax, 120h
		imul	[bp+arg_0]
		mov	[bp+arg_0], ax
		mov	[bp+var_2], 1
		jmp	short loc_EADF
; ---------------------------------------------------------------------------

loc_EA83:
		mov	si, 4
		jmp	short loc_EAD7
; ---------------------------------------------------------------------------

loc_EA88:
		les	bx, dword_218BA
		add	bx, [bp+arg_0]
		test	byte ptr es:[bx], 0F0h
		jz	short loc_EA9A
		mov	di, TX_RED + TX_REVERSE
		jmp	short loc_EA9D
; ---------------------------------------------------------------------------

loc_EA9A:
		mov	di, TX_WHITE

loc_EA9D:
		call	text_putsa pascal, si, [bp+var_2], ds, offset asc_1E6DF, di
		add	si, 2
		les	bx, dword_218BA
		add	bx, [bp+arg_0]
		test	byte ptr es:[bx], 0Fh
		jz	short loc_EAC0
		mov	di, TX_RED + TX_REVERSE
		jmp	short loc_EAC3
; ---------------------------------------------------------------------------

loc_EAC0:
		mov	di, TX_WHITE

loc_EAC3:
		call	text_putsa pascal, si, [bp+var_2], ds, offset asc_1E6DF, di
		add	si, 2
		inc	[bp+arg_0]

loc_EAD7:
		cmp	si, 34h	; '4'
		jl	short loc_EA88
		inc	[bp+var_2]

loc_EADF:
		cmp	[bp+var_2], 17h
		jle	short loc_EA83
		pop	di
		pop	si
		leave
		retn	2
sub_EA6B	endp


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

; Attributes: bp-based frame

sub_EAEB	proc near
		push	bp
		mov	bp, sp
		push	si
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		cmp	word_218B6, 20h	; ' '
		jge	short loc_EB07
		call	sub_E5B5
		jmp	loc_ECA2
; ---------------------------------------------------------------------------

loc_EB07:
		cmp	word_218B6, 20h	; ' '
		jnz	short loc_EB32
		mov	byte_21A55, 0
		mov	al, byte_2287E
		mov	byte_21A54, al
		mov	byte_2287E, 2
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		jmp	loc_ECA2
; ---------------------------------------------------------------------------

loc_EB32:
		cmp	word_218B6, 84h
		jge	short loc_EB9E
		cmp	word_218B6, 20h	; ' '
		jle	short loc_EB7C
		test	byte ptr word_218B6, 3
		jnz	short loc_EB7C
		mov	ax, word_218B6
		and	ax, 7
		cmp	ax, 4
		jnz	short loc_EB5D
		call	_snd_se_play c, 16

loc_EB5D:
		mov	al, byte_21A55
		mov	ah, 0
		push	ax
		call	sub_EA6B
		inc	byte_21A55
		cmp	byte_21A55, 12h
		jb	short loc_EB7C
		call	sub_FBE9
		mov	word_218B6, 84h

loc_EB7C:
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 4
		call	sub_E512
		jmp	loc_ECA2
; ---------------------------------------------------------------------------

loc_EB9E:
		cmp	word_218B6, 0A4h
		jge	loc_EC56
		push	200000h
		push	19F018Fh
		call	grcg_boxfill
		mov	byte_2066D, 2
		cmp	byte_2066C, 0
		jz	short loc_EBCC
		test	byte ptr word_218B6, 1
		jz	short loc_EBEF

loc_EBCC:
		call	grcg_off
		mov	si, 84
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_EBE2
		sub	si, RES_Y

loc_EBE2:
		call	_pi_slot_put c, 32, si, 1

loc_EBEF:
		test	byte ptr word_218B6, 3
		jnz	short loc_EC00
		call	_snd_se_play c, 15

loc_EC00:
		cmp	word_218B6, 8Ch
		jg	short loc_EC10
		mov	ax, word_218B6
		add	ax, 0FF7Ch
		jmp	short loc_EC36
; ---------------------------------------------------------------------------

loc_EC10:
		cmp	word_218B6, 94h
		jg	short loc_EC20
		mov	ax, word_218B6
		add	ax, 0FF74h
		jmp	short loc_EC36
; ---------------------------------------------------------------------------

loc_EC20:
		cmp	word_218B6, 9Ch
		jg	short loc_EC30
		mov	ax, word_218B6
		add	ax, 0FF6Ch
		jmp	short loc_EC36
; ---------------------------------------------------------------------------

loc_EC30:
		mov	ax, word_218B6
		add	ax, 0FF64h

loc_EC36:
		push	ax
		call	sub_E48C
		mov	ax, word_218B6
		add	ax, ax
		add	ax, word_218B6
		add	ax, 0FE74h

loc_EC46:
		mov	dx, 0C8h
		sub	dx, ax
		mov	PaletteTone, dx
		call	far ptr	palette_show
		jmp	short loc_ECA2
; ---------------------------------------------------------------------------

loc_EC56:
		cmp	word_218B6, 0A4h
		jnz	short loc_EC85
		call	_snd_se_play c, 16
		mov	al, byte_21A54
		mov	byte_2287E, al
		mov	byte_2066D, 1
		mov	PaletteTone, 0C8h
		call	far ptr	palette_show
		call	sub_10E0A
		jmp	short loc_ECA2
; ---------------------------------------------------------------------------

loc_EC85:
		cmp	word_218B6, 0B8h
		jge	short loc_EC98
		mov	ax, word_218B6
		imul	ax, 5
		add	ax, 0FCCCh
		jmp	short loc_EC46
; ---------------------------------------------------------------------------

loc_EC98:
		call	grcg_off
		mov	ax, 1
		jmp	short loc_ECA9
; ---------------------------------------------------------------------------

loc_ECA2:
		call	grcg_off
		xor	ax, ax

loc_ECA9:
		pop	si
		pop	bp
		retn
sub_EAEB	endp


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

; Attributes: bp-based frame

sub_ECAC	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		cmp	byte_218B4, 0
		jz	short loc_ED0E
		inc	word_218B6
		cmp	word_218CA, 0
		jnz	short loc_ECE3
		cmp	word_218B6, 20h	; ' '
		jg	short loc_ECD0
		call	sub_E3EE
		jmp	short loc_ECF0
; ---------------------------------------------------------------------------

loc_ECD0:
		cmp	word_218C8, 0
		jnz	short loc_ECF0
		mov	word_218B6, 0
		inc	word_218CA
		jmp	short loc_ECF0
; ---------------------------------------------------------------------------

loc_ECE3:
		cmp	word_218CA, 1
		jnz	short loc_ECF0
		call	fp_219CA
		mov	si, ax

loc_ECF0:
		or	si, si
		jz	short loc_ED0E
		mov	byte_218B4, 0
		mov	byte_20606, 0
		mov	byte_20605, 46h	; 'F'
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show

loc_ED0E:
		pop	si
		pop	bp
		retn
sub_ECAC	endp


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

; Attributes: bp-based frame

sub_ED11	proc near

var_4		= word ptr -4
var_1		= byte ptr -1
arg_0		= word ptr  4
arg_2		= word ptr  6

		enter	4, 0
		push	si
		push	di
		cmp	[bp+arg_2], 18h
		jle	short loc_ED99
		cmp	[bp+arg_2], 1A0h
		jge	short loc_ED99
		cmp	[bp+arg_0], 8
		jle	short loc_ED99
		cmp	[bp+arg_0], 180h
		jge	short loc_ED99
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		mov	dx, [bp+arg_0]
		add	dx, _scroll_line
		cmp	dx, RES_Y
		jl	short loc_ED47
		sub	dx, RES_Y

loc_ED47:
		mov	bx, [bp+arg_2]
		mov	ax, bx
		sar	ax, 3
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		; Hack (and bx, 7)
		db 081h
		db 0e3h
		db 007h
		db 000h
		mov	[bp+var_4], bx
		mov	dx, 10h
		sub	dx, bx
		mov	si, 0C92h
		mov	[bp+var_1], 0

loc_ED6E:
		xor	ax, ax
		mov	al, [si]
		mov	bx, ax
		mov	cx, [bp+var_4]
		shr	bx, cl
		mov	cx, dx
		shl	ax, cl
		add	ax, bx
		mov	es:[di], ax
		add	di, 50h	; 'P'
		cmp	di, 7D00h
		jl	short loc_ED8F
		sub	di, 7D00h

loc_ED8F:
		inc	si
		inc	[bp+var_1]
		cmp	[bp+var_1], 8
		jl	short loc_ED6E

loc_ED99:
		pop	di
		pop	si
		leave
		retn	4
sub_ED11	endp


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

; Attributes: bp-based frame

sub_ED9F	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		mov	dx, [bp+arg_2]
		add	dx, _scroll_line
		cmp	dx, RES_Y
		jl	short loc_EDBA
		sub	dx, RES_Y

loc_EDBA:
		mov	ax, [bp+arg_4]
		sar	ax, 3
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	si, 0C72h
		mov	ax, [bp+arg_0]
		shl	ax, 3
		add	si, ax
		mov	cx, 8

loc_EDDA:
		movsb
		add	di, 4Fh	; 'O'
		cmp	di, 7D00h
		jl	short loc_EDE8
		sub	di, 7D00h

loc_EDE8:
		loop	loc_EDDA
		pop	di
		pop	si
		pop	bp
		retn	6
sub_ED9F	endp


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

; Attributes: bp-based frame

sub_EDF0	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		mov	dx, 16
		add	dx, _scroll_line
		cmp	dx, RES_Y
		jl	short loc_EE0B
		sub	dx, RES_Y

loc_EE0B:
		mov	ax, [bp+arg_2]
		sar	ax, 3
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	si, 0C92h
		add	si, 4
		mov	cx, 4
		mov	dx, 10h
		mov	bx, [bp+arg_0]
		mov	al, 0FFh

loc_EE2E:
		mov	es:[di], al
		add	di, 50h	; 'P'
		cmp	di, 7D00h
		jl	short loc_EE3E
		sub	di, 7D00h

loc_EE3E:
		inc	dx
		cmp	dx, bx
		jl	short loc_EE47
		mov	al, [si]
		inc	si
		dec	cx

loc_EE47:
		cmp	cx, 0
		ja	short loc_EE2E
		pop	di
		pop	si
		pop	bp
		retn	4
sub_EDF0	endp


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

; Attributes: bp-based frame

sub_EE52	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	di
		mov	cx, 10h
		mov	di, [bp+arg_0]
		mov	bx, 0FFFFh

loc_EE5F:
		mov	es:[di], bx
		add	di, 50h	; 'P'
		cmp	di, 7D00h
		jl	short loc_EE6F
		sub	di, 7D00h

loc_EE6F:
		loop	loc_EE5F
		pop	di
		pop	bp
		retn	2
sub_EE52	endp


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

; Attributes: bp-based frame

sub_EE76	proc near

arg_0		= byte ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		mov	dx, [bp+arg_2]
		add	dx, _scroll_line
		cmp	dx, RES_Y
		jl	short loc_EE91
		sub	dx, RES_Y

loc_EE91:
		mov	ax, [bp+arg_4]
		sar	ax, 3
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	al, 80h
		mov	ah, [bp+arg_0]
		xor	si, si

loc_EEAA:
		test	al, ah
		jz	short loc_EEB2
		push	di
		call	sub_EE52

loc_EEB2:
		shr	al, 1
		add	di, 2
		inc	si
		cmp	si, 8
		jl	short loc_EEAA
		pop	di
		pop	si
		pop	bp
		retn	6
sub_EE76	endp


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

; Attributes: bp-based frame

sub_EEC3	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		mov	bx, word_205F0
		mov	ax, [bx]
		mov	word_205F8, ax
		mov	ax, [bp+arg_0]
		add	word_205F8, ax
		cmp	word_205F8, 10h
		jge	short loc_EEE5
		mov	word_205F8, 10h
		jmp	short loc_EEF3
; ---------------------------------------------------------------------------

loc_EEE5:
		cmp	word_205F8, 158h
		jle	short loc_EEF3
		mov	word_205F8, 158h

loc_EEF3:
		mov	bx, word_205F0
		mov	ax, word_205F8
		mov	[bx], ax
		mov	bx, word_205EE
		mov	ax, [bx]
		mov	word_205F6, ax
		mov	ax, [bp+arg_2]
		add	word_205F6, ax
		cmp	word_205F6, 186h
		jl	short loc_EF1C
		mov	word_205F6, 186h
		jmp	short loc_EF29
; ---------------------------------------------------------------------------

loc_EF1C:
		cmp	word_205F6, 1Ch
		jg	short loc_EF29
		mov	word_205F6, 1Ch

loc_EF29:
		mov	bx, word_205EE
		mov	ax, word_205F6
		mov	[bx], ax
		pop	bp
		retn	4
sub_EEC3	endp


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

; Attributes: bp-based frame

sub_EF36	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	byte_20606, 0
		jnz	short loc_EF4F
		cmp	byte_20605, 0
		jz	short loc_EF54
		cmp	byte_1E517, 0
		jnz	short loc_EF54

loc_EF4F:
		mov	_player_is_hit, 0

loc_EF54:
		cmp	byte_20605, 0
		jbe	short loc_EF5F
		dec	byte_20605

loc_EF5F:
		call	sub_D488
		cmp	_player_is_hit, 0
		jz	short loc_EF7F
		call	sub_EFF2
		cmp	_player_is_hit, 0FFh
		jnz	short loc_EFEF
		mov	byte_20607, 1
		mov	_player_is_hit, 0
		jmp	short loc_EFEF
; ---------------------------------------------------------------------------

loc_EF7F:
		mov	al, byte_20605
		mov	ah, 0
		and	ax, 3
		cmp	ax, 3
		jge	short loc_EFAC
		mov	si, word_205F8
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_EF9E
		sub	si, RES_Y

loc_EF9E:
		push	word_205F6
		push	si
		push	word_1E512
		call	super_roll_put

loc_EFAC:
		cmp	power, 8
		jb	short loc_EFEF
		mov	bx, word_205F4
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_EFC7
		sub	si, RES_Y

loc_EFC7:
		mov	bx, word_205F2
		push	word ptr [bx]
		push	si
		mov	al, byte_1E51B
		mov	ah, 0
		push	ax
		call	super_roll_put_tiny
		mov	bx, word_205F2
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		push	si
		mov	al, byte_1E51B
		mov	ah, 0
		push	ax
		call	super_roll_put_tiny

loc_EFEF:
		pop	si
		pop	bp
		retn
sub_EF36	endp


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

; Attributes: bp-based frame

sub_EFF2	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		cmp	byte_20609, 0
		jnz	short loc_F03D
		call	_snd_se_play c, 2
		mov	byte_1E517, 1
		inc	byte_20608
		nopcall	sub_DCFE
		inc	byte_1EB0C
		mov	bx, word_205EE
		mov	ax, [bx]
		add	ax, 10h
		push	ax
		mov	bx, word_205F0
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		push	800010h
		push	1
		call	sub_4090

loc_F03D:
		mov	bx, word_205EE
		mov	ax, [bx]
		mov	word_205F6, ax
		mov	bx, word_205F0
		mov	ax, [bx]
		mov	word_205F8, ax
		inc	byte_20609
		cmp	byte_20609, 18h
		jnb	short loc_F08A
		mov	al, byte_20609
		mov	ah, 0
		sar	ax, 2
		add	ax, 4
		mov	[bp+var_2], ax
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_F078
		sub	si, RES_Y

loc_F078:
		mov	bx, word_205EE
		push	word ptr [bx]
		push	si
		push	[bp+var_2]
		call	super_roll_put
		jmp	loc_F1D5
; ---------------------------------------------------------------------------

loc_F08A:
		cmp	byte_20609, 18h
		jnz	loc_F12A
		mov	byte_20605, 0DCh
		cmp	word_20272, 2
		jle	short loc_F0A7
		mov	word_20272, 0
		jmp	short loc_F0B9
; ---------------------------------------------------------------------------

loc_F0A7:
		sub	word_20272, 2
		cmp	word_20272, 0FFFAh
		jge	short loc_F0B9
		mov	word_20272, 0FFFAh

loc_F0B9:
		mov	bx, word_205EE
		mov	ax, [bx]
		add	ax, 10h
		push	ax
		mov	bx, word_205F0
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		push	800020h
		push	1
		call	sub_4090
		cmp	lives, 0
		jnz	short loc_F107
		mov	byte_20609, 0
		mov	byte_218A1, 1
		mov	bx, word_205EE
		push	word ptr [bx]
		mov	bx, word_205F0
		push	word ptr [bx]
		call	sub_D743
		mov	byte_218A1, 0
		mov	_player_is_hit, 0FFh
		jmp	loc_F1D5
; ---------------------------------------------------------------------------

loc_F107:
		mov	al, shot_level
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+109Fh]
		mov	power, al
		call	sub_DEAD
		mov	bx, word_205EE
		push	word ptr [bx]
		mov	bx, word_205F0
		push	word ptr [bx]
		call	sub_D743
		jmp	loc_F1D5
; ---------------------------------------------------------------------------

loc_F12A:
		cmp	byte_20609, 2Bh	; '+'
		jnb	short loc_F13B
		mov	bx, word_205F0
		add	word ptr [bx], 4
		jmp	loc_F1D5
; ---------------------------------------------------------------------------

loc_F13B:
		cmp	byte_20609, 2Bh	; '+'
		jnz	short loc_F198
		dec	lives
		call	sub_DF76
		les	bx, mikoconfig
		assume es:nothing
		mov	al, es:[bx+mikoconfig_t.start_bombs]
		mov	bombs, al
		cmp	lives, 0
		jnz	short loc_F160
		add	al, 2
		mov	bombs, al

loc_F160:
		call	sub_DFC4
		mov	bx, word_205EE
		mov	ax, [bx]
		add	ax, 10h
		push	ax
		mov	bx, word_205F0
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		push	800010h
		push	1
		call	sub_4090
		mov	ax, 0D0h
		mov	word_205E6, ax
		mov	word_205E8, ax
		mov	ax, 16Eh
		mov	word_205EA, ax
		mov	word_205EC, ax
		jmp	short loc_F1D5
; ---------------------------------------------------------------------------

loc_F198:
		cmp	byte_20609, 44h	; 'D'
		jnb	short loc_F1C6
		mov	bx, word_205F0
		sub	word ptr [bx], 2
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_F1B6
		sub	si, RES_Y

loc_F1B6:
		mov	bx, word_205EE
		push	word ptr [bx]
		push	si
		push	0
		call	super_roll_put
		jmp	short loc_F1D5
; ---------------------------------------------------------------------------

loc_F1C6:
		mov	byte_20609, 0
		mov	byte_1E517, 0
		mov	_player_is_hit, 0

loc_F1D5:
		pop	si
		leave
		retn
sub_EFF2	endp


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

; Attributes: bp-based frame

sub_F1D8	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	byte_20606, 0
		jnz	short loc_F1F2
		cmp	byte_20605, 0
		jz	short loc_F1F7
		cmp	byte_1E517, 0
		jnz	short loc_F1F7

loc_F1F2:
		mov	_player_is_hit, 0

loc_F1F7:
		cmp	_player_is_hit, 0
		jnz	loc_F43E
		mov	ax, _input
		and	ax, 0F000h
		cmp	ax, 4000h
		jz	loc_F29E
		ja	short loc_F21B
		cmp	ax, 1000h
		jz	short loc_F270
		cmp	ax, 2000h
		jz	short loc_F288
		jmp	short loc_F222
; ---------------------------------------------------------------------------

loc_F21B:
		cmp	ax, 8000h
		jz	loc_F2A4

loc_F222:
		mov	bx, _input
		and	bx, 0Fh
		dec	bx
		cmp	bx, 9
		ja	loc_F2B8
		add	bx, bx
		jmp	cs:off_F443[bx]

loc_F238:
		mov	al, _playchar_speed_aligned_y
		cbw
		neg	ax
		mov	di, ax
		xor	si, si
		jmp	short loc_F2BC
; ---------------------------------------------------------------------------

loc_F244:
		mov	al, _playchar_speed_aligned_y
		cbw
		mov	di, ax
		xor	si, si
		jmp	short loc_F2BC
; ---------------------------------------------------------------------------

loc_F24E:
		mov	al, _playchar_speed_aligned_x
		cbw
		neg	ax
		mov	si, ax
		xor	di, di
		mov	word_1E512, 2
		jmp	short loc_F2C2
; ---------------------------------------------------------------------------

loc_F260:
		mov	al, _playchar_speed_aligned_x
		cbw
		mov	si, ax
		xor	di, di
		mov	word_1E512, 3
		jmp	short loc_F2C2
; ---------------------------------------------------------------------------

loc_F270:
		mov	al, _playchar_speed_diagonal_y
		cbw
		neg	ax

loc_F276:
		mov	di, ax
		mov	al, _playchar_speed_diagonal_x
		cbw
		neg	ax
		mov	si, ax
		mov	word_1E512, 2
		jmp	short loc_F2C2
; ---------------------------------------------------------------------------

loc_F288:
		mov	al, _playchar_speed_diagonal_y
		cbw
		neg	ax
		mov	di, ax
		mov	al, _playchar_speed_diagonal_x
		cbw
		mov	si, ax
		mov	word_1E512, 3
		jmp	short loc_F2C2
; ---------------------------------------------------------------------------

loc_F29E:
		mov	al, _playchar_speed_diagonal_y
		cbw
		jmp	short loc_F276
; ---------------------------------------------------------------------------

loc_F2A4:
		mov	al, _playchar_speed_diagonal_y
		cbw
		mov	di, ax
		mov	al, _playchar_speed_diagonal_x
		cbw
		mov	si, ax
		mov	word_1E512, 3
		jmp	short loc_F2C2
; ---------------------------------------------------------------------------

loc_F2B8:
		xor	si, si
		xor	di, di

loc_F2BC:
		mov	word_1E512, 0

loc_F2C2:
		mov	al, _playchar_speed_aligned_x
		cbw
		cmp	ax, 5
		jnz	short loc_F2FB
		or	si, si
		jge	short loc_F2D8
		mov	al, _page_back
		mov	ah, 0
		add	si, ax
		jmp	short loc_F2E3
; ---------------------------------------------------------------------------

loc_F2D8:
		or	si, si
		jle	short loc_F2E3
		mov	al, _page_back
		mov	ah, 0
		sub	si, ax

loc_F2E3:
		or	di, di
		jge	short loc_F2F0
		mov	al, _page_back
		mov	ah, 0
		add	di, ax
		jmp	short loc_F2FB
; ---------------------------------------------------------------------------

loc_F2F0:
		or	di, di
		jle	short loc_F2FB
		mov	al, _page_back
		mov	ah, 0
		sub	di, ax

loc_F2FB:
		push	si
		push	di
		call	sub_EEC3
		mov	ax, word_205F6
		add	ax, 0FFF0h
		sub	ax, si
		mov	bx, word_205F2
		mov	[bx], ax
		mov	ax, word_205F8
		add	ax, 10h
		sub	ax, di
		mov	bx, word_205F4
		mov	[bx], ax
		test	byte ptr _input, INPUT_SHOT
		jz	short loc_F349
		cmp	byte_1EB0D, 0FFh
		jnz	short loc_F336
		mov	byte_1EB0D, 0
		mov	byte_22D4A, 0
		jmp	short loc_F368
; ---------------------------------------------------------------------------

loc_F336:
		cmp	byte_1EB0E, 0FFh
		jnz	short loc_F368
		mov	byte_1EB0E, 0
		mov	byte_22D4B, 0
		jmp	short loc_F368
; ---------------------------------------------------------------------------

loc_F349:
		cmp	byte_1EB0D, 3
		jb	short loc_F35C
		mov	byte_1EB0D, 0FFh
		mov	byte_1EB0E, 4
		jmp	short loc_F368
; ---------------------------------------------------------------------------

loc_F35C:
		cmp	byte_1EB0E, 2
		jb	short loc_F368
		mov	byte_1EB0E, 0FFh

loc_F368:
		cmp	byte_1EB0D, 0FFh
		jz	short loc_F3B3
		cmp	byte_22D4A, 0
		jnz	short loc_F3AF
		cmp	shot_level, 9
		jnz	short loc_F38B
		mov	al, byte_2060E
		mov	byte_1E519, al
		mov	al, byte_2060F
		mov	byte_1E51A, al
		jmp	short loc_F395
; ---------------------------------------------------------------------------

loc_F38B:
		mov	byte_1E519, 34h	; '4'
		mov	byte_1E51A, 3Fh	; '?'

loc_F395:
		call	playchar_shot_func
		call	_snd_se_play c, 1
		mov	byte_22D4A, 8
		inc	byte_1EB0D
		jmp	loc_F434
; ---------------------------------------------------------------------------

loc_F3AF:
		dec	byte_22D4A

loc_F3B3:
		cmp	byte_1EB0E, 2
		jnb	short loc_F434
		cmp	byte_22D4B, 0
		jnz	short loc_F426
		cmp	shot_level, 9
		jnz	short loc_F40D
		mov	al, byte_2060E
		mov	byte_1E519, al
		mov	al, byte_2060F
		mov	byte_1E51A, al
		test	_input, INPUT_DOWN or INPUT_DOWN_LEFT or INPUT_DOWN_RIGHT
		jz	short loc_F3F1
		mov	al, byte_20610
		add	al, 5
		mov	byte_20610, al
		cbw
		cmp	ax, 1Ah
		jle	short loc_F417
		mov	byte_20610, 1Ah
		jmp	short loc_F417
; ---------------------------------------------------------------------------

loc_F3F1:
		test	_input, INPUT_UP or INPUT_DOWN or INPUT_LEFT or INPUT_RIGHT or INPUT_UP_LEFT or INPUT_UP_RIGHT or INPUT_DOWN_LEFT or INPUT_DOWN_RIGHT
		jnz	short loc_F417
		mov	al, byte_20610
		add	al, 0FBh
		mov	byte_20610, al
		cbw
		or	ax, ax
		jge	short loc_F417
		mov	byte_20610, 0
		jmp	short loc_F417
; ---------------------------------------------------------------------------

loc_F40D:
		mov	byte_1E519, 34h	; '4'
		mov	byte_1E51A, 3Fh	; '?'

loc_F417:
		call	playchar_shot_func
		mov	byte_22D4B, 8
		inc	byte_1EB0E
		jmp	short loc_F434
; ---------------------------------------------------------------------------

loc_F426:
		call	_snd_se_play c, 1
		dec	byte_22D4B

loc_F434:
		test	byte ptr _input, INPUT_BOMB
		jz	short loc_F43E
		call	sub_E280

loc_F43E:
		pop	di
		pop	si
		pop	bp
		retn
sub_F1D8	endp

; ---------------------------------------------------------------------------
		db 0
off_F443	dw offset loc_F238
		dw offset loc_F244
		dw offset loc_F2B8
		dw offset loc_F24E
		dw offset loc_F270
		dw offset loc_F29E
		dw offset loc_F2B8
		dw offset loc_F260
		dw offset loc_F288
		dw offset loc_F2A4
main_01_TEXT	ends

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

main_02_TEXT	segment	word public 'CODE' use16
	extern ZUN_ERROR:proc
	extern _key_delay:proc
	extern MPTN_LOAD:proc
	extern MPTN_FREE:proc
	extern _vram_planes_set:proc
	extern _pi_slot_load:proc
	extern VECTOR:proc
	extern VECTOR_BETWEEN:proc
	extern FRAME_DELAY:proc
	extern _input_sense:proc
	extern _game_exit:proc
	extern _snd_mmd_resident:proc
	extern _snd_determine_mode:proc
	extern _snd_pmd_resident:proc
	extern _snd_delay_until_volume:proc
	extern _snd_load:proc
	extern _game_init_main:proc
	extern _pi_slot_palette_apply:proc
	extern _pi_slot_put:proc
	extern _snd_kaja_interrupt:proc
	extern _snd_se_reset:proc
	extern _snd_se_play:proc
	extern _snd_se_update:proc
main_02_TEXT	ends

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

; Segment type:	Pure code
main_03_TEXT	segment	byte public 'CODE' use16
		assume cs:main_03_TEXT
		;org 6
		assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing

RANDRING_NEXT_DEF 2

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

; Attributes: bp-based frame

sub_FAFC	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, 0A800h
		mov	es, ax
		assume es:nothing
		mov	ax, [bp+arg_2]
		sar	ax, 3
		mov	dx, [bp+arg_0]
		shl	dx, 6
		add	ax, dx
		shr	dx, 2
		add	ax, dx
		mov	di, ax
		mov	ax, [bp+arg_2]
		and	ax, 7
		shl	ax, 4
		add	ax, 900h
		mov	si, ax
		mov	cx, 8

loc_FB2C:
		movsw
		add	di, 4Eh	; 'N'
		cmp	di, 7D00h
		jl	short loc_FB3A
		sub	di, 7D00h

loc_FB3A:
		loop	loc_FB2C
		pop	di
		pop	si
		pop	bp
		retn	4
sub_FAFC	endp


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

; Attributes: bp-based frame

sub_FB42	proc near

var_B		= byte ptr -0Bh
var_A		= dword	ptr -0Ah
var_6		= dword	ptr -6
var_2		= word ptr -2
arg_0		= dword	ptr  4
arg_4		= word ptr  8
arg_6		= word ptr  0Ah
arg_8		= word ptr  0Ch

		enter	0Ch, 0
		push	si
		push	di
		mov	di, [bp+arg_4]
		mov	[bp+var_2], 0A0h
		mov	[bp+var_6], 989680h
		mov	[bp+var_B], 0
		mov	si, 8
		jmp	short loc_FB75
; ---------------------------------------------------------------------------

loc_FB61:
		mov	ebx, 0Ah
		mov	eax, [bp+var_6]
		cdq
		idiv	ebx
		mov	[bp+var_6], eax
		dec	si

loc_FB75:
		cmp	si, di
		jg	short loc_FB61
		xor	si, si
		jmp	short loc_FBDF
; ---------------------------------------------------------------------------

loc_FB7D:
		mov	eax, [bp+arg_0]
		cdq
		idiv	[bp+var_6]
		mov	ebx, 0Ah
		cdq
		idiv	ebx
		mov	[bp+var_A], edx
		mov	eax, [bp+var_6]
		cdq
		idiv	ebx
		mov	[bp+var_6], eax
		mov	ax, word ptr [bp+var_A]
		add	ax, 0A0h
		mov	[bp+var_2], ax
		cmp	[bp+var_A], 0
		jz	short loc_FBB7
		mov	[bp+var_B], 1

loc_FBB7:
		lea	ax, [di-1]
		cmp	ax, si
		jnz	short loc_FBC2
		mov	[bp+var_B], 1

loc_FBC2:
		cmp	[bp+var_B], 0
		jz	short loc_FBDE
		mov	ax, si
		add	ax, ax
		add	ax, [bp+arg_8]
		call	gaiji_putca pascal, ax, [bp+arg_6], [bp+var_2], TX_WHITE

loc_FBDE:
		inc	si

loc_FBDF:
		cmp	si, di
		jl	short loc_FB7D
		pop	di
		pop	si
		leave
		retn	0Ah
sub_FB42	endp


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

; Attributes: bp-based frame

sub_FBE9	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, 1
		jmp	short loc_FC0C
; ---------------------------------------------------------------------------

loc_FBF3:
		mov	di, 4
		jmp	short loc_FC06
; ---------------------------------------------------------------------------

loc_FBF8:
		call	text_putca pascal, di, si, (' ' shl 16) + TX_WHITE
		inc	di

loc_FC06:
		cmp	di, 52
		jl	short loc_FBF8
		inc	si

loc_FC0C:
		cmp	si, 24
		jl	short loc_FBF3
		pop	di
		pop	si
		pop	bp
		retf
sub_FBE9	endp


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

; Attributes: bp-based frame

sub_FC15	proc near

arg_0		= word ptr  4
arg_2		= dword	ptr  6
arg_6		= dword	ptr  0Ah
arg_A		= word ptr  0Eh

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_A]
		mov	si, [bp+arg_0]
		call	text_putsa pascal, 8, di, [bp+arg_6], TX_WHITE
		push	16h
		push	di
		push	5
		movsx	eax, si
		push	eax
		call	sub_FB42
		mov	bx, 0Ah
		mov	ax, si
		cwd
		idiv	bx
		mov	si, ax
		les	bx, [bp+arg_2]
		assume es:nothing
		add	es:[bx], si
		pop	di
		pop	si
		pop	bp
		retn	0Ch
sub_FC15	endp


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

; Attributes: bp-based frame

sub_FC53	proc near

var_C		= byte ptr -0Ch
var_6		= word ptr -6
var_4		= dword	ptr -4

		enter	0Ch, 0
		push	si
		mov	[bp+var_6], 0
		lea	ax, [bp+var_C]
		push	ss
		push	ax
		push	ds
		push	offset gBONUS
		mov	cx, 6
		call	SCOPY@
		call	sub_FBE9
		mov	PaletteTone, 3Eh	; '>'
		call	far ptr	palette_show
		push	(24 shl 16) + 4
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	TX_WHITE
		call	gaiji_putsa
		push	6
		push	ds
		push	offset aUqiUx	; " 難易度"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		mov	al, _rank
		cbw
		imul	ax, 7D0h
		push	ax
		call	sub_FC15
		push	8
		push	ds
		push	offset aGxgebGw	; "ステージ"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		mov	ax, word_20272
		add	ax, 10h
		imul	ax, 0C8h
		push	ax
		call	sub_FC15
		mov	al, byte_218C2
		mov	ah, 0
		imul	ax, 1F4h
		mov	dx, 9C4h
		sub	dx, ax
		mov	si, dx
		or	si, si
		jge	short loc_FCD6
		xor	si, si

loc_FCD6:
		push	0Ah
		push	ds
		push	offset aGGa	; "ボム"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	si
		call	sub_FC15
		mov	al, byte_20608
		mov	ah, 0
		imul	ax, 3E8h
		mov	dx, 0BB8h
		sub	dx, ax
		mov	si, dx
		or	si, si
		jge	short loc_FCFB
		xor	si, si

loc_FCFB:
		push	0Ch
		push	ds
		push	offset aGGx	; "ミス"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	si
		call	sub_FC15
		push	0Eh
		push	ds
		push	offset aSMvpik	; "靈撃初期数"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.start_bombs]
		mov	ah, 0
		mov	dx, 4
		sub	dx, ax
		imul	dx, 320h
		push	dx
		call	sub_FC15
		push	10h
		push	ds
		push	offset aSCPik	; "靈夢初期数"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.start_lives]
		mov	ah, 0
		mov	dx, 4
		sub	dx, ax
		imul	dx, 3E8h
		push	dx
		call	sub_FC15
		cmp	[bp+var_6], 6400h
		jle	short loc_FD5A
		mov	[bp+var_6], 6400h

loc_FD5A:
		call	text_putsa pascal, (6 shl 16) + 18, ds, offset aU_, TX_WHITE
		push	0A0012h
		push	3
		movsx	eax, word_2189E
		push	eax
		call	sub_FB42
		call	text_putsa pascal, (18 shl 16) + 18, ds, offset aB, TX_WHITE
		movsx	eax, [bp+var_6]
		mov	[bp+var_4], eax
		imul	eax, 0Ah
		mov	[bp+var_4], eax
		push	160012h
		push	5
		push	eax
		call	sub_FB42
		call	text_putsa pascal, (34 shl 16) + 18, ds, offset aBb, TX_WHITE
		movsx	eax, word_2189E
		imul	eax, [bp+var_4]
		mov	[bp+var_4], eax
		push	260012h
		push	6
		push	eax
		call	sub_FB42
		mov	ebx, 0Ah
		mov	eax, [bp+var_4]
		cdq
		idiv	ebx
		mov	[bp+var_4], eax
		add	dword_218AC, eax
		call	_snd_se_reset
		call	sub_DE4E
		call	_snd_se_update
		mov	_input, 1
		call	_key_delay
		pop	si
		leave
		retn
sub_FC53	endp


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

; Attributes: bp-based frame

sub_FE12	proc near

var_C		= byte ptr -0Ch
var_6		= word ptr -6
var_4		= dword	ptr -4

		enter	0Ch, 0
		push	si
		mov	[bp+var_6], 0
		lea	ax, [bp+var_C]
		push	ss
		push	ax
		push	ds
		push	offset gBONUS_0
		mov	cx, 6
		call	SCOPY@
		call	sub_FBE9
		mov	PaletteTone, 3Eh	; '>'
		call	far ptr	palette_show
		push	(24 shl 16) + 4
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	TX_WHITE
		call	gaiji_putsa
		push	6
		push	ds
		push	offset aGngkga	; "クリア"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	2710h
		call	sub_FC15
		mov	al, byte_20608
		mov	ah, 0
		imul	ax, 0FA0h
		mov	dx, 4E20h
		sub	dx, ax
		mov	si, dx
		or	si, si
		jge	short loc_FE76
		xor	si, si

loc_FE76:
		push	8
		push	ds
		push	offset aGGxi	; "ミス回数"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	si
		call	sub_FC15
		mov	al, byte_218C2
		mov	ah, 0
		imul	ax, 0FA0h
		mov	dx, 4E20h
		sub	dx, ax
		mov	si, dx
		or	si, si
		jge	short loc_FE9B
		xor	si, si

loc_FE9B:
		push	0Ah
		push	ds
		push	offset aGGai	; "ボム回数"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	si
		call	sub_FC15
		mov	ax, 4E20h
		sub	ax, word ptr dword_20682
		mov	si, ax
		or	si, si
		jge	short loc_FEB9
		xor	si, si

loc_FEB9:
		mov	bx, 0Ah
		mov	ax, si
		cwd
		idiv	bx
		mov	si, ax
		mov	ax, 0Ah
		imul	si
		mov	si, ax
		push	0Ch
		push	ds
		push	offset aGngkgagGcga ; "クリアタイム"
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		push	si
		call	sub_FC15
		call	text_putsa pascal, (6 shl 16) + 18, ds, offset aU_, TX_WHITE
		push	0A0012h
		push	3
		movsx	eax, word_2189E
		push	eax
		call	sub_FB42
		call	text_putsa pascal, (18 shl 16) + 18, ds, offset aB, TX_WHITE
		movsx	eax, [bp+var_6]
		mov	[bp+var_4], eax
		imul	eax, 0Ah
		mov	[bp+var_4], eax
		push	160012h
		push	5
		push	eax
		call	sub_FB42
		call	text_putsa pascal, (34 shl 16) + 18, ds, offset aBb, TX_WHITE
		movsx	eax, word_2189E
		imul	eax, [bp+var_4]
		mov	[bp+var_4], eax
		push	240012h
		push	7
		push	eax
		call	sub_FB42
		mov	ebx, 0Ah
		mov	eax, [bp+var_4]
		cdq
		idiv	ebx
		mov	[bp+var_4], eax
		add	dword_218AC, eax
		call	_snd_se_reset
		call	sub_DE4E
		call	_snd_se_update
		mov	_input, 1
		call	_key_delay
		pop	si
		leave
		retn
sub_FE12	endp


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

; Attributes: bp-based frame

sub_FF91	proc near
		push	bp
		mov	bp, sp
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		graph_accesspage _page_front
		push	20000h
		push	3018Fh
		call	grcg_byteboxfill_x
		push	340000h
		push	35018Fh
		call	grcg_byteboxfill_x
		graph_accesspage _page_back
		push	20000h
		push	3018Fh
		call	grcg_byteboxfill_x
		push	340000h
		push	35018Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		pop	bp
		retn
sub_FF91	endp


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

; Attributes: bp-based frame

sub_FFF8	proc near

var_A		= byte ptr -0Ah
var_9		= byte ptr -9
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		enter	0Ah, 0
		push	si
		push	di
		cmp	[bp+arg_0], 0
		jl	loc_10286
		cmp	[bp+arg_0], 0
		jnz	short loc_1000F
		call	sub_FF91

loc_1000F:
		cmp	[bp+arg_0], 20h	; ' '
		jge	loc_100A0
		cmp	[bp+arg_0], 1
		jnz	short loc_10025
		call	_snd_se_play stdcall, 18
		pop	cx

loc_10025:
		add	[bp+arg_4], 7
		cmp	[bp+arg_0], 2
		jl	short loc_1005C
		call	egc_start_copy_noframe
		sub	[bp+arg_0], 2
		mov	ax, [bp+arg_0]
		shl	ax, 3
		mov	dx, 0F0h
		sub	dx, ax
		mov	si, dx
		push	[bp+arg_4]
		push	[bp+arg_2]
		push	dx
		push	2
		call	sub_1C341
		add	[bp+arg_0], 2
		call	egc_off

loc_1005C:
		cmp	[bp+arg_0], 1Eh
		jge	loc_10286
		mov	ax, [bp+arg_0]
		and	ax, 1
		imul	ax, 0Bh
		add	al, 4
		mov	[bp+var_A], al
		push	GC_RMW
		mov	ah, 0
		push	ax
		call	grcg_setcolor
		mov	ax, [bp+arg_0]
		shl	ax, 3
		mov	dx, 0F0h
		sub	dx, ax
		mov	si, dx
		push	[bp+arg_4]
		push	[bp+arg_2]
		push	dx
		push	2
		call	sub_1C287
		call	grcg_off
		jmp	loc_10286
; ---------------------------------------------------------------------------

loc_100A0:
		sub	[bp+arg_0], 20h	; ' '
		cmp	[bp+arg_0], 1Ah
		jge	loc_10286
		cmp	[bp+arg_0], 0
		jnz	short loc_100BA
		call	_snd_se_play stdcall, 14
		pop	cx

loc_100BA:
		cmp	[bp+arg_0], 2
		jl	loc_10171
		sub	[bp+arg_0], 2
		mov	ax, [bp+arg_0]
		shl	ax, 4
		mov	si, ax
		call	egc_start_copy_noframe
		mov	[bp+var_8], 0
		jmp	loc_1015A
; ---------------------------------------------------------------------------

loc_100DB:
		mov	al, byte ptr [bp+var_8]
		add	al, byte ptr [bp+arg_0]
		mov	[bp+var_9], al
		movsx	eax, si
		mov	dl, [bp+var_9]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_4]
		mov	di, ax
		movsx	eax, si
		mov	dl, [bp+var_9]
		mov	dh, 0
		mov	bl, byte_1E510
		mov	bh, 0
		add	dx, bx
		and	dx, 0FFh
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_2]
		mov	[bp+var_2], ax
		cmp	di, 10h
		jl	short loc_10156
		cmp	di, 1A0h
		jge	short loc_10156
		cmp	[bp+var_2], 0
		jle	short loc_10156
		cmp	[bp+var_2], 180h
		jge	short loc_10156
		push	di
		push	ax
		push	100010h
		call	sub_45FC

loc_10156:
		add	[bp+var_8], 4

loc_1015A:
		cmp	[bp+var_8], 100h
		jl	loc_100DB
		add	[bp+arg_0], 2
		call	sub_4692
		call	egc_off

loc_10171:
		mov	byte_2066D, 1
		cmp	[bp+arg_0], 18h
		jge	loc_10286
		mov	ax, [bp+arg_0]
		mov	bx, 6
		cwd
		idiv	bx
		add	ax, 58h	; 'X'
		mov	[bp+var_4], ax
		mov	ax, [bp+arg_0]
		shl	ax, 4
		mov	si, ax
		mov	[bp+var_8], 0
		jmp	loc_10230
; ---------------------------------------------------------------------------

loc_1019D:
		mov	al, byte ptr [bp+var_8]
		add	al, byte ptr [bp+arg_0]
		mov	[bp+var_9], al
		movsx	eax, si
		mov	dl, [bp+var_9]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_4]
		mov	di, ax
		movsx	eax, si
		mov	dl, [bp+var_9]
		mov	dh, 0
		mov	bl, byte_1E510
		mov	bh, 0
		add	dx, bx
		and	dx, 0FFh
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_2]
		mov	[bp+var_2], ax
		mov	[bp+var_6], ax
		mov	ax, _scroll_line
		add	[bp+var_6], ax
		cmp	[bp+var_6], RES_Y
		jl	short loc_10208
		sub	[bp+var_6], RES_Y

loc_10208:
		cmp	di, 10h
		jle	short loc_1022C
		cmp	di, 1A0h
		jge	short loc_1022C
		cmp	[bp+var_2], 0
		jle	short loc_1022C
		cmp	[bp+var_2], 180h
		jge	short loc_1022C
		push	di
		push	[bp+var_6]
		push	[bp+var_4]
		call	super_roll_put_tiny

loc_1022C:
		add	[bp+var_8], 4

loc_10230:
		cmp	[bp+var_8], 100h
		jl	loc_1019D
		mov	byte_2066D, 2
		cmp	[bp+arg_0], 8
		jg	short loc_10258
		mov	ax, [bp+arg_0]
		and	ax, 1
		imul	ax, 46h
		add	ax, 64h	; 'd'
		mov	PaletteTone, ax
		call	far ptr	palette_show

loc_10258:
		cmp	[bp+arg_0], 14h
		jg	short loc_10286
		mov	ax, [bp+arg_0]
		and	ax, 1
		mov	[bp+var_8], ax
		mov	ax, RES_Y
		sub	ax, _scroll_line
		push	ax
		mov	ax, _scroll_line
		imul	ax, 40
		add	ax, [bp+var_8]
		push	ax
		push	[bp+var_8]
		call	graph_scroll
		mov	byte_2066D, 3

loc_10286:
		pop	di
		pop	si
		leave
		retn	6
sub_FFF8	endp


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

; Attributes: bp-based frame

sub_1028C	proc far
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_102A9
; ---------------------------------------------------------------------------

loc_10294:
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+2BD4h], 0
		mov	byte ptr [si+2BF0h], 0
		mov	byte ptr [si+2BF5h], 0
		inc	si

loc_102A9:
		cmp	si, 5
		jl	short loc_10294
		mov	word_20650, 0
		mov	byte_2066A, 0
		mov	word_2065A, 0
		mov	byte_2066B, 0
		mov	dword_20682, 0
		mov	word_20686, 0
		pop	si
		pop	bp
		retf
sub_1028C	endp


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

; Attributes: bp-based frame

sub_102D6	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	byte_2066C, 0
		jnz	short loc_102EE
		mov	byte_2174B, 1
		mov	byte_2174C, 30h	; '0'
		jmp	short loc_102F8
; ---------------------------------------------------------------------------

loc_102EE:
		mov	byte_2174B, 7
		mov	byte_2174C, 18h

loc_102F8:
		mov	si, 2C18h
		xor	di, di
		jmp	short loc_10306
; ---------------------------------------------------------------------------

loc_102FF:
		mov	byte ptr [si], 0
		inc	di
		add	si, 14h

loc_10306:
		cmp	di, 96h
		jl	short loc_102FF
		mov	si, 37D0h
		xor	di, di
		jmp	short loc_1033F
; ---------------------------------------------------------------------------

loc_10313:
		mov	byte ptr [si], 0
		call	IRand
		mov	[si+10h], al
		call	IRand
		and	al, 3Fh
		mov	[si+11h], al
		mov	al, byte_2174B
		mov	ah, 0
		test	ax, di
		jnz	short loc_10337
		mov	byte ptr [si+13h], 0Eh
		jmp	short loc_1033B
; ---------------------------------------------------------------------------

loc_10337:
		mov	byte ptr [si+13h], 0

loc_1033B:
		inc	di
		add	si, 14h

loc_1033F:
		cmp	di, 40h
		jl	short loc_10313
		mov	word_21744, 1
		mov	word_21746, 40h
		mov	word_21748, 1
		cmp	_rank, RANK_EASY
		jnz	short loc_10361
		mov	al, 0F6h
		jmp	short loc_1038A
; ---------------------------------------------------------------------------

loc_10361:
		mov	al, _rank
		cbw
		cmp	ax, RANK_NORMAL
		jnz	short loc_1036E
		mov	al, 0
		jmp	short loc_1038A
; ---------------------------------------------------------------------------

loc_1036E:
		mov	al, _rank
		cbw
		cmp	ax, RANK_HARD
		jnz	short loc_1037B
		mov	al, 0
		jmp	short loc_1038A
; ---------------------------------------------------------------------------

loc_1037B:
		mov	al, _rank
		cbw
		cmp	ax, RANK_LUNATIC
		jnz	short loc_10388
		mov	al, 0Ch
		jmp	short loc_1038A
; ---------------------------------------------------------------------------

loc_10388:
		mov	al, 0

loc_1038A:
		mov	byte_2174A, al
		mov	byte_21752, 0
		mov	al, _rank
		cbw
		cmp	ax, RANK_HARD
		jz	short loc_103A4
		mov	al, _rank
		cbw
		cmp	ax, RANK_LUNATIC
		jnz	short loc_103A9

loc_103A4:
		mov	byte_21752, 1

loc_103A9:
		mov	al, byte_21752
		mov	byte_21754, al
		pop	di
		pop	si
		pop	bp
		retf
sub_102D6	endp


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

; Attributes: bp-based frame

sub_103B3	proc near

var_A		= word ptr -0Ah
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8
arg_6		= dword	ptr  0Ah

		push	bp
		mov	bp, sp
		sub	sp, 0Ah
		push	si
		push	di
		mov	si, [bp+arg_2]
		mov	[bp+var_2], 0
		xor	di, di
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+4]
		mov	[bp+var_4], ax
		mov	ax, word_205F8
		add	ax, 14h
		mov	[bp+var_6], ax
		mov	ax, word_205F6
		add	ax, 0Ch
		mov	[bp+var_8], ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+si+2]
		mov	[bp+var_A], ax
		mov	bx, [bp+arg_4]
		dec	bx
		cmp	bx, 26h	; '&'
		ja	loc_1065D
		add	bx, bx
		jmp	cs:off_106C8[bx]

loc_10409:
		mov	di, 1
		jmp	loc_1065D
; ---------------------------------------------------------------------------

loc_1040F:
		add	[bp+var_2], 5

loc_10413:
		add	[bp+var_2], 3

loc_10417:
		add	[bp+var_2], 3

loc_1041B:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_1042F
		mov	ax, [bp+var_2]
		add	ax, 3
		mov	[bp+var_2], ax
		jmp	short loc_10444
; ---------------------------------------------------------------------------

loc_1042F:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 1
		jnz	short loc_10444
		mov	ax, 0FFFDh
		sub	ax, [bp+var_2]
		mov	[bp+var_2], ax
		mov	di, 1

loc_10444:
		cmp	[bp+arg_4], 3
		jg	loc_1065D
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_1044F:
		add	[bp+var_2], 8

loc_10453:
		add	[bp+var_2], 8

loc_10457:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_10467
		mov	[bp+var_2], 0
		jmp	short loc_10490
; ---------------------------------------------------------------------------

loc_10467:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 1
		jnz	short loc_1047B
		mov	ax, [bp+var_2]
		add	ax, 8
		mov	[bp+var_2], ax
		jmp	short loc_10490
; ---------------------------------------------------------------------------

loc_1047B:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 2
		jnz	short loc_10490
		mov	ax, 0FFF8h
		sub	ax, [bp+var_2]
		mov	[bp+var_2], ax
		mov	di, 1

loc_10490:
		cmp	[bp+arg_4], 9
		jg	loc_1065D
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_1049B:
		add	[bp+var_2], 6

loc_1049F:
		add	[bp+var_2], 6

loc_104A3:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_104B7
		mov	ax, [bp+var_2]
		add	ax, 3
		mov	[bp+var_2], ax
		jmp	short loc_10500
; ---------------------------------------------------------------------------

loc_104B7:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 1
		jnz	short loc_104CB
		mov	ax, 0FFFDh
		sub	ax, [bp+var_2]
		mov	[bp+var_2], ax
		jmp	short loc_10500
; ---------------------------------------------------------------------------

loc_104CB:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 2
		jnz	short loc_104E4
		mov	ax, [bp+var_2]
		add	ax, ax
		add	ax, [bp+var_2]
		add	ax, 9
		mov	[bp+var_2], ax
		jmp	short loc_10500
; ---------------------------------------------------------------------------

loc_104E4:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 3
		jnz	short loc_10500
		mov	ax, [bp+var_2]
		add	ax, ax
		add	ax, [bp+var_2]
		mov	dx, 0FFF7h
		sub	dx, ax
		mov	[bp+var_2], dx
		mov	di, 1

loc_10500:
		cmp	[bp+arg_4], 0Fh
		jg	loc_1065D
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_1050B:
		add	[bp+var_2], 6

loc_1050F:
		add	[bp+var_2], 6

loc_10513:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_10523
		mov	[bp+var_2], 0
		jmp	short loc_1057A
; ---------------------------------------------------------------------------

loc_10523:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 1
		jnz	short loc_10537
		mov	ax, [bp+var_2]
		add	ax, 6
		mov	[bp+var_2], ax
		jmp	short loc_1057A
; ---------------------------------------------------------------------------

loc_10537:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 2
		jnz	short loc_1054B
		mov	ax, 0FFFAh
		sub	ax, [bp+var_2]
		mov	[bp+var_2], ax
		jmp	short loc_1057A
; ---------------------------------------------------------------------------

loc_1054B:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 3
		jnz	short loc_10561
		mov	ax, [bp+var_2]
		add	ax, ax
		add	ax, 0Ch
		mov	[bp+var_2], ax
		jmp	short loc_1057A
; ---------------------------------------------------------------------------

loc_10561:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 4
		jnz	short loc_1057A
		mov	ax, [bp+var_2]
		add	ax, ax
		mov	dx, 0FFF4h
		sub	dx, ax
		mov	[bp+var_2], dx
		mov	di, 1

loc_1057A:
		cmp	[bp+arg_4], 15h
		jg	loc_1065D
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_10585:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_10590
		jmp	short loc_105FC
; ---------------------------------------------------------------------------

loc_10590:
		mov	[bp+var_2], 80h
		mov	di, 1
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_1059B:
		les	bx, [bp+arg_6]
		mov	ax, es:[bx]
		shl	ax, 6
		mov	[bp+var_2], ax
		cmp	word ptr es:[bx], 3
		jl	loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_105B1:
		les	bx, [bp+arg_6]
		mov	ax, es:[bx]
		shl	ax, 5
		mov	[bp+var_2], ax
		cmp	word ptr es:[bx], 7
		jl	loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_105C7:
		les	bx, [bp+arg_6]
		mov	ax, es:[bx]
		shl	ax, 4
		mov	[bp+var_2], ax
		cmp	word ptr es:[bx], 0Fh
		jl	loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_105DD:
		les	bx, [bp+arg_6]
		mov	ax, es:[bx]
		shl	ax, 3
		mov	[bp+var_2], ax
		cmp	word ptr es:[bx], 1Fh
		jl	loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_105F3:
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 0
		jnz	short loc_10604

loc_105FC:
		mov	[bp+var_2], 0
		jmp	loc_10684
; ---------------------------------------------------------------------------

loc_10604:
		mov	al, [si+10h]
		mov	ah, 0
		add	ax, ax
		mov	dx, 80h
		sub	dx, ax
		mov	[bp+var_2], dx

loc_10613:
		mov	di, 1
		jmp	short loc_10684
; ---------------------------------------------------------------------------

loc_10618:
		call	_randring2_next8
		mov	ah, 0
		mov	[bp+var_2], ax
		mov	di, 1
		jmp	short loc_10684
; ---------------------------------------------------------------------------

loc_10625:
		call	_randring2_next8
		mov	ah, 0
		mov	[bp+var_2], ax
		mov	al, [si+10h]
		mov	ah, 0
		les	bx, [bp+arg_6]
		cmp	ax, es:[bx]
		jg	short loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_1063C:
		call	_randring2_next8
		mov	ah, 0
		mov	[bp+var_2], ax
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	[bp+arg_0], ax
		mov	al, [si+10h]
		mov	ah, 0
		les	bx, [bp+arg_6]
		cmp	ax, es:[bx]
		jg	short loc_10684
		jmp	short loc_10613
; ---------------------------------------------------------------------------

loc_1065D:
		push	[bp+var_A]
		push	[bp+var_4]
		push	[bp+var_8]
		push	[bp+var_6]
		mov	al, [si+10h]
		add	al, byte ptr [bp+var_2]
		push	ax
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		push	[bp+arg_0]
		call	vector_between
		jmp	short loc_1069D
; ---------------------------------------------------------------------------

loc_10684:
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		mov	al, [si+10h]
		add	al, byte ptr [bp+var_2]
		push	ax
		push	[bp+arg_0]
		call	vector

loc_1069D:
		les	bx, [bp+arg_6]
		inc	word ptr es:[bx]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		shl	word ptr [bx+si+2], 4
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		shl	word ptr [bx+si+4], 4
		mov	ax, di
		pop	di
		pop	si
		leave
		retn	0Ah
sub_103B3	endp

; ---------------------------------------------------------------------------
		db 0
off_106C8	dw offset loc_1041B
		dw offset loc_10417
		dw offset loc_10413
		dw offset loc_1041B
		dw offset loc_10417
		dw offset loc_10413
		dw offset loc_10457
		dw offset loc_10453
		dw offset loc_1044F
		dw offset loc_10457
		dw offset loc_10453
		dw offset loc_1044F
		dw offset loc_104A3
		dw offset loc_1049F
		dw offset loc_1049B
		dw offset loc_104A3
		dw offset loc_1049F
		dw offset loc_1049B
		dw offset loc_10513
		dw offset loc_1050F
		dw offset loc_1050B
		dw offset loc_10513
		dw offset loc_1050F
		dw offset loc_1050B
		dw offset loc_10409
		dw offset loc_10618
		dw offset loc_10625
		dw offset loc_1063C
		dw offset loc_1065D
		dw offset loc_1065D
		dw offset loc_1065D
		dw offset loc_10613
		dw offset loc_1059B
		dw offset loc_10585
		dw offset loc_105F3
		dw offset loc_105B1
		dw offset loc_105C7
		dw offset loc_1040F
		dw offset loc_105DD

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

; Attributes: bp-based frame

sub_10716	proc near

arg_0		= dword	ptr  4

		push	bp
		mov	bp, sp
		les	bx, [bp+arg_0]
		mov	ax, es:[bx]
		imul	word_20272
		mov	bx, 30h	; '0'
		cwd
		idiv	bx
		mov	bx, word ptr [bp+arg_0]
		add	es:[bx], ax
		mov	al, byte_2174A
		cbw
		add	es:[bx], ax
		cmp	word ptr es:[bx], 10h
		jge	short loc_1075D
		inc	byte_21753
		cmp	_rank, RANK_EASY
		jnz	short loc_10755
		test	byte_21753, 1
		jz	short loc_10755
		mov	ax, 1
		pop	bp
		retn	4
; ---------------------------------------------------------------------------

loc_10755:
		les	bx, [bp+arg_0]
		mov	word ptr es:[bx], 10h

loc_1075D:
		xor	ax, ax
		pop	bp
		retn	4
sub_10716	endp


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

; Attributes: bp-based frame

sub_10763	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		mov	dx, [bp+arg_2]
		mov	bx, [bp+arg_0]
		cmp	dx, 18h
		jl	short loc_10781
		cmp	dx, 1A0h
		jg	short loc_10781
		or	bx, bx
		jl	short loc_10781
		cmp	bx, 17Fh
		jle	short loc_10788

loc_10781:
		mov	ax, 1
		pop	bp
		retn	4
; ---------------------------------------------------------------------------

loc_10788:
		xor	ax, ax
		pop	bp
		retn	4
sub_10763	endp


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

; Attributes: bp-based frame

sub_1078E	proc near

var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= byte ptr  6
arg_4		= byte ptr  8
arg_6		= word ptr  0Ah
arg_8		= word ptr  0Ch

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	[bp+var_2], 0
		mov	[bp+var_4], 0
		push	[bp+arg_8]
		push	[bp+arg_6]
		call	sub_10763
		or	ax, ax
		jnz	loc_1085F
		cmp	byte_218B4, 0
		jnz	loc_1085F
		push	ss
		lea	ax, [bp+arg_0]
		push	ax
		call	sub_10716
		or	ax, ax
		jnz	loc_1085F
		xor	di, di
		jmp	short loc_1082F
; ---------------------------------------------------------------------------

loc_107CA:
		mov	bx, di
		imul	bx, 14h
		cmp	byte ptr [bx+2C18h], 0
		jz	short loc_107D9
		inc	di
		jmp	short loc_1082F
; ---------------------------------------------------------------------------

loc_107D9:
		mov	ax, di
		imul	ax, 14h
		add	ax, 2C18h
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, [bp+arg_8]
		mov	bx, ax
		mov	[bx+si+2], dx
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, [bp+arg_6]
		mov	bx, ax
		mov	[bx+si+4], dx
		mov	byte ptr [si+0Fh], 0
		mov	byte ptr [si], 1
		mov	byte ptr [si+1], 1
		mov	byte ptr [si+12h], 0
		mov	al, [bp+arg_4]
		mov	[si+10h], al
		inc	di
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		mov	al, [bp+arg_2]
		mov	ah, 0
		push	ax
		push	si
		push	[bp+arg_0]
		call	sub_103B3
		or	ax, ax
		jnz	short loc_10835

loc_1082F:
		cmp	di, 96h
		jl	short loc_107CA

loc_10835:
		mov	al, byte_21754
		mov	ah, 0
		cmp	ax, [bp+var_4]
		jle	short loc_1085F
		sar	[bp+arg_0], 1
		mov	al, _rank
		cbw
		cmp	ax, RANK_LUNATIC
		jnz	short loc_1084F
		add	[bp+arg_0], 8

loc_1084F:
		cmp	[bp+arg_0], 10h
		jl	short loc_1085F
		inc	[bp+var_4]
		mov	[bp+var_2], 0
		jmp	short loc_1082F
; ---------------------------------------------------------------------------

loc_1085F:
		pop	di
		pop	si
		leave
		retn	0Ah
sub_1078E	endp


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

; Attributes: bp-based frame

sub_10865	proc near

var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= byte ptr  6
arg_4		= byte ptr  8
arg_6		= word ptr  0Ah
arg_8		= word ptr  0Ch
arg_A		= word ptr  0Eh

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	[bp+var_2], 0
		mov	[bp+var_4], 0
		push	[bp+arg_A]
		push	[bp+arg_8]
		call	sub_10763
		or	ax, ax
		jnz	loc_10995
		cmp	byte_218B4, 0
		jnz	loc_10995
		cmp	[bp+arg_4], 83h
		jz	short loc_108A3
		push	ss
		lea	ax, [bp+arg_0]
		push	ax
		call	sub_10716
		or	ax, ax
		jnz	loc_10995

loc_108A3:
		xor	di, di
		jmp	loc_10963
; ---------------------------------------------------------------------------

loc_108A8:
		mov	bx, di
		imul	bx, 14h
		cmp	byte ptr [bx+2C18h], 0
		jz	short loc_108B8
		inc	di
		jmp	loc_10963
; ---------------------------------------------------------------------------

loc_108B8:
		mov	ax, di
		imul	ax, 14h
		add	ax, 2C18h
		mov	si, ax
		mov	al, [bp+arg_4]
		mov	[si+0Fh], al
		mov	byte ptr [si+1], 2
		mov	byte ptr [si], 1
		mov	al, [bp+arg_2]
		mov	[si+0Eh], al
		mov	byte ptr [si+12h], 0
		mov	al, byte ptr [bp+arg_0]
		mov	[si+11h], al
		mov	al, byte ptr [bp+arg_6]
		mov	[si+10h], al
		inc	di
		cmp	[bp+arg_4], 80h
		jnb	short loc_10924
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, [bp+arg_A]
		mov	bx, ax
		mov	[bx+si+2], dx
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, [bp+arg_8]
		mov	bx, ax
		mov	[bx+si+4], dx
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		mov	al, [bp+arg_4]
		mov	ah, 0
		push	ax
		push	si
		push	[bp+arg_0]
		call	sub_103B3
		or	ax, ax
		jnz	short loc_1096B
		jmp	short loc_10963
; ---------------------------------------------------------------------------

loc_10924:
		mov	ax, [bp+arg_A]
		shl	ax, 4
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+si+2], ax
		mov	ax, [bp+arg_8]
		shl	ax, 4
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+si+4], ax
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		push	[bp+arg_6]
		push	[bp+arg_0]
		call	vector
		jmp	short loc_1096B
; ---------------------------------------------------------------------------

loc_10963:
		cmp	di, 96h
		jl	loc_108A8

loc_1096B:
		mov	al, byte_21754
		mov	ah, 0
		cmp	ax, [bp+var_4]
		jle	short loc_10995
		sar	[bp+arg_0], 1
		mov	al, _rank
		cbw
		cmp	ax, RANK_LUNATIC
		jnz	short loc_10985
		add	[bp+arg_0], 8

loc_10985:
		cmp	[bp+arg_0], 10h
		jl	short loc_10995
		inc	[bp+var_4]
		mov	[bp+var_2], 0
		jmp	short loc_10963
; ---------------------------------------------------------------------------

loc_10995:
		pop	di
		pop	si
		leave
		retn	0Ch
sub_10865	endp


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

; Attributes: bp-based frame

sub_1099B	proc near

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

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		mov	si, [bp+arg_0]
		mov	bx, word_21750
		mov	ax, [bx]
		sar	ax, 4
		mov	di, ax
		mov	ax, word_205F8
		add	ax, 8
		mov	[bp+var_2], ax
		mov	bx, word_2174E
		mov	ax, [bx]
		sar	ax, 4
		mov	[bp+var_4], ax
		mov	ax, word_205F6
		add	ax, 8
		mov	[bp+var_6], ax
		mov	al, [si+0Fh]
		mov	ah, 0
		sub	ax, 80h
		mov	bx, ax
		cmp	bx, 8
		ja	loc_10BAD
		add	bx, bx
		jmp	cs:off_10BB4[bx]

loc_109E7:
		mov	ax, [bp+var_4]
		cmp	ax, [bp+var_6]
		jge	short loc_109F7
		mov	ax, word_21744
		add	[si+0Ah], ax
		jmp	short loc_10A05
; ---------------------------------------------------------------------------

loc_109F7:
		mov	ax, [bp+var_4]
		cmp	ax, [bp+var_6]
		jle	short loc_10A05
		mov	ax, word_21744
		sub	[si+0Ah], ax

loc_10A05:
		cmp	di, [bp+var_2]
		jge	short loc_10A13
		mov	ax, word_21744
		add	[si+0Ch], ax
		jmp	loc_10BAD
; ---------------------------------------------------------------------------

loc_10A13:
		cmp	di, [bp+var_2]
		jle	loc_10BAD
		mov	ax, word_21744
		sub	[si+0Ch], ax
		jmp	loc_10BAD
; ---------------------------------------------------------------------------

loc_10A23:
		inc	byte ptr [si+12h]
		mov	al, [si+12h]
		mov	ah, 0
		cmp	ax, word_21746
		jge	loc_10BA9
		push	[bp+var_4]
		push	di
		push	[bp+var_6]
		push	[bp+var_2]
		push	0
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		mov	al, [si+11h]
		mov	ah, 0
		push	ax
		call	vector_between
		jmp	loc_10BAD
; ---------------------------------------------------------------------------

loc_10A57:
		test	byte ptr dword_20612, 7
		jnz	loc_10BAD
		mov	ax, [si+0Ah]
		cwd
		sub	ax, dx
		sar	ax, 1
		mov	[si+0Ah], ax
		mov	ax, [si+0Ch]
		cwd
		sub	ax, dx
		sar	ax, 1
		mov	[si+0Ch], ax
		cmp	word ptr [si+0Ah], 0
		jnz	loc_10BAD
		cmp	word ptr [si+0Ch], 0
		jnz	loc_10BAD
		push	[bp+var_4]
		push	di
		push	[bp+var_6]
		push	[bp+var_2]
		push	0
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		mov	al, [si+11h]
		mov	ah, 0
		push	ax
		call	vector_between
		inc	byte ptr [si+12h]
		mov	al, [si+12h]
		mov	ah, 0
		cmp	ax, word_21748
		jl	loc_10BAD
		jmp	loc_10BA9
; ---------------------------------------------------------------------------

loc_10ABA:
		mov	ax, word_21744
		add	[si+0Ch], ax
		jmp	loc_10BAD
; ---------------------------------------------------------------------------

loc_10AC3:
		mov	al, [si+10h]
		add	al, byte ptr word_21744
		mov	[si+10h], al
		mov	al, [si+11h]
		add	al, byte ptr word_21746
		mov	[si+11h], al
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		push	word ptr [si+10h]
		mov	al, [si+11h]
		mov	ah, 0
		push	ax
		call	vector
		inc	byte ptr [si+12h]
		mov	al, [si+12h]
		mov	ah, 0
		cmp	ax, word_21748
		jle	loc_10BAD
		jmp	loc_10BA9
; ---------------------------------------------------------------------------

loc_10B02:
		mov	al, [si+10h]
		add	al, byte ptr word_21744
		mov	[si+10h], al
		push	ds
		lea	ax, [si+0Ah]
		push	ax
		push	ds
		lea	ax, [si+0Ch]
		push	ax
		push	word ptr [si+10h]
		mov	al, [si+11h]
		mov	ah, 0
		push	ax
		call	vector
		mov	ax, [bp+var_4]
		cmp	ax, [bp+var_6]
		jge	short loc_10B34
		mov	ax, word_21746
		add	[si+0Ah], ax
		jmp	short loc_10B42
; ---------------------------------------------------------------------------

loc_10B34:
		mov	ax, [bp+var_4]
		cmp	ax, [bp+var_6]
		jle	short loc_10B42
		mov	ax, word_21746
		sub	[si+0Ah], ax

loc_10B42:
		cmp	di, [bp+var_2]
		jge	short loc_10B4F
		mov	ax, word_21746
		add	[si+0Ch], ax
		jmp	short loc_10B5A
; ---------------------------------------------------------------------------

loc_10B4F:
		cmp	di, [bp+var_2]
		jle	short loc_10B5A
		mov	ax, word_21746
		sub	[si+0Ch], ax

loc_10B5A:
		inc	byte ptr [si+12h]
		mov	al, [si+12h]
		mov	ah, 0
		cmp	ax, word_21748
		jle	short loc_10BAD
		jmp	short loc_10BA9
; ---------------------------------------------------------------------------

loc_10B6A:
		cmp	[bp+var_4], 28h	; '('
		jl	short loc_10B77
		cmp	[bp+var_4], 188h
		jle	short loc_10B85

loc_10B77:
		mov	dx, 0FFFFh
		mov	ax, [si+0Ah]
		imul	dx
		mov	[si+0Ah], ax
		inc	byte ptr [si+12h]

loc_10B85:
		cmp	di, 18h
		jl	short loc_10B90
		cmp	di, 168h
		jle	short loc_10B9E

loc_10B90:
		mov	dx, 0FFFFh
		mov	ax, [si+0Ch]
		imul	dx
		mov	[si+0Ch], ax
		inc	byte ptr [si+12h]

loc_10B9E:
		mov	al, [si+12h]
		mov	ah, 0
		cmp	ax, word_21748
		jle	short loc_10BAD

loc_10BA9:
		mov	byte ptr [si+0Fh], 0

loc_10BAD:
		pop	di
		pop	si
		leave
		retn	2
sub_1099B	endp

; ---------------------------------------------------------------------------
		db 0
off_10BB4	dw offset loc_109E7
		dw offset loc_10A23
		dw offset loc_10A57
		dw offset loc_10ABA
		dw offset loc_10AC3
		dw offset loc_10B02
		dw offset loc_10BAD
		dw offset loc_10B6A
		dw offset loc_10B85

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

; Attributes: bp-based frame

sub_10BC6	proc far

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	[bp+var_4], 1
		mov	[bp+var_2], 0
		jmp	loc_10D30
; ---------------------------------------------------------------------------

loc_10BDB:
		mov	bx, [bp+var_2]
		imul	bx, 14h
		mov	al, [bx+2C18h]
		cbw
		cmp	ax, 1
		jnz	loc_10D2D
		mov	ax, [bp+var_2]
		imul	ax, 14h
		add	ax, 2C18h
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, si
		add	ax, 2
		mov	word_2174E, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, si
		add	ax, 4
		mov	word_21750, ax
		mov	ax, [si+0Ah]
		mov	bx, word_2174E
		add	[bx], ax
		mov	ax, [si+0Ch]
		mov	bx, word_21750
		add	[bx], ax
		mov	al, [si+1]
		cbw
		cmp	ax, 2
		jnz	short loc_10C37
		push	si
		call	sub_1099B

loc_10C37:
		mov	bx, word_2174E
		mov	ax, [bx]
		sar	ax, 4
		mov	word_21740, ax
		mov	bx, word_21750
		mov	ax, [bx]
		sar	ax, 4
		mov	word_21742, ax
		mov	di, word_21742
		cmp	word_21740, 14h
		jle	short loc_10C6C
		cmp	word_21740, 1A0h
		jge	short loc_10C6C
		cmp	di, 180h
		jge	short loc_10C6C
		or	di, di
		jg	short loc_10C72

loc_10C6C:
		mov	byte ptr [si], 2
		jmp	loc_10D2D
; ---------------------------------------------------------------------------

loc_10C72:
		mov	al, [si+1]
		cbw
		cmp	ax, 1
		jnz	short loc_10CA9
		mov	ax, word_205F6
		add	ax, 7
		cmp	ax, word_21740
		jg	short loc_10CDC
		mov	ax, word_205F6
		add	ax, 11h
		cmp	ax, word_21740
		jle	short loc_10CDC
		mov	ax, word_205F8
		add	ax, 0Ch
		cmp	ax, di
		jg	short loc_10CDC
		mov	ax, word_205F8
		add	ax, 16h
		cmp	ax, di
		jl	short loc_10CDC
		jmp	short loc_10CD5
; ---------------------------------------------------------------------------

loc_10CA9:
		mov	ax, word_205F6
		add	ax, 0FFFDh
		cmp	ax, word_21740
		jg	short loc_10CDC
		mov	ax, word_205F6
		add	ax, 13h
		cmp	ax, word_21740
		jle	short loc_10CDC
		mov	ax, word_205F8
		add	ax, 4
		cmp	ax, di
		jg	short loc_10CDC
		mov	ax, word_205F8
		add	ax, 18h
		cmp	ax, di
		jl	short loc_10CDC

loc_10CD5:
		mov	_player_is_hit, 1
		jmp	short loc_10C6C
; ---------------------------------------------------------------------------

loc_10CDC:
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_10CEA
		sub	di, RES_Y

loc_10CEA:
		mov	al, [si+1]
		cbw
		cmp	ax, 1
		jnz	short loc_10D13
		cmp	[bp+var_4], 0
		jz	short loc_10D09
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	[bp+var_4], 0

loc_10D09:
		push	word_21740
		push	di
		call	sub_FAFC
		jmp	short loc_10D2D
; ---------------------------------------------------------------------------

loc_10D13:
		call	grcg_off
		push	word_21740
		push	di
		mov	al, [si+0Eh]
		mov	ah, 0
		push	ax
		call	super_roll_put_tiny
		mov	[bp+var_4], 1

loc_10D2D:
		inc	[bp+var_2]

loc_10D30:
		cmp	[bp+var_2], 96h
		jl	loc_10BDB
		call	grcg_off
		pop	di
		pop	si
		leave
		retf
sub_10BC6	endp


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

; Attributes: bp-based frame

sub_10D42	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	si, si
		jmp	loc_10DFE
; ---------------------------------------------------------------------------

loc_10D4C:
		mov	bx, si
		imul	bx, 14h
		cmp	byte ptr [bx+2C18h], 0
		jz	loc_10DFD
		mov	ax, si
		imul	ax, 14h
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		add	ax, dx
		add	ax, 2C1Ah
		mov	word_2174E, ax
		mov	ax, si
		imul	ax, 14h
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		add	ax, dx
		add	ax, 2C1Ch
		mov	word_21750, ax
		mov	bx, si
		imul	bx, 14h
		mov	al, [bx+2C19h]
		cbw
		shl	ax, 3
		mov	di, ax
		mov	bx, word_2174E
		mov	ax, [bx]
		sar	ax, 4
		push	ax
		mov	bx, word_21750
		mov	ax, [bx]
		sar	ax, 4
		push	ax
		push	di
		push	di
		call	sub_45FC
		mov	bx, si
		imul	bx, 14h
		mov	al, [bx+2C18h]
		cbw
		cmp	ax, 2
		jnz	short loc_10DCB
		mov	bx, si
		imul	bx, 14h
		mov	byte ptr [bx+2C18h], 0
		jmp	short loc_10DFD
; ---------------------------------------------------------------------------

loc_10DCB:
		mov	bx, si
		imul	bx, 14h
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+2C1Ah]
		mov	bx, word_2174E
		mov	[bx], ax
		mov	bx, si
		imul	bx, 14h
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+2C1Ch]
		mov	bx, word_21750
		mov	[bx], ax

loc_10DFD:
		inc	si

loc_10DFE:
		cmp	si, 96h
		jl	loc_10D4C
		pop	di
		pop	si
		pop	bp
		retf
sub_10D42	endp


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

; Attributes: bp-based frame

sub_10E0A	proc far
		push	bp
		mov	bp, sp
		push	si
		call	sub_10D42
		xor	si, si
		jmp	short loc_10E30
; ---------------------------------------------------------------------------

loc_10E16:
		mov	bx, si
		imul	bx, 14h
		mov	al, [bx+2C18h]
		cbw
		cmp	ax, 1
		jnz	short loc_10E2F
		mov	bx, si
		imul	bx, 14h
		mov	byte ptr [bx+2C18h], 2

loc_10E2F:
		inc	si

loc_10E30:
		cmp	si, 96h
		jl	short loc_10E16
		pop	si
		pop	bp
		retf
sub_10E0A	endp


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

; Attributes: bp-based frame

sub_10E39	proc near

arg_0		= byte ptr  4

		push	bp
		mov	bp, sp
		mov	al, byte_21752
		mov	ah, 0
		mov	dl, [bp+arg_0]
		mov	dh, 0
		imul	dx
		mov	byte_21754, al
		pop	bp
		retn	2
sub_10E39	endp


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

; Attributes: bp-based frame

sub_10E4F	proc far
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_10E8D
; ---------------------------------------------------------------------------

loc_10E57:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 8
		mov	dx, si
		shl	dx, 2
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx+5336h]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 8
		mov	dx, si
		shl	dx, 2
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx+5338h]
		push	10002h
		call	sub_45FC
		inc	si

loc_10E8D:
		cmp	si, 40h
		jl	short loc_10E57
		pop	si
		pop	bp
		retf
sub_10E4F	endp


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

; Attributes: bp-based frame

sub_10E95	proc far

var_3		= byte ptr -3
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		inc	word_20686
		cmp	word_20686, 0A8h ; 'ｨ'
		jb	loc_110B3
		cmp	word_20686, 0A8h ; 'ｨ'
		jnz	short loc_10EC0
		call	_snd_se_play c, 14
		jmp	loc_10FF6
; ---------------------------------------------------------------------------

loc_10EC0:
		cmp	word_20686, 0C8h
		jnb	short loc_10F22
		cmp	word_20686, 0B4h
		ja	short loc_10EE4
		mov	ax, word_20686
		and	ax, 1
		imul	ax, 46h
		add	ax, 64h	; 'd'
		mov	PaletteTone, ax
		call	far ptr	palette_show

loc_10EE4:
		mov	ax, word_20686
		and	ax, 1
		mov	di, ax
		mov	ax, RES_Y
		sub	ax, _scroll_line
		push	ax
		mov	ax, _scroll_line
		imul	ax, 40
		add	ax, di
		push	ax
		push	di
		call	graph_scroll
		mov	byte_2066D, 3
		mov	word_22DA0, 0E0h
		mov	word_22DA2, 0C8h
		mov	word_22D9E, 0
		mov	byte_22DA4, 0
		jmp	loc_10FF6
; ---------------------------------------------------------------------------

loc_10F22:
		cmp	word_20686, 190h
		jnb	short loc_10F5E
		cmp	word_20686, 0C8h
		jnz	short loc_10F37
		mov	byte_2066D, 1

loc_10F37:
		mov	ax, word_20686
		shr	ax, 1
		mov	dl, 0C8h
		sub	dl, al
		mov	Palettes, dl
		mov	Palettes+1, 0
		mov	Palettes+2, 0
		mov	ax, word_20686
		sub	ax, 0C8h
		mov	word_22D9E, ax
		inc	byte_22DA4
		jmp	loc_10FF6
; ---------------------------------------------------------------------------

loc_10F5E:
		cmp	word_20686, 258h
		jnb	short loc_10F8C
		mov	Palettes, 0
		mov	ax, word_20686
		shr	ax, 1
		mov	dl, 2Ch	; ','
		sub	dl, al
		mov	Palettes+1, dl
		mov	Palettes+2, 0
		mov	ax, word_20686
		sub	ax, 190h
		mov	word_22D9E, ax
		dec	byte_22DA4
		jmp	short loc_10FF6
; ---------------------------------------------------------------------------

loc_10F8C:
		cmp	word_20686, 320h
		jnb	short loc_10FBA
		mov	Palettes, 0
		mov	Palettes+1, 0
		mov	ax, word_20686
		shr	ax, 1
		mov	dl, 90h
		sub	dl, al
		mov	Palettes+2, dl
		mov	ax, word_20686
		sub	ax, 258h
		mov	word_22D9E, ax
		inc	byte_22DA4
		jmp	short loc_10FF6
; ---------------------------------------------------------------------------

loc_10FBA:
		cmp	word_20686, 3E8h
		jnb	short loc_10FF0
		mov	ax, word_20686
		shr	ax, 1
		mov	dl, 0F4h
		sub	dl, al
		mov	Palettes, dl
		mov	Palettes+1, 0
		mov	ax, word_20686
		shr	ax, 1
		mov	dl, 0F4h
		sub	dl, al
		mov	Palettes+2, dl
		mov	ax, word_20686
		sub	ax, 320h
		mov	word_22D9E, ax
		dec	byte_22DA4
		jmp	short loc_10FF6
; ---------------------------------------------------------------------------

loc_10FF0:
		mov	word_20686, 0C8h

loc_10FF6:
		call	far ptr	palette_show
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 7
		xor	di, di
		mov	al, byte_22DA4
		jmp	loc_110A4
; ---------------------------------------------------------------------------

loc_11013:
		movsx	eax, word_22D9E
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_22DA0
		mov	[bp+var_2], ax
		movsx	eax, word_22D9E
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_22DA2
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 8
		mov	dx, di
		shl	dx, 2
		add	ax, dx
		mov	dx, [bp+var_2]
		mov	bx, ax
		mov	[bx+5336h], dx
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 8
		mov	dx, di
		shl	dx, 2
		add	ax, dx
		mov	bx, ax
		mov	[bx+5338h], si
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_11095
		sub	si, RES_Y

loc_11095:
		push	[bp+var_2]
		push	si
		call	grcg_pset
		inc	di
		mov	al, [bp+var_3]
		add	al, 4

loc_110A4:
		mov	[bp+var_3], al
		cmp	di, 40h
		jl	loc_11013
		call	grcg_off

loc_110B3:
		pop	di
		pop	si
		leave
		retf
sub_10E95	endp


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

; Attributes: bp-based frame

sub_110B7	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	di, di
		xor	si, si
		jmp	loc_1116C
; ---------------------------------------------------------------------------

loc_110C3:
		cmp	byte ptr [si+2BF0h], 2
		jnz	short loc_110CE
		inc	di
		jmp	loc_1116B
; ---------------------------------------------------------------------------

loc_110CE:
		mov	ax, si
		shl	ax, 2
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		add	ax, dx
		add	ax, 2BACh
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx+52EEh], ds
		mov	[bx+52ECh], ax
		mov	ax, si
		shl	ax, 2
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		add	ax, dx
		add	ax, 2BC0h
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx+5302h], ds
		mov	[bx+5300h], ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		push	word ptr es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		push	word ptr es:[bx]
		push	400020h
		call	sub_45FC
		mov	bx, si
		shl	bx, 2
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		mov	ax, [bx+2BACh]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	es:[bx], ax
		mov	bx, si
		shl	bx, 2
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		add	bx, ax
		mov	ax, [bx+2BC0h]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	es:[bx], ax

loc_1116B:
		inc	si

loc_1116C:
		cmp	si, 2
		jl	loc_110C3
		cmp	di, 2
		jnz	short loc_1117C
		xor	ax, ax
		jmp	short loc_1117F
; ---------------------------------------------------------------------------

loc_1117C:
		mov	ax, 1

loc_1117F:
		pop	di
		pop	si
		pop	bp
		retf
sub_110B7	endp


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

; Attributes: bp-based frame

sub_11183	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_0]
		call	_snd_se_play c, 4
		mov	bx, di
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	si, es:[bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_111AF
		sub	si, RES_Y

loc_111AF:
		mov	bx, di
		shl	bx, 2
		les	bx, [bx+52ECh]
		push	word ptr es:[bx]
		push	si
		push	word_22D4C
		pushd	0FFC0h
		call	super_roll_put_1plane
		pop	di
		pop	si
		pop	bp
		retn	2
sub_11183	endp


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

; Attributes: bp-based frame

sub_111D1	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_0]
		mov	bx, di
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	si, es:[bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_111F3
		sub	si, RES_Y

loc_111F3:
		mov	bx, di
		shl	bx, 2
		les	bx, [bx+52ECh]
		push	word ptr es:[bx]
		push	si
		push	word_22D4C
		call	super_roll_put
		pop	di
		pop	si
		pop	bp
		retn	2
sub_111D1	endp


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

; Attributes: bp-based frame

sub_1120F	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	si, [bp+arg_0]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 20h	; ' '
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		push	3C0001h
		push	0
		call	sub_4090
		mov	[bp+var_2], 0Ah
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+10AAh]
		mov	bx, 6
		cwd
		idiv	bx
		add	[bp+var_2], ax
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+10AAh]
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+10AAh], 30h ; '0'
		jl	short loc_112BA
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 20h	; ' '
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		push	800020h
		push	1
		call	sub_4090
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+10AAh], 0
		mov	byte ptr [si+2BF0h], 2
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh
		jmp	short loc_11302
; ---------------------------------------------------------------------------

loc_112BA:
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	di, es:[bx]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_112D4
		sub	di, RES_Y

loc_112D4:
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		push	word ptr es:[bx]
		push	di
		push	[bp+var_2]
		call	super_roll_put
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 20h	; ' '
		push	ax
		push	di
		push	[bp+var_2]
		call	super_roll_put

loc_11302:
		pop	di
		pop	si
		leave
		retn	2
sub_1120F	endp


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

; Attributes: bp-based frame

sub_11308	proc near

var_3		= word ptr -3
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	si, [bp+arg_0]
		or	si, si
		jnz	short loc_1131C
		mov	ax, 8
		jmp	short loc_1131F
; ---------------------------------------------------------------------------

loc_1131C:
		mov	ax, 0FFF8h

loc_1131F:
		mov	[bp+var_3+1], ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	di, ax
		cmp	word_20650, 98h
		jge	short loc_11381
		cmp	word_20650, 80h
		jnz	short loc_1134D
		mov	byte_22FA6, 0
		mov	byte_22FA7, 80h

loc_1134D:
		test	byte ptr word_20650, 3
		jnz	loc_114D0
		mov	al, [si+5536h]
		add	al, byte ptr [bp+var_3+1]
		mov	[si+5536h], al
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 1Ch
		push	ax
		push	di
		mov	al, [si+5536h]
		push	ax
		push	20h ; ' '

loc_11379:
		push	28h ; '('
		call	sub_1078E
		jmp	loc_114D0
; ---------------------------------------------------------------------------

loc_11381:
		cmp	word_20650, 0C0h
		jge	short loc_113DE
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, [bp+var_3+1]
		add	es:[bx], ax
		test	byte ptr word_20650, 7
		jnz	loc_114D0
		mov	al, [si+5536h]
		mov	dl, byte ptr [bp+var_3+1]
		add	dl, dl
		add	al, dl
		mov	[si+5536h], al
		cmp	_rank, RANK_EASY
		jz	short loc_113BD
		mov	byte ptr [bp+var_3], 0Eh
		jmp	short loc_113C1
; ---------------------------------------------------------------------------

loc_113BD:
		mov	byte ptr [bp+var_3], 2

loc_113C1:
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 1Ch
		push	ax
		push	di
		mov	al, 80h
		sub	al, [si+5536h]
		push	ax
		push	[bp+var_3]
		jmp	short loc_11379
; ---------------------------------------------------------------------------

loc_113DE:
		cmp	word_20650, 160h
		jge	short loc_11416
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		add	word ptr es:[bx], 2
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx+5300h]
		cmp	word ptr es:[bx], 190h
		jl	loc_114D0
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx+5300h]
		sub	word ptr es:[bx], 190h
		jmp	loc_114D0
; ---------------------------------------------------------------------------

loc_11416:
		cmp	word_20650, 178h
		jge	short loc_11429
		test	byte ptr word_20650, 3
		jnz	loc_114D0
		jmp	short loc_11449
; ---------------------------------------------------------------------------

loc_11429:
		cmp	word_20650, 1A0h
		jge	short loc_11473
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, [bp+var_3+1]
		sub	es:[bx], ax
		test	byte ptr word_20650, 3
		jnz	loc_114D0

loc_11449:
		mov	al, [si+5536h]
		sub	al, byte ptr [bp+var_3+1]
		mov	[si+5536h], al
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 1Ch
		push	ax
		push	di
		mov	al, [si+5536h]
		push	ax
		push	20h ; ' '
		push	32h ; '2'
		call	sub_1078E
		jmp	short loc_114D0
; ---------------------------------------------------------------------------

loc_11473:
		cmp	word_20650, 240h
		jge	short loc_114CA
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		sub	word ptr es:[bx], 2
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx+5300h]
		cmp	word ptr es:[bx], 0
		jge	short loc_114A5
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx+5300h]
		add	word ptr es:[bx], 190h

loc_114A5:
		mov	ax, word_20650
		mov	bx, 3Ch	; '<'
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_114D0
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 1Ch
		push	ax
		push	di
		push	0
		push	19h
		jmp	loc_11379
; ---------------------------------------------------------------------------

loc_114CA:
		mov	word_20650, 7Fh

loc_114D0:
		pop	di
		pop	si
		leave
		retn	2
sub_11308	endp


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

; Attributes: bp-based frame

sub_114D6	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	[bp+var_2], 0
		cmp	byte_20660, 0
		jnz	short loc_1150C
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BACh]
		add	ax, 18h
		mov	word_205D8, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BC0h]
		jmp	short loc_1152C
; ---------------------------------------------------------------------------

loc_1150C:
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BB0h]
		add	ax, 18h
		mov	word_205D8, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BC4h]

loc_1152C:
		add	ax, 10h
		mov	word_205DA, ax
		inc	word_20650
		cmp	word_20650, 1
		jnz	short loc_11581
		mov	word_2061C, 20h	; ' '
		mov	word_2061E, 20h	; ' '
		mov	word_20630, 0FFF0h
		mov	word_20632, 0FFF0h
		mov	word_20644, 0
		mov	word_20620, 160h
		mov	word_20622, 160h
		mov	ax, word_20630
		mov	word_20634, ax
		mov	ax, word_20630
		mov	word_20636, ax
		mov	word_20646, 0
		mov	byte_22FA8, 0
		jmp	loc_116A9
; ---------------------------------------------------------------------------

loc_11581:
		cmp	word_20650, 80h
		jge	short loc_115F0
		mov	ax, _scroll_line
		and	ax, 3
		add	ax, 144
		mov	word_22D4C, ax
		xor	si, si
		jmp	short loc_115E8
; ---------------------------------------------------------------------------

loc_11599:
		mov	al, byte_1E503
		mov	ah, 0
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		add	es:[bx], ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		push	word ptr es:[bx]
		push	28001Eh
		call	sub_1283C
		mov	di, ax
		or	ax, ax
		jz	short loc_115E3
		mov	bx, si
		add	bx, bx
		add	[bx+2BD4h], di
		push	si
		call	sub_11183
		jmp	short loc_115E7
; ---------------------------------------------------------------------------

loc_115E3:
		push	si
		call	sub_111D1

loc_115E7:
		inc	si

loc_115E8:
		cmp	si, 2
		jl	short loc_11599
		jmp	loc_116A9
; ---------------------------------------------------------------------------

loc_115F0:
		mov	ax, _scroll_line
		and	ax, 3
		add	ax, 144
		mov	word_22D4C, ax
		cmp	word_20650, 80h
		jnz	short loc_11608
		inc	byte_22FA8

loc_11608:
		xor	si, si
		jmp	loc_116A2
; ---------------------------------------------------------------------------

loc_1160D:
		cmp	byte ptr [si+2BF0h], 1
		jnz	short loc_1161B
		push	si
		call	sub_1120F
		jmp	loc_116A1
; ---------------------------------------------------------------------------

loc_1161B:
		cmp	byte ptr [si+2BF0h], 0
		jnz	short loc_11697
		push	si
		call	sub_11308
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+52ECh]
		mov	ax, es:[bx]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx+5300h]
		push	word ptr es:[bx]
		push	28001Eh
		call	sub_1283C
		mov	di, ax
		or	ax, ax
		jz	short loc_11685
		mov	bx, si
		add	bx, bx
		add	[bx+2BD4h], di
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+2BD4h], 118h
		jg	short loc_1166B
		push	si
		call	sub_11183
		jmp	short loc_11689
; ---------------------------------------------------------------------------

loc_1166B:
		call	_snd_se_play c, 2
		mov	byte ptr [si+2BF0h], 1
		add	dword_218AC, 4E20h
		jmp	short loc_11689
; ---------------------------------------------------------------------------

loc_11685:
		push	si
		call	sub_111D1

loc_11689:
		cmp	byte_22FA8, 4
		jb	short loc_116A1
		mov	byte ptr [si+2BF0h], 1
		jmp	short loc_116A1
; ---------------------------------------------------------------------------

loc_11697:
		cmp	byte ptr [si+2BF0h], 2
		jnz	short loc_116A1
		inc	[bp+var_2]

loc_116A1:
		inc	si

loc_116A2:
		cmp	si, 2
		jl	loc_1160D

loc_116A9:
		pop	di
		pop	si
		leave
		retf
sub_114D6	endp


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

; Attributes: bp-based frame

sub_116AD	proc far
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_116E4
; ---------------------------------------------------------------------------

loc_116B5:
		cmp	byte ptr [si+2BF0h], 4
		jnb	short loc_116E3
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+531Eh]
		push	200020h
		call	sub_45FC
		cmp	byte ptr [si+2BF0h], 3
		jnz	short loc_116E3
		mov	byte ptr [si+2BF0h], 4

loc_116E3:
		inc	si

loc_116E4:
		cmp	si, 5
		jl	short loc_116B5
		pop	si
		pop	bp
		retf
sub_116AD	endp


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

; Attributes: bp-based frame

sub_116EC	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	si, si
		jmp	short loc_1175D
; ---------------------------------------------------------------------------

loc_116F5:
		cmp	byte ptr [si+2BF0h], 2
		jnb	short loc_1175C
		mov	bx, si
		add	bx, bx
		mov	di, [bx+531Eh]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_11712
		sub	di, RES_Y

loc_11712:
		cmp	byte ptr [si+2BF5h], 0
		jz	short loc_11746
		call	_snd_se_play c, 4
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		push	di
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+52DCh]
		pushd	0FFC0h
		call	super_roll_put_1plane
		mov	byte ptr [si+2BF5h], 0
		jmp	short loc_1175C
; ---------------------------------------------------------------------------

loc_11746:
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		push	di
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+52DCh]
		call	super_roll_put

loc_1175C:
		inc	si

loc_1175D:
		cmp	si, 5
		jl	short loc_116F5
		pop	di
		pop	si
		pop	bp
		retn
sub_116EC	endp


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

; Attributes: bp-based frame

sub_11766	proc near

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

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	si, [bp+arg_0]
		mov	[bp+var_4], 40h
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 10h
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 0Ch
		push	ax
		push	500002h
		push	0
		call	sub_4090
		mov	[bp+var_2], 0Ah
		mov	bx, si
		add	bx, bx
		mov	di, [bx+531Eh]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_117B6
		sub	di, RES_Y

loc_117B6:
		cmp	si, 4
		jnz	short loc_11824
		add	[bp+var_4], 20h	; ' '
		mov	ax, word_22D8C
		add	ax, 8
		push	ax
		mov	ax, word_22D96
		add	ax, 8
		push	ax
		push	word_1EB26
		call	sub_FFF8
		cmp	word_1EB26, 18h
		jl	short loc_117F3
		mov	ax, word_22D8C
		add	ax, 8
		push	ax
		mov	ax, word_22D96
		add	ax, 8
		push	ax
		mov	ax, word_1EB26
		add	ax, 0FFE8h
		push	ax
		call	sub_FFF8

loc_117F3:
		cmp	word_1EB26, 20h	; ' '
		jge	short loc_11810
		push	word_22D8C
		push	di
		push	word_22D54
		call	super_roll_put
		inc	word_1EB26
		xor	ax, ax
		jmp	short loc_11871
; ---------------------------------------------------------------------------

loc_11810:
		cmp	word_1EB26, 38h	; '8'
		jnz	short loc_1181C
		mov	byte_1E510, 0E0h

loc_1181C:
		mov	ax, word_1EB26
		add	ax, 0FFE0h
		jmp	short loc_1182C
; ---------------------------------------------------------------------------

loc_11824:
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+10AEh]

loc_1182C:
		mov	bx, 8
		cwd
		idiv	bx
		add	[bp+var_2], ax
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+10AEh]
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+10AEh]
		cmp	ax, [bp+var_4]
		jl	short loc_1185E
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+10AEh], 0
		mov	byte ptr [si+2BF0h], 3
		mov	ax, 1
		jmp	short loc_11871
; ---------------------------------------------------------------------------

loc_1185E:
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		push	di
		push	[bp+var_2]
		call	super_put
		xor	ax, ax

loc_11871:
		pop	di
		pop	si
		leave
		retn	2
sub_11766	endp


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

; Attributes: bp-based frame

sub_11877	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		inc	word_22FAA
		xor	si, si
		jmp	loc_1193F
; ---------------------------------------------------------------------------

loc_11885:
		cmp	byte ptr [si+2BF0h], 1
		ja	loc_1193E
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+531Eh]
		push	200028h
		call	sub_1283C
		mov	di, ax
		or	ax, ax
		jz	loc_1193E
		cmp	byte ptr [si+2BF0h], 1
		jnz	loc_1193E
		mov	byte ptr [si+2BF5h], 1
		mov	bx, si
		add	bx, bx
		add	[bx+2BD4h], di
		cmp	si, 4
		jnz	short loc_118CF
		mov	ax, 3A2h
		jmp	short loc_118DC
; ---------------------------------------------------------------------------

loc_118CF:
		cmp	si, 1
		jg	short loc_118D9
		mov	ax, 8Ch
		jmp	short loc_118DC
; ---------------------------------------------------------------------------

loc_118D9:
		mov	ax, 78h	; 'x'

loc_118DC:
		mov	bx, si
		add	bx, bx
		cmp	ax, [bx+2BD4h]
		jg	short loc_1193E
		mov	byte ptr [si+2BF0h], 2
		add	dword_218AC, 7530h
		cmp	si, 3
		jg	short loc_11939
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 8
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 0Ch
		push	ax
		or	si, si
		jnz	short loc_1191A
		mov	ax, 2
		jmp	short loc_11927
; ---------------------------------------------------------------------------

loc_1191A:
		cmp	si, 2
		jg	short loc_11924
		mov	ax, 3
		jmp	short loc_11927
; ---------------------------------------------------------------------------

loc_11924:
		mov	ax, 2

loc_11927:
		push	ax
		call	sub_D6CA
		call	_snd_se_play c, 2
		jmp	short loc_1193E
; ---------------------------------------------------------------------------

loc_11939:
		mov	byte_20605, 0C8h

loc_1193E:
		inc	si

loc_1193F:
		cmp	si, 5
		jl	loc_11885
		xor	si, si
		jmp	short loc_11970
; ---------------------------------------------------------------------------

loc_1194A:
		cmp	byte ptr [si+2BF0h], 1
		jnz	short loc_1196F
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 8
		mov	word_205D8, ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		mov	word_205DA, ax
		jmp	short loc_11975
; ---------------------------------------------------------------------------

loc_1196F:
		inc	si

loc_11970:
		cmp	si, 5
		jl	short loc_1194A

loc_11975:
		cmp	word_205F8, 60h
		jge	short loc_11993
		push	word_22D98
		push	word_22D9A
		push	0Fh
		call	_randring2_next8_and
		add	al, 0F9h
		push	ax
		push	19h
		push	4Dh ; 'M'
		call	sub_1078E

loc_11993:
		pop	di
		pop	si
		pop	bp
		retn
sub_11877	endp


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

; Attributes: bp-based frame

sub_11997	proc near
		push	bp
		mov	bp, sp
		cmp	_rank, RANK_EASY
		jz	short loc_119B7
		mov	byte ptr word_2066E, 18h
		mov	byte ptr word_2066E+1, 0
		mov	byte ptr word_20670, 24h ; '$'
		mov	byte ptr word_20670+1, 21h ; '!'
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_119B7:
		mov	byte ptr word_2066E, 0Ch
		mov	byte ptr word_2066E+1, 2
		mov	byte ptr word_20670, 21h ; '!'
		mov	byte ptr word_20670+1, 22h ; '"'
		pop	bp
		retn
sub_11997	endp


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

; Attributes: bp-based frame

sub_119CD	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 1Eh
		jl	loc_11A84
		cmp	word_20650, 0B4h
		jge	short loc_11A27
		mov	ax, word_20650
		mov	bx, 18h
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_11A84
		xor	si, si
		jmp	short loc_11A20
; ---------------------------------------------------------------------------

loc_119F5:
		cmp	byte ptr [si+2BF0h], 1
		jnz	short loc_11A1F
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		push	ax
		push	0
		push	word_2066E
		push	26h ; '&'
		call	sub_1078E

loc_11A1F:
		inc	si

loc_11A20:
		cmp	si, 2
		jl	short loc_119F5
		jmp	short loc_11A84
; ---------------------------------------------------------------------------

loc_11A27:
		cmp	word_20650, 0C8h
		jl	short loc_11A84
		cmp	word_20650, 136h
		jge	short loc_11A76
		test	byte ptr word_20650, 0Fh
		jnz	short loc_11A84
		xor	si, si
		jmp	short loc_11A6F
; ---------------------------------------------------------------------------

loc_11A42:
		cmp	byte ptr [si+2BF0h], 1
		jnz	short loc_11A6E
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		push	ax
		push	0
		push	19h
		push	510050h
		call	sub_10865

loc_11A6E:
		inc	si

loc_11A6F:
		cmp	si, 2
		jl	short loc_11A42
		jmp	short loc_11A84
; ---------------------------------------------------------------------------

loc_11A76:
		cmp	word_20650, 15Eh
		jle	short loc_11A84
		mov	word_20650, 0

loc_11A84:
		pop	si
		pop	bp
		retn
sub_119CD	endp


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

; Attributes: bp-based frame

sub_11A87	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	word_20650, 1Eh
		jl	loc_11B57
		cmp	word_20650, 0C8h
		jge	short loc_11AFC
		mov	ax, [bp+arg_0]
		imul	ax, 14h
		mov	bx, 6Eh	; 'n'
		sub	bx, ax
		mov	ax, word_20650
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_11B57
		mov	di, 2
		jmp	short loc_11AF5
; ---------------------------------------------------------------------------

loc_11AB9:
		cmp	byte ptr [di+2BF0h], 1
		jnz	short loc_11AF4
		xor	si, si
		jmp	short loc_11AEF
; ---------------------------------------------------------------------------

loc_11AC4:
		mov	bx, di
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 0Ch
		push	ax
		mov	bx, di
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		push	ax
		mov	ax, si
		imul	ax, 2Ah
		push	ax
		push	82h
		push	520038h
		call	sub_10865
		inc	si

loc_11AEF:
		cmp	si, 6
		jl	short loc_11AC4

loc_11AF4:
		inc	di

loc_11AF5:
		cmp	di, 4
		jl	short loc_11AB9
		jmp	short loc_11B57
; ---------------------------------------------------------------------------

loc_11AFC:
		mov	ax, [bp+arg_0]
		imul	ax, 14h
		mov	bx, 5Ah	; 'Z'
		sub	bx, ax
		mov	ax, word_20650
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_11B57
		mov	di, 2
		jmp	short loc_11B52
; ---------------------------------------------------------------------------

loc_11B16:
		cmp	byte ptr [di+2BF0h], 1
		jnz	short loc_11B51
		xor	si, si
		jmp	short loc_11B4C
; ---------------------------------------------------------------------------

loc_11B21:
		mov	bx, di
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 0Ch
		push	ax
		mov	bx, di
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		push	ax
		mov	ax, si
		imul	ax, 2Ah
		push	ax
		push	82h
		push	520038h
		call	sub_10865
		inc	si

loc_11B4C:
		cmp	si, 6
		jl	short loc_11B21

loc_11B51:
		inc	di

loc_11B52:
		cmp	di, 4
		jl	short loc_11B16

loc_11B57:
		pop	di
		pop	si
		pop	bp
		retn	2
sub_11A87	endp


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

; Attributes: bp-based frame

sub_11B5D	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_11BFC
		cmp	word_20650, 32h	; '2'
		jnz	short loc_11BB3
		mov	byte_23A70, 24h	; '$'
		push	300060h
		push	100067h
		call	sub_12A19
		push	0C00060h
		push	100067h
		call	sub_12A19
		push	0F00060h
		push	100067h
		call	sub_12A19
		push	1800060h
		push	100067h
		call	sub_12A19
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_11BB3:
		cmp	word_20650, 50h	; 'P'
		jnz	short loc_11BFC
		push	500060h
		push	100067h
		call	sub_12A19
		push	0A00060h
		push	100067h
		call	sub_12A19
		push	1100060h
		push	100067h
		call	sub_12A19
		push	1600060h
		push	100067h
		call	sub_12A19
		mov	word_20650, 0

loc_11BFC:
		pop	bp
		retn
sub_11B5D	endp


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

; Attributes: bp-based frame

sub_11BFE	proc near
		push	bp
		mov	bp, sp
		test	byte ptr word_20650, 3
		jnz	short loc_11C35
		push	word_22D98
		push	word_22D9A
		push	word_1EB28
		push	23h ; '#'
		push	46h ; 'F'
		call	sub_1078E
		mov	al, byte ptr word_1EB28
		add	al, 8
		mov	byte ptr word_1EB28, al
		cmp	byte ptr word_1EB28, 82h
		jbe	short loc_11C35
		mov	word_20650, 0
		mov	byte ptr word_1EB28, 0

loc_11C35:
		pop	bp
		retn
sub_11BFE	endp


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

; Attributes: bp-based frame

sub_11C37	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	word_20650, 18h
		jl	short locret_11C88
		mov	al, _rank
		cbw
		mov	dx, ax
		add	dx, dx
		add	dx, ax
		mov	bx, 1Ch
		sub	bx, dx
		mov	ax, word_20650
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_11C7A
		mov	byte_23A70, 1Eh
		mov	ax, word_205F6
		add	ax, 10h
		and	ax, 0FFF0h
		mov	[bp+var_2], ax
		push	ax
		push	600010h
		push	67h ; 'g'
		call	sub_12A19

loc_11C7A:
		cmp	word_20650, 8Ch
		jl	short locret_11C88
		mov	word_20650, 0

locret_11C88:
		leave
		retn
sub_11C37	endp


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

; Attributes: bp-based frame

sub_11C8A	proc near

var_2		= byte ptr -2
var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	word_20650, 28h	; '('
		jge	short loc_11CF5
		mov	ax, word_20650
		mov	bx, 6
		cwd
		idiv	bx
		or	dx, dx
		jnz	locret_11D2E
		mov	ax, word_205F8
		add	ax, 0FFE0h
		push	ax
		mov	ax, word_205F6
		sub	ax, word_22D8C
		push	ax
		call	iatan2
		mov	[bp+var_1], al
		push	1Fh
		call	_randring2_next8_and
		add	al, 10h

loc_11CC4:
		mov	[bp+var_2], al
		push	word_22D98
		push	word_22D9A
		mov	al, [bp+var_1]
		add	al, [bp+var_2]
		push	ax
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E
		push	word_22D98
		push	word_22D9A
		mov	al, [bp+var_1]
		sub	al, [bp+var_2]
		push	ax
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E
		leave
		retn
; ---------------------------------------------------------------------------

loc_11CF5:
		cmp	word_20650, 66h	; 'f'
		jge	short loc_11D28
		mov	ax, word_20650
		mov	bx, 6
		cwd
		idiv	bx
		or	dx, dx
		jnz	short locret_11D2E
		mov	ax, word_205F8
		add	ax, 0FFE0h
		push	ax
		mov	ax, word_205F6
		sub	ax, word_22D8C
		push	ax
		call	iatan2
		mov	[bp+var_1], al
		mov	al, 5Fh	; '_'
		sub	al, byte ptr word_20650
		jmp	short loc_11CC4
; ---------------------------------------------------------------------------

loc_11D28:
		mov	word_20650, 0

locret_11D2E:
		leave
		retn
sub_11C8A	endp


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

; Attributes: bp-based frame

sub_11D30	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 10h
		jl	loc_11DF4
		cmp	word_20650, 10h
		jnz	short loc_11D4E
		mov	word_22FAC, 20h	; ' '
		mov	byte_22FAE, 0

loc_11D4E:
		cmp	byte_22FAE, 0
		jnz	short loc_11D9A
		test	byte ptr word_20650, 7
		jnz	short loc_11D9A
		mov	byte_23A70, 10h
		push	word_22FAC
		push	600003h
		push	6Fh ; 'o'
		call	sub_12A19
		mov	ax, 1B0h
		sub	ax, word_22FAC
		push	ax
		push	600003h
		push	6Fh ; 'o'
		call	sub_12A19
		add	word_22FAC, 10h
		cmp	word_22FAC, 0B0h ; 'ｰ'
		jle	short loc_11D9A
		mov	byte_22FAE, 1
		add	word_22FAC, 10h

loc_11D9A:
		cmp	byte_22FAE, 24h	; '$'
		jbe	short loc_11DE9
		test	byte ptr word_20650, 7
		jnz	short loc_11DF4
		push	word_22FAC
		push	600001h
		push	6Fh ; 'o'
		call	sub_12A19
		mov	ax, 1B0h
		sub	ax, word_22FAC
		push	ax
		push	600001h
		push	6Fh ; 'o'
		call	sub_12A19
		sub	word_22FAC, 10h
		cmp	word_22FAC, 40h
		jge	short loc_11DF4
		mov	byte_22FAE, 0
		mov	word_20650, 0
		mov	word_22FAC, 20h	; ' '
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_11DE9:
		cmp	byte_22FAE, 0
		jz	short loc_11DF4
		inc	byte_22FAE

loc_11DF4:
		pop	bp
		retn
sub_11D30	endp


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

; Attributes: bp-based frame

sub_11DF6	proc near
		push	bp
		mov	bp, sp
		push	si
		test	byte ptr word_20650, 0Fh
		jnz	short loc_11E30
		mov	al, byte ptr word_2066E+1
		mov	ah, 0
		mov	si, ax
		jmp	short loc_11E2B
; ---------------------------------------------------------------------------

loc_11E0A:
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+531Eh]
		call	_randring2_next8
		push	ax
		push	83h
		push	520020h
		call	sub_10865
		inc	si

loc_11E2B:
		cmp	si, 4
		jl	short loc_11E0A

loc_11E30:
		cmp	word_20650, 6Eh	; 'n'
		jle	short loc_11E3D
		mov	word_20650, 0

loc_11E3D:
		pop	si
		pop	bp
		retn
sub_11DF6	endp


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

; Attributes: bp-based frame

sub_11E40	proc near
		push	bp
		mov	bp, sp
		test	byte ptr word_20650, 3
		jnz	short loc_11E66
		push	word_22D98
		push	word_22D9A
		call	_randring2_next8
		push	ax
		push	word_20670+1
		mov	ax, word_20650
		sar	ax, 1
		add	ax, 1Eh
		push	ax
		call	sub_1078E

loc_11E66:
		cmp	word_20650, 82h
		jle	short loc_11E74
		mov	word_20650, 0

loc_11E74:
		pop	bp
		retn
sub_11E40	endp


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

; Attributes: bp-based frame

sub_11E76	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	word_20650, 10h
		jl	loc_11F2B
		cmp	word_20650, 50h	; 'P'
		jge	short loc_11EE5
		mov	ax, word_20650
		mov	bx, 24h	; '$'
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_11EBE
		mov	byte_23A70, 1Eh
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 18h
		cwd
		idiv	bx
		add	dx, 2
		mov	di, dx
		mov	ax, di
		shl	ax, 4
		push	ax
		push	60000Ch
		push	6Fh ; 'o'
		call	sub_12A19

loc_11EBE:
		mov	ax, word_20650
		mov	bx, 28h	; '('
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_11F2B
		cmp	_rank, RANK_EASY
		jz	short loc_11F2B
		push	word_22D98
		push	word_22D9A
		push	0
		push	19h
		push	46h ; 'F'
		call	sub_1078E
		jmp	short loc_11F2B
; ---------------------------------------------------------------------------

loc_11EE5:
		cmp	word_20650, 78h	; 'x'
		jge	short loc_11F25
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_11F2B
		mov	byte_23A70, 1Eh
		xor	si, si
		jmp	short loc_11F1E
; ---------------------------------------------------------------------------

loc_11EFC:
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 18h
		cwd
		idiv	bx
		add	dx, 2
		mov	di, dx
		mov	ax, di
		shl	ax, 4
		push	ax
		push	60000Ch
		push	6Fh ; 'o'
		call	sub_12A19
		inc	si

loc_11F1E:
		cmp	si, 3
		jl	short loc_11EFC
		jmp	short loc_11F2B
; ---------------------------------------------------------------------------

loc_11F25:
		mov	word_20650, 0

loc_11F2B:
		pop	di
		pop	si
		pop	bp
		retn
sub_11E76	endp


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

; Attributes: bp-based frame

sub_11F2F	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 10h
		jl	short loc_11FB2
		cmp	word_20650, 10h
		jnz	short loc_11F46
		mov	byte ptr word_22FAF, 29h ; ')'

loc_11F46:
		mov	ax, word_20650
		mov	bx, 1Eh
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_11FA5
		xor	si, si
		jmp	short loc_11F98
; ---------------------------------------------------------------------------

loc_11F57:
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+531Eh]
		push	word_22FAF
		push	19h
		push	52003Ch
		call	sub_10865
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+5314h]
		mov	bx, si
		add	bx, bx
		push	word ptr [bx+531Eh]
		mov	al, byte ptr word_22FAF
		neg	al
		push	ax
		push	19h
		push	52003Ch
		call	sub_10865
		inc	si

loc_11F98:
		cmp	si, 4
		jl	short loc_11F57
		mov	al, byte ptr word_22FAF
		add	al, 0FDh
		mov	byte ptr word_22FAF, al

loc_11FA5:
		cmp	byte ptr word_22FAF, 0C8h
		jb	short loc_11FB2
		mov	word_20650, 0

loc_11FB2:
		pop	si
		pop	bp
		retn
sub_11F2F	endp


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

; Attributes: bp-based frame

sub_11FB5	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 2
		jnz	short loc_11FC4
		mov	byte ptr word_22FAF+1, 3Eh ; '>'

loc_11FC4:
		test	byte ptr word_20650, 7
		jnz	short loc_1200D
		push	word_22D98
		push	word_22D9A
		mov	al, 0
		sub	al, byte ptr word_22FAF+1
		push	ax
		push	word_20670
		push	40h
		call	sub_1078E
		push	word_22D98
		push	word_22D9A
		push	word_22FAF+1
		push	word_20670
		push	40h
		call	sub_1078E
		mov	al, byte ptr word_22FAF+1
		add	al, 0FDh
		mov	byte ptr word_22FAF+1, al
		cmp	byte ptr word_22FAF+1, 0C8h
		jbe	short loc_1200D
		mov	word_20650, 0

loc_1200D:
		pop	bp
		retn
sub_11FB5	endp


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

; Attributes: bp-based frame

sub_1200F	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 3Ch	; '<'
		jl	loc_120F4
		mov	ax, word_20650
		mov	bx, 40h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1204F
		xor	si, si
		jmp	short loc_1204A
; ---------------------------------------------------------------------------

loc_1202D:
		mov	ax, word_205F8
		add	ax, 0FFE0h
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, word_205F6
		sub	ax, [bx+5314h]
		push	ax
		call	iatan2
		mov	[si+5541h], al
		inc	si

loc_1204A:
		cmp	si, 5
		jl	short loc_1202D

loc_1204F:
		test	byte ptr word_20650, 3
		jnz	loc_120E1
		cmp	word_20650, 180h
		jge	short loc_120A1
		mov	ax, word_20650
		mov	bx, 40h
		cwd
		idiv	bx
		sar	dx, 2
		cmp	dx, 8
		jg	short loc_120E1
		xor	si, si
		jmp	short loc_1209A
; ---------------------------------------------------------------------------

loc_12075:
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 0Ch
		push	ax
		mov	al, [si+5541h]
		push	ax
		push	20h ; ' '
		push	70h ; 'p'
		call	sub_1078E
		inc	si

loc_1209A:
		cmp	si, 5
		jl	short loc_12075
		jmp	short loc_120D7
; ---------------------------------------------------------------------------

loc_120A1:
		push	0
		call	sub_10E39
		xor	si, si
		jmp	short loc_120D2
; ---------------------------------------------------------------------------

loc_120AA:
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+5314h]
		add	ax, 8
		push	ax
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+531Eh]
		add	ax, 8
		push	ax
		push	word_22FB5
		push	21h ; '!'
		push	560070h
		call	sub_10865
		inc	si

loc_120D2:
		cmp	si, 5
		jl	short loc_120AA

loc_120D7:
		call	_snd_se_play c, 3

loc_120E1:
		cmp	word_20650, 1BFh
		jl	short loc_120F4
		mov	word_20650, 0
		push	1
		call	sub_10E39

loc_120F4:
		pop	si
		pop	bp
		retn
sub_1200F	endp


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

; Attributes: bp-based frame

sub_120F7	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_0]
		or	si, si
		jz	short loc_12107
		cmp	si, 1
		jnz	short loc_12128

loc_12107:
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+52DCh]
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+52DCh], 9Bh
		jl	loc_121B3
		mov	byte ptr [si+2BF0h], 1
		mov	ax, 1
		jmp	loc_121B5
; ---------------------------------------------------------------------------

loc_12128:
		cmp	si, 2
		jz	short loc_12132
		cmp	si, 3
		jnz	short loc_1217C

loc_12132:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+52DCh], 98h
		jge	short loc_12146
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+52DCh]

loc_12146:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+52DCh], 98h
		jnz	short loc_1215E
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+52DCh], 9Ch
		jmp	short loc_12166
; ---------------------------------------------------------------------------

loc_1215E:
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+52DCh]

loc_12166:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+52DCh], 9Fh
		jl	short loc_121B3
		mov	byte ptr [si+2BF0h], 1
		mov	ax, 1
		jmp	short loc_121B5
; ---------------------------------------------------------------------------

loc_1217C:
		cmp	si, 4
		jnz	short loc_121B3
		cmp	word_22D54, 98h
		jge	short loc_1218D
		inc	word_22D54

loc_1218D:
		cmp	word_22D54, 98h
		jnz	short loc_1219D
		mov	word_22D54, 0A0h
		jmp	short loc_121A1
; ---------------------------------------------------------------------------

loc_1219D:
		inc	word_22D54

loc_121A1:
		cmp	word_22D54, 0A3h ; '｣'
		jl	short loc_121B3
		mov	byte_20664, 1
		mov	ax, 1
		jmp	short loc_121B5
; ---------------------------------------------------------------------------

loc_121B3:
		xor	ax, ax

loc_121B5:
		pop	si
		pop	bp
		retn	2
sub_120F7	endp


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

; Attributes: bp-based frame

sub_121BA	proc near
		push	bp
		mov	bp, sp
		cmp	word_22D54, 0A0h
		jl	short loc_121C9
		dec	word_22D54

loc_121C9:
		cmp	word_22D54, 9Fh
		jnz	short loc_121DE
		mov	byte_20664, 0
		mov	word_22D54, 97h
		jmp	short loc_121E2
; ---------------------------------------------------------------------------

loc_121DE:
		dec	word_22D54

loc_121E2:
		cmp	word_22D54, 94h
		jg	short loc_121EF
		mov	ax, 1
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_121EF:
		xor	ax, ax
		pop	bp
		retn
sub_121BA	endp


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

; Attributes: bp-based frame

sub_121F3	proc near

arg_0		= byte ptr  4

		push	bp
		mov	bp, sp
		mov	cl, [bp+arg_0]
		test	byte ptr word_20650, 1
		jz	short loc_1223A
		mov	al, byte_22FCF
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+10B9h]
		mov	ah, 0
		mov	bx, ax
		mov	[bx+5546h], cl
		mov	al, byte_22FCF
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+10C5h]
		mov	ah, 0
		mov	bx, ax
		mov	[bx+5546h], cl
		inc	byte_22FCF
		cmp	byte_22FCF, 0Ch
		jb	short loc_1223A
		inc	byte_22FCE
		mov	byte_22FCF, 0

loc_1223A:
		pop	bp
		retn	2
sub_121F3	endp


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

; Attributes: bp-based frame

sub_1223E	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	si, 5546h
		call	egc_start_copy_noframe
		xor	di, di
		mov	[bp+var_2], 20h	; ' '
		jmp	short loc_122A7
; ---------------------------------------------------------------------------

loc_12257:
		cmp	byte ptr [si], 1
		jnz	short loc_12269
		push	[bp+var_2]
		push	word_22D9C
		push	word_22FD2
		jmp	short loc_12279
; ---------------------------------------------------------------------------

loc_12269:
		cmp	byte ptr [si], 2
		jnz	short loc_12283
		push	[bp+var_2]
		push	word_22D9C
		push	word_22FD4

loc_12279:
		call	sub_480C
		mov	byte ptr [si], 0
		jmp	short loc_122A1
; ---------------------------------------------------------------------------

loc_12283:
		cmp	byte ptr [di+5546h], 3
		jnz	short loc_122A1
		push	[bp+var_2]
		push	word_22D9C
		push	word_22FD6
		call	sub_480C
		mov	byte ptr [si], 0
		inc	byte_22FD0

loc_122A1:
		inc	di
		add	[bp+var_2], 10h
		inc	si

loc_122A7:
		cmp	di, 18h
		jl	short loc_12257
		call	egc_off
		pop	di
		pop	si
		leave
		retn
sub_1223E	endp


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

; Attributes: bp-based frame

sub_122B5	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 31h	; '1'
		jl	short loc_1232A
		cmp	word_20650, 31h	; '1'
		jnz	short loc_122F9
		xor	si, si
		jmp	short loc_122D1
; ---------------------------------------------------------------------------

loc_122CB:
		mov	byte ptr [si+5546h], 0
		inc	si

loc_122D1:
		cmp	si, 18h
		jl	short loc_122CB
		mov	byte_22FCF, 0
		mov	byte_22FCE, 0
		mov	byte_22FD0, 0
		mov	word_22FD2, 29h	; ')'
		mov	word_22FD4, 2Ah	; '*'
		mov	word_22FD6, 2Bh	; '+'
		jmp	short loc_1231B
; ---------------------------------------------------------------------------

loc_122F9:
		cmp	byte_22FCE, 0
		jnz	short loc_12304
		push	1
		jmp	short loc_12318
; ---------------------------------------------------------------------------

loc_12304:
		cmp	byte_22FCE, 1
		jnz	short loc_1230F
		push	2
		jmp	short loc_12318
; ---------------------------------------------------------------------------

loc_1230F:
		cmp	byte_22FCE, 2
		jnz	short loc_1231B
		push	3

loc_12318:
		call	sub_121F3

loc_1231B:
		call	sub_1223E
		cmp	byte_22FD0, 18h
		jb	short loc_1232A
		mov	ax, 1
		jmp	short loc_1232C
; ---------------------------------------------------------------------------

loc_1232A:
		xor	ax, ax

loc_1232C:
		pop	si
		pop	bp
		retn
sub_122B5	endp


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

; Attributes: bp-based frame

sub_1232F	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 31h	; '1'
		jl	short loc_123A4
		cmp	word_20650, 31h	; '1'
		jnz	short loc_12373
		xor	si, si
		jmp	short loc_1234B
; ---------------------------------------------------------------------------

loc_12345:
		mov	byte ptr [si+5546h], 0
		inc	si

loc_1234B:
		cmp	si, 18h
		jl	short loc_12345
		mov	byte_22FCF, 0
		mov	byte_22FCE, 0
		mov	byte_22FD0, 0
		mov	word_22FD2, 2Ah	; '*'
		mov	word_22FD4, 29h	; ')'
		mov	word_22FD6, 28h	; '('
		jmp	short loc_12395
; ---------------------------------------------------------------------------

loc_12373:
		cmp	byte_22FCE, 0
		jnz	short loc_1237E
		push	1
		jmp	short loc_12392
; ---------------------------------------------------------------------------

loc_1237E:
		cmp	byte_22FCE, 1
		jnz	short loc_12389
		push	2
		jmp	short loc_12392
; ---------------------------------------------------------------------------

loc_12389:
		cmp	byte_22FCE, 2
		jnz	short loc_12395
		push	3

loc_12392:
		call	sub_121F3

loc_12395:
		call	sub_1223E
		cmp	byte_22FD0, 18h
		jb	short loc_123A4
		mov	ax, 1
		jmp	short loc_123A6
; ---------------------------------------------------------------------------

loc_123A4:
		xor	ax, ax

loc_123A6:
		pop	si
		pop	bp
		retn
sub_1232F	endp


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

; Attributes: bp-based frame

sub_123A9	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	di, di
		inc	word_20650
		inc	dword_22D58
		call	sub_11877
		call	sub_116EC
		xor	si, si
		jmp	short loc_123D9
; ---------------------------------------------------------------------------

loc_123C3:
		cmp	byte ptr [si+2BF0h], 2
		jnz	short loc_123D0
		push	si
		call	sub_11766
		jmp	short loc_123D8
; ---------------------------------------------------------------------------

loc_123D0:
		cmp	byte ptr [si+2BF0h], 4
		jnz	short loc_123D8
		inc	di

loc_123D8:
		inc	si

loc_123D9:
		cmp	si, 5
		jl	short loc_123C3
		cmp	di, 5
		jl	short loc_123E9
		mov	ax, 2
		jmp	loc_12737
; ---------------------------------------------------------------------------

loc_123E9:
		cmp	byte_22D56, 0
		jnz	short loc_12454
		cmp	word_20650, 32h	; '2'
		jz	short loc_1241A
		cmp	word_20650, 34h	; '4'
		jz	short loc_1241A
		cmp	word_20650, 36h	; '6'
		jz	short loc_1241A
		cmp	word_20650, 3Ah	; ':'
		jz	short loc_1241A
		cmp	word_20650, 3Ch	; '<'
		jz	short loc_1241A
		cmp	word_20650, 3Eh	; '>'
		jnz	short loc_12425

loc_1241A:
		inc	word_22D4C
		inc	word_22D4E
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_12425:
		cmp	word_20650, 40h
		jnz	loc_12734
		inc	word_22D4C
		inc	word_22D4E
		mov	word_20650, 0
		mov	byte_20660, 1
		mov	byte_20661, 1
		mov	byte_22D56, 1
		mov	word_22FAA, 0
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_12454:
		cmp	byte_22D56, 1
		jnz	short loc_124C2
		call	sub_119CD
		cmp	dword_22D58, 514h
		jle	short loc_12481
		cmp	byte_20660, 1
		jnz	short loc_12475
		mov	byte_20660, 2

loc_12475:
		cmp	byte_20661, 1
		jnz	short loc_12481
		mov	byte_20661, 2

loc_12481:
		cmp	di, 2
		jl	loc_12734
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_12734
		push	2
		call	sub_120F7
		push	3
		call	sub_120F7
		or	ax, ax
		jz	short loc_124B6
		mov	byte_22D56, 2
		mov	word_20650, 0
		mov	word_22FAA, 0

loc_124B6:
		mov	dword_22D58, 0
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_124C2:
		cmp	byte_22D56, 2
		jnz	short loc_12520
		cmp	dword_22D58, 514h
		jle	short loc_124EC
		cmp	byte_20662, 1
		jnz	short loc_124E0
		mov	byte_20662, 2

loc_124E0:
		cmp	byte_20663, 1
		jnz	short loc_124EC
		mov	byte_20663, 2

loc_124EC:
		cmp	di, 4
		jl	short loc_12519
		mov	byte_22D56, 3
		mov	word_20650, 0
		mov	byte_22D57, 0
		mov	word_22FAA, 0
		mov	ax, word_22D8C
		add	ax, 8
		mov	word_205D8, ax
		mov	word_205DA, 20h	; ' '
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_12519:
		push	di
		call	sub_11A87
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_12520:
		cmp	byte_22D56, 3
		jnz	short loc_12567
		call	sub_122B5
		or	ax, ax
		jz	loc_12734
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_12734
		push	4
		call	sub_120F7
		or	ax, ax
		jz	loc_12734
		mov	byte_22D56, 4
		mov	word_20650, 0
		mov	word_22FAA, 0
		mov	dword_22D58, 0
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_12567:
		cmp	byte_22D56, 4
		jnz	short loc_125E9
		cmp	byte_22D57, 0
		jnz	short loc_1257A
		call	sub_11B5D
		jmp	short loc_125B4
; ---------------------------------------------------------------------------

loc_1257A:
		cmp	byte_22D57, 1
		jnz	short loc_12586
		call	sub_11BFE
		jmp	short loc_125B4
; ---------------------------------------------------------------------------

loc_12586:
		cmp	byte_22D57, 2
		jnz	short loc_12592
		call	sub_11C37
		jmp	short loc_125B4
; ---------------------------------------------------------------------------

loc_12592:
		cmp	byte_22D57, 3
		jnz	short loc_1259E
		call	sub_11DF6
		jmp	short loc_125B4
; ---------------------------------------------------------------------------

loc_1259E:
		cmp	byte_22D57, 4
		jnz	short loc_125AA
		call	sub_11E40
		jmp	short loc_125B4
; ---------------------------------------------------------------------------

loc_125AA:
		cmp	byte_22D57, 5
		jnz	short loc_125B4
		call	sub_11E76

loc_125B4:
		cmp	word_20650, 0
		jnz	short loc_125D6
		inc	byte_22D57
		mov	word_22FAA, 0
		cmp	byte_22D57, 5
		jbe	short loc_125D6
		mov	byte_22D56, 5
		mov	byte_22D57, 0

loc_125D6:
		cmp	word_2064C, 1F4h
		jl	loc_12734
		mov	word_2064C, 1F4h
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_125E9:
		cmp	byte_22D56, 5
		jnz	short loc_1261B
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1260A
		cmp	byte_22D57, 0
		jnz	short loc_1260A
		call	sub_121BA
		mov	byte_22D57, al

loc_1260A:
		call	sub_1232F
		or	ax, ax
		jz	loc_12734
		mov	byte_22D56, 6
		jmp	loc_1269E
; ---------------------------------------------------------------------------

loc_1261B:
		cmp	byte_22D56, 6
		jnz	short loc_1266F
		cmp	byte_22D57, 0
		jz	short loc_1263C
		cmp	byte_22D57, 1
		jnz	short loc_12635
		call	sub_11F2F
		jmp	short loc_1264B
; ---------------------------------------------------------------------------

loc_12635:
		cmp	byte_22D57, 2
		jnz	short loc_12641

loc_1263C:
		call	sub_11FB5
		jmp	short loc_1264B
; ---------------------------------------------------------------------------

loc_12641:
		cmp	byte_22D57, 3
		jnz	short loc_1264B
		call	sub_1200F

loc_1264B:
		cmp	word_20650, 0
		jnz	loc_12734
		inc	byte_22D57
		mov	word_22FAA, 0
		cmp	byte_22D57, 3
		jbe	loc_12734
		mov	byte_22D56, 7
		jmp	loc_12734
; ---------------------------------------------------------------------------

loc_1266F:
		cmp	byte_22D56, 7
		jnz	short loc_126BA
		call	sub_122B5
		or	ax, ax
		jz	loc_12734
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_12734
		push	4
		call	sub_120F7
		or	ax, ax
		jz	loc_12734
		mov	byte_22D56, 8

loc_1269E:
		mov	word_20650, 0
		mov	word_22FAA, 0
		mov	dword_22D58, 0
		mov	byte_22D57, 0
		jmp	short loc_12734
; ---------------------------------------------------------------------------

loc_126BA:
		cmp	byte_22D56, 8
		jnz	short loc_12734
		cmp	byte_22D57, 0
		jnz	short loc_126CD
		call	sub_11D30
		jmp	short loc_12707
; ---------------------------------------------------------------------------

loc_126CD:
		cmp	byte_22D57, 1
		jnz	short loc_126D9
		call	sub_11BFE
		jmp	short loc_12707
; ---------------------------------------------------------------------------

loc_126D9:
		cmp	byte_22D57, 2
		jnz	short loc_126E5
		call	sub_11C8A
		jmp	short loc_12707
; ---------------------------------------------------------------------------

loc_126E5:
		cmp	byte_22D57, 3
		jnz	short loc_126F1
		call	sub_11DF6
		jmp	short loc_12707
; ---------------------------------------------------------------------------

loc_126F1:
		cmp	byte_22D57, 4
		jnz	short loc_126FD
		call	sub_11E40
		jmp	short loc_12707
; ---------------------------------------------------------------------------

loc_126FD:
		cmp	byte_22D57, 5
		jnz	short loc_12707
		call	sub_11E76

loc_12707:
		cmp	word_20650, 0
		jnz	short loc_12734
		inc	byte_22D57
		mov	word_22FAA, 0
		cmp	byte_22D57, 5
		jbe	short loc_12724
		mov	byte_22D57, 1

loc_12724:
		cmp	dword_22D58, 7D0h
		jle	short loc_12734
		mov	byte_20664, 2

loc_12734:
		mov	ax, 1

loc_12737:
		pop	di
		pop	si
		pop	bp
		retf
sub_123A9	endp


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

; Attributes: bp-based frame

sub_1273B	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		push	1
		call	sub_1310B
		call	sub_FC53
		call	sub_E162
		inc	stage_id
		pop	bp
		retf
sub_1273B	endp


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

; Attributes: bp-based frame

sub_12754	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		push	0
		call	sub_1310B
		call	sub_12E95
		push	ds
		push	offset aBoss2_m	; "boss2.m"
		nopcall	sub_13ABB
		add	sp, 4
		call	sub_12778
		nopcall	sub_129FC
		pop	bp
		retf
sub_12754	endp


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

; Attributes: bp-based frame

sub_12778	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	word_20650, 0
		xor	si, si
		jmp	short loc_127A5
; ---------------------------------------------------------------------------

loc_12786:
		mov	byte ptr [si+2BF0h], 0
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+2BD4h], 0
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+52DCh], 94h
		mov	byte ptr [si+2BF5h], 0
		inc	si

loc_127A5:
		cmp	si, 5
		jl	short loc_12786
		mov	word_22D84, 80h
		mov	word_22D8E, 20h	; ' '
		mov	word_22D86, 120h
		mov	word_22D90, 20h	; ' '
		mov	word_22D88, 30h	; '0'
		mov	word_22D92, 30h	; '0'
		mov	word_22D8A, 170h
		mov	word_22D94, 30h	; '0'
		mov	word_22D8C, 0D0h
		mov	word_22D96, 20h	; ' '
		mov	word_22D9A, 28h	; '('
		mov	word_22D98, 0DCh
		nopcall	sub_17A55
		mov	byte_23A70, 0Ch
		mov	word_22FAA, 0
		mov	dword_22D58, 0
		mov	byte_22D56, 0
		mov	byte_22D57, 0
		mov	byte_1E510, 20h	; ' '
		mov	word_22D9C, 60h
		mov	ax, _scroll_line
		add	word_22D9C, ax
		cmp	word_22D9C, RES_Y
		jl	short loc_12835
		sub	word_22D9C, RES_Y

loc_12835:
		call	sub_11997
		pop	si
		pop	bp
		retn
sub_12778	endp

; ---------------------------------------------------------------------------
		db 0

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

; Attributes: bp-based frame

sub_1283C	proc near

var_12		= word ptr -12h
var_10		= word ptr -10h
var_E		= word ptr -0Eh
var_B		= byte ptr -0Bh
var_A		= word ptr -0Ah
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8
arg_6		= word ptr  0Ah

		push	bp
		mov	bp, sp
		sub	sp, 12h
		push	si
		push	di
		mov	bl, shot_level
		mov	bh, 0
		add	bx, bx
		mov	ax, [bx+10DAh]
		mov	[bp+var_E], ax
		mov	ax, [bx+10EEh]
		mov	[bp+var_10], ax
		mov	ax, [bx+1102h]
		mov	[bp+var_12], ax
		mov	[bp+var_8], 0
		mov	ax, [bp+arg_6]
		add	ax, [bp+arg_2]
		mov	[bp+var_A], ax
		mov	al, _page_back
		shl	al, 2
		add	al, 4
		mov	[bp+var_B], al
		mov	ax, [bp+arg_4]
		add	ax, 0FFF8h
		mov	[bp+var_6], ax
		sub	[bp+arg_6], 8
		mov	si, 2908h
		mov	[bp+var_2], 0

loc_1288F:
		cmp	byte ptr [si], 1
		jz	short loc_12897
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_12897:
		cmp	byte ptr [si+0Fh], 0
		jz	short loc_128A0
		jmp	loc_12943
; ---------------------------------------------------------------------------

loc_128A0:
		cmp	byte ptr [si+1], 0
		jz	short loc_128A9
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_128A9:
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si-2]
		sar	ax, 4
		mov	[bp+var_4], ax
		cmp	ax, [bp+arg_6]
		jg	short loc_128C1
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_128C1:
		cmp	ax, [bp+var_A]
		jl	short loc_128C9
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_128C9:
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si]
		sar	ax, 4
		mov	di, ax
		cmp	di, [bp+var_6]
		jg	short loc_128DF
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_128DF:
		mov	ax, [bp+var_6]
		add	ax, [bp+arg_0]
		cmp	ax, di
		jg	short loc_128EC
		jmp	loc_129AB
; ---------------------------------------------------------------------------

loc_128EC:
		inc	[bp+var_8]
		cmp	word ptr [si+0Eh], 32h ; '2'
		jl	short loc_12926
		sar	word ptr [si+0Ah], 3
		sar	word ptr [si+0Ch], 3
		cmp	word ptr [si+0Eh], 78h ; 'x'
		jl	short loc_1291C
		mov	byte ptr [si+1], 1
		mov	ax, [bx+si-2]
		sub	ax, 80h
		mov	[bx+si-2], ax
		mov	ax, [bx+si]
		sub	ax, 80h
		mov	[bx+si], ax
		mov	ax, [bp+var_12]
		jmp	short loc_12923
; ---------------------------------------------------------------------------

loc_1291C:
		mov	byte ptr [si+1], 2
		mov	ax, [bp+var_E]

loc_12923:
		add	[bp+var_8], ax

loc_12926:
		push	[bp+var_4]
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si]
		sar	ax, 4
		push	ax
		push	1Eh
		push	1
		push	0
		call	sub_4090
		jmp	short loc_129AB
; ---------------------------------------------------------------------------

loc_12943:
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si-2]
		sar	ax, 4
		mov	[bp+var_4], ax
		cmp	ax, [bp+arg_6]
		jle	short loc_129AB
		mov	ax, [bp+arg_6]
		add	ax, [bp+arg_2]
		cmp	ax, [bp+var_4]
		jle	short loc_129AB
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si]
		sar	ax, 4
		mov	di, ax
		cmp	di, [bp+var_6]
		jle	short loc_129AB
		mov	ax, [bp+var_6]
		add	ax, [bp+arg_0]
		cmp	ax, di
		jle	short loc_129AB
		cmp	byte ptr [si+1], 1
		jnz	short loc_129A5
		push	[bp+var_4]
		mov	al, [bp+var_B]
		mov	ah, 0
		mov	bx, ax
		mov	ax, [bx+si]
		sar	ax, 4
		push	ax
		push	28h ; '('
		push	1
		push	0
		call	sub_4090
		mov	byte ptr [si+1], 2

loc_129A5:
		mov	ax, [bp+var_10]
		add	[bp+var_8], ax

loc_129AB:
		inc	[bp+var_2]
		add	si, 10h
		cmp	[bp+var_2], 23h	; '#'
		jge	short loc_129BA
		jmp	loc_1288F
; ---------------------------------------------------------------------------

loc_129BA:
		cmp	byte_218B4, 0
		jz	short loc_129CD
		mov	al, byte_1EB88
		test	byte ptr dword_20612, al
		jnz	short loc_129CD
		inc	[bp+var_8]

loc_129CD:
		mov	ax, [bp+var_8]
		add	word ptr dword_218AC, ax
		mov	ax, [bp+var_8]
		pop	di
		pop	si
		leave
		retn	8
sub_1283C	endp


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

; Attributes: bp-based frame

sub_129DD	proc far
		push	bp
		mov	bp, sp
		push	si
		mov	si, 5F6Ch
		xor	ax, ax
		jmp	short loc_129EF
; ---------------------------------------------------------------------------

loc_129E8:
		mov	byte ptr [si], 0
		inc	ax
		add	si, 0Ch

loc_129EF:
		cmp	ax, 0Ch
		jl	short loc_129E8
		mov	byte_23A70, 10h
		pop	si
		pop	bp
		retf
sub_129DD	endp


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

; Attributes: bp-based frame

sub_129FC	proc far
		push	bp
		mov	bp, sp
		setfarfp	farfp_23A72, sub_12A7D
		setfarfp	farfp_23A76, sub_12B9E
		pop	bp
		retf
sub_129FC	endp


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

; Attributes: bp-based frame

sub_12A19	proc near

arg_0		= byte ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8
arg_6		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, 5F6Ch
		cmp	[bp+arg_6], 20h	; ' '
		jl	short loc_12A77
		cmp	[bp+arg_6], 1A0h
		jge	short loc_12A77
		xor	di, di
		jmp	short loc_12A72
; ---------------------------------------------------------------------------

loc_12A32:
		cmp	byte ptr [si], 0
		jnz	short loc_12A6E
		mov	byte ptr [si], 1
		mov	byte ptr [si+1], 1
		mov	ax, [bp+arg_6]
		mov	[si+2],	ax
		mov	ax, [bp+arg_4]
		mov	[si+4],	ax
		mov	al, byte_23A70
		mov	ah, 0
		mov	[si+6],	ax
		mov	ax, [bp+arg_2]
		mov	[si+8],	ax
		mov	byte ptr [si+0Ah], 0
		mov	al, [bp+arg_0]
		mov	[si+0Bh], al
		call	_snd_se_play c, 6
		jmp	short loc_12A77
; ---------------------------------------------------------------------------

loc_12A6E:
		inc	di
		add	si, 0Ch

loc_12A72:
		cmp	di, 0Ch
		jl	short loc_12A32

loc_12A77:
		pop	di
		pop	si
		pop	bp
		retn	8
sub_12A19	endp


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

; Attributes: bp-based frame

sub_12A7D	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, 5F6Ch
		xor	di, di
		jmp	short loc_12AD9
; ---------------------------------------------------------------------------

loc_12A89:
		cmp	byte ptr [si], 0
		jz	short loc_12AD5
		cmp	byte ptr [si+0Ah], 4
		ja	short loc_12AB9
		mov	ax, [si+2]
		add	ax, 0FFF8h
		push	ax
		mov	ax, [si+4]
		add	ax, 0FFF8h
		push	ax
		push	200020h
		call	sub_45FC
		test	byte ptr dword_20612, 3
		jnz	short loc_12ACD
		inc	byte ptr [si+0Ah]
		jmp	short loc_12ACD
; ---------------------------------------------------------------------------

loc_12AB9:
		push	word ptr [si+2]
		push	word ptr [si+4]
		push	10h
		mov	ax, 190h
		sub	ax, [si+4]
		push	ax
		call	sub_45FC

loc_12ACD:
		cmp	byte ptr [si], 2
		jnz	short loc_12AD5
		mov	byte ptr [si], 0

loc_12AD5:
		inc	di
		add	si, 0Ch

loc_12AD9:
		cmp	di, 0Ch
		jl	short loc_12A89
		pop	di
		pop	si
		pop	bp
		retf
sub_12A7D	endp


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

; Attributes: bp-based frame

sub_12AE2	proc near

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

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	di, [bp+arg_0]
		mov	si, _scroll_line
		mov	ax, word_23A6E
		mov	[bp+var_2], ax
		add	si, word_23A6E
		cmp	si, RES_Y
		jl	short loc_12B05
		sub	si, RES_Y

loc_12B05:
		cmp	byte ptr [di+1], 5
		jnb	short loc_12B1E
		push	word_23A6C
		push	si
		mov	al, [di+1]
		mov	ah, 0
		add	ax, 5Bh	; '['
		push	ax
		call	super_roll_put_tiny

loc_12B1E:
		add	si, 8
		cmp	si, 190h
		jl	short loc_12B2B
		sub	si, 190h

loc_12B2B:
		add	[bp+var_2], 8
		mov	al, [di+0Bh]
		mov	ah, 0
		mov	dl, [di+1]
		mov	dh, 0
		add	ax, dx
		mov	[bp+var_4], ax
		jmp	short loc_12B5E
; ---------------------------------------------------------------------------

loc_12B40:
		push	word_23A6C
		push	si
		push	[bp+var_4]
		call	super_roll_put_tiny
		add	si, 10h
		cmp	si, 190h
		jl	short loc_12B5A
		sub	si, 190h

loc_12B5A:
		add	[bp+var_2], 10h

loc_12B5E:
		cmp	[bp+var_2], 180h
		jl	short loc_12B40
		cmp	byte ptr [di+1], 4
		jnz	short loc_12B98
		mov	ax, word_23A6C
		add	ax, 0FFE8h
		cmp	ax, word_205F6
		jge	short loc_12B98
		mov	ax, word_23A6C
		add	ax, 8
		cmp	ax, word_205F6
		jle	short loc_12B98
		mov	ax, word_205F8
		cmp	ax, word_23A6E
		jl	short loc_12B98
		cmp	_player_is_hit, 0
		jnz	short loc_12B98
		mov	_player_is_hit, 1

loc_12B98:
		pop	di
		pop	si
		leave
		retn	2
sub_12AE2	endp


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

; Attributes: bp-based frame

sub_12B9E	proc far

var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		mov	si, 5F6Ch
		mov	[bp+var_4], 0
		jmp	loc_12C66
; ---------------------------------------------------------------------------

loc_12BB1:
		cmp	byte ptr [si], 1
		jnz	loc_12C60
		mov	ax, [si+2]
		mov	word_23A6C, ax
		mov	ax, [si+4]
		mov	word_23A6E, ax
		cmp	byte ptr [si+0Ah], 4
		jnb	short loc_12C00
		add	ax, 0FFF8h
		mov	di, ax
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_12BDD
		sub	di, RES_Y

loc_12BDD:
		mov	ax, word_23A6C
		add	ax, 0FFF8h
		mov	[bp+var_2], ax
		mov	al, [si+0Ah]
		mov	ah, 0
		add	ax, 1Eh
		mov	[bp+var_6], ax
		push	[bp+var_2]
		push	di
		push	ax
		call	super_roll_put
		dec	word ptr [si+6]
		jmp	short loc_12C60
; ---------------------------------------------------------------------------

loc_12C00:
		cmp	byte ptr [si+1], 1
		jnz	short loc_12C11
		dec	word ptr [si+6]
		cmp	word ptr [si+6], 0
		jg	short loc_12C5C
		jmp	short loc_12C42
; ---------------------------------------------------------------------------

loc_12C11:
		cmp	byte ptr [si+1], 4
		jnb	short loc_12C33
		test	byte ptr dword_20612, 7
		jnz	short loc_12C21
		inc	byte ptr [si+1]

loc_12C21:
		cmp	byte ptr [si+1], 4
		jnz	short loc_12C5C
		call	_snd_se_play c, 7
		jmp	short loc_12C5C
; ---------------------------------------------------------------------------

loc_12C33:
		cmp	byte ptr [si+1], 4
		jnz	short loc_12C47
		dec	word ptr [si+8]
		cmp	word ptr [si+8], 0
		jnz	short loc_12C5C

loc_12C42:
		inc	byte ptr [si+1]
		jmp	short loc_12C5C
; ---------------------------------------------------------------------------

loc_12C47:
		test	byte ptr dword_20612, 3
		jnz	short loc_12C51
		inc	byte ptr [si+1]

loc_12C51:
		cmp	byte ptr [si+1], 9
		jnz	short loc_12C5C
		mov	byte ptr [si], 2
		jmp	short loc_12C60
; ---------------------------------------------------------------------------

loc_12C5C:
		push	si
		call	sub_12AE2

loc_12C60:
		inc	[bp+var_4]
		add	si, 0Ch

loc_12C66:
		cmp	[bp+var_4], 0Ch
		jl	loc_12BB1
		pop	di
		pop	si
		leave
		retf
sub_12B9E	endp


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

; Attributes: bp-based frame

sub_12C72	proc far

var_6		= word ptr -6
var_4		= dword	ptr -4

		enter	6, 0
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 12FBh
		les	bx, [bp+var_4]
		mov	al, stage_id
		add	al, 30h	; '0'
		mov	es:[bx+5], al
		push	word ptr [bp+var_4+2]
		push	bx
		call	file_ropen
		call	file_size
		mov	[bp+var_6], ax
		push	ds
		push	offset unk_23A7A
		push	ax
		call	file_read
		call	file_close
		mov	byte_24E7A, 0
		leave
		retf
sub_12C72	endp

EGC_START_COPY_DEF 2, near

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

; Attributes: bp-based frame

sub_12CE5	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	si, word_205F8
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_12CFB
		sub	si, RES_Y

loc_12CFB:
		push	word_205F6
		push	si
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	si, [bx+2B8Ch]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_12D23
		sub	si, RES_Y

loc_12D23:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		push	si
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		push	si
		push	48h ; 'H'
		call	super_roll_put_tiny
		pop	si
		pop	bp
		retn
sub_12CE5	endp


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

; Attributes: bp-based frame

sub_12D56	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8
arg_6		= dword	ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_0]
		les	bx, [bp+arg_6]
		cmp	word ptr es:[bx], 10h
		jl	short loc_12D8B
		cmp	word ptr es:[bx], 190h
		jg	short loc_12D8B
		push	word ptr es:[bx]
		push	[bp+arg_4]
		push	si
		call	super_roll_put
		les	bx, [bp+arg_6]
		push	word ptr es:[bx]
		push	[bp+arg_2]
		lea	ax, [si+8]
		push	ax
		call	super_roll_put

loc_12D8B:
		les	bx, [bp+arg_6]
		add	word ptr es:[bx], 20h ;	' '
		pop	si
		pop	bp
		retn	0Ah
sub_12D56	endp


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

; Attributes: bp-based frame

sub_12D97	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= dword	ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_2]
		mov	si, 22h	; '"'
		jmp	short loc_12DB1
; ---------------------------------------------------------------------------

loc_12DA4:
		pushd	[bp+arg_4]
		push	di
		push	[bp+arg_0]
		push	si
		call	sub_12D56
		inc	si

loc_12DB1:
		cmp	si, 25h	; '%'
		jl	short loc_12DA4
		xor	si, si
		jmp	short loc_12DC8
; ---------------------------------------------------------------------------

loc_12DBA:
		pushd	[bp+arg_4]
		push	di
		push	[bp+arg_0]
		push	25h ; '%'
		call	sub_12D56
		inc	si

loc_12DC8:
		cmp	si, 8
		jl	short loc_12DBA
		pushd	[bp+arg_4]
		push	di
		push	[bp+arg_0]
		push	26h ; '&'
		call	sub_12D56
		pop	di
		pop	si
		pop	bp
		retn	8
sub_12D97	endp


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

; Attributes: bp-based frame

sub_12DE0	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		enter	4, 0
		push	si
		push	di
		mov	di, 32
		nopcall	sub_FBE9
		call	sub_DE4E
		call	graph_scrollup pascal, _scroll_line
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		graph_accesspage _page_front
		nopcall	sub_FBE9
		mov	si, 320
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_12E24
		sub	si, RES_Y

loc_12E24:
		add	di, si
		cmp	di, RES_Y
		jl	short loc_12E30
		sub	di, RES_Y

loc_12E30:
		mov	[bp+var_4], RES_Y
		cmp	byte_2287E, 2
		jnz	short loc_12E48
		mov	byte_24E7B, 1
		mov	byte_2287E, 0
		jmp	short loc_12E8B
; ---------------------------------------------------------------------------

loc_12E48:
		mov	byte_24E7B, 0
		jmp	short loc_12E8B
; ---------------------------------------------------------------------------

loc_12E4F:
		sub	[bp+var_4], 10h
		mov	ax, [bp+var_4]
		mov	[bp+var_2], ax
		push	1
		call	frame_delay
		call	egc_start_copy_2
		push	200140h
		push	1800050h
		call	sub_45FC
		call	sub_4692
		call	egc_off
		call	sub_12CE5
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		push	si
		push	di
		call	sub_12D97

loc_12E8B:
		cmp	[bp+var_4], 20h	; ' '
		jg	short loc_12E4F
		pop	di
		pop	si
		leave
		retn
sub_12DE0	endp


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

; Attributes: bp-based frame

sub_12E95	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		enter	4, 0
		push	si
		push	di
		mov	di, 20h	; ' '
		nopcall	sub_FBE9
		mov	si, 320
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_12EB4
		sub	si, RES_Y

loc_12EB4:
		add	di, si
		cmp	di, RES_Y
		jl	short loc_12EC0
		sub	di, RES_Y

loc_12EC0:
		mov	[bp+var_4], 20h	; ' '

loc_12EC5:
		sub	[bp+var_4], 10h
		mov	ax, [bp+var_4]
		mov	[bp+var_2], ax
		push	1
		call	frame_delay
		call	egc_start_copy_2
		push	200140h
		push	1800050h
		call	sub_45FC
		call	sub_4692
		call	egc_off
		call	sub_12CE5
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		push	si
		push	di
		call	sub_12D97
		cmp	[bp+var_2], 30h	; '0'
		jge	short loc_12EC5
		cmp	byte_24E7B, 1
		jnz	short loc_12F18
		mov	byte_24E7B, 0
		mov	byte_2287E, 2

loc_12F18:
		graph_accesspage _page_back
		pop	di
		pop	si
		leave
		retn
sub_12E95	endp


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

; Attributes: bp-based frame

sub_12F23	proc near

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

		enter	4, 0
		push	si
		push	di
		mov	di, [bp+arg_0]
		mov	[bp+var_2], 0
		mov	[bp+var_4], 0
		mov	si, 328
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_12F47
		sub	si, RES_Y

loc_12F47:
		lea	ax, [si+10h]
		add	[bp+var_2], ax
		cmp	[bp+var_2], 190h
		jl	short loc_12F59
		sub	[bp+var_2], 190h

loc_12F59:
		mov	ax, [bp+var_2]
		add	ax, 10h
		add	[bp+var_4], ax
		cmp	[bp+var_4], 190h
		jl	short loc_12F6E
		sub	[bp+var_4], 190h

loc_12F6E:
		cmp	di, 0FFh
		jnz	short loc_12F94
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	28h ; '('
		push	si
		push	57h ; 'W'
		lea	ax, [si+2Fh]
		push	ax
		call	grcg_boxfill
		call	grcg_off
		jmp	short loc_13009
; ---------------------------------------------------------------------------

loc_12F94:
		push	28h ; '('
		push	si
		push	di
		call	sub_3998
		push	38h ; '8'
		push	si
		lea	ax, [di+1]
		push	ax
		call	sub_3998
		push	48h ; 'H'
		push	si
		lea	ax, [di+2]
		push	ax
		call	sub_3998
		push	28h ; '('
		push	[bp+var_2]
		lea	ax, [di+10h]
		push	ax
		call	sub_3998
		push	38h ; '8'
		push	[bp+var_2]
		lea	ax, [di+11h]
		push	ax
		call	sub_3998
		push	48h ; 'H'
		push	[bp+var_2]
		lea	ax, [di+12h]
		push	ax
		call	sub_3998
		push	28h ; '('
		push	[bp+var_4]
		lea	ax, [di+20h]
		push	ax
		call	sub_3998
		push	38h ; '8'
		push	[bp+var_4]
		lea	ax, [di+21h]
		push	ax
		call	sub_3998
		push	48h ; 'H'
		push	[bp+var_4]
		lea	ax, [di+22h]
		push	ax
		call	sub_3998

loc_13009:
		pop	di
		pop	si
		leave
		retn	2
sub_12F23	endp


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

; Attributes: bp-based frame

sub_1300F	proc near

var_28		= byte ptr -28h
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= dword	ptr  8
arg_8		= word ptr  0Ch

		enter	28h, 0
		push	si
		lea	ax, [bp+var_28]
		push	ss
		push	ax
		push	ds
		push	offset unk_1EB98
		mov	cx, 28h	; '('
		call	SCOPY@
		xor	si, si
		jmp	short loc_13035
; ---------------------------------------------------------------------------

loc_13029:
		les	bx, [bp+arg_4]
		add	bx, si
		mov	al, es:[bx]
		mov	[bp+si+var_28],	al
		inc	si

loc_13035:
		cmp	si, [bp+arg_0]
		jl	short loc_13029
		push	14
		mov	ax, [bp+arg_8]
		add	ax, 21
		push	ax
		push	ss
		lea	ax, [bp+var_28]
		push	ax
		push	[bp+arg_2]
		call	text_putsa
		pop	si
		leave
		retn	0Ah
sub_1300F	endp


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

; Attributes: bp-based frame

sub_13055	proc near

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

		enter	4, 0
		push	si
		push	di
		call	text_putsa pascal, (14 shl 16) + 21, ds, word_1EB96, TX_WHITE
		call	text_putsa pascal, (14 shl 16) + 22, ds, word_1EB96, TX_WHITE
		mov	si, 6
		xor	di, di
		mov	al, byte_24E7A
		mov	ah, 0
		mov	[bp+var_4], ax
		jmp	short loc_130F7
; ---------------------------------------------------------------------------

loc_13090:
		call	_input_sense
		push	[bp+arg_0]
		call	sub_12F23
		cmp	si, 24h	; '$'
		jg	short loc_130B3
		push	0
		push	ds
		mov	ax, [bp+var_4]
		imul	ax, 50h
		add	ax, 600Ah
		push	ax
		push	TX_WHITE
		push	si
		jmp	short loc_130CC
; ---------------------------------------------------------------------------

loc_130B3:
		cmp	si, 48h	; 'H'
		jg	short loc_130CF
		push	1
		push	ds
		mov	ax, [bp+var_4]
		imul	ax, 50h
		add	ax, 6032h
		push	ax
		push	TX_WHITE
		lea	ax, [si-24h]
		push	ax

loc_130CC:
		call	sub_1300F

loc_130CF:
		inc	di
		cmp	_input, 0
		jz	short loc_130DE
		mov	[bp+var_2], 1
		jmp	short loc_130EA
; ---------------------------------------------------------------------------

loc_130DE:
		mov	[bp+var_2], 3
		push	1
		call	frame_delay

loc_130EA:
		mov	ax, di
		cwd
		idiv	[bp+var_2]
		or	dx, dx
		jnz	short loc_130F7
		add	si, 2

loc_130F7:
		cmp	si, 50h	; 'P'
		jle	short loc_13090
		call	_key_delay
		inc	byte_24E7A
		pop	di
		pop	si
		leave
		retn	2
sub_13055	endp


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

; Attributes: bp-based frame

sub_1310B	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		enter	2, 0
		push	si
		push	di
		mov	di, [bp+arg_0]
		mov	al, stage_id
		cbw
		add	ax, ax
		add	ax, di
		mov	[bp+var_2], ax
		xor	si, si
		jmp	short loc_13134
; ---------------------------------------------------------------------------

loc_13123:
		mov	bx, [bp+var_2]
		imul	bx, 16h
		mov	al, [bx+si+115Ch]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_13134:
		mov	al, stage_id
		cbw
		add	ax, ax
		mov	bx, ax
		mov	al, [bx+di+1150h]
		mov	ah, 0
		cmp	ax, si
		jg	short loc_13123
		pop	di
		pop	si
		leave
		retn	2
sub_1310B	endp


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

; Attributes: bp-based frame

sub_1314C	proc near
		push	bp
		mov	bp, sp
		push	0
		call	sub_13055
		push	60h
		call	sub_13055
		pop	bp
		retn
sub_1314C	endp


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

; Attributes: bp-based frame

sub_1315B	proc near

var_8		= byte ptr -8

		enter	8, 0
		push	si
		lea	ax, [bp+var_8]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ECD4
		mov	cx, 8
		call	SCOPY@
		xor	si, si
		jmp	short loc_1317F
; ---------------------------------------------------------------------------

loc_13175:
		mov	al, [bp+si+var_8]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_1317F:
		cmp	si, 8
		jl	short loc_13175
		pop	si
		leave
		retn
sub_1315B	endp


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

; Attributes: bp-based frame

sub_13187	proc near

var_C		= byte ptr -0Ch

		enter	0Ch, 0
		push	si
		lea	ax, [bp+var_C]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ECDC
		mov	cx, 0Bh
		call	SCOPY@
		xor	si, si
		jmp	short loc_131AB
; ---------------------------------------------------------------------------

loc_131A1:
		mov	al, [bp+si+var_C]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_131AB:
		cmp	si, 0Bh
		jl	short loc_131A1
		call	text_putsa pascal, (14 shl 16) + 21, ds, word_1EB96, TX_WHITE
		call	text_putsa pascal, (14 shl 16) + 22, ds, word_1EB96, TX_WHITE
		pop	si
		leave
		retn
sub_13187	endp


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

; Attributes: bp-based frame

sub_131D9	proc near

var_2E		= byte ptr -2Eh
var_1A		= byte ptr -1Ah
var_10		= byte ptr -10h
var_6		= byte ptr -6

		enter	2Eh, 0
		push	si
		lea	ax, [bp+var_2E]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ECE8
		mov	cx, 14h
		call	SCOPY@
		lea	ax, [bp+var_6]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ECFC
		mov	cx, 6
		call	SCOPY@
		lea	ax, [bp+var_10]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ED02
		mov	cx, 0Ah
		call	SCOPY@
		lea	ax, [bp+var_1A]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ED0C
		mov	cx, 0Ah
		call	SCOPY@
		push	1
		call	sub_1310B
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jz	loc_13304
		xor	si, si
		jmp	short loc_13248
; ---------------------------------------------------------------------------

loc_13238:
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_6]
		add	bx, ax
		push	word ptr ss:[bx]
		call	sub_13055
		inc	si

loc_13248:
		cmp	si, 3
		jl	short loc_13238
		les	bx, mikoconfig
		mov	ax, es:[bx+mikoconfig_t.continues_used]
		mov	bx, 0Ah
		xor	dx, dx
		div	bx
		mov	si, ax
		or	si, si
		jz	short loc_1329D
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_2E]
		add	bx, ax
		mov	bx, ss:[bx]
		mov	al, [bx]
		mov	dl, byte_24E7A
		mov	dh, 0
		imul	dx, 50h
		mov	bx, dx
		mov	[bx+6012h], al
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_2E]
		add	bx, ax
		mov	bx, ss:[bx]
		mov	al, [bx+1]
		mov	dl, byte_24E7A
		mov	dh, 0
		imul	dx, 50h
		mov	bx, dx
		mov	[bx+6013h], al

loc_1329D:
		les	bx, mikoconfig
		mov	ax, es:[bx+mikoconfig_t.continues_used]
		mov	bx, 0Ah
		xor	dx, dx
		div	bx
		mov	si, dx
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_2E]
		add	bx, ax
		mov	bx, ss:[bx]
		mov	al, [bx]
		mov	dl, byte_24E7A
		mov	dh, 0
		imul	dx, 50h
		mov	bx, dx
		mov	[bx+6014h], al
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_2E]
		add	bx, ax
		mov	bx, ss:[bx]
		mov	al, [bx+1]
		mov	dl, byte_24E7A
		mov	dh, 0
		imul	dx, 50h
		mov	bx, dx
		mov	[bx+6015h], al
		xor	si, si
		jmp	short loc_132FD
; ---------------------------------------------------------------------------

loc_132ED:
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_10]
		add	bx, ax
		push	word ptr ss:[bx]
		call	sub_13055
		inc	si

loc_132FD:
		cmp	si, 5
		jl	short loc_132ED
		jmp	short loc_13325
; ---------------------------------------------------------------------------

loc_13304:
		mov	al, byte_24E7A
		add	al, 8
		mov	byte_24E7A, al
		xor	si, si
		jmp	short loc_13320
; ---------------------------------------------------------------------------

loc_13310:
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_1A]
		add	bx, ax
		push	word ptr ss:[bx]
		call	sub_13055
		inc	si

loc_13320:
		cmp	si, 5
		jl	short loc_13310

loc_13325:
		pop	si
		leave
		retn
sub_131D9	endp


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

; Attributes: bp-based frame

sub_13328	proc near
		push	bp
		mov	bp, sp
		push	6
		call	sub_13055
		push	69h ; 'i'
		call	sub_13055
		pop	bp
		retn
sub_13328	endp


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

; Attributes: bp-based frame

sub_13337	proc near

var_28		= byte ptr -28h
var_16		= byte ptr -16h

		enter	28h, 0
		push	si
		lea	ax, [bp+var_16]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ED16
		mov	cx, 16h
		call	SCOPY@
		lea	ax, [bp+var_28]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ED2C
		mov	cx, 11h
		call	SCOPY@
		push	6
		call	sub_13055
		push	69h ; 'i'
		call	sub_13055
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jz	short loc_13390
		xor	si, si
		jmp	short loc_13381
; ---------------------------------------------------------------------------

loc_13377:
		mov	al, [bp+si+var_16]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_13381:
		cmp	si, 16h
		jl	short loc_13377
		mov	al, byte_24E7A
		add	al, 11h
		mov	byte_24E7A, al
		jmp	short loc_133AB
; ---------------------------------------------------------------------------

loc_13390:
		mov	al, byte_24E7A
		add	al, 16h
		mov	byte_24E7A, al
		xor	si, si
		jmp	short loc_133A6
; ---------------------------------------------------------------------------

loc_1339C:
		mov	al, [bp+si+var_28]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_133A6:
		cmp	si, 11h
		jl	short loc_1339C

loc_133AB:
		pop	si
		leave
		retn
sub_13337	endp


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

; Attributes: bp-based frame

sub_133AE	proc near
		push	bp
		mov	bp, sp
		push	69h ; 'i'
		call	sub_13055
		pop	bp
		retn
sub_133AE	endp


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

; Attributes: bp-based frame

sub_133B8	proc near

var_A		= dword	ptr -0Ah
var_6		= byte ptr -6

		enter	0Ah, 0
		push	si
		lea	ax, [bp+var_6]
		push	ss
		push	ax
		push	ds
		push	offset unk_1ED3D
		mov	cx, 5
		call	SCOPY@
		mov	eax, dword_1ED42
		mov	[bp+var_A], eax
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jz	short loc_133F6
		xor	si, si
		jmp	short loc_133EF
; ---------------------------------------------------------------------------

loc_133E5:
		mov	al, [bp+si+var_6]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_133EF:
		cmp	si, 5
		jl	short loc_133E5
		jmp	short loc_13411
; ---------------------------------------------------------------------------

loc_133F6:
		mov	al, byte_24E7A
		add	al, 5
		mov	byte_24E7A, al
		xor	si, si
		jmp	short loc_1340C
; ---------------------------------------------------------------------------

loc_13402:
		mov	al, byte ptr [bp+si+var_A]
		mov	ah, 0
		push	ax
		call	sub_13055
		inc	si

loc_1340C:
		cmp	si, 4
		jl	short loc_13402

loc_13411:
		pop	si
		leave
		retn
sub_133B8	endp


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

; Attributes: bp-based frame

sub_13414	proc near
		push	bp
		mov	bp, sp
		push	0
		call	palette_white_out
		call	_snd_se_reset
		call	_snd_se_play stdcall, 5
		pop	cx
		call	_snd_se_update
		push	0
		call	palette_white_in
		pop	bp
		retn
sub_13414	endp


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

; Attributes: bp-based frame

sub_13439	proc near
		push	bp
		mov	bp, sp
		nopcall	sub_FBE9
		kajacall	KAJA_SONG_STOP
		pop	cx
		push	69h ; 'i'
		call	sub_13055
		call	sub_13414
		push	0Ah
		call	frame_delay
		push	69h ; 'i'
		call	sub_13055
		push	1Eh
		call	frame_delay
		call	sub_13414
		push	14h
		call	frame_delay
		push	69h ; 'i'
		call	sub_13055
		push	14h
		call	frame_delay
		push	69h ; 'i'
		call	sub_13055
		call	sub_13414
		push	14h
		call	frame_delay
		call	sub_13414
		push	14h
		call	frame_delay
		call	sub_13414
		push	3
		call	palette_white_out
		pop	bp
		retn
sub_13439	endp


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

; Attributes: bp-based frame

sub_134A0	proc near
		push	bp
		mov	bp, sp
		push	0FFh
		call	sub_13055
		push	0
		call	sub_13055
		push	0FFh
		call	sub_13055
		pop	bp
		retn
sub_134A0	endp


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

; Attributes: bp-based frame

sub_134B6	proc near

var_4		= dword	ptr -4
arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	di, [bp+arg_2]
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 7416h
		xor	si, si
		jmp	short loc_13508
; ---------------------------------------------------------------------------

loc_134CD:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 0
		jnz	short loc_13503
		les	bx, [bp+var_4]
		mov	byte ptr es:[bx], 1
		mov	es:[bx+2], di
		mov	ax, [bp+arg_0]
		mov	es:[bx+6], ax
		mov	es:[bx+4], di
		mov	es:[bx+8], ax
		push	3
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 3
		les	bx, [bp+var_4]
		mov	es:[bx+0Ah], ax
		jmp	short loc_1350D
; ---------------------------------------------------------------------------

loc_13503:
		inc	si
		add	word ptr [bp+var_4], 0Ch

loc_13508:
		cmp	si, 32h	; '2'
		jl	short loc_134CD

loc_1350D:
		pop	di
		pop	si
		leave
		retn	4
sub_134B6	endp


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

; Attributes: bp-based frame

sub_13513	proc far

var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 7416h
		xor	si, si
		jmp	loc_135B1
; ---------------------------------------------------------------------------

loc_13527:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 0
		jz	short loc_135AC
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		les	bx, [bp+var_4]
		add	bx, ax
		push	word ptr es:[bx+2]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, word ptr [bp+var_4]
		add	bx, ax
		push	word ptr es:[bx+6]
		push	20003h
		call	sub_45FC
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 2
		jnz	short loc_1356A
		mov	byte ptr es:[bx], 0
		jmp	short loc_135AC
; ---------------------------------------------------------------------------

loc_1356A:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		les	bx, [bp+var_4]
		add	bx, ax
		mov	ax, es:[bx+2]
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		mov	bx, word ptr [bp+var_4]
		add	bx, dx
		mov	es:[bx+2], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, word ptr [bp+var_4]
		add	bx, ax
		mov	ax, es:[bx+6]
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		mov	bx, word ptr [bp+var_4]
		add	bx, dx
		mov	es:[bx+6], ax

loc_135AC:
		inc	si
		add	word ptr [bp+var_4], 0Ch

loc_135B1:
		cmp	si, 32h	; '2'
		jl	loc_13527
		pop	si
		leave
		retf
sub_13513	endp


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

; Attributes: bp-based frame

sub_135BB	proc near

var_6		= dword	ptr -6
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		mov	word ptr [bp+var_6+2], ds
		mov	word ptr [bp+var_6], 7416h
		mov	[bp+var_2], 0
		jmp	loc_13660
; ---------------------------------------------------------------------------

loc_135D3:
		les	bx, [bp+var_6]
		cmp	byte ptr es:[bx], 1
		jnz	short loc_13659
		les	bx, [bp+var_6]
		mov	ax, es:[bx+0Ah]
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		add	bx, dx
		sub	es:[bx+2], ax
		mov	bx, word ptr [bp+var_6]
		mov	dl, _page_back
		mov	dh, 0
		add	dx, dx
		add	bx, dx
		add	es:[bx+6], ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, word ptr [bp+var_6]
		add	bx, ax
		mov	di, es:[bx+2]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, word ptr [bp+var_6]
		add	bx, ax
		mov	si, es:[bx+6]
		cmp	di, 20h	; ' '
		jge	short loc_13630
		mov	bx, word ptr [bp+var_6]
		mov	byte ptr es:[bx], 2
		jmp	short loc_13659
; ---------------------------------------------------------------------------

loc_13630:
		cmp	si, 180h
		jge	short loc_13659
		cmp	di, 1A0h
		jge	short loc_13659
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1364A
		sub	si, RES_Y

loc_1364A:
		mov	word_20164, di
		mov	word_20166, si
		push	2
		call	sub_3E6A

loc_13659:
		inc	[bp+var_2]
		add	word ptr [bp+var_6], 0Ch

loc_13660:
		cmp	[bp+var_2], 32h	; '2'
		jl	loc_135D3
		call	grcg_off
		pop	di
		pop	si
		leave
		retn
sub_135BB	endp


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

; Attributes: bp-based frame

sub_13671	proc far

var_4		= byte ptr -4
var_3		= byte ptr -3
var_2		= byte ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		cmp	word_1ED94, 3E7h
		jge	loc_13739
		cmp	word_1ED94, 0
		jz	loc_13739
		inc	word_1ED94
		mov	ax, word_1ED94
		mov	bx, 10h
		cwd
		idiv	bx
		add	al, 90h
		mov	[bp+var_3], al
		mov	ax, word_1ED94
		mov	bx, 8
		cwd
		idiv	bx
		add	al, 90h
		mov	[bp+var_2], al
		mov	Palettes+24, 0B0h ; 'ｰ'
		mov	al, [bp+var_3]
		mov	Palettes+25, al
		mov	al, [bp+var_2]
		mov	Palettes+26, al
		mov	ax, word_1ED94
		mov	bx, 10h
		cwd
		idiv	bx
		mov	dl, 0A0h
		sub	dl, al
		mov	[bp+var_4], dl
		mov	ax, word_1ED94
		cwd
		idiv	bx
		mov	dl, 0A0h
		sub	dl, al
		mov	[bp+var_3], dl
		mov	ax, word_1ED94
		mov	bx, 4
		cwd
		idiv	bx
		mov	dl, 0FFh
		sub	dl, al
		mov	[bp+var_2], dl
		mov	al, [bp+var_4]
		mov	Palettes+39, al
		mov	al, [bp+var_3]
		mov	Palettes+40, al
		mov	al, [bp+var_2]
		mov	Palettes+41, al
		cmp	[bp+var_4], 80h
		ja	short loc_13732
		mov	word_1ED94, 3E8h
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		mov	Palettes+42, 0E0h
		mov	Palettes+43, 0C0h
		mov	Palettes+44, 0B0h ; 'ｰ'
		mov	word_1EB0A, 0FFFFh
		mov	word_1EDA4, 1

loc_13732:
		call	far ptr	palette_show
		leave
		retf
; ---------------------------------------------------------------------------

loc_13739:
		cmp	word_1ED94, 3E8h
		jl	short locret_13784
		call	sub_1403E
		inc	word_1ED94
		mov	al, byte_2066C
		mov	ah, 0
		add	ax, ax
		add	ax, 3EAh
		cmp	ax, word_1ED94
		jge	short loc_13771
		call	_randring2_next16
		mov	bx, 280h
		xor	dx, dx
		div	bx
		add	dx, 30h	; '0'
		push	dx
		push	10h
		call	sub_134B6
		mov	word_1ED94, 3E8h

loc_13771:
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 8
		call	sub_135BB

locret_13784:
		leave
		retf
sub_13671	endp


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

; Attributes: bp-based frame

sub_13786	proc far
		push	bp
		mov	bp, sp
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		cmp	byte_2066A, 0
		jz	short loc_137BE
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 0FFF0h
		push	ax
		mov	bx, word_2065E
		push	word ptr [bx]
		push	60h
		jmp	short loc_137CC
; ---------------------------------------------------------------------------

loc_137BE:
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	40h

loc_137CC:
		push	60h
		call	sub_45FC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		mov	ax, word_24E82
		pop	bp
		retf
sub_13786	endp


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

; Attributes: bp-based frame

sub_137FE	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, 0Ah
		mov	ax, word_1ED96
		sar	ax, 3
		add	di, ax
		inc	word_1ED96
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		push	3C0001h
		push	0
		call	sub_4090
		cmp	word_1ED96, 40h
		jl	short loc_1387B
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		push	800030h
		push	1
		call	sub_4090
		mov	word_1ED96, 0
		mov	word_20650, 0
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh
		mov	word_24E82, 0
		jmp	short loc_138AF
; ---------------------------------------------------------------------------

loc_1387B:
		test	byte ptr word_1ED96, 3
		jnz	short loc_13888
		mov	bx, word_2065E
		inc	word ptr [bx]

loc_13888:
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1389C
		sub	si, RES_Y

loc_1389C:
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 0FFF0h
		push	ax
		push	si
		push	di
		push	3
		call	super_zoom

loc_138AF:
		pop	di
		pop	si
		pop	bp
		retn
sub_137FE	endp


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

; Attributes: bp-based frame

sub_138B3	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 58h	; 'X'
		mov	si, ax
		test	byte ptr word_20650, 7Fh
		jz	short loc_138F2
		mov	ax, word_20650
		and	ax, 7Fh
		cmp	ax, 30h	; '0'
		jnz	short loc_138E7
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 1Ch
		push	ax
		push	si
		push	0
		push	0Bh
		push	1Eh
		jmp	short loc_13903
; ---------------------------------------------------------------------------

loc_138E7:
		mov	ax, word_20650
		and	ax, 7Fh
		cmp	ax, 60h
		jnz	short loc_13906

loc_138F2:
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 1Ch
		push	ax
		push	si
		push	0
		push	12h
		push	32h ; '2'

loc_13903:
		call	sub_1078E

loc_13906:
		pop	si
		pop	bp
		retn
sub_138B3	endp


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

; Attributes: bp-based frame

sub_13909	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	word_205D8, 0D8h
		mov	word_205DA, 40h
		inc	word_20650
		cmp	word_20650, 1
		jnz	short loc_1395A
		mov	word_20652, 0C0h
		mov	word_20654, 0C0h
		mov	word_20656, 0FFF0h
		mov	word_20658, 0FFF0h
		mov	word_2065A, 0
		mov	word_24E84, 94h
		mov	word_24E82, 1
		mov	word_1ED94, 1
		jmp	loc_13AB8
; ---------------------------------------------------------------------------

loc_1395A:
		cmp	word_20650, 12h
		jge	short loc_13988
		mov	bx, word_2065E
		add	word ptr [bx], 2
		mov	si, [bx]
		add	si, _scroll_line
		or	si, si
		jge	short loc_13979
		add	si, RES_Y
		jmp	loc_13AA8
; ---------------------------------------------------------------------------

loc_13979:
		cmp	si, RES_Y
		jl	loc_13AA8
		sub	si, RES_Y
		jmp	loc_13AA8
; ---------------------------------------------------------------------------

loc_13988:
		test	byte ptr _scroll_line, 1
		jz	short loc_13997
		mov	word_24E84, 95h
		jmp	short loc_1399D
; ---------------------------------------------------------------------------

loc_13997:
		mov	word_24E84, 94h

loc_1399D:
		cmp	byte_2066A, 0
		jz	short loc_139AA
		call	sub_137FE
		jmp	loc_13AB8
; ---------------------------------------------------------------------------

loc_139AA:
		call	sub_138B3
		test	byte ptr _scroll_line, 0Fh
		jnz	short loc_13A09
		mov	si, 48
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_139C5
		sub	si, RES_Y

loc_139C5:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	3Ch ; '<'
		call	sub_480C
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 10h
		push	ax
		push	si
		push	3Dh ; '='
		call	sub_480C
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	si
		push	3Eh ; '>'
		call	sub_480C
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		push	si
		push	3Fh ; '?'
		call	sub_480C

loc_13A09:
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_13A1D
		sub	si, RES_Y

loc_13A1D:
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	400060h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_13A85
		add	word_2065A, ax
		cmp	word_2065A, 12Ch
		jle	short loc_13A4B
		cmp	si, 130h
		jl	short loc_13A6B

loc_13A4B:
		call	_snd_se_play c, 4
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	940000h
		push	0FFC0h
		call	super_roll_put_1plane
		jmp	short loc_13AB8
; ---------------------------------------------------------------------------

loc_13A6B:
		call	_snd_se_play c, 2
		mov	byte_2066A, 1
		add	dword_218AC, 2710h
		jmp	short loc_13AB8
; ---------------------------------------------------------------------------

loc_13A85:
		cmp	word_2034A, 0B8h
		jl	short loc_13AA8
		mov	bx, word_2065E
		cmp	word ptr [bx], 130h
		jg	short loc_13AA8
		call	_snd_se_play c, 2
		mov	byte_2066A, 1
		jmp	short loc_13AB8
; ---------------------------------------------------------------------------

loc_13AA8:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	word_24E84
		call	super_roll_put

loc_13AB8:
		pop	si
		leave
		retf
sub_13909	endp


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

; Attributes: bp-based frame

sub_13ABB	proc far

arg_0		= dword	ptr  6

		push	bp
		mov	bp, sp
		kajacall	KAJA_SONG_STOP
		call	_snd_load stdcall, [bp+arg_0], SND_LOAD_SONG
		kajacall	KAJA_SONG_PLAY
		add	sp, 0Ah
		pop	bp
		retf
sub_13ABB	endp


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

; Attributes: bp-based frame

sub_13ADE	proc far
		push	bp
		mov	bp, sp
		push	ds
		push	offset aBoss1_m	; "boss1.m"
		call	sub_13ABB
		add	sp, 4
		call	sub_12DE0
		push	0
		call	sub_1310B
		call	sub_12E95
		mov	byte_1E510, 20h	; ' '
		mov	word_20652, 0C0h
		mov	word_20654, 0C0h
		mov	word_2065A, 0
		mov	byte_2066A, 0
		mov	word_2064E, 96h
		mov	dword_20612, 0
		mov	word_24E80, 0
		nopcall	sub_129FC
		mov	word_2064E, 96h
		mov	word_24E7E, 30h	; '0'
		mov	ax, _scroll_line
		add	word_24E7E, ax
		cmp	word_24E7E, RES_Y
		jl	short loc_13B4E
		sub	word_24E7E, RES_Y

loc_13B4E:
		cmp	_rank, RANK_EASY
		jz	short loc_13B70
		mov	byte ptr word_2066E, 0Bh
		mov	byte ptr word_2066E+1, 15h
		mov	byte ptr word_20670, 20h ; ' '
		mov	byte ptr word_20670+1, 2
		mov	byte_20672, 3
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_13B70:
		mov	byte ptr word_2066E, 19h
		mov	byte ptr word_2066E+1, 15h
		mov	byte ptr word_20670, 20h ; ' '
		mov	byte ptr word_20670+1, 20h ; ' '
		mov	byte_20672, 7
		pop	bp
		retf
sub_13ADE	endp


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

; Attributes: bp-based frame

sub_13B8B	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		push	1
		call	sub_1310B
		call	sub_FC53
		call	_key_delay
		call	sub_E162
		inc	stage_id
		mov	word_1EB0A, 0
		mov	word_1EDA4, 0
		pop	bp
		retf
sub_13B8B	endp


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

; Attributes: bp-based frame

sub_13BB5	proc far
		push	bp
		mov	bp, sp
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	bx, word_2065C
		push	word ptr [bx]
		push	300040h
		push	60h
		call	sub_45FC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		cmp	word_24E80, 0
		jnz	short loc_13C0A
		cmp	word_20650, 3
		jge	short loc_13C0A
		push	0D00010h
		push	200020h
		call	sub_45FC

loc_13C0A:
		pop	bp
		retf
sub_13BB5	endp


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

; Attributes: bp-based frame

sub_13C0C	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	ax, word_24E7C
		add	ax, 20h	; ' '
		push	ax
		push	800032h
		push	20000h
		call	sub_4090
		mov	si, 0Ah
		mov	ax, word_1ED98
		add	ax, 0FFE0h
		mov	bx, 8
		cwd
		idiv	bx
		add	si, ax
		inc	word_1ED98
		cmp	word_1ED98, 50h	; 'P'
		jl	short loc_13C4F
		mov	word_1ED98, 0
		mov	ax, 1
		jmp	short loc_13C8E
; ---------------------------------------------------------------------------

loc_13C4F:
		cmp	word_20650, 20h	; ' '
		jge	short loc_13C69
		push	word_24E7C
		push	word_24E7E
		push	word_2064E
		call	super_roll_put
		jmp	short loc_13C7C
; ---------------------------------------------------------------------------

loc_13C69:
		push	word_24E7C
		mov	ax, word_24E7E
		add	ax, 10h
		push	ax
		push	si
		push	2
		call	super_zoom

loc_13C7C:
		mov	ax, word_24E7C
		add	ax, 18h
		push	ax
		push	70h ; 'p'
		push	word_1ED98
		call	sub_FFF8
		xor	ax, ax

loc_13C8E:
		pop	si
		pop	bp
		retn
sub_13C0C	endp


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

; Attributes: bp-based frame

sub_13C91	proc near

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	ax, word_24E7C
		add	ax, 1Ch
		mov	si, ax
		cmp	word_2065A, 2BCh
		jge	short loc_13CE0
		mov	word_24E80, 0
		test	byte ptr word_20650, 3Fh
		jnz	loc_13ECA
		call	_snd_se_play c, 3
		push	si
		push	70h ; 'p'
		push	0
		push	word_2066E
		push	32h ; '2'
		call	sub_1078E
		push	si
		push	70h ; 'p'
		push	40h
		push	word_2066E+1
		push	1Eh
		call	sub_1078E
		jmp	loc_13ECA
; ---------------------------------------------------------------------------

loc_13CE0:
		cmp	word_2065A, 578h
		jge	short loc_13D63
		test	byte ptr dword_20612, 1Fh
		jnz	loc_13ECA
		mov	al, byte ptr word_250DE
		add	al, 18h
		mov	byte ptr word_250DE, al
		mov	ah, 0
		mov	bx, 80h
		cwd
		idiv	bx
		mov	byte ptr word_250DE, dl
		mov	ax, word_24E7C
		add	ax, 8
		mov	si, ax
		call	_snd_se_play c, 3
		push	si
		push	70h ; 'p'
		push	word_250DE
		push	word_20670
		push	36h ; '6'
		call	sub_1078E
		push	si
		push	70h ; 'p'
		push	word_250DE
		push	word_20670+1
		push	2Ch ; ','
		call	sub_1078E
		add	si, 2Ch	; ','
		push	si
		push	70h ; 'p'
		mov	al, 80h
		sub	al, byte ptr word_250DE
		push	ax
		push	word_20670
		push	36h ; '6'
		call	sub_1078E
		push	si
		push	70h ; 'p'
		mov	al, 80h
		sub	al, byte ptr word_250DE
		push	ax
		push	word_20670+1
		push	2Ch ; ','
		call	sub_1078E
		jmp	loc_13ECA
; ---------------------------------------------------------------------------

loc_13D63:
		cmp	word_24E80, 0
		jnz	short loc_13D7B
		mov	word_24E80, 1
		mov	word_250E0, 0
		mov	byte ptr word_250DE, 0

loc_13D7B:
		inc	word_250E0
		cmp	word_250E0, 64h	; 'd'
		jnb	short loc_13DB5
		mov	ax, word_250E0
		and	ax, 7
		cmp	ax, 4
		jnb	short loc_13D99
		mov	word_2064E, 96h
		jmp	short loc_13D9F
; ---------------------------------------------------------------------------

loc_13D99:
		mov	word_2064E, 97h

loc_13D9F:
		test	byte ptr word_250E0, 1Fh
		jnz	loc_13ECA
		call	_snd_se_play c, 9
		jmp	loc_13ECA
; ---------------------------------------------------------------------------

loc_13DB5:
		cmp	word_250E0, 64h	; 'd'
		jnz	short loc_13DF9
		test	byte ptr word_250E0, 1Fh
		jnz	short loc_13DCD
		call	_snd_se_play c, 9

loc_13DCD:
		mov	byte_23A70, 40h
		mov	ax, word_24E7C
		add	ax, 2
		push	ax
		push	7000A0h
		push	6Fh ; 'o'
		call	sub_12A19
		mov	ax, word_24E7C
		add	ax, 2Eh	; '.'
		push	ax
		push	7000A0h
		push	6Fh ; 'o'
		call	sub_12A19
		jmp	loc_13ECA
; ---------------------------------------------------------------------------

loc_13DF9:
		cmp	word_250E0, 0A4h
		jbe	loc_13EA7
		cmp	word_250E0, 118h
		jnb	loc_13EA7
		cmp	word_250E0, 0FAh
		jnb	short loc_13E30
		mov	ax, word_250E0
		and	ax, 7
		cmp	ax, 4
		jnb	short loc_13E28
		mov	word_2064E, 96h
		jmp	short loc_13E4E
; ---------------------------------------------------------------------------

loc_13E28:
		mov	word_2064E, 97h
		jmp	short loc_13E4E
; ---------------------------------------------------------------------------

loc_13E30:
		cmp	word_250E0, 104h
		jnz	short loc_13E40
		mov	word_2064E, 98h
		jmp	short loc_13E4E
; ---------------------------------------------------------------------------

loc_13E40:
		cmp	word_250E0, 10Eh
		jnz	short loc_13E4E
		mov	word_2064E, 99h

loc_13E4E:
		test	byte ptr word_250E0, 0Fh
		jnz	short loc_13E5F
		call	_snd_se_play c, 6

loc_13E5F:
		test	byte ptr word_250E0, 0Fh
		jnz	short loc_13ECA
		test	byte ptr word_250E0, 3Fh
		jz	short loc_13E83
		mov	ax, word_250E0
		and	ax, 3Fh
		cmp	ax, 10h
		jz	short loc_13E94
		mov	ax, word_250E0
		and	ax, 3Fh
		cmp	ax, 20h	; ' '
		jnz	short loc_13E89

loc_13E83:
		mov	[bp+var_1], 0Fh
		jmp	short loc_13E98
; ---------------------------------------------------------------------------

loc_13E89:
		mov	ax, word_250E0
		and	ax, 3Fh
		cmp	ax, 30h	; '0'
		jnz	short loc_13E98

loc_13E94:
		mov	[bp+var_1], 0Eh

loc_13E98:
		push	si
		push	70h ; 'p'
		push	40h
		push	word ptr [bp+var_1]
		push	3Ah ; ':'
		call	sub_1078E
		jmp	short loc_13ECA
; ---------------------------------------------------------------------------

loc_13EA7:
		cmp	word_250E0, 118h
		jb	short loc_13ECA
		mov	al, byte_20672
		mov	ah, 0
		test	word_250E0, ax
		jnz	short loc_13ECA
		push	si
		push	48h ; 'H'
		push	1
		push	1Ch
		push	50002Ch
		call	sub_10865

loc_13ECA:
		pop	si
		leave
		retn
sub_13C91	endp


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

; Attributes: bp-based frame

sub_13ECD	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	word_24E7C
		push	300040h
		push	60h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_13F30
		add	word_2065A, ax
		cmp	word_2065A, 8D4h
		jg	short loc_13F18
		call	_snd_se_play c, 4
		push	word_24E7C
		push	word_24E7E
		push	word_2064E
		pushd	0FFC0h
		call	super_roll_put_1plane
		jmp	short loc_13F2B
; ---------------------------------------------------------------------------

loc_13F18:
		mov	byte_2066A, 1
		add	dword_218AC, 4E20h
		mov	byte_20605, 0C8h

loc_13F2B:
		mov	ax, 1
		leave
		retf
; ---------------------------------------------------------------------------

loc_13F30:
		xor	ax, ax
		leave
		retf
sub_13ECD	endp


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

; Attributes: bp-based frame

sub_13F34	proc far

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	word_24E80, 0
		jnz	short loc_13FA5
		cmp	word_20650, 10h
		jge	short loc_13F80
		test	byte ptr word_20650, 3
		jnz	locret_13FE3
		mov	al, _rank
		cbw
		cmp	ax, RANK_HARD
		jl	short loc_13F62
		mov	al, byte ptr word_20650
		mov	[bp+var_1], al
		jmp	short loc_13F66
; ---------------------------------------------------------------------------

loc_13F62:
		mov	[bp+var_1], 0

loc_13F66:
		push	0E40070h
		push	word ptr [bp+var_1]
		push	25h ; '%'
		mov	ax, word_20650
		shl	ax, 2
		add	ax, 28h	; '('
		push	ax
		call	sub_1078E
		leave
		retf
; ---------------------------------------------------------------------------

loc_13F80:
		cmp	word_20650, 74h	; 't'
		jl	short loc_13FC6
		cmp	word_20650, 13Ch
		jl	short loc_13FB6
		cmp	word_20650, 1A0h
		jl	short loc_13F9D
		mov	word_20650, 10h

loc_13F9D:
		mov	bx, word_2065C
		dec	word ptr [bx]
		leave
		retf
; ---------------------------------------------------------------------------

loc_13FA5:
		cmp	word_24E80, 1
		jnz	short loc_13FD6
		mov	bx, word_2065C
		cmp	word ptr [bx], 0C0h
		jge	short loc_13FBE

loc_13FB6:
		mov	bx, word_2065C
		inc	word ptr [bx]
		leave
		retf
; ---------------------------------------------------------------------------

loc_13FBE:
		cmp	word_20650, 0C0h
		jle	short loc_13FCE

loc_13FC6:
		mov	bx, word_2065C
		dec	word ptr [bx]
		leave
		retf
; ---------------------------------------------------------------------------

loc_13FCE:
		mov	word_24E80, 2
		leave
		retf
; ---------------------------------------------------------------------------

loc_13FD6:
		cmp	word_24E80, 2
		jnz	short locret_13FE3
		mov	word_20650, 0

locret_13FE3:
		leave
		retf
sub_13F34	endp


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

; Attributes: bp-based frame

sub_13FE5	proc far
		push	bp
		mov	bp, sp
		mov	ax, word_24E7C
		add	ax, 18h
		mov	word_205D8, ax
		mov	word_205DA, 30h	; '0'
		inc	word_20650
		cmp	byte_2066A, 0
		jnz	short loc_1402D
		call	sub_13F34
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_24E7C, ax
		call	sub_13ECD
		or	ax, ax
		jnz	short loc_14028
		push	word_24E7C
		push	word_24E7E
		push	word_2064E
		call	super_roll_put

loc_14028:
		call	sub_13C91
		jmp	short loc_14039
; ---------------------------------------------------------------------------

loc_1402D:
		call	sub_13C0C
		or	ax, ax
		jz	short loc_14039
		mov	ax, 2
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_14039:
		mov	ax, 1
		pop	bp
		retf
sub_13FE5	endp


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

; Attributes: bp-based frame

sub_1403E	proc near
		push	bp
		mov	bp, sp
		cmp	word_1EDA4, 0
		jz	short loc_140AC
		cmp	word_1EDA4, 1
		jnz	short loc_14055
		mov	word_250E4, 64h	; 'd'

loc_14055:
		inc	word_1EDA4
		mov	ax, word_1EDA4
		cmp	ax, word_250E4
		jb	short loc_140AC
		mov	ax, word_250E4
		add	ax, 8
		cmp	ax, word_1EDA4
		jbe	short loc_140AC
		test	byte ptr word_1EDA4, 1
		jz	short loc_1407D
		mov	PaletteTone, 8Ch
		jmp	short loc_14083
; ---------------------------------------------------------------------------

loc_1407D:
		mov	PaletteTone, 64h	; 'd'

loc_14083:
		call	far ptr	palette_show
		mov	ax, word_250E4
		add	ax, 7
		cmp	ax, word_1EDA4
		jnz	short loc_140AC
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		call	_randring2_next16
		and	ax, 3FFh
		add	ax, 14h
		add	word_250E4, ax

loc_140AC:
		pop	bp
		retn
sub_1403E	endp


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

; Attributes: bp-based frame

sub_140AE	proc far
		push	bp
		mov	bp, sp
		cmp	byte_1EDA6, 0
		jz	short loc_140D4
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		mov	byte_1EDA6, 0
		mov	word_1EB0A, 0FFFFh

loc_140D4:
		inc	word_1EDA2
		test	byte ptr word_1EDA2, 1
		jnz	short loc_140F2
		call	_randring2_next16
		mov	bx, 280h
		xor	dx, dx
		div	bx
		add	dx, 30h	; '0'
		push	dx
		push	10h
		call	sub_134B6

loc_140F2:
		call	sub_1403E
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 3
		call	sub_135BB
		pop	bp
		retf
sub_140AE	endp


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

; Attributes: bp-based frame

sub_1410A	proc far
		push	bp
		mov	bp, sp
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	400040h
		call	sub_45FC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		mov	ax, word_250E2
		pop	bp
		retf
sub_1410A	endp


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

; Attributes: bp-based frame

sub_14169	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		cmp	word_1EDA8, 30h	; '0'
		jge	short loc_141A1
		mov	ax, word_1EDA8
		and	ax, 0Fh
		cmp	ax, 5
		jnz	short loc_141A1
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	800018h
		push	1
		call	sub_4090

loc_141A1:
		mov	di, 0Ah
		mov	ax, word_1EDA8
		sar	ax, 3
		add	di, ax
		inc	word_1EDA8
		cmp	word_1EDA8, 40h
		jl	short loc_141DC
		mov	word_1EDA8, 0
		mov	word_20650, 0
		mov	byte_2066A, 0
		mov	word_250E2, 0
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh
		jmp	short loc_141FF
; ---------------------------------------------------------------------------

loc_141DC:
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_141F0
		sub	si, RES_Y

loc_141F0:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	di
		push	2
		call	super_zoom

loc_141FF:
		pop	di
		pop	si
		pop	bp
		retn
sub_14169	endp


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

; Attributes: bp-based frame

sub_14203	proc near
		push	bp
		mov	bp, sp
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_14248
		mov	ax, word_20650
		mov	bx, 0C0h
		cwd
		idiv	bx
		cmp	dx, 40h
		jge	short loc_14248
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 1Ch
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		mov	al, byte ptr word_20650
		shl	al, 2
		push	ax
		push	80h
		push	54001Eh
		call	sub_10865

loc_14248:
		pop	bp
		retn
sub_14203	endp


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

; Attributes: bp-based frame

sub_1424A	proc far

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		xor	di, di
		mov	word_205D8, 0D8h
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 18h
		mov	word_205DA, ax
		inc	word_20650
		cmp	word_20650, 1
		jnz	short loc_1429E
		mov	word_20652, 0C0h
		mov	word_20654, 0C0h
		mov	word_20656, 0FFF0h
		mov	word_20658, 0FFF0h
		mov	word_2065A, 0
		mov	word_250E2, 1
		mov	word_1EDA4, 1
		jmp	loc_143E1
; ---------------------------------------------------------------------------

loc_1429E:
		cmp	word_20650, 140h
		jge	short loc_14321
		mov	ax, _scroll_line
		sar	ax, 1
		and	ax, 3
		mov	[bp+var_2], ax
		add	ax, 89h
		mov	di, ax
		test	byte ptr word_20650, 3
		jnz	short loc_142C3
		mov	bx, word_2065E
		inc	word ptr [bx]

loc_142C3:
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		or	si, si
		jge	short loc_142D7
		add	si, RES_Y
		jmp	short loc_142E1
; ---------------------------------------------------------------------------

loc_142D7:
		cmp	si, RES_Y
		jl	short loc_142E1
		sub	si, RES_Y

loc_142E1:
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	40003Ah
		call	sub_1283C
		or	ax, ax
		jz	loc_143D4
		call	_snd_se_play c, 4
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	880000h
		push	0FFC0h
		call	super_roll_put_1plane
		inc	word_2065A
		jmp	loc_143E1
; ---------------------------------------------------------------------------

loc_14321:
		mov	ax, _scroll_line
		sar	ax, 1
		and	ax, 3
		mov	[bp+var_2], ax
		add	ax, 89h
		mov	di, ax
		cmp	byte_2066A, 0
		jz	short loc_1433E
		call	sub_14169
		jmp	loc_143E1
; ---------------------------------------------------------------------------

loc_1433E:
		call	sub_14203
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		or	si, si
		jge	short loc_14355
		add	si, RES_Y
		jmp	short loc_1435F
; ---------------------------------------------------------------------------

loc_14355:
		cmp	si, RES_Y
		jl	short loc_1435F
		sub	si, RES_Y

loc_1435F:
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	40003Ah
		call	sub_1283C
		mov	[bp+var_4], ax
		or	ax, ax
		jz	short loc_143C7
		add	word_2065A, ax
		cmp	word_2065A, 17Ch
		jle	short loc_1438D
		cmp	si, 130h
		jl	short loc_143AD

loc_1438D:
		call	_snd_se_play c, 4
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	880000h
		push	0FFC0h
		call	super_roll_put_1plane
		jmp	short loc_143E1
; ---------------------------------------------------------------------------

loc_143AD:
		call	_snd_se_play c, 2
		mov	byte_2066A, 1
		add	dword_218AC, 4E20h
		jmp	short loc_143E1
; ---------------------------------------------------------------------------

loc_143C7:
		cmp	word_20650, 640h
		jle	short loc_143D4
		mov	byte_2066A, 1

loc_143D4:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	di
		call	super_roll_put

loc_143E1:
		pop	di
		pop	si
		leave
		retf
sub_1424A	endp


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

; Attributes: bp-based frame

sub_143E5	proc far
		push	bp
		mov	bp, sp
		push	si
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	400040h
		call	sub_45FC
		cmp	word_250FE, 0
		jz	loc_144ED
		xor	si, si
		jmp	loc_144E6
; ---------------------------------------------------------------------------

loc_14428:
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx+7676h]
		mov	bx, word_2065C
		cmp	ax, [bx]
		jz	short loc_14493
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx+7682h]
		mov	bx, word_2065E
		cmp	ax, [bx]
		jz	short loc_14493
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx+7676h]
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx+7682h]
		push	400040h
		call	sub_45FC

loc_14493:
		mov	al, _page_front
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx+7676h]
		mov	dl, _page_back
		mov	dh, 0
		imul	dx, 6
		mov	bx, si
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx+7676h], ax
		mov	al, _page_front
		mov	ah, 0
		imul	ax, 6
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx+7682h]
		mov	dl, _page_back
		mov	dh, 0
		imul	dx, 6
		mov	bx, si
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx+7682h], ax
		inc	si

loc_144E6:
		cmp	si, 3
		jl	loc_14428

loc_144ED:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		call	sub_146EF
		pop	si
		pop	bp
		retf
sub_143E5	endp


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

; Attributes: bp-based frame

sub_14519	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		push	word_1EDAA
		call	sub_FFF8
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	ax, word_1EDAA
		add	ax, 0FFE8h
		push	ax
		call	sub_FFF8
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		push	3C0001h
		push	0
		call	sub_4090
		mov	di, 0Ah
		mov	ax, word_1EDAA
		add	ax, 0FFE0h
		mov	bx, 0Ah
		cwd
		idiv	bx
		add	di, ax
		inc	word_1EDAA
		cmp	word_1EDAA, 60h
		jl	short loc_1459F
		mov	word_1EDAA, 0
		mov	ax, 1
		jmp	short loc_145DD
; ---------------------------------------------------------------------------

loc_1459F:
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_145B3
		sub	si, RES_Y

loc_145B3:
		cmp	word_20650, 20h	; ' '
		jge	short loc_145CC
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	word_2064E
		call	super_roll_put
		jmp	short loc_145DB
; ---------------------------------------------------------------------------

loc_145CC:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	di
		push	2
		call	super_zoom

loc_145DB:
		xor	ax, ax

loc_145DD:
		pop	di
		pop	si
		pop	bp
		retn
sub_14519	endp


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

; Attributes: bp-based frame

sub_145E1	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	bx, word_2065E
		mov	si, [bx]
		mov	bx, word_2065C
		mov	ax, [bx]
		cmp	ax, word_205F6
		jg	short loc_1461A
		add	ax, 20h	; ' '
		cmp	ax, word_205F6
		jle	short loc_1461A
		lea	ax, [si-10h]
		cmp	ax, word_205F8
		jge	short loc_1461A
		lea	ax, [si+20h]
		cmp	ax, word_205F8
		jle	short loc_1461A
		mov	_player_is_hit, 1

loc_1461A:
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_14628
		sub	si, RES_Y

loc_14628:
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 8
		push	ax
		mov	bx, word_2065E
		push	word ptr [bx]
		push	300030h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_14689
		add	word_2065A, ax
		call	_snd_se_play c, 4
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	word_2064E
		pushd	0FFC0h
		call	super_roll_put_1plane
		cmp	word_2065A, 960h
		jl	short loc_14699
		mov	byte_2066A, 1
		add	dword_218AC, 7530h
		mov	byte_20605, 0C8h
		jmp	short loc_14699
; ---------------------------------------------------------------------------

loc_14689:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	word_2064E
		call	super_roll_put

loc_14699:
		pop	si
		leave
		retn
sub_145E1	endp


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

; Attributes: bp-based frame

sub_1469C	proc near

arg_0		= byte ptr  4
arg_2		= byte ptr  6
arg_4		= byte ptr  8
arg_6		= byte ptr  0Ah
arg_8		= word ptr  0Ch
arg_A		= word ptr  0Eh

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	cx, [bp+arg_A]
		mov	di, [bp+arg_8]
		mov	si, 7690h
		xor	dx, dx
		jmp	short loc_146E4
; ---------------------------------------------------------------------------

loc_146AE:
		cmp	byte ptr [si], 0
		jnz	short loc_146E0
		mov	byte ptr [si], 1
		mov	al, [bp+arg_4]
		mov	[si+1],	al
		mov	[si+2],	cx
		mov	[si+4],	di
		mov	al, [bp+arg_6]
		mov	[si+6],	al
		mov	byte ptr [si+7], 0
		mov	al, [bp+arg_2]
		mov	[si+8],	al
		mov	al, byte_252E0
		mov	[si+9],	al
		mov	al, [bp+arg_0]
		mov	[si+0Ah], al
		jmp	short loc_146E9
; ---------------------------------------------------------------------------

loc_146E0:
		inc	dx
		add	si, 0Ch

loc_146E4:
		cmp	dx, 28h	; '('
		jl	short loc_146AE

loc_146E9:
		pop	di
		pop	si
		pop	bp
		retn	0Ch
sub_1469C	endp


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

; Attributes: bp-based frame

sub_146EF	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, 7690h
		xor	di, di
		jmp	short loc_1471D
; ---------------------------------------------------------------------------

loc_146FB:
		cmp	byte ptr [si], 0
		jz	short loc_14719
		push	word ptr [si+2]
		push	word ptr [si+4]
		push	200020h
		call	sub_45FC
		cmp	byte ptr [si], 2
		jnz	short loc_14719
		mov	byte ptr [si], 0

loc_14719:
		inc	di
		add	si, 0Ch

loc_1471D:
		cmp	di, 28h	; '('
		jl	short loc_146FB
		pop	di
		pop	si
		pop	bp
		retn
sub_146EF	endp


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

; Attributes: bp-based frame

sub_14726	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	si, 7690h
		mov	[bp+var_2], 0
		jmp	loc_1482F
; ---------------------------------------------------------------------------

loc_14739:
		cmp	byte ptr [si], 1
		jnz	loc_14829
		cmp	byte ptr [si+0Ah], 0
		jbe	short loc_147A3
		mov	di, [si+4]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_14757
		sub	di, RES_Y

loc_14757:
		push	word ptr [si+2]
		push	di
		mov	al, [si+9]
		mov	ah, 0
		push	ax
		call	super_roll_put_tiny
		dec	byte ptr [si+0Ah]
		mov	ax, [si+2]
		add	ax, 0FFF0h
		cmp	ax, word_205F6
		jg	loc_14829
		mov	ax, [si+2]
		cmp	ax, word_205F6
		jl	loc_14829
		mov	ax, [si+4]
		add	ax, 0FFF0h
		cmp	ax, word_205F8
		jge	loc_14829
		mov	ax, [si+4]
		cmp	ax, word_205F8
		jle	loc_14829
		mov	_player_is_hit, 1
		jmp	loc_14829
; ---------------------------------------------------------------------------

loc_147A3:
		cmp	byte ptr [si+7], 0
		jnz	short loc_147BD
		call	_snd_se_play c, 10
		sub	word ptr [si+2], 8
		sub	word ptr [si+4], 8
		jmp	short loc_147C3
; ---------------------------------------------------------------------------

loc_147BD:
		cmp	byte ptr [si+7], 20h ; ' '
		jnb	short loc_147F3

loc_147C3:
		mov	al, [si+7]
		mov	ah, 0
		sar	ax, 2
		add	ax, 1Ah
		mov	[bp+var_4], ax
		mov	di, [si+4]
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_147E2
		sub	di, RES_Y

loc_147E2:
		push	word ptr [si+2]
		push	di
		push	[bp+var_4]
		call	super_roll_put
		inc	byte ptr [si+7]
		jmp	short loc_14829
; ---------------------------------------------------------------------------

loc_147F3:
		mov	al, byte_252E1
		mov	ah, 0
		and	ax, 1
		push	ax
		mov	al, _rank
		cbw
		pop	dx
		cmp	dx, ax
		jg	short loc_14822
		mov	di, [si+4]
		add	di, 0Ch
		mov	ax, [si+2]
		add	ax, 0Ch
		push	ax
		push	di
		push	word ptr [si+6]
		push	word ptr [si+1]
		mov	al, [si+8]
		mov	ah, 0
		push	ax
		call	sub_1078E

loc_14822:
		inc	byte_252E1
		mov	byte ptr [si], 2

loc_14829:
		inc	[bp+var_2]
		add	si, 0Ch

loc_1482F:
		cmp	[bp+var_2], 28h	; '('
		jl	loc_14739
		pop	di
		pop	si
		leave
		retn
sub_14726	endp


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

; Attributes: bp-based frame

sub_1483B	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	short loc_1489A
		cmp	word_20650, 0Ah
		jnz	short loc_1485E
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1485E:
		cmp	word_20650, 32h	; '2'
		jl	short loc_1489A
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1487E
		call	_snd_se_play c, 3
		mov	word_2064E, 8Fh
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1487E:
		cmp	word_20650, 5Ah	; 'Z'
		jg	short loc_1488E
		mov	bx, word_2065E
		add	word ptr [bx], 6
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1488E:
		mov	word_2064E, 8Dh
		mov	word_20650, 0

loc_1489A:
		pop	bp
		retn
sub_1483B	endp


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

; Attributes: bp-based frame

sub_1489C	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= byte ptr  8

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_2]
		cmp	[bp+arg_4], 0
		jnz	short loc_148BB
		mov	bx, word_2065C
		add	[bx], si
		cmp	word ptr [bx], 170h
		jle	short loc_148CA
		mov	word ptr [bx], 170h
		jmp	short loc_148CA
; ---------------------------------------------------------------------------

loc_148BB:
		mov	bx, word_2065C
		sub	[bx], si
		cmp	word ptr [bx], 10h
		jge	short loc_148CA
		mov	word ptr [bx], 10h

loc_148CA:
		mov	bx, word_2065E
		mov	ax, [bp+arg_0]
		add	[bx], ax
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 0Ch
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 0Ch
		push	ax
		push	0
		push	word_252E2
		push	word_252E2+1
		push	word_252E4
		call	sub_1469C
		pop	si
		pop	bp
		retn	6
sub_1489C	endp


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

; Attributes: bp-based frame

sub_148FD	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 14h
		jl	loc_14A36
		mov	bx, word_2065E
		mov	si, [bx]
		cmp	word_20650, 14h
		jnz	short loc_14954
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 10h
		cmp	ax, word_205F6
		jge	short loc_1492B
		mov	ax, 1
		jmp	short loc_1492D
; ---------------------------------------------------------------------------

loc_1492B:
		xor	ax, ax

loc_1492D:
		mov	byte ptr word_252E6, al
		mov	ah, 0
		add	ax, 90h
		mov	word_2064E, ax
		mov	word_252E4, 10h
		mov	al, 79h	; 'y'
		sub	al, byte ptr word_252E6
		mov	byte_252E0, al
		mov	byte ptr word_252E2, 19h
		mov	byte ptr word_252E2+1, 40h
		jmp	loc_14A36
; ---------------------------------------------------------------------------

loc_14954:
		cmp	word_20650, 20h	; ' '
		jg	short loc_14968
		push	word_252E6
		push	0FFF8FFF8h
		jmp	loc_14A12
; ---------------------------------------------------------------------------

loc_14968:
		cmp	word_20650, 38h	; '8'
		jge	short loc_14978
		mov	word_2064E, 8Dh
		jmp	loc_14A36
; ---------------------------------------------------------------------------

loc_14978:
		cmp	word_20650, 38h	; '8'
		jnz	short loc_1499E
		mov	al, byte ptr word_252E6
		mov	ah, 0
		mov	dx, 91h
		sub	dx, ax
		mov	word_2064E, dx
		mov	al, byte ptr word_252E6
		add	al, 78h	; 'x'
		mov	byte_252E0, al
		mov	word_252E4, 10h
		jmp	loc_14A36
; ---------------------------------------------------------------------------

loc_1499E:
		cmp	word_20650, 39h	; '9'
		jnz	short loc_149C4
		push	word_252E6
		push	8FFF8h
		call	sub_1489C
		add	word_252E4, 2
		cmp	si, 30h	; '0'
		jle	short loc_14A36
		mov	word_20650, 38h	; '8'
		jmp	short loc_14A36
; ---------------------------------------------------------------------------

loc_149C4:
		cmp	word_20650, 50h	; 'P'
		jge	short loc_149D3
		mov	word_2064E, 8Dh
		jmp	short loc_14A36
; ---------------------------------------------------------------------------

loc_149D3:
		cmp	word_20650, 50h	; 'P'
		jnz	short loc_149F9
		mov	al, byte ptr word_252E6
		mov	ah, 0
		mov	dx, 95h
		sub	dx, ax
		mov	word_2064E, dx
		mov	al, 79h	; 'y'
		sub	al, byte ptr word_252E6
		mov	byte_252E0, al
		mov	word_252E4, 10h
		jmp	short loc_14A36
; ---------------------------------------------------------------------------

loc_149F9:
		mov	bx, word_2065C
		cmp	word ptr [bx], 20h ; ' '
		jle	short loc_14A1C
		cmp	word ptr [bx], 160h
		jge	short loc_14A1C
		push	word_252E6
		push	80008h

loc_14A12:
		call	sub_1489C
		add	word_252E4, 2
		jmp	short loc_14A36
; ---------------------------------------------------------------------------

loc_14A1C:
		cmp	si, 30h	; '0'
		jle	short loc_14A30
		mov	bx, word_2065E
		sub	word ptr [bx], 2
		mov	word_2064E, 8Dh
		jmp	short loc_14A36
; ---------------------------------------------------------------------------

loc_14A30:
		mov	word_20650, 0

loc_14A36:
		pop	si
		pop	bp
		retn
sub_148FD	endp


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

; Attributes: bp-based frame

sub_14A39	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_14B31
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14A64
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		mov	al, byte ptr word_2066E
		mov	byte ptr word_252E2, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14A64:
		cmp	word_20650, 63h	; 'c'
		jl	loc_14B31
		cmp	word_20650, 63h	; 'c'
		jnz	short loc_14A9C
		call	_snd_se_play c, 3
		mov	al, byte ptr word_252E6
		mov	ah, 0
		mov	dx, 95h
		sub	dx, ax
		mov	word_2064E, dx
		mov	al, byte ptr word_252E6
		add	al, 78h	; 'x'
		mov	byte_252E0, al
		mov	word_252E4, 50h	; 'P'
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14A9C:
		cmp	word_20650, 78h	; 'x'
		jge	short loc_14AAF
		push	word_252E6
		push	0FFF80008h
		jmp	short loc_14AFB
; ---------------------------------------------------------------------------

loc_14AAF:
		cmp	word_20650, 88h
		jge	short loc_14AE9
		mov	word_2064E, 8Eh
		mov	al, byte ptr word_252E6
		mov	ah, 0
		add	ax, 90h
		mov	word_2064E, ax
		mov	al, 79h	; 'y'
		sub	al, byte ptr word_252E6
		mov	byte_252E0, al
		dec	word_252E4
		cmp	word_20650, 87h
		jnz	short loc_14B31
		call	_snd_se_play c, 3
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14AE9:
		cmp	word_20650, 9Ch
		jge	short loc_14B04
		push	word_252E6
		push	0FFF8FFF8h

loc_14AFB:
		call	sub_1489C
		dec	word_252E4
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14B04:
		mov	bx, word_2065C
		cmp	word ptr [bx], 0C0h
		jz	short loc_14B2B
		mov	word_2064E, 8Dh
		cmp	byte ptr word_252E6, 0
		jnz	short loc_14B20
		mov	ax, 2
		jmp	short loc_14B23
; ---------------------------------------------------------------------------

loc_14B20:
		mov	ax, 0FFFEh

loc_14B23:
		mov	bx, word_2065C
		add	[bx], ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14B2B:
		mov	word_20650, 0

loc_14B31:
		pop	bp
		retn
sub_14A39	endp


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

; Attributes: bp-based frame

sub_14B33	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_14BC0
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14B58
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14B58:
		cmp	word_20650, 63h	; 'c'
		jl	short loc_14BC0
		cmp	word_20650, 63h	; 'c'
		jnz	short loc_14B7E
		call	_snd_se_play c, 3
		mov	word_2064E, 8Fh
		mov	word_252E8, 20h	; ' '
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14B7E:
		cmp	word_20650, 74h	; 't'
		jge	short loc_14BB4
		test	byte ptr word_20650, 1
		jz	short loc_14BC0
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	40h
		push	word_2066E+1
		push	word_252E8
		call	sub_1078E
		add	word_252E8, 0Bh
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14BB4:
		mov	word_2064E, 8Dh
		mov	word_20650, 0

loc_14BC0:
		pop	bp
		retn
sub_14B33	endp


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

; Attributes: bp-based frame

sub_14BC2	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_14C74
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14BEC
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		mov	byte ptr word_252E2, 1Ah
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14BEC:
		cmp	word_20650, 63h	; 'c'
		jl	loc_14C74
		cmp	word_20650, 63h	; 'c'
		jnz	short loc_14C14
		call	_snd_se_play c, 3
		mov	word_2064E, 8Fh
		mov	word_252EA, 20h	; ' '
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14C14:
		cmp	word_20650, 78h	; 'x'
		jge	short loc_14C68
		test	byte ptr word_20650, 1
		jz	short loc_14C48
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	0
		push	word_20670
		push	word_252EA
		call	sub_1078E
		add	word_252EA, 0Bh

loc_14C48:
		mov	bx, word_2065C
		cmp	word ptr [bx], 0C0h
		jz	short loc_14C74
		cmp	word ptr [bx], 0C0h
		jge	short loc_14C5D
		mov	ax, 8
		jmp	short loc_14C60
; ---------------------------------------------------------------------------

loc_14C5D:
		mov	ax, 0FFF8h

loc_14C60:
		mov	bx, word_2065C
		add	[bx], ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14C68:
		mov	word_2064E, 8Dh
		mov	word_20650, 0

loc_14C74:
		pop	bp
		retn
sub_14BC2	endp


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

; Attributes: bp-based frame

sub_14C76	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_14DFA
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14CBE
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 10h
		cmp	ax, word_205F6
		jge	short loc_14C9D
		mov	ax, 1
		jmp	short loc_14C9F
; ---------------------------------------------------------------------------

loc_14C9D:
		xor	ax, ax

loc_14C9F:
		mov	byte ptr word_252E6, al
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		mov	byte ptr word_252E2, 1Ah
		mov	byte ptr word_252E2+1, 30h ; '0'
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14CBE:
		cmp	word_20650, 63h	; 'c'
		jl	loc_14DFA
		cmp	word_20650, 63h	; 'c'
		jnz	short loc_14CF3
		call	_snd_se_play c, 3
		mov	al, byte ptr word_252E6
		mov	ah, 0
		add	ax, 94h
		mov	word_2064E, ax
		mov	al, byte ptr word_252E6
		add	al, 78h	; 'x'
		mov	byte_252E0, al
		mov	word_252E4, 14h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14CF3:
		cmp	word_20650, 74h	; 't'
		jge	short loc_14D07
		push	word_252E6
		push	0FFF80008h
		jmp	loc_14DE4
; ---------------------------------------------------------------------------

loc_14D07:
		cmp	word_20650, 88h
		jge	short loc_14D3F
		mov	word_2064E, 8Eh
		mov	al, byte ptr word_252E6
		mov	ah, 0
		mov	dx, 95h
		sub	dx, ax
		mov	word_2064E, dx
		mov	al, 79h	; 'y'
		sub	al, byte ptr word_252E6
		mov	byte_252E0, al
		mov	word_252E4, 14h
		cmp	word_20650, 87h
		jnz	loc_14DFA
		jmp	loc_14DC8
; ---------------------------------------------------------------------------

loc_14D3F:
		cmp	word_20650, 98h
		jge	short loc_14D54
		push	word_252E6
		push	80008h
		jmp	loc_14DE4
; ---------------------------------------------------------------------------

loc_14D54:
		cmp	word_20650, 0ACh ; 'ｬ'
		jge	short loc_14D88
		mov	word_2064E, 8Eh
		mov	al, byte ptr word_252E6
		mov	ah, 0
		mov	dx, 91h
		sub	dx, ax
		mov	word_2064E, dx
		mov	al, byte ptr word_252E6
		add	al, 78h	; 'x'
		mov	byte_252E0, al
		mov	word_252E4, 14h
		cmp	word_20650, 0ABh
		jnz	short loc_14DFA
		jmp	short loc_14DC8
; ---------------------------------------------------------------------------

loc_14D88:
		cmp	word_20650, 0BCh
		jge	short loc_14D98
		push	word_252E6
		push	8
		jmp	short loc_14DE2
; ---------------------------------------------------------------------------

loc_14D98:
		cmp	word_20650, 0D0h
		jge	short loc_14DD4
		mov	word_2064E, 8Eh
		mov	al, byte ptr word_252E6
		mov	ah, 0
		add	ax, 90h
		mov	word_2064E, ax
		mov	al, 79h	; 'y'
		sub	al, byte ptr word_252E6
		mov	byte_252E0, al
		mov	word_252E4, 14h
		cmp	word_20650, 0CFh
		jnz	short loc_14DFA

loc_14DC8:
		call	_snd_se_play c, 3
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14DD4:
		cmp	word_20650, 0E0h
		jge	short loc_14DEE
		push	word_252E6
		push	0FFF8h

loc_14DE2:
		push	0FFF8h

loc_14DE4:
		call	sub_1489C
		add	word_252E4, 2
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14DEE:
		mov	word_2064E, 8Dh
		mov	word_20650, 0

loc_14DFA:
		pop	bp
		retn
sub_14C76	endp


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

; Attributes: bp-based frame

sub_14DFC	proc near
		push	bp
		mov	bp, sp
		call	_snd_se_play c, 3
		mov	word_2064E, 8Fh
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	0
		push	word_20670
		push	4Ah ; 'J'
		call	sub_1078E
		pop	bp
		retn
sub_14DFC	endp


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

; Attributes: bp-based frame

sub_14E30	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	short loc_14E9B
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14E58
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		mov	byte ptr word_252E2, 1Ah
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14E58:
		cmp	word_20650, 63h	; 'c'
		jl	short loc_14E9B
		cmp	word_20650, 63h	; 'c'
		jz	short loc_14E8A
		cmp	word_20650, 6Ch	; 'l'
		jl	short loc_14E7B
		cmp	word_20650, 6Ch	; 'l'
		jz	short loc_14E8A
		cmp	word_20650, 74h	; 't'
		jge	short loc_14E83

loc_14E7B:
		mov	word_2064E, 8Eh
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14E83:
		cmp	word_20650, 74h	; 't'
		jnz	short loc_14E8F

loc_14E8A:
		call	sub_14DFC
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_14E8F:
		mov	word_2064E, 8Dh
		mov	word_20650, 0

loc_14E9B:
		pop	bp
		retn
sub_14E30	endp


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

; Attributes: bp-based frame

sub_14E9D	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 32h	; '2'
		jl	short loc_14F13
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14EC7
		call	_snd_se_play c, 9
		mov	word_2064E, 8Eh
		mov	word_21748, 5
		jmp	short loc_14F13
; ---------------------------------------------------------------------------

loc_14EC7:
		cmp	word_20650, 63h	; 'c'
		jl	short loc_14F13
		mov	word_2064E, 92h
		xor	si, si
		jmp	short loc_14F02
; ---------------------------------------------------------------------------

loc_14ED8:
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		call	_randring2_next8
		push	ax
		push	87h
		mov	ax, si
		and	ax, 1
		add	ax, 7Ah	; 'z'
		push	ax
		push	36h ; '6'
		call	sub_10865
		inc	si

loc_14F02:
		cmp	si, 3
		jl	short loc_14ED8
		mov	word_20650, 0
		mov	word_250FE, 1

loc_14F13:
		pop	si
		pop	bp
		retn
sub_14E9D	endp


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

; Attributes: bp-based frame

sub_14F16	proc near

var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 8
		push	si
		push	di
		cmp	word_20650, 32h	; '2'
		jl	loc_150F0
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		add	ax, 7676h
		mov	[bp+var_6], ax
		mov	al, _page_back
		mov	ah, 0
		imul	ax, 6
		add	ax, 7682h
		mov	[bp+var_8], ax
		test	byte ptr word_20650, 7
		jnz	short loc_14F84
		mov	bx, [bp+var_6]
		mov	ax, [bx+2]
		mov	[bx], ax
		mov	bx, [bp+var_8]
		mov	ax, [bx+2]
		mov	[bx], ax
		mov	bx, [bp+var_6]
		mov	ax, [bx+4]
		mov	[bx+2],	ax
		mov	bx, [bp+var_8]
		mov	ax, [bx+4]
		mov	[bx+2],	ax
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	bx, [bp+var_6]
		mov	[bx+4],	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	bx, [bp+var_8]
		mov	[bx+4],	ax

loc_14F84:
		cmp	word_20650, 32h	; '2'
		jnz	short loc_14FEA
		xor	di, di
		jmp	short loc_14FAE
; ---------------------------------------------------------------------------

loc_14F8F:
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_6]
		mov	si, word_2065C
		mov	ax, [si]
		mov	[bx], ax
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_8]
		mov	si, word_2065E
		mov	ax, [si]
		mov	[bx], ax
		inc	di

loc_14FAE:
		cmp	di, 3
		jl	short loc_14F8F
		call	_randring2_next16
		mov	bx, 140h
		xor	dx, dx
		div	bx
		add	dx, 20h	; ' '
		mov	word_252F0, dx
		call	_randring2_next8
		mov	ah, 0
		add	ax, 10h
		mov	word_252F2, ax
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_252EC, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_252EE, ax
		mov	word_252F4, 1
		jmp	loc_1508F
; ---------------------------------------------------------------------------

loc_14FEA:
		cmp	word_20650, 72h	; 'r'
		jg	short loc_15038
		mov	ax, word_252F0
		sub	ax, word_252EC
		imul	word_252F4
		mov	bx, 40h
		cwd
		idiv	bx
		mov	[bp+var_2], ax
		mov	ax, word_252F2
		sub	ax, word_252EE
		imul	word_252F4
		cwd
		idiv	bx
		mov	[bp+var_4], ax
		mov	ax, word_252EE
		add	[bp+var_4], ax
		mov	ax, [bp+var_2]
		add	ax, word_252EC
		mov	bx, word_2065C
		mov	[bx], ax
		mov	bx, word_2065E
		mov	ax, [bp+var_4]
		mov	[bx], ax
		inc	word_252F4
		jmp	short loc_1508F
; ---------------------------------------------------------------------------

loc_15038:
		cmp	word_20650, 72h	; 'r'
		jnz	short loc_1504B
		call	_snd_se_play c, 9
		jmp	short loc_1508F
; ---------------------------------------------------------------------------

loc_1504B:
		cmp	word_20650, 0A4h
		jl	loc_150F0
		mov	word_2064E, 92h
		xor	di, di
		jmp	short loc_15084
; ---------------------------------------------------------------------------

loc_1505F:
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 18h
		push	ax
		call	_randring2_next8
		push	ax
		push	87h
		lea	ax, [di+7Ah]
		push	ax
		push	36h ; '6'
		call	sub_10865
		inc	di

loc_15084:
		cmp	di, 2
		jl	short loc_1505F
		mov	word_20650, 0

loc_1508F:
		xor	di, di
		jmp	short loc_150EB
; ---------------------------------------------------------------------------

loc_15093:
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_6]
		mov	ax, [bx]
		mov	bx, word_2065C
		cmp	ax, [bx]
		jz	short loc_150EA
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_8]
		mov	ax, [bx]
		mov	bx, word_2065E
		cmp	ax, [bx]
		jz	short loc_150EA
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_8]
		mov	[bp+var_4], ax
		mov	ax, _scroll_line
		add	[bp+var_4], ax
		cmp	[bp+var_4], RES_Y
		jl	short loc_150D1
		sub	[bp+var_4], RES_Y

loc_150D1:
		mov	bx, di
		add	bx, bx
		add	bx, [bp+var_6]
		push	word ptr [bx]
		push	[bp+var_4]
		push	930000h
		push	0FFC1h
		call	super_roll_put_1plane

loc_150EA:
		inc	di

loc_150EB:
		cmp	di, 3
		jl	short loc_15093

loc_150F0:
		pop	di
		pop	si
		leave
		retn
sub_14F16	endp


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

; Attributes: bp-based frame

sub_150F4	proc far
		push	bp
		mov	bp, sp
		push	si
		inc	word_20650
		mov	bx, word_2065E
		mov	si, [bx]
		add	si, 28h	; '('
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 28h	; '('
		mov	word_205D8, ax
		mov	word_205DA, si
		cmp	byte_2066A, 0
		jz	short loc_1512B
		call	sub_14519
		or	ax, ax
		jz	loc_15206
		mov	ax, 2
		jmp	loc_1520C
; ---------------------------------------------------------------------------

loc_1512B:
		cmp	byte_252F6, 0
		jnz	short loc_15185
		mov	al, byte_252F7
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 3
		ja	short loc_15157
		add	bx, bx
		jmp	cs:off_15210[bx]

loc_15145:
		call	sub_1483B
		jmp	short loc_15157
; ---------------------------------------------------------------------------

loc_1514A:
		call	sub_148FD
		jmp	short loc_15157
; ---------------------------------------------------------------------------

loc_1514F:
		call	sub_14A39
		jmp	short loc_15157
; ---------------------------------------------------------------------------

loc_15154:
		call	sub_14B33

loc_15157:
		cmp	word_20650, 0
		jnz	loc_15203
		inc	byte_252F7
		cmp	byte_252F7, 3
		jbe	short loc_15170
		mov	byte_252F7, 0

loc_15170:
		cmp	word_2065A, 2BCh
		jle	loc_15203
		cmp	byte_252F7, 1
		jz	loc_15203
		jmp	short loc_151CD
; ---------------------------------------------------------------------------

loc_15185:
		cmp	byte_252F6, 1
		jnz	short loc_151D8
		mov	al, byte_252F7
		mov	ah, 0
		or	ax, ax
		jz	short loc_151A1
		cmp	ax, 1
		jz	short loc_151A6
		cmp	ax, 2
		jz	short loc_151AB
		jmp	short loc_151AE
; ---------------------------------------------------------------------------

loc_151A1:
		call	sub_14BC2
		jmp	short loc_151AE
; ---------------------------------------------------------------------------

loc_151A6:
		call	sub_14C76
		jmp	short loc_151AE
; ---------------------------------------------------------------------------

loc_151AB:
		call	sub_14E30

loc_151AE:
		cmp	word_20650, 0
		jnz	short loc_15203
		inc	byte_252F7
		cmp	byte_252F7, 2
		jbe	short loc_151C5
		mov	byte_252F7, 0

loc_151C5:
		cmp	word_2065A, 5DCh
		jle	short loc_15203

loc_151CD:
		inc	byte_252F6
		mov	byte_252F7, 0
		jmp	short loc_15203
; ---------------------------------------------------------------------------

loc_151D8:
		cmp	byte_252F6, 2
		jnz	short loc_15203
		mov	al, byte_252F7
		mov	ah, 0
		or	ax, ax
		jz	short loc_151EF
		cmp	ax, 1
		jz	short loc_151F4
		jmp	short loc_151F7
; ---------------------------------------------------------------------------

loc_151EF:
		call	sub_14E9D
		jmp	short loc_151F7
; ---------------------------------------------------------------------------

loc_151F4:
		call	sub_14F16

loc_151F7:
		cmp	word_20650, 0
		jnz	short loc_15203
		mov	byte_252F7, 1

loc_15203:
		call	sub_145E1

loc_15206:
		call	sub_14726
		mov	ax, 1

loc_1520C:
		pop	si
		pop	bp
		retf
sub_150F4	endp

; ---------------------------------------------------------------------------
		db 0
off_15210	dw offset loc_15145
		dw offset loc_1514A
		dw offset loc_1514F
		dw offset loc_15154

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

; Attributes: bp-based frame

sub_15218	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		push	1
		call	sub_1310B
		call	sub_FC53
		call	_key_delay
		call	sub_E162
		inc	stage_id
		mov	word_1EB0A, 0
		pop	bp
		retf
sub_15218	endp


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

; Attributes: bp-based frame

sub_1523C	proc far
		push	bp
		mov	bp, sp
		push	si
		mov	word_2064E, 8Dh
		call	sub_12DE0
		call	sub_1314C
		mov	word_20652, 0C0h
		mov	ax, word_20652
		mov	word_20654, ax
		mov	word_20656, 30h	; '0'
		mov	word_20658, 30h	; '0'
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		push	1
		call	palette_white_out
		mov	si, 48
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_15296
		sub	si, RES_Y

loc_15296:
		mov	bx, word_2065C
		push	word ptr [bx]
		push	si
		push	word_2064E
		call	super_roll_put
		push	ds
		push	offset aBoss4_m	; "boss4.m"
		nopcall	sub_13ABB
		add	sp, 4
		push	1
		call	palette_white_in
		push	0
		call	sub_1310B
		call	sub_12E95
		mov	word_2065A, 0
		mov	byte_2066A, 0
		mov	word_21748, 2
		mov	byte_1E510, 0
		mov	byte_252F6, 0
		mov	byte_252F7, 0
		mov	word_250FE, 0
		cmp	_rank, RANK_EASY
		jz	short loc_152FF
		mov	byte ptr word_2066E, 1Ah
		mov	byte ptr word_2066E+1, 15h
		mov	byte ptr word_20670, 17h
		jmp	short loc_1530E
; ---------------------------------------------------------------------------

loc_152FF:
		mov	byte ptr word_2066E, 1Ah
		mov	byte ptr word_2066E+1, 9
		mov	byte ptr word_20670, 0Bh

loc_1530E:
		pop	si
		pop	bp
		retf
sub_1523C	endp


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

; Attributes: bp-based frame

sub_15311	proc near

arg_0		= byte ptr  4
arg_2		= byte ptr  6
arg_4		= byte ptr  8
arg_6		= word ptr  0Ah
arg_8		= word ptr  0Ch

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	di, [bp+arg_8]
		mov	dx, [bp+arg_6]
		or	dx, dx
		jge	short loc_15326
		add	dx, 190h
		jmp	short loc_15330
; ---------------------------------------------------------------------------

loc_15326:
		cmp	dx, 190h
		jl	short loc_15330
		sub	dx, 190h

loc_15330:
		mov	si, 794Ah
		xor	cx, cx
		jmp	short loc_15361
; ---------------------------------------------------------------------------

loc_15337:
		cmp	byte ptr [si], 0
		jnz	short loc_1535D
		mov	byte ptr [si], 1
		mov	byte ptr [si+1], 0
		mov	[si+2],	di
		mov	[si+4],	dx
		mov	al, [bp+arg_4]
		mov	[si+6],	al
		mov	al, [bp+arg_2]
		mov	[si+7],	al
		mov	al, [bp+arg_0]
		mov	[si+8],	al
		jmp	short loc_15366
; ---------------------------------------------------------------------------

loc_1535D:
		inc	cx
		add	si, 0Ah

loc_15361:
		cmp	cx, 1Eh
		jl	short loc_15337

loc_15366:
		pop	di
		pop	si
		pop	bp
		retn	0Ah
sub_15311	endp


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

; Attributes: bp-based frame

sub_1536C	proc near

var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= byte ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 8
		push	si
		push	di
		mov	ax, word_1EE16
		mov	[bp+var_8], ax
		mov	ax, word_1EE18
		mov	[bp+var_6], ax
		mov	ax, word_1EE1A
		mov	[bp+var_4], ax
		mov	al, byte_1EE1C
		mov	[bp+var_2], al
		mov	si, 794Ah
		xor	di, di
		jmp	short loc_153F9
; ---------------------------------------------------------------------------

loc_15393:
		cmp	byte ptr [si], 0
		jz	short loc_153F5
		inc	byte ptr [si+1]
		test	byte ptr [si+1], 7
		jnz	short loc_153F5
		push	word ptr [si+2]
		push	word ptr [si+4]
		mov	al, [si]
		mov	ah, 0
		lea	dx, [bp+var_8]
		add	ax, dx
		mov	bx, ax
		mov	al, ss:[bx]
		mov	ah, 0
		push	ax
		call	sub_480C
		inc	byte ptr [si]
		cmp	byte ptr [si], 7
		jb	short loc_153F5
		mov	ax, _scroll_line
		sub	[si+4],	ax
		cmp	word ptr [si+4], 0
		jge	short loc_153D5
		add	word ptr [si+4], RES_Y

loc_153D5:
		mov	ax, [si+2]
		add	ax, 4
		push	ax
		mov	ax, [si+4]
		add	ax, 4
		push	ax
		push	word ptr [si+7]
		push	word ptr [si+6]
		mov	al, [si+8]
		mov	ah, 0
		push	ax
		call	sub_1078E
		mov	byte ptr [si], 0

loc_153F5:
		inc	di
		add	si, 0Ah

loc_153F9:
		cmp	di, 1Eh
		jl	short loc_15393
		pop	di
		pop	si
		leave
		retn
sub_1536C	endp


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

; Attributes: bp-based frame

sub_15402	proc far
		push	bp
		mov	bp, sp
		mov	al, byte_253B4
		mov	ah, 0
		pop	bp
		retf
sub_15402	endp


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

; Attributes: bp-based frame

sub_1540C	proc far
		push	bp
		mov	bp, sp
		inc	word_20650
		cmp	word_20650, 1
		jnz	short loc_15427
		mov	byte_254EA, 0
		mov	byte_253B4, 1
		jmp	loc_155AD
; ---------------------------------------------------------------------------

loc_15427:
		cmp	word_20650, 60h
		jge	short loc_154A0
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_155AD
		cmp	byte_254EA, 0
		jnz	short loc_1544C
		push	800080h
		jmp	short loc_1549B
; ---------------------------------------------------------------------------

loc_1544C:
		mov	al, byte_254EA
		mov	ah, 0
		mov	dx, 80h
		sub	dx, ax
		push	dx
		push	80h
		push	21h ; '!'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	80h
		mov	al, byte_254EA
		mov	ah, 0
		mov	dx, 80h
		sub	dx, ax
		push	dx
		push	21h ; '!'
		push	0
		push	64h ; 'd'
		call	sub_15311
		mov	al, byte_254EA
		mov	ah, 0
		add	ax, 80h
		push	ax
		push	80h
		push	21h ; '!'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	80h
		mov	al, byte_254EA
		mov	ah, 0
		add	ax, 80h
		push	ax

loc_1549B:
		push	21h ; '!'
		jmp	loc_1559E
; ---------------------------------------------------------------------------

loc_154A0:
		cmp	word_20650, 60h
		jz	short loc_15521
		cmp	word_20650, 0C0h
		jge	short loc_15519
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_155AD
		cmp	byte_254EA, 0
		jnz	short loc_154CD
		push	1300000h
		jmp	short loc_15514
; ---------------------------------------------------------------------------

loc_154CD:
		mov	al, byte_254EA
		mov	ah, 0
		mov	dx, 130h
		sub	dx, ax
		push	dx
		push	0
		push	24h ; '$'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	130h
		mov	al, byte_254EA
		mov	ah, 0
		neg	ax
		push	ax
		push	24h ; '$'
		push	0
		push	64h ; 'd'
		call	sub_15311
		mov	al, byte_254EA
		mov	ah, 0
		add	ax, 130h
		push	ax
		push	0
		push	24h ; '$'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	130h
		mov	al, byte_254EA
		mov	ah, 0
		push	ax

loc_15514:
		push	24h ; '$'
		jmp	loc_1559E
; ---------------------------------------------------------------------------

loc_15519:
		cmp	word_20650, 0C0h
		jnz	short loc_15529

loc_15521:
		mov	byte_254EA, 0
		jmp	loc_155AD
; ---------------------------------------------------------------------------

loc_15529:
		cmp	word_20650, 120h
		jge	short loc_155AD
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_155AD
		cmp	byte_254EA, 0
		jnz	short loc_1554D
		push	0C00150h
		jmp	short loc_1559C
; ---------------------------------------------------------------------------

loc_1554D:
		mov	al, byte_254EA
		mov	ah, 0
		mov	dx, 0C0h
		sub	dx, ax
		push	dx
		push	150h
		push	25h ; '%'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	0C0h
		mov	al, byte_254EA
		mov	ah, 0
		mov	dx, 150h
		sub	dx, ax
		push	dx
		push	25h ; '%'
		push	0
		push	64h ; 'd'
		call	sub_15311
		mov	al, byte_254EA
		mov	ah, 0
		add	ax, 0C0h
		push	ax
		push	150h
		push	25h ; '%'
		push	0
		push	64h ; 'd'
		call	sub_15311
		push	0C0h
		mov	al, byte_254EA
		mov	ah, 0
		add	ax, 150h
		push	ax

loc_1559C:
		push	25h ; '%'

loc_1559E:
		push	0
		push	64h ; 'd'
		call	sub_15311
		mov	al, byte_254EA
		add	al, 10h
		mov	byte_254EA, al

loc_155AD:
		cmp	word_20650, 1A4h
		jle	short loc_155C0
		mov	word_20650, 0
		mov	byte_253B4, 0

loc_155C0:
		call	sub_1536C
		pop	bp
		retf
sub_1540C	endp


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

; Attributes: bp-based frame

sub_155C5	proc near

var_4		= dword	ptr -4
arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	di, [bp+arg_4]
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 7A7Ch
		or	di, di
		jle	short loc_1563C
		cmp	di, 1BCh
		jge	short loc_1563C
		cmp	[bp+arg_2], 0
		jle	short loc_1563C
		cmp	[bp+arg_2], 190h
		jge	short loc_1563C
		xor	si, si
		jmp	short loc_15637
; ---------------------------------------------------------------------------

loc_155F3:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 0
		jnz	short loc_15632
		les	bx, [bp+var_4]
		mov	byte ptr es:[bx], 1
		mov	byte ptr es:[bx+1], 0
		mov	es:[bx+2], di
		mov	ax, [bp+arg_2]
		mov	es:[bx+4], ax
		mov	ax, [bp+arg_0]
		mov	es:[bx+6], ax
		mov	byte ptr es:[bx+8], 1Ah
		mov	byte ptr es:[bx+9], 40h
		call	_snd_se_play c, 9
		xor	ax, ax
		jmp	short loc_1563F
; ---------------------------------------------------------------------------

loc_15632:
		inc	si
		add	word ptr [bp+var_4], 0Ah

loc_15637:
		cmp	si, 10h
		jl	short loc_155F3

loc_1563C:
		mov	ax, 1

loc_1563F:
		pop	di
		pop	si
		leave
		retn	6
sub_155C5	endp


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

; Attributes: bp-based frame

sub_15645	proc near

var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 4
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 7A7Ch
		xor	ax, ax
		jmp	short loc_15668
; ---------------------------------------------------------------------------

loc_15657:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 2
		jnz	short loc_15663
		inc	byte ptr es:[bx]

loc_15663:
		inc	ax
		add	word ptr [bp+var_4], 0Ah

loc_15668:
		cmp	ax, 10h
		jl	short loc_15657
		leave
		retn
sub_15645	endp


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

; Attributes: bp-based frame

sub_1566F	proc near

var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], 7A7Ch
		xor	si, si
		jmp	loc_158D2
; ---------------------------------------------------------------------------

loc_15683:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 0
		jz	loc_158CD
		les	bx, [bp+var_4]
		inc	byte ptr es:[bx+1]
		cmp	byte ptr es:[bx], 1
		jnz	loc_15721
		mov	al, byte_2558C
		test	es:[bx+1], al
		jnz	short loc_156F7
		inc	byte ptr es:[bx+8]
		cmp	byte ptr es:[bx+8], 22h	; '"'
		jb	short loc_156BE
		inc	byte ptr es:[bx]
		call	_snd_se_play c, 3

loc_156BE:
		les	bx, [bp+var_4]
		mov	byte ptr es:[bx+1], 0
		mov	al, es:[bx+9]
		add	al, 0F8h
		mov	es:[bx+9], al
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		les	bx, [bp+var_4]
		push	word ptr es:[bx+2]
		push	word ptr es:[bx+4]
		mov	al, es:[bx+9]
		mov	ah, 0
		push	ax
		call	grcg_circle
		call	grcg_off

loc_156F7:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 1
		jnz	loc_158CD
		mov	ax, es:[bx+2]
		add	ax, 0FFF0h
		push	ax
		mov	ax, es:[bx+4]
		add	ax, 0FFF0h
		push	ax
		mov	al, es:[bx+8]
		mov	ah, 0
		push	ax
		call	super_put_rect
		jmp	loc_158CD
; ---------------------------------------------------------------------------

loc_15721:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 3
		jnz	loc_15849
		mov	al, _page_back
		mov	ah, 0
		mov	dx, si
		and	dx, 1
		cmp	ax, dx
		jnz	short loc_1577A
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		les	bx, [bp+var_4]
		push	word ptr es:[bx+2]
		push	word ptr es:[bx+4]
		mov	al, es:[bx+9]
		mov	ah, 0
		push	ax
		call	grcg_circlefill
		call	grcg_off
		les	bx, [bp+var_4]
		mov	al, es:[bx+9]
		mov	ah, 0
		cmp	ax, es:[bx+6]
		jge	short loc_1577A
		mov	al, es:[bx+9]
		add	al, 10h
		mov	es:[bx+9], al

loc_1577A:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx+1], 20h	; ' '
		jbe	short loc_1579B
		inc	byte ptr es:[bx]
		mov	byte ptr es:[bx+1], 0
		mov	al, es:[bx+9]
		mov	ah, 0
		mov	es:[bx+6], ax
		mov	byte ptr es:[bx+9], 8

loc_1579B:
		les	bx, [bp+var_4]
		mov	ax, es:[bx+2]
		mov	dl, es:[bx+9]
		mov	dh, 0
		sub	ax, dx
		push	ax
		mov	al, byte_2558D
		cbw
		pop	dx
		add	dx, ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		cmp	dx, [bx+2B76h]
		jge	loc_158CD
		mov	bx, word ptr [bp+var_4]
		mov	ax, es:[bx+2]
		mov	dl, es:[bx+9]
		mov	dh, 0
		add	ax, dx
		push	ax
		mov	al, byte_2558D
		cbw
		pop	dx
		sub	dx, ax
		add	dx, 0FFE0h
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		cmp	dx, [bx+2B76h]
		jle	loc_158CD
		mov	bx, word ptr [bp+var_4]
		mov	ax, es:[bx+4]
		mov	dl, es:[bx+9]
		mov	dh, 0
		sub	ax, dx
		push	ax
		mov	al, byte_2558D
		cbw
		pop	dx
		add	dx, ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		cmp	dx, [bx+2B7Ah]
		jge	loc_158CD
		mov	bx, word ptr [bp+var_4]
		mov	ax, es:[bx+4]
		mov	dl, es:[bx+9]
		mov	dh, 0
		add	ax, dx
		push	ax
		mov	al, byte_2558D
		cbw
		pop	dx
		sub	dx, ax
		add	dx, 0FFE0h
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		cmp	dx, [bx+2B7Ah]
		jle	loc_158CD
		mov	_player_is_hit, 1
		jmp	loc_158CD
; ---------------------------------------------------------------------------

loc_15849:
		les	bx, [bp+var_4]
		cmp	byte ptr es:[bx], 4
		jnz	short loc_158CD
		mov	al, _page_back
		mov	ah, 0
		mov	dx, si
		and	dx, 1
		cmp	ax, dx
		jnz	short loc_158CD
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		les	bx, [bp+var_4]
		push	word ptr es:[bx+2]
		push	word ptr es:[bx+4]
		push	word ptr es:[bx+6]
		call	grcg_circlefill
		call	grcg_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		les	bx, [bp+var_4]
		push	word ptr es:[bx+2]
		push	word ptr es:[bx+4]
		mov	al, es:[bx+9]
		mov	ah, 0
		push	ax
		call	grcg_circlefill
		call	grcg_off
		les	bx, [bp+var_4]
		mov	al, es:[bx+9]
		mov	ah, 0
		cmp	ax, es:[bx+6]
		jl	short loc_158C0
		mov	byte ptr es:[bx], 0
		jmp	short loc_158CD
; ---------------------------------------------------------------------------

loc_158C0:
		les	bx, [bp+var_4]
		mov	al, es:[bx+9]
		add	al, 10h
		mov	es:[bx+9], al

loc_158CD:
		inc	si
		add	word ptr [bp+var_4], 0Ah

loc_158D2:
		cmp	si, 10h
		jl	loc_15683
		pop	si
		leave
		retn
sub_1566F	endp


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

; Attributes: bp-based frame

sub_158DC	proc near
		push	bp
		mov	bp, sp
		push	word_254E6
		push	word_254E8
		push	word_2064E
		call	super_put_rect
		mov	ax, word_254E6
		add	ax, 40h
		push	ax
		push	word_254E8
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		pop	bp
		retn
sub_158DC	endp


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

; Attributes: bp-based frame

sub_15907	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		mov	ax, word_2064E
		mov	[bp+var_4], ax
		cmp	byte_2066A, 0
		jnz	loc_159A4
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 24h	; '$'
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	380020h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_1594A
		mov	word_2064E, 82h
		add	word_2065A, ax

loc_1594A:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_254E6
		add	dx, 8
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jle	short loc_159A4
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_254E6
		add	dx, 58h	; 'X'
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short loc_159A4
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B7Ah]
		cmp	ax, word_254E8
		jle	short loc_159A4
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_254E8
		add	dx, 40h
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jge	short loc_159A4
		mov	_player_is_hit, 1

loc_159A4:
		call	sub_158DC
		mov	ax, [bp+var_4]
		mov	word_2064E, ax
		leave
		retn
sub_15907	endp


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

; Attributes: bp-based frame

sub_159AF	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		mov	[bp+var_2], 8
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	40010h
		push	33017Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		call	sub_15645
		leave
		retf
sub_159AF	endp


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

; Attributes: bp-based frame

sub_15A25	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 0Ah
		jge	short loc_15A38
		call	sub_158DC
		xor	ax, ax
		jmp	loc_15D53
; ---------------------------------------------------------------------------

loc_15A38:
		cmp	word_20650, 0Ah
		jnz	short loc_15A54
		mov	byte_2558E, 8
		call	sub_158DC
		call	_snd_se_play c, 9
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15A54:
		cmp	word_20650, 5Ah	; 'Z'
		jge	short loc_15AD0
		call	sub_158DC
		cmp	_page_back, 0
		jnz	short loc_15A8A
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	ax, word_254E6
		add	ax, 40h
		push	ax
		mov	ax, word_254E8
		add	ax, 40h
		push	ax
		push	18h
		call	grcg_circlefill
		call	grcg_off

loc_15A8A:
		cmp	word_20650, 32h	; '2'
		jl	short loc_15ABA
		cmp	_page_back, 0
		jz	short loc_15ABA
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	ax, word_254E6
		add	ax, 40h
		push	ax
		push	10017Fh
		call	grcg_vline
		call	grcg_off

loc_15ABA:
		cmp	word_20650, 59h	; 'Y'
		jnz	loc_15D51
		call	_snd_se_play c, 3
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15AD0:
		cmp	word_20650, 64h	; 'd'
		jge	loc_15B65
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	al, byte_2558E
		mov	ah, 0
		push	ax
		mov	ax, word_254E6
		add	ax, 40h
		pop	dx
		sub	ax, dx
		mov	bx, 8
		cwd
		idiv	bx
		push	ax
		push	10h
		mov	al, byte_2558E
		mov	ah, 0
		add	ax, word_254E6
		add	ax, 40h
		cwd
		idiv	bx
		push	ax
		push	17Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		mov	al, byte_2558E
		mov	ah, 0
		mov	dx, word_254E6
		add	dx, 38h	; '8'
		sub	dx, ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		cmp	dx, [bx+2B76h]
		jge	short loc_15B57
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dl, byte_2558E
		mov	dh, 0
		add	dx, word_254E6
		add	dx, 28h	; '('
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short loc_15B57
		mov	_player_is_hit, 1

loc_15B57:
		mov	al, byte_2558E
		add	al, 8
		mov	byte_2558E, al
		call	sub_158DC
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15B65:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_15BC2
		mov	al, byte_2558E
		mov	ah, 0
		mov	dx, word_254E6
		add	dx, 38h	; '8'
		sub	dx, ax
		mov	word_25592, dx
		mov	al, byte_2558E
		mov	ah, 0
		add	ax, word_254E6
		add	ax, 28h	; '('
		mov	word_25594, ax
		mov	al, byte_2558E
		mov	ah, 0
		push	ax
		mov	ax, word_254E6
		add	ax, 40h
		pop	dx
		sub	ax, dx
		mov	bx, 8
		cwd
		idiv	bx
		mov	byte_2558F, al
		mov	al, byte_2558E
		mov	ah, 0
		add	ax, word_254E6
		add	ax, 40h
		cwd
		idiv	bx
		add	al, 0FFh
		mov	byte_25590, al
		mov	word_2064E, 86h
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15BC2:
		cmp	word_20650, 8Ch
		jg	short loc_15C25
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	al, byte_2558F
		mov	ah, 0
		push	ax
		push	10h
		mov	al, byte_25590
		mov	ah, 0
		push	ax
		push	17Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		call	sub_158DC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25592
		jle	loc_15D51
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25594
		jge	loc_15D51
		mov	_player_is_hit, 1
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15C25:
		cmp	word_20650, 0B4h
		jge	loc_15CBC
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	al, byte_2558F
		mov	ah, 0
		push	ax
		push	10h
		mov	al, byte_25590
		mov	ah, 0
		push	ax
		push	17Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		mov	ax, word_20650
		mov	bx, 0Ah
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_15C67
		add	word_2064E, 2

loc_15C67:
		call	sub_158DC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25592
		jle	short loc_15C95
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25594
		jge	short loc_15C95
		mov	_player_is_hit, 1

loc_15C95:
		mov	ax, word_20650
		and	ax, 1
		mov	si, ax
		mov	ax, RES_Y
		sub	ax, _scroll_line
		push	ax
		mov	ax, _scroll_line
		imul	ax, 40
		add	ax, si
		push	ax
		push	si
		call	graph_scroll
		mov	byte_2066D, 2
		jmp	loc_15D51
; ---------------------------------------------------------------------------

loc_15CBC:
		cmp	word_20650, 0DCh
		jg	short loc_15D1C
		mov	byte_2066D, 1
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		mov	al, byte_2558F
		mov	ah, 0
		push	ax
		push	10h
		mov	al, byte_25590
		mov	ah, 0
		push	ax
		push	17Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25592
		jle	short loc_15D51
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B76h]
		cmp	ax, word_25594
		jge	short loc_15D51
		mov	_player_is_hit, 1
		jmp	short loc_15D51
; ---------------------------------------------------------------------------

loc_15D1C:
		cmp	word_20650, 0E0h
		jge	short loc_15D4C
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		mov	al, byte_2558F
		mov	ah, 0
		push	ax
		push	10h
		mov	al, byte_25590
		mov	ah, 0
		push	ax
		push	17Fh
		call	grcg_byteboxfill_x
		call	grcg_off
		jmp	short loc_15D51
; ---------------------------------------------------------------------------

loc_15D4C:
		mov	ax, 1
		jmp	short loc_15D53
; ---------------------------------------------------------------------------

loc_15D51:
		xor	ax, ax

loc_15D53:
		pop	si
		pop	bp
		retn
sub_15A25	endp


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

; Attributes: bp-based frame

sub_15D56	proc near

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		cmp	word_20650, 14h
		jl	loc_15E81
		cmp	word_20650, 14h
		jnz	short loc_15D83
		mov	byte_25596, 0
		cmp	word_205F6, 0D0h
		jge	short loc_15D7E
		mov	al, 1
		jmp	short loc_15D80
; ---------------------------------------------------------------------------

loc_15D7E:
		mov	al, 0FFh

loc_15D80:
		mov	byte_25597, al

loc_15D83:
		mov	ax, word_20650
		mov	bx, 4
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_15D9A
		call	_snd_se_play c, 3

loc_15D9A:
		cmp	word_20650, 94h
		jge	short loc_15DB7
		mov	al, byte_25597
		cbw
		mov	bx, word_2065C
		add	[bx], ax
		test	byte ptr word_20650, 1
		jz	loc_15E81
		jmp	short loc_15DF2
; ---------------------------------------------------------------------------

loc_15DB7:
		cmp	word_20650, 0D4h
		jge	short loc_15DD7
		mov	al, byte_25597
		cbw
		shl	ax, 2
		mov	bx, word_2065C
		sub	[bx], ax
		test	byte ptr word_20650, 1
		jz	loc_15E81
		jmp	short loc_15DF2
; ---------------------------------------------------------------------------

loc_15DD7:
		cmp	word_20650, 154h
		jge	short loc_15E19
		mov	al, byte_25597
		cbw
		mov	bx, word_2065C
		add	[bx], ax
		test	byte ptr word_20650, 1
		jz	loc_15E81

loc_15DF2:
		push	7Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, word_254E6
		push	ax
		mov	ax, word_254E8
		add	ax, 40h
		push	ax
		push	40h
		push	20h ; ' '
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 1Eh
		push	ax
		call	sub_1078E
		jmp	short loc_15E81
; ---------------------------------------------------------------------------

loc_15E19:
		cmp	word_20650, 1B8h
		jge	short loc_15E7B
		inc	byte_25596
		call	_randring2_next8
		mov	ah, 0
		mov	dl, byte_25596
		mov	dh, 0
		add	dx, dx
		push	dx
		cwd
		pop	bx
		idiv	bx
		mov	al, 40h
		sub	al, byte_25596
		add	dl, al
		mov	[bp+var_1], dl
		test	byte ptr word_20650, 3
		jnz	short loc_15E81
		xor	si, si
		jmp	short loc_15E74
; ---------------------------------------------------------------------------

loc_15E4D:
		push	7Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, word_254E6
		push	ax
		mov	ax, word_254E8
		add	ax, 40h
		push	ax
		push	word ptr [bp+var_1]
		push	20h ; ' '
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 1Eh
		push	ax
		call	sub_1078E
		inc	si

loc_15E74:
		cmp	si, 3
		jl	short loc_15E4D
		jmp	short loc_15E81
; ---------------------------------------------------------------------------

loc_15E7B:
		mov	word_20650, 0

loc_15E81:
		pop	si
		leave
		retn
sub_15D56	endp


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

; Attributes: bp-based frame

sub_15E84	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 64h	; 'd'
		jl	short loc_15EF5
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_15EAD
		mov	byte_2558C, 7
		mov	byte_2558D, 4
		push	80h

loc_15EA2:
		push	1400040h
		call	sub_155C5
		jmp	short loc_15EE7
; ---------------------------------------------------------------------------

loc_15EAD:
		cmp	word_20650, 78h	; 'x'
		jnz	short loc_15EB9
		push	140h
		jmp	short loc_15EA2
; ---------------------------------------------------------------------------

loc_15EB9:
		cmp	word_20650, 82h
		jle	short loc_15EE7
		cmp	word_20650, 96h
		jge	short loc_15EE7
		mov	ax, word_20650
		mov	bx, 4
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_15EE7
		push	word_253B6
		push	word_253B8
		push	0
		push	17h
		push	78h ; 'x'
		call	sub_1078E

loc_15EE7:
		cmp	word_20650, 0C8h
		jle	short loc_15EF5
		mov	word_20650, 0

loc_15EF5:
		pop	bp
		retn
sub_15E84	endp


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

; Attributes: bp-based frame

sub_15EF7	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jge	short loc_15F06
		mov	ax, 1
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_15F06:
		cmp	word_20650, 32h	; '2'
		jnz	short loc_15F1E
		cmp	word_205F6, 0D0h
		jge	short loc_15F19
		mov	al, 1
		jmp	short loc_15F1B
; ---------------------------------------------------------------------------

loc_15F19:
		mov	al, 0FFh

loc_15F1B:
		mov	byte_25598, al

loc_15F1E:
		cmp	word_20650, 72h	; 'r'
		jge	short loc_15F37
		mov	al, byte_25598
		cbw
		mov	bx, word_2065C
		add	[bx], ax
		mov	bx, word_2065E
		inc	word ptr [bx]
		jmp	short loc_15F6B
; ---------------------------------------------------------------------------

loc_15F37:
		cmp	word_20650, 0F2h
		jge	short loc_15F4B
		mov	al, byte_25598
		cbw
		mov	bx, word_2065C
		sub	[bx], ax
		jmp	short loc_15F6B
; ---------------------------------------------------------------------------

loc_15F4B:
		cmp	word_20650, 132h
		jge	short loc_15F65
		mov	al, byte_25598
		cbw
		mov	bx, word_2065C
		add	[bx], ax
		mov	bx, word_2065E
		dec	word ptr [bx]
		jmp	short loc_15F6B
; ---------------------------------------------------------------------------

loc_15F65:
		mov	word_20650, 0

loc_15F6B:
		xor	ax, ax
		pop	bp
		retn
sub_15EF7	endp


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

; Attributes: bp-based frame

sub_15F6F	proc near
		push	bp
		mov	bp, sp
		call	sub_15EF7
		or	ax, ax
		jnz	short loc_15F93
		test	byte ptr word_20650, 1Fh
		jnz	short loc_15F93
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	27h ; '''
		push	55h ; 'U'
		call	sub_1078E

loc_15F93:
		pop	bp
		retn
sub_15F6F	endp


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

; Attributes: bp-based frame

sub_15F95	proc near

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		cmp	word_20650, 32h	; '2'
		jl	loc_16172
		cmp	word_20650, 32h	; '2'
		jnz	short loc_15FB7
		call	_snd_se_play c, 9

loc_15FB7:
		cmp	word_20650, 64h	; 'd'
		jge	short loc_15FCF
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, 80h
		mov	word_2064E, ax
		jmp	loc_16172
; ---------------------------------------------------------------------------

loc_15FCF:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_15FFD
		mov	ax, word_205F6
		add	ax, 10h
		mov	word_2559A, ax
		mov	ax, word_205F8
		add	ax, 10h
		mov	word_2559C, ax
		mov	byte_2558C, 3
		mov	byte_2558D, 0FCh
		mov	byte_2559E, 0
		mov	word_2064E, 80h

loc_15FFD:
		cmp	word_20650, 82h
		jge	short loc_1604A
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1601A
		push	(GC_RMW shl 16) + 15
		jmp	short loc_1602E
; ---------------------------------------------------------------------------

loc_1601A:
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		cmp	dx, 2
		jnz	short loc_16042
		push	(GC_RMW shl 16) + 0

loc_1602E:
		call	grcg_setcolor
		push	word_2559A
		push	word_2559C
		push	70h ; 'p'
		call	grcg_circle

loc_16042:
		call	grcg_off
		jmp	loc_16172
; ---------------------------------------------------------------------------

loc_1604A:
		cmp	word_20650, 1C2h
		jge	loc_16146
		cmp	_page_back, 0
		jnz	short loc_1607A
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		push	word_2559A
		push	word_2559C
		push	70h ; 'p'
		call	grcg_circle
		call	grcg_off

loc_1607A:
		cmp	word_20650, 96h
		jl	loc_16172
		mov	ax, word_20650
		mov	bx, 0Ch
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_16122
		mov	al, byte_2559E
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _CosTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_2559A
		mov	si, ax
		mov	al, byte_2559E
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _SinTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_2559C
		mov	di, ax
		push	si
		push	ax
		push	18h
		call	sub_155C5
		mov	al, byte_2559E
		add	al, 80h
		mov	[bp+var_1], al
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _CosTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_2559A
		mov	si, ax
		mov	al, [bp+var_1]
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _SinTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_2559C
		mov	di, ax
		push	si
		push	ax
		push	18h
		call	sub_155C5
		mov	al, byte_2559E
		add	al, 0F0h
		mov	byte_2559E, al

loc_16122:
		cmp	word_20650, 0C8h
		jl	short loc_16172
		test	byte ptr word_20650, 0Fh
		jnz	short loc_16172
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	27h ; '''
		push	50h ; 'P'
		call	sub_1078E
		jmp	short loc_16172
; ---------------------------------------------------------------------------

loc_16146:
		cmp	_page_back, 0
		jnz	short loc_16172
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	word_2559A
		push	word_2559C
		push	70h ; 'p'
		call	grcg_circle
		call	grcg_off
		mov	word_20650, 0

loc_16172:
		pop	di
		pop	si
		leave
		retn
sub_15F95	endp


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

; Attributes: bp-based frame

sub_16176	proc near
		push	bp
		mov	bp, sp
		call	sub_15EF7
		or	ax, ax
		jnz	short loc_1619A
		test	byte ptr word_20650, 7
		jnz	short loc_1619A
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	25h ; '%'
		push	32h ; '2'
		call	sub_1078E

loc_1619A:
		pop	bp
		retn
sub_16176	endp


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

; Attributes: bp-based frame

sub_1619C	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_162D1
		cmp	word_20650, 32h	; '2'
		jnz	short loc_161B9
		call	_snd_se_play c, 9

loc_161B9:
		cmp	word_20650, 64h	; 'd'
		jge	short loc_161D0
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, 80h
		mov	word_2064E, ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_161D0:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_161EE
		mov	word_2064E, 80h
		mov	word_255A0, 20h	; ' '
		mov	byte_255A2, 0
		mov	word_21748, 1

loc_161EE:
		test	byte ptr word_20650, 0Fh
		jnz	loc_162D1
		push	word_255A0
		push	18h
		push	40h
		push	87h
		mov	al, byte_255A2
		mov	ah, 0
		add	ax, 7Ah	; 'z'
		push	ax
		push	40h
		call	sub_10865
		mov	ax, 1B0h
		sub	ax, word_255A0
		push	ax
		push	18h
		push	40h
		push	87h
		mov	al, byte_255A2
		mov	ah, 0
		add	ax, 7Ah	; 'z'
		push	ax
		push	40h
		call	sub_10865
		add	word_255A0, 10h
		cmp	word_255A0, 0E0h
		jnz	short loc_162B2
		mov	byte_23A70, 20h	; ' '
		mov	ax, word_254E6
		add	ax, 3Ch	; '<'
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	byte_23A70, 30h	; '0'
		mov	ax, word_254E6
		add	ax, 2Ch	; ','
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	ax, word_254E6
		add	ax, 4Ch	; 'L'
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	byte_23A70, 64h	; 'd'
		mov	ax, word_254E6
		add	ax, 1Ch
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	ax, word_254E6
		add	ax, 5Ch
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	byte_23A70, 10h

loc_162B2:
		cmp	word_255A0, 1B0h
		jl	short loc_162D1
		mov	word_255A0, 20h	; ' '
		inc	byte_255A2
		cmp	byte_255A2, 2
		jb	short loc_162D1
		mov	word_20650, 0

loc_162D1:
		pop	bp
		retn
sub_1619C	endp


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

; Attributes: bp-based frame

sub_162D3	proc near

var_E		= word ptr -0Eh
var_B		= word ptr -0Bh

		push	bp
		mov	bp, sp
		sub	sp, 0Eh
		push	si
		push	di
		mov	si, 13AEh
		lea	di, [bp+var_B+1]
		push	ss
		pop	es
		mov	cx, 5
		rep movsw
		call	sub_15EF7
		or	ax, ax
		jnz	loc_1641D
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_16300
		mov	byte_255A3, 0
		jmp	loc_1641D
; ---------------------------------------------------------------------------

loc_16300:
		cmp	word_20650, 72h	; 'r'
		jz	short loc_1634B
		cmp	word_20650, 76h	; 'v'
		jz	short loc_16325
		cmp	word_20650, 7Ah	; 'z'
		jz	short loc_1637C
		cmp	word_20650, 0F2h
		jz	short loc_1634B
		cmp	word_20650, 0F6h
		jnz	short loc_16374

loc_16325:
		mov	al, byte_255A3
		inc	byte_255A3
		cbw
		add	ax, ax
		lea	dx, [bp+var_B+1]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		add	ax, word_254E6
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19

loc_1634B:
		mov	al, byte_255A3
		inc	byte_255A3
		cbw
		add	ax, ax
		lea	dx, [bp+var_B+1]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		add	ax, word_254E6
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		jmp	loc_1641D
; ---------------------------------------------------------------------------

loc_16374:
		cmp	word_20650, 0FAh
		jnz	short loc_163CB

loc_1637C:
		mov	al, byte_255A3
		inc	byte_255A3
		cbw
		add	ax, ax
		lea	dx, [bp+var_B+1]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		add	ax, word_254E6
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	al, byte_255A3
		cbw
		add	ax, ax
		lea	dx, [bp+var_B+1]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		add	ax, word_254E6
		push	ax
		push	word_253B8
		push	1006Fh
		call	sub_12A19
		mov	byte_255A3, 0
		jmp	short loc_1641D
; ---------------------------------------------------------------------------

loc_163CB:
		cmp	word_20650, 78h	; 'x'
		jle	short loc_1641D
		cmp	word_20650, 0F0h
		jge	short loc_1641D
		test	byte ptr word_20650, 0Fh
		jnz	short loc_1641D
		mov	byte ptr [bp+var_B], 90h
		mov	[bp+var_E], 0
		jmp	short loc_16417
; ---------------------------------------------------------------------------

loc_163EC:
		push	word_253B6
		push	word_253B8
		push	[bp+var_B]
		push	87h
		mov	ax, [bp+var_E]
		mov	bx, 2
		cwd
		idiv	bx
		add	dx, 7Ah	; 'z'
		push	dx
		push	3Ch ; '<'
		call	sub_10865
		mov	al, byte ptr [bp+var_B]
		add	al, 10h
		mov	byte ptr [bp+var_B], al
		inc	[bp+var_E]

loc_16417:
		cmp	byte ptr [bp+var_B], 0F0h
		jb	short loc_163EC

loc_1641D:
		pop	di
		pop	si
		leave
		retn
sub_162D3	endp


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

; Attributes: bp-based frame

sub_16421	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	word_20650, 32h	; '2'
		jl	locret_16553
		cmp	word_20650, 32h	; '2'
		jnz	short loc_16441
		call	_snd_se_play c, 9

loc_16441:
		cmp	word_20650, 64h	; 'd'
		jge	short loc_16458
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, 80h
		mov	word_2064E, ax
		leave
		retn
; ---------------------------------------------------------------------------

loc_16458:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_164AD
		push	word_253B6
		push	word_253B8
		mov	ax, word_205F6
		add	ax, 10h
		push	ax
		mov	ax, word_205F8
		add	ax, 10h
		push	ax
		push	0
		push	ds
		push	offset word_255A4
		push	ds
		push	offset word_255A6
		push	30h ; '0'
		call	vector_between
		mov	ax, word_255A4
		neg	ax
		mov	word_255AC, ax
		mov	word_2064E, 80h
		mov	ax, word_253B6
		mov	word_255A8, ax
		mov	word_255AE, ax
		mov	byte_2558D, 0FCh
		mov	byte_2558C, 3
		mov	ax, word_253B8
		mov	word_255AA, ax

loc_164AD:
		test	byte ptr word_20650, 7
		jnz	locret_16553
		push	word_255A8
		push	word_255AA
		push	30h ; '0'
		call	sub_155C5
		mov	[bp+var_2], ax
		push	word_255AE
		push	word_255AA
		push	30h ; '0'
		call	sub_155C5
		or	ax, ax
		jz	short loc_164E3
		cmp	[bp+var_2], 0
		jz	short loc_164E3
		mov	word_20650, 0

loc_164E3:
		mov	ax, word_255A4
		add	word_255A8, ax
		mov	ax, word_255AC
		add	word_255AE, ax
		mov	ax, word_255A6
		add	word_255AA, ax
		mov	ax, word_205F6
		add	ax, 10h
		cmp	ax, word_255A8
		jle	short loc_1650B
		add	word_255A8, 10h
		jmp	short loc_1651C
; ---------------------------------------------------------------------------

loc_1650B:
		mov	ax, word_205F6
		add	ax, 10h
		cmp	ax, word_255A8
		jge	short loc_1651C
		sub	word_255A8, 10h

loc_1651C:
		mov	ax, word_205F6
		add	ax, 10h
		cmp	ax, word_255AE
		jle	short loc_1652F
		sub	word_255AE, 10h
		jmp	short loc_16540
; ---------------------------------------------------------------------------

loc_1652F:
		mov	ax, word_205F6
		add	ax, 10h
		cmp	ax, word_255AE
		jge	short loc_16540
		add	word_255AE, 10h

loc_16540:
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	25h ; '%'
		push	3Ch ; '<'
		call	sub_1078E

locret_16553:
		leave
		retn
sub_16421	endp


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

; Attributes: bp-based frame

sub_16555	proc near
		push	bp
		mov	bp, sp
		call	sub_15EF7
		or	ax, ax
		jnz	short loc_165A3
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1656B
		mov	byte_2558C, 7

loc_1656B:
		mov	ax, word_20650
		and	ax, 3Fh
		cmp	ax, 20h	; ' '
		jnz	short loc_16589
		mov	ax, word_205F6
		add	ax, 10h
		push	ax
		mov	ax, word_205F8
		add	ax, 10h
		push	ax
		push	30h ; '0'
		call	sub_155C5

loc_16589:
		test	byte ptr word_20650, 3Fh
		jnz	short loc_165A3
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	27h ; '''
		push	3Ch ; '<'
		call	sub_1078E

loc_165A3:
		pop	bp
		retn
sub_16555	endp


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

; Attributes: bp-based frame

sub_165A5	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jge	short loc_165B4
		mov	ax, 1
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_165B4:
		cmp	word_20650, 32h	; '2'
		jnz	short loc_165CC
		cmp	word_205F6, 0D0h
		jge	short loc_165C7
		mov	al, 2
		jmp	short loc_165C9
; ---------------------------------------------------------------------------

loc_165C7:
		mov	al, 0FEh

loc_165C9:
		mov	byte_255B0, al

loc_165CC:
		cmp	word_20650, 82h
		jl	short loc_165F0
		cmp	word_20650, 122h
		jge	short loc_165E8
		mov	al, byte_255B0
		cbw
		mov	bx, word_2065C
		sub	[bx], ax
		jmp	short loc_16602
; ---------------------------------------------------------------------------

loc_165E8:
		cmp	word_20650, 172h
		jge	short loc_165FC

loc_165F0:
		mov	al, byte_255B0
		cbw
		mov	bx, word_2065C
		add	[bx], ax
		jmp	short loc_16602
; ---------------------------------------------------------------------------

loc_165FC:
		mov	word_20650, 0

loc_16602:
		xor	ax, ax
		pop	bp
		retn
sub_165A5	endp


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

; Attributes: bp-based frame

sub_16606	proc near
		push	bp
		mov	bp, sp
		call	sub_165A5
		or	ax, ax
		jnz	short loc_1664E
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1661C
		mov	byte_2558C, 7

loc_1661C:
		test	byte ptr word_20650, 3Fh
		jnz	short loc_16636
		mov	ax, word_205F6
		add	ax, 10h
		push	ax
		mov	ax, word_205F8
		add	ax, 10h
		push	ax
		push	30h ; '0'
		call	sub_155C5

loc_16636:
		test	byte ptr word_20650, 7
		jnz	short loc_1664E
		push	word_253B6
		push	word_253B8
		push	0
		push	26h ; '&'
		push	46h ; 'F'
		call	sub_1078E

loc_1664E:
		pop	bp
		retn
sub_16606	endp


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

; Attributes: bp-based frame

sub_16650	proc near
		push	bp
		mov	bp, sp
		call	sub_165A5
		or	ax, ax
		jnz	short loc_1668C
		cmp	word_20650, 32h	; '2'
		jnz	short loc_16666
		mov	byte ptr word_255B1, 0

loc_16666:
		test	byte ptr word_20650, 7
		jnz	short loc_1668C
		push	word_253B6
		push	word_253B8
		push	word_255B1
		push	24h ; '$'
		push	560050h
		call	sub_10865
		mov	al, byte ptr word_255B1
		add	al, 8
		mov	byte ptr word_255B1, al

loc_1668C:
		pop	bp
		retn
sub_16650	endp


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

; Attributes: bp-based frame

sub_1668E	proc near
		push	bp
		mov	bp, sp
		call	sub_165A5
		or	ax, ax
		jnz	short loc_166DC
		cmp	word_20650, 32h	; '2'
		jnz	short loc_166A4
		mov	byte_2558C, 7

loc_166A4:
		test	byte ptr word_20650, 1Fh
		jnz	short loc_166BE
		mov	ax, word_205F6
		add	ax, 10h
		push	ax
		mov	ax, word_205F8
		add	ax, 10h
		push	ax
		push	30h ; '0'
		call	sub_155C5

loc_166BE:
		mov	ax, word_20650
		and	ax, 1Fh
		cmp	ax, 10h
		jnz	short loc_166DC
		push	word_253B6
		push	word_253B8
		call	_randring2_next8
		push	ax
		push	25h ; '%'
		push	3Ch ; '<'
		call	sub_1078E

loc_166DC:
		pop	bp
		retn
sub_1668E	endp


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

; Attributes: bp-based frame

sub_166DE	proc far

arg_0		= word ptr  6

		push	bp
		mov	bp, sp
		mov	al, byte_255B4
		mov	ah, 0
		or	ax, ax
		jz	short loc_166F6
		cmp	ax, 1
		jz	short loc_166FC
		cmp	ax, 2
		jz	short loc_16702
		jmp	short loc_16706
; ---------------------------------------------------------------------------

loc_166F6:
		call	fp_255B6
		jmp	short loc_16706
; ---------------------------------------------------------------------------

loc_166FC:
		call	fp_255B8
		jmp	short loc_16706
; ---------------------------------------------------------------------------

loc_16702:
		call	fp_255BA

loc_16706:
		cmp	word_20650, 0
		jnz	short loc_16742
		inc	byte_255B4
		mov	al, byte_255B4
		mov	ah, 0
		cmp	ax, [bp+arg_0]
		jl	short loc_16725
		mov	byte_255B4, 0
		mov	byte_255B3, 1

loc_16725:
		mov	ax, word_2065A
		cmp	ax, word_255BC
		jl	short loc_16742
		mov	word_2065A, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B4, 0
		mov	byte_255B3, 0

loc_16742:
		pop	bp
		retf
sub_166DE	endp


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

; Attributes: bp-based frame

sub_16744	proc far

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_254E6, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_254E8, ax
		mov	ax, word_254E6
		add	ax, 3Ch	; '<'
		mov	word_253B6, ax
		mov	ax, word_254E8
		add	ax, 3Ch	; '<'
		mov	word_253B8, ax
		inc	word_20650
		mov	ax, word_253B6
		mov	word_205D8, ax
		mov	ax, word_253B8
		mov	word_205DA, ax
		test	byte ptr dword_20612, 1
		jnz	short loc_167D0
		mov	al, byte_255BE
		add	al, 8
		mov	byte_255BE, al
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 4
		xor	si, si
		mov	al, byte_255BE
		jmp	short loc_167C3
; ---------------------------------------------------------------------------

loc_167A0:
		push	0E000C8h
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		mov	al, byte_2066C
		mov	ah, 0
		imul	ax, 0Eh
		add	ax, 2
		push	ax
		call	sub_1C287
		inc	si
		mov	al, [bp+var_1]
		add	al, 80h

loc_167C3:
		mov	[bp+var_1], al
		cmp	si, 2
		jl	short loc_167A0
		call	grcg_off

loc_167D0:
		cmp	byte_2066A, 0
		jz	short loc_167E6
		call	sub_15A25
		or	ax, ax
		jz	loc_16962
		mov	ax, 2
		jmp	loc_16968
; ---------------------------------------------------------------------------

loc_167E6:
		cmp	byte ptr word_255B1+1, 0
		jnz	short loc_16825
		cmp	word_20650, 32h	; '2'
		jle	loc_16948
		mov	byte_255B4, 0
		mov	word_20650, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B3, 0
		mov	fp_255B6, offset sub_15D56
		mov	fp_255B8, offset sub_15E84
		mov	fp_255BA, offset sub_15F6F
		mov	word_255BC, 708h
		jmp	loc_16948
; ---------------------------------------------------------------------------

loc_16825:
		cmp	byte ptr word_255B1+1, 1
		jnz	short loc_16838
		push	3
		call	sub_166DE
		add	sp, 2
		jmp	loc_16948
; ---------------------------------------------------------------------------

loc_16838:
		cmp	byte ptr word_255B1+1, 2
		jnz	short loc_16868
		mov	byte_255B4, 0
		mov	word_20650, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B3, 0
		mov	fp_255B6, offset sub_15F95
		mov	fp_255B8, offset sub_16176
		mov	word_255BC, 708h
		jmp	loc_16948
; ---------------------------------------------------------------------------

loc_16868:
		cmp	byte ptr word_255B1+1, 3
		jz	short loc_168DC
		cmp	byte ptr word_255B1+1, 4
		jnz	short loc_1689F
		mov	byte_255B4, 0
		mov	word_20650, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B3, 0
		mov	fp_255B6, offset sub_1619C
		mov	fp_255B8, offset sub_162D3
		mov	word_255BC, 708h
		jmp	loc_16948
; ---------------------------------------------------------------------------

loc_1689F:
		cmp	byte ptr word_255B1+1, 5
		jz	short loc_168DC
		cmp	byte ptr word_255B1+1, 6
		jnz	short loc_168D5
		mov	byte_255B4, 0
		mov	word_20650, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B3, 0
		mov	fp_255B6, offset sub_16421
		mov	fp_255B8, offset sub_16555
		mov	word_255BC, 708h
		jmp	short loc_16948
; ---------------------------------------------------------------------------

loc_168D5:
		cmp	byte ptr word_255B1+1, 7
		jnz	short loc_168E7

loc_168DC:
		push	2
		call	sub_166DE
		add	sp, 2
		jmp	short loc_16948
; ---------------------------------------------------------------------------

loc_168E7:
		cmp	byte ptr word_255B1+1, 8
		jnz	short loc_1691C
		mov	byte_255B4, 0
		mov	word_20650, 0
		inc	byte ptr word_255B1+1
		mov	byte_255B3, 0
		mov	fp_255B6, offset sub_16606
		mov	fp_255B8, offset sub_16650
		mov	fp_255BA, offset sub_1668E
		mov	word_255BC, 1388h
		jmp	short loc_16948
; ---------------------------------------------------------------------------

loc_1691C:
		cmp	byte ptr word_255B1+1, 9
		jnz	short loc_16948
		push	3
		call	sub_166DE
		add	sp, 2
		cmp	word_2065A, 514h
		jl	short loc_16948
		mov	byte_2066A, 1
		add	dword_1E598, 493E0h
		mov	word_20650, 0

loc_16948:
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_254E6, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_254E8, ax
		call	sub_15907
		inc	dword_20682

loc_16962:
		call	sub_1566F
		mov	ax, 1

loc_16968:
		pop	si
		leave
		retf
sub_16744	endp


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

; Attributes: bp-based frame

sub_1696B	proc far
		push	bp
		mov	bp, sp
		call	sub_1A6C5
		mov	byte_2287E, 2
		call	sub_12DE0
		push	8000C0h
		call	super_clean
		mov	super_patnum, 80h
		push	ds
		push	offset aStage5b1_bft ; "stage5b1.bft"
		call	super_entry_bfnt
		push	ds
		push	offset aStage5b2_bft ; "stage5b2.bft"
		call	super_entry_bfnt
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		call	sub_134A0
		mov	word_20652, 0A0h
		mov	word_20654, 0A0h
		mov	word_254E6, 0A0h
		mov	word_20656, 30h	; '0'
		mov	word_20658, 30h	; '0'
		mov	word_254E8, 30h	; '0'
		mov	word_2065A, 0
		mov	word_20650, 0
		mov	word_2064E, 80h
		mov	byte ptr word_255B1+1, 0
		mov	byte_2558C, 7
		nopcall	sub_10E0A
		call	sub_D376
		push	1
		call	palette_white_out
		call	sub_158DC
		push	ds
		push	offset aBoss5_m	; "boss5.m"
		nopcall	sub_13ABB
		add	sp, 4
		push	1
		call	palette_white_in
		push	0
		call	sub_1310B
		call	sub_12E95
		pop	bp
		retf
sub_1696B	endp


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

; Attributes: bp-based frame

sub_16A21	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		push	1
		call	sub_1310B
		call	sub_FE12
		call	_key_delay
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.stage], 7Fh
		mov	eax, dword_1E598
		imul	eax, 0Ah
		movzx	edx, es:[bx+mikoconfig_t.continues_used]
		add	eax, edx
		mov	es:[bx+mikoconfig_t.score], eax
		call	sub_1CDD6
		push	ds
		push	offset aMaine	; "maine"
		call	sub_C566
		add	sp, 4
		pop	bp
		retf
sub_16A21	endp

; ---------------------------------------------------------------------------

loc_16A66:
		push	bp
		mov	bp, sp
		pop	bp
		retf

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

; Attributes: bp-based frame

sub_16A6B	proc far
		push	bp
		mov	bp, sp
		xor	ax, ax
		jmp	short loc_16A7D
; ---------------------------------------------------------------------------

loc_16A72:
		mov	bx, ax
		imul	bx, 26h
		mov	byte ptr [bx+7B5Eh], 0
		inc	ax

loc_16A7D:
		cmp	ax, 19h
		jl	short loc_16A72
		mov	word_1EE50, 0
		pop	bp
		retf
sub_16A6B	endp


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

; Attributes: bp-based frame

sub_16A8A	proc far
		push	bp
		mov	bp, sp
		setfarfp	farfp_26C3C, loc_16A66
		setfarfp	farfp_26C40, loc_16A66
		pop	bp
		retf
sub_16A8A	endp


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

; Attributes: bp-based frame

sub_16AA7	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		mov	bx, word_26C48
		mov	ax, [bx+4]
		mov	bx, word_26C4A
		add	ax, [bx]
		push	ax
		mov	bx, word_26C48
		mov	ax, [bx+6]
		mov	bx, word_26C4C
		add	ax, [bx]
		push	ax
		push	[bp+arg_0]
		mov	bx, word_26C46
		push	word ptr [bx+24h]
		mov	al, [bx+25h]
		mov	ah, 0
		push	ax
		call	sub_1078E
		pop	bp
		retn	2
sub_16AA7	endp


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

; Attributes: bp-based frame

sub_16ADD	proc near
		push	bp
		mov	bp, sp
		mov	bx, word_26C52
		mov	al, [bx]
		cbw
		mov	bx, word_26C4A
		add	[bx], ax
		mov	bx, word_26C54
		mov	al, [bx]
		cbw
		mov	bx, word_26C4C
		add	[bx], ax
		pop	bp
		retn
sub_16ADD	endp


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

; Attributes: bp-based frame

sub_16AFC	proc near

var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 6
		mov	ax, word_205F8
		add	ax, 10h
		mov	[bp+var_2], ax
		mov	bx, word_26C4A
		push	word ptr [bx]
		mov	bx, word_26C4C
		push	word ptr [bx]
		mov	ax, word_205F6
		add	ax, 18h
		push	ax
		push	[bp+var_2]
		push	0
		push	ss
		lea	ax, [bp+var_4]
		push	ax
		push	ss
		lea	ax, [bp+var_6]
		push	ax
		mov	bx, word_26C46
		mov	bx, [bx+8]
		add	bx, word_26C44
		mov	al, [bx+2]
		mov	ah, 0
		push	ax
		call	vector_between
		mov	bx, word_26C52
		mov	al, byte ptr [bp+var_4]
		mov	[bx], al
		mov	bx, word_26C54
		mov	al, byte ptr [bp+var_6]
		mov	[bx], al
		mov	bx, word_26C4A
		mov	ax, [bp+var_4]
		add	[bx], ax
		mov	bx, word_26C4C
		mov	ax, [bp+var_6]
		add	[bx], ax
		leave
		retn
sub_16AFC	endp


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

; Attributes: bp-based frame

sub_16B69	proc near

var_5		= word ptr -5
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		mov	bx, word_26C46
		mov	ax, [bx+8]
		add	ax, [bp+arg_2]
		mov	si, ax
		mov	bx, word_26C44
		mov	al, [bx+si+1]
		mov	ah, 0
		mov	bx, word_26C46
		push	ax
		mov	ax, [bx+0Ah]
		cwd
		pop	bx
		idiv	bx
		or	dx, dx
		jnz	short loc_16B9F
		mov	bx, word_26C46
		mov	ax, [bp+arg_0]
		add	[bx+16h], ax

loc_16B9F:
		mov	bx, word_26C44
		mov	al, [bx+si]
		mov	bx, word_26C46
		add	al, [bx+16h]
		mov	byte ptr [bp+var_5], al
		push	ss
		lea	ax, [bp+var_2]
		push	ax
		push	ss
		lea	ax, [bp+var_5+1]
		push	ax
		push	[bp+var_5]
		mov	bx, word_26C44
		mov	al, [bx+si+2]
		mov	ah, 0
		push	ax
		call	vector
		mov	bx, word_26C4A
		mov	ax, [bp+var_2]
		add	[bx], ax
		mov	bx, word_26C4C
		mov	ax, [bp+var_5+1]
		add	[bx], ax
		mov	bx, word_26C52
		mov	al, byte ptr [bp+var_2]
		mov	[bx], al
		mov	bx, word_26C54
		mov	al, byte ptr [bp+var_5+1]
		mov	[bx], al
		pop	si
		leave
		retn	4
sub_16B69	endp


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

; Attributes: bp-based frame

sub_16BF4	proc near

var_F		= word ptr -0Fh
var_C		= word ptr -0Ch
var_A		= word ptr -0Ah
var_8		= dword	ptr -8
var_4		= dword	ptr -4

		push	bp
		mov	bp, sp
		sub	sp, 10h
		push	si
		mov	ax, word_26C4A
		mov	word ptr [bp+var_4+2], ds
		mov	word ptr [bp+var_4], ax
		mov	ax, word_26C4C
		mov	word ptr [bp+var_8+2], ds
		mov	word ptr [bp+var_8], ax
		mov	bx, word_26C46
		mov	ax, [bx+8]
		add	ax, 2
		mov	si, ax
		mov	bx, si
		inc	si
		add	bx, word_26C44
		cmp	byte ptr [bx], 0
		jnz	short loc_16C2A
		mov	ax, 0FFFFh
		jmp	short loc_16C2D
; ---------------------------------------------------------------------------

loc_16C2A:
		mov	ax, 1

loc_16C2D:
		mov	[bp+var_F+1], ax
		mov	bx, word_26C44
		mov	al, [bx+si]
		mov	bx, word_26C46
		add	al, [bx+16h]
		mov	byte ptr [bp+var_F], al
		inc	si
		mov	bx, word_26C44
		mov	al, [bx+si]
		mov	ah, 0
		imul	[bp+var_F+1]
		mov	bx, word_26C46
		add	[bx+16h], ax
		inc	si
		push	ss
		lea	ax, [bp+var_A]
		push	ax
		push	ss
		lea	ax, [bp+var_C]
		push	ax
		push	[bp+var_F]
		mov	bx, word_26C44
		mov	al, [bx+si]
		mov	ah, 0
		push	ax
		call	vector
		les	bx, [bp+var_4]
		mov	ax, [bp+var_A]
		add	es:[bx], ax
		les	bx, [bp+var_8]
		mov	ax, [bp+var_C]
		add	es:[bx], ax
		mov	bx, word_26C52
		mov	al, byte ptr [bp+var_A]
		mov	[bx], al
		mov	bx, word_26C54
		mov	al, byte ptr [bp+var_C]
		mov	[bx], al
		pop	si
		leave
		retn
sub_16BF4	endp


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

; Attributes: bp-based frame

sub_16C96	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8
arg_6		= word ptr  0Ah

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_6]
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B5Eh], 1
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	[bx+7B50h], si
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bp+arg_4]
		mov	[bx+7B52h], ax
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B62h], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B58h], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	ax, [bp+arg_0]
		mov	[bx+7B5Ch], ax
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B5Ah], 0
		call	_randring2_next8
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	[bx+7B5Fh], al
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B66h], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B72h], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B73h], 0
		cmp	si, 0D0h
		jge	short loc_16D3E
		mov	ax, 1
		jmp	short loc_16D40
; ---------------------------------------------------------------------------

loc_16D3E:
		xor	ax, ax

loc_16D40:
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	[bx+7B68h], ax
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B6Ah], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B6Eh], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B64h], 1
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B60h], 0
		mov	bx, [bp+arg_2]
		imul	bx, 26h
		mov	word ptr [bx+7B70h], 0
		mov	al, byte_1EE52
		mov	ah, 0
		cmp	ax, [bp+arg_2]
		jge	short loc_16D96
		mov	al, byte ptr [bp+arg_2]
		inc	al
		mov	byte_1EE52, al

loc_16D96:
		pop	si
		pop	bp
		retn	8
sub_16C96	endp


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

; Attributes: bp-based frame

sub_16D9B	proc far

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	ax, word_1EE50
		cmp	ax, word_26C3A
		jge	loc_16E39
		add	ax, ax
		les	bx, dword_26B76
		add	bx, ax
		mov	ax, es:[bx]
		cmp	ax, word_2034A
		jnz	short loc_16E39
		mov	di, 1
		jmp	short loc_16E30
; ---------------------------------------------------------------------------

loc_16DC4:
		mov	bx, di
		shl	bx, 2
		les	bx, [bx-6EFAh]
		mov	ax, word_1EE50
		add	ax, ax
		add	bx, ax
		cmp	word ptr es:[bx], 0FFFFh
		jz	short loc_16E2F
		mov	bx, di
		shl	bx, 2
		mov	bx, [bx-6EFAh]
		mov	ax, word_1EE50
		add	ax, ax
		add	bx, ax
		mov	ax, es:[bx]
		mov	[bp+var_2], ax
		mov	bx, [bp+var_2]
		imul	bx, 24h
		mov	ax, [bx+7F08h]
		mov	[bp+var_4], ax
		cmp	byte_2061A, 0
		jnz	short loc_16E2F
		xor	si, si
		jmp	short loc_16E2A
; ---------------------------------------------------------------------------

loc_16E08:
		mov	bx, si
		imul	bx, 26h
		cmp	byte ptr [bx+7B5Eh], 0
		jnz	short loc_16E29
		mov	ax, di
		shl	ax, 3
		add	ax, 10h
		push	ax
		push	[bp+var_4]
		push	si
		push	[bp+var_2]
		call	sub_16C96
		jmp	short loc_16E2F
; ---------------------------------------------------------------------------

loc_16E29:
		inc	si

loc_16E2A:
		cmp	si, 19h
		jl	short loc_16E08

loc_16E2F:
		inc	di

loc_16E30:
		cmp	di, 31h	; '1'
		jl	short loc_16DC4
		inc	word_1EE50

loc_16E39:
		pop	di
		pop	si
		leave
		retf
sub_16D9B	endp


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

; Attributes: bp-based frame

sub_16E3D	proc near

var_A		= byte ptr -0Ah
var_9		= byte ptr -9
var_8		= byte ptr -8
var_7		= byte ptr -7
var_6		= byte ptr -6
var_5		= byte ptr -5
var_4		= byte ptr -4
var_3		= byte ptr -3
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 0Ah
		push	si
		mov	bx, word_26C48
		mov	ax, [bx+20h]
		mov	word_26C44, ax
		mov	bx, word_26C46
		mov	al, [bx+8]
		mov	[bp+var_7], al
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx]
		mov	[bp+var_8], al
		mov	ah, 0
		cmp	ax, 25h	; '%'
		jz	loc_1719F
		jg	short loc_16E80
		mov	bx, ax
		cmp	bx, 24h	; '$'
		ja	loc_174B0
		add	bx, bx
		jmp	cs:off_17518[bx]
; ---------------------------------------------------------------------------

loc_16E80:
		cmp	ax, 0A7h
		jz	loc_17361
		jg	short loc_16EC9
		cmp	ax, 0A2h
		jz	loc_173AB
		jg	short loc_16EB6
		cmp	ax, 0A0h
		jz	loc_172FF
		jg	short loc_16EAC
		cmp	ax, 26h	; '&'
		jz	loc_17226
		cmp	ax, 27h	; '''
		jz	loc_1728A
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16EAC:
		cmp	ax, 0A1h
		jz	loc_1731C
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16EB6:
		sub	ax, 0A3h ; '｣'
		mov	bx, ax
		cmp	bx, 3
		ja	loc_174B0
		add	bx, bx
		jmp	cs:off_17510[bx]
; ---------------------------------------------------------------------------

loc_16EC9:
		sub	ax, 0A8h ; 'ｨ'
		mov	bx, ax
		cmp	bx, 7
		ja	loc_174B0
		add	bx, bx
		jmp	cs:off_17500[bx]

loc_16EDC:
		mov	[bp+var_4], 2
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16EE3:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	bx, word_26C52
		mov	[bx], al
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+3]
		mov	[bp+var_6], al
		mov	bx, word_26C54
		jmp	loc_16FAA
; ---------------------------------------------------------------------------

loc_16F0F:
		call	sub_16ADD
		mov	[bp+var_4], 2
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16F19:
		call	_randring2_next8
		mov	[bp+var_3], al
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	[bp+var_5], al
		mov	ah, 0
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		imul	_CosTable8[bx]
		sar	ax, 8
		mov	bx, word_26C52
		mov	[bx], al
		mov	al, [bp+var_5]
		mov	ah, 0
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		imul	_SinTable8[bx]
		sar	ax, 8
		mov	bx, word_26C54
		mov	[bx], al
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_16F6A:
		mov	bx, word_26C46
		cmp	word ptr [bx+18h], 0
		jnz	short loc_16F79
		mov	ax, 0FFFFh
		jmp	short loc_16F7C
; ---------------------------------------------------------------------------

loc_16F79:
		mov	ax, 1

loc_16F7C:
		mov	[bp+var_2], ax
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	ah, 0
		imul	[bp+var_2]
		mov	bx, word_26C52
		mov	[bx], al
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+3]
		mov	bx, word_26C54

loc_16FAA:
		mov	[bx], al
		call	sub_16ADD
		mov	[bp+var_4], 4
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16FB6:
		call	sub_16AFC
		mov	[bp+var_4], 3
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16FC0:
		mov	al, byte_1E503
		mov	ah, 0
		mov	bx, word_26C4C
		add	[bx], ax
		mov	[bp+var_4], 2
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16FD2:
		mov	bx, word_26C46
		mov	bx, [bx+8]
		add	bx, word_26C44
		cmp	byte ptr [bx+2], 0
		jnz	short loc_16FE7
		mov	al, 0FFh
		jmp	short loc_16FE9
; ---------------------------------------------------------------------------

loc_16FE7:
		mov	al, 1

loc_16FE9:
		mov	[bp+var_9], al
		push	3
		cbw
		push	ax
		call	sub_16B69
		mov	[bp+var_4], 6
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_16FFA:
		mov	bx, word_26C46
		cmp	word ptr [bx+18h], 1
		jnz	short loc_17008
		mov	al, 0FFh
		jmp	short loc_1700A
; ---------------------------------------------------------------------------

loc_17008:
		mov	al, 1

loc_1700A:
		mov	[bp+var_A], al
		push	2
		cbw
		push	ax
		call	sub_16B69
		mov	[bp+var_4], 5
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_1701B:
		call	sub_16BF4
		mov	[bp+var_4], 6
		jmp	loc_174B0
; ---------------------------------------------------------------------------

loc_17025:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		shl	ax, 3
		mov	bx, word_26C4A
		mov	[bx], ax
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	ah, 0
		shl	ax, 3
		mov	bx, word_26C4C
		mov	[bx], ax
		mov	[bp+var_4], 3
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_1705E:
		call	_randring2_next16
		mov	dl, [bp+var_7]
		mov	dh, 0
		add	dx, word_26C44
		mov	bx, dx
		mov	dl, [bx+2]
		mov	dh, 0
		shl	dx, 3
		push	ax
		push	dx
		xor	dx, dx
		pop	bx
		pop	ax
		div	bx
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		shl	ax, 3
		add	dx, ax
		mov	bx, word_26C4A
		mov	[bx], dx
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+3]
		mov	ah, 0
		shl	ax, 3
		mov	bx, word_26C4C
		mov	[bx], ax
		mov	bx, word_26C4A
		cmp	word ptr [bx], 0D0h
		jge	short loc_170BF
		mov	ax, 1
		jmp	short loc_170C1
; ---------------------------------------------------------------------------

loc_170BF:
		xor	ax, ax

loc_170C1:
		mov	bx, word_26C46
		mov	[bx+18h], ax
		mov	[bp+var_4], 4
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_170CF:
		call	_randring2_next16
		mov	dl, [bp+var_7]
		mov	dh, 0
		add	dx, word_26C44
		mov	bx, dx
		mov	dl, [bx+2]
		mov	dh, 0
		shl	dx, 3
		push	ax
		push	dx
		xor	dx, dx
		pop	bx
		pop	ax
		div	bx
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		shl	ax, 3
		add	dx, ax
		mov	bx, word_26C4C
		mov	[bx], dx
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+3]
		mov	ah, 0
		shl	ax, 3
		mov	bx, word_26C4A
		mov	[bx], ax
		mov	[bp+var_4], 4
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17128:
		mov	bx, word_26C46
		mov	byte ptr [bx+0Eh], 2
		mov	ax, 2
		jmp	loc_174FC
; ---------------------------------------------------------------------------

loc_17136:
		mov	bx, word_26C46
		mov	word ptr [bx+0Ah], 0
		call	_snd_se_play c, 3
		mov	bx, word_26C46
		mov	byte ptr [bx+10h], 1
		mov	ax, 2
		jmp	loc_174FC
; ---------------------------------------------------------------------------

loc_17157:
		push	0
		call	sub_16AA7
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_1715F:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+1]
		call	sub_16AA7
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17177:
		mov	bx, word_26C46
		push	word ptr [bx+16h]
		call	sub_16AA7
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		add	[bx+16h], ax
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_1719F:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	bx, word_26C46
		mov	[bx+24h], al
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	bx, word_26C46
		mov	[bx+25h], al
		mov	[bp+var_4], 3
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_171D0:
		mov	bx, word_26C48
		mov	ax, [bx+4]
		mov	bx, word_26C4A
		add	ax, [bx]
		push	ax
		mov	bx, word_26C48
		mov	ax, [bx+6]
		mov	bx, word_26C4C
		add	ax, [bx]
		push	ax
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+1]
		mov	bx, word_26C46
		push	word ptr [bx+24h]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	ah, 0
		push	ax
		mov	bx, word_26C46
		mov	al, [bx+25h]
		mov	ah, 0
		push	ax
		call	sub_10865
		mov	[bp+var_4], 3
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17226:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	si, ax
		sub	si, _scroll_line
		or	si, si
		jge	short loc_17244
		add	si, RES_Y

loc_17244:
		mov	bx, word_26C48
		mov	ax, [bx+4]
		mov	bx, word_26C4A
		add	ax, [bx]
		push	ax
		push	si
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+2]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+3]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+4]
		mov	ah, 0
		push	ax
		call	sub_1078E
		mov	[bp+var_4], 5
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_1728A:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	si, ax
		sub	si, _scroll_line
		or	si, si
		jge	short loc_172A8
		add	si, RES_Y

loc_172A8:
		mov	bx, word_26C48
		mov	ax, [bx+4]
		mov	bx, word_26C4A
		add	ax, [bx]
		push	ax
		push	si
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+2]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		push	word ptr [bx+3]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+4]
		mov	ah, 0
		push	ax
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+5]
		mov	ah, 0
		push	ax
		call	sub_10865
		mov	[bp+var_4], 6
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_172FF:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+8],	ax
		mov	ax, 1
		jmp	loc_174FC
; ---------------------------------------------------------------------------

loc_1731C:
		mov	bx, word_26C46
		mov	ax, [bx+16h]
		inc	word ptr [bx+16h]
		mov	dl, [bp+var_7]
		mov	dh, 0
		add	dx, word_26C44
		mov	bx, dx
		mov	dl, [bx+2]
		mov	dh, 0
		cmp	ax, dx
		jge	short loc_17353
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+8],	ax
		jmp	short loc_1735B
; ---------------------------------------------------------------------------

loc_17353:
		mov	bx, word_26C46
		add	word ptr [bx+8], 3

loc_1735B:
		mov	ax, 1
		jmp	loc_174FC
; ---------------------------------------------------------------------------

loc_17361:
		mov	bx, word_26C46
		mov	ax, [bx+1Ah]
		inc	word ptr [bx+1Ah]
		mov	dl, [bp+var_7]
		mov	dh, 0
		add	dx, word_26C44
		mov	bx, dx
		mov	dl, [bx+2]
		mov	dh, 0
		cmp	ax, dx
		jge	short loc_17398
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+8],	ax
		jmp	short loc_173A5
; ---------------------------------------------------------------------------

loc_17398:
		mov	bx, word_26C46
		mov	word ptr [bx+1Ah], 0
		add	word ptr [bx+8], 3

loc_173A5:
		mov	ax, 1
		jmp	loc_174FC
; ---------------------------------------------------------------------------

loc_173AB:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+16h], ax
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_173C9:
		mov	bx, word_26C46
		mov	word ptr [bx+14h], 0
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_173D5:
		mov	bx, word_26C46
		mov	word ptr [bx+14h], 1
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_173E1:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+12h], ax
		mov	word ptr [bx+14h], 0
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17404:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		mov	[bx+12h], ax
		mov	word ptr [bx+14h], 2
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17427:
		mov	bx, word_26C46
		mov	byte ptr [bx+1Eh], 1
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_17432:
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		call	_snd_se_play c, ax
		mov	[bp+var_4], 2
		jmp	loc_174E1
; ---------------------------------------------------------------------------

loc_17452:
		mov	bx, word_26C46
		mov	byte ptr [bx+22h], 1
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_1745D:
		mov	bx, word_26C46
		mov	byte ptr [bx+22h], 0
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_17468:
		mov	bx, word_26C46
		mov	byte ptr [bx+23h], 1
		jmp	loc_174F2
; ---------------------------------------------------------------------------

loc_17473:
		mov	bx, word_26C46
		mov	byte ptr [bx+23h], 0
		jmp	short loc_174F2
; ---------------------------------------------------------------------------

loc_1747D:
		mov	bx, word_26C4A
		push	word ptr [bx]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		push	ax
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+2]
		mov	ah, 0
		push	ax
		call	sub_480C
		mov	[bp+var_4], 3
		jmp	short loc_174E1
; ---------------------------------------------------------------------------

loc_174B0:
		mov	bx, word_26C46
		inc	word ptr [bx+0Ah]
		mov	al, [bp+var_7]
		mov	ah, 0
		add	ax, word_26C44
		mov	bx, ax
		mov	al, [bx+1]
		mov	ah, 0
		mov	bx, word_26C46
		cmp	ax, [bx+0Ah]
		jg	short loc_174DD
		mov	al, [bp+var_4]
		mov	ah, 0
		add	[bx+8],	ax
		mov	word ptr [bx+0Ah], 0

loc_174DD:
		xor	ax, ax
		jmp	short loc_174FC
; ---------------------------------------------------------------------------

loc_174E1:
		mov	al, [bp+var_4]
		mov	ah, 0
		mov	bx, word_26C46
		add	[bx+8],	ax
		mov	ax, 1
		jmp	short loc_174FC
; ---------------------------------------------------------------------------

loc_174F2:
		mov	bx, word_26C46
		inc	word ptr [bx+8]
		mov	ax, 1

loc_174FC:
		pop	si
		leave
		retn
sub_16E3D	endp

; ---------------------------------------------------------------------------
		db 0
off_17500	dw offset loc_17432
		dw offset loc_17427
		dw offset loc_16F19
		dw offset loc_17452
		dw offset loc_1745D
		dw offset loc_17468
		dw offset loc_17473
		dw offset loc_1747D
off_17510	dw offset loc_173C9
		dw offset loc_173D5
		dw offset loc_173E1
		dw offset loc_17404
off_17518	dw offset loc_16EDC
		dw offset loc_16EE3
		dw offset loc_16FC0
		dw offset loc_16FD2
		dw offset loc_17025
		dw offset loc_1705E
		dw offset loc_170CF
		dw offset loc_16FFA
		dw offset loc_16F6A
		dw offset loc_16FB6
		dw offset loc_16F0F
		dw offset loc_1701B
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_17128
		dw offset loc_17136
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_174B0
		dw offset loc_17157
		dw offset loc_1715F
		dw offset loc_17177
		dw offset loc_174B0
		dw offset loc_171D0

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

; Attributes: bp-based frame

sub_17562	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		mov	bx, word_26C48
		cmp	byte ptr [bx+18h], 0
		jnz	short loc_175D1
		mov	bx, word_26C46
		cmp	byte ptr [bx+23h], 0
		jnz	short loc_175D1
		mov	si, word_26C50
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26C4E
		add	dx, 0FFF0h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jle	short loc_175D1
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26C4E
		add	dx, 10h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short loc_175D1
		lea	ax, [si-10h]
		cmp	ax, word_205F8
		jge	short loc_175D1
		lea	ax, [si+10h]
		cmp	ax, word_205F8
		jle	short loc_175D1
		mov	bx, word_26C46
		mov	word ptr [bx+0Ah], 0
		mov	_player_is_hit, 1
		mov	byte ptr [bx+10h], 1

loc_175D1:
		push	word_26C4E
		push	word_26C50
		push	200020h
		call	sub_1283C
		mov	[bp+var_2], ax
		pop	si
		leave
		retn
sub_17562	endp


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

; Attributes: bp-based frame

sub_175E8	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	bx, word_26C48
		mov	di, [bx+0Eh]
		or	di, di
		jnz	short loc_175FD
		mov	ax, 0Ah
		jmp	short loc_175FF
; ---------------------------------------------------------------------------

loc_175FD:
		xor	ax, ax

loc_175FF:
		mov	di, ax
		mov	bx, word_26C46
		mov	ax, [bx+0Ah]
		mov	bx, 3
		cwd
		idiv	bx
		add	di, ax
		mov	bx, word_26C46
		cmp	word ptr [bx+0Ah], 0
		jnz	short loc_17635
		mov	ax, word_26C4E
		add	ax, 10h
		push	ax
		mov	ax, word_26C50
		add	ax, 10h
		push	ax
		push	140008h
		push	0
		call	sub_4090

loc_17635:
		mov	bx, word_26C46
		inc	word ptr [bx+0Ah]
		cmp	word ptr [bx+0Ah], 18h
		jl	short loc_1764B
		mov	byte ptr [bx+0Eh], 2
		mov	ax, 1
		jmp	short loc_1766A
; ---------------------------------------------------------------------------

loc_1764B:
		mov	si, word_26C50
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1765D
		sub	si, RES_Y

loc_1765D:
		push	word_26C4E
		push	si
		push	di
		call	super_roll_put
		xor	ax, ax

loc_1766A:
		pop	di
		pop	si
		pop	bp
		retn
sub_175E8	endp


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

; Attributes: bp-based frame

sub_1766E	proc far

var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 8
		push	si
		push	di
		mov	[bp+var_2], 0
		mov	[bp+var_4], 0
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh
		mov	word_26C46, 7B50h
		xor	di, di
		jmp	loc_1796A
; ---------------------------------------------------------------------------

loc_17697:
		mov	bx, word_26C46
		cmp	byte ptr [bx+0Eh], 1
		jnz	loc_17964
		mov	bx, word_26C46
		mov	ax, [bx+0Ch]
		imul	ax, 24h
		add	ax, 7F06h
		mov	word_26C48, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, word_26C46
		mov	word_26C4A, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	ax, word_26C46
		add	ax, 2
		mov	word_26C4C, ax
		mov	ax, word_26C46
		add	ax, 1Ch
		mov	word_26C52, ax
		mov	ax, word_26C46
		add	ax, 1Dh
		mov	word_26C54, ax

loc_176E6:
		mov	bx, word_26C46
		cmp	byte ptr [bx+10h], 0
		jnz	short loc_176F6
		call	sub_16E3D
		mov	[bp+var_2], ax

loc_176F6:
		cmp	[bp+var_2], 2
		jz	loc_17964
		cmp	[bp+var_2], 1
		jz	short loc_176E6
		mov	bx, word_26C4A
		mov	ax, [bx]
		mov	word_26C4E, ax
		mov	bx, word_26C4C
		mov	ax, [bx]
		mov	word_26C50, ax
		mov	si, word_26C50
		cmp	word_26C4E, 0
		jl	short loc_17729
		cmp	word_26C4E, 1A2h
		jle	short loc_17734

loc_17729:
		mov	bx, word_26C46
		mov	byte ptr [bx+0Eh], 2
		jmp	loc_17964
; ---------------------------------------------------------------------------

loc_17734:
		mov	bx, word_26C46
		cmp	byte ptr [bx+1Eh], 0
		jz	short loc_17758
		cmp	word_26C50, 180h
		jge	short loc_1774D
		cmp	word_26C50, 0FFF0h
		jg	short loc_17758

loc_1774D:
		mov	bx, word_26C46
		mov	byte ptr [bx+0Eh], 2
		jmp	loc_17964
; ---------------------------------------------------------------------------

loc_17758:
		mov	bx, word_26C46
		inc	byte ptr [bx+0Fh]
		mov	bx, word_26C48
		cmp	word ptr [bx+0Ah], 0
		jz	short loc_177A0
		mov	bx, word_26C46
		cmp	word ptr [bx+14h], 1
		jnz	short loc_177A0
		mov	al, [bx+0Fh]
		mov	ah, 0
		mov	bx, word_26C48
		cwd
		idiv	word ptr [bx+0Ch]
		or	dx, dx
		jnz	short loc_177A0
		mov	bx, word_26C46
		inc	word ptr [bx+12h]
		mov	ax, [bx+12h]
		mov	bx, word_26C48
		cmp	ax, [bx+0Ah]
		jl	short loc_177A0
		mov	bx, word_26C46
		mov	word ptr [bx+12h], 0

loc_177A0:
		mov	bx, word_26C48
		cmp	word ptr [bx+16h], 0FFFFh
		jz	loc_178E9
		mov	bx, word_26C46
		cmp	byte ptr [bx+22h], 0
		jnz	loc_178E9
		mov	bx, word_26C46
		cmp	byte ptr [bx+10h], 0
		jz	short loc_177CE
		call	sub_175E8
		or	ax, ax
		jz	loc_17964
		jmp	loc_17964
; ---------------------------------------------------------------------------

loc_177CE:
		cmp	si, 168h
		jge	short loc_177EB
		cmp	si, [bp+var_4]
		jle	short loc_177EB
		mov	ax, word_26C4E
		add	ax, 8
		mov	word_205D8, ax
		lea	ax, [si+8]
		mov	word_205DA, ax
		mov	[bp+var_4], si

loc_177EB:
		call	sub_17562
		mov	[bp+var_6], ax
		or	ax, ax
		jz	loc_178E9
		mov	bx, word_26C48
		cmp	word ptr [bx+16h], 0FFFEh
		jnz	short loc_1780E
		call	_snd_se_play c, 4
		jmp	loc_178E9
; ---------------------------------------------------------------------------

loc_1780E:
		mov	bx, word_26C46
		mov	ax, [bp+var_6]
		add	[bx+20h], ax
		mov	ax, [bx+20h]
		mov	bx, word_26C48
		cmp	ax, [bx+16h]
		jl	loc_178A8
		mov	bx, word_26C46
		mov	word ptr [bx+0Ah], 0
		mov	bx, word_26C48
		cmp	byte ptr [bx+10h], 1
		jbe	short loc_17854
		mov	ax, word_26C4E
		add	ax, 0Ch
		push	ax
		push	word_26C50
		mov	al, [bx+10h]
		mov	ah, 0
		add	ax, 0FFFEh
		push	ax
		call	sub_D6CA
		jmp	short loc_17864
; ---------------------------------------------------------------------------

loc_17854:
		mov	ax, word_26C4E
		add	ax, 0Ch
		push	ax
		push	word_26C50
		call	sub_D65A

loc_17864:
		call	_snd_se_play c, 3
		mov	bx, word_26C48
		mov	eax, [bx+12h]
		add	dword_218AC, eax
		mov	al, _rank
		cbw
		cmp	ax, RANK_LUNATIC
		jnz	short loc_1789D
		mov	ax, [bx+4]
		add	ax, word_26C4E
		push	ax
		mov	ax, [bx+6]
		add	ax, word_26C50
		push	ax
		push	0
		push	19h
		push	3Ch ; '<'
		call	sub_1078E

loc_1789D:
		mov	bx, word_26C46
		mov	byte ptr [bx+10h], 1
		jmp	loc_17964
; ---------------------------------------------------------------------------

loc_178A8:
		call	_snd_se_play c, 4
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_178C0
		sub	si, RES_Y

loc_178C0:
		or	si, si
		jge	short loc_178C8
		add	si, RES_Y

loc_178C8:
		push	word_26C4E
		push	si
		mov	bx, word_26C48
		mov	ax, [bx+8]
		mov	bx, word_26C46
		add	ax, [bx+12h]
		push	ax
		pushd	0FFC0h
		call	super_roll_put_1plane
		jmp	short loc_17964
; ---------------------------------------------------------------------------

loc_178E9:
		mov	si, word_26C50
		mov	bx, word_26C48
		cmp	word ptr [bx+1Ah], 1
		jle	short loc_17913
		mov	ax, [bx+1Ah]
		mov	[bp+var_8], ax
		mov	bx, word_26C46
		mov	al, [bx+0Fh]
		mov	ah, 0
		cwd
		idiv	[bp+var_8]
		or	dx, dx
		jnz	short loc_17913
		push	0
		call	sub_16AA7

loc_17913:
		mov	bx, word_26C48
		cmp	word ptr [bx+8], 0
		jz	short loc_17964
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1792B
		sub	si, RES_Y

loc_1792B:
		or	si, si
		jge	short loc_17933
		add	si, RES_Y

loc_17933:
		mov	bx, word_26C46
		cmp	word ptr [bx+14h], 2
		jz	short loc_17953
		push	word_26C4E
		push	si
		mov	bx, word_26C48
		mov	ax, [bx+8]
		mov	bx, word_26C46
		add	ax, [bx+12h]
		push	ax
		jmp	short loc_1795F
; ---------------------------------------------------------------------------

loc_17953:
		push	word_26C4E
		push	si
		mov	bx, word_26C46
		push	word ptr [bx+12h]

loc_1795F:
		call	super_roll_put

loc_17964:
		inc	di
		add	word_26C46, 26h	; '&'

loc_1796A:
		mov	al, byte_1EE52
		mov	ah, 0
		cmp	ax, di
		jg	loc_17697
		pop	di
		pop	si
		leave
		retf
sub_1766E	endp


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

; Attributes: bp-based frame

sub_17979	proc far

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	byte_1EE52, 0
		mov	[bp+var_2], 0
		jmp	loc_17A49
; ---------------------------------------------------------------------------

loc_1798E:
		mov	bx, [bp+var_2]
		imul	bx, 26h
		cmp	byte ptr [bx+7B5Eh], 0
		jz	loc_17A46
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	si, [bx+7B50h]
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	di, [bx+7B52h]
		push	si
		push	di
		push	200020h
		call	sub_45FC
		mov	bx, [bp+var_2]
		imul	bx, 26h
		cmp	byte ptr [bx+7B5Eh], 2
		jnz	short loc_179EC
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	byte ptr [bx+7B5Eh], 0
		jmp	short loc_17A46
; ---------------------------------------------------------------------------

loc_179EC:
		mov	al, byte ptr [bp+var_2]
		inc	al
		mov	byte_1EE52, al
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+7B50h]
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		add	bx, dx
		mov	[bx+7B50h], ax
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 2
		add	bx, ax
		mov	ax, [bx+7B52h]
		mov	bx, [bp+var_2]
		imul	bx, 26h
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 2
		add	bx, dx
		mov	[bx+7B52h], ax

loc_17A46:
		inc	[bp+var_2]

loc_17A49:
		cmp	[bp+var_2], 19h
		jl	loc_1798E
		pop	di
		pop	si
		leave
		retf
sub_17979	endp


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

; Attributes: bp-based frame

sub_17A55	proc far
		push	bp
		mov	bp, sp
		xor	ax, ax
		jmp	short loc_17A73
; ---------------------------------------------------------------------------

loc_17A5C:
		mov	bx, ax
		imul	bx, 26h
		cmp	byte ptr [bx+7B5Eh], 0
		jz	short loc_17A72
		mov	bx, ax
		imul	bx, 26h
		mov	byte ptr [bx+7B5Eh], 2

loc_17A72:
		inc	ax

loc_17A73:
		cmp	ax, 19h
		jl	short loc_17A5C
		mov	byte_1EE52, 0
		pop	bp
		retf
sub_17A55	endp


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

; Attributes: bp-based frame

sub_17A7F	proc near

var_4		= byte ptr -4
var_3		= byte ptr -3
var_2		= word ptr -2
arg_0		= word ptr  4
arg_2		= byte ptr  6
arg_4		= word ptr  8
arg_6		= byte ptr  0Ah
arg_8		= word ptr  0Ch

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	si, [bp+arg_8]
		mov	di, [bp+arg_0]
		mov	al, byte_26CC1
		mov	ah, 0
		sar	ax, 6
		inc	al
		mov	[bp+var_4], al
		call	grcg_setcolor pascal, GC_RMW, si
		mov	[bp+var_2], di
		jmp	loc_17B5F
; ---------------------------------------------------------------------------

loc_17AA9:
		mov	al, byte ptr [bp+var_2]
		mov	[bp+var_3], al
		movzx	eax, byte_26CC1
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, 0E0h
		mov	word_20164, ax
		mov	al, [bp+arg_6]
		add	[bp+var_3], al
		movzx	eax, byte_26CC1
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, 0C8h
		mov	word_20166, ax
		cmp	word_20164, 1A0h
		jge	short loc_17B24
		cmp	word_20164, 18h
		jle	short loc_17B24
		cmp	word_20166, 8
		jle	short loc_17B24
		cmp	word_20166, 180h
		jge	short loc_17B24
		mov	al, [bp+var_4]
		mov	ah, 0
		push	ax
		call	sub_3E6A

loc_17B24:
		cmp	[bp+arg_2], 0
		jz	short loc_17B59
		cmp	[bp+var_2], 100h
		jnz	short loc_17B59
		push	GC_RMW
		mov	al, byte_26CC5
		mov	ah, 0
		push	ax
		call	grcg_setcolor
		push	0E000C8h
		mov	al, byte_26CC2
		mov	ah, 0
		push	ax
		call	grcg_circlefill
		call	grcg_setcolor pascal, GC_RMW, si

loc_17B59:
		mov	ax, [bp+arg_4]
		add	[bp+var_2], ax

loc_17B5F:
		lea	ax, [di+80h]
		cmp	ax, [bp+var_2]
		ja	loc_17AA9
		call	grcg_off
		pop	di
		pop	si
		leave
		retn	0Ah
sub_17A7F	endp


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

; Attributes: bp-based frame

sub_17B75	proc far

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		call	sub_17E91
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	40010h
		push	33017Fh
		call	grcg_byteboxfill_x
		mov	al, byte_2066C
		mov	ah, 0
		mov	dx, ax
		add	dx, dx
		add	dx, ax
		inc	dl
		mov	[bp+var_1], dl
		mov	al, byte_26CC4
		mov	ah, 0
		push	ax
		mov	al, byte ptr word_1EE54
		add	al, 0F0h
		push	ax
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	0
		push	80h
		call	sub_17A7F
		mov	al, byte_26CC4
		mov	ah, 0
		push	ax
		mov	al, byte ptr word_1EE54
		add	al, 0F8h
		push	ax
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	0
		push	80h
		call	sub_17A7F
		mov	al, byte_26CC3
		mov	ah, 0
		push	ax
		push	word_1EE54
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	0
		push	80h
		call	sub_17A7F
		mov	al, byte_26CC4
		mov	ah, 0
		push	ax
		mov	al, byte ptr word_1EE54
		add	al, 0F0h
		push	ax
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	1
		push	100h
		call	sub_17A7F
		mov	al, byte_26CC4
		mov	ah, 0
		push	ax
		mov	al, byte ptr word_1EE54
		add	al, 0F8h
		push	ax
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	0
		push	100h
		call	sub_17A7F
		mov	al, byte_26CC3
		mov	ah, 0
		push	ax
		mov	al, byte ptr word_1EE54
		inc	byte ptr word_1EE54
		push	ax
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	0
		push	100h
		call	sub_17A7F
		call	grcg_off
		leave
		retf
sub_17B75	endp


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

; Attributes: bp-based frame

sub_17C92	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	byte_2066A, 0
		jnz	locret_17D57
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 30h	; '0'
		push	ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 20h	; ' '
		push	ax
		push	400040h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_17CF9
		mov	byte_2066B, 1
		mov	ax, word_26C66
		imul	[bp+var_2]
		add	word_2065A, ax
		cmp	word_2065A, 1770h
		jl	short loc_17CF9
		call	_snd_se_play c, 2
		mov	byte_2066A, 1
		add	dword_1E598, 7A120h
		mov	byte_20605, 0C8h

loc_17CF9:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, word_2065C
		mov	dx, [bx]
		add	dx, 10h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jle	short locret_17D57
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, word_2065C
		mov	dx, [bx]
		add	dx, 70h	; 'p'
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short locret_17D57
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2B7Ah]
		mov	bx, word_2065E
		cmp	ax, [bx]
		jle	short locret_17D57
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, [bx]
		add	dx, 50h	; 'P'
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jge	short locret_17D57
		mov	_player_is_hit, 1

locret_17D57:
		leave
		retn
sub_17C92	endp


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

; Attributes: bp-based frame

sub_17D59	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	word_26CBC, 0
		xor	si, si
		jmp	loc_17E87
; ---------------------------------------------------------------------------

loc_17D68:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6DC4h], 1
		jz	short loc_17D7A
		inc	word_26CBC
		jmp	loc_17E86
; ---------------------------------------------------------------------------

loc_17D7A:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6E04h]
		add	ax, 4
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6DE4h]
		push	180020h
		call	sub_1283C
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6E04h]
		add	ax, 0FFF0h
		mov	dl, _page_front
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		cmp	ax, [bx+2B76h]
		jge	short loc_17E50
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6E04h]
		add	ax, 10h
		mov	dl, _page_front
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		cmp	ax, [bx+2B76h]
		jle	short loc_17E50
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6DE4h]
		add	ax, 0FFF0h
		mov	dl, _page_front
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		cmp	ax, [bx+2B7Ah]
		jge	short loc_17E50
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6DE4h]
		add	ax, 10h
		mov	dl, _page_front
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		cmp	ax, [bx+2B7Ah]
		jle	short loc_17E50
		mov	_player_is_hit, 1

loc_17E50:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6E04h]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6DE4h]
		mov	ax, si
		and	ax, 3
		add	ax, 89h
		push	ax
		call	super_put_rect

loc_17E86:
		inc	si

loc_17E87:
		cmp	si, 8
		jl	loc_17D68
		pop	si
		pop	bp
		retn
sub_17D59	endp


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

; Attributes: bp-based frame

sub_17E91	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	loc_17F1D
; ---------------------------------------------------------------------------

loc_17E9A:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6DC4h], 0
		jz	short loc_17F1C
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6DE4h], 0FFF0h
		jle	short loc_17F1C
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6DE4h], 17Eh
		jge	short loc_17F1C
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6E04h]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6DE4h]
		push	200020h
		call	sub_45FC
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6DC4h], 2
		jnz	short loc_17F1C
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6DC4h], 0

loc_17F1C:
		inc	si

loc_17F1D:
		cmp	si, 8
		jl	loc_17E9A
		pop	si
		pop	bp
		retn
sub_17E91	endp


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

; Attributes: bp-based frame

sub_17F27	proc near

var_12		= word ptr -12h
var_F		= byte ptr -0Fh
var_E		= dword	ptr -0Eh
var_A		= word ptr -0Ah
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 12h
		push	si
		push	di
		cmp	byte_2066B, 0
		jz	loc_18033
		inc	byte_26CC6
		test	byte_26CC6, 3
		jnz	loc_18033
		mov	bx, word_2065C
		mov	al, [bx]
		and	al, 7
		mov	[bp+var_F], al
		mov	byte_2066B, 0
		mov	ax, [bx]
		sar	ax, 3
		mov	bx, word_2065E
		mov	dx, [bx]
		shl	dx, 6
		add	ax, dx
		mov	dx, [bx]
		shl	dx, 4
		add	ax, dx
		mov	[bp+var_8], ax
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 4
		mov	[bp+var_A], 0
		jmp	loc_18024
; ---------------------------------------------------------------------------

loc_17F82:
		mov	ax, [bp+var_A]
		imul	ax, 6
		add	ax, [bp+var_8]
		mov	[bp+var_6], ax
		mov	bx, word_2064E
		add	bx, [bp+var_A]
		add	bx, bx
		mov	ax, [bx+1ADAh]
		mov	word ptr [bp+var_E+2], ax
		mov	word ptr [bp+var_E], 0
		mov	[bp+var_2], 0
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	[bp+var_4], ax
		jmp	short loc_1801A
; ---------------------------------------------------------------------------

loc_17FB3:
		cmp	[bp+var_4], 180h
		jge	short loc_18021
		xor	si, si
		mov	ax, [bp+var_A]
		imul	ax, 30h
		mov	bx, word_2065C
		add	ax, [bx]
		mov	di, ax
		jmp	short loc_1800B
; ---------------------------------------------------------------------------

loc_17FCC:
		or	di, di
		jle	short loc_18004
		cmp	di, 1A0h
		jge	short loc_18004
		cmp	[bp+var_4], 10h
		jl	short loc_18004
		les	bx, [bp+var_E]
		mov	al, es:[bx]
		mov	ah, 0
		mov	cl, 10h
		sub	cl, [bp+var_F]
		shl	ax, cl
		mov	dl, es:[bx]
		mov	dh, 0
		mov	cl, [bp+var_F]
		sar	dx, cl
		add	ax, dx
		mov	[bp+var_12], ax
		les	bx, _VRAM_PLANE_B
		add	bx, [bp+var_6]
		mov	es:[bx+si], ax

loc_18004:
		inc	si
		add	di, 8
		inc	word ptr [bp+var_E]

loc_1800B:
		cmp	si, 6
		jl	short loc_17FCC
		inc	[bp+var_2]
		add	[bp+var_6], 50h	; 'P'
		inc	[bp+var_4]

loc_1801A:
		cmp	[bp+var_2], 80h
		jl	short loc_17FB3

loc_18021:
		inc	[bp+var_A]

loc_18024:
		cmp	[bp+var_A], 3
		jl	loc_17F82
		call	grcg_off
		jmp	short loc_180A8
; ---------------------------------------------------------------------------

loc_18033:
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE2h]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		push	word_2064E
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 60h
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		add	ax, 2
		push	ax
		call	super_put_rect

loc_180A8:
		pop	di
		pop	si
		leave
		retn
sub_17F27	endp


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

; Attributes: bp-based frame

sub_180AC	proc near
		push	bp
		mov	bp, sp
		cmp	_rank, RANK_EASY
		jz	short loc_180D1
		mov	byte ptr word_2066E, 25h ; '%'
		mov	byte ptr word_2066E+1, 17h
		mov	byte ptr word_20670, 27h ; '''
		mov	byte ptr word_20670+1, 21h ; '!'
		mov	byte_20672, 6
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_180D1:
		mov	byte ptr word_2066E, 25h ; '%'
		mov	byte ptr word_2066E+1, 19h
		mov	byte ptr word_20670, 5
		mov	byte ptr word_20670+1, 22h ; '"'
		mov	byte_20672, 8
		pop	bp
		retn
sub_180AC	endp


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

; Attributes: bp-based frame

sub_180EC	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	loc_181B1
		cmp	word_20650, 0Ah
		jnz	short loc_1810A
		push	0
		call	sub_10E39
		mov	word_2064E, 83h

loc_1810A:
		cmp	word_20650, 42h	; 'B'
		jge	short loc_18125
		mov	bx, word_2065C
		sub	word ptr [bx], 2
		cmp	word ptr [bx], 20h ; ' '
		jg	short loc_18170
		mov	word_20650, 42h	; 'B'
		jmp	short loc_18170
; ---------------------------------------------------------------------------

loc_18125:
		cmp	word_20650, 0B2h
		jge	short loc_18142
		mov	bx, word_2065C
		add	word ptr [bx], 2
		cmp	word ptr [bx], 100h
		jl	short loc_18170
		mov	word_20650, 0B2h
		jmp	short loc_18170
; ---------------------------------------------------------------------------

loc_18142:
		cmp	word_20650, 0EAh
		jge	short loc_1815F
		mov	bx, word_2065C
		sub	word ptr [bx], 2
		cmp	word ptr [bx], 90h
		jg	short loc_18170
		mov	word_20650, 0EAh
		jmp	short loc_18170
; ---------------------------------------------------------------------------

loc_1815F:
		mov	word_20650, 0
		mov	word_2064E, 80h
		push	1
		call	sub_10E39

loc_18170:
		mov	ax, word_20650
		mov	bx, 20h	; ' '
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_181B1
		push	word_26C58
		push	word_26C60
		push	0Fh
		call	_randring2_next8_and
		add	al, 38h	; '8'
		push	ax
		push	word_2066E
		push	3Ch ; '<'
		call	sub_1078E
		push	word_26C58
		push	word_26C60
		push	0
		mov	al, byte_26CC0
		mov	ah, 0
		mov	bx, ax
		mov	al, [bx+2BFFh]
		push	ax
		push	28h ; '('
		call	sub_1078E

loc_181B1:
		pop	bp
		retn
sub_180EC	endp


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

; Attributes: bp-based frame

sub_181B3	proc near

var_4		= word ptr -4
var_2		= byte ptr -2
var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		cmp	word_20650, 14h
		jl	loc_183CC
		cmp	word_20650, 46h	; 'F'
		jge	short loc_181F1
		mov	word_2064E, 80h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 40h
		cmp	ax, word_205F6
		jge	short loc_181E5
		mov	ax, 2
		jmp	short loc_181E8
; ---------------------------------------------------------------------------

loc_181E5:
		mov	ax, 0FFFEh

loc_181E8:
		mov	bx, word_2065C
		add	[bx], ax
		jmp	loc_183CC
; ---------------------------------------------------------------------------

loc_181F1:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_1821A
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		mov	byte_26CC7, 30h	; '0'
		mov	byte_26CC8, 0
		mov	byte_26CC9, 64h	; 'd'
		jmp	loc_183CC
; ---------------------------------------------------------------------------

loc_1821A:
		cmp	word_20650, 0AAh ; 'ｪ'
		jge	loc_182C2
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 13
		mov	al, 40h
		sub	al, byte_26CC8
		mov	[bp+var_2], al
		shr	[bp+var_2], 2
		xor	si, si
		mov	al, byte_26CC8
		mov	[bp+var_1], al
		jmp	short loc_1829D
; ---------------------------------------------------------------------------

loc_18246:
		mov	al, [bp+var_1]
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _CosTable8[bx]
		imul	eax, 190h
		sar	eax, 8
		add	ax, word_26C58
		mov	di, ax
		mov	al, [bp+var_1]
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _SinTable8[bx]
		imul	eax, 190h
		sar	eax, 8
		add	ax, word_26C60
		mov	[bp+var_4], ax
		push	word_26C58
		push	word_26C60
		push	di
		push	ax
		call	grcg_line
		mov	al, [bp+var_2]
		add	[bp+var_1], al
		inc	si

loc_1829D:
		cmp	si, 9
		jl	short loc_18246
		cmp	word_20650, 24h	; '$'
		jl	short loc_182AD
		inc	byte_26CC8

loc_182AD:
		call	grcg_off
		test	byte ptr word_20650, 1
		jz	loc_1835E
		inc	byte_26CC9
		jmp	loc_1835E
; ---------------------------------------------------------------------------

loc_182C2:
		cmp	word_20650, 0AAh ; 'ｪ'
		jnz	short loc_182DD
		call	_snd_se_play c, 5
		mov	word_2064E, 86h
		jmp	loc_183CC
; ---------------------------------------------------------------------------

loc_182DD:
		cmp	word_20650, 0C6h
		jg	loc_1836D
		mov	ax, word_20650
		and	ax, 3
		imul	ax, 3Ch
		mov	dx, 110h
		sub	dx, ax
		mov	bx, word_2065E
		mov	[bx], dx
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 13
		push	7Fh
		call	_randring2_next8_and
		mov	[bp+var_1], al
		mov	ah, 0
		mov	bx, word_2065C
		add	ax, [bx]
		add	ax, 8
		mov	di, ax
		push	ax
		push	10h
		push	ax
		push	17Fh
		call	grcg_line
		call	grcg_off
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 10h
		cmp	ax, word_205F6
		jge	short loc_1834B
		mov	ax, [bx]
		add	ax, 60h
		cmp	ax, word_205F6
		jle	short loc_1834B
		mov	_player_is_hit, 1

loc_1834B:
		test	byte ptr word_20650, 0
		jz	short loc_18359
		mov	byte_26CC9, 96h
		jmp	short loc_1835E
; ---------------------------------------------------------------------------

loc_18359:
		mov	byte_26CC9, 64h	; 'd'

loc_1835E:
		mov	al, byte_26CC9
		mov	ah, 0
		mov	PaletteTone, ax
		call	far ptr	palette_show
		jmp	short loc_183CC
; ---------------------------------------------------------------------------

loc_1836D:
		cmp	word_20650, 106h
		jg	short loc_183C6
		mov	word_2064E, 80h
		mov	bx, word_2065E
		sub	word ptr [bx], 4
		cmp	word ptr [bx], 40h
		jg	short loc_1838D
		mov	word_20650, 107h

loc_1838D:
		cmp	_rank, RANK_EASY
		jz	short loc_183CC
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_183CC
		cmp	byte_26CC0, 0
		jnz	short loc_183AE
		mov	[bp+var_1], 25h	; '%'
		jmp	short loc_183B2
; ---------------------------------------------------------------------------

loc_183AE:
		mov	[bp+var_1], 27h	; '''

loc_183B2:
		push	word_26C56
		push	word_26C5E
		push	0
		push	word ptr [bp+var_1]
		push	3Ch ; '<'
		call	sub_1078E
		jmp	short loc_183CC
; ---------------------------------------------------------------------------

loc_183C6:
		mov	word_20650, 0

loc_183CC:
		pop	di
		pop	si
		leave
		retn
sub_181B3	endp


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

; Attributes: bp-based frame

sub_183D0	proc near

var_5		= word ptr -5
var_2		= word ptr -2
arg_0		= dword	ptr  4
arg_4		= dword	ptr  8

		push	bp
		mov	bp, sp
		sub	sp, 6
		push	si
		push	di
		cmp	word_20650, 28h	; '('
		jnz	short loc_18424
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 50h	; 'P'
		mov	word_26CCC, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 40h
		mov	word_26CCE, ax
		shl	word_26CCC, 4
		shl	word_26CCE, 4
		mov	word_26CD0, 4
		mov	byte_26CD3, 0FFh
		mov	byte_26CD4, 0
		jmp	loc_1889C
; ---------------------------------------------------------------------------

loc_18424:
		cmp	word_20650, 50h	; 'P'
		jl	loc_188A4
		cmp	word_20650, 50h	; 'P'
		jnz	loc_184E2
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		mov	[bp+var_2], 0
		mov	al, byte_26CD2
		jmp	loc_184D4
; ---------------------------------------------------------------------------

loc_18451:
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCC
		sar	dx, 4
		add	ax, dx
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6DF4h], ax
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6E04h], ax
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCE
		sar	dx, 4
		add	ax, dx
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6DD4h], ax
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6DE4h], ax
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	word ptr [bx-6DC4h], 1
		inc	[bp+var_2]
		mov	al, byte ptr [bp+var_5]
		add	al, 40h

loc_184D4:
		mov	byte ptr [bp+var_5], al
		cmp	[bp+var_2], 4
		jl	loc_18451
		jmp	loc_1889C
; ---------------------------------------------------------------------------

loc_184E2:
		cmp	word_20650, 60h
		jge	loc_18589
		add	word_26CD0, 4
		mov	[bp+var_2], 0
		mov	al, byte_26CD2
		jmp	loc_1857B
; ---------------------------------------------------------------------------

loc_184FB:
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCC
		sar	dx, 4
		add	ax, dx
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_2]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6E04h], ax
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCE
		sar	dx, 4
		add	ax, dx
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_2]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6DE4h], ax
		inc	[bp+var_2]
		mov	al, byte ptr [bp+var_5]
		add	al, 40h

loc_1857B:
		mov	byte ptr [bp+var_5], al
		cmp	[bp+var_2], 4
		jl	loc_184FB
		jmp	loc_1889C
; ---------------------------------------------------------------------------

loc_18589:
		les	bx, [bp+arg_4]
		mov	ax, es:[bx]
		add	word_26CCC, ax
		les	bx, [bp+arg_0]
		mov	ax, es:[bx]
		add	word_26CCE, ax
		mov	al, byte_26CD3
		cbw
		add	word_26CD0, ax
		cmp	byte_26CCA, 0
		jnz	loc_186AD
		cmp	byte_26CC0, 0
		jz	loc_18783
		cmp	word_26CD0, 0C4h
		jnz	short loc_185C5
		mov	word_20650, 0

loc_185C5:
		cmp	word_26CD0, 14h
		jge	loc_1879E
		mov	byte_26CD4, 0
		call	_snd_se_play c, 3
		push	0
		call	sub_10E39
		mov	[bp+var_2], 0
		jmp	loc_18691
; ---------------------------------------------------------------------------

loc_185EA:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_2]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6E04h]
		add	ax, 0Ch
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_2]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6DE4h]
		add	ax, 0Ch
		mov	di, ax
		mov	[bp+var_5+1], 0
		mov	al, byte ptr [bp+var_2]
		shl	al, 6
		add	al, byte_26CD2
		add	al, 0C0h
		jmp	short loc_18645
; ---------------------------------------------------------------------------

loc_18631:
		push	si
		push	di
		push	[bp+var_5]
		push	20h ; ' '
		push	23h ; '#'
		call	sub_1078E
		inc	[bp+var_5+1]
		mov	al, byte ptr [bp+var_5]
		add	al, 8

loc_18645:
		mov	byte ptr [bp+var_5], al
		cmp	[bp+var_5+1], 10h
		jl	short loc_18631
		mov	[bp+var_5+1], 0
		mov	al, byte ptr [bp+var_2]
		shl	al, 6
		add	al, byte_26CD2
		add	al, 0C4h
		jmp	short loc_1867A
; ---------------------------------------------------------------------------

loc_18661:
		push	si
		push	di
		push	[bp+var_5]
		push	20h ; ' '
		mov	ax, 23h	; '#'
		sub	ax, [bp+var_5+1]
		push	ax
		call	sub_1078E
		inc	[bp+var_5+1]
		mov	al, byte ptr [bp+var_5]
		add	al, 8

loc_1867A:
		mov	byte ptr [bp+var_5], al
		cmp	[bp+var_5+1], 10h
		jl	short loc_18661
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	word ptr [bx-6DC4h], 2
		inc	[bp+var_2]

loc_18691:
		cmp	[bp+var_2], 4
		jl	loc_185EA
		push	1
		call	sub_10E39
		mov	word_26CD0, 140h
		mov	word_2064E, 80h
		jmp	loc_1879E
; ---------------------------------------------------------------------------

loc_186AD:
		cmp	byte_26CD4, 0
		jz	short loc_186CA
		cmp	byte_26CC0, 0
		jz	short loc_186C2
		mov	al, byte_26CD2
		add	al, 0FDh
		jmp	short loc_186C7
; ---------------------------------------------------------------------------

loc_186C2:
		mov	al, byte_26CD2
		add	al, 0FBh

loc_186C7:
		mov	byte_26CD2, al

loc_186CA:
		cmp	word_26CD0, 190h
		jge	loc_187DF
		cmp	word_26CD0, 14h
		jge	loc_1879E
		les	bx, [bp+arg_4]
		mov	word ptr es:[bx], 0
		les	bx, [bp+arg_0]
		mov	word ptr es:[bx], 0
		mov	byte_26CD4, 1
		call	_snd_se_play c, 3
		mov	al, byte_26CD2
		add	al, 8
		mov	byte ptr [bp+var_5], al
		mov	[bp+var_2], 0
		jmp	short loc_18770
; ---------------------------------------------------------------------------

loc_1870B:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_2]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6E04h]
		add	ax, 0Ch
		mov	si, ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_2]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6DE4h]
		add	ax, 0Ch
		mov	di, ax
		mov	[bp+var_5+1], 0
		jmp	short loc_1875F
; ---------------------------------------------------------------------------

loc_18746:
		push	si
		push	di
		mov	al, byte ptr [bp+var_5]
		add	al, byte ptr [bp+var_5+1]
		push	ax
		push	20h ; ' '
		mov	ax, [bp+var_5+1]
		add	ax, 23h	; '#'
		push	ax
		call	sub_1078E
		add	[bp+var_5+1], 0Ch

loc_1875F:
		cmp	[bp+var_5+1], 30h ; '0'
		jl	short loc_18746
		inc	[bp+var_2]
		mov	al, byte ptr [bp+var_5]
		add	al, 40h
		mov	byte ptr [bp+var_5], al

loc_18770:
		cmp	[bp+var_2], 4
		jl	short loc_1870B
		mov	word_2064E, 80h
		mov	byte_26CD3, 5
		jmp	short loc_1879E
; ---------------------------------------------------------------------------

loc_18783:
		cmp	word_26CD0, 20h	; ' '
		jge	short loc_18791
		mov	byte_26CD3, 2
		jmp	short loc_1879E
; ---------------------------------------------------------------------------

loc_18791:
		cmp	word_26CD0, 80h
		jle	short loc_1879E
		mov	byte_26CD3, 0FEh

loc_1879E:
		mov	ax, word_26CCC
		sar	ax, 4
		mov	si, ax
		mov	ax, word_26CCE
		sar	ax, 4
		mov	di, ax
		mov	ax, si
		add	ax, word_26CD0
		jl	short loc_187DF
		mov	ax, si
		sub	ax, word_26CD0
		cmp	ax, 1A0h
		jg	short loc_187DF
		mov	ax, di
		add	ax, word_26CD0
		cmp	ax, 0FFF0h
		jl	short loc_187DF
		mov	ax, di
		sub	ax, word_26CD0
		cmp	ax, 182h
		jg	short loc_187DF
		cmp	word_20650, 1F4h
		jle	short loc_18806

loc_187DF:
		mov	[bp+var_2], 0
		jmp	short loc_187F4
; ---------------------------------------------------------------------------

loc_187E6:
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	word ptr [bx-6DC4h], 2
		inc	[bp+var_2]

loc_187F4:
		cmp	[bp+var_2], 4
		jl	short loc_187E6
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_18806:
		mov	[bp+var_2], 0
		mov	al, byte_26CD2
		jmp	loc_18891
; ---------------------------------------------------------------------------

loc_18811:
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCC
		sar	dx, 4
		add	ax, dx
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_2]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6E04h], ax
		movsx	eax, word_26CD0
		mov	dl, byte ptr [bp+var_5]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CCE
		sar	dx, 4
		add	ax, dx
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_2]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6DE4h], ax
		inc	[bp+var_2]
		mov	al, byte ptr [bp+var_5]
		add	al, 40h

loc_18891:
		mov	byte ptr [bp+var_5], al
		cmp	[bp+var_2], 4
		jl	loc_18811

loc_1889C:
		mov	al, byte_26CD2
		add	al, 5
		mov	byte_26CD2, al

loc_188A4:
		pop	di
		pop	si
		leave
		retn	8
sub_183D0	endp


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

; Attributes: bp-based frame

sub_188AA	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		cmp	word_20650, 28h	; '('
		jl	short locret_18903
		cmp	word_20650, 28h	; '('
		jnz	short loc_188F8
		mov	byte_26CCA, 0
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 50h	; 'P'
		mov	[bp+var_2], ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 40h
		mov	[bp+var_4], ax
		push	[bp+var_2]
		push	ax
		push	word_205F6
		push	word_205F8
		push	0
		push	ds
		push	offset unk_26CD6
		push	ds
		push	offset unk_26CD8
		push	30h ; '0'
		call	vector_between

loc_188F8:
		push	ds
		push	offset unk_26CD6
		push	ds
		push	offset unk_26CD8
		call	sub_183D0

locret_18903:
		leave
		retn
sub_188AA	endp


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

; Attributes: bp-based frame

sub_18905	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	loc_18A19
		cmp	word_20650, 46h	; 'F'
		jge	short loc_1893E
		mov	word_2064E, 80h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 40h
		cmp	ax, word_205F6
		jge	short loc_18932
		mov	ax, 2
		jmp	short loc_18935
; ---------------------------------------------------------------------------

loc_18932:
		mov	ax, 0FFFEh

loc_18935:
		mov	bx, word_2065C
		add	[bx], ax
		jmp	loc_189DC
; ---------------------------------------------------------------------------

loc_1893E:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_1895D
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		mov	byte ptr word_26CDA+1, 14h
		jmp	loc_189DC
; ---------------------------------------------------------------------------

loc_1895D:
		cmp	word_20650, 64h	; 'd'
		jl	loc_18A19
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_18985
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		call	_randring2_next8
		mov	byte ptr word_26CDA, al
		jmp	short loc_189DC
; ---------------------------------------------------------------------------

loc_18985:
		cmp	word_20650, 0A0h
		jg	short loc_18993
		dec	byte ptr word_26CDA
		jmp	short loc_189DC
; ---------------------------------------------------------------------------

loc_18993:
		cmp	word_20650, 0F0h
		jg	short loc_189A5
		inc	byte ptr word_26CDA
		inc	byte ptr word_26CDA+1
		jmp	short loc_189DC
; ---------------------------------------------------------------------------

loc_189A5:
		cmp	byte_26CC0, 0
		jz	short loc_189D0
		cmp	word_20650, 140h
		jg	short loc_189BE
		inc	byte ptr word_26CDA
		dec	byte ptr word_26CDA+1
		jmp	short loc_189DC
; ---------------------------------------------------------------------------

loc_189BE:
		cmp	word_20650, 190h
		jg	short loc_189D0
		dec	byte ptr word_26CDA
		inc	byte ptr word_26CDA+1
		jmp	short loc_189DC
; ---------------------------------------------------------------------------

loc_189D0:
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_189DC:
		cmp	word_20650, 64h	; 'd'
		jle	short loc_18A19
		mov	al, _rank
		cbw
		mov	bx, 8
		sub	bx, ax
		mov	ax, word_20650
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_18A19
		push	word_26C5A
		push	word_26C62
		push	word_26CDA
		push	word_20670+1
		mov	al, byte ptr word_26CDA+1
		mov	ah, 0
		push	ax
		call	sub_1078E
		call	_snd_se_play c, 3

loc_18A19:
		pop	bp
		retn
sub_18905	endp


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

; Attributes: bp-based frame

sub_18A1B	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	loc_18B49
		cmp	word_20650, 46h	; 'F'
		jge	short loc_18A53
		mov	word_2064E, 80h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 40h
		cmp	ax, word_205F6
		jge	short loc_18A48
		mov	ax, 2
		jmp	short loc_18A4B
; ---------------------------------------------------------------------------

loc_18A48:
		mov	ax, 0FFFEh

loc_18A4B:
		mov	bx, word_2065C
		add	[bx], ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18A53:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_18A71
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		mov	byte ptr word_26CDC, 0D8h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18A71:
		cmp	word_20650, 64h	; 'd'
		jl	loc_18B49
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_18A93
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18A93:
		cmp	word_20650, 84h
		jg	short loc_18AB8
		push	word_26C5A
		push	word_26C62
		push	word_26CDC
		push	23h ; '#'
		push	5Ah ; 'Z'
		call	sub_1078E
		mov	al, byte ptr word_26CDC
		add	al, 3
		mov	byte ptr word_26CDC, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18AB8:
		cmp	word_20650, 96h
		jg	short loc_18ADD
		push	word_26C5A
		push	word_26C62
		push	word_26CDC
		push	23h ; '#'
		push	5Ah ; 'Z'
		call	sub_1078E
		mov	al, byte ptr word_26CDC
		add	al, 0FDh
		mov	byte ptr word_26CDC, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18ADD:
		cmp	word_20650, 0E2h
		jg	short loc_18B3D
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		cmp	dx, 1
		jnz	short loc_18B49
		cmp	byte_26CC0, 0
		jnz	short loc_18B0D
		push	word_26C5A
		push	word_26C62
		push	40h
		push	7
		push	5Ah ; 'Z'
		call	sub_1078E
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18B0D:
		push	word_26C5A
		push	word_26C62
		push	3Fh ; '?'
		call	_randring2_next8_and
		add	al, 20h	; ' '
		push	ax
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E
		push	word_26C5A
		push	word_26C62
		push	3Fh ; '?'
		call	_randring2_next8_and
		add	al, 20h	; ' '
		push	ax
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18B3D:
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_18B49:
		pop	bp
		retn
sub_18A1B	endp


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

; Attributes: bp-based frame

sub_18B4B	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		cmp	word_20650, 28h	; '('
		jl	short locret_18BA4
		cmp	word_20650, 28h	; '('
		jnz	short loc_18B99
		mov	byte_26CCA, 1
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 50h	; 'P'
		mov	[bp+var_2], ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 40h
		mov	[bp+var_4], ax
		push	[bp+var_2]
		push	ax
		push	word_205F6
		push	word_205F8
		push	0
		push	ds
		push	offset unk_26CDE
		push	ds
		push	offset unk_26CE0
		push	34h ; '4'
		call	vector_between

loc_18B99:
		push	ds
		push	offset unk_26CDE
		push	ds
		push	offset unk_26CE0
		call	sub_183D0

locret_18BA4:
		leave
		retn
sub_18B4B	endp


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

; Attributes: bp-based frame

sub_18BA6	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	loc_18C48
		cmp	word_20650, 0Ah
		jnz	short loc_18BCB
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18BCB:
		cmp	word_20650, 28h	; '('
		jl	short loc_18C48
		cmp	word_20650, 28h	; '('
		jnz	short loc_18BFC
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		cmp	word_26C68, 6
		jnz	short loc_18C39
		push	word_26C5A
		push	word_26C62
		push	2
		jmp	short loc_18C43
; ---------------------------------------------------------------------------

loc_18BFC:
		cmp	word_20650, 3Ch	; '<'
		jnz	short loc_18C0F
		call	_snd_se_play c, 10
		jmp	short loc_18C39
; ---------------------------------------------------------------------------

loc_18C0F:
		cmp	word_20650, 50h	; 'P'
		jnz	short loc_18C48
		call	_snd_se_play c, 10
		mov	word_2064E, 80h
		cmp	word_26C68, 2
		jnz	short loc_18C39
		push	word_26C5A
		push	word_26C62
		push	4
		jmp	short loc_18C43
; ---------------------------------------------------------------------------

loc_18C39:
		push	word_26C5A
		push	word_26C62
		push	3

loc_18C43:
		call	sub_D6CA

loc_18C48:
		pop	bp
		retn
sub_18BA6	endp


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

; Attributes: bp-based frame

sub_18C4A	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 0Ah
		jl	loc_18DDE
		cmp	word_20650, 46h	; 'F'
		jge	short loc_18C82
		mov	word_2064E, 80h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 40h
		cmp	ax, word_205F6
		jge	short loc_18C77
		mov	ax, 2
		jmp	short loc_18C7A
; ---------------------------------------------------------------------------

loc_18C77:
		mov	ax, 0FFFEh

loc_18C7A:
		mov	bx, word_2065C
		add	[bx], ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18C82:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_18C9B
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18C9B:
		cmp	word_20650, 64h	; 'd'
		jl	loc_18DDE
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_18CEE
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		mov	ax, word_205F8
		sub	ax, word_26C62
		push	ax
		mov	ax, word_205F6
		sub	ax, word_26C5A
		push	ax
		call	iatan2
		mov	byte_26CE2, al
		cmp	word_205F6, 0D0h
		jg	short loc_18CDF
		mov	al, 0FFh
		jmp	short loc_18CE1
; ---------------------------------------------------------------------------

loc_18CDF:
		mov	al, 1

loc_18CE1:
		mov	byte_26CE3, al
		mov	al, byte_26CC0
		mov	ah, 0
		mov	word_21748, ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18CEE:
		cmp	word_20650, 12Ch
		jg	loc_18DD2
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_18DA9
		call	_snd_se_play c, 10
		cmp	_rank, RANK_EASY
		jz	short loc_18D75
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 0Ah
		push	ax
		push	88h
		push	550050h
		call	sub_10865
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 0F6h
		push	ax
		push	88h
		push	550050h
		call	sub_10865
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 1Eh
		push	ax
		push	88h
		push	550050h
		call	sub_10865
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 0E2h
		jmp	short loc_18D9C
; ---------------------------------------------------------------------------

loc_18D75:
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 0Fh
		push	ax
		push	88h
		push	550050h
		call	sub_10865
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE2
		add	al, 0F1h

loc_18D9C:
		push	ax
		push	88h
		push	550050h
		call	sub_10865

loc_18DA9:
		cmp	word_20650, 96h
		jl	short loc_18DDE
		test	byte ptr word_20650, 1
		jz	short loc_18DDE
		cmp	word_20650, 0D2h
		jge	short loc_18DC9
		mov	al, byte_26CE3
		add	byte_26CE2, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18DC9:
		mov	al, byte_26CE3
		sub	byte_26CE2, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18DD2:
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_18DDE:
		pop	bp
		retn
sub_18C4A	endp


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

; Attributes: bp-based frame

sub_18DE0	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 1Eh
		jl	loc_18EB6
		cmp	word_20650, 46h	; 'F'
		jge	short loc_18E18
		mov	word_2064E, 80h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 40h
		cmp	ax, word_205F6
		jge	short loc_18E0D
		mov	ax, 2
		jmp	short loc_18E10
; ---------------------------------------------------------------------------

loc_18E0D:
		mov	ax, 0FFFEh

loc_18E10:
		mov	bx, word_2065C
		add	[bx], ax
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18E18:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_18E31
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18E31:
		cmp	word_20650, 78h	; 'x'
		jl	short loc_18EB6
		cmp	word_20650, 78h	; 'x'
		jnz	short loc_18E89
		call	_snd_se_play c, 3
		mov	word_2064E, 86h
		mov	byte_26CE4, 4

loc_18E54:
		push	word_26C5A
		push	word_26C62
		mov	al, byte_26CE4
		add	al, 8
		push	ax
		push	7
		push	50h ; 'P'
		call	sub_1078E
		push	word_26C5A
		push	word_26C62
		mov	al, 78h	; 'x'
		sub	al, byte_26CE4
		push	ax
		push	7
		push	50h ; 'P'
		call	sub_1078E
		mov	al, byte_26CE4
		add	al, 0Ah
		mov	byte_26CE4, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_18E89:
		cmp	word_20650, 0A0h
		jg	short loc_18EAA
		mov	ax, word_20650
		mov	bx, 0Ah
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_18EB6
		call	_snd_se_play c, 3
		jmp	short loc_18E54
; ---------------------------------------------------------------------------

loc_18EAA:
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_18EB6:
		pop	bp
		retn
sub_18DE0	endp


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

; Attributes: bp-based frame

sub_18EB8	proc near

var_4		= byte ptr -4
var_3		= word ptr -3

		push	bp
		mov	bp, sp
		sub	sp, 4
		cmp	word_20650, 28h	; '('
		jl	locret_19171
		cmp	word_20650, 28h	; '('
		jnz	short loc_18F05
		call	_snd_se_play c, 9
		mov	word_2064E, 83h
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 50h	; 'P'
		mov	word_26CE6, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 50h	; 'P'
		mov	word_26CE8, ax
		mov	word_26CEA, 4
		call	_randring2_next8
		mov	byte_26CEC, al
		jmp	loc_19169
; ---------------------------------------------------------------------------

loc_18F05:
		cmp	word_20650, 50h	; 'P'
		jl	locret_19171
		cmp	word_20650, 50h	; 'P'
		jnz	loc_18FC3
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		mov	[bp+var_3+1], 0
		mov	al, byte_26CEC
		jmp	loc_18FB5
; ---------------------------------------------------------------------------

loc_18F32:
		movsx	eax, word_26CEA
		mov	dl, [bp+var_4]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CE6
		sar	dx, 4
		add	ax, dx
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	[bx-6DF4h], ax
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	[bx-6E04h], ax
		movsx	eax, word_26CEA
		mov	dl, [bp+var_4]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		mov	dx, word_26CE8
		sar	dx, 4
		add	ax, dx
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	[bx-6DD4h], ax
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	[bx-6DE4h], ax
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	word ptr [bx-6DC4h], 1
		inc	[bp+var_3+1]
		mov	al, [bp+var_4]
		add	al, 40h

loc_18FB5:
		mov	[bp+var_4], al
		cmp	[bp+var_3+1], 4
		jl	loc_18F32
		jmp	loc_19169
; ---------------------------------------------------------------------------

loc_18FC3:
		add	word_26CEA, 2
		mov	[bp+var_3+1], 0
		mov	al, byte_26CEC
		jmp	loc_1912F
; ---------------------------------------------------------------------------

loc_18FD3:
		movsx	eax, word_26CEA
		mov	dl, [bp+var_4]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_26CE6
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_3+1]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6E04h], ax
		movsx	eax, word_26CEA
		mov	dl, [bp+var_4]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_26CE8
		mov	dl, _page_back
		mov	dh, 0
		shl	dx, 4
		mov	bx, [bp+var_3+1]
		add	bx, bx
		add	dx, bx
		mov	bx, dx
		mov	[bx-6DE4h], ax
		mov	al, _rank
		cbw
		shl	ax, 4
		mov	dx, 0B4h
		sub	dx, ax
		cmp	dx, word_26CEA
		jge	loc_19127
		test	byte ptr word_20650, 3
		jnz	loc_19127
		call	_snd_se_play c, 3
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6E04h], 0
		jle	loc_19127
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6E04h], 1A0h
		jge	loc_19127
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6DE4h], 0
		jle	short loc_19127
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		cmp	word ptr [bx-6DE4h], 190h
		jge	short loc_19127
		cmp	byte_26CC0, 0
		jnz	short loc_190E3
		mov	al, byte ptr [bp+var_3+1]
		shl	al, 6
		add	al, byte_26CEC
		add	al, 40h
		jmp	short loc_190EF
; ---------------------------------------------------------------------------

loc_190E3:
		mov	al, byte ptr [bp+var_3+1]
		shl	al, 6
		add	al, byte_26CEC
		add	al, 60h

loc_190EF:
		mov	byte ptr [bp+var_3], al
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6E04h]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 4
		mov	dx, [bp+var_3+1]
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6DE4h]
		push	[bp+var_3]
		push	20h ; ' '
		push	80h
		call	sub_1078E

loc_19127:
		inc	[bp+var_3+1]
		mov	al, [bp+var_4]
		add	al, 40h

loc_1912F:
		mov	[bp+var_4], al
		cmp	[bp+var_3+1], 4
		jl	loc_18FD3
		cmp	word_26CEA, 1CCh
		jle	short loc_19169
		mov	[bp+var_3+1], 0
		jmp	short loc_19157
; ---------------------------------------------------------------------------

loc_19149:
		mov	bx, [bp+var_3+1]
		add	bx, bx
		mov	word ptr [bx-6DC4h], 0
		inc	[bp+var_3+1]

loc_19157:
		cmp	[bp+var_3+1], 4
		jl	short loc_19149
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_19169:
		mov	al, byte_26CEC
		add	al, 0FDh
		mov	byte_26CEC, al

locret_19171:
		leave
		retn
sub_18EB8	endp


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

; Attributes: bp-based frame

sub_19173	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	short loc_191CA
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1918B
		mov	byte ptr word_26CED, 0
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1918B:
		cmp	word_20650, 96h
		jge	short loc_191C4
		test	byte ptr word_20650, 1
		jz	short loc_191CA
		call	_snd_se_play c, 3
		push	word_26C5C
		push	word_26C64
		push	word_26CED
		push	23h ; '#'
		push	560032h
		call	sub_10865
		mov	al, byte_20672
		add	byte ptr word_26CED, al
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_191C4:
		mov	word_20650, 0

loc_191CA:
		pop	bp
		retn
sub_19173	endp


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

; Attributes: bp-based frame

sub_191CC	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_19351
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1920E
		mov	ax, word_205F8
		add	ax, 0Ch
		sub	ax, word_26C64
		push	ax
		mov	ax, word_205F6
		add	ax, 0Ch
		sub	ax, word_26C5C
		push	ax
		call	iatan2
		mov	byte ptr word_26CED+1, al
		mov	byte_26CEF, 1Eh
		call	_snd_se_play c, 9
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1920E:
		cmp	word_20650, 50h	; 'P'
		jg	loc_192CA
		test	byte ptr word_20650, 1
		jz	loc_19351
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		push	ax
		call	grcg_circle
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		add	ax, ax
		push	ax
		call	grcg_circle
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		shl	ax, 2
		push	ax
		call	grcg_circle
		mov	al, byte_26CEF
		add	al, 0FEh
		mov	byte_26CEF, al
		cmp	word_20650, 50h	; 'P'
		jz	loc_19351
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 13
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		push	ax
		call	grcg_circle
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		add	ax, ax
		push	ax
		call	grcg_circle
		push	word_26C5C
		push	word_26C64
		mov	al, byte_26CEF
		mov	ah, 0
		shl	ax, 2
		push	ax
		call	grcg_circle
		call	grcg_off
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_192CA:
		cmp	word_20650, 0C8h
		jge	short loc_1934B
		test	byte ptr word_20650, 7
		jnz	short loc_192FF
		push	word_26C5C
		push	word_26C64
		push	2
		push	1Ch
		push	56003Ch
		call	sub_10865
		push	word_26C5C
		push	word_26C64
		push	2
		push	1Ch
		push	3Ch ; '<'
		call	sub_1078E

loc_192FF:
		mov	al, _rank
		cbw
		or	ax, ax
		jle	short loc_19338
		mov	ax, word_20650
		and	ax, 7
		cmp	ax, 4
		jnz	short loc_19338
		push	word_26C5C
		push	word_26C64
		push	2
		push	1Ch
		push	56003Ch
		call	sub_10865
		push	word_26C5C
		push	word_26C64
		push	2
		push	1Ch
		push	3Ch ; '<'
		call	sub_1078E

loc_19338:
		test	byte ptr word_20650, 7
		jnz	short loc_19351
		call	_snd_se_play c, 3
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1934B:
		mov	word_20650, 0

loc_19351:
		pop	bp
		retn
sub_191CC	endp


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

; Attributes: bp-based frame

sub_19353	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	short loc_193A2
		cmp	word_20650, 0BEh
		jge	short loc_1939C
		test	byte ptr word_20650, 1Fh
		jnz	short loc_1937A
		push	word_26C5C
		push	word_26C64
		push	0
		push	17h
		jmp	short loc_19391
; ---------------------------------------------------------------------------

loc_1937A:
		mov	ax, word_20650
		and	ax, 1Fh
		cmp	ax, 10h
		jnz	short loc_193A2
		push	word_26C5C
		push	word_26C64
		push	0
		push	11h

loc_19391:
		push	56005Ah
		call	sub_10865
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1939C:
		mov	word_20650, 0

loc_193A2:
		pop	bp
		retn
sub_19353	endp


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

; Attributes: bp-based frame

sub_193A4	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 0
		jnz	loc_19443
		mov	ax, word_2065A
		cmp	ax, word_26CF0
		jge	short loc_193C3
		mov	ax, word_26CBE
		cmp	ax, word_26CF2
		jle	short loc_193D5

loc_193C3:
		inc	word_26C68
		mov	word_26C66, 0
		mov	word_26CBE, 0
		jmp	short loc_19443
; ---------------------------------------------------------------------------

loc_193D5:
		inc	word_26CBE
		mov	ax, word_26CBE
		cmp	ax, word_26CF6
		jl	short loc_193E8
		mov	word_26C66, 1

loc_193E8:
		cmp	byte_26CC0, 0
		jnz	short loc_193FD
		mov	ax, word_26C6A
		inc	ax
		mov	si, ax
		cmp	si, word_26CF4
		jl	short loc_1940A
		jmp	short loc_19408
; ---------------------------------------------------------------------------

loc_193FD:
		mov	ax, word_26C6A
		inc	ax
		mov	si, ax
		cmp	si, 7
		jle	short loc_1940A

loc_19408:
		xor	si, si

loc_1940A:
		mov	word_26C6A, si
		mov	bx, word_2065E
		cmp	word ptr [bx], 30h ; '0'
		jge	short loc_1941F
		mov	word_1EE56, 1
		jmp	short loc_19443
; ---------------------------------------------------------------------------

loc_1941F:
		mov	bx, word_2065E
		cmp	word ptr [bx], 40h
		jle	short loc_19430
		mov	word_1EE56, 0FFFFh
		jmp	short loc_19443
; ---------------------------------------------------------------------------

loc_19430:
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	ax, 1
		sub	ax, dx
		mov	word_1EE56, ax

loc_19443:
		cmp	word_20650, 0Ah
		jge	short loc_19453
		mov	bx, word_2065E
		mov	ax, word_1EE56
		add	[bx], ax

loc_19453:
		pop	si
		pop	bp
		retn
sub_193A4	endp


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

; Attributes: bp-based frame

sub_19456	proc far

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		inc	word_20650
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 48h	; 'H'
		mov	word_205D8, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 38h	; '8'
		mov	word_205DA, ax
		mov	bx, word_2065C
		mov	ax, [bx]
		add	ax, 20h	; ' '
		mov	word_26C56, ax
		mov	ax, [bx]
		add	ax, 28h	; '('
		mov	word_26C58, ax
		mov	ax, [bx]
		add	ax, 40h
		mov	word_26C5A, ax
		mov	ax, [bx]
		add	ax, 40h
		mov	word_26C5C, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 60h
		mov	word_26C5E, ax
		mov	ax, [bx]
		add	ax, 10h
		mov	word_26C60, ax
		mov	ax, [bx]
		add	ax, 72h	; 'r'
		mov	word_26C62, ax
		mov	ax, [bx]
		add	ax, 2Ch	; ','
		mov	word_26C64, ax
		test	byte ptr dword_20612, 1
		jnz	short loc_1953B
		cmp	byte_2066C, 0
		jnz	short loc_1950F
		mov	al, byte_26CF8
		add	al, 8
		mov	byte_26CF8, al
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 3
		xor	si, si
		mov	al, byte_26CF8
		jmp	short loc_19502
; ---------------------------------------------------------------------------

loc_194E9:
		push	0E000C8h
		mov	al, [bp+var_1]
		mov	ah, 0
		push	ax
		push	10h
		call	sub_1C287
		inc	si
		mov	al, [bp+var_1]
		add	al, 80h

loc_19502:
		mov	[bp+var_1], al
		cmp	si, 2
		jl	short loc_194E9
		call	grcg_off

loc_1950F:
		test	byte ptr word_26C68, 1
		jz	short loc_1953B
		inc	byte_26CFA
		cmp	byte_26CFA, 40h
		jb	short loc_19526
		mov	byte_26CFA, 0

loc_19526:
		mov	al, byte_26CFA
		mov	ah, 0
		mov	bx, 4
		cwd
		idiv	bx
		mov	dl, byte_26CF9
		sub	dl, al
		mov	byte_26CC2, dl

loc_1953B:
		cmp	word_26C68, 0
		jnz	loc_195CB
		mov	ax, word_20650
		cwd
		sub	ax, dx
		sar	ax, 1
		mov	byte_26CC1, al
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		mov	byte_26CC2, al
		mov	ax, word_20650
		sar	ax, 1
		mov	Palettes, al
		mov	Palettes+1, 0
		mov	ax, word_20650
		sar	ax, 1
		mov	Palettes+2, al
		call	far ptr	palette_show
		cmp	word_20650, 64h	; 'd'
		jle	loc_198A8
		mov	al, byte_26CC2
		mov	byte_26CF9, al
		mov	byte_26CFA, 0
		mov	word_26C68, 1
		mov	word_20650, 0
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	word_26C6A, dx
		mov	word_26CBE, 0
		mov	word_26CF0, 258h
		mov	word_26CF6, 2
		mov	word_26CF2, 0Ah
		mov	word_26CF4, 3
		mov	word_2065A, 0
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_195CB:
		cmp	word_26C68, 1
		jnz	short loc_195F8
		mov	ax, word_26C6A
		or	ax, ax
		jz	short loc_195E5
		cmp	ax, 1
		jz	short loc_195EA
		cmp	ax, 2
		jz	short loc_195EF
		jmp	short loc_195F2
; ---------------------------------------------------------------------------

loc_195E5:
		call	sub_180EC
		jmp	short loc_195F2
; ---------------------------------------------------------------------------

loc_195EA:
		call	sub_181B3
		jmp	short loc_195F2
; ---------------------------------------------------------------------------

loc_195EF:
		call	sub_188AA

loc_195F2:
		call	sub_193A4
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_195F8:
		cmp	word_26C68, 2
		jnz	short loc_19676
		mov	ax, word_20650
		mov	bx, 4
		cwd
		idiv	bx
		add	al, 32h	; '2'
		mov	byte_26CC1, al
		mov	ax, word_20650
		mov	bx, 5
		cwd
		idiv	bx
		add	al, 1Eh
		mov	byte_26CC2, al
		call	sub_18BA6
		mov	ax, word_20650
		sar	ax, 1
		mov	dl, 33h	; '3'
		sub	dl, al
		mov	Palettes, dl
		mov	ax, word_20650
		sar	ax, 1
		mov	Palettes+1, al
		mov	Palettes+2, 32h	; '2'
		call	far ptr	palette_show
		cmp	word_20650, 64h	; 'd'
		jle	loc_198A8
		mov	word_26C68, 3
		mov	word_20650, 0
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	word_26C6A, dx
		mov	word_26CBE, 0
		mov	al, byte_26CC2
		mov	byte_26CF9, al
		mov	word_26CF0, 2BCh
		jmp	loc_19728
; ---------------------------------------------------------------------------

loc_19676:
		cmp	word_26C68, 3
		jnz	short loc_196A3
		mov	ax, word_26C6A
		or	ax, ax
		jz	short loc_19690
		cmp	ax, 1
		jz	short loc_19695
		cmp	ax, 2
		jz	short loc_1969A
		jmp	short loc_1969D
; ---------------------------------------------------------------------------

loc_19690:
		call	sub_18905
		jmp	short loc_1969D
; ---------------------------------------------------------------------------

loc_19695:
		call	sub_18A1B
		jmp	short loc_1969D
; ---------------------------------------------------------------------------

loc_1969A:
		call	sub_18B4B

loc_1969D:
		call	sub_193A4
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_196A3:
		cmp	word_26C68, 4
		jnz	loc_19743
		mov	ax, word_20650
		mov	bx, 4
		cwd
		idiv	bx
		add	al, 4Bh	; 'K'
		mov	byte_26CC1, al
		mov	ax, word_20650
		mov	bx, 5
		cwd
		idiv	bx
		add	al, 32h	; '2'
		mov	byte_26CC2, al
		call	sub_18BA6
		mov	ax, word_20650
		sar	ax, 1
		mov	Palettes, al
		mov	ax, word_20650
		sar	ax, 1
		mov	dl, 33h	; '3'
		sub	dl, al
		mov	Palettes+1, dl
		mov	ax, word_20650
		sar	ax, 1
		mov	dl, 33h	; '3'
		sub	dl, al
		mov	Palettes+2, dl
		call	far ptr	palette_show
		cmp	word_20650, 64h	; 'd'
		jle	loc_198A8
		mov	word_26C68, 5
		mov	word_20650, 0
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	word_26C6A, dx
		mov	al, byte_26CC2
		mov	byte_26CF9, al
		mov	word_26CBE, 0
		mov	word_26CF0, 320h

loc_19728:
		mov	word_26CF6, 2
		mov	word_26CF2, 0Ch
		mov	word_26CF4, 3
		mov	word_2065A, 0
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_19743:
		cmp	word_26C68, 5
		jnz	short loc_19770
		mov	ax, word_26C6A
		or	ax, ax
		jz	short loc_1975D
		cmp	ax, 1
		jz	short loc_19762
		cmp	ax, 2
		jz	short loc_19767
		jmp	short loc_1976A
; ---------------------------------------------------------------------------

loc_1975D:
		call	sub_18C4A
		jmp	short loc_1976A
; ---------------------------------------------------------------------------

loc_19762:
		call	sub_18DE0
		jmp	short loc_1976A
; ---------------------------------------------------------------------------

loc_19767:
		call	sub_18EB8

loc_1976A:
		call	sub_193A4
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_19770:
		cmp	word_26C68, 6
		jnz	loc_1980A
		mov	ax, word_20650
		mov	bx, 4
		cwd
		idiv	bx
		add	al, 64h	; 'd'
		mov	byte_26CC1, al
		mov	ax, word_20650
		mov	bx, 5
		cwd
		idiv	bx
		add	al, 46h	; 'F'
		mov	byte_26CC2, al
		call	sub_18BA6
		mov	ax, word_20650
		sar	ax, 1
		mov	dl, 33h	; '3'
		sub	dl, al
		mov	Palettes, dl
		mov	Palettes+1, 0
		mov	Palettes+2, 0
		call	far ptr	palette_show
		cmp	word_20650, 64h	; 'd'
		jle	loc_198A8
		mov	al, byte_26CC2
		mov	byte_26CF9, al
		mov	word_26C68, 7
		mov	word_20650, 0
		push	7
		call	_randring2_next8_and
		mov	ah, 0
		mov	word_26C6A, ax
		mov	word_26CBE, 0
		mov	word_26CF0, 5DCh
		mov	word_26CF6, 3
		mov	word_26CF2, 0C8h
		mov	word_26CF4, 9
		mov	byte_26CC0, 1
		mov	word_2065A, 0
		mov	byte_26CC4, 2
		jmp	loc_198A8
; ---------------------------------------------------------------------------

loc_1980A:
		cmp	word_26C68, 7
		jnz	short loc_19851
		mov	bx, word_26C6A
		cmp	bx, 8
		ja	short loc_1984C
		add	bx, bx
		jmp	cs:off_19937[bx]

loc_19821:
		call	sub_18C4A
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_19826:
		call	sub_188AA
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_1982B:
		call	sub_18905
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_19830:
		call	sub_181B3
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_19835:
		call	sub_18A1B
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_1983A:
		call	sub_18B4B
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_1983F:
		call	sub_180EC
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_19844:
		call	sub_18DE0
		jmp	short loc_1984C
; ---------------------------------------------------------------------------

loc_19849:
		call	sub_18EB8

loc_1984C:
		call	sub_193A4
		jmp	short loc_198A8
; ---------------------------------------------------------------------------

loc_19851:
		cmp	word_26C68, 9
		jnz	short loc_198A8
		mov	ax, word_26C6A
		or	ax, ax
		jz	short loc_1986B
		cmp	ax, 1
		jz	short loc_19870
		cmp	ax, 2
		jz	short loc_19875
		jmp	short loc_19878
; ---------------------------------------------------------------------------

loc_1986B:
		call	sub_19173
		jmp	short loc_19878
; ---------------------------------------------------------------------------

loc_19870:
		call	sub_191CC
		jmp	short loc_19878
; ---------------------------------------------------------------------------

loc_19875:
		call	sub_19353

loc_19878:
		call	sub_193A4
		cmp	word_20650, 1
		jnz	short loc_1988A
		mov	bx, word_2065E
		mov	word ptr [bx], 40h

loc_1988A:
		cmp	word_20650, 1Eh
		jge	short loc_198A8
		mov	ax, word_26C5C
		cmp	ax, word_205F6
		jge	short loc_1989F
		mov	ax, 1
		jmp	short loc_198A2
; ---------------------------------------------------------------------------

loc_1989F:
		mov	ax, 0FFFFh

loc_198A2:
		mov	bx, word_2065C
		add	[bx], ax

loc_198A8:
		call	sub_17C92
		call	sub_17F27
		call	sub_17D59
		cmp	word_26C68, 8
		jnz	short loc_19924
		call	sub_19C8D
		or	ax, ax
		jnz	short loc_19930
		inc	word_26C68
		mov	word_2064E, 80h
		mov	word_26CBE, 0
		mov	word_20650, 0
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	word_26C6A, dx
		mov	word_26CBE, 0
		mov	word_2065A, 0
		mov	word_26CF0, 44Ch
		mov	word_26CF6, 2
		mov	word_26CF2, 0C8h
		mov	word_26CF4, 3
		mov	byte_26CC5, 1
		mov	byte_26CC4, 2
		mov	byte_26CC1, 0C8h
		mov	byte_26CC2, 96h
		mov	al, byte_26CC2
		mov	byte_26CF9, al
		jmp	short loc_19930
; ---------------------------------------------------------------------------

loc_19924:
		cmp	word_26C68, 0Ah
		jnz	short loc_19930
		nopcall	sub_19D96

loc_19930:
		mov	ax, 1
		pop	si
		leave
		retf
sub_19456	endp

; ---------------------------------------------------------------------------
		db 0
off_19937	dw offset loc_19821
		dw offset loc_19826
		dw offset loc_1982B
		dw offset loc_19830
		dw offset loc_19835
		dw offset loc_1983A
		dw offset loc_1983F
		dw offset loc_19844
		dw offset loc_19849

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

; Attributes: bp-based frame

sub_19949	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	al, _rank
		cbw
		imul	ax, 14h
		mov	cx, ax
		les	bx, mikoconfig
		mov	ax, es:[bx+mikoconfig_t.continues_used]
		imul	ax, 3
		mov	dx, 0Ah
		sub	dx, ax
		add	dx, cx
		mov	cx, dx
		mov	al, byte_1EB0C
		mov	ah, 0
		imul	ax, 3
		mov	dx, 32h	; '2'
		sub	dx, ax
		mov	al, byte_1E64E
		mov	ah, 0
		sub	dx, ax
		mov	si, dx
		or	si, si
		jge	short loc_19986
		xor	si, si

loc_19986:
		add	cx, si
		cmp	word_1E586, 19h
		jle	short loc_19997
		mov	word_1E586, 19h
		jmp	short loc_199A4
; ---------------------------------------------------------------------------

loc_19997:
		cmp	word_1E586, 0
		jge	short loc_199A4
		mov	word_1E586, 0

loc_199A4:
		add	cx, word_1E586
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.skill], cx
		pop	si
		pop	bp
		retn
sub_19949	endp


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

; Attributes: bp-based frame

sub_199B3	proc far
		push	bp
		mov	bp, sp
		push	si
		call	sub_1A6C5
		call	sub_12DE0
		push	8000C0h
		call	super_clean
		push	ds
		push	offset aMima_bft ; "mima.bft"
		call	super_entry_bfnt
		call	sub_13328
		mov	vsync_Count1, 0
		push	0Ah
		call	frame_delay
		call	sub_1A529
		push	8000C0h
		call	super_clean
		mov	super_patnum, 80h
		push	ds
		push	offset aMima1_bft ; "mima1.bft"
		call	super_entry_bfnt
		push	ds
		push	offset aStage3_b_btt ; "stage3_b.btt"
		call	super_entry_bfnt
		mov	word_20652, 90h
		mov	ax, word_20652
		mov	word_20654, ax
		mov	word_20656, 40h
		mov	ax, word_20656
		mov	word_20658, ax
		mov	word_2064E, 80h
		call	sub_13337
		push	1
		call	palette_white_out
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		call	grcg_fill
		call	grcg_off
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE2h]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		push	word_2064E
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 60h
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		add	ax, 2
		push	ax
		call	super_put_rect
		push	word_205F6
		push	word_205F8
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		call	_snd_se_play stdcall, 10
		call	_snd_se_update
		call	sub_1A46B
		push	3
		call	palette_white_in
		push	ds
		push	offset aMima_m	; "mima.m"
		nopcall	sub_13ABB
		add	sp, 6
		call	sub_133AE
		call	sub_12E95
		call	sub_D376
		mov	word_2065A, 0
		mov	byte_2066A, 0
		mov	word_20650, 0
		mov	byte_2066B, 0
		mov	word_26C68, 0
		mov	word_26C66, 0
		mov	word_26CBE, 0
		mov	byte_2287E, 2
		mov	byte_26CC1, 0
		mov	byte_26CC2, 0
		mov	byte_26CC3, 0Dh
		mov	byte_26CC5, 3
		mov	byte_26CC4, 0Ch
		graph_accesspage _page_front
		call	graph_clear
		graph_accesspage _page_back
		call	graph_clear
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 11
		push	1A00000h
		push	27F018Fh
		call	grc_setclip
		graph_accesspage _page_front
		call	grcg_fill
		graph_accesspage _page_back
		call	grcg_fill
		call	grcg_off
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		mov	word_26C6A, 0
		xor	si, si
		jmp	short loc_19C0D
; ---------------------------------------------------------------------------

loc_19C02:
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6DC4h], 0
		inc	si

loc_19C0D:
		cmp	si, 8
		jl	short loc_19C02
		mov	byte_26CC0, 0
		call	sub_180AC
		pop	si
		pop	bp
		retf
sub_199B3	endp


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

; Attributes: bp-based frame

sub_19C1D	proc near
		push	bp
		mov	bp, sp
		mov	PaletteTone, 0
		call	far ptr	palette_show
		les	bx, mikoconfig
		mov	eax, es:[bx+mikoconfig_t.score_highest]
		cmp	eax, dword_1E598
		jnb	short loc_19C41
		mov	eax, dword_1E598
		jmp	short loc_19C4A
; ---------------------------------------------------------------------------

loc_19C41:
		les	bx, mikoconfig
		mov	eax, es:[bx+mikoconfig_t.score_highest]

loc_19C4A:
		les	bx, mikoconfig
		mov	es:[bx+mikoconfig_t.score_highest], eax
		mov	eax, dword_1E598
		imul	eax, 0Ah
		movzx	edx, es:[bx+mikoconfig_t.continues_used]
		add	eax, edx
		mov	es:[bx+mikoconfig_t.score], eax
		mov	es:[bx+mikoconfig_t.stage], 7Fh
		mov	al, lives
		mov	es:[bx+mikoconfig_t.rem_lives], al
		mov	al, bombs
		mov	es:[bx+mikoconfig_t.rem_bombs], al
		call	sub_19949
		push	ds
		push	offset aMaine_0	; "maine"
		call	sub_C566
		add	sp, 4
		pop	bp
		retn
sub_19C1D	endp


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

; Attributes: bp-based frame

sub_19C8D	proc near
		push	bp
		mov	bp, sp
		call	sub_D376
		nopcall	sub_10E0A
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE2h]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		push	word_2064E
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 60h
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		add	ax, 2
		push	ax
		call	super_put_rect
		call	sub_12DE0
		call	sub_133B8
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jz	short loc_19D48
		kajacall	KAJA_SONG_FADE, 10
		pop	cx
		push	0Ah
		call	palette_white_out
		push	32h ; '2'
		call	frame_delay
		add	dword_1E598, 0C350h
		call	sub_19C1D
		mov	ax, 1
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_19D48:
		push	8000C0h
		call	super_clean
		mov	super_patnum, 80h
		push	ds
		push	offset aMima2_bft ; "mima2.bft"
		call	super_entry_bfnt
		call	sub_12E95
		graph_accesspage _page_front
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		call	grcg_fill
		graph_accesspage _page_back
		call	grcg_fill
		call	grcg_off
		mov	byte_26CC0, 0
		xor	ax, ax
		pop	bp
		retn
sub_19C8D	endp


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

; Attributes: bp-based frame

sub_19D96	proc far
		push	bp
		mov	bp, sp
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE2h]
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		push	word_2064E
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		add	ax, 60h
		push	ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		push	word ptr [bx+2BE6h]
		mov	ax, word_2064E
		add	ax, 2
		push	ax
		call	super_put_rect
		call	sub_13439
		add	dword_1E598, 186A0h
		les	bx, mikoconfig
		cmp	es:[bx+mikoconfig_t.continues_used], 0
		jnz	short loc_19E2A
		call	sub_1CD8E

loc_19E2A:
		call	sub_19C1D
		pop	bp
		retf
sub_19D96	endp


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

; Attributes: bp-based frame

sub_19E2F	proc far

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		cmp	_page_back, 0
		jnz	loc_19EEF
		call	egc_on
		outw2	EGC_ACTIVEPLANEREG, 0FFF7h
		outw2	EGC_READPLANEREG, 3FFh
		outw2	EGC_MASKREG, 0FFFFh
		outw2	EGC_ADDRRESSREG, 0
		outw2	EGC_BITLENGTHREG, 0Fh
		egc_setrop	EGC_WS_PATREG or EGC_RL_MEMREAD
		push	0B0009Ch
		push	600060h
		call	sub_45FC
		call	sub_4692
		egc_setrop	EGC_WS_ROP or 0FCh
		mov	word_26D54, 98h
		mov	ax, _scroll_line
		add	word_26D54, ax
		cmp	word_26D54, RES_Y
		jl	short loc_19EA7
		sub	word_26D54, RES_Y

loc_19EA7:
		mov	ax, word_26D54
		mov	[bp+var_4], ax
		mov	[bp+var_2], 0
		jmp	short loc_19EE4
; ---------------------------------------------------------------------------

loc_19EB4:
		mov	si, 0B0h ; 'ｰ'
		mov	di, [bp+var_2]
		jmp	short loc_19ECA
; ---------------------------------------------------------------------------

loc_19EBC:
		push	si
		push	[bp+var_4]
		push	di
		call	sub_4896
		add	si, 10h
		inc	di

loc_19ECA:
		cmp	si, 110h
		jl	short loc_19EBC
		add	[bp+var_4], 10h
		cmp	[bp+var_4], 190h
		jl	short loc_19EE0
		sub	[bp+var_4], 190h

loc_19EE0:
		add	[bp+var_2], 10h

loc_19EE4:
		cmp	[bp+var_2], 60h
		jl	short loc_19EB4
		call	egc_off

loc_19EEF:
		pop	di
		pop	si
		leave
		retf
sub_19E2F	endp


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

; Attributes: bp-based frame

sub_19EF3	proc far
		push	bp
		mov	bp, sp
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		mov	bx, word_2065C
		push	word ptr [bx]
		mov	bx, word_2065E
		push	word ptr [bx]
		push	400040h
		call	sub_45FC
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		mov	ax, word_26D7A
		pop	bp
		retf
sub_19EF3	endp


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

; Attributes: bp-based frame

sub_19F52	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	si, word_26D78
		add	si, _scroll_line
		or	si, si
		jge	short loc_19F68
		add	si, RES_Y
		jmp	short loc_19F72
; ---------------------------------------------------------------------------

loc_19F68:
		cmp	si, RES_Y
		jl	short loc_19F72
		sub	si, RES_Y

loc_19F72:
		cmp	byte_2066B, 0
		jz	short loc_19F9E
		call	_snd_se_play c, 4
		push	word_26D76
		push	si
		push	word_2064E
		pushd	0FFC0h
		call	super_roll_put_1plane
		mov	byte_2066B, 0
		jmp	short loc_19FAC
; ---------------------------------------------------------------------------

loc_19F9E:
		push	word_26D76
		push	si
		push	word_2064E
		call	super_roll_put

loc_19FAC:
		pop	si
		pop	bp
		retn
sub_19F52	endp


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

; Attributes: bp-based frame

sub_19FAF	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, word_20650
		mov	bx, 18h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_19FDA
		mov	ax, word_26D76
		add	ax, 20h	; ' '
		push	ax
		mov	ax, word_26D78
		add	ax, 20h	; ' '
		push	ax
		push	80h
		push	bx
		push	1
		call	sub_4090

loc_19FDA:
		mov	di, 0Ah
		mov	ax, word_1EE98
		sar	ax, 3
		add	di, ax
		inc	word_1EE98
		cmp	word_1EE98, 40h
		jl	short loc_1A021
		mov	word_1EE98, 0
		mov	word_20650, 0
		mov	byte_2066A, 2
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh
		mov	word_26D7A, 0
		mov	word_26CFE, 0FFFFh
		mov	word_20616, 660h
		jmp	short loc_1A040
; ---------------------------------------------------------------------------

loc_1A021:
		mov	si, word_26D78
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1A033
		sub	si, RES_Y

loc_1A033:
		push	word_26D76
		push	si
		push	di
		push	2
		call	super_zoom

loc_1A040:
		pop	di
		pop	si
		pop	bp
		retn
sub_19FAF	endp


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

; Attributes: bp-based frame

sub_1A044	proc near
		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	ax, word_26D76
		add	ax, 8
		push	ax
		push	word_26D78
		push	300030h
		call	sub_1283C
		mov	di, ax
		or	ax, ax
		jz	short loc_1A0CA
		mov	byte_2066B, 1
		add	word_2065A, di
		mov	si, word_26D78
		add	si, _scroll_line
		cmp	si, RES_Y
		jl	short loc_1A07E
		sub	si, RES_Y

loc_1A07E:
		cmp	word_2065A, 190h
		jl	short loc_1A0CA
		cmp	si, 336
		jge	short loc_1A0CA
		cmp	si, 96
		jle	short loc_1A0CA
		call	_snd_se_play c, 2
		mov	byte_2066A, 1
		add	dword_218AC, 0C350h
		cmp	word_20616, 660h
		jnz	short loc_1A0B6
		mov	di, 4
		jmp	short loc_1A0B9
; ---------------------------------------------------------------------------

loc_1A0B6:
		mov	di, 2

loc_1A0B9:
		mov	ax, word_26D76
		add	ax, 18h
		push	ax
		push	word_26D78
		push	di
		call	sub_D6CA

loc_1A0CA:
		pop	di
		pop	si
		pop	bp
		retn
sub_1A044	endp


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

; Attributes: bp-based frame

sub_1A0CE	proc near
		push	bp
		mov	bp, sp
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1A101
		call	_snd_se_play c, 3
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	60h
		push	40h
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E

loc_1A101:
		pop	bp
		retn
sub_1A0CE	endp


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

; Attributes: bp-based frame

sub_1A103	proc near

var_1		= byte ptr -1

		push	bp
		mov	bp, sp
		sub	sp, 2
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short locret_1A14F
		call	_snd_se_play c, 3
		cmp	_rank, RANK_EASY
		jnz	short loc_1A12B
		mov	al, 0Fh
		jmp	short loc_1A12D
; ---------------------------------------------------------------------------

loc_1A12B:
		mov	al, 14h

loc_1A12D:
		mov	[bp+var_1], al
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	60h
		push	40h
		push	word ptr [bp+var_1]
		mov	ax, word_20650
		add	ax, 0FFECh
		push	ax
		call	sub_1078E

locret_1A14F:
		leave
		retn
sub_1A103	endp


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

; Attributes: bp-based frame

sub_1A151	proc near
		push	bp
		mov	bp, sp
		mov	ax, word_20650
		mov	bx, 8
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1A17C
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	60h
		push	40h
		push	80h
		push	50h ; 'P'
		push	bx
		call	sub_10865

loc_1A17C:
		pop	bp
		retn
sub_1A151	endp


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

; Attributes: bp-based frame

sub_1A17E	proc near
		push	bp
		mov	bp, sp
		mov	al, _rank
		cbw
		add	ax, ax
		mov	bx, 10h
		sub	bx, ax
		mov	ax, word_20650
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1A1B4
		mov	byte_23A70, 10h
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	500006h
		push	6Fh ; 'o'
		call	sub_12A19

loc_1A1B4:
		pop	bp
		retn
sub_1A17E	endp


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

; Attributes: bp-based frame

sub_1A1B6	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	ax, word_20650
		mov	bx, 10h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1A1FC
		call	_snd_se_play c, 7
		xor	si, si
		jmp	short loc_1A1F7
; ---------------------------------------------------------------------------

loc_1A1D5:
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	word_26D00
		push	3Fh ; '?'
		call	_randring2_next8_and
		add	al, 20h	; ' '
		push	ax
		push	20h ; ' '
		push	46h ; 'F'
		call	sub_1078E
		inc	si

loc_1A1F7:
		cmp	si, 4
		jl	short loc_1A1D5

loc_1A1FC:
		pop	si
		pop	bp
		retn
sub_1A1B6	endp


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

; Attributes: bp-based frame

sub_1A1FF	proc far
		push	bp
		mov	bp, sp
		mov	ax, word_26D76
		add	ax, 18h
		mov	word_205D8, ax
		mov	ax, word_26D78
		add	ax, 18h
		mov	word_205DA, ax
		inc	word_20650
		cmp	word_20650, 1
		jnz	short loc_1A296
		cmp	word_26CFE, 0
		jnz	short loc_1A234
		mov	word_20652, 40h
		mov	word_2064E, 96h
		jmp	short loc_1A240
; ---------------------------------------------------------------------------

loc_1A234:
		mov	word_20652, 140h
		mov	word_2064E, 95h

loc_1A240:
		mov	ax, word_20652
		mov	word_20654, ax
		mov	word_20656, 0FFF0h
		mov	word_20658, 0FFF0h
		mov	word_2065C, 2BE2h
		mov	word_2065E, 2BE6h
		mov	word_2065A, 0
		mov	byte_2066A, 0
		mov	byte_2066B, 0
		mov	word_26CFC, 0
		cmp	word_26CFE, 0
		jnz	short loc_1A280
		mov	ax, 1
		jmp	short loc_1A283
; ---------------------------------------------------------------------------

loc_1A280:
		mov	ax, 0FFFFh

loc_1A283:
		mov	word_26CFE, ax
		mov	byte_26D7D, 0
		mov	byte_26D7C, 0
		mov	word_26D7A, 1

loc_1A296:
		mov	bx, word_2065E
		mov	ax, [bx]
		add	ax, 30h	; '0'
		mov	word_26D00, ax
		mov	ax, [bx]
		mov	word_26D78, ax
		cmp	byte_2066A, 0
		jnz	loc_1A405
		cmp	word_26CFC, 0
		jnz	loc_1A341
		mov	ax, word_26CFE
		shl	ax, 3
		mov	bx, word_2065C
		add	[bx], ax
		mov	bx, word_2065E
		add	word ptr [bx], 2
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_26D76, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_26D78, ax
		test	byte ptr word_20650, 7
		jnz	short loc_1A30A
		call	_snd_se_play c, 7
		mov	ax, word_26CFE
		shl	ax, 4
		add	ax, word_26D76
		add	ax, 1Ch
		push	ax
		push	word_26D00
		push	40h
		push	20h ; ' '
		push	50h ; 'P'
		call	sub_1078E

loc_1A30A:
		cmp	word_20650, 20h	; ' '
		jl	loc_1A405
		mov	word_26CFC, 1
		mov	word_20650, 2
		mov	word_2064E, 94h
		mov	ax, 0FFFFh
		imul	word_26CFE
		mov	word_26CFE, ax
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 5
		cwd
		idiv	bx
		mov	byte_26D7C, dl
		jmp	loc_1A405
; ---------------------------------------------------------------------------

loc_1A341:
		cmp	word_26CFC, 1
		jnz	loc_1A405
		cmp	word_20650, 32h	; '2'
		jle	loc_1A405
		cmp	word_26CFE, 0FFFFh
		jnz	short loc_1A362
		mov	word_2064E, 95h
		jmp	short loc_1A368
; ---------------------------------------------------------------------------

loc_1A362:
		mov	word_2064E, 96h

loc_1A368:
		mov	ax, word_26CFE
		shl	ax, 2
		mov	bx, word_2065C
		add	[bx], ax
		mov	ax, [bx]
		mov	word_26D76, ax
		mov	al, byte_26D7C
		mov	ah, 0
		mov	bx, ax
		cmp	bx, 4
		ja	short loc_1A3A3
		add	bx, bx
		jmp	cs:off_1A419[bx]

loc_1A38C:
		call	sub_1A0CE
		jmp	short loc_1A3A3
; ---------------------------------------------------------------------------

loc_1A391:
		call	sub_1A103
		jmp	short loc_1A3A3
; ---------------------------------------------------------------------------

loc_1A396:
		call	sub_1A151
		jmp	short loc_1A3A3
; ---------------------------------------------------------------------------

loc_1A39B:
		call	sub_1A17E
		jmp	short loc_1A3A3
; ---------------------------------------------------------------------------

loc_1A3A0:
		call	sub_1A1B6

loc_1A3A3:
		cmp	byte_26D7D, 0Ch
		jnb	short loc_1A3DC
		cmp	word_20650, 72h	; 'r'
		jl	short loc_1A405
		mov	word_20650, 2
		mov	word_2064E, 94h
		mov	ax, 0FFFFh
		imul	word_26CFE
		mov	word_26CFE, ax
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 5
		cwd
		idiv	bx
		mov	byte_26D7C, dl
		inc	byte_26D7D
		jmp	short loc_1A405
; ---------------------------------------------------------------------------

loc_1A3DC:
		cmp	word_26D76, 0
		jle	short loc_1A3EB
		cmp	word_26D76, 180h
		jl	short loc_1A405

loc_1A3EB:
		mov	word_20650, 0
		mov	word_26CFE, 0FFFFh
		mov	word_20616, 660h
		mov	word_26D7A, 0
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_1A405:
		cmp	byte_2066A, 0
		jz	short loc_1A411
		call	sub_19FAF
		pop	bp
		retf
; ---------------------------------------------------------------------------

loc_1A411:
		call	sub_1A044
		call	sub_19F52
		pop	bp
		retf
sub_1A1FF	endp

; ---------------------------------------------------------------------------
off_1A419	dw offset loc_1A38C
		dw offset loc_1A391
		dw offset loc_1A396
		dw offset loc_1A39B
		dw offset loc_1A3A0

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

; Attributes: bp-based frame

sub_1A423	proc near

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

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		xor	di, di
		mov	[bp+var_2], 0
		jmp	short loc_1A45F
; ---------------------------------------------------------------------------

loc_1A434:
		xor	si, si
		jmp	short loc_1A457
; ---------------------------------------------------------------------------

loc_1A438:
		mov	ax, si
		shl	ax, 5
		add	ax, [bp+arg_2]
		push	ax
		mov	ax, [bp+var_2]
		shl	ax, 5
		add	ax, [bp+arg_0]
		push	ax
		lea	ax, [di+80h]
		push	ax
		call	super_put
		inc	si
		inc	di

loc_1A457:
		cmp	si, 8
		jl	short loc_1A438
		inc	[bp+var_2]

loc_1A45F:
		cmp	[bp+var_2], 8
		jl	short loc_1A434
		pop	di
		pop	si
		leave
		retn	4
sub_1A423	endp


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

; Attributes: bp-based frame

sub_1A46B	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		xor	di, di
		mov	[bp+var_2], 0
		mov	di, 320
		add	di, _scroll_line
		cmp	di, RES_Y
		jl	short loc_1A48B
		sub	di, RES_Y

loc_1A48B:
		lea	ax, [di+20h]
		add	[bp+var_2], ax
		cmp	[bp+var_2], RES_Y
		jl	short loc_1A49D
		sub	[bp+var_2], RES_Y

loc_1A49D:
		push	20h ; ' '
		push	di
		push	22h ; '"'
		call	super_roll_put
		push	20h ; ' '
		push	[bp+var_2]
		push	2Ah ; '*'
		call	super_roll_put
		push	40h
		push	di
		push	23h ; '#'
		call	super_roll_put
		push	40h
		push	[bp+var_2]
		push	2Bh ; '+'
		call	super_roll_put
		push	60h
		push	di
		push	24h ; '$'
		call	super_roll_put
		push	60h
		push	[bp+var_2]
		push	2Ch ; ','
		call	super_roll_put
		xor	si, si
		jmp	short loc_1A508
; ---------------------------------------------------------------------------

loc_1A4E3:
		mov	ax, si
		shl	ax, 5
		add	ax, 80h
		push	ax
		push	di
		push	25h ; '%'
		call	super_roll_put
		mov	ax, si
		shl	ax, 5
		add	ax, 80h
		push	ax
		push	[bp+var_2]
		push	2Dh ; '-'
		call	super_roll_put
		inc	si

loc_1A508:
		cmp	si, 8
		jl	short loc_1A4E3
		push	180h
		push	di
		push	26h ; '&'
		call	super_roll_put
		push	180h
		push	[bp+var_2]
		push	2Eh ; '.'
		call	super_roll_put
		pop	di
		pop	si
		leave
		retn
sub_1A46B	endp


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

; Attributes: bp-based frame

sub_1A529	proc near
		push	bp
		mov	bp, sp
		push	si
		push	200010h
		push	1A00140h
		call	grc_setclip
		call	_snd_se_play c, 9
		mov	si, 96h
		jmp	loc_1A613
; ---------------------------------------------------------------------------

loc_1A54E:
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 10
		push	0E00090h
		push	si
		call	grcg_circlefill
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 13
		push	0E00090h
		mov	ax, si
		mov	bx, 32h	; '2'
		cwd
		idiv	bx
		shl	dx, 2
		push	dx
		call	grcg_circle
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 15
		push	0E00090h
		mov	ax, si
		mov	bx, 1Eh
		cwd
		idiv	bx
		imul	dx, 7
		push	dx
		call	grcg_circle
		push	1
		call	frame_delay
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	0E00090h
		push	si
		call	grcg_circlefill
		push	0E00090h
		mov	ax, si
		mov	bx, 32h	; '2'
		cwd
		idiv	bx
		shl	dx, 2
		push	dx
		call	grcg_circle
		push	0E00090h
		mov	ax, si
		mov	bx, 1Eh
		cwd
		idiv	bx
		imul	dx, 7
		push	dx
		call	grcg_circle
		mov	ax, 96h
		sub	ax, si
		mov	bx, 3
		cwd
		idiv	bx
		add	ax, ax
		add	ax, 64h	; 'd'
		mov	PaletteTone, ax
		call	far ptr	palette_show
		call	_snd_se_update
		dec	si

loc_1A613:
		or	si, si
		jg	loc_1A54E
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		call	grcg_fill
		call	grcg_off
		push	600000h
		call	sub_1A423
		push	word_205F6
		push	word_205F8
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		call	sub_1A46B
		xor	si, si
		jmp	short loc_1A6B2
; ---------------------------------------------------------------------------

loc_1A697:
		mov	ax, si
		imul	ax, 0Ah
		mov	dx, 0C8h
		sub	dx, ax
		mov	PaletteTone, dx
		call	far ptr	palette_show
		push	3
		call	frame_delay
		inc	si

loc_1A6B2:
		cmp	si, 0Ah
		jl	short loc_1A697
		mov	PaletteTone, 64h	; 'd'
		call	far ptr	palette_show
		pop	si
		pop	bp
		retn
sub_1A529	endp


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

; Attributes: bp-based frame

sub_1A6C5	proc near
		push	bp
		mov	bp, sp
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_205F8
		mov	bx, ax
		mov	[bx+2B7Ah], dx
		mov	_scroll_line, 0
		mov	word_20348, 0
		graph_accesspage 0
		call	graph_clear
		graph_accesspage 1
		call	graph_clear
		mov	vsync_Count1, 0
		push	1
		call	frame_delay
		call	graph_scrollup pascal, 0
		graph_accesspage _page_front
		push	word_205F6
		push	word_205F8
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, word_205F6
		add	dx, 0FFF0h
		mov	bx, ax
		mov	[bx+2B8Ah], dx
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	dx, word_205F8
		add	dx, 10h
		mov	bx, ax
		mov	[bx+2B8Ch], dx
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		mov	dl, _page_front
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+2B8Ah], ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ch]
		mov	dl, _page_front
		mov	dh, 0
		shl	dx, 2
		mov	bx, dx
		mov	[bx+2B8Ch], ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		pop	bp
		retn
sub_1A6C5	endp


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

; Attributes: bp-based frame

sub_1A7D5	proc far
		push	bp
		mov	bp, sp
		push	si
		call	sub_1A6C5
		call	sub_12DE0
		push	8000C0h
		call	super_clean
		mov	super_patnum, 80h
		push	ds
		push	offset aMima_bft_0 ; "mima.bft"
		call	super_entry_bfnt
		call	sub_1315B
		mov	vsync_Count1, 0
		push	0Ah
		call	frame_delay
		call	sub_1A529
		push	0
		call	sub_1310B
		push	8001FFh
		call	super_clean
		mov	super_patnum, 80h
		push	ds
		push	offset aStage3_b_bft ; "stage3_b.bft"
		call	super_entry_bfnt
		push	ds
		push	offset aStage3_b_btt_0 ; "stage3_b.btt"
		call	super_entry_bfnt
		mov	word_20652, 0B0h ; 'ｰ'
		mov	ax, word_20652
		mov	word_20654, ax
		mov	word_20656, 40h
		mov	ax, word_20656
		mov	word_20658, ax
		mov	word_26D76, 0B0h ; 'ｰ'
		mov	word_26D78, 40h
		mov	word_2064E, 80h
		push	1
		call	palette_white_out
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		call	grcg_fill
		call	grcg_off
		push	200000h
		push	1A0018Fh
		call	grc_setclip
		push	word_26D76
		push	word_26D78
		push	word_2064E
		call	super_put_rect
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		push	ax
		push	word_26D78
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		push	word_205F6
		push	word_205F8
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		call	_snd_se_play stdcall, 10
		call	_snd_se_update
		call	sub_1A46B
		push	1
		call	palette_white_in
		push	ds
		push	offset aBoss3_m	; "boss3.m"
		nopcall	sub_13ABB
		add	sp, 6
		call	sub_13187
		call	graph_clear
		push	word_26D76
		push	word_26D78
		push	word_2064E
		call	super_put_rect
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		push	ax
		push	word_26D78
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		push	word_205F6
		push	word_205F8
		push	0
		call	super_roll_put
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ah]
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		mov	ax, [bx+2B8Ah]
		add	ax, 30h	; '0'
		push	ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 2
		mov	bx, ax
		push	word ptr [bx+2B8Ch]
		push	48h ; 'H'
		call	super_roll_put_tiny
		mov	al, _page_front
		mov	ah, 0
		push	ax
		call	graph_copy_page
		graph_accesspage _page_back
		graph_showpage _page_front
		mov	byte_2287E, 2
		call	sub_D376
		mov	word_2065A, 0
		mov	byte_2066A, 0
		mov	word_20650, 0
		mov	byte_2066B, 0
		mov	word_26CFC, 0
		mov	byte_1EE96, 0
		xor	si, si
		jmp	short loc_1AA1A
; ---------------------------------------------------------------------------

loc_1A9FB:
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D4Eh], 0
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D46h], 2
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D3Eh], 0
		inc	si

loc_1AA1A:
		cmp	si, 4
		jl	short loc_1A9FB
		mov	byte_26D7E, 1
		mov	byte_1FFF8, 9
		mov	word_1FFF6, 18h
		mov	word_1FFF0, 18h
		mov	word_1FFF2, 4
		mov	word_26CFE, 0
		mov	byte_26D4C, 0
		mov	byte_26D4D, 0
		mov	byte_26D4E, 0
		mov	byte_26D4F, 0
		mov	byte_1E510, 0E0h
		call	sub_1B214
		pop	si
		pop	bp
		retf
sub_1A7D5	endp


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

; Attributes: bp-based frame

sub_1AA60	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		cmp	byte_2066A, 0
		jnz	locret_1AB33
		mov	ax, word_26D76
		add	ax, 18h
		push	ax
		mov	ax, word_26D78
		add	ax, 18h
		push	ax
		push	300030h
		call	sub_1283C
		mov	[bp+var_2], ax
		or	ax, ax
		jz	short loc_1AAD6
		cmp	word_26D4A, 8
		jl	short loc_1AAB1
		call	_snd_se_play c, 4
		mov	byte_2066B, 1
		mov	al, byte_1EE96
		mov	ah, 0
		imul	[bp+var_2]
		add	word_2065A, ax
		jmp	short loc_1AABB
; ---------------------------------------------------------------------------

loc_1AAB1:
		call	_snd_se_play c, 11

loc_1AABB:
		cmp	word_2065A, 384h
		jl	short loc_1AAD6
		mov	byte_2066A, 1
		add	dword_218AC, 4E20h
		mov	byte_20605, 0C8h

loc_1AAD6:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26D76
		add	dx, 0FFF0h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jle	short locret_1AB33
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26D76
		add	dx, 30h	; '0'
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short locret_1AB33
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26D78
		add	dx, 0FFF0h
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jle	short locret_1AB33
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	dx, word_26D78
		add	dx, 30h	; '0'
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jge	short locret_1AB33
		mov	_player_is_hit, 1

locret_1AB33:
		leave
		retn
sub_1AA60	endp


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

; Attributes: bp-based frame

sub_1AB35	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	byte_1EB88, 3
		xor	si, si
		jmp	loc_1AC6C
; ---------------------------------------------------------------------------

loc_1AB43:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	loc_1AC6B
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 4
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		push	word ptr es:[bx]
		push	180020h
		call	sub_1283C
		or	ax, ax
		jz	short loc_1ABEE
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D3Eh], 1
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx-6D4Eh]
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D4Eh], 6Eh ; 'n'
		jl	short loc_1ABEE
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 50h	; 'P'
		cwd
		idiv	bx
		mov	al, power
		mov	ah, 0
		cmp	dx, ax
		jl	short loc_1ABD1
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 8
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 8
		push	ax
		push	3
		call	sub_D6CA

loc_1ABD1:
		call	_snd_se_play c, 2
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D46h], 1
		add	dword_218AC, 1388h

loc_1ABEE:
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	dx, es:[bx]
		add	dx, 0FFF0h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jle	short loc_1AC6B
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx-6D1Ah]
		mov	dx, es:[bx]
		add	dx, 10h
		mov	bx, ax
		cmp	[bx+2B76h], dx
		jge	short loc_1AC6B
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	dx, es:[bx]
		add	dx, 0FFF0h
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jle	short loc_1AC6B
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx-6D0Ah]
		mov	dx, es:[bx]
		add	dx, 10h
		mov	bx, ax
		cmp	[bx+2B7Ah], dx
		jge	short loc_1AC6B
		mov	_player_is_hit, 1

loc_1AC6B:
		inc	si

loc_1AC6C:
		cmp	si, 4
		jl	loc_1AB43
		mov	byte_1EB88, 1
		pop	si
		pop	bp
		retn
sub_1AB35	endp


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

; Attributes: bp-based frame

sub_1AC7B	proc near
		push	bp
		mov	bp, sp
		push	si
		mov	si, 0Ah
		mov	ax, word_26D76
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		push	ax
		push	word_1EE9A
		call	sub_FFF8
		cmp	word_1EE9A, 18h
		jl	short loc_1AD16
		cmp	word_1EE9A, 38h	; '8'
		jnz	short loc_1ACAA
		mov	byte_1E510, 20h	; ' '

loc_1ACAA:
		mov	ax, word_26D76
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_1EE9A
		add	ax, 0FFE8h
		push	ax
		call	sub_FFF8
		cmp	word_1EE9A, 30h	; '0'
		jl	short loc_1AD16
		cmp	word_1EE9A, 50h	; 'P'
		jnz	short loc_1ACD5
		mov	byte_1E510, 0

loc_1ACD5:
		mov	ax, word_26D76
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_1EE9A
		add	ax, 0FFD0h
		push	ax
		call	sub_FFF8
		cmp	word_1EE9A, 40h
		jl	short loc_1AD16
		test	byte ptr word_1EE9A, 0Fh
		jnz	short loc_1AD16
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		push	ax
		mov	ax, word_26D78
		add	ax, 30h	; '0'
		push	ax
		push	880018h
		push	1
		call	sub_4090

loc_1AD16:
		mov	ax, word_1EE9A
		add	ax, 0FFE0h
		sar	ax, 4
		add	si, ax
		inc	word_1EE9A
		cmp	word_1EE9A, 20h	; ' '
		jge	short loc_1AD54
		push	word_26D76
		push	word_26D78
		push	word_2064E
		call	super_put_rect
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		push	ax
		push	word_26D78
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect
		jmp	short loc_1AD64
; ---------------------------------------------------------------------------

loc_1AD54:
		push	word_26D76
		push	word_26D78
		push	si
		push	3
		call	super_zoom

loc_1AD64:
		cmp	word_1EE9A, 64h	; 'd'
		jl	short loc_1AD7B
		mov	word_1EE9A, 0
		mov	byte_2066A, 3
		mov	ax, 1
		jmp	short loc_1AD7D
; ---------------------------------------------------------------------------

loc_1AD7B:
		xor	ax, ax

loc_1AD7D:
		pop	si
		pop	bp
		retn
sub_1AC7B	endp


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

; Attributes: bp-based frame

sub_1AD80	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		mov	si, [bp+arg_0]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		push	3C0002h
		push	0
		call	sub_4090
		mov	di, 0Ah
		mov	bx, si
		add	bx, bx
		mov	ax, [bx+142Ch]
		mov	bx, 6
		cwd
		idiv	bx
		add	di, ax
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx+142Ch]
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx+142Ch], 30h ; '0'
		jl	loc_1AE74
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx+142Ch], 0
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D46h], 2
		graph_accesspage _page_front
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6D6Eh]
		sar	ax, 3
		mov	[bp+var_2], ax
		push	ax
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		push	word ptr [bx-6D5Eh]
		mov	ax, [bp+var_2]
		add	ax, 5
		push	ax
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6D5Eh]
		add	ax, 20h	; ' '
		push	ax
		call	grcg_byteboxfill_x
		call	grcg_off
		graph_accesspage _page_back
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D4Eh], 0
		mov	ax, 1
		jmp	short loc_1AE94
; ---------------------------------------------------------------------------

loc_1AE74:
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		push	word ptr es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		push	word ptr es:[bx]
		push	di
		call	super_put_rect
		xor	ax, ax

loc_1AE94:
		pop	di
		pop	si
		leave
		retn
sub_1AD80	endp


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

; Attributes: bp-based frame

sub_1AE98	proc near

var_12		= word ptr -12h
var_F		= byte ptr -0Fh
var_E		= dword	ptr -0Eh
var_9		= byte ptr -9
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 12h
		push	si
		push	di
		cmp	byte_2066B, 0
		jz	loc_1AFFB
		mov	al, byte ptr word_26D76
		and	al, 7
		mov	[bp+var_9], al
		mov	al, 10h
		sub	al, [bp+var_9]
		mov	[bp+var_F], al
		mov	byte_2066B, 0
		mov	ax, word_26D76
		sar	ax, 3
		mov	dx, word_26D78
		shl	dx, 6
		add	ax, dx
		mov	dx, word_26D78
		shl	dx, 4
		add	ax, dx
		mov	[bp+var_6], ax
		mov	[bp+var_4], ax
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 4
		mov	bx, word_2064E
		add	bx, bx
		mov	ax, [bx+1ADAh]
		mov	word ptr [bp+var_E+2], ax
		mov	word ptr [bp+var_E], 0
		mov	[bp+var_2], 0
		mov	ax, word_26D78
		mov	[bp+var_8], ax
		jmp	short loc_1AF61
; ---------------------------------------------------------------------------

loc_1AF06:
		cmp	[bp+var_8], 180h
		jge	short loc_1AF67
		xor	si, si
		mov	di, word_26D76
		jmp	short loc_1AF52
; ---------------------------------------------------------------------------

loc_1AF15:
		or	di, di
		jle	short loc_1AF4B
		cmp	di, 1A0h
		jge	short loc_1AF4B
		cmp	[bp+var_8], 10h
		jl	short loc_1AF4B
		les	bx, [bp+var_E]
		mov	al, es:[bx]
		mov	ah, 0
		mov	cl, [bp+var_9]
		sar	ax, cl
		mov	dl, es:[bx]
		mov	dh, 0
		mov	cl, [bp+var_F]
		shl	dx, cl
		add	ax, dx
		mov	[bp+var_12], ax
		les	bx, _VRAM_PLANE_B
		add	bx, [bp+var_4]
		mov	es:[bx+si], ax

loc_1AF4B:
		inc	si
		add	di, 8
		inc	word ptr [bp+var_E]

loc_1AF52:
		cmp	si, 6
		jl	short loc_1AF15
		inc	[bp+var_2]
		add	[bp+var_4], 50h	; 'P'
		inc	[bp+var_8]

loc_1AF61:
		cmp	[bp+var_2], 60h
		jl	short loc_1AF06

loc_1AF67:
		mov	bx, word_2064E
		add	bx, bx
		mov	ax, [bx+1ADCh]
		mov	word ptr [bp+var_E+2], ax
		mov	word ptr [bp+var_E], 0
		mov	ax, [bp+var_6]
		add	ax, 6
		mov	[bp+var_4], ax
		mov	[bp+var_2], 0
		mov	ax, word_26D78
		mov	[bp+var_8], ax
		jmp	short loc_1AFEE
; ---------------------------------------------------------------------------

loc_1AF8F:
		cmp	[bp+var_8], 180h
		jge	short loc_1AFF4
		xor	si, si
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		mov	di, ax
		jmp	short loc_1AFDF
; ---------------------------------------------------------------------------

loc_1AFA2:
		or	di, di
		jle	short loc_1AFD8
		cmp	di, 1A0h
		jge	short loc_1AFD8
		cmp	[bp+var_8], 10h
		jl	short loc_1AFD8
		les	bx, [bp+var_E]
		mov	al, es:[bx]
		mov	ah, 0
		mov	cl, [bp+var_9]
		sar	ax, cl
		mov	dl, es:[bx]
		mov	dh, 0
		mov	cl, [bp+var_F]
		shl	dx, cl
		add	ax, dx
		mov	[bp+var_12], ax
		les	bx, _VRAM_PLANE_B
		add	bx, [bp+var_4]
		mov	es:[bx+si], ax

loc_1AFD8:
		inc	si
		add	di, 8
		inc	word ptr [bp+var_E]

loc_1AFDF:
		cmp	si, 6
		jl	short loc_1AFA2
		inc	[bp+var_2]
		add	[bp+var_4], 50h	; 'P'
		inc	[bp+var_8]

loc_1AFEE:
		cmp	[bp+var_2], 60h
		jl	short loc_1AF8F

loc_1AFF4:
		call	grcg_off
		jmp	short loc_1B021
; ---------------------------------------------------------------------------

loc_1AFFB:
		push	word_26D76
		push	word_26D78
		push	word_2064E
		call	super_put_rect
		mov	ax, word_26D76
		add	ax, 30h	; '0'
		push	ax
		push	word_26D78
		mov	ax, word_2064E
		inc	ax
		push	ax
		call	super_put_rect

loc_1B021:
		pop	di
		pop	si
		leave
		retn
sub_1AE98	endp


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

; Attributes: bp-based frame

sub_1B025	proc near

var_E		= word ptr -0Eh
var_C		= word ptr -0Ch
var_A		= word ptr -0Ah
var_8		= byte ptr -8

		push	bp
		mov	bp, sp
		sub	sp, 0Eh
		push	si
		push	di
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 3
		xor	si, si
		xor	di, di
		jmp	short loc_1B057
; ---------------------------------------------------------------------------

loc_1B03E:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1B056
		mov	bx, di
		add	bx, bx
		lea	ax, [bp+var_A]
		add	bx, ax
		mov	ss:[bx], si
		inc	di

loc_1B056:
		inc	si

loc_1B057:
		cmp	si, 4
		jl	short loc_1B03E
		mov	bx, di
		add	bx, bx
		lea	ax, [bp+var_A]
		add	bx, ax
		mov	ax, [bp+var_A]
		mov	ss:[bx], ax
		xor	si, si
		jmp	short loc_1B0D7
; ---------------------------------------------------------------------------

loc_1B06F:
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_A]
		add	bx, ax
		mov	ax, ss:[bx]
		mov	[bp+var_C], ax
		mov	bx, si
		add	bx, bx
		lea	ax, [bp+var_8]
		add	bx, ax
		mov	ax, ss:[bx]
		mov	[bp+var_E], ax
		mov	bx, [bp+var_C]
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		mov	bx, [bp+var_C]
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		mov	bx, [bp+var_E]
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		mov	bx, [bp+var_E]
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 10h
		push	ax
		call	grcg_line
		inc	si

loc_1B0D7:
		cmp	si, di
		jl	short loc_1B06F
		call	grcg_off
		xor	si, si
		jmp	loc_1B192
; ---------------------------------------------------------------------------

loc_1B0E5:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 1
		jge	loc_1B191
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D3Eh], 0
		jz	short loc_1B16F
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		cmp	word ptr es:[bx], 0
		jle	short loc_1B163
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx-6D1Ah]
		cmp	word ptr es:[bx], 1A0h
		jge	short loc_1B163
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		cmp	word ptr es:[bx], 0
		jl	short loc_1B163
		mov	bx, si
		shl	bx, 2
		mov	bx, [bx-6D0Ah]
		cmp	word ptr es:[bx], 170h
		jg	short loc_1B163
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		push	word ptr es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		push	word ptr es:[bx]
		lea	ax, [si+8Ah]
		push	ax
		pushd	0FFC0h
		call	super_put_1plane

loc_1B163:
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D3Eh], 0
		jmp	short loc_1B191
; ---------------------------------------------------------------------------

loc_1B16F:
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		push	word ptr es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		push	word ptr es:[bx]
		lea	ax, [si+8Ah]
		push	ax
		call	super_put_rect

loc_1B191:
		inc	si

loc_1B192:
		cmp	si, 4
		jl	loc_1B0E5
		pop	di
		pop	si
		leave
		retn
sub_1B025	endp


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

; Attributes: bp-based frame

sub_1B19D	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1B1B9
		call	_snd_se_play c, 9
		mov	word_2064E, 82h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1B1B9:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_1B1D2
		call	_snd_se_play c, 10
		mov	word_2064E, 84h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1B1D2:
		cmp	word_20650, 6Ch	; 'l'
		jnz	short loc_1B1EB
		call	_snd_se_play c, 10
		mov	word_2064E, 86h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1B1EB:
		cmp	word_20650, 74h	; 't'
		jnz	short loc_1B204
		call	_snd_se_play c, 10
		mov	word_2064E, 88h
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1B204:
		cmp	word_20650, 82h
		jnz	short loc_1B212
		mov	word_2064E, 80h

loc_1B212:
		pop	bp
		retn
sub_1B19D	endp


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

; Attributes: bp-based frame

sub_1B214	proc near
		push	bp
		mov	bp, sp
		cmp	_rank, RANK_EASY
		jz	short loc_1B234
		mov	byte ptr word_2066E, 17h
		mov	byte ptr word_2066E+1, 11h
		mov	byte ptr word_20670, 2
		mov	byte ptr word_20670+1, 4
		pop	bp
		retn
; ---------------------------------------------------------------------------

loc_1B234:
		mov	byte ptr word_2066E, 18h
		mov	byte ptr word_2066E+1, 12h
		mov	byte ptr word_20670, 20h ; ' '
		mov	byte ptr word_20670+1, 2
		pop	bp
		retn
sub_1B214	endp


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

; Attributes: bp-based frame

sub_1B24A	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	loc_1B2E7
		call	sub_1B19D
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1B267
		mov	byte ptr word_26D7F, 18h
		jmp	short loc_1B27A
; ---------------------------------------------------------------------------

loc_1B267:
		cmp	word_20650, 82h
		jnz	short loc_1B27A
		mov	word_20650, 0
		mov	byte_26D7E, 0

loc_1B27A:
		cmp	word_20650, 64h	; 'd'
		jle	short loc_1B2E7
		mov	ax, word_20650
		mov	bx, 3
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1B2E7
		cmp	byte_26D7E, 0
		jz	short loc_1B2C6
		mov	ax, word_26D76
		add	ax, 24h	; '$'
		push	ax
		mov	ax, word_26D78
		add	ax, 40h
		push	ax
		push	word_26D7F
		push	20h ; ' '
		push	3Ch ; '<'
		call	sub_1078E
		mov	ax, word_26D76
		add	ax, 34h	; '4'
		push	ax
		mov	ax, word_26D78
		add	ax, 40h
		push	ax
		push	word_26D7F
		push	20h ; ' '
		push	3Ch ; '<'
		jmp	short loc_1B2DC
; ---------------------------------------------------------------------------

loc_1B2C6:
		mov	ax, word_26D76
		add	ax, 2Ch	; ','
		push	ax
		mov	ax, word_26D78
		add	ax, 40h
		push	ax
		push	word_26D7F
		push	20h ; ' '
		push	32h ; '2'

loc_1B2DC:
		call	sub_1078E
		mov	al, byte ptr word_26D7F
		add	al, 0Ah
		mov	byte ptr word_26D7F, al

loc_1B2E7:
		pop	bp
		retn
sub_1B24A	endp


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

; Attributes: bp-based frame

sub_1B2E9	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	short loc_1B35D
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1B30A
		call	_snd_se_play c, 9
		mov	word_2064E, 82h

loc_1B30A:
		mov	ax, word_20650
		mov	bx, 18h
		cwd
		idiv	bx
		or	dx, dx
		jnz	short loc_1B349
		mov	ax, word_26D76
		add	ax, 40h
		push	ax
		mov	ax, word_26D78
		add	ax, 10h
		push	ax
		push	0
		push	word_2066E
		push	36h ; '6'
		call	sub_1078E
		mov	ax, word_26D76
		add	ax, 40h
		push	ax
		mov	ax, word_26D78
		add	ax, 10h
		push	ax
		push	0
		push	word_2066E+1
		push	3Ch ; '<'
		call	sub_1078E

loc_1B349:
		cmp	word_20650, 0C0h
		jle	short loc_1B35D
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_1B35D:
		pop	bp
		retn
sub_1B2E9	endp


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

; Attributes: bp-based frame

sub_1B35F	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 32h	; '2'
		jl	short loc_1B3DC
		call	sub_1B19D
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1B39A
		call	_randring2_next8
		mov	byte ptr word_26D7F+1, al
		mov	al, byte_1EEA4
		mov	ah, 0
		mov	word_21744, ax
		mov	word_21746, 2
		mov	word_21748, 80h
		mov	al, byte_1EEA4
		mov	ah, 0
		imul	ax, -1
		mov	byte_1EEA4, al
		jmp	short loc_1B3A8
; ---------------------------------------------------------------------------

loc_1B39A:
		cmp	word_20650, 82h
		jnz	short loc_1B3A8
		mov	word_20650, 0

loc_1B3A8:
		cmp	word_20650, 64h	; 'd'
		jl	short loc_1B3DC
		test	byte ptr word_20650, 3
		jnz	short loc_1B3DC
		mov	ax, word_26D76
		add	ax, 2Ch	; ','
		push	ax
		mov	ax, word_26D78
		add	ax, 40h
		push	ax
		push	word_26D7F+1
		push	84h
		push	550028h
		call	sub_10865
		mov	al, byte ptr word_26D7F+1
		add	al, 2Bh	; '+'
		mov	byte ptr word_26D7F+1, al

loc_1B3DC:
		pop	bp
		retn
sub_1B35F	endp


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

; Attributes: bp-based frame

sub_1B3DE	proc near
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	loc_1B46D
; ---------------------------------------------------------------------------

loc_1B3E7:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1B46C
		mov	al, [si-6D20h]
		mov	bx, si
		add	bx, bx
		add	al, [bx-6D2Eh]
		mov	[si-6D20h], al
		mov	bx, si
		add	bx, bx
		movsx	eax, word ptr [bx-6D36h]
		mov	dl, [si-6D20h]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_26D76
		add	ax, 20h	; ' '
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	es:[bx], ax
		mov	bx, si
		add	bx, bx
		movsx	eax, word ptr [bx-6D36h]
		mov	dl, [si-6D20h]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, word_26D78
		add	ax, 20h	; ' '
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	es:[bx], ax

loc_1B46C:
		inc	si

loc_1B46D:
		cmp	si, 4
		jl	loc_1B3E7
		pop	si
		pop	bp
		retn
sub_1B3DE	endp


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

; Attributes: bp-based frame

sub_1B477	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		cmp	word_20650, 64h	; 'd'
		jl	loc_1B551
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_1B4A2
		call	_snd_se_play c, 9
		mov	word_2064E, 82h
		jmp	loc_1B52F
; ---------------------------------------------------------------------------

loc_1B4A2:
		cmp	word_20650, 82h
		jnz	short loc_1B51B
		mov	ax, word_26D76
		add	ax, 20h	; ' '
		mov	si, ax
		mov	ax, word_26D78
		add	ax, 20h	; ' '
		mov	di, ax
		mov	[bp+var_2], 0
		jmp	short loc_1B513
; ---------------------------------------------------------------------------

loc_1B4C1:
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	word ptr [bx-6D46h], 0
		mov	bx, [bp+var_2]
		mov	al, byte ptr [bp+var_2]
		shl	al, 6
		mov	[bx-6D20h], al
		add	bx, bx
		mov	word ptr [bx-6D36h], 8
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	word ptr [bx-6D2Eh], 2
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6D6Eh], si
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6D66h], si
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6D5Eh], di
		mov	bx, [bp+var_2]
		add	bx, bx
		mov	[bx-6D56h], di
		inc	[bp+var_2]

loc_1B513:
		cmp	[bp+var_2], 4
		jl	short loc_1B4C1
		jmp	short loc_1B52F
; ---------------------------------------------------------------------------

loc_1B51B:
		cmp	word_20650, 9Ah
		jnz	short loc_1B52F
		mov	word_2064E, 80h
		mov	word_20650, 0

loc_1B52F:
		cmp	word_20650, 82h
		jle	short loc_1B551
		mov	[bp+var_2], 0
		jmp	short loc_1B54B
; ---------------------------------------------------------------------------

loc_1B53E:
		mov	bx, [bp+var_2]
		add	bx, bx
		add	word ptr [bx-6D36h], 2
		inc	[bp+var_2]

loc_1B54B:
		cmp	[bp+var_2], 4
		jl	short loc_1B53E

loc_1B551:
		pop	di
		pop	si
		leave
		retn
sub_1B477	endp


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

; Attributes: bp-based frame

sub_1B555	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 0Ah
		jl	loc_1B662
		cmp	word_20650, 0Ah
		jnz	short loc_1B592
		mov	ax, word_26D76
		add	ax, 20h	; ' '
		cmp	ax, word_205F6
		jge	short loc_1B579
		mov	al, 1
		jmp	short loc_1B57B
; ---------------------------------------------------------------------------

loc_1B579:
		mov	al, 0FFh

loc_1B57B:
		mov	byte_26D81, al
		mov	ax, word_26D76
		mov	word_26D82, ax
		mov	ax, word_26D78
		add	ax, 70h	; 'p'
		mov	word_26D84, ax
		mov	byte_26D86, 0C0h

loc_1B592:
		mov	al, byte_26D81
		add	byte_26D86, al
		mov	al, byte_26D86
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _CosTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_26D82
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, byte_26D86
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		movsx	eax, _SinTable8[bx]
		imul	eax, 70h
		sar	eax, 8
		add	ax, word_26D84
		mov	bx, word_2065E
		mov	[bx], ax
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_26D76, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_26D78, ax
		test	byte ptr word_20650, 0Fh
		jnz	short loc_1B654
		push	3
		call	_randring2_next8_and
		mov	ah, 0
		mov	si, ax
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1B631
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		push	ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		push	ax
		push	0
		push	19h
		push	50h ; 'P'
		call	sub_1078E

loc_1B631:
		cmp	word_26D4A, 8
		jnz	short loc_1B654
		cmp	si, 1
		jge	short loc_1B654
		mov	ax, word_26D76
		add	ax, 40h
		push	ax
		mov	ax, word_26D78
		add	ax, 10h
		push	ax
		push	0
		push	0Ah
		push	50h ; 'P'
		call	sub_1078E

loc_1B654:
		cmp	word_20650, 10Ah
		jl	short loc_1B662
		mov	word_20650, 0

loc_1B662:
		pop	si
		pop	bp
		retn
sub_1B555	endp


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

; Attributes: bp-based frame

sub_1B665	proc near

arg_0		= word ptr  4

		push	bp
		mov	bp, sp
		push	si
		mov	si, [bp+arg_0]
		cmp	word_20650, si
		jl	short loc_1B6D5
		cmp	word_20650, si
		jnz	short loc_1B68A
		call	_snd_se_play c, 9

loc_1B682:
		mov	word_2064E, 82h
		jmp	short loc_1B6D5
; ---------------------------------------------------------------------------

loc_1B68A:
		lea	ax, [si+1Eh]
		cmp	ax, word_20650
		jz	short loc_1B682
		lea	ax, [si+24h]
		cmp	ax, word_20650
		jnz	short loc_1B6A4
		mov	word_2064E, 84h
		jmp	short loc_1B6D5
; ---------------------------------------------------------------------------

loc_1B6A4:
		lea	ax, [si+2Ah]
		cmp	ax, word_20650
		jnz	short loc_1B6B5
		mov	word_2064E, 86h
		jmp	short loc_1B6D5
; ---------------------------------------------------------------------------

loc_1B6B5:
		lea	ax, [si+32h]
		cmp	ax, word_20650
		jnz	short loc_1B6C6
		mov	word_2064E, 88h
		jmp	short loc_1B6D5
; ---------------------------------------------------------------------------

loc_1B6C6:
		lea	ax, [si+3Ch]
		cmp	ax, word_20650
		jnz	short loc_1B6D5
		mov	word_2064E, 80h

loc_1B6D5:
		pop	si
		pop	bp
		retn	2
sub_1B665	endp


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

; Attributes: bp-based frame

sub_1B6DA	proc near
		push	bp
		mov	bp, sp
		push	si
		cmp	word_20650, 32h	; '2'
		jl	loc_1B7D0
		cmp	word_20650, 118h
		jge	short loc_1B703
		xor	si, si
		jmp	short loc_1B6FC
; ---------------------------------------------------------------------------

loc_1B6F3:
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx-6D36h]
		inc	si

loc_1B6FC:
		cmp	si, 4
		jl	short loc_1B6F3
		jmp	short loc_1B72B
; ---------------------------------------------------------------------------

loc_1B703:
		cmp	word_20650, 1FEh
		jge	short loc_1B71F
		xor	si, si
		jmp	short loc_1B718
; ---------------------------------------------------------------------------

loc_1B70F:
		mov	bx, si
		add	bx, bx
		dec	word ptr [bx-6D36h]
		inc	si

loc_1B718:
		cmp	si, 4
		jl	short loc_1B70F
		jmp	short loc_1B72B
; ---------------------------------------------------------------------------

loc_1B71F:
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_1B72B:
		push	0DCh
		call	sub_1B665
		cmp	word_20650, 0DCh
		jnz	short loc_1B73E
		mov	byte ptr word_26D87, 0

loc_1B73E:
		cmp	word_26D4A, 8
		jnz	short loc_1B74B
		mov	word_2064E, 82h

loc_1B74B:
		cmp	word_20650, 0FAh
		jl	short loc_1B75B
		cmp	word_20650, 10Eh
		jl	short loc_1B762

loc_1B75B:
		cmp	word_26D4A, 8
		jnz	short loc_1B7D0

loc_1B762:
		cmp	word_26D4A, 8
		jz	short loc_1B79B
		mov	al, byte ptr word_26D87
		add	al, 0Dh
		mov	byte ptr word_26D87, al
		mov	al, _rank
		cbw
		mov	dx, word_20650
		and	dx, 1
		cmp	ax, dx
		jl	short loc_1B7D0
		mov	ax, word_26D76
		add	ax, 2Ch	; ','
		push	ax
		mov	ax, word_26D78
		add	ax, 40h
		push	ax
		push	word_26D87
		push	20h ; ' '
		push	32h ; '2'
		call	sub_1078E
		jmp	short loc_1B7D0
; ---------------------------------------------------------------------------

loc_1B79B:
		mov	al, byte ptr word_26D87
		add	al, 0Ah
		mov	byte ptr word_26D87, al
		mov	ax, word_26D76
		add	ax, 40h
		push	ax
		mov	ax, word_26D78
		add	ax, 10h
		push	ax
		push	word_26D87
		push	20h ; ' '
		push	3Ch ; '<'
		call	sub_1078E
		cmp	word_20650, 10Eh
		jle	short loc_1B7D0
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_1B7D0:
		pop	si
		pop	bp
		retn
sub_1B6DA	endp


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

; Attributes: bp-based frame

sub_1B7D3	proc near

var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 2
		push	si
		push	di
		cmp	word_20650, 0Ah
		jnz	short loc_1B7FA
		mov	word_26D42, 3
		mov	word_26D46, 3
		mov	word_26D44, 0FFFEh
		mov	word_26D48, 0FFFEh

loc_1B7FA:
		cmp	word_20650, 32h	; '2'
		jl	loc_1B992
		cmp	word_20650, 82h
		jge	short loc_1B823
		xor	si, si
		jmp	short loc_1B81B
; ---------------------------------------------------------------------------

loc_1B80F:
		mov	bx, si
		add	bx, bx
		add	word ptr [bx-6D36h], 2
		add	si, 2

loc_1B81B:
		cmp	si, 4
		jl	short loc_1B80F
		jmp	loc_1B8B2
; ---------------------------------------------------------------------------

loc_1B823:
		cmp	word_20650, 104h
		jl	loc_1B8B2
		cmp	word_20650, 154h
		jge	short loc_1B868
		xor	si, si
		jmp	short loc_1B845
; ---------------------------------------------------------------------------

loc_1B839:
		mov	bx, si
		add	bx, bx
		sub	word ptr [bx-6D36h], 2
		add	si, 2

loc_1B845:
		cmp	si, 4
		jl	short loc_1B839
		cmp	_rank, RANK_EASY
		jz	short loc_1B8B2
		mov	si, 1
		jmp	short loc_1B861
; ---------------------------------------------------------------------------

loc_1B856:
		mov	bx, si
		add	bx, bx
		inc	word ptr [bx-6D36h]
		add	si, 2

loc_1B861:
		cmp	si, 4
		jl	short loc_1B856
		jmp	short loc_1B8B2
; ---------------------------------------------------------------------------

loc_1B868:
		cmp	word_20650, 1A4h
		jge	short loc_1B88E
		cmp	_rank, RANK_EASY
		jz	short loc_1B8B2
		mov	si, 1
		jmp	short loc_1B887
; ---------------------------------------------------------------------------

loc_1B87C:
		mov	bx, si
		add	bx, bx
		dec	word ptr [bx-6D36h]
		add	si, 2

loc_1B887:
		cmp	si, 4
		jl	short loc_1B87C
		jmp	short loc_1B8B2
; ---------------------------------------------------------------------------

loc_1B88E:
		mov	word_26D42, 2
		mov	word_26D46, 2
		mov	word_26D44, 0FFFEh
		mov	word_26D48, 0FFFEh
		mov	word_20650, 0
		mov	word_2064E, 80h

loc_1B8B2:
		push	8Ch
		call	sub_1B665
		cmp	word_20650, 8Ch
		jnz	short loc_1B8C5
		mov	byte ptr word_26D87+1, 0

loc_1B8C5:
		cmp	word_26D4A, 8
		jnz	short loc_1B903
		mov	word_2064E, 82h
		mov	al, 18h
		sub	al, _rank
		mov	dl, byte ptr word_26D87+1
		sub	dl, al
		mov	byte ptr word_26D87+1, dl
		mov	ax, word_26D76
		add	ax, 40h
		push	ax
		mov	ax, word_26D78
		add	ax, 10h
		push	ax
		push	word_26D87+1
		push	0FFh
		push	55003Ch
		call	sub_10865
		jmp	loc_1B992
; ---------------------------------------------------------------------------

loc_1B903:
		cmp	word_20650, 96h
		jl	loc_1B992
		cmp	word_20650, 0FAh
		jge	short loc_1B992
		test	byte ptr word_20650, 3
		jnz	short loc_1B992
		mov	al, byte ptr word_26D87+1
		add	al, 3
		mov	byte ptr word_26D87+1, al
		call	_snd_se_play c, 10
		xor	si, si
		jmp	short loc_1B98D
; ---------------------------------------------------------------------------

loc_1B932:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1B98A
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	di, es:[bx]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		mov	[bp+var_2], ax
		or	di, di
		jle	short loc_1B98A
		cmp	di, 1A0h
		jge	short loc_1B98A
		cmp	[bp+var_2], 0
		jl	short loc_1B98A
		cmp	[bp+var_2], 170h
		jg	short loc_1B98A
		lea	ax, [di+0Ch]
		push	ax
		mov	ax, [bp+var_2]
		add	ax, 0Ch
		push	ax
		mov	al, [si-6D20h]
		add	al, byte ptr word_26D87+1
		push	ax
		push	20h ; ' '
		push	46h ; 'F'
		call	sub_1078E

loc_1B98A:
		add	si, 2

loc_1B98D:
		cmp	si, 4
		jl	short loc_1B932

loc_1B992:
		pop	di
		pop	si
		leave
		retn
sub_1B7D3	endp


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

; Attributes: bp-based frame

sub_1B996	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		cmp	word_20650, 0Ah
		jnz	short loc_1B9BD
		mov	word_26D42, 0FFFDh
		mov	word_26D46, 0FFFDh
		mov	word_26D44, 0FFFDh
		mov	word_26D48, 0FFFDh

loc_1B9BD:
		cmp	word_26D4A, 8
		jnz	short loc_1B9D0
		mov	word_2064E, 80h
		mov	word_20650, 0

loc_1B9D0:
		cmp	word_20650, 32h	; '2'
		jl	loc_1BAFB
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1BA0B
		mov	word_26D42, 0FFFCh
		mov	word_26D46, 0FFFCh
		mov	word_26D44, 0FFFCh
		mov	word_26D48, 0FFFCh
		call	_snd_se_play c, 9
		mov	word_2064E, 82h
		jmp	loc_1BAFB
; ---------------------------------------------------------------------------

loc_1BA0B:
		cmp	word_20650, 64h	; 'd'
		jnz	short loc_1BA7B
		call	_snd_se_play c, 3
		xor	si, si
		jmp	short loc_1BA73
; ---------------------------------------------------------------------------

loc_1BA20:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1BA72
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	di, ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	[bp+var_2], ax
		mov	[bp+var_4], 0FFC0h
		jmp	short loc_1BA6C
; ---------------------------------------------------------------------------

loc_1BA55:
		push	di
		push	[bp+var_2]
		mov	al, [si-6D20h]
		add	al, byte ptr [bp+var_4]
		push	ax
		push	20h ; ' '
		push	46h ; 'F'
		call	sub_1078E
		add	[bp+var_4], 10h

loc_1BA6C:
		cmp	[bp+var_4], 40h
		jl	short loc_1BA55

loc_1BA72:
		inc	si

loc_1BA73:
		cmp	si, 4
		jl	short loc_1BA20
		jmp	loc_1BAFB
; ---------------------------------------------------------------------------

loc_1BA7B:
		cmp	word_20650, 6Eh	; 'n'
		jnz	short loc_1BAFB
		call	_snd_se_play c, 3
		xor	si, si
		jmp	short loc_1BAF6
; ---------------------------------------------------------------------------

loc_1BA90:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1BAF5
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	di, ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	[bp+var_2], ax
		mov	[bp+var_4], 0FFBAh
		jmp	short loc_1BAE5
; ---------------------------------------------------------------------------

loc_1BAC5:
		push	di
		push	[bp+var_2]
		mov	al, [si-6D20h]
		add	al, byte ptr [bp+var_4]
		push	ax
		push	20h ; ' '
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 10h
		push	ax
		call	sub_1078E
		add	[bp+var_4], 0Ch

loc_1BAE5:
		cmp	[bp+var_4], 46h	; 'F'
		jl	short loc_1BAC5
		mov	bx, si
		add	bx, bx
		mov	word ptr [bx-6D46h], 1

loc_1BAF5:
		inc	si

loc_1BAF6:
		cmp	si, 4
		jl	short loc_1BA90

loc_1BAFB:
		pop	di
		pop	si
		leave
		retn
sub_1B996	endp


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

; Attributes: bp-based frame

sub_1BAFF	proc near

var_4		= word ptr -4
var_2		= word ptr -2

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		cmp	word_20650, 32h	; '2'
		jl	loc_1BC3F
		cmp	word_20650, 96h
		jl	short loc_1BB1D
		push	78h ; 'x'
		call	sub_1B665

loc_1BB1D:
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1BB4F
		call	_snd_se_play c, 9
		mov	word_2064E, 82h
		mov	byte_26D89, 0
		mov	byte_26D8A, 0
		mov	byte_26D8B, 0
		mov	byte_26D8C, 0
		mov	byte_26D8D, 0
		jmp	short loc_1BB85
; ---------------------------------------------------------------------------

loc_1BB4F:
		cmp	word_20650, 12Ch
		jnz	short loc_1BB85
		mov	word_20650, 0
		mov	ax, 0FFFFh
		imul	word_26D42
		mov	word_26D42, ax
		mov	ax, 0FFFFh
		imul	word_26D44
		mov	word_26D44, ax
		mov	ax, 0FFFFh
		imul	word_26D46
		mov	word_26D46, ax
		mov	ax, 0FFFFh
		imul	word_26D48
		mov	word_26D48, ax

loc_1BB85:
		cmp	word_20650, 46h	; 'F'
		jle	loc_1BC3F
		mov	ax, word_20650
		mov	bx, 5
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_1BC3F
		call	_snd_se_play c, 10
		xor	si, si
		jmp	short loc_1BC0F
; ---------------------------------------------------------------------------

loc_1BBAB:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1BC0E
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	di, ax
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 0Ch
		mov	[bp+var_2], ax
		mov	ax, word_20650
		sar	ax, 2
		add	ax, 19h
		mov	[bp+var_4], ax
		push	di
		push	[bp+var_2]
		mov	al, [si-6D20h]
		add	al, [si-6CE6h]
		push	ax
		push	20h ; ' '
		push	[bp+var_4]
		call	sub_1078E
		mov	al, [si-6CE6h]
		mov	bx, si
		add	bx, bx
		mov	dl, [bx-6D2Eh]
		add	dl, dl
		add	al, dl
		mov	[si-6CE6h], al

loc_1BC0E:
		inc	si

loc_1BC0F:
		cmp	si, 4
		jl	short loc_1BBAB
		cmp	word_26D4A, 8
		jnz	short loc_1BC3B
		test	byte_26D89, 1
		jnz	short loc_1BC3B
		mov	ax, word_26D76
		add	ax, 2Ch	; ','
		push	ax
		mov	ax, word_26D78
		add	ax, 2Ch	; ','
		push	ax
		push	word_20650
		push	25h ; '%'
		push	32h ; '2'
		call	sub_1078E

loc_1BC3B:
		inc	byte_26D89

loc_1BC3F:
		pop	di
		pop	si
		leave
		retn
sub_1BAFF	endp


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

; Attributes: bp-based frame

sub_1BC43	proc near

var_3		= word ptr -3

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		cmp	word_20650, 32h	; '2'
		jl	loc_1BE6F
		cmp	word_20650, 96h
		jl	short loc_1BC60
		push	78h ; 'x'
		call	sub_1B665

loc_1BC60:
		cmp	word_20650, 32h	; '2'
		jnz	short loc_1BCAE
		call	_snd_se_play c, 9
		mov	word_2064E, 82h
		mov	al, byte_1EEA5
		cbw
		mov	word_21744, ax
		mov	word_21746, 0
		mov	word_21748, 40h
		mov	al, byte_1EEA5
		cbw
		imul	ax, -1
		mov	byte_1EEA5, al
		mov	word_26D42, 2
		mov	word_26D46, 2
		mov	word_26D44, 0FFFEh
		mov	word_26D48, 0FFFEh
		jmp	short loc_1BD16
; ---------------------------------------------------------------------------

loc_1BCAE:
		cmp	word_20650, 46h	; 'F'
		jnz	short loc_1BCCF
		mov	word_26D42, 3
		mov	word_26D46, 3
		mov	word_26D44, 0FFFDh
		mov	word_26D48, 0FFFDh
		jmp	short loc_1BD16
; ---------------------------------------------------------------------------

loc_1BCCF:
		cmp	word_20650, 50h	; 'P'
		jnz	short loc_1BCF0
		mov	word_26D42, 4
		mov	word_26D46, 4
		mov	word_26D44, 0FFFCh
		mov	word_26D48, 0FFFCh
		jmp	short loc_1BD16
; ---------------------------------------------------------------------------

loc_1BCF0:
		cmp	word_20650, 0C8h
		jnz	short loc_1BD16
		mov	word_26D42, 2
		mov	word_26D46, 2
		mov	word_26D44, 0FFFEh
		mov	word_26D48, 0FFFEh
		mov	word_20650, 0

loc_1BD16:
		cmp	word_20650, 46h	; 'F'
		jle	loc_1BE6F
		mov	ax, word_20650
		mov	bx, 0Eh
		cwd
		idiv	bx
		or	dx, dx
		jnz	loc_1BE6F
		call	_snd_se_play c, 10
		cmp	word_20650, 78h	; 'x'
		jg	short loc_1BDAC
		mov	[bp+var_3+1], 0
		jmp	short loc_1BD86
; ---------------------------------------------------------------------------

loc_1BD46:
		mov	bx, [bp+var_3+1]
		add	bx, bx
		cmp	word ptr [bx-6D46h], 0
		jnz	short loc_1BD83
		mov	bx, [bp+var_3+1]
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	ax, es:[bx]
		add	ax, 8
		push	ax
		mov	bx, [bp+var_3+1]
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	ax, es:[bx]
		add	ax, 8
		push	ax
		push	0C0h
		push	0FFh
		push	550046h
		call	sub_10865

loc_1BD83:
		inc	[bp+var_3+1]

loc_1BD86:
		cmp	[bp+var_3+1], 4
		jl	short loc_1BD46
		mov	ax, word_26D76
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		push	ax
		push	0C0h
		push	0FFh
		push	550046h
		call	sub_10865
		jmp	loc_1BE2F
; ---------------------------------------------------------------------------

loc_1BDAC:
		mov	al, byte_1EEA5
		cbw
		cmp	ax, 1
		jnz	short loc_1BDBA
		mov	si, 190h
		jmp	short loc_1BDBD
; ---------------------------------------------------------------------------

loc_1BDBA:
		mov	si, 20h	; ' '

loc_1BDBD:
		mov	[bp+var_3+1], 0
		jmp	short loc_1BE25
; ---------------------------------------------------------------------------

loc_1BDC4:
		push	7
		call	_randring2_next8_and
		mov	dl, byte_1EEA5
		shl	dl, 4
		add	al, dl
		add	al, 40h
		mov	byte ptr [bp+var_3], al
		call	_randring2_next16
		mov	bx, 170h
		xor	dx, dx
		div	bx
		add	dx, 20h	; ' '
		push	dx
		push	10h
		push	[bp+var_3]
		push	0FFh
		push	55h ; 'U'
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 10h
		push	ax
		call	sub_10865
		push	si
		call	_randring2_next16
		mov	bx, 140h
		xor	dx, dx
		div	bx
		add	dx, 10h
		push	dx
		push	[bp+var_3]
		push	0FFh
		push	55h ; 'U'
		push	1Fh
		call	_randring2_next8_and
		mov	ah, 0
		add	ax, 10h
		push	ax
		call	sub_10865
		inc	[bp+var_3+1]

loc_1BE25:
		mov	al, byte ptr word_20670+1
		mov	ah, 0
		cmp	ax, [bp+var_3+1]
		jg	short loc_1BDC4

loc_1BE2F:
		cmp	word_26D4A, 8
		jnz	short loc_1BE6F
		mov	[bp+var_3+1], 0
		jmp	short loc_1BE69
; ---------------------------------------------------------------------------

loc_1BE3D:
		mov	ax, word_26D76
		add	ax, 28h	; '('
		push	ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		push	ax
		mov	al, byte ptr [bp+var_3+1]
		shl	al, 6
		mov	dl, byte ptr word_20650
		add	dl, dl
		add	al, dl
		push	ax
		push	85h
		push	550046h
		call	sub_10865
		inc	[bp+var_3+1]

loc_1BE69:
		cmp	[bp+var_3+1], 4
		jl	short loc_1BE3D

loc_1BE6F:
		pop	si
		leave
		retn
sub_1BC43	endp


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

; Attributes: bp-based frame

sub_1BE72	proc near
		push	bp
		mov	bp, sp
		cmp	word_20650, 1
		jz	short loc_1BEF0
		cmp	word_20650, 2
		jnz	short loc_1BEC5
		mov	ax, word_26D76
		add	ax, 20h	; ' '
		cmp	ax, word_205F6
		jge	short loc_1BE94
		mov	ax, 1
		jmp	short loc_1BE97
; ---------------------------------------------------------------------------

loc_1BE94:
		mov	ax, 0FFFFh

loc_1BE97:
		mov	word_26D8E, ax
		cmp	word_26D78, 48h	; 'H'
		jge	short loc_1BEA6
		mov	ax, 1
		jmp	short loc_1BEC2
; ---------------------------------------------------------------------------

loc_1BEA6:
		cmp	word_26D78, 6Ch	; 'l'
		jle	short loc_1BEB2
		mov	ax, 0FFFFh
		jmp	short loc_1BEC2
; ---------------------------------------------------------------------------

loc_1BEB2:
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	ax, 1
		sub	ax, dx

loc_1BEC2:
		mov	word_26D90, ax

loc_1BEC5:
		cmp	word_20650, 32h	; '2'
		jge	short loc_1BEF0
		mov	bx, word_2065C
		mov	ax, word_26D8E
		add	[bx], ax
		mov	bx, word_2065E
		mov	ax, word_26D90
		add	[bx], ax
		mov	bx, word_2065C
		mov	ax, [bx]
		mov	word_26D76, ax
		mov	bx, word_2065E
		mov	ax, [bx]
		mov	word_26D78, ax

loc_1BEF0:
		pop	bp
		retn
sub_1BE72	endp


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

; Attributes: bp-based frame

sub_1BEF2	proc far
		push	bp
		mov	bp, sp
		push	si
		push	di
		xor	si, si
		mov	word_26D4A, 0
		jmp	short loc_1BF0E
; ---------------------------------------------------------------------------

loc_1BF01:
		mov	bx, si
		add	bx, bx
		mov	ax, [bx-6D46h]
		add	word_26D4A, ax
		inc	si

loc_1BF0E:
		cmp	si, 4
		jl	short loc_1BF01
		cmp	word_26D4A, 8
		jnz	short loc_1BF2E
		mov	ax, word_26D76
		add	ax, 28h	; '('
		mov	word_205D8, ax
		mov	ax, word_26D78
		add	ax, 28h	; '('
		mov	word_205DA, ax
		jmp	short loc_1BF3A
; ---------------------------------------------------------------------------

loc_1BF2E:
		mov	word_205D8, 0FFFFh
		mov	word_205DA, 0FFFFh

loc_1BF3A:
		inc	word_20650
		test	byte ptr dword_20612, 1
		jz	short loc_1BF78
		cmp	byte_2066C, 0
		jz	short loc_1BF53
		test	byte ptr dword_20612, 3
		jz	short loc_1BF78

loc_1BF53:
		call	_randring2_next16
		mov	bx, 180h
		xor	dx, dx
		div	bx
		add	dx, 20h	; ' '
		mov	di, dx
		push	dx
		push	10h
		mov	ax, 0E0h
		sub	ax, di
		mov	bx, 3
		cwd
		idiv	bx
		add	al, 40h
		push	ax
		call	sub_3E1C

loc_1BF78:
		test	byte ptr dword_20612, 1Fh
		jnz	short loc_1BF9E
		inc	byte_26D4C
		mov	al, byte_26D4C
		cbw
		cmp	ax, 6
		jl	short loc_1BF91
		mov	byte_26D4C, 0

loc_1BF91:
		mov	al, byte_26D4C
		cbw
		mov	bx, ax
		mov	al, [bx+1420h]
		mov	byte_1FFF8, al

loc_1BF9E:
		call	sub_3F8A
		cmp	byte_2066A, 0
		jnz	loc_1C11A
		cmp	word_26CFC, 0
		jnz	short loc_1BFC6
		call	sub_1B24A
		cmp	word_20650, 0
		jnz	loc_1C11A
		inc	word_26CFC
		jmp	loc_1C11A
; ---------------------------------------------------------------------------

loc_1BFC6:
		cmp	word_26CFC, 1
		jnz	short loc_1BFEA
		call	sub_1B477
		cmp	word_20650, 0
		jnz	loc_1C11A
		inc	word_26CFC
		mov	byte_26D4D, 1
		mov	byte_26D92, 0
		jmp	loc_1C11A
; ---------------------------------------------------------------------------

loc_1BFEA:
		cmp	word_26CFC, 2
		jnz	loc_1C11A
		mov	al, byte_26D4D
		cbw
		cmp	ax, 2
		jz	short loc_1C059
		jg	short loc_1C011
		sub	ax, 0FFFDh
		mov	bx, ax
		cmp	bx, 4
		ja	loc_1C10E
		add	bx, bx
		jmp	cs:off_1C160[bx]
; ---------------------------------------------------------------------------

loc_1C011:
		cmp	ax, 5
		jz	short loc_1C074
		jg	short loc_1C025
		cmp	ax, 3
		jz	short loc_1C062
		cmp	ax, 4
		jz	short loc_1C06B
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C025:
		cmp	ax, 6
		jz	short loc_1C07D
		cmp	ax, 7Fh
		jz	short loc_1C086
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C032:
		call	sub_1B35F
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C03B:
		call	sub_1B2E9
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C044:
		call	sub_1B24A
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C04D:
		call	sub_1B477
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C053:
		call	sub_1B555
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C059:
		call	sub_1B6DA
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C062:
		call	sub_1BAFF
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C06B:
		call	sub_1BC43
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C074:
		call	sub_1B7D3
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C07D:
		call	sub_1B996
		call	sub_1BE72
		jmp	loc_1C10E
; ---------------------------------------------------------------------------

loc_1C086:
		call	sub_1BE72
		cmp	word_20650, 1Eh
		jle	short loc_1C10E
		cmp	word_26D4A, 8
		jge	short loc_1C0BC
		cmp	byte_26D92, 4
		jb	short loc_1C0A5
		mov	byte_26D4D, 6
		jmp	short loc_1C108
; ---------------------------------------------------------------------------

loc_1C0A5:
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 5
		cwd
		idiv	bx
		inc	dl
		mov	byte_26D4D, dl
		inc	byte_26D92
		jmp	short loc_1C108
; ---------------------------------------------------------------------------

loc_1C0BC:
		mov	al, byte_26D4E
		cbw
		cmp	ax, 2
		jl	short loc_1C0F2
		mov	byte_26D92, 0
		mov	byte_26D4D, 0
		mov	byte_26D4E, 0
		inc	byte_26D4F
		cmp	byte_26D4F, 2
		jb	short loc_1C0E4
		mov	byte_1EE96, 1

loc_1C0E4:
		cmp	byte_26D4F, 7
		jb	short loc_1C108
		mov	byte_2066A, 1
		jmp	short loc_1C108
; ---------------------------------------------------------------------------

loc_1C0F2:
		inc	byte_26D4E
		call	_randring2_next8
		mov	ah, 0
		mov	bx, 3
		cwd
		idiv	bx
		mov	al, 0FFh
		sub	al, dl
		mov	byte_26D4D, al

loc_1C108:
		mov	word_20650, 1

loc_1C10E:
		cmp	word_20650, 0
		jnz	short loc_1C11A
		mov	byte_26D4D, 7Fh

loc_1C11A:
		call	sub_1AA60
		call	sub_1AB35
		cmp	byte_2066A, 0
		jz	short loc_1C133
		call	sub_1AC7B
		or	ax, ax
		jz	short loc_1C136
		mov	ax, 2
		jmp	short loc_1C15B
; ---------------------------------------------------------------------------

loc_1C133:
		call	sub_1AE98

loc_1C136:
		xor	si, si
		jmp	short loc_1C14D
; ---------------------------------------------------------------------------

loc_1C13A:
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 1
		jnz	short loc_1C14C
		push	si
		call	sub_1AD80
		add	sp, 2

loc_1C14C:
		inc	si

loc_1C14D:
		cmp	si, 4
		jl	short loc_1C13A
		call	sub_1B3DE
		call	sub_1B025
		mov	ax, 1

loc_1C15B:
		pop	di
		pop	si
		pop	bp
		retf
sub_1BEF2	endp

; ---------------------------------------------------------------------------
		db 0
off_1C160	dw offset loc_1C032
		dw offset loc_1C03B
		dw offset loc_1C044
		dw offset loc_1C04D
		dw offset loc_1C053

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

; Attributes: bp-based frame

sub_1C16A	proc far
		push	bp
		mov	bp, sp
		push	si
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE2h
		mov	word_2065C, ax
		mov	al, _page_back
		mov	ah, 0
		add	ax, ax
		add	ax, 2BE6h
		mov	word_2065E, ax
		call	egc_off
		call	grcg_setcolor pascal, (GC_RMW shl 16) + 0
		push	40010h
		push	33017Fh
		call	grcg_byteboxfill_x
		call	sub_3EF4
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE2h]
		mov	bx, word_2065C
		mov	[bx], ax
		mov	al, _page_front
		mov	ah, 0
		add	ax, ax
		mov	bx, ax
		mov	ax, [bx+2BE6h]
		mov	bx, word_2065E
		mov	[bx], ax
		xor	si, si
		jmp	loc_1C261
; ---------------------------------------------------------------------------

loc_1C1D9:
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		add	ax, 9292h
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx-6D18h], ds
		mov	[bx-6D1Ah], ax
		mov	al, _page_back
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		add	ax, 92A2h
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx-6D08h], ds
		mov	[bx-6D0Ah], ax
		mov	bx, si
		add	bx, bx
		cmp	word ptr [bx-6D46h], 2
		jge	short loc_1C260
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6D6Eh]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D1Ah]
		mov	es:[bx], ax
		mov	al, _page_front
		mov	ah, 0
		shl	ax, 3
		mov	dx, si
		add	dx, dx
		add	ax, dx
		mov	bx, ax
		mov	ax, [bx-6D5Eh]
		mov	bx, si
		shl	bx, 2
		les	bx, [bx-6D0Ah]
		mov	es:[bx], ax

loc_1C260:
		inc	si

loc_1C261:
		cmp	si, 4
		jl	loc_1C1D9
		call	grcg_off
		pop	si
		pop	bp
		retf
sub_1C16A	endp


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

; Attributes: bp-based frame

sub_1C270	proc far
		push	bp
		mov	bp, sp
		call	sub_12DE0
		call	sub_131D9
		call	sub_FC53

loc_1C27C:
		call	sub_E162
		inc	stage_id
		pop	bp

locret_1C286:
		retf
sub_1C270	endp

main_03_TEXT	ends

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

; Segment type:	Pure code
main_04_TEXT	segment	byte public 'CODE' use16
		assume cs:main_04_TEXT
		;org 7
		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

sub_1C287	proc far

var_4		= byte ptr -4
var_3		= byte ptr -3
var_2		= word ptr -2
arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah
arg_6		= word ptr  0Ch

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	di, [bp+arg_6]
		mov	si, [bp+arg_2]
		mov	ax, si
		sar	ax, 6
		inc	al
		mov	[bp+var_4], al
		mov	[bp+var_2], 0
		jmp	loc_1C332
; ---------------------------------------------------------------------------

loc_1C2A7:
		mov	al, byte ptr [bp+var_2]
		mov	[bp+var_3], al
		movsx	eax, si
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, di
		mov	word_20164, ax
		movsx	eax, si
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_4]
		mov	word_20166, ax
		cmp	word_20164, 1A0h
		jge	short loc_1C32C
		cmp	word_20164, 18h
		jle	short loc_1C32C
		cmp	word_20166, 8
		jle	short loc_1C32C
		cmp	word_20166, 180h
		jge	short loc_1C32C
		mov	ax, _scroll_line
		add	word_20166, ax
		cmp	word_20166, RES_Y
		jl	short loc_1C321
		sub	word_20166, RES_Y

loc_1C321:
		mov	al, [bp+var_4]
		mov	ah, 0
		push	ax
		call	sub_3E6A

loc_1C32C:
		mov	ax, [bp+arg_0]
		add	[bp+var_2], ax

loc_1C332:
		cmp	[bp+var_2], 100h
		jb	loc_1C2A7
		pop	di
		pop	si
		leave
		retf	8
sub_1C287	endp


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

; Attributes: bp-based frame

sub_1C341	proc far

var_4		= byte ptr -4
var_3		= byte ptr -3
var_2		= word ptr -2
arg_0		= word ptr  6
arg_2		= word ptr  8
arg_4		= word ptr  0Ah
arg_6		= word ptr  0Ch

		push	bp
		mov	bp, sp
		sub	sp, 4
		push	si
		push	di
		mov	ax, [bp+arg_2]
		sar	ax, 6
		inc	al
		mov	[bp+var_4], al
		mov	[bp+var_2], 0
		jmp	short loc_1C3D2
; ---------------------------------------------------------------------------

loc_1C35B:
		mov	al, byte ptr [bp+var_2]
		mov	[bp+var_3], al
		movsx	eax, [bp+arg_2]
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _CosTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_6]
		mov	si, ax
		movsx	eax, [bp+arg_2]
		mov	dl, [bp+var_3]
		mov	dh, 0
		add	dx, dx
		mov	bx, dx
		movsx	edx, _SinTable8[bx]
		imul	eax, edx
		sar	eax, 8
		add	ax, [bp+arg_4]
		mov	di, ax
		cmp	si, 1A0h
		jge	short loc_1C3CC
		cmp	si, 18h
		jle	short loc_1C3CC
		cmp	di, 8
		jle	short loc_1C3CC
		cmp	di, 180h
		jge	short loc_1C3CC
		push	si
		push	ax
		mov	al, [bp+var_4]
		mov	ah, 0
		push	ax
		mov	al, [bp+var_4]
		mov	ah, 0
		push	ax
		call	sub_45FC

loc_1C3CC:
		mov	ax, [bp+arg_0]

loc_1C3CF:
		add	[bp+var_2], ax

loc_1C3D2:
		cmp	[bp+var_2], 100h
		jb	short loc_1C35B
		pop	di
		pop	si
		leave
		retf	8
sub_1C341	endp

main_04_TEXT	ends

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

; Segment type:	Pure code
main_05_TEXT	segment	byte public 'CODE' use16
		assume cs:main_05_TEXT
		;org 0Fh
		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

sub_1C3DF	proc far

src		= dword	ptr -14h
dest		= dword	ptr -10h
var_A		= word ptr -0Ah
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		enter	14h, 0
		push	si
		push	di
		mov	word ptr [bp-0Ch], ds
		mov	word ptr [bp+dest+2], 111Ah
		les	bx, [bp+dest+2]
		mov	al, stage_id
		add	al, 30h	; '0'
		mov	es:[bx+5], al
		push	word ptr [bp-0Ch]
		push	bx
		call	file_ropen
		push	ss
		lea	ax, [bp+var_A]
		push	ax
		push	4
		call	file_read
		push	[bp+var_A]
		call	hmem_allocbyte
		mov	[bp+var_6], ax
		mov	word ptr [bp+src+2], ax
		mov	word ptr [bp+src], 0
		push	ax
		push	word ptr [bp+src]
		push	[bp+var_A]
		call	file_read
		call	file_close
		les	bx, [bp+src]
		mov	ax, es:[bx]
		mov	word_22FD8, ax
		add	word ptr [bp+src], 2
		xor	di, di
		jmp	short loc_1C451
; ---------------------------------------------------------------------------

loc_1C443:
		les	bx, [bp+src]
		mov	al, es:[bx]
		mov	[di+4BE6h], al
		inc	word ptr [bp+src]
		inc	di

loc_1C451:
		cmp	di, word_22FD8
		jl	short loc_1C443
		les	bx, [bp+src]
		mov	ax, es:[bx]
		mov	[bp+var_2], ax
		add	word ptr [bp+src], 2
		mov	byte_22FDB, 0
		mov	word ptr [bp+dest], 7F06h
		xor	di, di
		jmp	loc_1C55E
; ---------------------------------------------------------------------------

loc_1C473:
		push	1Ch		; n
		pushd	[bp+src]	; src
		push	ds
		push	word ptr [bp+dest] ; dest
		call	_memcpy
		add	sp, 0Ah
		add	word ptr [bp+src], 1Ch
		mov	bx, di
		imul	bx, 24h
		mov	bx, [bx+7F0Eh]
		add	bx, bx
		mov	ax, [bx+1EDAh]
		shr	ax, 8
		shl	ax, 3
		mov	bx, word ptr [bp+dest]
		mov	[bx+1Ch], ax
		mov	bx, di
		imul	bx, 24h
		mov	bx, [bx+7F0Eh]
		add	bx, bx
		mov	ax, [bx+1EDAh]
		and	ax, 0FFh
		mov	bx, word ptr [bp+dest]
		mov	[bx+1Eh], ax
		mov	ax, [bx+1Ah]
		mov	[bp+var_4], ax
		cmp	_rank, RANK_EASY
		jnz	short loc_1C4CE
		shl	[bp+var_4], 1
		jmp	short loc_1C4DF
; ---------------------------------------------------------------------------

loc_1C4CE:
		cmp	_rank, RANK_HARD
		jz	short loc_1C4DC
		cmp	_rank, RANK_LUNATIC
		jnz	short loc_1C4DF

loc_1C4DC:
		sar	[bp+var_4], 1

loc_1C4DF:
		mov	bx, word ptr [bp+dest]
		mov	ax, [bp+var_4]
		mov	[bx+1Ah], ax
		les	bx, [bp+src]
		cmp	byte ptr es:[bx], 0FEh
		jnz	short loc_1C513
		inc	word ptr [bp+src]
		les	bx, [bp+src]
		mov	al, es:[bx]
		mov	ah, 0
		shl	ax, 6
		add	ax, 556Ch
		mov	bx, word ptr [bp+dest]
		mov	word ptr [bx+22h], ds
		mov	[bx+20h], ax
		inc	word ptr [bp+src]
		inc	word ptr [bp+src]
		jmp	short loc_1C559
; ---------------------------------------------------------------------------

loc_1C513:
		mov	[bp+var_4], 0

loc_1C518:
		mov	al, byte_22FDB
		mov	ah, 0
		shl	ax, 6
		add	ax, [bp+var_4]
		les	bx, [bp+src]
		mov	dl, es:[bx]
		mov	bx, ax
		mov	[bx+556Ch], dl
		inc	word ptr [bp+src]
		inc	[bp+var_4]
		les	bx, [bp+src]
		cmp	byte ptr es:[bx], 0FFh
		jnz	short loc_1C518
		inc	word ptr [bp+src]
		mov	al, byte_22FDB
		mov	ah, 0
		shl	ax, 6
		add	ax, 556Ch
		mov	bx, word ptr [bp+dest]
		mov	word ptr [bx+22h], ds
		mov	[bx+20h], ax
		inc	byte_22FDB

loc_1C559:
		inc	di
		add	word ptr [bp+dest], 24h	; '$'

loc_1C55E:
		cmp	di, [bp+var_2]
		jl	loc_1C473
		les	bx, [bp+src]
		mov	ax, es:[bx]
		mov	[bp+var_2], ax
		add	word ptr [bp+src], 2
		mov	word_26C3A, ax
		xor	di, di
		jmp	short loc_1C594
; ---------------------------------------------------------------------------

loc_1C579:
		mov	ax, [bp+var_2]
		add	ax, ax
		push	ax
		call	hmem_allocbyte
		mov	bx, di
		shl	bx, 2
		mov	[bx-6EF8h], ax
		mov	word ptr [bx-6EFAh], 0
		inc	di

loc_1C594:
		cmp	di, 31h	; '1'
		jl	short loc_1C579
		xor	di, di
		jmp	short loc_1C5F7
; ---------------------------------------------------------------------------

loc_1C59D:
		mov	ax, di
		add	ax, ax
		les	bx, dword_26B76
		add	bx, ax
		push	es
		les	si, [bp+src]
		mov	ax, es:[si]
		pop	es
		mov	es:[bx], ax
		add	word ptr [bp+src], 2
		mov	[bp+var_4], 1
		jmp	short loc_1C5F0
; ---------------------------------------------------------------------------

loc_1C5BD:
		mov	bx, [bp+var_4]
		shl	bx, 2
		les	bx, [bx-6EFAh]
		mov	ax, di
		add	ax, ax
		add	bx, ax
		push	es
		push	bx
		les	bx, [bp+src]
		cmp	byte ptr es:[bx], 0FFh
		jnz	short loc_1C5DD
		mov	ax, 0FFFFh
		jmp	short loc_1C5E5
; ---------------------------------------------------------------------------

loc_1C5DD:
		les	bx, [bp+src]
		mov	al, es:[bx]
		mov	ah, 0

loc_1C5E5:
		pop	bx
		pop	es
		mov	es:[bx], ax
		inc	word ptr [bp+src]
		inc	[bp+var_4]

loc_1C5F0:
		cmp	[bp+var_4], 31h	; '1'
		jl	short loc_1C5BD
		inc	di

loc_1C5F7:
		cmp	di, [bp+var_2]
		jl	short loc_1C59D
		push	[bp+var_6]
		call	hmem_free
		pop	di
		pop	si
		leave
		retf
sub_1C3DF	endp


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

; Attributes: bp-based frame

sub_1C608	proc far
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_1C63F
; ---------------------------------------------------------------------------

loc_1C610:
		mov	bx, si
		shl	bx, 2
		mov	ax, [bx-6EFAh]
		or	ax, [bx-6EF8h]
		jz	short loc_1C63E
		mov	bx, si
		shl	bx, 2
		push	word ptr [bx-6EF8h]
		call	hmem_free
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx-6EF8h], 0
		mov	word ptr [bx-6EFAh], 0

loc_1C63E:
		inc	si

loc_1C63F:
		cmp	si, 31h	; '1'
		jl	short loc_1C610
		pop	si
		pop	bp

locret_1C646:
		retf
sub_1C608	endp

main_05_TEXT	ends

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

; Segment type:	Pure code
main_06_TEXT	segment	byte public 'CODE' use16
		assume cs:main_06_TEXT
		;org 7
		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

sub_1C647	proc far
		push	bp
		mov	bp, sp
		push	si
		xor	si, si
		jmp	short loc_1C6BF
; ---------------------------------------------------------------------------

loc_1C64F:
		mov	word_252FE, 0
		mov	ax, si
		imul	ax, 3E8h
		mov	dx, 2710h
		sub	dx, ax
		movsx	eax, dx
		mov	bx, si
		shl	bx, 2
		mov	[bx+7890h], eax
		mov	ax, si
		sar	ax, 1
		mov	dl, 5
		sub	dl, al
		mov	[si+7903h], dl
		xor	cx, cx
		jmp	short loc_1C68B
; ---------------------------------------------------------------------------

loc_1C67E:
		mov	bx, si
		imul	bx, 7
		add	bx, cx
		mov	byte ptr [bx+78BCh], 0DAh
		inc	cx

loc_1C68B:
		cmp	cx, 6
		jl	short loc_1C67E
		mov	bx, si
		imul	bx, 7
		mov	byte ptr [bx+78C2h], 0
		mov	bx, si
		shl	bx, 2
		mov	word ptr [bx+790Eh], 76Ch
		mov	bx, si
		shl	bx, 2
		mov	byte ptr [bx+7910h], 1
		mov	bx, si
		shl	bx, 2
		mov	byte ptr [bx+7911h], 1
		mov	byte ptr [si+7936h], 1
		inc	si

loc_1C6BF:
		cmp	si, 0Ah
		jl	short loc_1C64F
		pop	si
		pop	bp
		retf
sub_1C647	endp


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

; Attributes: bp-based frame

sub_1C6C7	proc near
		push	bp
		mov	bp, sp
		push	si
		pushd	[HUUHI_DAT]
		call	file_ropen
		mov	al, _rank
		cbw
		imul	ax, 0B6h
		movzx	eax, ax
		push	eax
		push	0
		call	file_seek
		push	ds
		push	offset word_252FE
		push	0B6h
		call	file_read
		xor	si, si
		jmp	short loc_1C705
; ---------------------------------------------------------------------------

loc_1C6FA:
		mov	al, [si+788Eh]
		add	al, 0EEh
		mov	[si+788Eh], al
		inc	si

loc_1C705:
		cmp	si, 0B2h
		jl	short loc_1C6FA
		call	file_close
		pop	si
		pop	bp
		retn
sub_1C6C7	endp


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

; Attributes: bp-based frame

sub_1C713	proc far

var_B		= byte ptr -0Bh
var_A		= dword	ptr -0Ah
var_6		= dword	ptr -6
var_2		= word ptr -2
arg_0		= word ptr  6
arg_2		= dword	ptr  8
arg_6		= word ptr  0Ch

		enter	0Ch, 0
		push	si
		mov	[bp+var_6], 989680h
		mov	[bp+var_B], 0
		mov	si, 1Ah
		jmp	short loc_1C77B
; ---------------------------------------------------------------------------

loc_1C729:
		mov	eax, [bp+arg_2]
		cdq
		idiv	[bp+var_6]
		mov	ebx, 0Ah
		cdq
		idiv	ebx
		mov	[bp+var_A], edx
		mov	eax, [bp+var_6]
		cdq
		idiv	ebx
		mov	[bp+var_6], eax
		mov	ax, word ptr [bp+var_A]
		add	ax, 0A0h
		mov	[bp+var_2], ax
		cmp	[bp+var_A], 0
		jz	short loc_1C763
		mov	[bp+var_B], 1

loc_1C763:
		cmp	[bp+var_B], 0
		jz	short loc_1C778
		call	gaiji_putca pascal, si, [bp+arg_6], [bp+var_2], [bp+arg_0]

loc_1C778:
		add	si, 2

loc_1C77B:
		cmp	si, 2Ah	; '*'
		jl	short loc_1C729
		pop	si
		leave
		retf	8
sub_1C713	endp


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

; Attributes: bp-based frame

sub_1C785	proc near

var_2		= word ptr -2
arg_0		= word ptr  4

		enter	2, 0
		push	si
		push	di
		mov	di, TX_WHITE
		call	gaiji_putsa pascal, (20 shl 16) + 2, ds, offset gHI_SCORE, TX_GREEN
		call	gaiji_putsa pascal, (12 shl 16) + 4, ds, offset gNAME, TX_GREEN
		call	gaiji_putsa pascal, (27 shl 16) + 4, ds, offset gPOINT, TX_GREEN
		call	gaiji_putsa pascal, (41 shl 16) + 4, ds, offset gST, TX_GREEN
		cmp	[bp+arg_0], 0FFFFh
		jz	short loc_1C82E
		xor	si, si
		jmp	short loc_1C815
; ---------------------------------------------------------------------------

loc_1C7E0:
		mov	[bp+var_2], 0
		jmp	short loc_1C80E
; ---------------------------------------------------------------------------

loc_1C7E7:
		mov	ax, [bp+var_2]
		add	ax, ax
		add	ax, 0Ah
		push	ax
		lea	ax, [si+12h]
		push	ax
		mov	bx, si
		imul	bx, 11h
		add	bx, [bp+var_2]
		mov	al, gALPHABET[bx]
		mov	ah, 0
		push	ax
		push	TX_WHITE
		call	gaiji_putca
		inc	[bp+var_2]

loc_1C80E:
		cmp	[bp+var_2], 11h
		jl	short loc_1C7E7
		inc	si

loc_1C815:
		cmp	si, 3
		jl	short loc_1C7E0
		push	(10 shl 16) + 18
		mov	al, gALPHABET
		mov	ah, 0
		push	ax
		push	TX_GREEN + TX_REVERSE
		call	gaiji_putca

loc_1C82E:
		xor	si, si
		jmp	short loc_1C891
; ---------------------------------------------------------------------------

loc_1C832:
		cmp	si, [bp+arg_0]
		jnz	short loc_1C83C
		mov	di, TX_GREEN
		jmp	short loc_1C83F
; ---------------------------------------------------------------------------

loc_1C83C:
		mov	di, TX_WHITE

loc_1C83F:
		push	0Ah
		lea	ax, [si+6]
		push	ax
		mov	ax, si
		imul	ax, 7
		add	ax, 78BCh
		push	ds
		push	ax
		push	di
		call	gaiji_putsa
		lea	ax, [si+6]
		push	ax
		mov	bx, si
		shl	bx, 2
		pushd	dword ptr [bx+7890h]
		push	di
		call	sub_1C713
		cmp	byte ptr [si+7903h], 7Fh
		jz	short loc_1C881
		push	44
		lea	ax, [si+6]
		push	ax
		mov	al, [si+7903h]
		mov	ah, 0
		add	ax, 0A0h
		push	ax
		jmp	short loc_1C88A
; ---------------------------------------------------------------------------

loc_1C881:
		push	44
		lea	ax, [si+6]
		push	ax
		push	0F0h

loc_1C88A:
		push	di
		call	gaiji_putca
		inc	si

loc_1C891:
		cmp	si, 0Ah
		jl	short loc_1C832
		xor	si, si
		jmp	short loc_1C8D8
; ---------------------------------------------------------------------------

loc_1C89A:
		cmp	si, [bp+arg_0]
		jnz	short loc_1C8A4
		mov	di, TX_GREEN
		jmp	short loc_1C8A7
; ---------------------------------------------------------------------------

loc_1C8A4:
		mov	di, TX_WHITE

loc_1C8A7:
		cmp	si, 9
		jz	short loc_1C8B9
		push	6
		lea	ax, [si+6]
		push	ax
		lea	ax, [si+0A1h]
		push	ax
		jmp	short loc_1C8D1
; ---------------------------------------------------------------------------

loc_1C8B9:
		push	(5 shl 16) + 15
		push	0A1h
		push	di
		call	gaiji_putca
		push	(7 shl 16) + 15
		push	0A0h

loc_1C8D1:
		push	di
		call	gaiji_putca
		inc	si

loc_1C8D8:
		cmp	si, 0Ah
		jl	short loc_1C89A
		pop	di
		pop	si
		leave
		retn	2
sub_1C785	endp


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

; Attributes: bp-based frame

sub_1C8E3	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6
arg_4		= word ptr  8

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, [bp+arg_4]
		mov	di, [bp+arg_2]
		mov	ax, si
		add	ax, ax
		add	ax, 0Ah
		push	ax
		lea	ax, [di+12h]
		push	ax
		mov	bx, di
		imul	bx, 11h
		mov	al, [bx+si+1351h]
		mov	ah, 0
		push	ax
		push	[bp+arg_0]
		call	gaiji_putca
		pop	di
		pop	si
		pop	bp
		retn	6
sub_1C8E3	endp


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

; Attributes: bp-based frame

sub_1C914	proc near

arg_0		= word ptr  4
arg_2		= word ptr  6

		push	bp
		mov	bp, sp
		push	si
		push	di
		mov	si, [bp+arg_2]
		mov	di, [bp+arg_0]
		push	0Ah
		lea	ax, [si+6]
		push	ax
		mov	ax, si
		imul	ax, 7
		add	ax, 78BCh
		push	ds
		push	ax
		push	TX_GREEN
		call	gaiji_putsa
		mov	ax, di
		add	ax, ax
		add	ax, 0Ah
		push	ax
		lea	ax, [si+6]
		push	ax
		mov	bx, si
		imul	bx, 7
		mov	al, [bx+di+78BCh]
		mov	ah, 0
		push	ax
		push	TX_GREEN + TX_REVERSE
		call	gaiji_putca
		pop	di
		pop	si
		pop	bp
		retn	4
sub_1C914	endp


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

; Attributes: bp-based frame

sub_1C95D	proc far
		push	bp
		mov	bp, sp
		push	si
		mov	dword_25328, 0
		mov	byte_25372, 0
		mov	byte_2537D, 0
		mov	dword_253B0, 0
		xor	si, si
		jmp	short loc_1C9A6
; ---------------------------------------------------------------------------

loc_1C981:
		mov	bx, si
		shl	bx, 2
		mov	eax, [bx+7890h]
		add	dword_25328, eax
		mov	bx, si
		imul	bx, 7
		mov	al, [bx+78BCh]
		add	byte_25372, al
		mov	al, [si+7903h]
		add	byte_2537D, al
		inc	si

loc_1C9A6:
		cmp	si, 0Ah
		jl	short loc_1C981
		xor	si, si
		jmp	short loc_1C9C5
; ---------------------------------------------------------------------------

loc_1C9AF:
		movzx	eax, byte ptr [si+788Eh]
		add	dword_253B0, eax
		mov	al, [si+788Eh]
		add	al, 12h
		mov	[si+788Eh], al
		inc	si

loc_1C9C5:
		cmp	si, 0B2h
		jl	short loc_1C9AF
		pushd	[HUUHI_DAT]
		call	file_append
		mov	al, _rank
		cbw
		imul	ax, 0B6h
		movzx	eax, ax
		push	eax
		push	0
		call	file_seek
		push	ds
		push	offset word_252FE
		push	0B6h
		call	file_write
		call	file_close
		pop	si
		pop	bp
		retf
sub_1C95D	endp


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

; Attributes: bp-based frame

sub_1C9FE	proc far

var_B		= byte ptr -0Bh
var_A		= word ptr -0Ah
var_8		= word ptr -8
var_6		= word ptr -6
var_4		= word ptr -4
var_2		= word ptr -2

		enter	0Ch, 0
		push	si
		push	di
		xor	si, si
		pushd	[HUUHI_DAT]
		call	file_exist
		or	ax, ax
		jnz	short loc_1CA1A
		call	sub_1C647
		jmp	short loc_1CA1D
; ---------------------------------------------------------------------------

loc_1CA1A:
		call	sub_1C6C7

loc_1CA1D:
		mov	eax, dword_1E598
		imul	eax, 0Ah
		mov	dword_1E598, eax
		les	bx, mikoconfig
		movzx	eax, es:[bx+mikoconfig_t.continues_used]
		add	dword_1E598, eax
		mov	eax, dword_25324
		cmp	eax, dword_1E598
		jle	short loc_1CA50
		push	0FFFFh
		call	sub_1C785
		call	_key_delay
		jmp	loc_1CD32
; ---------------------------------------------------------------------------

loc_1CA50:
		mov	[bp+var_2], 9
		jmp	short loc_1CA6C
; ---------------------------------------------------------------------------

loc_1CA57:
		mov	bx, [bp+var_2]
		shl	bx, 2
		mov	eax, [bx+788Ch]
		cmp	eax, dword_1E598
		jg	short loc_1CA72
		dec	[bp+var_2]

loc_1CA6C:
		cmp	[bp+var_2], 0
		jg	short loc_1CA57

loc_1CA72:
		mov	[bp+var_4], 9
		jmp	loc_1CB0C
; ---------------------------------------------------------------------------

loc_1CA7A:
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	eax, [bx+788Ch]
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	[bx+7890h], eax
		mov	[bp+var_6], 0
		jmp	short loc_1CAB4
; ---------------------------------------------------------------------------

loc_1CA97:
		mov	bx, [bp+var_4]
		imul	bx, 7
		add	bx, [bp+var_6]
		mov	al, [bx+78B5h]
		mov	bx, [bp+var_4]
		imul	bx, 7
		add	bx, [bp+var_6]
		mov	[bx+78BCh], al
		inc	[bp+var_6]

loc_1CAB4:
		cmp	[bp+var_6], 6
		jl	short loc_1CA97
		mov	bx, [bp+var_4]
		mov	al, [bx+7902h]
		mov	[bx+7903h], al
		shl	bx, 2
		mov	ax, [bx+790Ah]
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	[bx+790Eh], ax
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	al, [bx+790Dh]
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	[bx+7911h], al
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	al, [bx+790Ch]
		mov	bx, [bp+var_4]
		shl	bx, 2
		mov	[bx+7910h], al
		mov	bx, [bp+var_4]
		mov	al, [bx+7935h]
		mov	[bx+7936h], al
		dec	[bp+var_4]

loc_1CB0C:
		mov	ax, [bp+var_4]
		cmp	ax, [bp+var_2]
		jg	loc_1CA7A
		mov	bx, [bp+var_2]
		shl	bx, 2
		mov	eax, dword_1E598
		mov	[bx+7890h], eax
		mov	bx, [bp+var_2]
		mov	al, stage_id
		inc	al
		mov	[bx+7903h], al
		mov	ax, [bp+var_2]
		shl	ax, 2
		add	ax, 790Eh
		push	ds
		push	ax		; datep
		call	_getdate
		add	sp, 4
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.shottype]
		mov	bx, [bp+var_2]
		mov	[bx+7936h], al
		mov	[bp+var_6], 0
		jmp	short loc_1CB6B
; ---------------------------------------------------------------------------

loc_1CB5A:
		mov	bx, [bp+var_4]
		imul	bx, 7
		add	bx, [bp+var_6]
		mov	byte ptr [bx+78BCh], 0DAh
		inc	[bp+var_6]

loc_1CB6B:
		cmp	[bp+var_6], 6
		jl	short loc_1CB5A
		push	[bp+var_2]
		call	sub_1C785
		xor	di, di
		mov	[bp+var_8], 0
		mov	_input, 0
		mov	[bp+var_A], 1

loc_1CB89:
		mov	[bp+var_B], 0

loc_1CB8D:
		call	_input_sense
		cmp	[bp+var_A], 0
		jnz	loc_1CCFE
		test	byte ptr _input, 1
		jz	short loc_1CBC3
		push	di
		push	[bp+var_8]
		push	TX_WHITE
		call	sub_1C8E3
		dec	[bp+var_8]
		cmp	[bp+var_8], 0
		jge	short loc_1CBB9
		mov	[bp+var_8], 2

loc_1CBB9:
		push	di
		push	[bp+var_8]
		push	TX_GREEN + TX_REVERSE
		call	sub_1C8E3

loc_1CBC3:
		test	byte ptr _input, 2
		jz	short loc_1CBEC
		push	di
		push	[bp+var_8]
		push	TX_WHITE
		call	sub_1C8E3
		inc	[bp+var_8]
		cmp	[bp+var_8], 2
		jle	short loc_1CBE2
		mov	[bp+var_8], 0

loc_1CBE2:
		push	di
		push	[bp+var_8]
		push	TX_GREEN + TX_REVERSE
		call	sub_1C8E3

loc_1CBEC:
		test	byte ptr _input, 4
		jz	short loc_1CC0F
		push	di
		push	[bp+var_8]
		push	TX_WHITE
		call	sub_1C8E3
		dec	di
		or	di, di
		jge	short loc_1CC05
		mov	di, 10h

loc_1CC05:
		push	di
		push	[bp+var_8]
		push	TX_GREEN + TX_REVERSE
		call	sub_1C8E3

loc_1CC0F:
		test	byte ptr _input, 8
		jz	short loc_1CC32
		push	di
		push	[bp+var_8]
		push	TX_WHITE
		call	sub_1C8E3
		inc	di
		cmp	di, 10h
		jle	short loc_1CC28
		xor	di, di

loc_1CC28:
		push	di
		push	[bp+var_8]
		push	TX_GREEN + TX_REVERSE
		call	sub_1C8E3

loc_1CC32:
		test	byte ptr _input, INPUT_SHOT
		jnz	short loc_1CC42
		test	byte ptr _input, INPUT_OK
		jz	loc_1CCD7

loc_1CC42:
		cmp	[bp+var_8], 2
		jnz	short loc_1CC4D
		cmp	di, 0Dh
		jge	short loc_1CC8A

loc_1CC4D:
		mov	bx, [bp+var_8]
		imul	bx, 11h
		mov	al, [bx+di+1351h]
		mov	bx, [bp+var_2]
		imul	bx, 7
		mov	[bx+si+78BCh], al
		cmp	si, 5
		jnz	short loc_1CC82
		push	di
		push	[bp+var_8]
		push	TX_WHITE
		call	sub_1C8E3
		mov	di, 10h
		mov	[bp+var_8], 2
		push	di
		push	[bp+var_8]
		push	TX_GREEN + TX_REVERSE
		call	sub_1C8E3

loc_1CC82:
		inc	si
		cmp	si, 5
		jle	short loc_1CCD0
		jmp	short loc_1CCC6
; ---------------------------------------------------------------------------

loc_1CC8A:
		cmp	di, 0Dh
		jnz	short loc_1CCA2
		mov	bx, [bp+var_2]
		imul	bx, 7
		mov	byte ptr [bx+si+78BCh],	0CFh
		inc	si
		cmp	si, 5
		jle	short loc_1CCD0
		jmp	short loc_1CCC6
; ---------------------------------------------------------------------------

loc_1CCA2:
		cmp	di, 0Eh
		jnz	short loc_1CCBB
		dec	si
		or	si, si
		jge	short loc_1CCAE
		xor	si, si

loc_1CCAE:
		mov	bx, [bp+var_2]
		imul	bx, 7
		mov	byte ptr [bx+si+78BCh],	0CFh
		jmp	short loc_1CCD0
; ---------------------------------------------------------------------------

loc_1CCBB:
		cmp	di, 0Fh
		jnz	short loc_1CCCB
		inc	si
		cmp	si, 5
		jle	short loc_1CCD0

loc_1CCC6:
		mov	si, 5
		jmp	short loc_1CCD0
; ---------------------------------------------------------------------------

loc_1CCCB:
		cmp	di, 10h
		jz	short loc_1CD2E

loc_1CCD0:
		push	[bp+var_2]
		push	si
		call	sub_1C914

loc_1CCD7:
		test	byte ptr _input, INPUT_BOMB
		jz	short loc_1CCF7
		mov	bx, [bp+var_2]
		imul	bx, 7
		mov	byte ptr [bx+si+78BCh],	0CFh
		dec	si
		or	si, si
		jge	short loc_1CCF0
		xor	si, si

loc_1CCF0:
		push	[bp+var_2]
		push	si
		call	sub_1C914

loc_1CCF7:
		test	byte ptr _input, INPUT_CANCEL
		jnz	short loc_1CD2E

loc_1CCFE:
		push	1
		call	frame_delay
		mov	ax, _input
		mov	[bp+var_A], ax
		cmp	[bp+var_A], 0
		jz	loc_1CB89
		inc	[bp+var_B]
		cmp	[bp+var_B], 1Eh
		jbe	loc_1CB8D
		test	[bp+var_B], 1
		jnz	loc_1CB8D
		mov	[bp+var_A], 0
		jmp	loc_1CB8D
; ---------------------------------------------------------------------------

loc_1CD2E:
		call	sub_1C95D

loc_1CD32:
		pop	di
		pop	si
		leave
		retf
sub_1C9FE	endp


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

; Attributes: bp-based frame

sub_1CD36	proc far
		push	bp
		mov	bp, sp
		pushd	[HUUHI_DAT]
		call	file_exist
		or	ax, ax
		jnz	short loc_1CD4D
		call	sub_1C647
		jmp	short loc_1CD50
; ---------------------------------------------------------------------------

loc_1CD4D:
		call	sub_1C6C7

loc_1CD50:
		mov	eax, dword_25300
		mov	ebx, 0Ah
		cdq
		idiv	ebx
		cmp	eax, dword_1E598
		jl	short loc_1CD71
		mov	eax, dword_25300
		cdq
		idiv	ebx
		jmp	short loc_1CD75
; ---------------------------------------------------------------------------

loc_1CD71:
		mov	eax, dword_1E598

loc_1CD75:
		mov	dword_252F8, eax
		mov	eax, dword_25300
		mov	ebx, 0Ah
		cdq
		idiv	ebx
		mov	byte_252FC, dl
		pop	bp
		retf
sub_1CD36	endp


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

; Attributes: bp-based frame

sub_1CD8E	proc far

@@rank		= byte ptr -7
var_6		= byte ptr -6

		enter	8, 0
		lea	ax, [bp+var_6]
		push	ss
		push	ax
		push	ds
		push	offset unk_1EE02
		mov	cx, 6
		call	SCOPY@
		mov	al, _rank
		mov	[bp+@@rank], al
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.shottype]
		mov	_rank, al
		call	sub_1C6C7
		mov	al, _rank
		cbw
		add	ax, ax
		lea	dx, [bp+var_6]
		add	ax, dx
		mov	bx, ax
		mov	ax, ss:[bx]
		mov	word_252FE, ax
		call	sub_1C95D
		mov	al, [bp+@@rank]
		mov	_rank, al
		leave
		retf
sub_1CD8E	endp


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

; Attributes: bp-based frame

sub_1CDD6	proc far

@@rank		= byte ptr -5
var_4		= byte ptr -4

		enter	6, 0
		lea	ax, [bp+var_4]
		push	ss
		push	ax
		push	ds
		push	offset unk_1EE08
		mov	cx, 3
		call	SCOPY@
		mov	al, _rank
		mov	[bp+@@rank], al
		mov	_rank, RANK_LUNATIC
		call	sub_1C6C7
		les	bx, mikoconfig
		mov	al, es:[bx+mikoconfig_t.shottype]
		mov	ah, 0
		lea	dx, [bp+var_4]
		add	ax, dx
		mov	bx, ax
		mov	al, ss:[bx]
		mov	ah, 0

loc_1CE0F:
		or	word_252FE, ax
		push	cs

loc_1CE14:
		call	near ptr sub_1C95D
		mov	al, [bp+@@rank]
		mov	_rank, al
		leave
		retf
sub_1CDD6	endp

main_06_TEXT	ends

	.data

gStage1		db 0BCh, 0BDh, 0AAh, 0B0h, 0AEh, 0A1h, 0, 0
		db 0, 0, 0, 0, 0, 0, 0, 0
gEXTRA_STAGE	db 0AEh, 0C1h, 0BDh, 0BBh, 0AAh, 0CFh, 0CFh, 0BCh, 0BDh
		db	0AAh, 0B0h, 0AEh, 0, 0, 0, 0
BGM_TITLE		dw offset aTH02_02
		dw offset aTH02_03
		dw offset aTH02_04
		dw offset aTH02_05
		dw offset aTH02_06
		dw offset aTH02_07
		dw offset aTH02_08
		dw offset aTH02_09
		dw offset aTH02_10
		dw offset aTH02_11
		dw offset aTH02_12
		dw offset aTH02_13
STAGE_TITLE		dw offset aSTAGE1_TITLE
		dw offset aSTAGE2_TITLE
		dw offset aSTAGE3_TITLE
		dw offset aSTAGE4_TITLE
		dw offset aSTAGE5_TITLE
		dw offset aEXTRA_TITLE
STAGE_TITLE_HALFLENGTHS		db  0Ah
		db  0Dh
		db  0Bh
		db  0Ch
		db  0Dh
		db  0Dh
gDEMO_PLAY	db 0ADh, 0AEh, 0B7h, 0B8h, 0CFh, 0B9h, 0B5h, 0AAh, 0C2h, 0
gPAUSE_MENU	db 0B9h, 0AAh, 0BEh, 0BCh, 0AEh, 0CFh, 0B7h, 0AEh, 0B6h, 0BEh, 0
g11SPACES	db 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0CFh, 0
		db 0
off_1DB6C	dd aGqbGapic
					; "ゲーム終了"
off_1DB70	dd aGqbGanKj
					; "ゲーム再開"
byte_1DB74	db 0
		db 0
off_1DB76	dd aVV2
					; "ほんとに終了しちゃうの"
off_1DB7A	dd aVdvVVBbvVVVV
					; "うそです。すみません。"
off_1DB7E	dd aB@b@vVvbavtvVV
					; "　　はい、やめます。　"
dword_1DB82	dd 0
word_1DB86	dw 0
aTH02_02	db '　 博麗　～Eastern Wind ',0
aTH02_03	db '　  She',27h,'s in a temper!! ',0
aTH02_04	db '　   End of Daylight　  ',0
aTH02_05	db '   　 やみのちから　　  ',0
aTH02_06	db '　　　　　幻夢界　　　　',0
aTH02_07	db ' 　　　死を賭して　　　 ',0
aTH02_08	db 'ひもろぎ、むらさきにもえ',0
aTH02_09		db '   　 恋色マジック 　   ',0
aTH02_10		db '　東方封魔録　～幽幻乱舞',0
aTH02_11	db '   Complete Darkness    ',0
aTH02_12	db '   　 エキストララブ    ',0
aTH02_13	db '  戦車むすめのみるゆめ  ',0
aSTAGE1_TITLE	db '紫野　～ Purple Dawn',0
aSTAGE2_TITLE	db '雷獣　～Midnight Rainstorm',0
aSTAGE3_TITLE	db '紅夢　～ Scarlet Dream',0
aSTAGE4_TITLE	db '霊魔　～Revengeful Ghost',0
aSTAGE5_TITLE	db '封魔　～東方封魔録 and ...',0
aEXTRA_TITLE		db '異空　～for Lunatic Gamers',0
; char arg0[3]
arg0		db 'op',0
aHuuma_efc	db 'huuma.efc',0
aEye_pi		db 'EYE.PI',0
aMiko_bft	db 'miko.bft',0
aMiko32_bft	db 'miko32.bft',0
aMiko16_bft	db 'miko16.bft',0
aBmt		db 'bmt',0
aBbt		db 'bbt',0
aMap		db 'map',0
aMpn		db 'mpn',0
aM		db 'm',0
		db    0
		db    0
aMiko_k_mpn	db 'miko_k.mpn',0
aGqbGapic	db 'ゲーム終了',0
aGqbGanKj	db 'ゲーム再開',0
aVV2		db 'ほんとに終了しちゃうの',0
aVdvVVBbvVVVV	db 'うそです。すみません。',0
aB@b@vVvbavtvVV	db '　　はい、やめます。　',0
aEMPTY	db '                                                ',0
aDemo1_rec	db 'DEMO1.REC',0
aDemo2_rec	db 'DEMO2.REC',0
aDemo3_rec	db 'DEMO3.REC',0
include libs/master.lib/atan8[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/gaiji_backup[data].asm
include libs/master.lib/gaiji_entry_bfnt[data].asm
include libs/master.lib/grp[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/version[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
public _key_delay_groups
_key_delay_groups	db 5, 3, 0
		db 0
include th02/formats/pfopen[data].asm
public _snd_active
_snd_active	db 0
		db 0
public _mptn_show_palette_on_load
_mptn_show_palette_on_load	db 1
public _mptn_count
_mptn_count	db 0
public _pf_fn
_pf_fn		db '東方封魔.録',0
include th02/snd/se[data].asm
		db    0
		db  80h
		db 0C0h
		db 0E0h
		db 0F0h
		db 0F8h
_rank	db RANK_NORMAL
stage_id	db 0
aHuuma_cfg	db 'huuma.cfg',0
		db '<',0
		db '~',0
		db 0FFh
		db    0
		db 0FFh
		db    0
		db 0FFh
		db    0
		db 0FFh
		db    0
		db  7Eh	; ~
		db    0
		db  3Ch	; <
		db    0
		db  1Eh
		db    0
		db  3Fh	; ?
		db    0
		db  7Fh
		db  80h
		db  7Fh
		db  80h
		db  7Fh
		db  80h
		db  7Fh
		db  80h
		db  3Fh	; ?
		db    0
		db  1Eh
		db    0
		db  0Fh
		db    0
		db  1Fh
		db  80h
		db  3Fh	; ?
		db 0C0h
		db  3Fh	; ?
		db 0C0h
		db  3Fh	; ?
		db 0C0h
		db  3Fh	; ?
		db 0C0h
		db  1Fh
		db  80h
		db  0Fh
		db    0
		db    7
		db  80h
		db  0Fh
		db 0C0h
		db  1Fh
		db 0E0h
		db  1Fh
		db 0E0h
		db  1Fh
		db 0E0h
		db  1Fh
		db 0E0h
		db  0Fh
		db 0C0h
		db    7
		db  80h
		db    3
		db 0C0h
		db    7
		db 0E0h
		db  0Fh
		db 0F0h
		db  0Fh
		db 0F0h
		db  0Fh
		db 0F0h
		db  0Fh
		db 0F0h
		db    7
		db 0E0h
		db    3
		db 0C0h
		db    1
		db 0E0h
		db    3
		db 0F0h
		db    7
		db 0F8h
		db    7
		db 0F8h
		db    7
		db 0F8h
		db    7
		db 0F8h
		db    3
		db 0F0h
		db    1
		db 0E0h
		db    0
		db 0F0h
		db    1
		db 0F8h
		db    3
		db 0FCh
		db    3
		db 0FCh
		db    3
		db 0FCh
		db    3
		db 0FCh
		db    1
		db 0F8h
		db    0
		db 0F0h
		db    0
		db  78h	; x
		db    0
		db 0FCh
		db    1
		db 0FEh
		db    1
		db 0FEh
		db    1
		db 0FEh
		db    1
		db 0FEh
		db    0
		db 0FCh
		db    0
		db  78h	; x
gBONUS		db 0ABh, 0B8h, 0B6h, 0BEh, 0BCh, 0
gBONUS_0	db 0ABh, 0B8h, 0B6h, 0BEh, 0BCh, 0
aUqiUx		db ' 難易度',0
aGxgebGw	db 'ステージ',0
aGGa		db 'ボム',0
aGGx		db 'ミス',0
aSMvpik		db '靈撃初期数',0
aSCPik		db '靈夢初期数',0
aU_		db '点',0
aB		db '×',0
aBb		db '＝',0
aGngkga		db 'クリア',0
aGGxi		db 'ミス回数',0
aGGai		db 'ボム回数',0
aGngkgagGcga	db 'クリアタイム',0
include th02/strings/gameover[data].asm
asc_1E47E	db '                ',0
		db 0
		db 0E8h
		db    3
		db  64h	; d
		db    0
		db  0Ah
		db    0
		db    1
		db    0
NUMERALS	db    0, 38h, 44h, 82h,	82h, 82h, 44h, 38h
		db    0,   0,	0,   6,	7Eh,   0,   0,	 0
		db    0, 0Ch, 3Ch,   0,	  0,   6, 7Eh,	 0
		db    6, 7Eh,	0,   6,	3Ch,   0,   3,0FFh
		db    0, 7Eh, 5Ah, 7Eh,	42h, 42h, 7Eh,	 0
		db    0, 7Eh,	8, 10h,	7Ch, 24h, 44h,0FFh
		db    0, 18h, 7Eh,   0,	  0, 24h, 42h,	 0
		db    0, 20h, 7Eh, 20h,	20h, 3Ch,   0,	 0
		db    0,   4, 24h, 22h,	42h, 41h,   0,	 0
		db    0, 10h, 3Eh, 24h,	26h, 4Ah, 8Eh,	 0
		db    0,   0, 24h, 18h,	18h, 24h,   0,	 0
		db    0, 18h, 18h,   0,0FFh,   0, 18h, 18h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
byte_1E500	db 4
byte_1E501	db 0
byte_1E502	db 0
byte_1E503	db 0
		db  27h	; '
		db    0
		db  27h	; '
		db    0
		db  27h	; '
		db    0
		db  28h	; (
		db    0
		db  29h	; )
		db    0
		db  2Fh	; /
		db    0
byte_1E510	db 20h
		db 0
word_1E512	dw 0
		db    0
		db    0
power	db 1
byte_1E517	db 0
byte_1E518	db 4
byte_1E519	db 40h
byte_1E51A	db 4Ch
byte_1E51B	db 48h
power_overflow_level	dw 0
word_1E51E	dw 0
		db    0
		db    1
		db    0
		db    1
		db    1
		db    0
		db    0
		db    1
		db    1
		db    0
		db  44h	; D
		db  45h	; E
		db  46h	; F
		db  47h	; G
		db  57h	; W
		db    0
include th02/power_overflow[data].asm
word_1E586	dw 0
word_1E588	dw 0BCB0h
word_1E58A	dw 0D4C8h
byte_1E58C	db 0E0h
word_1E58D	dw 0FFFEh
word_1E58F	dw 100h
byte_1E591	db 2
word_1E592	dw 0BCC8h
word_1E594	dw 0BCB0h
byte_1E596	db 0C8h
byte_1E597	db 0
dword_1E598	dd 0
lives	db 3
bombs	db 3
		db 0A0h
		db  86h
		db    1
		db    0
		db  40h
		db  0Dh
		db    3
		db    0
		db 0E0h
		db  93h
		db    4
		db    0
		db  20h
		db 0A1h
		db    7
		db    0
		db    0
		db  35h	; 5
		db  0Ch
		db    0
		db 0FFh
		db 0E0h
		db 0F5h
		db    5
word_1E5B6	dw 0
dword_1E5B8	dd 9C40h
include th02/hud/number_put[data].asm
word_1E5D8	dw 4140h
word_1E5DA	dw 4342h
word_1E5DC	dw 44h
word_1E5DE	dw 4141h
word_1E5E0	dw 6141h
word_1E5E2	dw 2161h
word_1E5E4	dw 0A181h
byte_1E5E6	db 0C1h
word_1E5E7	dw 0CFCFh
word_1E5E9	dw 0CFCFh
word_1E5EB	dw 0CFh
include th02/strings/ranks_left[data].asm
gsSCORE		db 0C4h, 0C5h, 0C6h, 0,	0
gsHISCORE	db 0CEh, 0C4h, 0C5h, 0C6h, 0
gsREIMU		db 0C9h, 0CAh, 0, 0, 0
gsREIGEKI	db 0CCh, 0CDh, 0, 0, 0
gsREIRYOKU	db 0C7h, 0C8h, 0, 0, 0
aMikoft_bft	db 'MIKOFT.bft',0
; Indexed with (power / 4).
SHOT_LEVELS	db 0, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 6, 7, 7, 7, 8, 8, 8, 8, 9
byte_1E64E	db 0
		db 0
		db    4
		db    0
		db    3
		db    0
		db    3
		db    0
		db    2
		db    0
		db    2
		db    0
		db    1
		db    0
		db    1
		db    0
		db    0
		db    0
		db    0
		db    0
		db    2
		db    0
		db    3
		db    0
		db    2
		db    0
		db    1
		db    0
		db    0
		db    0
		db    1
		db    0
		db    2
		db    0
		db    1
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    2
		db    0
		db    3
		db    0
		db    3
		db    0
		db    2
		db    0
		db    3
		db    0
		db    1
		db    0
		db    2
		db    0
		db    0
		db    0
		db    0
		db    0
		db    1
		db    0
		db    1
		db    0
		db    2
		db    0
		db    2
		db    0
		db    3
		db    0
		db    1
		db    0
		db    2
		db    0
		db    3
		db    0
		db    2
		db    0
		db    1
		db    0
		db    0
		db    0
		db    1
		db    0
		db    1
		db    0
		db    2
		db    0
		db    2
		db    0
		db    3
		db    0
		db    3
		db    0
		db    4
		db    0
		db    4
		db    0
aBombs_bft	db 'bombs.bft',0
aBomb1_pi	db 'bomb1.pi',0
aBomb3_pi	db 'bomb3.pi',0
aBomb2_pi	db 'bomb2.pi',0
aBomb1_bft	db 'bomb1.bft',0
asc_1E6DF	db '  ',0
		db    0
		db    0
		db    0
		db  10h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  10h
		db  38h	; 8
		db  10h
		db    0
		db    0
		db    0
		db    0
		db  10h
		db  10h
		db  7Ch	; |
		db  10h
		db  10h
		db    0
		db    0
		db  10h
		db  10h
		db  38h	; 8
		db 0FEh
		db  38h	; 8
		db  10h
		db  10h
		db    0
		db  3Ch	; <
		db  7Eh	; ~
		db 0FFh
		db 0FFh
		db 0FFh
		db 0FFh
		db  7Eh	; ~
		db  3Ch	; <
include th02/sprites/sparks.asm
word_1EB0A	dw 0
byte_1EB0C	db 0
byte_1EB0D	db 0FFh
byte_1EB0E	db 0FFh
		db    1
		db    1
		db    4
		db    8
		db  10h
		db  18h
		db  20h
		db  28h	; (
		db  34h	; 4
		db  40h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
word_1EB26	dw 0
word_1EB28	dw 0
		db    1
		db    2
		db    3
		db    4
		db    5
		db    6
		db    7
		db    8
		db    9
		db  0Ah
		db  0Bh
		db  17h
		db  16h
		db  15h
		db  14h
		db  13h
		db  12h
		db  11h
		db  10h
		db  0Fh
		db  0Eh
		db  0Dh
		db  0Ch
aBoss2_m	db 'boss2.m',0
		db 0
		db    5
		db    0
		db    5
		db    0
		db    4
		db    0
		db    4
		db    0
		db    3
		db    0
		db    3
		db    0
		db    3
		db    0
		db    2
		db    0
		db    2
		db    0
		db    1
		db    0
		db    2
		db    0
		db    2
		db    0
		db    2
		db    0
		db    2
		db    0
		db    2
		db    0
		db    1
		db    0
		db    1
		db    0
		db    1
		db    0
		db    1
		db    0
		db    1
		db    0
		db    0
		db    0
		db    0
		db    0
		db    8
		db    0
		db    8
		db    0
		db    7
		db    0
		db    7
		db    0
		db    6
		db    0
		db    5
		db    0
		db    4
		db    0
		db    3
		db    0
		db    0
		db    0
byte_1EB88	db 1
		db 0
aStage_dt1	db 'STAGE .DT1',0
		db 0
word_1EB96	dw 12D6h
unk_1EB98	db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  10h
		db    8
		db  16h
		db  0Bh
		db    8
		db    3
		db  10h
		db    4
		db    0
		db    0
		db  16h
		db    6
		db    0
		db  60h
		db  33h	; 3
		db  60h
		db    9
		db  60h
		db    0
		db  60h
		db  63h	; c
		db  63h	; c
		db  30h	; 0
		db  0Ch
		db  63h	; c
		db  63h	; c
		db    6
		db  63h	; c
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  63h	; c
		db  63h	; c
		db  39h	; 9
		db  60h
		db    3
		db  63h	; c
		db    9
		db  60h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  66h	; f
		db  66h	; f
		db  39h	; 9
		db  3Ch	; <
		db  66h	; f
		db  66h	; f
		db  3Ch	; <
		db    9
		db  96h
		db  36h	; 6
		db  66h	; f
		db  66h	; f
		db  60h
		db  36h	; 6
		db  66h	; f
		db  3Ch	; <
		db    9
		db  66h	; f
		db    9
		db  96h
		db  39h	; 9
		db  96h
		db    9
		db  36h	; 6
		db  39h	; 9
		db    9
		db  60h
		db  96h
		db  39h	; 9
		db  60h
		db  36h	; 6
		db  60h
		db  0Ch
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    6
		db  60h
		db  60h
		db  0Ch
		db  60h
		db  33h	; 3
		db  60h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  0Ch
		db  60h
		db  0Ch
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  69h	; i
		db    6
		db  60h
		db  0Ch
		db    6
		db    6
		db  69h	; i
		db  69h	; i
		db  0Ch
		db  60h
		db    6
		db    6
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  93h
		db    0
		db  60h
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db  99h
		db    0
		db  99h
		db    3
		db  99h
		db    6
		db  99h
		db  99h
		db  99h
		db  39h	; 9
		db  99h
		db  39h	; 9
		db  99h
		db  39h	; 9
		db  99h
		db  99h
		db  39h	; 9
		db  99h
		db  0Ch
		db  60h
		db  0Ch
		db  99h
		db    9
		db  9Ch
		db    9
		db  60h
		db  60h
		db  0Ch
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
unk_1ECD4	db  39h	; 9
		db  60h
		db  60h
		db  39h	; 9
		db  60h
		db  39h	; 9
		db  60h
		db  39h	; 9
unk_1ECDC	db  39h	; 9
		db  90h
		db    6
		db  90h
		db  90h
		db  90h
		db    6
		db  90h
		db  60h
		db    0
		db  60h
		db    0
unk_1ECE8	db    6
		db  13h
		db    9
		db  13h
		db  0Ch
		db  13h
		db  0Fh
		db  13h
		db  12h
		db  13h
		db  15h
		db  13h
		db  18h
		db  13h
		db  1Bh
		db  13h
		db  1Eh
		db  13h
		db  21h	; !
		db  13h
unk_1ECFC	db  60h
		db    0
		db  36h	; 6
		db    0
		db  90h
		db    0
unk_1ED02	db  90h
		db    0
		db  0Ch
		db    0
		db  60h
		db    0
		db  39h	; 9
		db    0
		db  90h
		db    0
unk_1ED0C	db  60h
		db    0
		db  60h
		db    0
		db  39h	; 9
		db    0
		db  60h
		db    0
		db  39h	; 9
		db    0
unk_1ED16	db  69h	; i
		db  39h	; 9
		db  69h	; i
		db    6
		db    6
		db  69h	; i
		db  69h	; i
		db    6
		db  69h	; i
		db    6
		db    6
		db  60h
		db    6
		db  69h	; i
		db  39h	; 9
		db  69h	; i
		db    0
		db  60h
		db    6
		db    6
		db  69h	; i
		db  69h	; i
unk_1ED2C	db  69h	; i
		db    0
		db  69h	; i
		db    6
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db    6
		db  69h	; i
		db  69h	; i
		db  69h	; i
		db    6
		db    6
		db  69h	; i
		db  69h	; i
unk_1ED3D	db  69h	; i
		db  69h	; i
		db    6
		db  69h	; i
		db  39h	; 9
dword_1ED42	dd 0C6C066Ch
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		db  81h
		db  40h
		dw 4081h
aB@b@b@b@b@b@b@	db '　　　　　　　　',0
aStage_txt	db 'stage .txt',0
aVo		db '０',0
aVp		db '１',0
aVq		db '２',0
aVr		db '３',0
aVs		db '４',0
aVt		db '５',0
aVu		db '６',0
aVv1		db '７',0
aVw		db '８',0
aVx		db '９',0
word_1ED94	dw 0
word_1ED96	dw 0
word_1ED98	dw 0
aBoss1_m	db 'boss1.m',0
word_1EDA2	dw 0
word_1EDA4	dw 0
byte_1EDA6	db 1
		db 0
word_1EDA8	dw 0
word_1EDAA	dw 0
aBoss4_m	db 'boss4.m',0
include th02/strings/hiscore[data].asm
unk_1EE02	db  3Eh	; >
		db    1
		db  76h	; v
		db    0
		db 0DAh
		db    0
unk_1EE08	db    1
		db    2
		db    4
aHuuhi_dat	db 'huuhi.dat',0
		db 0
word_1EE16	dw 100h
word_1EE18	dw 1002h
word_1EE1A	dw 1211h
byte_1EE1C	db 9
		db 0
		db  3Ch	; <
		db    0
		db  2Ch	; ,
		db    0
		db  4Ch	; L
		db    0
		db  1Ch
		db    0
		db  5Ch
		db    0
aStage5b1_bft	db 'stage5b1.bft',0
aStage5b2_bft	db 'stage5b2.bft',0
aBoss5_m	db 'boss5.m',0
; char aMaine[]
aMaine		db 'maine',0
word_1EE50	dw 0
byte_1EE52	db 0
		db 0
word_1EE54	dw 0
word_1EE56	dw 0
aMima_bft	db 'mima.bft',0
aMima1_bft	db 'mima1.bft',0
aStage3_b_btt	db 'stage3_b.btt',0
aMima_m		db 'mima.m',0
; char aMaine_0[]
aMaine_0	db 'maine',0
aMima2_bft	db 'mima2.bft',0
		db 0
		db  0Ah
		db  0Ch
		db  0Dh
		db  0Dh
		db  0Ch
		db  0Ah
byte_1EE96	db 0
		db 0
word_1EE98	dw 0
word_1EE9A	dw 0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
		db    0
byte_1EEA4	db 2
byte_1EEA5	db 1
aMima_bft_0	db 'mima.bft',0
aStage3_b_bft	db 'stage3_b.bft',0
aStage3_b_btt_0	db 'stage3_b.btt',0
aBoss3_m	db 'boss3.m',0
		db 0
	.data?

; TODO: Missing clip[bss].asm (16 bytes) somewhere in there...
byte_1F466	db ?
stage1_gaiji_halflen	db ?
stage_title_halflen	db ?
		db ?
stage_title_str	dw ?
bgm_show_timer	db ?
bgm_title_id	db ?
byte_1F46E	db ?
		db ?
farfp_1F470	dd ?
farfp_1F474	dd ?
include th02/boss_funcs[bss].asm
farfp_1F48C	dd ?
farfp_1F490	dd ?
farfp_1F494	dd ?
farfp_1F498	dd ?
_boss_bg_render_func	dd ?
farfp_1F4A0	dd ?
farfp_1F4A4	dd ?
dword_1F4A8	dd ?
byte_1F4AC	db ?
unk_1F4AD	db    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
byte_1F4DD	db ?
byte_1F4DE	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
include libs/master.lib/fil[bss].asm
include libs/master.lib/grcg_circle[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 th02/formats/pi_slots[bss].asm
include libs/master.lib/pfint21[bss].asm
include th02/hardware/input_sense[bss].asm
include th02/snd/snd[bss].asm
include th02/snd/load[bss].asm
public _mptn_buffer
_mptn_buffer	dd ?
public _mptn_palette
_mptn_palette	db 16 * 3 dup(?)
word_1FFF0	dw ?
word_1FFF2	dw ?
word_1FFF4	dw ?
word_1FFF6	dw ?
byte_1FFF8	db ?
byte_1FFF9	db ?
byte_1FFFA	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
word_20164	dw ?
word_20166	dw ?
byte_20168	db ?
byte_20169	db ?
include th02/math/randring[bss].asm
mikoconfig	dd ?
		db    ?	;
		db    ?	;
word_20272	dw ?
word_20274	dw ?
byte_20276	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
byte_20340	db ?
byte_20341	db ?
byte_20342	db ?
byte_20343	db ?
_scroll_line	dw ?
word_20346	dw ?
word_20348	dw ?
word_2034A	dw ?
word_2034C	dw ?
byte_2034E	db ?
		db ?
byte_20350	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
word_205D8	dw ?
word_205DA	dw ?
word_205DC	dw ?
byte_205DE	db ?
byte_205DF	db ?
byte_205E0	db ?
		db ?
word_205E2	dw ?
word_205E4	dw ?
word_205E6	dw ?
word_205E8	dw ?
word_205EA	dw ?
word_205EC	dw ?
word_205EE	dw ?
word_205F0	dw ?
word_205F2	dw ?
word_205F4	dw ?
word_205F6	dw ?
word_205F8	dw ?
		dd    ?	;
		dd    ?	;
playchar_shot_func	dw ?
include th01/player_is_hit[bss].asm
byte_20605	db ?
byte_20606	db ?
byte_20607	db ?
byte_20608	db ?
byte_20609	db ?
include th02/playchar_speed[bss].asm
byte_2060E	db ?
byte_2060F	db ?
byte_20610	db ?
byte_20611	db ?
dword_20612	dd ?
word_20616	dw ?
include th02/hardware/pages[bss].asm
byte_2061A	db ?
		db ?
word_2061C	dw ?
word_2061E	dw ?
word_20620	dw ?
word_20622	dw ?
		dd ?
		dd ?
		dd ?
word_20630	dw ?
word_20632	dw ?
word_20634	dw ?
word_20636	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_20644	dw ?
word_20646	dw ?
		dd    ?	;
word_2064C	dw ?
word_2064E	dw ?
word_20650	dw ?
word_20652	dw ?
word_20654	dw ?
word_20656	dw ?
word_20658	dw ?
word_2065A	dw ?
word_2065C	dw ?
word_2065E	dw ?
byte_20660	db ?
byte_20661	db ?
byte_20662	db ?
byte_20663	db ?
byte_20664	db ?
		dd    ?	;
		db    ?	;
byte_2066A	db ?
byte_2066B	db ?
byte_2066C	db ?
byte_2066D	db ?
word_2066E	dw ?
word_20670	dw ?
byte_20672	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
dword_20682	dd ?
word_20686	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
word_21740	dw ?
word_21742	dw ?
word_21744	dw ?
word_21746	dw ?
word_21748	dw ?
byte_2174A	db ?
byte_2174B	db ?
byte_2174C	db ?
		db ?
word_2174E	dw ?
word_21750	dw ?
byte_21752	db ?
byte_21753	db ?
byte_21754	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
word_21896	dw ?
word_21898	dw ?
word_2189A	dw ?
word_2189C	dw ?
word_2189E	dw ?
byte_218A0	db ?
byte_218A1	db ?
byte_218A2	db ?
		db ?
dword_218A4	dd ?
byte_218A8	db ?
		db ?
word_218AA	dw ?
dword_218AC	dd ?
word_218B0	dw ?
shot_level	db ?
		db ?
byte_218B4	db ?
		db ?
word_218B6	dw ?
		db    ?	;
		db    ?	;
dword_218BA	dd ?
word_218BE	dw ?
word_218C0	dw ?
byte_218C2	db ?
		db ?
word_218C4	dw ?
word_218C6	dw ?
word_218C8	dw ?
word_218CA	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
fp_219CA	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
byte_21A4C	db ?
byte_21A4D	db ?
byte_21A4E	db ?
byte_21A4F	db ?
byte_21A50	db ?
byte_21A51	db ?
byte_21A52	db ?
byte_21A53	db ?
byte_21A54	db ?
byte_21A55	db ?
map	db    MAP_SIZE dup (?)
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_22796	dw ?
byte_22798	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
word_22862	dw ?
word_22864	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
byte_2287E	db ?
include th02/tiles[bss].asm
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
byte_22D48	db ?
		db ?
byte_22D4A	db ?
byte_22D4B	db ?
word_22D4C	dw ?
word_22D4E	dw ?
		dd    ?	;
word_22D54	dw ?
byte_22D56	db ?
byte_22D57	db ?
dword_22D58	dd ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_22D84	dw ?
word_22D86	dw ?
word_22D88	dw ?
word_22D8A	dw ?
word_22D8C	dw ?
word_22D8E	dw ?
word_22D90	dw ?
word_22D92	dw ?
word_22D94	dw ?
word_22D96	dw ?
word_22D98	dw ?
word_22D9A	dw ?
word_22D9C	dw ?
word_22D9E	dw ?
word_22DA0	dw ?
word_22DA2	dw ?
byte_22DA4	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
byte_22FA6	db ?
byte_22FA7	db ?
byte_22FA8	db ?
		db ?
word_22FAA	dw ?
word_22FAC	dw ?
byte_22FAE	db ?
word_22FAF	dw ?
		dd    ?	;
word_22FB5	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
byte_22FCE	db ?
byte_22FCF	db ?
byte_22FD0	db ?
		db ?
word_22FD2	dw ?
word_22FD4	dw ?
word_22FD6	dw ?
word_22FD8	dw ?
		db    ?	;
byte_22FDB	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_23A6C	dw ?
word_23A6E	dw ?
byte_23A70	db ?
		db ?
farfp_23A72	dd ?
farfp_23A76	dd ?
unk_23A7A	db    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
byte_24E7A	db ?
byte_24E7B	db ?
word_24E7C	dw ?
word_24E7E	dw ?
word_24E80	dw ?
word_24E82	dw ?
word_24E84	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_250DE	dw ?
word_250E0	dw ?
word_250E2	dw ?
word_250E4	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_250FE	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
byte_252E0	db ?
byte_252E1	db ?
word_252E2	dw ?
word_252E4	dw ?
word_252E6	dw ?
word_252E8	dw ?
word_252EA	dw ?
word_252EC	dw ?
word_252EE	dw ?
word_252F0	dw ?
word_252F2	dw ?
word_252F4	dw ?
byte_252F6	db ?
byte_252F7	db ?
dword_252F8	dd ?
byte_252FC	db ?
		db ?
word_252FE	dw ?
dword_25300	dd ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
dword_25324	dd ?
dword_25328	dd ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
byte_25372	db ?
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
byte_2537D	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
dword_253B0	dd ?
byte_253B4	db ?
		db ?
word_253B6	dw ?
word_253B8	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_254E6	dw ?
word_254E8	dw ?
byte_254EA	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
byte_2558C	db ?
byte_2558D	db ?
byte_2558E	db ?
byte_2558F	db ?
byte_25590	db ?
		db ?
word_25592	dw ?
word_25594	dw ?
byte_25596	db ?
byte_25597	db ?
byte_25598	db ?
		db ?
word_2559A	dw ?
word_2559C	dw ?
byte_2559E	db ?
		db ?
word_255A0	dw ?
byte_255A2	db ?
byte_255A3	db ?
word_255A4	dw ?
word_255A6	dw ?
word_255A8	dw ?
word_255AA	dw ?
word_255AC	dw ?
word_255AE	dw ?
byte_255B0	db ?
word_255B1	dw ?
byte_255B3	db ?
byte_255B4	db ?
		db ?
fp_255B6	dw ?
fp_255B8	dw ?
fp_255BA	dw ?
word_255BC	dw ?
byte_255BE	db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
		db ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		db    ?	;
		db    ?	;
		db    ?	;
dword_26B76	dd ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_26C3A	dw ?
farfp_26C3C	dd ?
farfp_26C40	dd ?
word_26C44	dw ?
word_26C46	dw ?
word_26C48	dw ?
word_26C4A	dw ?
word_26C4C	dw ?
word_26C4E	dw ?
word_26C50	dw ?
word_26C52	dw ?
word_26C54	dw ?
word_26C56	dw ?
word_26C58	dw ?
word_26C5A	dw ?
word_26C5C	dw ?
word_26C5E	dw ?
word_26C60	dw ?
word_26C62	dw ?
word_26C64	dw ?
word_26C66	dw ?
word_26C68	dw ?
word_26C6A	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_26CBC	dw ?
word_26CBE	dw ?
byte_26CC0	db ?
byte_26CC1	db ?
byte_26CC2	db ?
byte_26CC3	db ?
byte_26CC4	db ?
byte_26CC5	db ?
byte_26CC6	db ?
byte_26CC7	db ?
byte_26CC8	db ?
byte_26CC9	db ?
byte_26CCA	db ?
		db ?
word_26CCC	dw ?
word_26CCE	dw ?
word_26CD0	dw ?
byte_26CD2	db ?
byte_26CD3	db ?
byte_26CD4	db ?
		db ?
unk_26CD6	db    ?	;
		db    ?	;
unk_26CD8	db    ?	;
		db    ?	;
word_26CDA	dw ?
word_26CDC	dw ?
unk_26CDE	db    ?	;
		db    ?	;
unk_26CE0	db    ?	;
		db    ?	;
byte_26CE2	db ?
byte_26CE3	db ?
byte_26CE4	db ?
		db ?
word_26CE6	dw ?
word_26CE8	dw ?
word_26CEA	dw ?
byte_26CEC	db ?
word_26CED	dw ?
byte_26CEF	db ?
word_26CF0	dw ?
word_26CF2	dw ?
word_26CF4	dw ?
word_26CF6	dw ?
byte_26CF8	db ?
byte_26CF9	db ?
byte_26CFA	db ?
		db ?
word_26CFC	dw ?
word_26CFE	dw ?
word_26D00	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_26D42	dw ?
word_26D44	dw ?
word_26D46	dw ?
word_26D48	dw ?
word_26D4A	dw ?
byte_26D4C	db ?
byte_26D4D	db ?
byte_26D4E	db ?
byte_26D4F	db ?
		dd    ?	;
word_26D54	dw ?
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
		dd    ?	;
word_26D76	dw ?
word_26D78	dw ?
word_26D7A	dw ?
byte_26D7C	db ?
byte_26D7D	db ?
byte_26D7E	db ?
word_26D7F	dw ?
byte_26D81	db ?
word_26D82	dw ?
word_26D84	dw ?
byte_26D86	db ?
word_26D87	dw ?
byte_26D89	db ?
byte_26D8A	db ?
byte_26D8B	db ?
byte_26D8C	db ?
byte_26D8D	db ?
word_26D8E	dw ?
word_26D90	dw ?
byte_26D92	db ?
		db    ?	;

		end