; ; +-------------------------------------------------------------------------+ ; | This file has been generated by The Interactive Disassembler (IDA) | ; | Copyright (c) 2009 by Hex-Rays, | ; +-------------------------------------------------------------------------+ ; ; Input MD5 : F97D1B72F01476639E9D33E361F57330 ; File Name : th05/OP.EXE ; Format : MS-DOS executable (EXE) ; Base Address: 0h Range: 0h-14240h Loaded length: 1280Ah ; 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 __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 th05/th05.inc include th05/music/music.inc include th05/music/piano.inc extern SCOPY@:proc extern _execl:proc extern _getch:proc extern _strlen: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_header_read.asm include libs/master.lib/bfnt_header_analysis.asm include libs/master.lib/atrtcmod.asm include libs/master.lib/bcloser.asm include libs/master.lib/bfill.asm include libs/master.lib/bfnt_palette_set.asm include libs/master.lib/bgetc.asm include libs/master.lib/palette_black_in.asm include libs/master.lib/palette_black_out.asm include libs/master.lib/bopenr.asm include libs/master.lib/bread.asm include libs/master.lib/bseek.asm include libs/master.lib/bseek_.asm include libs/master.lib/dos_axdx.asm include libs/master.lib/dos_keyclear.asm include libs/master.lib/dos_puts2.asm include libs/master.lib/dos_read.asm include libs/master.lib/dos_seek.asm include libs/master.lib/dos_setvect.asm include libs/master.lib/egc.asm include libs/master.lib/file_append.asm include libs/master.lib/file_close.asm include libs/master.lib/file_create.asm include libs/master.lib/file_exist.asm include libs/master.lib/file_read.asm include libs/master.lib/file_ropen.asm include libs/master.lib/file_seek.asm include libs/master.lib/file_write.asm include libs/master.lib/dos_close.asm include libs/master.lib/dos_ropen.asm include libs/master.lib/grcg_byteboxfill_x.asm include libs/master.lib/grcg_hline.asm include libs/master.lib/grcg_polygon_c.asm include libs/master.lib/grcg_setcolor.asm include libs/master.lib/grcg_vline.asm include libs/master.lib/get_machine_98.asm include libs/master.lib/get_machine_at.asm include libs/master.lib/get_machine_dosbox.asm include libs/master.lib/check_machine_fmr.asm include libs/master.lib/get_machine.asm include libs/master.lib/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_show.asm include libs/master.lib/graph_start.asm include libs/master.lib/js_end.asm include libs/master.lib/keybeep.asm include libs/master.lib/make_linework.asm include libs/master.lib/palette_init.asm include libs/master.lib/palette_show.asm include libs/master.lib/pfclose.asm include libs/master.lib/pfgetc.asm include libs/master.lib/pfread.asm include libs/master.lib/pfrewind.asm include libs/master.lib/pfseek.asm include libs/master.lib/random.asm include libs/master.lib/rottbl.asm include libs/master.lib/smem_release.asm include libs/master.lib/smem_wget.asm include libs/master.lib/soundio.asm include libs/master.lib/text_clear.asm include libs/master.lib/txesc.asm include libs/master.lib/vsync.asm include libs/master.lib/vsync_wait.asm include libs/master.lib/hmem_lallocate.asm include libs/master.lib/mem_assign_dos.asm include libs/master.lib/mem_assign.asm include libs/master.lib/memheap.asm include libs/master.lib/mem_unassign.asm include libs/master.lib/super_free.asm include libs/master.lib/super_entry_pat.asm include libs/master.lib/super_entry_at.asm include libs/master.lib/super_entry_bfnt.asm include libs/master.lib/super_cancel_pat.asm include libs/master.lib/super_put_rect.asm include libs/master.lib/super_put.asm include libs/master.lib/respal_exist.asm include libs/master.lib/respal_free.asm include libs/master.lib/js_start.asm include libs/master.lib/draw_trapezoid.asm include libs/master.lib/js_sense.asm include libs/master.lib/bgm_bell_org.asm include libs/master.lib/bgm_mget.asm include libs/master.lib/bgm_read_sdata.asm include libs/master.lib/bgm_timer.asm include libs/master.lib/bgm_pinit.asm include libs/master.lib/bgm_timerhook.asm include libs/master.lib/bgm_play.asm include libs/master.lib/bgm_sound.asm include libs/master.lib/bgm_effect_sound.asm include libs/master.lib/bgm_stop_play.asm include libs/master.lib/bgm_set_tempo.asm include libs/master.lib/bgm_init_finish.asm include libs/master.lib/bgm_stop_sound.asm include libs/master.lib/graph_pack_put_8_noclip.asm include libs/master.lib/graph_gaiji_puts.asm include libs/master.lib/graph_gaiji_putc.asm include libs/master.lib/pfint21.asm db 0 include th03/formats/pfopen.asm include libs/master.lib/pf_str_ieq.asm _TEXT ends ; =========================================================================== ; Segment type: Pure code op_01_TEXT segment byte public 'CODE' use16 assume cs:op_01_TEXT ; org 0Ch assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public START_GAME start_game proc near push bp mov bp, sp push si push di les bx, _ksoconfig mov byte ptr es:[bx+1Ah], 0 mov byte ptr es:[bx+1Fh], 0 mov byte ptr es:[bx+13h], 0 mov al, es:[bx+0Fh] mov es:[bx+0Dh], al mov al, es:[bx+10h] mov es:[bx+0Eh], al call playchar_menu or ax, ax jnz short loc_A443 xor si, si jmp short loc_A400 ; --------------------------------------------------------------------------- loc_A3CF: les bx, _ksoconfig add bx, si mov byte ptr es:[bx+20h], 0 mov bx, word ptr _ksoconfig add bx, si mov byte ptr es:[bx+44h], 0 xor di, di jmp short loc_A3FA ; --------------------------------------------------------------------------- loc_A3E9: mov ax, di shl ax, 3 les bx, _ksoconfig add bx, ax mov byte ptr es:[bx+si+4Ch], 0 inc di loc_A3FA: cmp di, 6 jl short loc_A3E9 inc si loc_A400: cmp si, 8 jl short loc_A3CF call main_cdg_free call cfg_save kajacall KAJA_SONG_FADE, 10 call game_exit les bx, _ksoconfig cmp byte ptr es:[bx+17h], 0 jnz short loc_A430 pushd 0 push ds push offset aMain ; "main" push ds push offset aMain ; "main" jmp short loc_A43B ; --------------------------------------------------------------------------- loc_A430: pushd 0 push ds push offset path ; "deb" push ds push offset path ; "deb" loc_A43B: call _execl add sp, 0Ch loc_A443: pop di pop si pop bp retn start_game endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public START_EXTRA start_extra proc near push bp mov bp, sp push si push di les bx, _ksoconfig mov byte ptr es:[bx+1Fh], 0 mov byte ptr es:[bx+13h], 6 mov byte ptr es:[bx+0Dh], 3 mov byte ptr es:[bx+0Eh], 3 call playchar_menu or ax, ax jnz short loc_A4CB xor si, si jmp short loc_A4A0 ; --------------------------------------------------------------------------- loc_A46F: les bx, _ksoconfig add bx, si mov byte ptr es:[bx+20h], 0 mov bx, word ptr _ksoconfig add bx, si mov byte ptr es:[bx+44h], 0 xor di, di jmp short loc_A49A ; --------------------------------------------------------------------------- loc_A489: mov ax, di shl ax, 3 les bx, _ksoconfig add bx, ax mov byte ptr es:[bx+si+4Ch], 0 inc di loc_A49A: cmp di, 6 jl short loc_A489 inc si loc_A4A0: cmp si, 8 jl short loc_A46F call main_cdg_free call cfg_save kajacall KAJA_SONG_FADE, 10 call game_exit pushd 0 push ds push offset aMain ; "main" push ds push offset aMain ; "main" call _execl add sp, 0Ch loc_A4CB: pop di pop si pop bp retn start_extra endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public START_DEMO start_demo proc near push bp mov bp, sp push si les bx, _ksoconfig mov byte ptr es:[bx+1Ah], 0 mov byte ptr es:[bx+13h], 0 mov byte ptr es:[bx+0Dh], 3 mov byte ptr es:[bx+0Eh], 3 inc byte ptr es:[bx+1Fh] cmp byte ptr es:[bx+1Fh], 4 jbe short loc_A4FB mov byte ptr es:[bx+1Fh], 1 loc_A4FB: cmp _key_det, INPUT_LEFT or INPUT_RIGHT jnz short loc_A535 cmp _extra_playable_with.PLAYCHAR_REIMU, 0 jz short loc_A529 cmp _extra_playable_with.PLAYCHAR_MARISA, 0 jz short loc_A529 cmp _extra_playable_with.PLAYCHAR_MIMA, 0 jz short loc_A529 cmp _extra_playable_with.PLAYCHAR_YUUKA, 0 jz short loc_A529 les bx, _ksoconfig mov byte ptr es:[bx+1Fh], 5 jmp short loc_A535 ; --------------------------------------------------------------------------- loc_A529: les bx, _ksoconfig mov byte ptr es:[bx+1Fh], 0 jmp loc_A5E9 ; --------------------------------------------------------------------------- loc_A535: les bx, _ksoconfig mov al, es:[bx+1Fh] mov ah, 0 dec ax mov bx, ax cmp bx, 4 ja short loc_A5A4 add bx, bx jmp cs:off_A5EC[bx] loc_A54E: les bx, _ksoconfig mov byte ptr es:[bx+14h], 0 mov byte ptr es:[bx+1Dh], 3 jmp short loc_A5A4 ; --------------------------------------------------------------------------- loc_A55E: les bx, _ksoconfig mov byte ptr es:[bx+14h], 1 mov byte ptr es:[bx+1Dh], 1 jmp short loc_A5A4 ; --------------------------------------------------------------------------- loc_A56E: les bx, _ksoconfig mov byte ptr es:[bx+14h], 2 mov byte ptr es:[bx+1Dh], 2 jmp short loc_A5A4 ; --------------------------------------------------------------------------- loc_A57E: les bx, _ksoconfig mov byte ptr es:[bx+14h], 3 mov byte ptr es:[bx+1Dh], 4 jmp short loc_A5A4 ; --------------------------------------------------------------------------- loc_A58E: les bx, _ksoconfig mov byte ptr es:[bx+14h], 2 mov byte ptr es:[bx+1Dh], 6 kajacall KAJA_SONG_FADE, 8 loc_A5A4: xor si, si jmp short loc_A5BF ; --------------------------------------------------------------------------- loc_A5A8: les bx, _ksoconfig add bx, si mov byte ptr es:[bx+20h], 0 mov bx, word ptr _ksoconfig add bx, si mov byte ptr es:[bx+44h], 0 inc si loc_A5BF: cmp si, 8 jl short loc_A5A8 call main_cdg_free call cfg_save push 1 call palette_black_out call game_exit pushd 0 push ds push offset aMain ; "main" push ds push offset aMain ; "main" call _execl add sp, 0Ch loc_A5E9: pop si pop bp retn start_demo endp ; --------------------------------------------------------------------------- off_A5EC dw offset loc_A54E dw offset loc_A55E dw offset loc_A56E dw offset loc_A57E dw offset loc_A58E ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public MAIN_PUT main_put proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov si, [bp+arg_2] mov ax, si imul ax, 14h add ax, 0FAh mov di, ax push 100h push ax push 800010h call egc_copy_rect_1_to_0 call grcg_setcolor pascal, GC_RMW, [bp+arg_0] mov [bp+var_2], si mov bx, si cmp bx, 5 ja short loc_A69A add bx, bx jmp cs:off_A70B[bx] loc_A634: push (272 shl 16) or 250 push 10 call cdg_put_nocolors les bx, _ksoconfig mov al, es:[bx+11h] mov ah, 0 add ax, 16h mov [bp+var_2], ax jmp short loc_A69A ; --------------------------------------------------------------------------- loc_A653: cmp _extra_unlocked, 0 loc_A658: jnz short loc_A665 call grcg_setcolor pascal, (GC_RMW shl 16) + 2 loc_A665: push (272 shl 16) or 270 push 11 jmp short loc_A695 ; --------------------------------------------------------------------------- loc_A66F: push (272 shl 16) or 290 push 12 jmp short loc_A695 ; --------------------------------------------------------------------------- loc_A679: push (272 shl 16) or 310 push 13 jmp short loc_A695 ; --------------------------------------------------------------------------- loc_A683: push (272 shl 16) or 330 push 14 jmp short loc_A695 ; --------------------------------------------------------------------------- loc_A68D: push (272 shl 16) or 350 push 15 loc_A695: call cdg_put_nocolors loc_A69A: GRCG_OFF_CLOBBERING dx cmp [bp+arg_0], 0Eh jnz short loc_A705 call cdg_put pascal, 256, di, 35 call cdg_put pascal, 352, di, 36 pushd 180h push 2800010h call egc_copy_rect_1_to_0 mov _graph_putsa_fx_func, 2 mov bx, [bp+var_2] shl bx, 2 pushd dword ptr MENU_DESC[bx] ; s call _strlen add sp, 4 shl ax, 3 mov dx, 270h sub dx, ax push dx push 1800009h mov bx, [bp+var_2] shl bx, 2 pushd dword ptr MENU_DESC[bx] call graph_putsa_fx loc_A705: pop di pop si leave retn 4 main_put endp ; --------------------------------------------------------------------------- off_A70B dw offset loc_A634 dw offset loc_A653 dw offset loc_A66F dw offset loc_A679 dw offset loc_A683 dw offset loc_A68D ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public OPTION_PUT option_put proc near var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 4, 0 push si push di mov di, 0E0h mov ax, [bp+arg_2] shl ax, 4 add ax, 0FAh mov [bp+var_4], ax cmp [bp+arg_2], 7 jnz short loc_A737 mov [bp+var_4], 16Eh loc_A737: push 0E0h push [bp+var_4] push 0C00010h call egc_copy_rect_1_to_0 call grcg_setcolor pascal, GC_RMW, [bp+arg_0] mov bx, [bp+arg_2] cmp bx, 7 ja loc_A8DA add bx, bx jmp cs:off_A958[bx] loc_A764: push (224 shl 16) or 250 push 16 call cdg_put_nocolors push 14000FAh les bx, _ksoconfig mov al, es:[bx+11h] mov ah, 0 add ax, 21 push ax call cdg_put_nocolors les bx, _ksoconfig mov al, es:[bx+11h] mov ah, 0 add ax, 6 loc_A797: mov si, ax jmp loc_A8DA ; --------------------------------------------------------------------------- loc_A79C: push (224 shl 16) or 266 push 17 call cdg_put_nocolors push 140010Ah les bx, _ksoconfig mov al, es:[bx+0Fh] mov ah, 0 push ax call cdg_put_nocolors mov si, 0Ah jmp loc_A8DA ; --------------------------------------------------------------------------- loc_A7C5: push (224 shl 16) or 282 push 18 call cdg_put_nocolors push 140011Ah les bx, _ksoconfig mov al, es:[bx+10h] mov ah, 0 push ax call cdg_put_nocolors mov si, 0Bh jmp loc_A8DA ; --------------------------------------------------------------------------- loc_A7EE: push (224 shl 16) or 298 push 19 call cdg_put_nocolors les bx, _ksoconfig cmp byte ptr es:[bx+12h], 0 jnz short loc_A80B mov ax, 1Ch jmp short loc_A818 ; --------------------------------------------------------------------------- loc_A80B: les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 add ax, 18h loc_A818: mov [bp+var_2], ax push (320 shl 16) or 298 push ax call cdg_put_nocolors les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 add ax, 0Ch jmp loc_A797 ; --------------------------------------------------------------------------- loc_A837: push (224 shl 16) or 314 push 20 call cdg_put_nocolors les bx, _ksoconfig cmp byte ptr es:[bx+15h], 0 jnz short loc_A854 mov ax, 1Ch jmp short loc_A865 ; --------------------------------------------------------------------------- loc_A854: les bx, _ksoconfig loc_A858: mov al, es:[bx+15h] mov ah, 0 push ax mov ax, 1Fh pop dx sub ax, dx loc_A865: mov [bp+var_2], ax push (320 shl 16) or 314 push ax call cdg_put_nocolors les bx, _ksoconfig mov al, es:[bx+15h] mov ah, 0 add ax, 0Fh jmp loc_A797 ; --------------------------------------------------------------------------- loc_A884: push (272 shl 16) or 330 les bx, _ksoconfig mov al, es:[bx+16h] mov ah, 0 mov dx, 33 sub dx, ax push dx call cdg_put_nocolors mov di, 100h les bx, _ksoconfig mov al, es:[bx+16h] mov ah, 0 add ax, 12h jmp loc_A797 ; --------------------------------------------------------------------------- loc_A8B2: push (272 shl 16) or 346 push 31 call cdg_put_nocolors mov di, 100h mov si, 14h jmp short loc_A8DA ; --------------------------------------------------------------------------- loc_A8C7: push (272 shl 16) or 366 push 15 call cdg_put_nocolors mov di, 256 mov si, 15h loc_A8DA: GRCG_OFF_CLOBBERING dx cmp [bp+arg_0], 0Eh jnz short loc_A951 call cdg_put pascal, di, [bp+var_4], 35 cmp di, 256 jnz short loc_A8FD lea ax, [di+96] push ax jmp short loc_A900 ; --------------------------------------------------------------------------- loc_A8FD: push 384 loc_A900: push [bp+var_4] push 36 call cdg_put pushd 180h push 2800010h call egc_copy_rect_1_to_0 mov _graph_putsa_fx_func, 2 mov bx, si shl bx, 2 pushd dword ptr MENU_DESC[bx] ; s call _strlen add sp, 4 shl ax, 3 mov dx, 270h sub dx, ax push dx push 1800009h mov bx, si shl bx, 2 pushd dword ptr MENU_DESC[bx] call graph_putsa_fx loc_A951: pop di pop si leave retn 4 option_put endp ; --------------------------------------------------------------------------- db 0 off_A958 dw offset loc_A764 dw offset loc_A79C dw offset loc_A7C5 dw offset loc_A7EE dw offset loc_A837 dw offset loc_A884 dw offset loc_A8B2 dw offset loc_A8C7 ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public MENU_SEL_MOVE menu_sel_move proc near arg_0 = byte ptr 4 arg_2 = byte ptr 6 push bp mov bp, sp mov al, _menu_sel cbw push ax push 8 call _putfunc mov al, [bp+arg_0] add _menu_sel, al mov al, _menu_sel cbw or ax, ax jge short loc_A98B mov al, [bp+arg_2] mov _menu_sel, al loc_A98B: mov al, _menu_sel cmp al, [bp+arg_2] jle short loc_A998 mov _menu_sel, 0 loc_A998: cmp _extra_unlocked, 0 jnz short loc_A9B6 mov al, _menu_sel cbw cmp ax, 1 jnz short loc_A9B6 cmp _in_option, 0 jnz short loc_A9B6 mov al, [bp+arg_0] add _menu_sel, al loc_A9B6: mov al, _menu_sel cbw push ax push 0Eh call _putfunc call snd_se_reset call snd_se_play pascal, 1 call snd_se_update pop bp retn 4 menu_sel_move endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public MAIN_UPDATE_AND_RENDER main_update_and_render proc near push bp mov bp, sp push si cmp _main_menu_initialized, 0 jnz short loc_AA2B mov _main_menu_unused_1, 0 mov _main_input_allowed, 0 push 0C000FAh push 12000A0h call egc_copy_rect_1_to_0 xor si, si jmp short loc_AA16 ; --------------------------------------------------------------------------- loc_AA00: push si mov al, _menu_sel cbw cmp ax, si jnz short loc_AA0E mov ax, 0Eh jmp short loc_AA11 ; --------------------------------------------------------------------------- loc_AA0E: mov ax, 8 loc_AA11: push ax call main_put inc si loc_AA16: cmp si, 6 jl short loc_AA00 mov _putfunc, offset main_put mov _main_menu_initialized, 1 mov _main_input_allowed, 0 loc_AA2B: cmp _key_det, INPUT_NONE jnz short loc_AA37 mov _main_input_allowed, 1 loc_AA37: cmp _main_input_allowed, 0 jz loc_ABC0 test _key_det.lo, low INPUT_UP jz short loc_AA4E call menu_sel_move pascal, 5, -1 loc_AA4E: test _key_det.lo, low INPUT_DOWN jz short loc_AA5C call menu_sel_move pascal, 5, 1 loc_AA5C: test _key_det.hi, high INPUT_OK jnz short loc_AA6C test _key_det.lo, low INPUT_SHOT jz loc_ABA8 loc_AA6C: call snd_se_reset call snd_se_play pascal, 11 call snd_se_update mov al, _menu_sel cbw mov bx, ax cmp bx, 5 ja loc_ABA8 add bx, bx jmp cs:off_ABC3[bx] loc_AA91: call start_game graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aOp1_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 push 0 call graph_copy_page mov PaletteTone, 64h ; 'd' call far ptr palette_show mov _main_menu_initialized, 0 mov _in_option, 0 mov _menu_sel, 0 jmp loc_ABC0 ; --------------------------------------------------------------------------- loc_AAE1: call start_extra graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aOp1_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 push 0 call graph_copy_page mov PaletteTone, 64h ; 'd' call far ptr palette_show mov _main_menu_initialized, 0 mov _in_option, 0 mov _menu_sel, 1 jmp loc_ABC0 ; --------------------------------------------------------------------------- loc_AB31: call score_menu mov _main_menu_initialized, 0 jmp short loc_ABA8 ; --------------------------------------------------------------------------- loc_AB3B: call musicroom call main_cdg_load graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aOp1_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 push 0 call graph_copy_page mov PaletteTone, 64h ; 'd' call far ptr palette_show mov _main_menu_initialized, 0 mov _in_option, 0 mov _menu_sel, 3 jmp short loc_ABC0 ; --------------------------------------------------------------------------- loc_AB8D: mov _main_menu_initialized, 0 mov _in_option, 1 mov _menu_sel, 0 jmp short loc_ABA8 ; --------------------------------------------------------------------------- loc_AB9E: mov _main_menu_initialized, 0 mov _quit, 1 loc_ABA8: test _key_det.hi, high INPUT_CANCEL jz short loc_ABB4 mov _quit, 1 loc_ABB4: cmp _key_det, INPUT_NONE jz short loc_ABC0 mov _main_input_allowed, 0 loc_ABC0: pop si pop bp retn main_update_and_render endp ; --------------------------------------------------------------------------- off_ABC3 dw offset loc_AA91 dw offset loc_AAE1 dw offset loc_AB31 dw offset loc_AB3B dw offset loc_AB8D dw offset loc_AB9E ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public OPTION_UPDATE_AND_RENDER option_update_and_render proc near push bp mov bp, sp push si cmp _option_initialized, 0 jnz short loc_AC1F mov _option_input_allowed, 0 push 11000FAh push 0A00090h call egc_copy_rect_1_to_0 xor si, si jmp short loc_AC0A ; --------------------------------------------------------------------------- loc_ABF4: push si mov al, _menu_sel cbw cmp ax, si jnz short loc_AC02 mov ax, 0Eh jmp short loc_AC05 ; --------------------------------------------------------------------------- loc_AC02: mov ax, 8 loc_AC05: push ax call option_put inc si loc_AC0A: cmp si, 8 jl short loc_ABF4 mov _putfunc, offset option_put mov _option_initialized, 1 mov _option_input_allowed, 0 loc_AC1F: cmp _key_det, INPUT_NONE jnz short loc_AC2B mov _option_input_allowed, 1 loc_AC2B: cmp _option_input_allowed, 0 jz loc_AF2E test _key_det.lo, low INPUT_UP jz short loc_AC42 call menu_sel_move pascal, 7, -1 loc_AC42: test _key_det.lo, low INPUT_DOWN jz short loc_AC50 call menu_sel_move pascal, 7, 1 loc_AC50: test _key_det.hi, high INPUT_OK jnz short loc_AC60 test _key_det.lo, low INPUT_SHOT jz loc_ACF8 loc_AC60: mov al, _menu_sel cbw cmp ax, 6 jz short loc_AC71 cmp ax, 7 jz short loc_ACD8 jmp loc_AD01 ; --------------------------------------------------------------------------- loc_AC71: les bx, _ksoconfig mov byte ptr es:[bx+11h], 1 mov byte ptr es:[bx+0Fh], 3 mov byte ptr es:[bx+10h], 3 mov byte ptr es:[bx+12h], 2 mov byte ptr es:[bx+15h], 1 mov byte ptr es:[bx+16h], 1 kajacall KAJA_SONG_STOP les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aMiko, SND_LOAD_SE call snd_load pascal, ds, offset aOp, SND_LOAD_SONG kajacall KAJA_SONG_PLAY mov _option_initialized, 0 jmp short loc_ACF8 ; --------------------------------------------------------------------------- loc_ACD8: call snd_se_reset call snd_se_play pascal, 11 call snd_se_update mov _option_initialized, 0 mov _menu_sel, 4 mov _in_option, 0 loc_ACF8: test _key_det.lo, low INPUT_RIGHT jz loc_ADFF loc_AD01: mov al, _menu_sel cbw mov bx, ax cmp bx, 5 ja loc_ADF5 add bx, bx jmp cs:off_AF3D[bx] loc_AD15: les bx, _ksoconfig inc byte ptr es:[bx+11h] cmp byte ptr es:[bx+11h], 3 jbe loc_ADF5 mov byte ptr es:[bx+11h], 0 jmp loc_ADF5 ; --------------------------------------------------------------------------- loc_AD2E: les bx, _ksoconfig inc byte ptr es:[bx+0Fh] cmp byte ptr es:[bx+0Fh], 6 jbe loc_ADF5 mov byte ptr es:[bx+0Fh], 1 jmp loc_ADF5 ; --------------------------------------------------------------------------- loc_AD47: les bx, _ksoconfig inc byte ptr es:[bx+10h] cmp byte ptr es:[bx+10h], 3 jbe loc_ADF5 mov byte ptr es:[bx+10h], 0 jmp loc_ADF5 ; --------------------------------------------------------------------------- loc_AD60: les bx, _ksoconfig inc byte ptr es:[bx+12h] cmp byte ptr es:[bx+12h], 3 jb short loc_AD74 mov byte ptr es:[bx+12h], 0 loc_AD74: kajacall KAJA_SONG_STOP les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aOp, SND_LOAD_SONG kajacall KAJA_SONG_PLAY jmp short loc_ADF5 ; --------------------------------------------------------------------------- loc_ADA8: les bx, _ksoconfig cmp byte ptr es:[bx+15h], 0 jnz short loc_ADBA mov byte ptr es:[bx+15h], 2 jmp short loc_ADC2 ; --------------------------------------------------------------------------- loc_ADBA: les bx, _ksoconfig dec byte ptr es:[bx+15h] loc_ADC2: les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aMiko, SND_LOAD_SE jmp short loc_ADF5 ; --------------------------------------------------------------------------- loc_ADE7: les bx, _ksoconfig mov al, 1 sub al, es:[bx+16h] mov es:[bx+16h], al loc_ADF5: mov al, _menu_sel cbw push ax push 0Eh call option_put loc_ADFF: test _key_det.lo, low INPUT_LEFT jz loc_AF0C mov al, _menu_sel cbw mov bx, ax cmp bx, 5 ja loc_AF02 add bx, bx jmp cs:off_AF31[bx] loc_AE1C: les bx, _ksoconfig cmp byte ptr es:[bx+11h], 0 jnz short loc_AE2C mov byte ptr es:[bx+11h], 4 loc_AE2C: les bx, _ksoconfig dec byte ptr es:[bx+11h] jmp loc_AF02 ; --------------------------------------------------------------------------- loc_AE37: les bx, _ksoconfig cmp byte ptr es:[bx+0Fh], 1 jnz short loc_AE47 mov byte ptr es:[bx+0Fh], 7 loc_AE47: les bx, _ksoconfig dec byte ptr es:[bx+0Fh] jmp loc_AF02 ; --------------------------------------------------------------------------- loc_AE52: les bx, _ksoconfig cmp byte ptr es:[bx+10h], 0 jnz short loc_AE62 mov byte ptr es:[bx+10h], 4 loc_AE62: les bx, _ksoconfig dec byte ptr es:[bx+10h] jmp loc_AF02 ; --------------------------------------------------------------------------- loc_AE6D: les bx, _ksoconfig cmp byte ptr es:[bx+12h], 0 jnz short loc_AE7F mov byte ptr es:[bx+12h], 2 jmp short loc_AE87 ; --------------------------------------------------------------------------- loc_AE7F: les bx, _ksoconfig dec byte ptr es:[bx+12h] loc_AE87: kajacall KAJA_SONG_STOP les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aOp, SND_LOAD_SONG kajacall KAJA_SONG_PLAY jmp short loc_AF02 ; --------------------------------------------------------------------------- loc_AEBB: les bx, _ksoconfig inc byte ptr es:[bx+15h] cmp byte ptr es:[bx+15h], 3 jb short loc_AECF mov byte ptr es:[bx+15h], 0 loc_AECF: les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aMiko, SND_LOAD_SE jmp short loc_AF02 ; --------------------------------------------------------------------------- loc_AEF4: les bx, _ksoconfig mov al, 1 sub al, es:[bx+16h] mov es:[bx+16h], al loc_AF02: mov al, _menu_sel cbw push ax push 0Eh call option_put loc_AF0C: test _key_det.hi, high INPUT_CANCEL jz short loc_AF22 mov _option_initialized, 0 mov _menu_sel, 4 mov _in_option, 0 loc_AF22: cmp _key_det, INPUT_NONE jz short loc_AF2E mov _option_input_allowed, 0 loc_AF2E: pop si pop bp retn option_update_and_render endp ; --------------------------------------------------------------------------- off_AF31 dw offset loc_AE1C dw offset loc_AE37 dw offset loc_AE52 dw offset loc_AE6D dw offset loc_AEBB dw offset loc_AEF4 off_AF3D dw offset loc_AD15 dw offset loc_AD2E dw offset loc_AD47 dw offset loc_AD60 dw offset loc_ADA8 dw offset loc_ADE7 ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame ; int __cdecl main(int argc, const char **argv, const char **envp) public _main _main proc far _argc = word ptr 6 _argv = dword ptr 8 _envp = dword ptr 0Ch push bp mov bp, sp push si xor si, si call text_clear call respal_create mov _mem_assign_paras, MEM_ASSIGN_PARAS_OP call _game_init_op c, offset aKaikidan1_dat0, ds or ax, ax jz short loc_AF7D push ds push offset aNotEnoughMem call dos_puts2 call _getch loc_AF7D: call cfg_load les bx, _ksoconfig cmp byte ptr es:[bx+11h], 0FFh jnz short loc_AF97 call sub_B5A6 les bx, _ksoconfig mov byte ptr es:[bx+11h], 1 loc_AF97: les bx, _ksoconfig mov al, es:[bx+12h] mov ah, 0 push ax mov al, es:[bx+15h] mov ah, 0 push ax call snd_determine_modes call snd_load pascal, ds, offset aMiko, SND_LOAD_SE les bx, _ksoconfig cmp byte ptr es:[bx+0Ah], 0 jnz short loc_AFD1 call zunsoft les bx, _ksoconfig mov byte ptr es:[bx+0Ah], 1 loc_AFD1: les bx, _ksoconfig cmp byte ptr es:[bx+1Fh], 5 jnz short loc_AFE1 mov byte ptr es:[bx+1Fh], 0 loc_AFE1: les bx, _ksoconfig cmp byte ptr es:[bx+1Fh], 0 jnz short loc_AFF4 kajacall KAJA_SONG_STOP loc_AFF4: call op_animate call main_cdg_load call score_cleared_load mov _in_option, 0 mov _quit, 0 mov _menu_sel, 0 jmp short loc_B058 ; --------------------------------------------------------------------------- loc_B00E: call _input_reset_sense_held mov al, _in_option cbw or ax, ax jz short loc_B022 cmp ax, 1 jz short loc_B032 jmp short loc_B035 ; --------------------------------------------------------------------------- loc_B022: call main_update_and_render cmp si, 280h jl short loc_B035 call start_demo xor si, si jmp short loc_B035 ; --------------------------------------------------------------------------- loc_B032: call option_update_and_render loc_B035: cmp _key_det, INPUT_NONE jz short loc_B043 cmp _key_det, INPUT_LEFT or INPUT_RIGHT jnz short loc_B046 loc_B043: inc si jmp short loc_B048 ; --------------------------------------------------------------------------- loc_B046: xor si, si loc_B048: les bx, _ksoconfig inc dword ptr es:[bx+28h] push 1 call frame_delay loc_B058: cmp _quit, 0 jz short loc_B00E call main_cdg_free call cfg_save_exit call text_clear call game_exit_to_dos call respal_free pop si pop bp retf _main endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B077 proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov si, [bp+arg_2] mov di, [bp+arg_0] push si push di mov ax, word_12F30 shl ax, 4 push ax push 10h call egc_copy_rect_1_to_0 push si push di push 2 call super_put push si lea ax, [di+8] push ax push 6 call super_put add si, 10h mov [bp+var_2], 1 jmp short loc_B0CD ; --------------------------------------------------------------------------- loc_B0B2: push si push di push 0 call super_put push si lea ax, [di+8] push ax push 3 call super_put inc [bp+var_2] add si, 10h loc_B0CD: mov ax, word_12F30 dec ax cmp ax, [bp+var_2] jg short loc_B0B2 push si push di push 4 call super_put push si lea ax, [di+8] push ax push 7 call super_put pop di pop si leave retn 4 sub_B077 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B0F1 proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov si, [bp+arg_2] mov di, [bp+arg_0] push si lea ax, [di+8] push ax mov ax, word_12F30 shl ax, 4 push ax push 10h call egc_copy_rect_1_to_0 push si push di push 6 call super_put add si, 10h mov [bp+var_2], 1 jmp short loc_B132 ; --------------------------------------------------------------------------- loc_B123: push si push di push 3 call super_put inc [bp+var_2] add si, 10h loc_B132: mov ax, word_12F30 dec ax cmp ax, [bp+var_2] jg short loc_B123 push si push di push 7 call super_put pop di pop si leave retn 4 sub_B0F1 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B14A proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov ax, [bp+arg_2] mov [bp+var_2], ax mov si, [bp+arg_0] push ax push si push 5 call super_put add [bp+var_2], 10h mov di, 1 jmp short loc_B17B ; --------------------------------------------------------------------------- loc_B16B: push [bp+var_2] push si push 1 call super_put inc di add [bp+var_2], 10h loc_B17B: mov ax, word_12F30 dec ax cmp ax, di jg short loc_B16B push [bp+var_2] push si push 8 call super_put add si, 10h mov di, 1 jmp short loc_B1A8 ; --------------------------------------------------------------------------- loc_B196: push [bp+arg_2] push si call sub_B077 push 1 call frame_delay inc di add si, 8 loc_B1A8: mov ax, word_12F32 add ax, ax add ax, 0FFFDh cmp ax, di jg short loc_B196 pop di pop si leave retn 4 sub_B14A endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B1BA proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov si, [bp+arg_2] mov di, [bp+arg_0] push si push di mov ax, word_12F30 shl ax, 4 push ax push 20h ; ' ' call egc_copy_rect_1_to_0 push si push di push 5 call super_put push si lea ax, [di+10h] push ax push 6 call super_put add si, 10h mov [bp+var_2], 1 jmp short loc_B210 ; --------------------------------------------------------------------------- loc_B1F5: push si push di push 1 call super_put push si lea ax, [di+10h] push ax push 3 call super_put inc [bp+var_2] add si, 10h loc_B210: mov ax, word_12F30 dec ax cmp ax, [bp+var_2] jg short loc_B1F5 push si push di push 8 call super_put push si lea ax, [di+10h] push ax push 7 call super_put pop di pop si leave retn 4 sub_B1BA endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B234 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_0] mov ax, word_12F32 shl ax, 4 add ax, 0FFF0h add si, ax mov di, 1 jmp short loc_B25E ; --------------------------------------------------------------------------- loc_B24C: push [bp+arg_2] push si call sub_B0F1 push 1 call frame_delay inc di sub si, 8 loc_B25E: mov ax, word_12F32 add ax, ax add ax, 0FFFEh cmp ax, di jg short loc_B24C pop di pop si pop bp retn 4 sub_B234 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B270 proc near var_4 = dword ptr -4 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 4, 0 push si mov si, 88h mov ax, [bp+arg_2] or ax, ax jz short loc_B2A0 cmp ax, 1 jz short loc_B293 cmp ax, 2 jnz short loc_B2AB mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_BGM_OPTION1 ; "ステレオＦＭ音源" jmp short loc_B2AB ; --------------------------------------------------------------------------- loc_B293: mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_BGM_OPTION2 ; "　標準ＦＭ音源　" add si, 10h jmp short loc_B2AB ; --------------------------------------------------------------------------- loc_B2A0: mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_BGM_OPTION3 ; "　　音楽無し　　" add si, 20h ; ' ' loc_B2AB: push 30h ; '0' push si push [bp+arg_0] pushd [bp+var_4] call graph_putsa_fx pop si leave retn 4 sub_B270 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B2BF proc near var_4 = dword ptr -4 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 4, 0 push si mov si, 88h mov ax, [bp+arg_2] or ax, ax jz short loc_B2F1 cmp ax, 1 jz short loc_B2DA cmp ax, 2 jz short loc_B2E4 jmp short loc_B2FC ; --------------------------------------------------------------------------- loc_B2DA: mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_SFX_OPTION1 ; "　　ＦＭ音源　　" jmp short loc_B2FC ; --------------------------------------------------------------------------- loc_B2E4: mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_SFX_OPTION2 ; "　Ｂｅｅｐ音源　" add si, 10h jmp short loc_B2FC ; --------------------------------------------------------------------------- loc_B2F1: mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], offset aSETUP_SFX_OPTION3 ; "　 効果音無し 　" add si, 20h ; ' ' loc_B2FC: push 30h ; '0' push si push [bp+arg_0] pushd [bp+var_4] call graph_putsa_fx pop si leave retn 4 sub_B2BF endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B310 proc near push bp mov bp, sp push si push di mov di, 88h xor si, si jmp short loc_B335 ; --------------------------------------------------------------------------- loc_B31C: push 0D0h push di push 0Fh mov bx, si shl bx, 2 pushd [SETUP_BGM_BODY+bx] call graph_putsa_fx inc si add di, 10h loc_B335: cmp si, 9 jl short loc_B31C pop di pop si pop bp retn sub_B310 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B33E proc near push bp mov bp, sp push si push di mov di, 88h xor si, si jmp short loc_B363 ; --------------------------------------------------------------------------- loc_B34A: push 0D0h push di push 0Fh mov bx, si shl bx, 2 pushd [SETUP_SFX_BODY+bx] call graph_putsa_fx inc si add di, 10h loc_B363: cmp si, 9 jl short loc_B34A pop di pop si pop bp retn sub_B33E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B36C proc near var_2 = word ptr -2 enter 2, 0 mov word_12F30, 1Ch push 600050h call sub_B1BA push 700058h push 0Fh push ds push offset aSETUP_BGM_HEAD ; "　　　　　使用する音源を選択して下さい・... call graph_putsa_fx mov word_12F30, 0Ah mov word_12F32, 4 push 200080h call sub_B14A mov [bp+var_2], 0 jmp short loc_B3C3 ; --------------------------------------------------------------------------- loc_B3AC: push [bp+var_2] cmp [bp+var_2], 2 jnz short loc_B3BA mov ax, 0Fh jmp short loc_B3BC ; --------------------------------------------------------------------------- loc_B3BA: xor ax, ax loc_B3BC: push ax call sub_B270 inc [bp+var_2] loc_B3C3: cmp [bp+var_2], 3 jl short loc_B3AC mov word_12F30, 19h mov word_12F32, 0Ah push 0C00080h call sub_B14A call sub_B310 mov [bp+var_2], 2 loc_B3E6: call input_wait_for_change pascal, 0 push 1 call frame_delay test _key_det.hi, high INPUT_OK jnz short loc_B452 test _key_det.lo, low INPUT_SHOT jnz short loc_B452 test _key_det.lo, low INPUT_UP jz short loc_B429 push [bp+var_2] push 0 call sub_B270 cmp [bp+var_2], 2 jnz short loc_B41E mov [bp+var_2], 0 jmp short loc_B421 ; --------------------------------------------------------------------------- loc_B41E: inc [bp+var_2] loc_B421: push [bp+var_2] push 0Fh call sub_B270 loc_B429: test _key_det.lo, low INPUT_DOWN jz short loc_B3E6 push [bp+var_2] push 0 call sub_B270 cmp [bp+var_2], 0 jnz short loc_B445 mov [bp+var_2], 2 jmp short loc_B448 ; --------------------------------------------------------------------------- loc_B445: dec [bp+var_2] loc_B448: push [bp+var_2] push 0Fh call sub_B270 jmp short loc_B3E6 ; --------------------------------------------------------------------------- loc_B452: mov word_12F30, 19h mov word_12F32, 0Ah push 0C00080h call sub_B234 mov word_12F30, 0Ah mov word_12F32, 4 push 200080h call sub_B234 les bx, _ksoconfig mov al, byte ptr [bp+var_2] mov es:[bx+12h], al leave retn sub_B36C endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B489 proc near var_2 = word ptr -2 enter 2, 0 mov word_12F30, 1Ch push 600050h call sub_B1BA push 700058h push 0Fh push ds push offset aSETUP_SFX_HEAD ; "　　　　効果音に使用する音源を選択して・... call graph_putsa_fx mov word_12F30, 0Ah mov word_12F32, 4 push 200080h call sub_B14A mov [bp+var_2], 0 jmp short loc_B4E0 ; --------------------------------------------------------------------------- loc_B4C9: push [bp+var_2] cmp [bp+var_2], 1 jnz short loc_B4D7 mov ax, 0Fh jmp short loc_B4D9 ; --------------------------------------------------------------------------- loc_B4D7: xor ax, ax loc_B4D9: push ax call sub_B2BF inc [bp+var_2] loc_B4E0: cmp [bp+var_2], 3 jl short loc_B4C9 mov word_12F30, 19h mov word_12F32, 0Ah push 0C00080h call sub_B14A call sub_B33E mov [bp+var_2], 1 loc_B503: call input_wait_for_change pascal, 0 push 1 call frame_delay test _key_det.hi, high INPUT_OK jnz short loc_B56F test _key_det.lo, low INPUT_SHOT jnz short loc_B56F test _key_det.lo, low INPUT_DOWN jz short loc_B546 push [bp+var_2] push 0 call sub_B2BF cmp [bp+var_2], 2 jnz short loc_B53B mov [bp+var_2], 0 jmp short loc_B53E ; --------------------------------------------------------------------------- loc_B53B: inc [bp+var_2] loc_B53E: push [bp+var_2] push 0Fh call sub_B2BF loc_B546: test _key_det.lo, low INPUT_UP jz short loc_B503 push [bp+var_2] push 0 call sub_B2BF cmp [bp+var_2], 0 jnz short loc_B562 mov [bp+var_2], 2 jmp short loc_B565 ; --------------------------------------------------------------------------- loc_B562: dec [bp+var_2] loc_B565: push [bp+var_2] push 0Fh call sub_B2BF jmp short loc_B503 ; --------------------------------------------------------------------------- loc_B56F: mov word_12F30, 19h mov word_12F32, 0Ah push 0C00080h call sub_B234 mov word_12F30, 0Ah mov word_12F32, 4 push 200080h call sub_B234 les bx, _ksoconfig mov al, byte ptr [bp+var_2] mov es:[bx+15h], al leave retn sub_B489 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B5A6 proc near push bp mov bp, sp mov PaletteTone, 0 call far ptr palette_show push ds push offset aMswin_bft ; "mswin.bft" call super_entry_bfnt graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aMs_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 push 0 call graph_copy_page push 1 call palette_black_in call sub_B36C push 1 call frame_delay push 0 call graph_copy_page call sub_B489 push 1 call palette_black_out call super_free pop bp retn sub_B5A6 endp include th04/zunsoft.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public CFG_LOAD cfg_load proc near var_C = word ptr -0Ch var_A = byte ptr -0Ah var_4 = word ptr -4 enter 0Ch, 0 push ds push offset aMiko_cfg ; "MIKO.CFG" call file_ropen push ss lea ax, [bp+var_A] push ax push 0Ah call file_read call file_close mov ax, [bp+var_4] mov [bp+var_C], ax mov word ptr _ksoconfig+2, ax mov word ptr _ksoconfig, 0 les bx, _ksoconfig cmp byte ptr es:[bx+0Fh], 6 ja short loc_BAD3 cmp byte ptr es:[bx+0Fh], 0 jnz short loc_BADC loc_BAD3: les bx, _ksoconfig mov byte ptr es:[bx+0Fh], 3 loc_BADC: les bx, _ksoconfig cmp byte ptr es:[bx+10h], 3 jbe short loc_BAEC mov byte ptr es:[bx+10h], 3 loc_BAEC: les bx, _ksoconfig cmp byte ptr es:[bx+12h], 3 jb short loc_BAFC mov byte ptr es:[bx+12h], 0 loc_BAFC: les bx, _ksoconfig cmp byte ptr es:[bx+15h], 3 jb short locret_BB0C mov byte ptr es:[bx+15h], 0 locret_BB0C: leave retn cfg_load endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public CFG_SAVE cfg_save proc near 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 = byte ptr -2 enter 8, 0 push ds push offset aMiko_cfg ; "MIKO.CFG" call file_append pushd 0 push 0 call file_seek les bx, _ksoconfig mov al, es:[bx+11h] mov [bp+var_8], al mov al, es:[bx+0Fh] mov [bp+var_7], al mov al, es:[bx+10h] mov [bp+var_6], al mov al, es:[bx+12h] mov [bp+var_5], al mov al, es:[bx+15h] mov [bp+var_4], al mov al, es:[bx+16h] mov [bp+var_3], al push ss lea ax, [bp+var_8] push ax push 6 call file_write pushd 9 push 0 call file_seek mov al, [bp+var_8] add al, [bp+var_7] add al, [bp+var_6] add al, [bp+var_5] add al, [bp+var_4] add al, [bp+var_3] mov [bp+var_2], al push ss lea ax, [bp+var_2] push ax push 1 call file_write call file_close leave retn cfg_save endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public CFG_SAVE_EXIT cfg_save_exit 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_1 = byte ptr -1 enter 0Ah, 0 lea ax, [bp+var_A] push ss push ax push ds push offset unk_FF00 mov cx, 0Ah call SCOPY@ push ds push offset aMiko_cfg ; "MIKO.CFG" call file_append pushd 0 push 0 call file_seek les bx, _ksoconfig mov al, es:[bx+11h] mov [bp+var_A], al mov al, es:[bx+0Fh] mov [bp+var_9], al mov al, es:[bx+10h] mov [bp+var_8], al mov al, es:[bx+12h] mov [bp+var_7], al mov al, es:[bx+15h] mov [bp+var_6], al mov al, es:[bx+16h] mov [bp+var_5], al mov al, [bp+var_A] add al, [bp+var_9] add al, [bp+var_8] add al, [bp+var_7] add al, [bp+var_6] add al, [bp+var_5] mov [bp+var_1], al push ss lea ax, [bp+var_A] push ax push 0Ah call file_write call file_close leave retn cfg_save_exit endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame main_cdg_load proc near push bp mov bp, sp call cdg_load_all pascal, 0, ds, offset aSft1_cd2 call cdg_load_all pascal, 10, ds, offset aSft2_cd2 call cdg_load_all pascal, 35, ds, offset aCar_cd2 call cdg_load_single_noalpha pascal, 40, ds, offset aSl00_cdg, 0 call cdg_load_single_noalpha pascal, 41, ds, offset aSl01_cdg, 0 call cdg_load_single_noalpha pascal, 42, ds, offset aSl02_cdg, 0 call cdg_load_single_noalpha pascal, 43, ds, offset aSl03_cdg, 0 call cdg_load_single pascal, 44, ds, offset aSlcl_cdg, 0 call cdg_load_single_noalpha pascal, 45, ds, offset aSl04_cdg, 0 pop bp retn main_cdg_load endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame main_cdg_free proc near push bp mov bp, sp call cdg_freeall pop bp retn main_cdg_free endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame op_animate proc near @@page_show = byte ptr -2 @@page_access = byte ptr -1 enter 2, 0 push si mov PaletteTone, 0 call far ptr palette_show call pi_slot_load pascal, 0, ds, offset aOp2a_pi call pi_slot_load pascal, 1, ds, offset aOp2b_pi call pi_slot_load pascal, 2, ds, offset aOp2c_pi call pi_slot_load pascal, 3, ds, offset aOp2d_pi call pi_slot_load pascal, 4, ds, offset aOp2e_pi call pi_slot_load pascal, 5, ds, offset aOp2f_pi call pi_slot_load pascal, 6, ds, offset aOp2g_pi call pi_slot_load pascal, 7, ds, offset aOp2h_pi graph_accesspage 0 graph_showpage al call grcg_setcolor pascal, (GC_RMW shl 16) + 1 graph_accesspage 1 call grcg_byteboxfill_x pascal, large 0, (((RES_X - 1) / 8) shl 16) or (RES_Y - 1) graph_accesspage 0 call grcg_byteboxfill_x pascal, large 0, (((RES_X - 1) / 8) shl 16) or (RES_Y - 1) GRCG_OFF_CLOBBERING dx push 1 call graph_copy_page mov [bp+@@page_access], 1 mov [bp+var_2], 0 graph_accesspage 0 graph_showpage al xor si, si jmp short loc_BDAD ; --------------------------------------------------------------------------- loc_BD55: mov ax, si mov bx, 8 cwd idiv bx cmp dx, 1 jg short loc_BD81 mov ax, si cwd idiv bx call pi_slot_palette_apply pascal, ax pushd (0 shl 16) or 278 mov ax, si mov bx, 8 cwd idiv bx push ax call pi_slot_put loc_BD81: push 1 call frame_delay graph_accesspage [bp+@@page_access] graph_showpage [bp+var_2] mov [bp+@@page_access], al mov al, 1 sub al, [bp+var_2] mov [bp+var_2], al lea ax, [si+24h] mov PaletteTone, ax call far ptr palette_show inc si loc_BDAD: cmp si, 40h jl short loc_BD55 mov si, 1 jmp short loc_BDBE ; --------------------------------------------------------------------------- loc_BDB7: call pi_slot_free pascal, si inc si loc_BDBE: cmp si, 8 jl short loc_BDB7 push 1 call graph_copy_page les bx, _ksoconfig cmp byte ptr es:[bx+1Fh], 0 jnz short loc_BDE8 call snd_load pascal, ds, offset aOp_0, SND_LOAD_SONG kajacall KAJA_SONG_PLAY loc_BDE8: call pi_slot_load pascal, 0, ds, offset aOp1_pi_0 graph_accesspage 0 graph_showpage al push 16 call frame_delay xor si, si jmp short loc_BE46 ; --------------------------------------------------------------------------- loc_BE08: mov ax, si mov bx, 4 cwd idiv bx cmp dx, 1 jg short loc_BE25 pushd 0 push 0 mov ax, si cwd idiv bx push ax call sub_DC94 loc_BE25: push 1 call frame_delay graph_accesspage [bp+@@page_access] graph_showpage [bp+var_2] mov [bp+@@page_access], al mov al, 1 sub al, [bp+var_2] mov [bp+var_2], al inc si loc_BE46: cmp si, 10h jl short loc_BE08 graph_accesspage 1 graph_showpage 0 call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 push 0 call graph_copy_page pop si leave retn op_animate endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public DRAW_TRACK draw_track proc near var_5 = byte ptr -5 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = byte ptr 6 enter 6, 0 push si mov [bp+var_5], 5 mov al, [bp+arg_2] mov ah, 0 sub ax, word_1403A shl ax, 4 mov si, ax or si, si jl loc_BF48 cmp si, 192 jge loc_BF48 cmp [bp+arg_0], 0 jz short loc_BEF4 call grcg_setcolor pascal, (GC_RMW shl 16) + 5 push (12 shl 16) or 300 lea ax, [si+96] push ax call grcg_hline push (12 shl 16) or 300 lea ax, [si+111] push ax call grcg_hline push 12 lea ax, [si+96] push ax lea ax, [si+111] push ax call grcg_vline push 300 lea ax, [si+96] push ax lea ax, [si+111] push ax call grcg_vline GRCG_OFF_CLOBBERING dx jmp short loc_BF05 ; --------------------------------------------------------------------------- loc_BEF4: push 0 lea ax, [si+96] push ax push 1400010h call bgimage_put_rect loc_BF05: mov al, [bp+arg_2] mov ah, 0 cmp ax, word_1403C jnz short loc_BF14 mov [bp+var_5], 3 loc_BF14: mov bx, music_game imul bx, 78h mov al, [bp+arg_2] mov ah, 0 shl ax, 2 add bx, ax mov ax, word ptr _MUSIC_TITLES+2[bx] mov dx, word ptr _MUSIC_TITLES[bx] mov [bp+var_2], ax mov [bp+var_4], dx add si, 60h push 0Ch push si mov al, [bp+var_5] mov ah, 0 push ax push [bp+var_2] push dx call graph_putsa_fx loc_BF48: pop si leave retn 4 draw_track endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public DRAW_TRACKS draw_tracks proc near @@sel = byte ptr 4 push bp mov bp, sp push si xor si, si jmp short loc_BF6B ; --------------------------------------------------------------------------- loc_BF55: push si mov al, [bp+@@sel] mov ah, 0 cmp ax, si jnz short loc_BF64 mov ax, 1 jmp short loc_BF66 ; --------------------------------------------------------------------------- loc_BF64: xor ax, ax loc_BF66: push ax call draw_track inc si loc_BF6B: mov ax, musicroom_trackcount add ax, 2 cmp ax, si jg short loc_BF55 push 0C0050h push 5 pushd [MUSICROOM_UP] call graph_putsa_fx push 0C0120h push 5 pushd [MUSICROOM_DOWN] call graph_putsa_fx push 0C0020h push 3 mov bx, music_game shl bx, 2 pushd dword ptr MUSICROOM_GAME[bx] call graph_putsa_fx pop si pop bp retn 2 draw_tracks endp include th02/music/music.asm include th05/music/music_cmt_load.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public DRAW_CMT_LINES draw_cmt_lines proc pascal near local @@y:word push si push di push 1400020h push 7 push ds push offset _music_cmt call graph_putsa_fx mov si, offset _music_cmt + MUSIC_CMT_LINE_LEN mov di, 1 mov @@y, 180 jmp short loc_C36D ; --------------------------------------------------------------------------- loc_C351: cmp byte ptr [si], ';' jz short loc_C365 push 320 push @@y push 7 push ds push si call graph_putsa_fx loc_C365: inc di add @@y, 16 add si, MUSIC_CMT_LINE_LEN loc_C36D: cmp di, MUSIC_CMT_LINE_COUNT jl short loc_C351 pop di pop si ret draw_cmt_lines endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C376 proc near push bp mov bp, sp push si mov si, 4 jmp short loc_C390 ; --------------------------------------------------------------------------- loc_C37F: mov _graph_putsa_fx_func, si call draw_cmt_lines call music_flip call draw_cmt_lines call music_flip inc si loc_C390: cmp si, 8 jl short loc_C37F mov _graph_putsa_fx_func, 2 call draw_cmt_lines call music_flip call draw_cmt_lines pop si pop bp retn sub_C376 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C3A7 proc near push bp mov bp, sp mov _graph_putsa_fx_func, 2 push 1400020h push 1400010h call bgimage_put_rect push 14000B4h push 1400090h call bgimage_put_rect call music_flip push 1400020h push 1400010h call bgimage_put_rect push 14000B4h push 1400090h call bgimage_put_rect pop bp retn sub_C3A7 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public DRAW_CMT draw_cmt proc near @@track = word ptr 4 push bp mov bp, sp cmp byte_13E96, 0 jz short loc_C406 call sub_C3A7 loc_C406: call music_cmt_load pascal, [bp+@@track] call screen_back_B_put push 1400040h push 1400100h call bgimage_put_rect cmp byte_13E96, 0 jz short loc_C42C call sub_C376 jmp short loc_C43A ; --------------------------------------------------------------------------- loc_C42C: mov byte_13E96, 1 call draw_cmt_lines call music_flip call draw_cmt_lines loc_C43A: call screen_back_B_put pop bp retn 2 draw_cmt endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C441 proc near arg_0 = word ptr 4 push bp mov bp, sp push si mov si, [bp+arg_0] pushd 20h ; ' ' push 1400010h call bgimage_put_rect pushd 60h push 14000C0h call bgimage_put_rect call draw_tracks pascal, si call music_flip pushd 20h ; ' ' push 1400010h call bgimage_put_rect pushd 60h push 14000C0h call bgimage_put_rect call draw_tracks pascal, si pop si pop bp retn 2 sub_C441 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public MUSICROOM musicroom proc near @@sel = byte ptr -1 enter 2, 0 push si xor si, si mov word_1403A, 0 mov word_1403C, 0 mov _music_sel, 0 mov bx, music_game add bx, bx mov ax, MUSICROOM_TRACKCOUNTS[bx] mov musicroom_trackcount, ax mov byte_13E96, 0 call cdg_freeall call text_clear mov _music_page, 1 mov PaletteTone, 0 call far ptr palette_show graph_showpage 0 graph_accesspage al call graph_clear graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aMusic_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 call _piano_setup call screen_back_B_snap call bgimage_snap call draw_tracks pascal, word ptr _music_sel push 0 call graph_copy_page graph_accesspage 1 graph_showpage 0 call pfend push ds push offset aMusic_dat ; "music.dat" call pfstart mov al, _music_sel mov ah, 0 call draw_cmt pascal, ax mov PaletteTone, 64h ; 'd' call far ptr palette_show loc_C555: call _input_reset_sense_held cmp _key_det, INPUT_NONE jz short loc_C57F cmp si, 18h jl short loc_C579 cmp _key_det, INPUT_UP jz short loc_C574 cmp _key_det, INPUT_DOWN jnz short loc_C579 loc_C574: mov si, 14h jmp short loc_C57F ; --------------------------------------------------------------------------- loc_C579: inc si call music_flip jmp short loc_C555 ; --------------------------------------------------------------------------- loc_C57F: call _input_reset_sense_held test _key_det.lo, low INPUT_UP jz short loc_C5EB mov al, _music_sel mov [bp+@@sel], al cmp _music_sel, 0 jbe short loc_C5D5 dec _music_sel mov al, _music_sel mov ah, 0 cmp ax, word_1403A jge short loc_C5AE mov al, _music_sel mov ah, 0 jmp short loc_C61C ; --------------------------------------------------------------------------- loc_C5AE: call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 call music_flip call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 jmp short loc_C5EB ; --------------------------------------------------------------------------- loc_C5D5: mov al, byte ptr musicroom_trackcount mov _music_sel, al mov ax, musicroom_trackcount add ax, 0FFF5h mov word_1403A, ax push musicroom_trackcount call sub_C441 loc_C5EB: test _key_det.lo, low INPUT_DOWN jz short loc_C666 mov al, _music_sel mov [bp+@@sel], al mov ah, 0 cmp ax, musicroom_trackcount jge short loc_C652 inc _music_sel mov al, _music_sel mov ah, 0 mov dx, word_1403A add dx, 0Ch cmp ax, dx jl short loc_C62B mov al, _music_sel mov ah, 0 add ax, 0FFF5h loc_C61C: mov word_1403A, ax mov al, _music_sel mov ah, 0 push ax call sub_C441 jmp loc_C6E3 ; --------------------------------------------------------------------------- loc_C62B: call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 call music_flip call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 jmp short loc_C666 ; --------------------------------------------------------------------------- loc_C652: mov _music_sel, 0 mov word_1403A, 0 mov al, _music_sel mov ah, 0 push ax call sub_C441 loc_C666: test _key_det.lo, low INPUT_LEFT jz short loc_C680 dec music_game cmp music_game, 0 jge short loc_C698 mov music_game, 4 jmp short loc_C698 ; --------------------------------------------------------------------------- loc_C680: test _key_det.lo, low INPUT_RIGHT jz short loc_C6E3 inc music_game cmp music_game, 5 jl short loc_C698 mov music_game, 0 loc_C698: mov _music_sel, 0 mov word_1403C, 0 mov word_1403A, 0 mov bx, music_game add bx, bx mov ax, MUSICROOM_TRACKCOUNTS[bx] mov musicroom_trackcount, ax push 0 call sub_C441 kajacall KAJA_SONG_FADE, 32 call draw_cmt pascal, 0 mov bx, music_game imul bx, 78h call snd_load pascal, dword ptr _MUSIC_FILES[bx], SND_LOAD_SONG kajacall KAJA_SONG_PLAY loc_C6E3: test _key_det.lo, low INPUT_SHOT jnz short loc_C6F1 test _key_det.hi, high INPUT_OK jz short loc_C767 loc_C6F1: mov al, _music_sel mov ah, 0 cmp ax, musicroom_trackcount jz loc_C77F kajacall KAJA_SONG_FADE, 32 mov al, byte ptr word_1403C mov [bp+@@sel], al mov al, _music_sel mov ah, 0 mov word_1403C, ax call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 call music_flip call draw_track pascal, word ptr [bp+@@sel], 0 call draw_track pascal, word ptr _music_sel, 1 mov al, _music_sel mov ah, 0 call draw_cmt pascal, ax mov bx, music_game imul bx, 78h mov al, _music_sel mov ah, 0 shl ax, 2 add bx, ax call snd_load pascal, dword ptr _MUSIC_FILES[bx], SND_LOAD_SONG kajacall KAJA_SONG_PLAY loc_C767: test _key_det.hi, high INPUT_CANCEL jnz short loc_C77F cmp _key_det, INPUT_NONE jnz loc_C555 xor si, si call music_flip jmp loc_C57F ; --------------------------------------------------------------------------- loc_C77F: call _input_reset_sense_held cmp _key_det, INPUT_NONE jz short loc_C790 call music_flip jmp short loc_C77F ; --------------------------------------------------------------------------- loc_C790: call pfend push ds push offset aKaikidan1_dat1 call pfstart kajacall KAJA_SONG_FADE, 16 call screen_back_B_free graph_showpage 0 graph_accesspage al push 1 call palette_black_out call bgimage_free call snd_load pascal, ds, offset aH_op+2, SND_LOAD_SONG kajacall KAJA_SONG_PLAY pop si leave retn musicroom endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C7D5 proc near var_1 = byte ptr -1 enter 2, 0 push si mov si, 4 jmp short loc_C802 ; --------------------------------------------------------------------------- loc_C7DF: mov al, [si+5061h] mov [bp+var_1], al mov al, byte_14041 ror [bp+var_1], 3 xor [bp+var_1], al mov al, [si+5060h] mov dl, byte_14040 add dl, [bp+var_1] add al, dl mov [si+5060h], al inc si loc_C802: cmp si, 5Fh ; '_' jl short loc_C7DF mov al, byte_14040 add [si+5060h], al xor cx, cx mov si, 4 jmp short loc_C81E ; --------------------------------------------------------------------------- loc_C815: mov al, [si+5060h] mov ah, 0 add cx, ax inc si loc_C81E: cmp si, 60h jl short loc_C815 cmp word_14042, cx jz short loc_C82D mov al, 1 jmp short loc_C87B ; --------------------------------------------------------------------------- loc_C82D: mov si, 4 jmp short loc_C855 ; --------------------------------------------------------------------------- loc_C832: mov al, [si+50C1h] mov [bp+var_1], al mov al, byte_140A1 ror [bp+var_1], 3 xor [bp+var_1], al mov al, [si+50C0h] mov dl, byte_140A0 add dl, [bp+var_1] add al, dl mov [si+50C0h], al inc si loc_C855: cmp si, 5Fh ; '_' jl short loc_C832 mov al, byte_140A0 add [si+50C0h], al xor cx, cx mov si, 4 jmp short loc_C871 ; --------------------------------------------------------------------------- loc_C868: mov al, [si+50C0h] mov ah, 0 add cx, ax inc si loc_C871: cmp si, 60h jl short loc_C868 mov al, byte_140A2 sub al, cl loc_C87B: pop si leave retn sub_C7D5 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C87E proc near var_1 = byte ptr -1 enter 2, 0 push si mov word_14042, 0 mov si, 4 jmp short loc_C899 ; --------------------------------------------------------------------------- loc_C88E: mov al, [si+5060h] mov ah, 0 add word_14042, ax inc si loc_C899: cmp si, 60h jl short loc_C88E call IRand mov byte_14040, al call IRand mov byte_14041, al mov [bp+var_1], 0 mov si, 5Fh ; '_' jmp short loc_C8DA ; --------------------------------------------------------------------------- loc_C8B7: mov al, [si+5060h] mov dl, byte_14040 add dl, [bp+var_1] sub al, dl mov [si+5060h], al mov al, [si+5060h] mov [bp+var_1], al mov al, byte_14041 ror [bp+var_1], 3 xor [bp+var_1], al dec si loc_C8DA: cmp si, 4 jge short loc_C8B7 pop si leave retn sub_C87E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C8E2 proc near var_3 = byte ptr -3 var_2 = word ptr -2 enter 4, 0 push si mov [bp+var_3], 0A8h ; 'ｨ' xor si, si jmp short loc_C95A ; --------------------------------------------------------------------------- loc_C8EF: mov byte_1409E, 12h mov [bp+var_2], 0 jmp short loc_C90B ; --------------------------------------------------------------------------- loc_C8FB: mov bx, si shl bx, 3 add bx, [bp+var_2] mov byte ptr [bx+5091h], 0A0h inc [bp+var_2] loc_C90B: cmp [bp+var_2], 8 jl short loc_C8FB or si, si jnz short loc_C921 mov bx, si shl bx, 3 mov byte ptr [bx+5097h], 0A1h ; '｡' jmp short loc_C932 ; --------------------------------------------------------------------------- loc_C921: mov bx, si shl bx, 3 mov al, [bp+var_3] mov [bx+5096h], al add al, 0FEh mov [bp+var_3], al loc_C932: mov [bp+var_2], 0 jmp short loc_C949 ; --------------------------------------------------------------------------- loc_C939: mov bx, si imul bx, 9 add bx, [bp+var_2] mov byte ptr [bx+5064h], 0C4h ; 'ﾄ' inc [bp+var_2] loc_C949: cmp [bp+var_2], 8 jl short loc_C939 mov bx, si imul bx, 9 mov byte ptr [bx+506Ch], 0 inc si loc_C95A: cmp si, 5 jl short loc_C8EF push ds push offset aGensou_scr ; "GENSOU.SCR" call file_create xor si, si jmp short loc_C9B1 ; --------------------------------------------------------------------------- loc_C96C: mov [bp+var_2], 0 jmp short loc_C999 ; --------------------------------------------------------------------------- loc_C973: mov ax, si mov bx, 5 cwd idiv bx cmp dx, 4 jnz short loc_C98A mov bx, [bp+var_2] mov byte ptr [bx+50B9h], 0A1h ; '｡' jmp short loc_C996 ; --------------------------------------------------------------------------- loc_C98A: mov bx, [bp+var_2] mov al, 0A6h sub al, byte ptr [bp+var_2] mov [bx+50B9h], al loc_C996: inc [bp+var_2] loc_C999: cmp [bp+var_2], 5 jl short loc_C973 call sub_C87E push ds push offset byte_14040 push 60h call file_write call sub_C7D5 inc si loc_C9B1: cmp si, 14h jl short loc_C96C call file_close pop si leave retn sub_C8E2 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public SCORE_LOAD score_load proc near arg_0 = word ptr 4 push bp mov bp, sp push ds push offset aGensou_scr ; "GENSOU.SCR" call file_exist or ax, ax jz short loc_CA0C push ds push offset aGensou_scr ; "GENSOU.SCR" call file_ropen mov ax, [bp+arg_0] imul ax, 5 mov dl, _hiscore_rank mov dh, 0 add ax, dx imul ax, 60h movzx eax, ax push eax push 0 call file_seek push ds push offset byte_14040 push 60h call file_read call file_close call sub_C7D5 or al, al jz short loc_CA15 loc_CA0C: call sub_C8E2 mov al, 1 pop bp retn 2 ; --------------------------------------------------------------------------- loc_CA15: mov al, 0 pop bp retn 2 score_load endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_CA1B proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 enter 2, 0 push si push di mov si, [bp+arg_4] mov di, [bp+arg_0] mov bx, di shl bx, 3 mov al, [bx+5098h] mov ah, 0 add ax, 0FF60h cmp ax, 0Ah jl short loc_CA5B lea ax, [si-10h] push ax push [bp+arg_2] mov bx, di shl bx, 3 mov al, [bx+5098h] mov ah, 0 add ax, 0FF60h mov bx, 0Ah cwd idiv bx push ax call super_put loc_CA5B: push si push [bp+arg_2] mov bx, di shl bx, 3 mov al, [bx+5098h] mov ah, 0 add ax, 0FF60h mov bx, 0Ah cwd idiv bx push dx call super_put add si, 10h mov [bp+var_2], 6 jmp short loc_CAA4 ; --------------------------------------------------------------------------- loc_CA83: push si push [bp+arg_2] mov bx, di shl bx, 3 add bx, [bp+var_2] mov al, [bx+5091h] mov ah, 0 add ax, 0FF60h push ax call super_put dec [bp+var_2] add si, 10h loc_CAA4: cmp [bp+var_2], 0 jge short loc_CA83 pop di pop si leave retn 6 sub_CA1B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_CAB0 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] cmp [bp+arg_0], 0FFh jz short loc_CADB lea ax, [si+2] push ax lea ax, [di+2] push ax push [bp+arg_0] push 0Eh call graph_gaiji_putc push si push di push [bp+arg_0] jmp short loc_CAF3 ; --------------------------------------------------------------------------- loc_CADB: lea ax, [si+2] push ax lea ax, [di+2] push ax push 0EF000Eh call graph_gaiji_putc push si push di push 0EFh ; '・ loc_CAF3: push 7 call graph_gaiji_putc pop di pop si pop bp retn 6 sub_CAB0 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_CB00 proc near var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di cmp [bp+arg_0], 0 jnz short loc_CB3A mov bx, [bp+arg_2] cmp bx, 3 ja short loc_CB33 add bx, bx jmp cs:off_CBD4[bx] loc_CB1B: mov si, 8 jmp short loc_CB23 ; --------------------------------------------------------------------------- loc_CB20: mov si, 148h loc_CB23: mov di, 58h ; 'X' jmp short loc_CB33 ; --------------------------------------------------------------------------- loc_CB28: mov si, 8 jmp short loc_CB30 ; --------------------------------------------------------------------------- loc_CB2D: mov si, 148h loc_CB30: mov di, 0E0h loc_CB33: mov [bp+var_2], 7 jmp short loc_CB74 ; --------------------------------------------------------------------------- loc_CB3A: mov bx, [bp+arg_2] cmp bx, 3 ja short loc_CB6F add bx, bx jmp cs:off_CBCC[bx] loc_CB49: mov si, 8 jmp short loc_CB51 ; --------------------------------------------------------------------------- loc_CB4E: mov si, 148h loc_CB51: mov ax, [bp+arg_0] shl ax, 4 add ax, 60h jmp short loc_CB6D ; --------------------------------------------------------------------------- loc_CB5C: mov si, 8 jmp short loc_CB64 ; --------------------------------------------------------------------------- loc_CB61: mov si, 148h loc_CB64: mov ax, [bp+arg_0] shl ax, 4 add ax, 0E8h ; '・ loc_CB6D: mov di, ax loc_CB6F: mov [bp+var_2], 2 loc_CB74: lea ax, [si+2] push ax lea ax, [di+2] push ax push 10h mov ax, [bp+arg_0] imul ax, 9 add ax, 5064h push ds push ax push 0Eh call graph_gaiji_puts push si push di push 10h mov ax, [bp+arg_0] imul ax, 9 add ax, 5064h push ds push ax push [bp+var_2] call graph_gaiji_puts lea ax, [si+96h] push ax push di push [bp+arg_0] call sub_CA1B lea ax, [si+11Eh] push ax push di mov bx, [bp+arg_0] mov al, [bx+50B9h] mov ah, 0 push ax call sub_CAB0 pop di pop si leave retn 4 sub_CB00 endp ; --------------------------------------------------------------------------- off_CBCC dw offset loc_CB49 dw offset loc_CB4E dw offset loc_CB5C dw offset loc_CB61 off_CBD4 dw offset loc_CB1B dw offset loc_CB20 dw offset loc_CB28 dw offset loc_CB2D ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame score_render proc near push bp mov bp, sp push si push di graph_accesspage 1 call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 graph_accesspage 0 call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 xor si, si jmp short loc_CC27 ; --------------------------------------------------------------------------- loc_CC13: push si call score_load xor di, di jmp short loc_CC21 ; --------------------------------------------------------------------------- loc_CC1B: push si push di call sub_CB00 inc di loc_CC21: cmp di, 5 jl short loc_CC1B inc si loc_CC27: cmp si, 4 jl short loc_CC13 push 1F00178h mov al, _hiscore_rank mov ah, 0 add ax, ax add ax, 14h push ax call super_put push 2300178h mov al, _hiscore_rank mov ah, 0 add ax, ax add ax, 15h push ax call super_put pop di pop si pop bp retn score_render endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public SCORE_MENU score_menu proc near push bp mov bp, sp kajacall KAJA_SONG_STOP call snd_load pascal, ds, offset aName, SND_LOAD_SONG kajacall KAJA_SONG_PLAY kajacall KAJA_SONG_FADE, -128 push 1 call palette_black_out les bx, _ksoconfig mov al, es:[bx+11h] mov _hiscore_rank, al call pi_slot_load pascal, 0, ds, offset aHi01_pi loc_CC9F: call score_render call palette_black_in pascal, 1 loc_CCA9: call _input_reset_sense_held call frame_delay pascal, 1 test _key_det.hi, high INPUT_OK jnz short loc_CD17 test _key_det.lo, low INPUT_SHOT jnz short loc_CD17 test _key_det.hi, high INPUT_CANCEL jnz short loc_CD17 test _key_det.hi, high INPUT_OK jnz short loc_CD17 test _key_det.lo, low INPUT_LEFT jz short loc_CCF8 cmp _hiscore_rank, RANK_EASY jz short loc_CCF8 dec _hiscore_rank mov PaletteTone, 0 call far ptr palette_show call score_render call palette_black_in pascal, 1 loc_CCF8: test _key_det.lo, low INPUT_RIGHT jz short loc_CCA9 cmp _hiscore_rank, RANK_EXTRA jnb short loc_CCA9 inc _hiscore_rank mov PaletteTone, 0 call far ptr palette_show jmp short loc_CC9F ; --------------------------------------------------------------------------- loc_CD17: kajacall KAJA_SONG_FADE, 1 call palette_black_out pascal, 1 call pi_slot_free pascal, 0 graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aOp1_pi_1 call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 call graph_copy_page pascal, 0 call palette_black_in pascal, 1 loc_CD64: call _input_reset_sense_held call frame_delay pascal, 1 cmp _key_det, INPUT_NONE jnz short loc_CD64 kajacall KAJA_SONG_STOP call snd_load pascal, ds, offset aOp_1, SND_LOAD_SONG kajacall KAJA_SONG_PLAY pop bp retn score_menu endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame public SCORE_CLEARED_LOAD score_cleared_load proc near push bp mov bp, sp push si mov _extra_unlocked, 0 xor si, si jmp short loc_CE0E ; --------------------------------------------------------------------------- loc_CDA1: mov _hiscore_rank, RANK_EASY jmp short loc_CE06 ; --------------------------------------------------------------------------- loc_CDA8: push si call score_load or al, al jnz short loc_CE0D mov bx, si imul bx, RANK_COUNT mov al, _hiscore_rank mov ah, 0 add bx, ax mov al, byte_1409E mov _cleared_with[bx], al mov bx, si imul bx, RANK_COUNT mov al, _hiscore_rank mov ah, 0 add bx, ax cmp _cleared_with[bx], 80h jz short loc_CDE7 mov bx, si imul bx, RANK_COUNT mov al, _hiscore_rank mov ah, 0 add bx, ax mov _cleared_with[bx], 0 loc_CDE7: cmp _hiscore_rank, RANK_EXTRA jnb short loc_CE02 mov bx, si imul bx, RANK_COUNT mov al, _hiscore_rank mov ah, 0 add bx, ax mov al, _cleared_with[bx] or _extra_unlocked, al loc_CE02: inc _hiscore_rank loc_CE06: cmp _hiscore_rank, RANK_COUNT jb short loc_CDA8 loc_CE0D: inc si loc_CE0E: cmp si, 4 jl short loc_CDA1 les bx, _ksoconfig mov al, es:[bx+11h] mov _hiscore_rank, al push ds push offset aScnum_bft ; "scnum.bft" call super_entry_bfnt push ds push offset aHi_m_bft ; "hi_m.bft" call super_entry_bfnt xor si, si jmp short loc_CE5D ; --------------------------------------------------------------------------- loc_CE34: mov bx, si imul bx, RANK_COUNT mov al, _cleared_with[bx].RANK_EASY mov bx, si imul bx, RANK_COUNT or al, _cleared_with[bx].RANK_NORMAL mov bx, si imul bx, RANK_COUNT or al, _cleared_with[bx].RANK_HARD mov bx, si imul bx, RANK_COUNT or al, _cleared_with[bx].RANK_LUNATIC mov _extra_playable_with[si], al inc si loc_CE5D: cmp si, PLAYCHAR_COUNT jl short loc_CE34 pop si pop bp retn score_cleared_load endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame darken_pic proc near var_6 = dword ptr -6 var_2 = word ptr -2 arg_0 = byte ptr 4 enter 6, 0 push si push di mov al, [bp+arg_0] mov ah, 0 mov bx, ax cmp bx, 3 ja short loc_CE90 add bx, bx jmp cs:off_CEF7[bx] loc_CE7E: mov si, 0F02h jmp short loc_CE90 ; --------------------------------------------------------------------------- loc_CE83: mov si, 0F22h jmp short loc_CE90 ; --------------------------------------------------------------------------- loc_CE88: mov si, 4614h jmp short loc_CE90 ; --------------------------------------------------------------------------- loc_CE8D: mov si, 4632h loc_CE90: call grcg_setcolor pascal, (GC_RMW shl 16) + 1 mov [bp+var_6], 0AAAAAAAAh xor di, di jmp short loc_CEE5 ; --------------------------------------------------------------------------- loc_CEA7: test di, 1 jnz short loc_CEB5 mov eax, 0AAAAAAAAh jmp short loc_CEBB ; --------------------------------------------------------------------------- loc_CEB5: mov eax, 55555555h loc_CEBB: mov [bp+var_6], eax mov [bp+var_2], 0 jmp short loc_CEDB ; --------------------------------------------------------------------------- loc_CEC6: les bx, _VRAM_PLANE_B add bx, si mov eax, [bp+var_6] mov es:[bx], eax add [bp+var_2], 4 add si, 4 loc_CEDB: cmp [bp+var_2], 1Ch jl short loc_CEC6 inc di add si, 34h ; '4' loc_CEE5: cmp di, 0A0h jl short loc_CEA7 GRCG_OFF_CLOBBERING dx pop di pop si leave retn 2 darken_pic endp ; --------------------------------------------------------------------------- off_CEF7 dw offset loc_CE7E dw offset loc_CE83 dw offset loc_CE88 dw offset loc_CE8D ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame put_pic proc near @@y = word ptr -4 @@x = word ptr -2 @@highlight = word ptr 4 enter 4, 0 push si push di mov al, _playchar_menu_sel mov ah, 0 mov bx, ax cmp bx, PLAYCHAR_COUNT - 1 ja short loc_CF59 add bx, bx jmp cs:off_D08D[bx] @@reimu: mov si, 10h mov di, 30h ; '0' mov [bp+@@x], 0B0h mov [bp+@@y], 0C0h jmp short loc_CF59 ; --------------------------------------------------------------------------- @@marisa: mov si, 110h mov di, 30h ; '0' mov [bp+@@x], 1B0h mov [bp+@@y], 0C0h jmp short loc_CF59 ; --------------------------------------------------------------------------- @@mima: mov si, 0A0h mov di, 0E0h mov [bp+@@x], 140h jmp short loc_CF54 ; --------------------------------------------------------------------------- @@yuuka: mov si, 190h mov di, 0E0h mov [bp+@@x], 230h loc_CF54: mov [bp+@@y], 170h loc_CF59: cmp [bp+@@highlight], 0 jnz loc_D012 mov al, _playchar_menu_sel mov ah, 0 mov bx, ax cmp _selectable_with[bx], 0 jz short loc_CF82 lea ax, [si-8] push ax lea ax, [di-8] push ax mov al, _playchar_menu_sel mov ah, 0 add ax, 40 push ax jmp short loc_CF8C ; --------------------------------------------------------------------------- loc_CF82: lea ax, [si-8] push ax lea ax, [di-8] push ax push 45 loc_CF8C: call cdg_put_noalpha call grcg_setcolor pascal, (GC_RMW shl 16) + 1 lea ax, [si+216] mov bx, 8 cwd idiv bx push ax push di lea ax, [si+223] cwd idiv bx push ax lea ax, [di+151] push ax call grcg_byteboxfill_x mov ax, si mov bx, 8 cwd idiv bx push ax lea ax, [di+152] push ax lea ax, [si+223] cwd idiv bx push ax lea ax, [di+159] push ax call grcg_byteboxfill_x GRCG_OFF_CLOBBERING dx mov al, _playchar_menu_sel mov ah, 0 imul ax, RANK_COUNT mov dl, _rank mov dh, 0 add ax, dx mov bx, ax cmp _cleared_with[bx], 0 jz loc_D086 mov ax, [bp+@@x] add ax, -8 push ax mov ax, [bp+@@y] add ax, -8 push ax push 44 call cdg_put jmp short loc_D086 ; --------------------------------------------------------------------------- loc_D012: lea ax, [si-8] push ax lea ax, [di-8] push ax push 0E00008h call bgimage_put_rect lea ax, [si-8] push ax push di push 800A0h call bgimage_put_rect mov al, _playchar_menu_sel mov ah, 0 mov bx, ax cmp _selectable_with[bx], 0 jz short loc_D050 push si push di mov al, _playchar_menu_sel mov ah, 0 add ax, 28h ; '(' push ax jmp short loc_D054 ; --------------------------------------------------------------------------- loc_D050: push si push di push 45 loc_D054: call cdg_put_noalpha mov al, _playchar_menu_sel mov ah, 0 imul ax, RANK_COUNT mov dl, _rank mov dh, 0 add ax, dx mov bx, ax cmp _cleared_with[bx], 0 jz short loc_D07F call cdg_put pascal, [bp+@@x], [bp+@@y], 44 loc_D07F: call darken_pic pascal, word ptr _playchar_menu_sel loc_D086: pop di pop si leave retn 2 db 0 off_D08D dw offset @@reimu dw offset @@marisa dw offset @@mima dw offset @@yuuka put_pic endp ; --------------------------------------------------------------------------- ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame playchar_menu_init proc near @@i = word ptr -2 enter 2, 0 push si mov al, _playchar_menu_sel mov ah, 0 mov [bp+@@i], ax mov PaletteTone, 0 call far ptr palette_show graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aSlb1_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 call pi_slot_free pascal, 0 call graph_copy_page pascal, 0 call bgimage_snap graph_accesspage 1 graph_showpage 0 xor si, si mov _playchar_menu_sel, PLAYCHAR_REIMU jmp short loc_D111 ; --------------------------------------------------------------------------- loc_D0F7: mov al, _playchar_menu_sel mov ah, 0 cmp ax, [bp+@@i] jz short loc_D106 mov ax, 1 jmp short loc_D108 ; --------------------------------------------------------------------------- loc_D106: xor ax, ax loc_D108: push ax call put_pic inc si inc _playchar_menu_sel loc_D111: cmp si, PLAYCHAR_COUNT jl short loc_D0F7 mov al, byte ptr [bp+@@i] mov _playchar_menu_sel, al push 0 call graph_copy_page push 1 call palette_black_in pop si leave retn playchar_menu_init endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame playchar_menu proc near @@i = word ptr -4 @@input_locked = byte ptr -1 enter 4, 0 mov [bp+@@i], 0 jmp short loc_D146 ; --------------------------------------------------------------------------- loc_D138: mov bx, [bp+@@i] mov al, _extra_playable_with[bx] mov _selectable_with[bx], al inc [bp+@@i] loc_D146: cmp [bp+@@i], PLAYCHAR_COUNT jl short loc_D138 les bx, _ksoconfig cmp byte ptr es:[bx+13h], 6 jnz short @@not_extra mov _rank, RANK_EXTRA mov _playchar_menu_sel, -1 mov [bp+@@i], 0 jmp short loc_D182 ; --------------------------------------------------------------------------- loc_D168: cmp _playchar_menu_sel, -1 jnz short loc_D17F mov bx, [bp+@@i] cmp _selectable_with[bx], 0 jz short loc_D17F mov al, byte ptr [bp+@@i] mov _playchar_menu_sel, al loc_D17F: inc [bp+@@i] loc_D182: cmp [bp+@@i], PLAYCHAR_COUNT jl short loc_D168 jmp short loc_D1B2 ; --------------------------------------------------------------------------- @@not_extra: mov [bp+@@i], 0 jmp short loc_D19C ; --------------------------------------------------------------------------- loc_D191: mov bx, [bp+@@i] mov _selectable_with[bx], 1 inc [bp+@@i] loc_D19C: cmp [bp+@@i], PLAYCHAR_COUNT jl short loc_D191 les bx, _ksoconfig mov al, es:[bx+11h] mov _rank, al mov _playchar_menu_sel, PLAYCHAR_REIMU loc_D1B2: call playchar_menu_init loc_D1B5: call _input_reset_sense_held cmp [bp+@@input_locked], 0 jnz loc_D2EC test _key_det.lo, low INPUT_LEFT jnz short @@left_or_right_pressed test _key_det.lo, low INPUT_RIGHT jz short loc_D223 @@left_or_right_pressed: call snd_se_reset call snd_se_play pascal, 1 call snd_se_update graph_accesspage 1 call put_pic pascal, 1 xor _playchar_menu_sel, 1 ; 0<->1 2<->3 call put_pic pascal, 0 mov vsync_Count1, 0 call frame_delay pascal, 1 graph_showpage 1 call graph_copy_page pascal, 0 mov vsync_Count1, 0 call frame_delay pascal, 1 graph_showpage 0 loc_D223: test _key_det.lo, low INPUT_UP jnz short @@up_or_down_pressed test _key_det.lo, low INPUT_DOWN jz short loc_D284 @@up_or_down_pressed: call snd_se_reset call snd_se_play pascal, 1 call snd_se_update graph_accesspage 1 call put_pic pascal, 1 xor _playchar_menu_sel, 2 ; 0<->2 1<->3 call put_pic pascal, 0 mov vsync_Count1, 0 call frame_delay pascal, 1 graph_showpage 1 call graph_copy_page pascal, 0 mov vsync_Count1, 0 call frame_delay pascal, 1 graph_showpage 0 loc_D284: test _key_det.hi, high INPUT_OK jnz short @@z_pressed test _key_det.lo, low INPUT_SHOT jz short @@unable_to_select @@z_pressed: mov al, _playchar_menu_sel mov ah, 0 mov bx, ax cmp _selectable_with[bx], 0 jz short @@unable_to_select call snd_se_reset call snd_se_play pascal, 11 call snd_se_update les bx, _ksoconfig mov al, _playchar_menu_sel mov es:[bx+14h], al push 1 call palette_black_out call bgimage_free xor ax, ax leave retn @@unable_to_select: test _key_det.hi, high INPUT_CANCEL jz short loc_D2E4 call palette_black_out pascal, 1 call bgimage_free mov ax, 1 leave retn ; --------------------------------------------------------------------------- loc_D2E4: mov al, _key_det.lo mov [bp+@@input_locked], al jmp short loc_D2F7 ; --------------------------------------------------------------------------- loc_D2EC: cmp _key_det, INPUT_NONE jnz short loc_D2F7 mov [bp+@@input_locked], 0 loc_D2F7: call frame_delay pascal, 1 jmp loc_D1B5 ; --------------------------------------------------------------------------- leave retn playchar_menu endp ; --------------------------------------------------------------------------- db 0 op_01_TEXT ends ; =========================================================================== ; Segment type: Pure code op_02_TEXT segment word public 'CODE' use16 assume cs:op_02_TEXT ; org 4 assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing include th03/formats/hfliplut.asm include th04/snd/pmd_res.asm include th02/snd/mmd_res.asm include th04/snd/detmodes.asm include th02/exit_dos.asm db 0 include th04/hardware/grppsafx.asm include th04/formats/cdg_put_noalpha.asm include th04/snd/se.asm include th04/bgimage.asm include th04/formats/cdg_put.asm include th02/exit.asm include th04/math/vector1_at.asm include th04/math/vector2_at.asm include th05/music/piano.asm GRCG_SETCOLOR_DIRECT_NOINT_DEF 1 db 0 include th04/bgimage_put_rect.asm include th05/snd/load.asm include th05/snd/kajaint.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_DC94 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 mov si, [bp+arg_2] mov di, si shl si, 2 les si, _pi_slot_buffers[si] assume es:nothing imul di, size PiHeader push [bp+arg_6] push [bp+arg_4] mov ax, _pi_slot_headers._xsize[di] push ax shr ax, 1 push ax mov di, _pi_slot_headers._ysize[di] mov ax, [bp+arg_0] call sub_DD10 pop di pop si pop bp retf 8 sub_DC94 endp ; --------------------------------------------------------------------------- push bp mov bp, sp push si push di xor ax, ax xor dx, dx mov si, [bp+0Ah] mov cl, [bp+8] test cl, 1 jz short loc_DCDD mov ax, 0A0h loc_DCDD: test cl, 2 jz short loc_DCE5 mov dx, 0FA0h loc_DCE5: shl si, 2 les si, _pi_slot_buffers[si] add si, ax mov ax, es add ax, dx mov es, ax assume es:nothing mov di, 0C8h ; 'ﾈ' push word ptr [bp+0Eh] push word ptr [bp+0Ch] push 140h push 140h mov ax, [bp+6] call sub_DD10 pop di pop si pop bp retf 0Ah ; --------------------------------------------------------------------------- nop ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_DD10 proc near arg_0 = word ptr 2 arg_2 = word ptr 4 arg_4 = word ptr 6 arg_6 = word ptr 8 shl ax, 3 add ax, 0A64h mov word_1282C, ax mov bp, sp mov dx, [bp+arg_6] shr dx, 3 mov ax, [bp+arg_4] shl ax, 6 add dx, ax shr ax, 2 add dx, ax mov word_12830, dx mov word_1282E, 0 loc_DD38: push es call graph_pack_put_8_noclip pascal, 0, 400, es, si, [bp+arg_2] push ds push di push si mov di, word_12830 add word_12830, 50h ; 'P' cmp word_12830, 7D00h jb short loc_DD62 sub word_12830, 7D00h loc_DD62: call sub_DD97 mov ax, GRAM_400 mov es, ax assume es:nothing mov ds, ax assume ds:nothing mov si, 7D00h mov cx, [bp+arg_2] shr cx, 4 rep movsw call egc_off pop si pop di pop ds assume ds:_DATA pop es assume es:nothing add si, [bp+arg_0] mov ax, si shr ax, 4 mov dx, es add dx, ax mov es, dx and si, 0Fh dec di jnz short loc_DD38 retn 8 sub_DD10 endp ; =============== S U B R O U T I N E ======================================= sub_DD97 proc near call egc_on outw2 EGC_ACTIVEPLANEREG, 0FFF0h egc_selectpat egc_setrop EGC_COMPAREREAD or EGC_WS_PATREG or EGC_RL_MEMREAD outw2 EGC_ADDRRESSREG, 0 outw2 EGC_BITLENGTHREG, 0Fh mov bx, word_1282C mov ax, word_1282E and ax, 3 shl ax, 1 add bx, ax outw2 EGC_MASKREG, [bx] inc word_1282E retn sub_DD97 endp include th05/formats/pi_slot_load.asm include th05/formats/pi_slot_put.asm include th05/formats/pi_slot_palette_apply.asm include th05/formats/pi_slot_free.asm include th02/initop.asm include th04/hardware/input_sense.asm include th05/hardware/input_held.asm include th05/hardware/input_wait.asm include th05/snd/measure.asm include th05/snd/delaymea.asm include th04/formats/cdg_put_nocolors.asm include th05/hardware/frame_delay.asm db 0 include th04/formats/cdg_load.asm include th04/hardware/egccopyr.asm even op_02_TEXT ends .data db 0 _menu_sel db 0 _quit db 0 _main_menu_unused_1 db 1 MENU_DESC dd aMENU_START ; "ゲームを開始します" dd aMENU_START_EXTRA ; "エキストラステージを開始します" dd aMENU_HISCORE ; "現在のハイスコアを表\示します" dd aMENU_MUSICROOM ; "音楽室に入ります" dd aMENU_OPTION ; "各種設定を変更出来ます" dd aMENU_QUIT ; "ＤＯＳに戻ります" dd aMENU_EASY ; "難易度をやさしくします　 （初心者向"... dd aMENU_NORMAL ; "難易度を標準にします　　　 （一般向・... dd aMENU_HARD ; "難易度を難しくします　　　（アーケーダ・... dd aMENU_LUNATIC ; "難易度を非常に難しくします　（シュータ・... dd aMENU_LIVES ; "ゲームスタート時の人数を変更出来ます（・... dd aMENU_BOMBS ; "ボムの使用回数を変更出来ます（除くエキ・... dd aMENU_BGM_OFF ; "ＢＧＭは流れません" dd aMENU_BGM_26K ; "ＢＧＭに２６Ｋ音源互換を使用します" dd aMENU_BGM_86K ; "ＢＧＭに８６音源互換を使用します" dd aMENU_SFX_OFF ; "効果音は流れません" dd aMENU_SFX_FM ; "効果音にＦＭ音源を使用します" dd aMENU_SFX_BEEP ; "効果音にＢｅｅｐ音源を使用します" dd aMENU_SLOW ; "敵弾の多い場所で、わざと処理落ち（スロ・... dd aMENU_TURBO ; "処理落ちをマシンのスピードに任せます（・... dd aMENU_RESET ; "このオプションを全て標準に戻します" dd aMENU_OPTION_QUIT ; "オプションを終了します" dd aMENU_START_EASY ; "ゲームを開始します（イージー）" dd aMENU_START_NORMAL ; "ゲームを開始します（ノーマル）" dd aMENU_START_HARD ; "ゲームを開始します（ハード）" dd aMENU_START_LUNATIC ; "ゲームを開始します（ルナティック）" _main_menu_initialized db 0 _option_initialized db 0 ; char aMain[] aMain db 'main',0 ; char path[] path db 'deb',0 aMENU_START db 'ゲームを開始します',0 aMENU_START_EXTRA db 'エキストラステージを開始します',0 aMENU_HISCORE db '現在のハイスコアを表示します',0 aMENU_MUSICROOM db '音楽室に入ります',0 aMENU_OPTION db '各種設定を変更出来ます',0 aMENU_QUIT db 'ＤＯＳに戻ります',0 aMENU_EASY db '難易度をやさしくします　 （初心者向け）　 ',0 aMENU_NORMAL db '難易度を標準にします　　　 （一般向け）　　',0 aMENU_HARD db '難易度を難しくします　　　（アーケーダー向け）',0 aMENU_LUNATIC db '難易度を非常に難しくします　（シューター向け）',0 aMENU_LIVES db 'ゲームスタート時の人数を変更出来ます（除くエキストラ）',0 aMENU_BOMBS db 'ボムの使用回数を変更出来ます（除くエキストラ）',0 aMENU_BGM_OFF db 'ＢＧＭは流れません',0 aMENU_BGM_26K db 'ＢＧＭに２６Ｋ音源互換を使用します',0 aMENU_BGM_86K db 'ＢＧＭに８６音源互換を使用します',0 aMENU_SFX_OFF db '効果音は流れません',0 aMENU_SFX_FM db '効果音にＦＭ音源を使用します',0 aMENU_SFX_BEEP db '効果音にＢｅｅｐ音源を使用します',0 aMENU_SLOW db '敵弾の多い場所で、わざと処理落ち（スロー）させます（初心者用）',0 aMENU_TURBO db '処理落ちをマシンのスピードに任せます（標準）',0 aMENU_RESET db 'このオプションを全て標準に戻します',0 aMENU_OPTION_QUIT db 'オプションを終了します',0 aMENU_START_EASY db 'ゲームを開始します（イージー）',0 aMENU_START_NORMAL db 'ゲームを開始します（ノーマル）',0 aMENU_START_HARD db 'ゲームを開始します（ハード）',0 aMENU_START_LUNATIC db 'ゲームを開始します（ルナティック）',0 aOp1_pi db 'op1.pi',0 aMiko db 'miko',0 aOp db 'op',0 aKaikidan1_dat0 db '怪綺談1.dat',0 aNotEnoughMem db 0Ah db '空きメモリ不足です。メモリ空きを増やしてから実行してね',0Ah,0 db 0 include libs/master.lib/atrtcmod[data].asm include libs/master.lib/bfnt_id[data].asm include libs/master.lib/clip[data].asm include libs/master.lib/edges[data].asm include libs/master.lib/fil[data].asm include libs/master.lib/dos_ropen[data].asm include libs/master.lib/get_machine_98[data].asm include libs/master.lib/get_machine_at[data].asm include libs/master.lib/grp[data].asm include libs/master.lib/js[data].asm include libs/master.lib/machine[data].asm include libs/master.lib/pal[data].asm include libs/master.lib/pf[data].asm include libs/master.lib/rand[data].asm include libs/master.lib/sin8[data].asm include libs/master.lib/tx[data].asm include libs/master.lib/vs[data].asm include libs/master.lib/wordmask[data].asm include libs/master.lib/mem[data].asm include libs/master.lib/super_entry_bfnt[data].asm include libs/master.lib/superpa[data].asm include libs/master.lib/respal_exist[data].asm include libs/master.lib/draw_trapezoid[data].asm include libs/master.lib/bgm_timerhook[data].asm include libs/master.lib/bgm[data].asm include th04/snd/se_priority[data].asm include th04/hardware/grppsafx[data].asm include th03/snd/se_state[data].asm include th04/bgimage[data].asm include th05/mem[data].asm include th05/music/piano[data].asm include th05/snd/load[data].asm include th04/snd/snd[data].asm db 0 db 0 db 11h db 11h db 0 db 0 db 44h ; D db 44h ; D db 88h db 88h db 11h db 11h db 22h ; " db 22h ; " db 44h ; D db 44h ; D db 0AAh ; ｪ db 0AAh ; ｪ db 55h ; U db 55h ; U db 0AAh ; ｪ db 0AAh ; ｪ db 55h ; U db 55h ; U db 0EEh db 0EEh db 77h ; w db 77h ; w db 0BBh ; ｻ db 0BBh ; ｻ db 0DDh db 0DDh include th05/formats/pi_slot_buffers[bss].asm include th05/hardware/vram_planes[data].asm include th03/formats/cdg[data].asm SETUP_BGM_BODY dd aSETUP_BGM_BODY1 dd aSETUP_BGM_BODY2 dd aSETUP_BGM_BODY3 dd aSETUP_BGM_BODY4 dd aSETUP_BGM_BODY5 dd aSETUP_BGM_BODY6 dd aSETUP_BGM_BODY7 dd aSETUP_BGM_BODY8 dd aSETUP_TAIL SETUP_SFX_BODY dd aSETUP_SFX_BODY1 dd aSETUP_SFX_BODY2 dd aSETUP_SFX_BODY3 dd aSETUP_SFX_BODY4 dd aSETUP_SFX_BODY5 dd aSETUP_SFX_BODY6 dd aSETUP_SFX_BODY7 dd aSETUP_SFX_BODY8 dd aSETUP_TAIL aSETUP_BGM_BODY1 db 'ステレオＦＭ音源：PC-9801-86(互換)ボード　　　',0 aSETUP_BGM_BODY2 db '　　　　　　　　　CanBe内蔵音源など、 ',0 aSETUP_BGM_BODY3 db '　　　　　　　ＦＭ６音＋ＳＳＧ３音＋リズム音源',0 aSETUP_BGM_BODY4 db '　標準ＦＭ音源： PC-9801-26K(互換)ボード ',0 aSETUP_BGM_BODY5 db ' PC-9801DA等に内蔵の音源など ',0 aSETUP_BGM_BODY6 db '　　　　　　　　　ＦＭ３音＋ＳＳＧ３音 ',0 aSETUP_BGM_BODY7 db '　　音楽無し：　　ＦＭ音源が無い場合 ',0 aSETUP_BGM_BODY8 db ' ',0 aSETUP_TAIL db 'なお、これらの設定はＯｐｔｉｏｎで変更可能です',0 aSETUP_SFX_BODY1 db '　ＦＭ音源　：効果音にＦＭ音源を使用します　　',0 aSETUP_SFX_BODY2 db '　　　　　　　ＢＧＭがステレオＦＭ音源時推奨　',0 aSETUP_SFX_BODY3 db '　 　 　　（標準ＦＭ音源では、3chを使用します ',0 aSETUP_SFX_BODY4 db '　 　　　　 ので、ＢＧＭが正常にきけないかも）',0 aSETUP_SFX_BODY5 db 'Ｂｅｅｐ音源：効果音にＢｅｅｐ音源を使用します',0 aSETUP_SFX_BODY6 db ' ＦＭ音源が無い場合使用します　　',0 aSETUP_SFX_BODY7 db ' 効果音無し ：何らかの事情で効果音を鳴らしたく',0 aSETUP_SFX_BODY8 db '　　　　　　　無い場合 ',0 aSETUP_BGM_OPTION1 db 'ステレオＦＭ音源',0 aSETUP_BGM_OPTION2 db '　標準ＦＭ音源　',0 aSETUP_BGM_OPTION3 db '　　音楽無し　　',0 aSETUP_SFX_OPTION1 db '　　ＦＭ音源　　',0 aSETUP_SFX_OPTION2 db '　Ｂｅｅｐ音源　',0 aSETUP_SFX_OPTION3 db '　 効果音無し 　',0 aSETUP_BGM_HEAD db '　　　　　使用する音源を選択して下さいね☆',0 aSETUP_SFX_HEAD db '　　　　効果音に使用する音源を選択してね☆',0 aMswin_bft db 'mswin.bft',0 aMs_pi db 'ms.pi',0 db 0 include th04/zunsoft[data].asm unk_FF00 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 aMiko_cfg db 'MIKO.CFG',0 db 0 aSft1_cd2 db 'sft1.cd2',0 aSft2_cd2 db 'sft2.cd2',0 aCar_cd2 db 'car.cd2',0 aSl00_cdg db 'sl00.cdg',0 aSl01_cdg db 'sl01.cdg',0 aSl02_cdg db 'sl02.cdg',0 aSl03_cdg db 'sl03.cdg',0 aSlcl_cdg db 'slcl.cdg',0 aSl04_cdg db 'sl04.cdg',0 aOp2a_pi db 'op2a.pi',0 aOp2b_pi db 'op2b.pi',0 aOp2c_pi db 'op2c.pi',0 aOp2d_pi db 'op2d.pi',0 aOp2e_pi db 'op2e.pi',0 aOp2f_pi db 'op2f.pi',0 aOp2g_pi db 'op2g.pi',0 aOp2h_pi db 'op2h.pi',0 aOp_0 db 'op',0 aOp1_pi_0 db 'op1.pi',0 MUSICROOM_UP dd aMUSICROOM_UP ; " ------ ▲ ------ " MUSICROOM_DOWN dd aMUSICROOM_DOWN ; " ------ ▼ ------ " dd asc_104D5 ; " ---------------- " MUSICROOM_GAME dd aMUSICROOM_TH01 dd aMUSICROOM_TH02 dd aMUSICROOM_TH03 dd aMUSICROOM_TH04 dd aMUSICROOM_TH05 public _MUSIC_TITLES _MUSIC_TITLES label dword dd aTH01_01 ; "No.1 A Sacred Lot " dd aTH01_02 ; "No.2 永遠の巫女 " dd aTH01_03 ; "No.3 The Positive and Negative " dd aTH01_04 ; "No.4 Highly Responsive to Prayers " dd aTH01_05 dd aTH01_06 ; "No.6 天使伝説 " dd aTH01_07 ; "No.7 Oriental Magician " dd aTH01_08 ; "No.8 破邪の小太刀 " dd aTH01_09 ; "No.9 魔鏡 " dd aTH01_10 ; "No.10 the Legend of KAGE " dd aTH01_11 ; "No.11 いざ、倒れ逝くその時まで " dd aTH01_12 ; "No.12 Civilization of Magic " dd aTH01_13 ; "No.13 星幽天使 " dd aTH01_14 ; "No.14 アイリス " dd aMUSICROOM_QUIT1 ; " タイトルに戻る " dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd aTH02_01 dd aTH02_02 ; "No.2 　 博麗　〜Eastern Wind " dd aTH02_03 ; "No.3 　 She's in a temper!! " dd aTH02_04 ; "No.4 　 End of Daylight　 " dd aTH02_05 ; "No.5 　 　 やみのちから　　 " dd aTH02_06 ; "No.6 　　　　　幻夢界　　　　 " dd aTH02_07 dd aTH02_08 ; "No.8 ひもろぎ、むらさきにもえ " dd aTH02_09 dd aTH02_10 dd aTH02_11 ; "No.11 Complete Darkness " dd aTH02_12 ; "No.12 　 エキストララブ " dd aTH02_13 ; "No.13 戦車むすめのみるゆめ " dd aTH02_14 ; "No.14 　　遠野の森　　　 " dd aTH02_15 dd aTH02_16 ; "未使用.1 博麗神社境内 " dd aTH02_17 ; "未使用.2 　陽落ちて 　 " dd aTH02_18 ; "未使用.3 　封魔終演 　 " dd aMUSICROOM_QUIT1 ; " タイトルに戻る " dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd aTH03_01 dd aTH03_02 ; "No.2 　 　 Selection " dd aTH03_03 dd aTH03_04 ; "No.4 Reincarnation " dd aTH03_05 ; "No.5 Dim. Dream " dd aTH03_06 dd aTH03_07 ; "No.7 　 Maniacal Princess " dd aTH03_08 ; "No.8 夢消失 〜Lost Dream " dd aTH03_09 ; "No.9 夢幻遊戯 〜Dream War " dd aTH03_10 ; "No.10 魔法決戦！〜Fight it out! " dd aTH03_11 ; "No.11 　 Sailor of Time " dd aTH03_12 ; "No.12 Strawberry Crisis!! " dd aTH03_13 dd aTH03_14 ; "No.14 　魔法鐘愛 " dd aTH03_15 ; "No.15 　久遠の夢 " dd aTH03_16 dd aTH03_17 ; "No.17 永遠の満月 " dd aTH03_18 ; "No.18 Maple Dream... " dd aTH03_19 dd aTH03_20 ; "No.20 勝利デモ " dd aTH03_21 ; "No.21 ゲームオーバー " dd aTH03_22 ; "未使用.1 時の風 " dd aTH03_23 ; "未使用.2 スターボウドリーム " dd aTH03_24 ; "未使用.3 Phantasmagoria " dd aMUSICROOM_QUIT2 ; " タイトルに戻る " dd 0 dd 0 dd 0 dd 0 dd 0 dd aTH04_01 ; "No.1 幻想郷 〜 Lotus Land Story " dd aTH04_02 ; "No.2 Witching Dream " dd aTH04_03 ; "No.3 Selene's light " dd aTH04_04 dd aTH04_05 ; "No.5 Break the Sabbath " dd aTH04_06 ; "No.6 紅響曲 〜 Scarlet Phoneme " dd aTH04_07 ; "No.7 Bad Apple!! " dd aTH04_08 ; "No.8 霊戦　〜 Perdition crisis " dd aTH04_09 ; "No.9 アリスマエステラ " dd aTH04_10 ; "No.10 少女綺想曲　〜 Capriccio " dd aTH04_11 ; "No.11 星の器　〜 Casket of Star " dd aTH04_12 ; "No.12 Lotus Love " dd aTH04_13 ; "No.13 眠れる恐怖 〜Sleeping Terror " dd aTH04_14 ; "No.14 Dream Land " dd aTH04_15 ; "No.15 幽夢　〜 Inanimate Dream " dd aTH04_16 dd aTH04_17 ; "No.17 メイド幻想　〜 Icemilk Magic " dd aTH04_18 ; "No.18 かわいい悪魔　〜 Innocence " dd aTH04_19 ; "No.19 Days " dd aTH04_20 ; "No.20 Peaceful " dd aTH04_21 ; "No.21 Arcadian Dream " dd aTH04_22 ; "No.22 幻想の住人 " dd aTH04_23 ; "未使用.1 Lotus Road " dd aTH04_24 ; "未使用.2 Dreamy pilot " dd aTH04_25 ; "未使用.3 Incomplete Plot " dd aTH04_26 ; "未使用.4 Border Land " dd aTH04_27 ; "未使用.5 Magic Shop of Raspberry " dd aTH04_28 ; "未使用.6 Crescent Dream " dd aMUSICROOM_QUIT1 ; " タイトルに戻る " dd 0 dd aTH05_01 dd aTH05_02 ; "No.2 Dream Express " dd aTH05_03 ; "No.3 魔法陣　〜 Magic Square " dd aTH05_04 dd aTH05_05 ; "No.5 霊天　〜 Spiritual Heaven " dd aTH05_06 ; "No.6 Romantic Children " dd aTH05_07 ; "No.7 プラスチックマインド " dd aTH05_08 ; "No.8 メイプルワイズ " dd aTH05_09 ; "No.9 禁断の魔法 〜 Forbidden Magic" dd aTH05_10 ; "No.10 真紅の少女　〜 Crimson Dead!!" dd aTH05_11 ; "No.11 裏切りの少女　〜 Judas Kiss " dd aTH05_12 ; "No.12 the Last Judgement " dd aTH05_13 ; "No.13 悲しき人形　〜 Doll of Misery" dd aTH05_14 ; "No.14 世界の果て　〜 World's End " dd aTH05_15 ; "No.15 神話幻想　〜 Infinite Being " dd aTH05_16 ; "No.16 不思議の国のアリス " dd aTH05_17 ; "No.17 the Grimoire of Alice " dd aTH05_18 ; "No.18 神社 " dd aTH05_19 ; "No.19 Endless " dd aTH05_20 ; "No.20 久遠の楽園 " dd aTH05_21 ; "No.21 Mystic Dream " dd aTH05_22 ; "No.22 Peaceful Romancer " dd aTH05_23 ; "No.23 魂の休らむ所 " dd aMUSICROOM_QUIT1 ; " タイトルに戻る " dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 public _MUSIC_FILES _MUSIC_FILES label dword dd aR_00 ; "r_00" dd aR_01 ; "r_01" dd aR_02 ; "r_02" dd aR_03 ; "r_03" dd aR_04 ; "r_04" dd aR_05 ; "r_05" dd aR_06 ; "r_06" dd aR_07 ; "r_07" dd aR_08 ; "r_08" dd aR_09 ; "r_09" dd aR_10 ; "r_10" dd aR_11 ; "r_11" dd aR_12 ; "r_12" dd aR_13 ; "r_13" dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd aH_op ; "h_op" dd aH_st00 ; "h_st00" dd aH_st00b ; "h_st00b" dd aH_st01 ; "h_st01" dd aH_st01b ; "h_st01b" dd aH_st02 ; "h_st02" dd aH_st02b ; "h_st02b" dd aH_st03 ; "h_st03" dd aH_st03b ; "h_st03b" dd aH_st04 ; "h_st04" dd aH_st04b ; "h_st04b" dd aH_st05 ; "h_st05" dd aH_st05b ; "h_st05b" dd aH_end ; "h_end" dd aH_staff ; "h_staff" dd aH_ng00 ; "h_ng00" dd aH_ng01 ; "h_ng01" dd aH_ng02 ; "h_ng02" dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd aY_op ; "y_op" dd aY_select ; "y_select" dd aY_00mm ; "y_00mm" dd aY_01mm ; "y_01mm" dd aY_02mm ; "y_02mm" dd aY_03mm ; "y_03mm" dd aY_04mm ; "y_04mm" dd aY_05mm ; "y_05mm" dd aY_06mm ; "y_06mm" dd aY_dec ; "y_dec" dd aY_07mm ; "y_07mm" dd aY_08mm ; "y_08mm" dd aY_demo1 ; "y_demo1" dd aY_demo2 ; "y_demo2" dd aY_demo3 ; "y_demo3" dd aY_demo4 ; "y_demo4" dd aY_demo5 ; "y_demo5" dd aY_ed ; "y_ed" dd aY_score ; "y_score" dd aY_win ; "y_win" dd aY_over ; "y_over" dd aY_ng00 ; "y_ng00" dd aY_ng01 ; "y_ng01" dd aY_ng02 ; "y_ng02" dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd aG_op ; "g_op" dd aG_st00 ; "g_st00" dd aG_st10 ; "g_st10" dd aG_st00b ; "g_st00b" dd aG_st01 ; "g_st01" dd aG_st01b ; "g_st01b" dd aG_st02 ; "g_st02" dd aG_st02b ; "g_st02b" dd aG_st03 ; "g_st03" dd aG_st03c ; "g_st03c" dd aG_st03b ; "g_st03b" dd aG_st04 ; "g_st04" dd aG_st04b ; "g_st04b" dd aG_st05 ; "g_st05" dd aG_st05b ; "g_st05b" dd aG_st06 ; "g_st06" dd aG_st06b ; "g_st06b" dd aG_st06c ; "g_st06c" dd aG_end1 ; "g_end1" dd aG_end2 ; "g_end2" dd aG_staff ; "g_staff" dd aG_name ; "g_name" dd aG_ng00 ; "g_ng00" dd aG_ng01 ; "g_ng01" dd aG_ng02 ; "g_ng02" dd aG_ng03 ; "g_ng03" dd aG_ng04 ; "g_ng04" dd aG_ng05 ; "g_ng05" dd 0 dd 0 dd aH_op+2 dd aH_st00+2 dd aH_st00b+2 dd aH_st01+2 dd aH_st01b+2 dd aH_st02+2 dd aH_st02b+2 dd aH_st03+2 dd aH_st03b+2 dd aG_st03c+2 dd aSt03d ; "st03d" dd aH_st04+2 dd aH_st04b+2 dd aH_st05+2 dd aH_st05b+2 dd aG_st06+2 dd aG_st06b+2 dd aEd00 ; "ed00" dd aEd01 ; "ed01" dd aEd02 ; "ed02" dd aH_staff+2 dd aExed ; "exed" dd aG_name+2 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 dd 0 music_game dw 4 MUSICROOM_TRACKCOUNTS dw 14,18,24,28,23 include th02/music/polygons[data].asm aMUSICROOM_UP db ' ------ ▲ ------ ',0 aMUSICROOM_DOWN db ' ------ ▼ ------ ',0 asc_104D5 db ' ---------------- ',0 aMUSICROOM_TH01 db ' 第１弾　東方靈異伝 Arrange ver ',0 aMUSICROOM_TH02 db ' 第２弾　東方封魔録 Special MIX ',0 aMUSICROOM_TH03 db ' 第３弾　東方夢時空 Special MIX ',0 aMUSICROOM_TH04 db ' 第４弾　東方幻想郷 Special MIX ',0 aMUSICROOM_TH05 db ' 第５弾　東方怪綺談 MysticSquare ',0 aTH01_01 db 'No.1 A Sacred Lot ',0 aTH01_02 db 'No.2 永遠の巫女 ',0 aTH01_03 db 'No.3 The Positive and Negative ',0 aTH01_04 db 'No.4 Highly Responsive to Prayers ',0 aTH01_05 db 'No.5 東方怪奇談 ',0 aTH01_06 db 'No.6 天使伝説 ',0 aTH01_07 db 'No.7 Oriental Magician ',0 aTH01_08 db 'No.8 破邪の小太刀 ',0 aTH01_09 db 'No.9 魔鏡 ',0 aTH01_10 db 'No.10 the Legend of KAGE ',0 aTH01_11 db 'No.11 いざ、倒れ逝くその時まで ',0 aTH01_12 db 'No.12 Civilization of Magic ',0 aTH01_13 db 'No.13 星幽天使 ',0 aTH01_14 db 'No.14 アイリス ',0 aMUSICROOM_QUIT1 db ' タイトルに戻る ',0 aTH02_01 db 'No.1 東方封魔録　〜浄土曼荼羅 ',0 aTH02_02 db 'No.2 　 博麗　〜Eastern Wind ',0 aTH02_03 db 'No.3 　 She',27h,'s in a temper!! ',0 aTH02_04 db 'No.4 　 End of Daylight　 ',0 aTH02_05 db 'No.5 　 　 やみのちから　　 ',0 aTH02_06 db 'No.6 　　　　　幻夢界　　　　 ',0 aTH02_07 db 'No.7 　　　　死を賭して　　　 ',0 aTH02_08 db 'No.8 ひもろぎ、むらさきにもえ ',0 aTH02_09 db 'No.9 　 　 恋色マジック 　 ',0 aTH02_10 db 'No.10 　東方封魔録　〜幽幻乱舞 ',0 aTH02_11 db 'No.11 Complete Darkness ',0 aTH02_12 db 'No.12 　 エキストララブ ',0 aTH02_13 db 'No.13 戦車むすめのみるゆめ ',0 aTH02_14 db 'No.14 　　遠野の森　　　 ',0 aTH02_15 db 'No.15 昔話わんだーらんど ',0 aTH02_16 db '未使用.1 博麗神社境内 ',0 aTH02_17 db '未使用.2 　陽落ちて 　 ',0 aTH02_18 db '未使用.3 　封魔終演 　 ',0 aTH03_01 db 'No.1 　夢は時空を越えて ',0 aTH03_02 db 'No.2 　 　 Selection ',0 aTH03_03 db 'No.3 東方妖恋談 ',0 aTH03_04 db 'No.4 Reincarnation ',0 aTH03_05 db 'No.5 Dim. Dream ',0 aTH03_06 db 'No.6 Tabula rasa　〜空白少女 ',0 aTH03_07 db 'No.7 　 Maniacal Princess ',0 aTH03_08 db 'No.8 夢消失 〜Lost Dream ',0 aTH03_09 db 'No.9 夢幻遊戯 〜Dream War ',0 aTH03_10 db 'No.10 魔法決戦！〜Fight it out! ',0 aTH03_11 db 'No.11 　 Sailor of Time ',0 aTH03_12 db 'No.12 Strawberry Crisis!! ',0 aTH03_13 db 'No.13 非統一魔法世界論 ',0 aTH03_14 db 'No.14 　魔法鐘愛 ',0 aTH03_15 db 'No.15 　久遠の夢 ',0 aTH03_16 db 'No.16 東方の青い空 ',0 aTH03_17 db 'No.17 永遠の満月 ',0 aTH03_18 db 'No.18 Maple Dream... ',0 aTH03_19 db 'No.19 霊人の休日 ',0 aTH03_20 db 'No.20 勝利デモ ',0 aTH03_21 db 'No.21 ゲームオーバー ',0 aTH03_22 db '未使用.1 時の風 ',0 aTH03_23 db '未使用.2 スターボウドリーム ',0 aTH03_24 db '未使用.3 Phantasmagoria ',0 aMUSICROOM_QUIT2 db ' タイトルに戻る ',0 aTH04_01 db 'No.1 幻想郷 〜 Lotus Land Story ',0 aTH04_02 db 'No.2 Witching Dream ',0 aTH04_03 db 'No.3 Selene',27h,'s light ',0 aTH04_04 db 'No.4 装飾戦　〜 Decoration Battle ',0 aTH04_05 db 'No.5 Break the Sabbath ',0 aTH04_06 db 'No.6 紅響曲 〜 Scarlet Phoneme ',0 aTH04_07 db 'No.7 Bad Apple!! ',0 aTH04_08 db 'No.8 霊戦　〜 Perdition crisis ',0 aTH04_09 db 'No.9 アリスマエステラ ',0 aTH04_10 db 'No.10 少女綺想曲　〜 Capriccio ',0 aTH04_11 db 'No.11 星の器　〜 Casket of Star ',0 aTH04_12 db 'No.12 Lotus Love ',0 aTH04_13 db 'No.13 眠れる恐怖 〜Sleeping Terror ',0 aTH04_14 db 'No.14 Dream Land ',0 aTH04_15 db 'No.15 幽夢　〜 Inanimate Dream ',0 aTH04_16 db 'No.16 禁じざるをえない遊戯 ',0 aTH04_17 db 'No.17 メイド幻想　〜 Icemilk Magic ',0 aTH04_18 db 'No.18 かわいい悪魔　〜 Innocence ',0 aTH04_19 db 'No.19 Days ',0 aTH04_20 db 'No.20 Peaceful ',0 aTH04_21 db 'No.21 Arcadian Dream ',0 aTH04_22 db 'No.22 幻想の住人 ',0 aTH04_23 db '未使用.1 Lotus Road ',0 aTH04_24 db '未使用.2 Dreamy pilot ',0 aTH04_25 db '未使用.3 Incomplete Plot ',0 aTH04_26 db '未使用.4 Border Land ',0 aTH04_27 db '未使用.5 Magic Shop of Raspberry ',0 aTH04_28 db '未使用.6 Crescent Dream ',0 aTH05_01 db 'No.1 怪綺談　〜 Mystic Square ',0 aTH05_02 db 'No.2 Dream Express ',0 aTH05_03 db 'No.3 魔法陣　〜 Magic Square ',0 aTH05_04 db 'No.4 夢想時空 ',0 aTH05_05 db 'No.5 霊天　〜 Spiritual Heaven ',0 aTH05_06 db 'No.6 Romantic Children ',0 aTH05_07 db 'No.7 プラスチックマインド ',0 aTH05_08 db 'No.8 メイプルワイズ ',0 aTH05_09 db 'No.9 禁断の魔法 〜 Forbidden Magic',0 aTH05_10 db 'No.10 真紅の少女　〜 Crimson Dead!!',0 aTH05_11 db 'No.11 裏切りの少女　〜 Judas Kiss ',0 aTH05_12 db 'No.12 the Last Judgement ',0 aTH05_13 db 'No.13 悲しき人形　〜 Doll of Misery',0 aTH05_14 db 'No.14 世界の果て　〜 World',27h,'s End ',0 aTH05_15 db 'No.15 神話幻想　〜 Infinite Being ',0 aTH05_16 db 'No.16 不思議の国のアリス ',0 aTH05_17 db 'No.17 the Grimoire of Alice ',0 aTH05_18 db 'No.18 神社 ',0 aTH05_19 db 'No.19 Endless ',0 aTH05_20 db 'No.20 久遠の楽園 ',0 aTH05_21 db 'No.21 Mystic Dream ',0 aTH05_22 db 'No.22 Peaceful Romancer ',0 aTH05_23 db 'No.23 魂の休らむ所 ',0 aR_00 db 'r_00',0 aR_01 db 'r_01',0 aR_02 db 'r_02',0 aR_03 db 'r_03',0 aR_04 db 'r_04',0 aR_05 db 'r_05',0 aR_06 db 'r_06',0 aR_07 db 'r_07',0 aR_08 db 'r_08',0 aR_09 db 'r_09',0 aR_10 db 'r_10',0 aR_11 db 'r_11',0 aR_12 db 'r_12',0 aR_13 db 'r_13',0 aH_op db 'h_op',0 aH_st00 db 'h_st00',0 aH_st00b db 'h_st00b',0 aH_st01 db 'h_st01',0 aH_st01b db 'h_st01b',0 aH_st02 db 'h_st02',0 aH_st02b db 'h_st02b',0 aH_st03 db 'h_st03',0 aH_st03b db 'h_st03b',0 aH_st04 db 'h_st04',0 aH_st04b db 'h_st04b',0 aH_st05 db 'h_st05',0 aH_st05b db 'h_st05b',0 aH_end db 'h_end',0 aH_staff db 'h_staff',0 aH_ng00 db 'h_ng00',0 aH_ng01 db 'h_ng01',0 aH_ng02 db 'h_ng02',0 aY_op db 'y_op',0 aY_select db 'y_select',0 aY_00mm db 'y_00mm',0 aY_01mm db 'y_01mm',0 aY_02mm db 'y_02mm',0 aY_03mm db 'y_03mm',0 aY_04mm db 'y_04mm',0 aY_05mm db 'y_05mm',0 aY_06mm db 'y_06mm',0 aY_dec db 'y_dec',0 aY_07mm db 'y_07mm',0 aY_08mm db 'y_08mm',0 aY_demo1 db 'y_demo1',0 aY_demo2 db 'y_demo2',0 aY_demo3 db 'y_demo3',0 aY_demo4 db 'y_demo4',0 aY_demo5 db 'y_demo5',0 aY_ed db 'y_ed',0 aY_score db 'y_score',0 aY_win db 'y_win',0 aY_over db 'y_over',0 aY_ng00 db 'y_ng00',0 aY_ng01 db 'y_ng01',0 aY_ng02 db 'y_ng02',0 aG_op db 'g_op',0 aG_st00 db 'g_st00',0 aG_st10 db 'g_st10',0 aG_st00b db 'g_st00b',0 aG_st01 db 'g_st01',0 aG_st01b db 'g_st01b',0 aG_st02 db 'g_st02',0 aG_st02b db 'g_st02b',0 aG_st03 db 'g_st03',0 aG_st03c db 'g_st03c',0 aG_st03b db 'g_st03b',0 aG_st04 db 'g_st04',0 aG_st04b db 'g_st04b',0 aG_st05 db 'g_st05',0 aG_st05b db 'g_st05b',0 aG_st06 db 'g_st06',0 aG_st06b db 'g_st06b',0 aG_st06c db 'g_st06c',0 aG_end1 db 'g_end1',0 aG_end2 db 'g_end2',0 aG_staff db 'g_staff',0 aG_name db 'g_name',0 aG_ng00 db 'g_ng00',0 aG_ng01 db 'g_ng01',0 aG_ng02 db 'g_ng02',0 aG_ng03 db 'g_ng03',0 aG_ng04 db 'g_ng04',0 aG_ng05 db 'g_ng05',0 aSt03d db 'st03d',0 aEd00 db 'ed00',0 aEd01 db 'ed01',0 aEd02 db 'ed02',0 aExed db 'exed',0 include th05/music/music_cmt_load[data].asm aMusic_pi db 'music.pi',0 aMusic_dat db 'music.dat',0 aKaikidan1_dat1 db '怪綺談1.dat',0 db 0 aGensou_scr db 'GENSOU.SCR',0 aName db 'name',0 aHi01_pi db 'hi01.pi',0 aOp1_pi_1 db 'op1.pi',0 aOp_1 db 'op',0 aScnum_bft db 'scnum.bft',0 aHi_m_bft db 'hi_m.bft',0 db 0 aSlb1_pi db 'slb1.pi',0 .data? public _ksoconfig _ksoconfig dd ? _in_option db ? db ? _putfunc dw ? _main_input_allowed db ? _option_input_allowed db ? include libs/master.lib/clip[bss].asm include libs/master.lib/fil[bss].asm include libs/master.lib/js[bss].asm include libs/master.lib/pal[bss].asm include libs/master.lib/vs[bss].asm include libs/master.lib/vsync[bss].asm include libs/master.lib/mem[bss].asm include libs/master.lib/superpa[bss].asm include libs/master.lib/super_put_rect[bss].asm include th03/formats/hfliplut[bss].asm include th04/snd/interrupt[bss].asm include libs/master.lib/bgm[bss].asm include th05/music/piano[bss].asm include th02/snd/load[bss].asm word_1282C dw ? word_1282E dw ? word_12830 dw ? include th05/formats/pi_slot_headers[bss].asm include th04/hardware/input[bss].asm include th04/formats/cdg[bss].asm include libs/master.lib/pfint21[bss].asm include th04/hardware/egccopyr[bss].asm dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; word_12F30 dw ? word_12F32 dw ? include th04/zunsoft[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 ? ; include th02/music/music[bss].asm byte_13E96 db ? db ? public _screen_back_B _screen_back_B dw ? dd ? ; dd ? ; dd ? ; dd ? ; include th02/music/music_cmt[bss].asm word_1403A dw ? word_1403C dw ? musicroom_trackcount dw ? byte_14040 db ? byte_14041 db ? word_14042 dw ? dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; db ? ; byte_1409E db ? db ? byte_140A0 db ? byte_140A1 db ? byte_140A2 db ? dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; extern _hiscore_rank:byte extern _cleared_with:byte extern _extra_unlocked:byte extern _playchar_menu_sel:byte extern _rank:byte extern _extra_playable_with:byte extern _selectable_with:byte end