; ; +-------------------------------------------------------------------------+ ; | This file has been generated by The Interactive Disassembler (IDA) | ; | Copyright (c) 2009 by Hex-Rays, | ; +-------------------------------------------------------------------------+ ; ; Input MD5 : 50C37C4BDDEC04B753524F5D3B030A96 ; File Name : th04/MAINE.EXE ; Format : MS-DOS executable (EXE) ; Base Address: 0h Range: 0h-126D0h Loaded length: 10062h ; Entry Point : 0:0 ; OS type : MS DOS ; Application type: Executable 16bit .286 ; Force the .model directive to create 16-bit default segments... .model large .386 ; ... then switch to what we actually need. ; And yes, we can't move this to an include file for some reason. BINARY = 'E' include ReC98.inc include th04/th04.inc extern _execl:proc extern _memcpy:proc extern _tolower:proc extern __ctype:byte ; =========================================================================== ; Segment type: Pure code _TEXT segment word public 'CODE' use16 assume cs:_TEXT assume es:nothing, ds:_DATA, fs:nothing, gs:nothing include libs/master.lib/bfnt_entry_pat.asm include libs/master.lib/bfnt_extend_header_skip.asm include libs/master.lib/bfnt_header_read.asm include libs/master.lib/bfnt_header_analysis.asm include libs/master.lib/atrtcmod.asm include libs/master.lib/bcloser.asm include libs/master.lib/bfill.asm include libs/master.lib/bfnt_palette_set.asm include libs/master.lib/bgetc.asm include libs/master.lib/palette_black_in.asm include libs/master.lib/palette_black_out.asm include libs/master.lib/bopenr.asm include libs/master.lib/bread.asm include libs/master.lib/bseek.asm include libs/master.lib/bseek_.asm include libs/master.lib/dos_axdx.asm include libs/master.lib/dos_filesize.asm include libs/master.lib/dos_keyclear.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_size.asm include libs/master.lib/file_write.asm include libs/master.lib/dos_close.asm include libs/master.lib/dos_ropen.asm include libs/master.lib/grcg_byteboxfill_x.asm include libs/master.lib/grcg_setcolor.asm include libs/master.lib/gdc_outpw.asm include libs/master.lib/get_machine_98.asm include libs/master.lib/get_machine_at.asm include libs/master.lib/get_machine_dosbox.asm include libs/master.lib/check_machine_fmr.asm include libs/master.lib/get_machine.asm include libs/master.lib/gaiji_backup.asm include libs/master.lib/gaiji_entry_bfnt.asm include libs/master.lib/gaiji_putca.asm include libs/master.lib/gaiji_putsa.asm include libs/master.lib/gaiji_read.asm include libs/master.lib/gaiji_write.asm include libs/master.lib/graph_400line.asm include libs/master.lib/graph_clear.asm include libs/master.lib/graph_copy_page.asm include libs/master.lib/graph_extmode.asm include libs/master.lib/graph_hide.asm include libs/master.lib/graph_pi_free.asm include libs/master.lib/graph_pi_load_pack.asm include libs/master.lib/graph_pack_put_8.asm include libs/master.lib/graph_scrollup.asm include libs/master.lib/graph_show.asm include libs/master.lib/js_end.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/vsync.asm include libs/master.lib/vsync_wait.asm include libs/master.lib/palette_white_in.asm include libs/master.lib/palette_white_out.asm include libs/master.lib/hmem_lallocate.asm include libs/master.lib/mem_assign_dos.asm include libs/master.lib/mem_assign.asm include libs/master.lib/memheap.asm include libs/master.lib/mem_unassign.asm include libs/master.lib/super_free.asm include libs/master.lib/super_entry_pat.asm include libs/master.lib/super_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.asm include libs/master.lib/pfint21.asm db 0 include libs/master.lib/js_start.asm include th03/formats/pfopen.asm include libs/master.lib/pf_str_ieq.asm include libs/master.lib/js_sense.asm include libs/master.lib/bgm_bell_org.asm include libs/master.lib/bgm_mget.asm include libs/master.lib/bgm_read_sdata.asm include libs/master.lib/bgm_timer.asm include libs/master.lib/bgm_pinit.asm include libs/master.lib/bgm_timerhook.asm include libs/master.lib/bgm_play.asm include libs/master.lib/bgm_sound.asm include libs/master.lib/bgm_effect_sound.asm include libs/master.lib/bgm_stop_play.asm include libs/master.lib/bgm_set_tempo.asm include libs/master.lib/bgm_init_finish.asm include libs/master.lib/bgm_stop_sound.asm include libs/master.lib/graph_pack_put_8_noclip.asm include libs/master.lib/graph_gaiji_puts.asm include libs/master.lib/graph_gaiji_putc.asm _TEXT ends ; =========================================================================== ; Segment type: Pure code maine_01_TEXT segment byte public 'CODE' use16 assume cs:maine_01_TEXT ;org 9 assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing include th03/formats/cfg_lres.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame ; int __stdcall sub_A08A(char *arg0) sub_A08A proc near _arg0 = dword ptr 4 push bp mov bp, sp call cdg_freeall call graph_hide call text_clear call gaiji_restore call game_exit pushd 0 pushd [bp+_arg0] ; arg0 pushd [bp+_arg0] ; path call _execl add sp, 0Ch pop bp retn 4 sub_A08A endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A0BD proc near push bp mov bp, sp les bx, _resident mov al, es:[bx+resident_t.playchar_ascii] les bx, off_E5C0 mov es:[bx+3], al les bx, _resident mov al, es:[bx+resident_t.shottype] add al, '0' les bx, off_E5C0 mov es:[bx+4], al les bx, _resident mov al, es:[bx+resident_t.end_type_ascii] les bx, off_E5C0 mov es:[bx+5], al push word ptr off_E5C0+2 push bx call sub_A292 call sub_ADFC call sub_A2D1 pop bp retn sub_A0BD endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame ; int __cdecl main(int argc, const char **argv, const char **envp) public _main _main proc far var_4 = dword ptr -4 _argc = word ptr 6 _argv = dword ptr 8 _envp = dword ptr 0Ch enter 4, 0 mov word ptr [bp+var_4+2], ds mov word ptr [bp+var_4], 0A8h ; 'ｨ' call cfg_load_resident or ax, ax jz locret_A290 les bx, _resident mov al, es:[bx+resident_t.playchar_ascii] les bx, [bp+var_4] mov es:[bx+4], al mov _mem_assign_paras, MEM_ASSIGN_PARAS_MAINE call game_init_main pascal, ds, offset aMSzlEd_dat call gaiji_backup push ds push offset aGameft_bft ; "GAMEFT.bft" call gaiji_entry_bfnt les bx, _resident mov al, es:[bx+resident_t.bgm_mode] mov ah, 0 push ax mov al, es:[bx+resident_t.se_mode] mov ah, 0 push ax call snd_determine_modes call graph_show les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_CONTINUED jb loc_A1FE call sub_A0BD call sub_B44D call sub_C0F8 les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_1CC jz short loc_A187 cmp es:[bx+resident_t.rank], RANK_EASY jnz short loc_A1E9 loc_A187: les bx, [bp+var_4] mov al, es:[bx+5] les bx, _resident add al, es:[bx+resident_t.rank] les bx, [bp+var_4] mov es:[bx+5], al graph_accesspage 1 call pi_slot_load pascal, 0, word ptr [bp+var_4+2], bx call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 push 1 call palette_black_in call input_wait_for_change pascal, 0 push 4 call palette_black_out loc_A1E9: kajacall KAJA_SONG_FADE, 4 push 64h ; 'd' call frame_delay call sub_C814 jmp loc_A281 ; --------------------------------------------------------------------------- loc_A1FE: les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_EXTRA jnz short loc_A274 call frame_delay pascal, 100 call sub_C814 les bx, [bp+var_4] mov byte ptr es:[bx+5], 34h ; '4' mov PaletteTone, 0 call far ptr palette_show graph_accesspage 1 call pi_slot_load pascal, 0, large [bp+var_4] call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 push 1 call palette_black_in call input_wait_for_change pascal, 0 push 4 call palette_black_out jmp short loc_A27E ; --------------------------------------------------------------------------- loc_A274: push 64h ; 'd' call frame_delay call sub_C814 loc_A27E: call sub_C0F8 loc_A281: kajacall KAJA_SONG_FADE, 4 push ds push offset arg0 ; "op" call sub_A08A locret_A290: leave retf _main endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A292 proc near var_2 = word ptr -2 arg_0 = dword ptr 4 enter 2, 0 call sub_A2D1 pushd [bp+arg_0] call file_ropen or ax, ax jnz short loc_A2AD mov ax, 1 leave retn 4 ; --------------------------------------------------------------------------- loc_A2AD: call file_size mov [bp+var_2], ax mov word_12478, 1F48h push ds push word_12478 push ax call file_read call file_close xor ax, ax leave retn 4 sub_A292 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A2D1 proc near push bp mov bp, sp pop bp retn sub_A2D1 endp EGC_START_COPY_DEF 1, near ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A30A 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 ax, [bp+arg_2] sar ax, 3 mov dx, [bp+arg_0] shl dx, 6 add ax, dx mov dx, [bp+arg_0] shl dx, 4 add ax, dx mov si, ax call egc_start_copy_1 xor di, di jmp short loc_A368 ; --------------------------------------------------------------------------- loc_A32F: mov [bp+var_2], 0 jmp short loc_A35E ; --------------------------------------------------------------------------- loc_A336: graph_accesspage 0 les bx, _VRAM_PLANE_B add bx, si mov ax, es:[bx] mov [bp+var_4], ax mov al, 1 out dx, al mov bx, word ptr _VRAM_PLANE_B add bx, si mov ax, [bp+var_4] mov es:[bx], ax add [bp+var_2], 2 add si, 2 loc_A35E: cmp [bp+var_2], 28h ; '(' jl short loc_A336 inc di add si, 28h ; '(' loc_A368: cmp di, 0C8h jl short loc_A32F call egc_off graph_accesspage 0 pop di pop si leave retn 4 sub_A30A endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A37F proc near var_8 = dword ptr -8 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah enter 8, 0 push si push di mov eax, _pi_slot_buffers mov [bp+var_8], eax cmp [bp+arg_2], 1 jnz short loc_A39A add word ptr [bp+var_8], 0A0h jmp short loc_A3B2 ; --------------------------------------------------------------------------- loc_A39A: cmp [bp+arg_2], 2 jnz short loc_A3A7 add word ptr [bp+var_8], 0FA00h jmp short loc_A3B2 ; --------------------------------------------------------------------------- loc_A3A7: cmp [bp+arg_2], 3 jnz short loc_A3B2 add word ptr [bp+var_8], 0FAA0h loc_A3B2: mov eax, [bp+var_8] shr eax, 10h mov dx, word ptr [bp+var_8] shr dx, 4 add ax, dx mov dx, word ptr [bp+var_8] and dx, 0Fh mov word ptr [bp+var_8+2], ax mov word ptr [bp+var_8], dx graph_showpage 1 mov ax, [bp+arg_6] sar ax, 3 mov dx, [bp+arg_4] shl dx, 6 add ax, dx mov dx, [bp+arg_4] shl dx, 4 add ax, dx mov si, ax graph_accesspage 0 xor di, di jmp loc_A491 ; --------------------------------------------------------------------------- loc_A3F7: call graph_pack_put_8_noclip pascal, large 400, [bp+var_8], 320 call egc_start_copy_1 egc_selectpat egc_setrop EGC_COMPAREREAD or EGC_WS_PATREG or EGC_RL_MEMREAD outw2 EGC_BITLENGTHREG, 0Fh mov bx, [bp+arg_0] shl bx, 3 mov ax, di and ax, 3 add ax, ax add bx, ax outw2 EGC_MASKREG, _PI_MASKS[bx] mov [bp+var_4], 7D00h mov [bp+var_2], 0 jmp short loc_A461 ; --------------------------------------------------------------------------- loc_A444: les bx, _VRAM_PLANE_B add bx, [bp+var_4] mov ax, es:[bx] mov bx, word ptr _VRAM_PLANE_B add bx, si mov es:[bx], ax inc [bp+var_2] add si, 2 add [bp+var_4], 2 loc_A461: cmp [bp+var_2], 14h jl short loc_A444 call egc_off add si, 28h ; '(' add word ptr [bp+var_8], 140h mov eax, [bp+var_8] shr eax, 10h mov dx, word ptr [bp+var_8] shr dx, 4 add ax, dx mov dx, word ptr [bp+var_8] and dx, 0Fh mov word ptr [bp+var_8+2], ax mov word ptr [bp+var_8], dx inc di loc_A491: cmp di, 0C8h jl loc_A3F7 graph_showpage 0 push [bp+arg_6] push [bp+arg_4] call sub_A30A pop di pop si leave retn 8 sub_A37F endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A4AE proc near var_8 = word ptr -8 var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 enter 8, 0 push si push di call sub_A57F graph_accesspage 0 push 3C00h call hmem_allocbyte mov word ptr dword_1247A+2, ax mov word ptr dword_1247A, 0 xor si, si mov di, 140h mov [bp+var_4], 0 jmp loc_A573 ; --------------------------------------------------------------------------- loc_A4DB: mov [bp+var_2], 50h ; 'P' mov [bp+var_6], 0 jmp loc_A567 ; --------------------------------------------------------------------------- loc_A4E8: mov ax, [bp+var_2] sar ax, 3 mov dx, di shl dx, 6 add ax, dx mov dx, di shl dx, 4 add ax, dx mov [bp+var_8], ax les bx, _VRAM_PLANE_B add bx, [bp+var_8] mov ax, es:[bx] mov dx, si add dx, dx les bx, dword_1247A add bx, dx mov es:[bx], ax inc si les bx, _VRAM_PLANE_R add bx, [bp+var_8] mov ax, es:[bx] mov dx, si add dx, dx les bx, dword_1247A add bx, dx mov es:[bx], ax inc si les bx, _VRAM_PLANE_G add bx, [bp+var_8] mov ax, es:[bx] mov dx, si add dx, dx les bx, dword_1247A add bx, dx mov es:[bx], ax inc si les bx, _VRAM_PLANE_E add bx, [bp+var_8] mov ax, es:[bx] mov dx, si add dx, dx les bx, dword_1247A add bx, dx mov es:[bx], ax inc si add [bp+var_6], 2 add [bp+var_2], 10h loc_A567: cmp [bp+var_6], 3Ch ; '<' jl loc_A4E8 inc [bp+var_4] inc di loc_A573: cmp [bp+var_4], 40h jl loc_A4DB pop di pop si leave retn sub_A4AE endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A57F proc near push bp mov bp, sp cmp dword_1247A, 0 jz short loc_A59C push word ptr dword_1247A+2 call hmem_free mov dword_1247A, 0 loc_A59C: pop bp retn sub_A57F endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A59E proc near var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 enter 6, 0 push si push di xor cx, cx mov si, 140h mov [bp+var_4], 0 jmp loc_A641 ; --------------------------------------------------------------------------- loc_A5B1: mov [bp+var_2], 50h ; 'P' mov [bp+var_6], 0 jmp short loc_A637 ; --------------------------------------------------------------------------- loc_A5BD: mov ax, [bp+var_2] sar ax, 3 mov dx, si shl dx, 6 add ax, dx mov dx, si shl dx, 4 add ax, dx mov di, ax mov ax, cx add ax, ax les bx, dword_1247A add bx, ax mov ax, es:[bx] les bx, _VRAM_PLANE_B add bx, di mov es:[bx], ax inc cx mov ax, cx add ax, ax les bx, dword_1247A add bx, ax mov ax, es:[bx] les bx, _VRAM_PLANE_R add bx, di mov es:[bx], ax inc cx mov ax, cx add ax, ax les bx, dword_1247A add bx, ax mov ax, es:[bx] les bx, _VRAM_PLANE_G add bx, di mov es:[bx], ax inc cx mov ax, cx add ax, ax les bx, dword_1247A add bx, ax mov ax, es:[bx] les bx, _VRAM_PLANE_E add bx, di mov es:[bx], ax inc cx add [bp+var_6], 2 add [bp+var_2], 10h loc_A637: cmp [bp+var_6], 3Ch ; '<' jl short loc_A5BD inc [bp+var_4] inc si loc_A641: cmp [bp+var_4], 40h jl loc_A5B1 pop di pop si leave retn sub_A59E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A64D proc near var_2 = byte ptr -2 var_1 = byte ptr -1 arg_0 = dword ptr 4 enter 2, 0 mov bx, word_12478 mov cl, [bx] inc word_12478 mov bx, word_12478 mov al, [bx] mov [bp+var_1], al inc word_12478 mov bx, word_12478 mov al, [bx] mov [bp+var_2], al inc word_12478 mov al, cl mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_DIG jnz short loc_A694 les bx, [bp+arg_0] mov ax, word_124C4 mov es:[bx], ax sub word_12478, 3 leave retn 4 ; --------------------------------------------------------------------------- loc_A694: mov al, [bp+var_1] mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_DIG jnz short loc_A6B8 mov al, cl mov ah, 0 add ax, 0FFD0h les bx, [bp+arg_0] mov es:[bx], ax sub word_12478, 2 leave retn 4 ; --------------------------------------------------------------------------- loc_A6B8: mov al, [bp+var_2] mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_DIG jnz short loc_A6E8 mov al, cl mov ah, 0 add ax, 0FFD0h imul ax, 0Ah mov dl, [bp+var_1] mov dh, 0 add ax, dx add ax, 0FFD0h les bx, [bp+arg_0] mov es:[bx], ax dec word_12478 leave retn 4 ; --------------------------------------------------------------------------- loc_A6E8: mov al, cl mov ah, 0 add ax, 0FFD0h imul ax, 64h mov dl, [bp+var_1] mov dh, 0 add dx, 0FFD0h imul dx, 0Ah add ax, dx mov dl, [bp+var_2] mov dh, 0 add ax, dx add ax, 0FFD0h les bx, [bp+arg_0] mov es:[bx], ax leave retn 4 sub_A64D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A713 proc near arg_0 = dword ptr 4 push bp mov bp, sp mov bx, word_12478 cmp byte ptr [bx], 2Ch ; ',' jnz short loc_A72E inc word_12478 pushd [bp+arg_0] call sub_A64D pop bp retn 4 ; --------------------------------------------------------------------------- loc_A72E: les bx, [bp+arg_0] mov ax, word_124C4 mov es:[bx], ax pop bp retn 4 sub_A713 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A73B proc near push bp mov bp, sp add point_124BC.x, 16 cmp point_124BC.x, 560 jl short loc_A78D add point_124BC.y, 16 mov point_124BC.x, 144 cmp point_124BC.y, 384 jl short loc_A78D call sub_A815 cmp byte_1247E, 0 jnz short loc_A76F call input_wait_for_change pascal, 0 loc_A76F: mov point_124BC.x, 80 mov point_124BC.y, 320 graph_accesspage 1 call sub_A59E graph_accesspage 0 call sub_A59E loc_A78D: pop bp retn sub_A73B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A78F proc near var_2 = word ptr -2 arg_0 = word ptr 4 enter 2, 0 push si push di mov cx, 140h jmp short loc_A809 ; --------------------------------------------------------------------------- loc_A79A: egc_selectpat egc_setrop EGC_COMPAREREAD or EGC_WS_PATREG or EGC_RL_MEMREAD outw2 EGC_BITLENGTHREG, 0Fh mov bx, [bp+arg_0] shl bx, 3 mov ax, cx and ax, 3 add ax, ax add bx, ax outw2 EGC_MASKREG, [bx+62Ch] mov ax, cx shl ax, 6 mov dx, cx shl dx, 4 add ax, dx add ax, 0Ah mov si, ax xor di, di jmp short loc_A802 ; --------------------------------------------------------------------------- loc_A7DB: graph_accesspage 1 les bx, _VRAM_PLANE_B add bx, si mov ax, es:[bx] mov [bp+var_2], ax mov al, 0 out dx, al mov bx, word ptr _VRAM_PLANE_B add bx, si mov ax, [bp+var_2] mov es:[bx], ax add di, 10h add si, 2 loc_A802: cmp di, 1E0h jl short loc_A7DB inc cx loc_A809: cmp cx, 180h jl short loc_A79A pop di pop si leave retn 2 sub_A78F endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A815 proc near push bp mov bp, sp push si call egc_start_copy_1 cmp byte_1247E, 0 jnz short loc_A83A xor si, si jmp short loc_A835 ; --------------------------------------------------------------------------- loc_A827: push si call sub_A78F push word_124C0 call frame_delay inc si loc_A835: cmp si, 4 jl short loc_A827 loc_A83A: push 4 call sub_A78F call egc_off pop si pop bp retn sub_A815 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A847 proc near var_16 = byte ptr -16h var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = byte ptr 4 enter 16h, 0 push si mov al, [bp+arg_0] mov ah, 0 push ax ; ch call _tolower pop cx mov [bp+arg_0], al mov ah, 0 mov [bp+var_6], ax mov cx, 10h ; switch 16 cases mov bx, offset word_ADBC loc_A866: mov ax, cs:[bx] cmp ax, [bp+var_6] jz short loc_A876 add bx, 2 loop loc_A866 jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_A876: jmp word ptr cs:[bx+20h] ; switch jump loc_A87A: add point_124BC.y, 16 ; jumptable 0000A876 case 110 mov point_124BC.x, 80 cmp point_124BC.y, 384 jl loc_ADB5 ; default loc_A88F: mov bx, word_12478 ; jumptable 0000A876 case 115 mov al, [bx] mov [bp+arg_0], al call sub_A815 cmp [bp+arg_0], 2Dh ; '-' jz short loc_A8C0 mov word_124C4, 0 push ss lea ax, [bp+var_2] push ax call sub_A64D cmp byte_1247E, 0 jnz short loc_A8C4 call input_wait_for_change pascal, [bp+var_2] jmp short loc_A8C4 ; --------------------------------------------------------------------------- loc_A8C0: inc word_12478 loc_A8C4: mov point_124BC.x, 80 mov point_124BC.y, 320 graph_accesspage 1 call sub_A59E graph_accesspage 0 call sub_A59E jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_A8E5: mov word_124C4, 0Fh ; jumptable 0000A876 case 99 push ss lea ax, [bp+var_2] push ax call sub_A64D mov al, byte ptr [bp+var_2] mov col_124C2, al jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_A8FC: mov word_124C4, 2 ; jumptable 0000A876 case 98 push ss lea ax, [bp+var_2] push ax call sub_A64D mov ax, [bp+var_2] mov _graph_putsa_fx_func, ax jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_A913: mov bx, word_12478 ; jumptable 0000A876 case 119 mov al, [bx] mov ah, 0 push ax ; ch call _tolower pop cx mov [bp+arg_0], al cmp [bp+arg_0], 6Fh ; 'o' jz short loc_A931 cmp [bp+arg_0], 69h ; 'i' jnz short loc_A95F loc_A931: inc word_12478 mov word_124C4, 1 push ss lea ax, [bp+var_2] push ax call sub_A64D cmp [bp+arg_0], 69h ; 'i' jnz short loc_A954 push [bp+var_2] call palette_white_in jmp loc_AD2B ; --------------------------------------------------------------------------- loc_A954: push [bp+var_2] call palette_white_out jmp loc_AD2B ; --------------------------------------------------------------------------- loc_A95F: call sub_A815 mov word_124C4, 40h cmp [bp+arg_0], 6Dh ; 'm' jz short loc_A994 cmp [bp+arg_0], 6Bh ; 'k' jnz short loc_A978 inc word_12478 loc_A978: push ss lea ax, [bp+var_2] push ax call sub_A64D cmp byte_1247E, 0 jnz loc_ADB5 ; default push [bp+var_2] call frame_delay jmp loc_AD2B ; --------------------------------------------------------------------------- loc_A994: inc word_12478 mov bx, word_12478 mov al, [bx] mov [bp+arg_0], al cmp [bp+arg_0], 6Bh ; 'k' jnz short loc_A9AB inc word_12478 loc_A9AB: push ss lea ax, [bp+var_2] push ax call sub_A64D push ss lea ax, [bp+var_4] push ax call sub_A713 cmp byte_1247E, 0 jnz loc_ADB5 ; default push [bp+var_2] push [bp+var_4] call snd_delay_until_measure jmp loc_ACFF ; --------------------------------------------------------------------------- loc_A9D2: mov bx, word_12478 ; jumptable 0000A876 case 118 cmp byte ptr [bx], 70h ; 'p' jz short loc_A9F2 mov word_124C4, 1 push ss lea ax, [bp+var_2] push ax call sub_A64D mov ax, [bp+var_2] mov word_124C0, ax jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_A9F2: inc word_12478 mov word_124C4, 0 push ss lea ax, [bp+var_2] push ax call sub_A64D graph_showpage byte ptr [bp+var_2] jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AA0E: mov word_124C4, 64h ; 'd' ; jumptable 0000A876 case 116 push ss lea ax, [bp+var_2] push ax call sub_A64D cmp byte_1247E, 0 jnz short loc_AA2A push 1 call frame_delay loc_AA2A: mov ax, [bp+var_2] mov PaletteTone, ax call far ptr palette_show jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AA38: mov bx, word_12478 ; jumptable 0000A876 case 102 mov al, [bx] mov [bp+arg_0], al cmp [bp+arg_0], 6Dh ; 'm' jz short loc_AA83 cmp [bp+arg_0], 69h ; 'i' jz short loc_AA55 cmp [bp+arg_0], 6Fh ; 'o' jnz loc_ADB5 ; default loc_AA55: inc word_12478 mov word_124C4, 1 push ss lea ax, [bp+var_2] push ax call sub_A64D cmp [bp+arg_0], 69h ; 'i' jnz short loc_AA78 push [bp+var_2] call palette_black_in jmp loc_AD2B ; --------------------------------------------------------------------------- loc_AA78: push [bp+var_2] call palette_black_out jmp loc_AD2B ; --------------------------------------------------------------------------- loc_AA83: inc word_12478 mov word_124C4, 1 push ss lea ax, [bp+var_2] push ax call sub_A64D mov ax, [bp+var_2] add ax, 200h push ax jmp loc_AD26 ; --------------------------------------------------------------------------- loc_AA9F: mov bx, word_12478 ; jumptable 0000A876 case 103 cmp byte ptr [bx], 61h ; 'a' jz short loc_AAF2 mov word_124C4, 8 push ss lea ax, [bp+var_2] push ax call sub_A64D mov [bp+var_4], 0 jmp short loc_AAE0 ; --------------------------------------------------------------------------- loc_AABD: test byte ptr [bp+var_4], 1 jz short loc_AAC7 push 4 jmp short loc_AACA ; --------------------------------------------------------------------------- loc_AAC7: push RES_Y - 4 loc_AACA: call graph_scrollup cmp byte_1247E, 0 jnz short loc_AADD push 1 call frame_delay loc_AADD: inc [bp+var_4] loc_AAE0: mov ax, [bp+var_4] cmp ax, [bp+var_2] jle short loc_AABD call graph_scrollup pascal, 0 jmp loc_AD2B ; --------------------------------------------------------------------------- loc_AAF2: inc word_12478 mov word_124C4, 0 push ss lea ax, [bp+var_2] push ax call sub_A64D graph_accesspage 1 push point_124BC.x push point_124BC.y push [bp+var_2] mov al, col_124C2 mov ah, 0 push ax call graph_gaiji_putc call sub_A73B jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AB26: mov word_124C4, 0 ; jumptable 0000A876 case 107 push ss lea ax, [bp+var_2] push ax call sub_A64D cmp byte_1247E, 0 jnz loc_ADB5 ; default call input_wait_for_change pascal, [bp+var_2] jmp loc_AD2B ; --------------------------------------------------------------------------- loc_AB48: graph_accesspage 1 ; jumptable 0000A876 case 64 call graph_clear graph_accesspage 0 call graph_clear jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AB61: mov bx, word_12478 ; jumptable 0000A876 case 112 mov al, [bx] mov [bp+arg_0], al inc word_12478 cmp [bp+arg_0], 3Dh ; '=' jz short loc_AB7A cmp [bp+arg_0], 40h jnz short loc_ABAA loc_AB7A: graph_accesspage 1 cmp [bp+arg_0], 3Dh ; '=' jnz short loc_AB8D call pi_slot_palette_apply pascal, 0 loc_AB8D: call pi_slot_put pascal, large 0, 0 call graph_copy_page pascal, 0 graph_accesspage 0 call sub_A4AE jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_ABAA: cmp [bp+arg_0], 2Dh ; '-' jnz short loc_ABC1 freePISlotLarge 0 jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_ABC1: cmp [bp+arg_0], 70h ; 'p' jnz short loc_ABD1 call pi_slot_palette_apply pascal, 0 jmp loc_AD2B ; --------------------------------------------------------------------------- loc_ABD1: cmp [bp+arg_0], 2Ch ; ',' jz short loc_ABDE dec word_12478 jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_ABDE: mov [bp+var_2], 0 jmp short loc_AC12 ; --------------------------------------------------------------------------- loc_ABE5: mov bx, word_12478 mov al, [bx] mov [bp+arg_0], al inc word_12478 mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_CTL jnz short loc_AC18 cmp [bp+arg_0], 20h ; ' ' jz short loc_AC18 lea bx, [bp+var_16] add bx, [bp+var_2] mov al, [bp+arg_0] mov ss:[bx], al inc [bp+var_2] loc_AC12: cmp [bp+var_2], 0Ch jl short loc_ABE5 loc_AC18: lea bx, [bp+var_16] add bx, [bp+var_2] mov byte ptr ss:[bx], 0 freePISlotLarge 0 push 0 push ss lea ax, [bp+var_16] push ax call pi_slot_load jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AC3F: mov word_124C4, 4 ; jumptable 0000A876 case 61 mov bx, word_12478 mov al, [bx] mov [bp+arg_0], al cmp [bp+arg_0], 3Dh ; '=' jz short loc_AC94 push ss lea ax, [bp+var_2] push ax call sub_A64D graph_showpage 1 graph_accesspage 0 cmp [bp+var_2], 4 jge short loc_AC70 jmp short loc_ACE0 ; --------------------------------------------------------------------------- loc_AC70: call grcg_setcolor pascal, (GC_RMW shl 16) + 0 call grcg_byteboxfill_x pascal, ((160 / 8) shl 16) or 64, ((472 / 8) shl 16) or 263 GRCG_OFF_CLOBBERING dx jmp short loc_ACF0 ; --------------------------------------------------------------------------- loc_AC94: inc word_12478 push ss lea ax, [bp+var_2] push ax call sub_A64D mov word_124C4, 1 push ss lea ax, [bp+var_4] push ax call sub_A713 xor si, si jmp short loc_ACCF ; --------------------------------------------------------------------------- loc_ACB2: push 0A00040h push [bp+var_2] push si call sub_A37F cmp byte_1247E, 0 jnz short loc_ACCE push [bp+var_4] call frame_delay loc_ACCE: inc si loc_ACCF: cmp si, 4 jl short loc_ACB2 graph_showpage 1 graph_accesspage 0 loc_ACE0: call pi_slot_put_quarter pascal, (160 shl 16) + 64, 0, [bp+var_2] loc_ACF0: graph_showpage 0 push 0A00040h call sub_A30A loc_ACFF: jmp loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_AD02: mov bx, word_12478 ; jumptable 0000A876 case 109 mov al, [bx] mov [bp+arg_0], al cmp [bp+arg_0], 24h ; '$' jnz short loc_AD1A inc word_12478 push (KAJA_SONG_STOP shl 8) jmp short loc_AD26 ; --------------------------------------------------------------------------- loc_AD1A: cmp [bp+arg_0], 2Ah ; '*' jnz short loc_AD2E inc word_12478 loc_AD24: push (KAJA_SONG_PLAY shl 8) loc_AD26: call snd_kaja_interrupt loc_AD2B: ; Hack db 0e9h db 087h db 000h ; --------------------------------------------------------------------------- loc_AD2E: cmp [bp+arg_0], 2Ch ; ',' ; Hack db 00fh db 085h db 07fh db 000h inc word_12478 mov [bp+var_2], 0 jmp short loc_AD6E ; --------------------------------------------------------------------------- loc_AD41: mov bx, word_12478 mov al, [bx] mov [bp+arg_0], al inc word_12478 mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_CTL jnz short loc_AD74 cmp [bp+arg_0], 20h ; ' ' jz short loc_AD74 lea bx, [bp+var_16] add bx, [bp+var_2] mov al, [bp+arg_0] mov ss:[bx], al inc [bp+var_2] loc_AD6E: cmp [bp+var_2], 0Ch jl short loc_AD41 loc_AD74: lea bx, [bp+var_16] add bx, [bp+var_2] mov byte ptr ss:[bx], 0 kajacall KAJA_SONG_STOP push ss lea ax, [bp+var_16] push ax push SND_LOAD_SONG call snd_load jmp short loc_AD24 ; --------------------------------------------------------------------------- loc_AD95: push ss ; jumptable 0000A876 case 101 lea ax, [bp+var_2] push ax call sub_A64D call snd_se_reset call snd_se_play pascal, [bp+var_2] call snd_se_update jmp short loc_ADB5 ; default ; --------------------------------------------------------------------------- loc_ADB1: mov al, 0FFh ; jumptable 0000A876 case 36 jmp short loc_ADB7 ; --------------------------------------------------------------------------- loc_ADB5: mov al, 0 ; default loc_ADB7: pop si leave retn 2 sub_A847 endp ; --------------------------------------------------------------------------- word_ADBC dw 24h, 3Dh, 40h, 62h dw 63h, 65h, 66h, 67h ; value table for switch statement dw 6Bh, 6Dh, 6Eh, 70h dw 73h, 74h, 76h, 77h dw offset loc_ADB1 ; jump table for switch statement dw offset loc_AC3F dw offset loc_AB48 dw offset loc_A8FC dw offset loc_A8E5 dw offset loc_AD95 dw offset loc_AA38 dw offset loc_AA9F dw offset loc_AB26 dw offset loc_AD02 dw offset loc_A87A dw offset loc_AB61 dw offset loc_A88F dw offset loc_AA0E dw offset loc_A9D2 dw offset loc_A913 ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_ADFC proc near var_6 = dword ptr -6 var_1 = byte ptr -1 enter 6, 0 mov word ptr [bp+var_6+2], ds mov word ptr [bp+var_6], offset asc_EB84 mov point_124BC.x, 80 mov point_124BC.y, 320 mov word_124C0, 1 mov col_124C2, 15 mov _graph_putsa_fx_func, 2 call sub_A4AE mov byte_1247E, 0 loc_AE2D: call far ptr _input_reset_sense test _key_det.hi, high INPUT_CANCEL jz short loc_AE40 mov byte_1247E, 1 jmp short loc_AE45 ; --------------------------------------------------------------------------- loc_AE40: mov byte_1247E, 0 loc_AE45: mov bx, word_12478 mov al, [bx] mov [bp+var_1], al inc word_12478 mov ah, 0 mov bx, ax test (__ctype + 1)[bx], _IS_CTL jnz short loc_AE2D cmp [bp+var_1], 20h ; ' ' jz short loc_AE2D cmp [bp+var_1], 5Ch jnz short loc_AE82 mov bx, word_12478 mov al, [bx] mov [bp+var_1], al inc word_12478 push word ptr [bp+var_1] call sub_A847 cmp al, 0FFh jnz short loc_AE2D jmp short loc_AEC8 ; --------------------------------------------------------------------------- loc_AE82: les bx, [bp+var_6] mov al, [bp+var_1] mov es:[bx], al mov bx, word_12478 mov al, [bx] mov [bp+var_1], al mov bx, word ptr [bp+var_6] mov es:[bx+1], al inc word_12478 graph_showpage 0 graph_accesspage 1 push point_124BC.x push point_124BC.y mov al, col_124C2 mov ah, 0 push ax push word ptr [bp+var_6+2] push bx call graph_putsa_fx call sub_A73B jmp loc_AE2D ; --------------------------------------------------------------------------- loc_AEC8: call sub_A59E call sub_A57F leave retn sub_ADFC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AED0 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_0] or si, si jnz short loc_AEF1 push [bp+arg_4] push [bp+arg_2] mov al, byte_124C6 mov ah, 0 push ax call cdg_put jmp loc_B027 ; --------------------------------------------------------------------------- loc_AEF1: call grcg_setcolor pascal, (GC_RMW shl 16) + 15 mov bx, 4 mov ax, si cwd idiv bx mov si, ax push [bp+arg_4] push ax mov al, byte_124C7 mov ah, 0 add ax, ax mov bx, ax push _CosTable8[bx] call vector1_at mov di, ax push [bp+arg_2] push si mov al, byte_124C7 mov ah, 0 add ax, ax mov bx, ax push _SinTable8[bx] call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 0 call cdg_put_plane mov al, byte_124C7 add al, 40h mov byte_124C7, al push [bp+arg_4] push si mov ah, 0 add ax, ax mov bx, ax push _CosTable8[bx] call vector1_at mov di, ax push [bp+arg_2] push si mov al, byte_124C7 mov ah, 0 add ax, ax mov bx, ax push _SinTable8[bx] call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 1 call cdg_put_plane mov al, byte_124C7 add al, 40h mov byte_124C7, al push [bp+arg_4] push si mov ah, 0 add ax, ax mov bx, ax push _CosTable8[bx] call vector1_at mov di, ax push [bp+arg_2] push si mov al, byte_124C7 mov ah, 0 add ax, ax mov bx, ax push _SinTable8[bx] call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 2 call cdg_put_plane mov al, byte_124C7 add al, 40h mov byte_124C7, al push [bp+arg_4] push si mov ah, 0 add ax, ax mov bx, ax push _CosTable8[bx] call vector1_at mov di, ax push [bp+arg_2] push si mov al, byte_124C7 mov ah, 0 add ax, ax mov bx, ax push _SinTable8[bx] call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 3 call cdg_put_plane mov al, byte_124C7 add al, 40h mov byte_124C7, al GRCG_OFF_CLOBBERING dx loc_B027: pop di pop si leave retn 6 sub_AED0 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B02D 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_0] or si, si jnz short loc_B04E push [bp+arg_4] push [bp+arg_2] mov al, byte_124C6 mov ah, 0 push ax call cdg_put jmp loc_B13E ; --------------------------------------------------------------------------- loc_B04E: call grcg_setcolor pascal, (GC_RMW shl 16) + 15 mov ax, si cwd sub ax, dx sar ax, 1 mov si, ax push [bp+arg_4] cwd sub ax, dx sar ax, 1 push ax push _CosTable8+192 call vector1_at mov di, ax push [bp+arg_2] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _CosTable8+64 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 0 call cdg_put_plane push [bp+arg_4] push si push _CosTable8+128 call vector1_at mov di, ax push [bp+arg_2] push si push _CosTable8 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 1 call cdg_put_plane push [bp+arg_4] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _CosTable8+448 call vector1_at mov di, ax push [bp+arg_2] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _CosTable8+320 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 2 call cdg_put_plane push [bp+arg_4] push si push _CosTable8+384 call vector1_at mov di, ax push [bp+arg_2] push si push _CosTable8+256 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 3 call cdg_put_plane GRCG_OFF_CLOBBERING dx loc_B13E: pop di pop si leave retn 6 sub_B02D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B144 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_0] or si, si jnz short loc_B165 push [bp+arg_4] push [bp+arg_2] mov al, byte_124C6 mov ah, 0 push ax call cdg_put jmp loc_B255 ; --------------------------------------------------------------------------- loc_B165: call grcg_setcolor pascal, (GC_RMW shl 16) + 15 mov ax, si cwd sub ax, dx sar ax, 1 mov si, ax push [bp+arg_4] cwd sub ax, dx sar ax, 1 push ax push _CosTable8 call vector1_at mov di, ax push [bp+arg_2] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _SinTable8 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 0 call cdg_put_plane push [bp+arg_4] push si push _CosTable8 call vector1_at mov di, ax push [bp+arg_2] push si push _SinTable8 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 1 call cdg_put_plane push [bp+arg_4] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _CosTable8+256 call vector1_at mov di, ax push [bp+arg_2] mov ax, si cwd sub ax, dx sar ax, 1 push ax push _CosTable8+128 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 2 call cdg_put_plane push [bp+arg_4] push si push _CosTable8+256 call vector1_at mov di, ax push [bp+arg_2] push si push _CosTable8+128 call vector1_at mov [bp+var_2], ax push di push ax mov al, byte_124C6 mov ah, 0 inc ax push ax push 3 call cdg_put_plane GRCG_OFF_CLOBBERING dx loc_B255: pop di pop si leave retn 6 sub_B144 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B25B proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah arg_8 = word ptr 0Ch push bp mov bp, sp push si mov si, [bp+arg_0] mov ax, si cwd sub ax, dx sar ax, 1 mov si, ax mov ax, [bp+arg_8] sub ax, si push ax mov ax, [bp+arg_6] sub ax, si push ax mov ax, si add ax, ax add ax, [bp+arg_4] push ax mov ax, si add ax, ax add ax, [bp+arg_2] push ax call bgimage_put_rect pop si pop bp retn 0Ah sub_B25B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B291 proc near @@page = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov di, [bp+arg_2] mov si, 3Fh ; '?' mov [bp+@@page], 0 graph_accesspage 0 mov dx, 0A4h mov al, 1 jmp short loc_B30B ; --------------------------------------------------------------------------- loc_B2AF: push di push [bp+arg_0] mov al, byte_124C6 mov ah, 0 shl ax, 4 mov bx, ax push _cdg_slots.pixel_width[bx] mov al, byte_124C6 mov ah, 0 shl ax, 4 mov bx, ax push _cdg_slots.pixel_height[bx] lea ax, [si+1] push ax call sub_B25B dec si mov al, byte_124C7 add al, 8 mov byte_124C7, al push di push [bp+arg_0] push si call fp_124C8 loc_B2E8: cmp vsync_Count1, 2 jb short loc_B2E8 mov vsync_Count1, 0 graph_showpage byte ptr [bp+@@page] mov ax, 1 sub ax, [bp+@@page] mov [bp+@@page], ax mov dx, 0A6h mov al, byte ptr [bp+@@page] loc_B30B: out dx, al or si, si jg short loc_B2AF call graph_copy_page pascal, [bp+@@page] pop di pop si leave retn 4 sub_B291 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B31E proc near @@page = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 2, 0 push si push di mov di, [bp+arg_2] xor si, si mov [bp+@@page], 0 graph_accesspage 0 mov dx, 0A4h mov al, 1 loc_B339: out dx, al push di push [bp+arg_0] mov al, byte_124C6 mov ah, 0 shl ax, 4 mov bx, ax push _cdg_slots.pixel_width[bx] mov al, byte_124C6 mov ah, 0 shl ax, 4 mov bx, ax push _cdg_slots.pixel_height[bx] push si call sub_B25B inc si mov al, byte_124C7 add al, 8 mov byte_124C7, al cmp si, 40h jge short loc_B39A push di push [bp+arg_0] push si call fp_124C8 loc_B375: cmp vsync_Count1, 2 jb short loc_B375 mov vsync_Count1, 0 graph_showpage byte ptr [bp+@@page] mov ax, 1 sub ax, [bp+@@page] mov [bp+@@page], ax mov dx, 0A6h mov al, byte ptr [bp+@@page] jmp short loc_B339 ; --------------------------------------------------------------------------- loc_B39A: mov ax, 1 sub ax, [bp+@@page] call graph_copy_page pascal, ax pop di pop si leave retn 4 sub_B31E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B3AC proc near @@page = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah enter 2, 0 push si push di mov di, [bp+arg_6] xor si, si mov [bp+@@page], 0 graph_accesspage 0 mov dx, 0A4h mov al, 1 loc_B3C7: out dx, al push di push [bp+arg_4] push _cdg_slots.pixel_width + (size CDGSlot * 2) push _cdg_slots.pixel_height + (size CDGSlot * 2) push si call sub_B25B push [bp+arg_2] push [bp+arg_0] push _cdg_slots.pixel_width + (size CDGSlot * 0) push _cdg_slots.pixel_height + (size CDGSlot * 0) push si call sub_B25B inc si mov al, byte_124C7 add al, 0F8h mov byte_124C7, al cmp si, 40h jge short loc_B43B mov byte_124C6, 2 push di push [bp+arg_4] push si call fp_124C8 mov byte_124C6, 0 push [bp+arg_2] push [bp+arg_0] push si call fp_124C8 loc_B416: cmp vsync_Count1, 2 jb short loc_B416 mov vsync_Count1, 0 graph_showpage byte ptr [bp+@@page] mov ax, 1 sub ax, [bp+@@page] mov [bp+@@page], ax mov dx, 0A6h mov al, byte ptr [bp+@@page] jmp short loc_B3C7 ; --------------------------------------------------------------------------- loc_B43B: mov ax, 1 sub ax, [bp+@@page] call graph_copy_page pascal, ax pop di pop si leave retn 8 sub_B3AC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B44D proc near push bp mov bp, sp mov PaletteTone, 0 call far ptr palette_show graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aSff1_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 call bgimage_snap kajacall KAJA_SONG_STOP call snd_load pascal, ds, offset aStaff, SND_LOAD_SONG kajacall KAJA_SONG_PLAY push 0Ch call palette_black_in call cdg_load_single pascal, 0, ds, offset aSff1_cdg, 0 call cdg_load_single_noalpha pascal, 1, ds, offset aSff1b_cdg, 0 push 30040h call snd_delay_until_measure mov byte_124C6, 0 mov fp_124C8, offset sub_AED0 push 16000A0h call sub_B291 call cdg_load_single pascal, 2, ds, offset aSff2_cdg, 0 call cdg_load_single_noalpha pascal, 3, ds, offset aSff2b_cdg, 0 push 700A0h call snd_delay_until_measure mov fp_124C8, offset sub_B02D push 16000A0h call sub_B31E mov byte_124C6, 2 mov fp_124C8, offset sub_B144 push 0C00080h call sub_B291 graph_accesspage 0 mov byte_124C6, 0 call cdg_load_single pascal, 0, ds, offset aSff3_cdg, 0 call cdg_load_single_noalpha pascal, 1, ds, offset aSff3b_cdg, 0 push 0B00A0h call snd_delay_until_measure push 12000C8h call sub_B291 push 1300A0h call snd_delay_until_measure mov fp_124C8, offset sub_B02D push 0C00080h push 12000C8h call sub_B3AC push 4 call palette_black_out call cdg_freeall graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aSff2_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 call bgimage_snap push 4 call palette_black_in call cdg_load_single pascal, 2, ds, offset aSff4_cdg, 0 call cdg_load_single_noalpha pascal, 3, ds, offset aSff4b_cdg, 0 push 1700A0h call snd_delay_until_measure mov byte_124C6, 2 mov fp_124C8, offset sub_B144 push 200070h call sub_B291 call cdg_free pascal, 2 call cdg_load_single pascal, 4, ds, offset aSff5_cdg, 0 call cdg_load_single_noalpha pascal, 5, ds, offset aSff5b_cdg, 0 push 1B00A0h call snd_delay_until_measure mov byte_124C6, 4 mov fp_124C8, offset sub_B02D push 2000B8h call sub_B291 call cdg_load_single pascal, 0, ds, offset aSff8_cdg, 0 call cdg_load_single_noalpha pascal, 1, ds, offset aSff8b_cdg, 0 push 1F00A0h call snd_delay_until_measure mov fp_124C8, offset sub_B144 push 2000B8h call sub_B31E mov byte_124C6, 0 push 4000B8h call sub_B291 call cdg_load_single pascal, 4, ds, offset aSff9_cdg, 0 call cdg_load_single_noalpha pascal, 5, ds, offset aSff9b_cdg, 0 push 2300A0h call snd_delay_until_measure mov fp_124C8, offset sub_AED0 push 4000B8h call sub_B31E mov byte_124C6, 4 push 4000B8h call sub_B291 call cdg_load_single pascal, 0, ds, offset aSff6_cdg, 0 call cdg_load_single_noalpha pascal, 1, ds, offset aSff6b_cdg, 0 push 2700A0h call snd_delay_until_measure mov fp_124C8, offset sub_B02D push 4000B8h call sub_B31E mov byte_124C6, 0 push 2000B8h call sub_B291 push 2B00A0h call snd_delay_until_measure mov fp_124C8, offset sub_B144 push 200070h push 2000B8h call sub_B3AC call cdg_load_single pascal, 0, ds, offset aSff7_cdg, 0 call cdg_load_single_noalpha pascal, 1, ds, offset aSff7b_cdg, 0 mov byte_124C6, 0 push 200150h call sub_B291 push 3000A0h call snd_delay_until_measure call bgimage_free call cdg_freeall push 4 call palette_black_out pop bp retn sub_B44D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B787 proc near var_6 = word ptr -6 @@g_str = byte ptr -4 arg_0 = word ptr 4 @@y = word ptr 6 @@x = word ptr 8 enter 6, 0 push si xor si, si mov [bp+@@g_str], g_EMPTY mov ax, [bp+arg_0] mov bx, 100 xor dx, dx div bx mov [bp+var_6], ax mov ax, [bp+arg_0] xor dx, dx div bx mov [bp+arg_0], dx cmp byte_EC73, 0 jnz short loc_B7C5 or si, [bp+var_6] or si, si jz short loc_B7C1 mov al, byte ptr [bp+var_6] add al, gb_0_ mov [bp+@@g_str], al jmp short loc_B7C5 ; --------------------------------------------------------------------------- loc_B7C1: mov [bp+@@g_str], g_EMPTY loc_B7C5: mov ax, [bp+arg_0] mov bx, 10 xor dx, dx div bx mov [bp+var_6], ax mov ax, [bp+arg_0] xor dx, dx div bx mov [bp+arg_0], dx or si, [bp+var_6] mov al, byte_EC73 mov ah, 0 or si, ax or si, si jz short loc_B7F4 mov al, byte ptr [bp+var_6] add al, gb_0_ mov [bp+@@g_str+1], al jmp short loc_B7F8 ; --------------------------------------------------------------------------- loc_B7F4: mov [bp+@@g_str+1], g_EMPTY loc_B7F8: mov al, byte ptr [bp+arg_0] add al, gb_0_ mov [bp+@@g_str+2], al mov [bp+@@g_str+3], 0 push [bp+@@x] push [bp+@@y] push GAIJI_W push ss lea ax, [bp+@@g_str] push ax push 14 call graph_gaiji_puts pop si leave retn 6 sub_B787 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B81D proc near @@g_str = byte ptr -0Ch var_2 = byte ptr -2 var_1 = byte ptr -1 enter 0Ch, 0 push si mov [bp+var_2], 0 xor si, si jmp short loc_B851 ; --------------------------------------------------------------------------- loc_B82A: mov ax, 7 sub ax, si les bx, _resident add bx, ax mov al, es:[bx+resident_t.score_last] mov [bp+var_1], al or [bp+var_2], al cmp [bp+var_2], 0 jz short loc_B84C add al, gb_0_ mov [bp+si+@@g_str], al jmp short loc_B850 ; --------------------------------------------------------------------------- loc_B84C: mov [bp+si+@@g_str], g_EMPTY loc_B850: inc si loc_B851: cmp si, 8 jl short loc_B82A mov [bp+@@g_str+8], 0 push (160 shl 16) or 96 push GAIJI_W push ss lea ax, [bp+@@g_str] push ax push 14 call graph_gaiji_puts mov [bp+var_2], 1 call graph_putsa_fx pascal, (288 shl 16) or 96, 14, ds, offset aU_ ; "点" pop si leave retn sub_B81D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B886 proc near var_6 = dword ptr -6 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah enter 6, 0 push si push di mov si, [bp+arg_6] mov di, [bp+arg_4] cmp [bp+arg_2], 0 jz short loc_B8A2 mov [bp+var_6], 0F4240h jmp short loc_B8AA ; --------------------------------------------------------------------------- loc_B8A2: mov [bp+var_6], 0 loc_B8AA: mov ax, [bp+arg_2] cmp ax, [bp+arg_0] jz short loc_B8E3 cmp [bp+arg_2], 0 jz short loc_B8CD movzx ebx, [bp+arg_2] mov eax, [bp+var_6] xor edx, edx div ebx mov [bp+var_6], eax jmp short loc_B8D5 ; --------------------------------------------------------------------------- loc_B8CD: mov [bp+var_6], 0 loc_B8D5: movzx eax, [bp+arg_0] imul eax, [bp+var_6] mov [bp+var_6], eax loc_B8E3: cmp byte_EC4A, 0 jnz short loc_B8F4 mov eax, dword_124CE add eax, [bp+var_6] jmp short loc_B8FC ; --------------------------------------------------------------------------- loc_B8F4: mov eax, dword_124CE sub eax, [bp+var_6] loc_B8FC: mov dword_124CE, eax mov eax, [bp+var_6] mov ebx, 2710h xor edx, edx div ebx mov [bp+var_2], ax push si push di push ax call sub_B787 mov ebx, 2710h mov eax, [bp+var_6] xor edx, edx div ebx mov [bp+var_6], edx mov eax, [bp+var_6] mov ebx, 64h ; 'd' xor edx, edx div ebx mov [bp+var_2], ax mov byte_EC73, 1 lea ax, [si+48] push ax push di push [bp+var_2] call sub_B787 mov byte_EC73, 0 lea ax, [si+48] call graph_putsa_fx pascal, ax, di, 14, ds, offset aBd ; "．" lea ax, [si+96] call graph_putsa_fx pascal, ax, di, 14, ds, offset aBu ; "％" pop di pop si leave retn 8 sub_B886 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B97B proc near var_2 = word ptr -2 arg_0 = dword ptr 4 arg_4 = word ptr 8 arg_6 = word ptr 0Ah enter 2, 0 push si push di mov si, [bp+arg_6] mov di, [bp+arg_4] mov eax, [bp+arg_0] mov ebx, 2710h xor edx, edx div ebx mov [bp+var_2], ax push si push di push ax call sub_B787 mov ebx, 2710h mov eax, [bp+arg_0] xor edx, edx div ebx mov [bp+arg_0], edx mov eax, [bp+arg_0] mov ebx, 64h ; 'd' xor edx, edx div ebx mov [bp+var_2], ax mov byte_EC73, 1 lea ax, [si+48] push ax push di push [bp+var_2] call sub_B787 mov byte_EC73, 0 lea ax, [si+48] call graph_putsa_fx pascal, ax, di, 14, ds, offset aBd_0 ; "．" pop di pop si leave retn 8 sub_B97B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B9F2 proc near var_8 = dword ptr -8 var_4 = dword ptr -4 enter 8, 0 les bx, _resident mov eax, es:[bx+resident_t.rand] mov random_seed, eax mov al, es:[bx+resident_t.credit_lives] mov ah, 0 dec ax mov bx, ax cmp bx, 5 ja short loc_BA52 add bx, bx jmp cs:off_BB75[bx] loc_BA18: mov [bp+var_4], 9C4h jmp short loc_BA52 ; --------------------------------------------------------------------------- loc_BA22: mov [bp+var_4], 7D0h jmp short loc_BA52 ; --------------------------------------------------------------------------- loc_BA2C: mov [bp+var_4], 5DCh jmp short loc_BA52 ; --------------------------------------------------------------------------- loc_BA36: mov [bp+var_4], 3E8h jmp short loc_BA52 ; --------------------------------------------------------------------------- loc_BA40: mov [bp+var_4], 1F4h jmp short loc_BA52 ; --------------------------------------------------------------------------- loc_BA4A: mov [bp+var_4], 0 loc_BA52: les bx, _resident mov al, es:[bx+resident_t.credit_bombs] mov ah, 0 or ax, ax jz short loc_BA67 cmp ax, 1 jz short loc_BA71 jmp short loc_BA79 ; --------------------------------------------------------------------------- loc_BA67: add [bp+var_4], 9C4h jmp short loc_BA79 ; --------------------------------------------------------------------------- loc_BA71: add [bp+var_4], 5DCh loc_BA79: les bx, _resident cmp es:[bx+resident_t.turbo_mode], 0 jz short loc_BA8C add [bp+var_4], 7D0h loc_BA8C: les bx, _resident cmp es:[bx+resident_t.graze], 0 jz short loc_BAA5 mov ax, es:[bx+resident_t.graze] add ax, ax movzx eax, ax add [bp+var_4], eax loc_BAA5: mov [bp+var_8], 0F4240h les bx, _resident mov ax, es:[bx+resident_t.items_spawned] cmp ax, es:[bx+resident_t.items_collected] jz short loc_BAF3 cmp es:[bx+resident_t.items_spawned], 0 jz short loc_BAD8 movzx ebx, es:[bx+resident_t.items_spawned] mov eax, [bp+var_8] xor edx, edx div ebx mov [bp+var_8], eax jmp short loc_BAE0 ; --------------------------------------------------------------------------- loc_BAD8: mov [bp+var_8], 0 loc_BAE0: les bx, _resident movzx eax, es:[bx+resident_t.items_collected] imul eax, [bp+var_8] mov [bp+var_8], eax loc_BAF3: mov eax, 0F4240h sub eax, [bp+var_8] mov [bp+var_8], eax mov ebx, 64h ; 'd' xor edx, edx div ebx mov [bp+var_8], eax cmp [bp+var_8], 0 jz short loc_BB2A call IRand cwde xor edx, edx div [bp+var_8] add [bp+var_4], edx loc_BB2A: mov eax, [bp+var_4] imul eax, 64h mov [bp+var_4], eax cmp [bp+var_4], 0F4240h jbe short loc_BB48 mov [bp+var_4], 0F4240h loc_BB48: mov eax, dword_124CE add eax, [bp+var_4] mov dword_124CE, eax push 0C00108h pushd [bp+var_4] call sub_B97B call graph_putsa_fx pascal, (288 shl 16) or 264, 14, ds, offset aBu_0 ; "％" leave retn sub_B9F2 endp ; --------------------------------------------------------------------------- db 0 off_BB75 dw offset loc_BA18 dw offset loc_BA22 dw offset loc_BA2C dw offset loc_BA36 dw offset loc_BA40 dw offset loc_BA4A ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BB81 proc near var_4 = dword ptr -4 enter 4, 0 push si mov _graph_putsa_fx_func, 2 graph_accesspage 0 graph_showpage al call graph_putsa_fx pascal, (16 shl 16) or 48, 15, ds, offset aB@b@b@b@b@b@b@ ; "　　　　　　　 腕前判定" call graph_putsa_fx pascal, (16 shl 16) or 72, 15, ds, offset aUqiUx ; "難易度" call graph_putsa_fx pascal, (16 shl 16) or 96, 15, ds, offset aNPiuU_ ; "最終得点" call graph_putsa_fx pascal, (16 shl 16) or 120, 15, ds, offset aGGxi ; "ミス回数" call graph_putsa_fx pascal, (16 shl 16) or 144, 15, ds, offset aGGaogcpi ; "ボム使用回数" call graph_putsa_fx pascal, (16 shl 16) or 168, 15, ds, offset aGqbGatbrmcj ; "ゲーム達成率" call graph_putsa_fx pascal, (16 shl 16) or 192, 15, ds, offset aIlcSObcj ; "悪霊退治率" call graph_putsa_fx pascal, (16 shl 16) or 216, 15, ds, offset aGagcgegai ; "アイテム回収率" call graph_putsa_fx pascal, (16 shl 16) or 240, 15, ds, offset aUU_gagcgeganNv ; "得点アイテム最高点率" call graph_putsa_fx pascal, (16 shl 16) or 264, 15, ds, offset aLcnzvv ; "気合い" call graph_putsa_fx pascal, (16 shl 16) or 288, 15, ds, offset aPicacovCj ; "処理落ち率" call graph_putsa_fx pascal, (16 shl 16) or 336, 15, ds, offset aVavVVSrso ; "あなたの腕前" les bx, _resident cmp es:[bx+resident_t.stage], STAGE_EXTRA jnz short loc_BC71 mov al, RANK_EXTRA jmp short loc_BC79 ; --------------------------------------------------------------------------- loc_BC71: les bx, _resident mov al, es:[bx+resident_t.rank] loc_BC79: mov _verdict_rank, al push (176 shl 16) or 72 push GAIJI_W push ds mov ah, 0 shl ax, 3 add ax, offset grEASY push ax push 14 call graph_gaiji_puts call sub_B81D push 0F00078h les bx, _resident mov al, es:[bx+resident_t.miss_count] mov ah, 0 push ax call sub_B787 push 0F00090h les bx, _resident mov al, es:[bx+resident_t.bombs_used] mov ah, 0 push ax call sub_B787 call graph_putsa_fx pascal, (288 shl 16) or 120, 14, ds, offset aTimes ; "回" call graph_putsa_fx pascal, (288 shl 16) or 144, 14, ds, offset aTimes_0 ; "回" mov byte_124CC, 1 les bx, _resident cmp es:[bx+resident_t.stage], STAGE_EXTRA jz short loc_BD0A cmp es:[bx+resident_t.end_sequence], ES_1CC jnz short loc_BCFF mov es:[bx+resident_t.std_frames], 44000 loc_BCFF: push 0C000A8h push 44000 jmp short loc_BD24 ; --------------------------------------------------------------------------- loc_BD0A: les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_EXTRA jnz short loc_BD1B mov es:[bx+resident_t.std_frames], 12000 loc_BD1B: push 0C000A8h push 12000 loc_BD24: les bx, _resident push es:[bx+resident_t.std_frames] call sub_B886 mov byte_124CC, 0 push 0C000C0h les bx, _resident push es:[bx+resident_t.enemies_gone] push es:[bx+resident_t.enemies_killed] call sub_B886 push 0C000D8h les bx, _resident push es:[bx+resident_t.items_spawned] push es:[bx+resident_t.items_collected] call sub_B886 push 0C000F0h les bx, _resident push es:[bx+resident_t.point_items_collected] push es:[bx+resident_t.max_valued_point_items_collected] call sub_B886 call sub_B9F2 push 0C00120h les bx, _resident mov eax, es:[bx+resident_t.frames] mov ebx, 10 xor edx, edx div ebx push ax mov bx, word ptr _resident mov eax, es:[bx+resident_t.slow_frames] mov ebx, 10 xor edx, edx div ebx push ax call sub_B886 mov ebx, 5 mov eax, dword_124CE cdq idiv ebx mov dword_124CE, eax les bx, _resident cmp es:[bx+resident_t.score_last][7], 9 jb short loc_BDD4 add dword_124CE, 927C0h jmp short loc_BE08 ; --------------------------------------------------------------------------- loc_BDD4: les bx, _resident movzx eax, es:[bx+resident_t.score_last][6] imul eax, 2710h add dword_124CE, eax cmp es:[bx+resident_t.score_last][7], 3 jbe short loc_BE08 mov al, es:[bx+resident_t.score_last][7] mov ah, 0 add ax, 0FFFDh cwde imul eax, 186A0h add dword_124CE, eax loc_BE08: mov al, _verdict_rank mov ah, 0 mov bx, ax cmp bx, RANK_EXTRA ja short loc_BE6F add bx, bx jmp cs:off_C0EE[bx] loc_BE1B: sub dword_124CE, 0C350h mov [bp+var_4], 0C3500h jmp short loc_BE6F ; --------------------------------------------------------------------------- loc_BE2E: mov [bp+var_4], 0F4240h jmp short loc_BE6F ; --------------------------------------------------------------------------- loc_BE38: add dword_124CE, 249F0h mov [bp+var_4], 124F80h jmp short loc_BE6F ; --------------------------------------------------------------------------- loc_BE4B: add dword_124CE, 493E0h mov [bp+var_4], 155CC0h jmp short loc_BE6F ; --------------------------------------------------------------------------- loc_BE5E: add dword_124CE, 6DDD0h mov [bp+var_4], 16E360h loc_BE6F: les bx, _resident mov al, es:[bx+resident_t.credit_lives] mov ah, 0 dec ax mov bx, ax cmp bx, 5 ja short loc_BECA add bx, bx jmp cs:off_C0E2[bx] loc_BE88: add dword_124CE, 0C350h add [bp+var_4], 186A0h jmp short loc_BECA ; --------------------------------------------------------------------------- loc_BE9B: add dword_124CE, 61A8h add [bp+var_4], 0C350h jmp short loc_BECA ; --------------------------------------------------------------------------- loc_BEAE: sub [bp+var_4], 61A8h jmp short loc_BECA ; --------------------------------------------------------------------------- loc_BEB8: sub [bp+var_4], 0C350h jmp short loc_BECA ; --------------------------------------------------------------------------- loc_BEC2: sub [bp+var_4], 124F8h loc_BECA: les bx, _resident mov al, es:[bx+resident_t.credit_bombs] mov ah, 0 or ax, ax jz short loc_BEDF cmp ax, 1 jz short loc_BEF2 jmp short loc_BF03 ; --------------------------------------------------------------------------- loc_BEDF: add dword_124CE, 0C350h add [bp+var_4], 186A0h jmp short loc_BF03 ; --------------------------------------------------------------------------- loc_BEF2: add dword_124CE, 4E20h add [bp+var_4], 0C350h loc_BF03: les bx, _resident cmp es:[bx+resident_t.turbo_mode], 0 jnz short loc_BF17 sub dword_124CE, 186A0h loc_BF17: les bx, _resident cmp es:[bx+resident_t.miss_count], 15 jb short loc_BF2D sub dword_124CE, 493E0h jmp short loc_BF43 ; --------------------------------------------------------------------------- loc_BF2D: les bx, _resident movzx eax, es:[bx+resident_t.miss_count] imul eax, 4E20h sub dword_124CE, eax loc_BF43: les bx, _resident cmp es:[bx+resident_t.bombs_used], 30 jb short loc_BF59 sub dword_124CE, 15F90h jmp short loc_BF6F ; --------------------------------------------------------------------------- loc_BF59: les bx, _resident movzx eax, es:[bx+resident_t.bombs_used] imul eax, 0BB8h sub dword_124CE, eax loc_BF6F: les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_EXTRA jnb short loc_BFA1 cmp _verdict_rank, RANK_EXTRA jz short loc_BF96 mov ebx, 2 mov eax, dword_124CE cdq idiv ebx mov dword_124CE, eax jmp short loc_BFB4 ; --------------------------------------------------------------------------- loc_BF96: sub dword_124CE, 30D40h jmp short loc_BFB4 ; --------------------------------------------------------------------------- loc_BFA1: les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_CONTINUED jnz short loc_BFB4 sub [bp+var_4], 186A0h loc_BFB4: cmp dword_124CE, 0 jge short loc_BFC7 mov dword_124CE, 0 jmp short loc_BFD9 ; --------------------------------------------------------------------------- loc_BFC7: mov eax, dword_124CE cmp eax, [bp+var_4] jbe short loc_BFD9 mov eax, [bp+var_4] mov dword_124CE, eax loc_BFD9: les bx, _resident mov eax, es:[bx+resident_t.frames] shr eax, 1 cmp eax, es:[bx+resident_t.slow_frames] jbe loc_C0AE push 0C00150h pushd [dword_124CE] call sub_B97B call graph_putsa_fx pascal, (288 shl 16) or 336, 14, ds, offset aPoint ; "点" push ds push offset a_ude_txt ; "_ude.txt" call file_ropen cmp dword_124CE, 16E360h jge short loc_C084 cmp dword_124CE, 0 jnz short loc_C02E mov si, 19h jmp short loc_C074 ; --------------------------------------------------------------------------- loc_C02E: cmp dword_124CE, 100590h jge short loc_C051 mov eax, dword_124CE mov ebx, 0C350h cdq idiv ebx mov dx, 18h sub dx, ax mov si, dx jmp short loc_C074 ; --------------------------------------------------------------------------- loc_C051: cmp dword_124CE, 124F80h jge short loc_C061 mov si, 3 jmp short loc_C074 ; --------------------------------------------------------------------------- loc_C061: cmp dword_124CE, 149970h jge short loc_C071 mov si, 2 jmp short loc_C074 ; --------------------------------------------------------------------------- loc_C071: mov si, 1 loc_C074: mov ax, si imul ax, 1Eh cwde push eax push 0 call file_seek loc_C084: push ds push offset unk_124D3 push 1Eh call file_read mov byte_124EF, 0 call file_close push 40h call frame_delay push (64 shl 16) or 360 push 15 push ds push offset unk_124D3 jmp short loc_C0CB ; --------------------------------------------------------------------------- loc_C0AE: call graph_putsa_fx pascal, (192 shl 16) or 336, 14, ds, offset aBhbhbhbhbhbhu_ ; "？？？？？？点" push (64 shl 16) or 360 push 15 push ds push offset aPicacovVVcvsfT ; "処理落ちによる判定不可" loc_C0CB: call graph_putsa_fx call input_wait_for_change pascal, 0 push 2 call palette_black_out pop si leave retn sub_BB81 endp ; --------------------------------------------------------------------------- db 0 off_C0E2 dw offset loc_BE88 dw offset loc_BE9B dw offset loc_BECA dw offset loc_BEAE dw offset loc_BEB8 dw offset loc_BEC2 off_C0EE dw offset loc_BE1B dw offset loc_BE2E dw offset loc_BE38 dw offset loc_BE4B dw offset loc_BE5E ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C0F8 proc near push bp mov bp, sp mov PaletteTone, 0 call far ptr palette_show graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aUde_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 push 4 call palette_black_in call sub_BB81 pop bp retn sub_C0F8 endp include th04/formats/scoredat_decode.asm include th04/formats/scoredat_encode.asm include th04/formats/scoredat_recreate.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C2AD proc near arg_0 = byte ptr 4 push bp mov bp, sp push ds push offset aGensou_scr_0 ; "GENSOU.SCR" call file_exist or ax, ax jz short loc_C307 push ds push offset aGensou_scr_1 ; "GENSOU.SCR" call file_ropen mov al, _hiscore_rank mov ah, 0 imul ax, size scoredat_section_t movzx eax, ax push eax push 0 call file_seek cmp [bp+arg_0], 0 jz short loc_C2EF call file_seek pascal, large RANK_COUNT * size scoredat_section_t, 1 loc_C2EF: call file_read pascal, ds, offset _hi, size scoredat_section_t call file_close call scoredat_decode or al, al jz short loc_C310 loc_C307: call scoredat_recreate mov al, 1 pop bp retn 2 ; --------------------------------------------------------------------------- loc_C310: mov al, 0 pop bp retn 2 sub_C2AD endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C316 proc near push bp mov bp, sp push si call scoredat_encode push ds push offset aGensou_scr_2 ; "GENSOU.SCR" call file_append mov al, _hiscore_rank mov ah, 0 imul ax, size scoredat_section_t movzx eax, ax call file_seek pascal, large eax, 0 cmp byte ptr word_125B8, 0 jz short loc_C350 call file_seek pascal, large RANK_COUNT * size scoredat_section_t, 1 loc_C350: call file_write pascal, ds, offset _hi, size scoredat_section_t xor si, si jmp short loc_C3A5 ; --------------------------------------------------------------------------- loc_C360: mov ax, si imul ax, size scoredat_section_t movzx eax, ax call file_seek pascal, large eax, 0 call file_read pascal, ds, offset _hi, size scoredat_section_t call scoredat_decode call scoredat_encode mov ax, si imul ax, size scoredat_section_t movzx eax, ax call file_seek pascal, large eax, 0 call file_write pascal, ds, offset _hi, size scoredat_section_t inc si loc_C3A5: cmp si, 0Ah jl short loc_C360 call file_close pop si pop bp retn sub_C316 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C3B2 proc near var_2 = word ptr -2 enter 2, 0 mov [bp+var_2], 9 jmp short loc_C40E ; --------------------------------------------------------------------------- loc_C3BD: mov cx, 7 jmp short loc_C407 ; --------------------------------------------------------------------------- loc_C3C2: les bx, _resident add bx, cx mov al, es:[bx+resident_t.score_last] mov ah, 0 mov bx, [bp+var_2] shl bx, 3 add bx, cx mov dl, _hi.score.g_points[bx] mov dh, 0 add dx, -gb_0_ cmp ax, dx jg short loc_C40B les bx, _resident add bx, cx mov al, es:[bx+resident_t.score_last] mov ah, 0 mov bx, [bp+var_2] shl bx, 3 add bx, cx mov dl, _hi.score.g_points[bx] mov dh, 0 add dx, -gb_0_ cmp ax, dx jl short loc_C41B dec cx loc_C407: or cx, cx jge short loc_C3C2 loc_C40B: dec [bp+var_2] loc_C40E: cmp [bp+var_2], 0 jge short loc_C3BD mov byte_125B6, 0 jmp short loc_C430 ; --------------------------------------------------------------------------- loc_C41B: cmp [bp+var_2], 9 jnz short loc_C428 mov byte_125B6, 0FFh leave retn ; --------------------------------------------------------------------------- loc_C428: mov al, byte ptr [bp+var_2] inc al mov byte_125B6, al loc_C430: mov [bp+var_2], 8 jmp short loc_C489 ; --------------------------------------------------------------------------- loc_C437: mov cx, SCOREDAT_NAME_LEN - 1 jmp short loc_C455 ; --------------------------------------------------------------------------- loc_C43C: mov bx, [bp+var_2] imul bx, (SCOREDAT_NAME_LEN + 1) add bx, cx mov al, _hi.score.g_name[0 * (SCOREDAT_NAME_LEN + 1)][bx] mov bx, [bp+var_2] imul bx, (SCOREDAT_NAME_LEN + 1) add bx, cx mov _hi.score.g_name[1 * (SCOREDAT_NAME_LEN + 1)][bx], al dec cx loc_C455: or cx, cx jge short loc_C43C mov cx, SCORE_DIGITS - 1 jmp short loc_C477 ; --------------------------------------------------------------------------- loc_C45E: mov bx, [bp+var_2] shl bx, 3 add bx, cx mov al, _hi.score.g_points[0 * SCORE_DIGITS][bx] mov bx, [bp+var_2] shl bx, 3 add bx, cx mov _hi.score.g_points[1 * SCORE_DIGITS][bx], al dec cx loc_C477: or cx, cx jge short loc_C45E mov bx, [bp+var_2] mov al, _hi.score.g_stage+0[bx] mov _hi.score.g_stage+1[bx], al dec [bp+var_2] loc_C489: mov al, byte_125B6 mov ah, 0 cmp ax, [bp+var_2] jle short loc_C437 mov cx, (SCOREDAT_NAME_LEN - 1) jmp short loc_C4AA ; --------------------------------------------------------------------------- loc_C498: mov al, byte_125B6 mov ah, 0 imul ax, (SCOREDAT_NAME_LEN + 1) add ax, cx mov bx, ax mov _hi.score.g_name[bx], gs_DOT dec cx loc_C4AA: or cx, cx jge short loc_C498 mov cx, SCOREDAT_NAME_LEN - 1 jmp short loc_C4D1 ; --------------------------------------------------------------------------- loc_C4B3: les bx, _resident add bx, cx mov al, es:[bx+resident_t.score_last] add al, gb_0_ mov dl, byte_125B6 mov dh, 0 shl dx, 3 add dx, cx mov bx, dx mov _hi.score.g_points[bx], al dec cx loc_C4D1: or cx, cx jge short loc_C4B3 les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_EXTRA jb short loc_C4EE mov al, byte_125B6 mov ah, 0 mov bx, ax mov _hi.score.g_stage[bx], gs_ALL leave retn ; --------------------------------------------------------------------------- loc_C4EE: les bx, _resident mov al, es:[bx+resident_t.stage] add al, gb_1_ mov dl, byte_125B6 mov dh, 0 mov bx, dx mov _hi.score.g_stage[bx], al leave retn sub_C3B2 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C506 proc near @@y = word ptr -4 var_2 = word ptr -2 arg_0 = byte ptr 4 arg_2 = word ptr 6 enter 4, 0 push si push di mov si, [bp+arg_2] or si, si jnz short loc_C518 mov ax, 96 jmp short loc_C520 ; --------------------------------------------------------------------------- loc_C518: mov ax, si shl ax, 4 add ax, 112 loc_C520: mov [bp+@@y], ax cmp [bp+arg_0], 0 jnz short loc_C52E mov ax, 172 jmp short loc_C531 ; --------------------------------------------------------------------------- loc_C52E: mov ax, 480 loc_C531: mov di, ax mov al, byte_125B6 mov ah, 0 cmp ax, si jnz short loc_C549 mov al, [bp+arg_0] cmp al, byte ptr word_125B8 jnz short loc_C549 mov al, 0Ah jmp short loc_C54B ; --------------------------------------------------------------------------- loc_C549: mov al, 0 loc_C54B: mov [bp+arg_0], al mov bx, si shl bx, 3 mov al, _hi.score.g_points[bx][SCORE_DIGITS - 1] mov ah, 0 add ax, -gb_0_ cmp ax, 10 jl short loc_C589 lea ax, [di-32] push ax push [bp+@@y] mov bx, si shl bx, 3 mov al, _hi.score.g_points[bx][SCORE_DIGITS - 1] mov ah, 0 add ax, -gb_0_ mov bx, 10 cwd idiv bx mov dl, [bp+arg_0] mov dh, 0 add ax, dx push ax call super_put loc_C589: lea ax, [di-16] push ax push [bp+@@y] mov bx, si shl bx, 3 mov al, _hi.score.g_points[bx][SCORE_DIGITS - 1] mov ah, 0 add ax, -gb_0_ mov bx, 10 cwd idiv bx mov al, [bp+arg_0] mov ah, 0 add dx, ax push dx call super_put mov [bp+var_2], 6 jmp short loc_C5E0 ; --------------------------------------------------------------------------- loc_C5B8: push di push [bp+@@y] mov bx, si shl bx, 3 add bx, [bp+var_2] mov al, _hi.score.g_points[bx] mov ah, 0 mov dl, [bp+arg_0] mov dh, 0 add ax, dx add ax, -gb_0_ push ax call super_put dec [bp+var_2] add di, 16 loc_C5E0: cmp [bp+var_2], 0 jge short loc_C5B8 pop di pop si leave retn 4 sub_C506 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C5EC proc near @@col = byte ptr -5 @@y = word ptr -4 @@x = word ptr -2 @@gaiji = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 enter 6, 0 push si push di mov si, [bp+arg_4] mov di, [bp+arg_2] mov al, byte_125B6 mov ah, 0 cmp ax, si jnz short loc_C60E mov al, byte ptr word_125B8 mov ah, 0 cmp ax, di jnz short loc_C60E mov al, 7 jmp short loc_C610 ; --------------------------------------------------------------------------- loc_C60E: mov al, 12 loc_C610: mov [bp+@@col], al or si, si jnz short loc_C61C mov ax, 96 jmp short loc_C624 ; --------------------------------------------------------------------------- loc_C61C: mov ax, si shl ax, 4 add ax, 112 loc_C624: mov [bp+@@y], ax or di, di jnz short loc_C630 mov ax, 292 jmp short loc_C633 ; --------------------------------------------------------------------------- loc_C630: mov ax, 600 loc_C633: mov [bp+@@x], ax add ax, 2 push ax mov ax, [bp+@@y] add ax, 2 push ax push [bp+@@gaiji] push 14 call graph_gaiji_putc push [bp+@@x] push [bp+@@y] push [bp+@@gaiji] mov al, [bp+@@col] mov ah, 0 push ax call graph_gaiji_putc pop di pop si leave retn 6 sub_C5EC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C665 proc near @@y = word ptr -2 arg_0 = byte ptr 4 arg_2 = byte ptr 6 arg_4 = word ptr 8 enter 2, 0 push si push di mov si, [bp+arg_4] cmp [bp+arg_2], 0 jnz short loc_C679 mov ax, 2 jmp short loc_C67C ; --------------------------------------------------------------------------- loc_C679: mov ax, 40 loc_C67C: mov di, ax or si, si jnz short loc_C687 mov ax, 6 jmp short loc_C68A ; --------------------------------------------------------------------------- loc_C687: lea ax, [si+7] loc_C68A: mov [bp+@@y], ax mov ax, di shl ax, 3 add ax, 2 push ax mov ax, [bp+@@y] shl ax, 4 add ax, 2 push ax push 800010h call sub_CBF3 mov ax, di shl ax, 3 add ax, 2 push ax mov ax, [bp+@@y] shl ax, 4 add ax, 2 push ax push GAIJI_W mov ax, si imul ax, (SCOREDAT_NAME_LEN + 1) add ax, offset _hi.score.g_name push ds push ax push 14 call graph_gaiji_puts push di push [bp+@@y] mov ax, si imul ax, (SCOREDAT_NAME_LEN + 1) add ax, offset _hi.score.g_name push ds push ax push TX_RED call gaiji_putsa mov al, [bp+arg_0] mov ah, 0 add ax, ax add ax, di push ax push [bp+@@y] mov bx, si imul bx, (SCOREDAT_NAME_LEN + 1) mov al, [bp+arg_0] mov ah, 0 add bx, ax mov al, offset _hi.score.g_name[bx] mov ah, 0 push ax push TX_RED + TX_REVERSE call gaiji_putca pop di pop si leave retn 6 sub_C665 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C711 proc near @@x = 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] cmp byte ptr [bp+arg_0], 0 jnz short loc_C725 mov ax, 16 jmp short loc_C728 ; --------------------------------------------------------------------------- loc_C725: mov ax, 320 loc_C728: mov [bp+@@x], ax or si, si jnz short loc_C734 mov ax, 96 jmp short loc_C73C ; --------------------------------------------------------------------------- loc_C734: mov ax, si shl ax, 4 add ax, 112 loc_C73C: mov di, ax mov ax, [bp+@@x] add ax, 2 push ax lea ax, [di+2] push ax push GAIJI_W mov ax, si imul ax, 9 add ax, offset _hi.score.g_name push ds push ax push 14 call graph_gaiji_puts mov al, byte_125B6 mov ah, 0 cmp ax, si jnz short loc_C76E mov al, byte ptr [bp+arg_0] cmp al, byte ptr word_125B8 jz short loc_C787 loc_C76E: push [bp+@@x] push di push GAIJI_W mov ax, si imul ax, (SCOREDAT_NAME_LEN + 1) add ax, offset _hi.score.g_name push ds push ax push 12 call graph_gaiji_puts jmp short loc_C7AB ; --------------------------------------------------------------------------- loc_C787: mov ax, [bp+@@x] mov bx, 8 cwd idiv bx push ax mov ax, di mov bx, 10h cwd idiv bx push ax mov ax, si imul ax, (SCOREDAT_NAME_LEN + 1) add ax, offset _hi.score.g_name push ds push ax push TX_RED call gaiji_putsa loc_C7AB: push si push [bp+arg_0] call sub_C506 push si mov al, byte ptr [bp+arg_0] mov ah, 0 push ax mov al, _hi.score.g_stage[si] mov ah, 0 push ax call sub_C5EC pop di pop si leave retn 4 sub_C711 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C7C9 proc near arg_0 = word ptr 4 push bp mov bp, sp push si xor si, si jmp short loc_C7D9 ; --------------------------------------------------------------------------- loc_C7D1: push si push [bp+arg_0] call sub_C711 inc si loc_C7D9: cmp si, 0Ah jl short loc_C7D1 pop si pop bp retn 2 sub_C7C9 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C7E3 proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 push bp mov bp, sp push si push di mov si, [bp+arg_4] mov di, [bp+arg_2] mov ax, si add ax, ax add ax, 17h push ax lea ax, [di+12h] push ax mov bx, di imul bx, 11h mov al, [bx+si+82Ch] mov ah, 0 push ax push [bp+arg_0] call gaiji_putca pop di pop si pop bp retn 6 sub_C7E3 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C814 proc near var_A = byte ptr -0Ah var_9 = byte ptr -9 var_8 = word ptr -8 var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 enter 0Ah, 0 push si push di xor si, si mov [bp+var_9], 0 mov PaletteTone, 0 call far ptr palette_show graph_accesspage 1 call pi_slot_load pascal, 0, ds, offset aHi01_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call graph_copy_page pascal, 0 call super_entry_bfnt pascal, ds, offset aScnum2_bft ; "scnum2.bft" les bx, _resident cmp es:[bx+resident_t.stage], STAGE_EXTRA jnz short loc_C87A mov al, 4 jmp short loc_C882 ; --------------------------------------------------------------------------- loc_C87A: les bx, _resident mov al, es:[bx+resident_t.rank] loc_C882: mov _hiscore_rank, al les bx, _resident cmp es:[bx+resident_t.playchar_ascii], '0' + PLAYCHAR_MARISA jnz short loc_C895 mov ax, 1 jmp short loc_C897 ; --------------------------------------------------------------------------- loc_C895: xor ax, ax loc_C897: mov byte ptr word_125B8, al mov al, 1 sub al, byte ptr word_125B8 push ax call sub_C2AD mov al, byte ptr word_125B8 mov ah, 0 mov dx, 1 sub dx, ax push dx call sub_C7C9 push word_125B8 call sub_C2AD les bx, _resident cmp es:[bx+resident_t.turbo_mode], 0 jnz short loc_C8CB cmp _hiscore_rank, RANK_EXTRA jnz short loc_C8D9 loc_C8CB: call sub_C3B2 mov al, byte ptr word_125B8 mov ah, 0 push ax call sub_C7C9 jmp short loc_C909 ; --------------------------------------------------------------------------- loc_C8D9: mov byte_125B6, 0FFh mov al, byte ptr word_125B8 mov ah, 0 push ax call sub_C7C9 call graph_putsa_fx pascal, (124 shl 16) or 196, 9, ds, offset aGxgnbGvbGhvVGv ; "スローモードでのプレイでは、スコアは記・... call graph_putsa_fx pascal, (120 shl 16) or 192, 2, ds, offset aGxgnbGvbGhvV_1 ; "スローモードでのプレイでは、スコアは記・... loc_C909: les bx, _resident cmp es:[bx+resident_t.end_sequence], ES_1CC jz short loc_C922 cmp es:[bx+resident_t.end_sequence], ES_EXTRA jz short loc_C922 cmp _hiscore_rank, RANK_EASY jnz short loc_C95E loc_C922: mov al, _hi.score.cleared mov [bp+var_A], al cmp [bp+var_A], SCOREDAT_CLEARED_BOTH + 1 jb short loc_C944 les bx, _resident cmp es:[bx+resident_t.shottype], SHOTTYPE_A jnz short loc_C93D mov al, SCOREDAT_CLEARED_A jmp short loc_C93F ; --------------------------------------------------------------------------- loc_C93D: mov al, SCOREDAT_CLEARED_B loc_C93F: mov [bp+var_A], al jmp short loc_C958 ; --------------------------------------------------------------------------- loc_C944: les bx, _resident cmp es:[bx+resident_t.shottype], SHOTTYPE_A jnz short loc_C953 mov al, SCOREDAT_CLEARED_A jmp short loc_C955 ; --------------------------------------------------------------------------- loc_C953: mov al, SCOREDAT_CLEARED_B loc_C955: or [bp+var_A], al loc_C958: mov al, [bp+var_A] mov _hi.score.cleared, al loc_C95E: kajacall KAJA_SONG_STOP call snd_load pascal, ds, offset aName, SND_LOAD_SONG kajacall KAJA_SONG_PLAY push 2 call palette_black_in cmp byte_125B6, 0FFh jz loc_CB7F mov [bp+var_6], 0 jmp short loc_C9CB ; --------------------------------------------------------------------------- loc_C990: mov [bp+var_8], 0 jmp short loc_C9C2 ; --------------------------------------------------------------------------- loc_C997: mov ax, [bp+var_8] add ax, ax add ax, 23 push ax mov ax, [bp+var_6] add ax, 18 push ax mov bx, [bp+var_6] imul bx, 11h add bx, [bp+var_8] mov al, [bx+82Ch] mov ah, 0 push ax push TX_WHITE call gaiji_putca inc [bp+var_8] loc_C9C2: cmp [bp+var_8], 11h jl short loc_C997 inc [bp+var_6] loc_C9CB: cmp [bp+var_6], 3 jl short loc_C990 push (23 shl 16) + 18 mov al, gALPHABET mov ah, 0 push ax push TX_GREEN + TX_REVERSE call gaiji_putca xor di, di mov [bp+var_2], 0 call far ptr _input_reset_sense mov [bp+var_4], 1 loc_C9F6: call _input_sense cmp [bp+var_4], 0 jnz loc_CB3B test _key_det.lo, low INPUT_MOVEMENT jz short loc_CA6A push di push [bp+var_2] push TX_WHITE call sub_C7E3 test _key_det.lo, low INPUT_UP jz short loc_CA1E dec [bp+var_2] loc_CA1E: test _key_det.lo, low INPUT_DOWN jz short loc_CA28 inc [bp+var_2] loc_CA28: test _key_det.lo, low INPUT_LEFT jz short loc_CA30 dec di loc_CA30: test _key_det.lo, low INPUT_RIGHT jz short loc_CA38 inc di loc_CA38: cmp [bp+var_2], 0 jge short loc_CA45 mov [bp+var_2], 2 jmp short loc_CA50 ; --------------------------------------------------------------------------- loc_CA45: cmp [bp+var_2], 2 jle short loc_CA50 mov [bp+var_2], 0 loc_CA50: or di, di jge short loc_CA59 mov di, 10h jmp short loc_CA60 ; --------------------------------------------------------------------------- loc_CA59: cmp di, 10h jle short loc_CA60 xor di, di loc_CA60: push di push [bp+var_2] push TX_GREEN + TX_REVERSE call sub_C7E3 loc_CA6A: test _key_det.lo, low INPUT_SHOT jnz short loc_CA7A test _key_det.hi, high INPUT_OK jz loc_CB03 loc_CA7A: mov bx, [bp+var_2] imul bx, 11h mov al, [bx+di+82Ch] mov [bp+var_A], al mov ah, 0 sub ax, 0CDh ; 'ﾍ' mov bx, ax cmp bx, 8 ja short loc_CABD add bx, bx jmp cs:off_CB9E[bx] loc_CA9A: mov [bp+var_A], 2 jmp short loc_CABD ; --------------------------------------------------------------------------- loc_CAA0: mov al, byte_125B6 mov ah, 0 imul ax, 9 mov bx, ax mov _hi.score.g_name[bx+si], g_EMPTY or si, si jle short loc_CAF5 dec si jmp short loc_CAF5 ; --------------------------------------------------------------------------- loc_CAB6: cmp si, 7 jge short loc_CAF5 jmp short loc_CAF4 ; --------------------------------------------------------------------------- loc_CABD: mov al, byte_125B6 mov ah, 0 imul ax, (SCOREDAT_NAME_LEN + 1) mov dl, [bp+var_A] mov bx, ax mov _hi.score.g_name[bx+si], dl cmp si, 7 jnz short loc_CAEF push di push [bp+var_2] push TX_WHITE call sub_C7E3 mov di, 10h mov [bp+var_2], 2 push di push [bp+var_2] push TX_GREEN + TX_REVERSE call sub_C7E3 loc_CAEF: cmp si, 7 jge short loc_CAF5 loc_CAF4: inc si loc_CAF5: mov al, byte_125B6 mov ah, 0 push ax push word_125B8 push si call sub_C665 loc_CB03: test _key_det.lo, low INPUT_BOMB jz short loc_CB2C mov al, byte_125B6 mov ah, 0 imul ax, (SCOREDAT_NAME_LEN + 1) mov bx, ax mov _hi.score.g_name[bx+si], g_EMPTY or si, si jle short loc_CB1E dec si loc_CB1E: mov al, byte_125B6 mov ah, 0 push ax push word_125B8 push si call sub_C665 loc_CB2C: test _key_det.hi, high INPUT_CANCEL jnz short loc_CB7A mov ax, _key_det mov [bp+var_4], ax jmp short loc_CB6B ; --------------------------------------------------------------------------- loc_CB3B: mov ax, _key_det cmp ax, [bp+var_4] jnz short loc_CB59 inc [bp+var_9] cmp [bp+var_9], 1Eh jbe short loc_CB6B test [bp+var_9], 1 jnz short loc_CB6B mov [bp+var_4], 0 jmp short loc_CB6B ; --------------------------------------------------------------------------- loc_CB59: cmp _key_det, INPUT_NONE jz short loc_CB62 jmp short loc_CB67 ; --------------------------------------------------------------------------- loc_CB62: mov [bp+var_4], 0 loc_CB67: mov [bp+var_9], 0 loc_CB6B: call far ptr _input_reset_sense push 1 call frame_delay jmp loc_C9F6 ; --------------------------------------------------------------------------- loc_CB7A: call sub_C316 jmp short loc_CB89 ; --------------------------------------------------------------------------- loc_CB7F: call sub_C316 call input_wait_for_change pascal, 0 loc_CB89: call super_free call text_clear push 1 call palette_black_out pop di pop si leave retn sub_C814 endp ; --------------------------------------------------------------------------- off_CB9E dw offset loc_CA9A dw offset loc_CAA0 dw offset loc_CAB6 dw offset loc_CABD dw offset loc_CABD dw offset loc_CABD dw offset loc_CABD dw offset loc_CABD dw offset loc_CB7A ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame _egc_start_copy_inlined proc near push bp mov bp, sp EGC_START_COPY_INLINED pop bp retn _egc_start_copy_inlined endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_CBF3 proc near var_8 = word ptr -8 var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah enter 8, 0 push si push di mov di, [bp+arg_2] call _egc_start_copy_inlined mov ax, [bp+arg_6] sar ax, 3 mov dx, [bp+arg_4] shl dx, 6 add ax, dx mov dx, [bp+arg_4] shl dx, 4 add ax, dx mov [bp+var_6], ax mov bx, 10h mov ax, di cwd idiv bx mov di, ax mov [bp+var_4], 0 jmp short loc_CC66 ; --------------------------------------------------------------------------- loc_CC29: mov [bp+var_2], 0 mov si, [bp+var_6] jmp short loc_CC5A ; --------------------------------------------------------------------------- loc_CC33: graph_accesspage 1 les bx, _VRAM_PLANE_B add bx, si mov ax, es:[bx] mov [bp+var_8], ax mov al, 0 out dx, al mov bx, word ptr _VRAM_PLANE_B add bx, si mov ax, [bp+var_8] mov es:[bx], ax inc [bp+var_2] add si, 2 loc_CC5A: cmp [bp+var_2], di jl short loc_CC33 inc [bp+var_4] add [bp+var_6], 50h ; 'P' loc_CC66: mov ax, [bp+var_4] cmp ax, [bp+arg_0] jl short loc_CC29 call egc_off pop di pop si leave retn 8 sub_CBF3 endp db 0 maine_01_TEXT ends ; =========================================================================== ; Segment type: Pure code maine_02_TEXT segment word public 'CODE' use16 assume cs:maine_02_TEXT ;org 0Ah assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing include th01/hardware/vram_planes_set.asm include th02/hardware/frame_delay.asm include th02/formats/pi_slot_palette_apply.asm include th02/formats/pi_slot_put.asm include th02/formats/pi_slot_load.asm include th03/formats/pi_slot_put_quarter.asm include th03/formats/hfliplut.asm include th04/hardware/input_wait.asm include th04/math/vector1_at.asm include th04/math/vector2_at.asm include th04/snd/pmd_res.asm include th02/snd/mmd_res.asm include th04/snd/kajaint.asm include th04/snd/detmodes.asm include th03/snd/delaymea.asm db 0 include th04/formats/cdg_put_plane.asm include th04/snd/load.asm include th04/hardware/grppsafx.asm include th04/formats/cdg_put.asm include th02/exit.asm include th02/initmain.asm db 0 include th04/hardware/input_sense.asm include th04/snd/se.asm include th04/bgimage.asm include th04/bgimage_put_rect.asm include th04/formats/cdg_load.asm maine_02_TEXT ends .data off_E5C0 dd a_ed000_txt ; "_ED000.TXT" include th04/formats/cfg_lres[data].asm a_ed000_txt db '_ED000.TXT',0 aCong00_pi db 'CONG00.pi',0 aMSzlEd_dat db '幻想郷ed.dat',0 aGameft_bft db 'GAMEFT.bft',0 ; char arg0[] arg0 db 'op',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/fil[data].asm include libs/master.lib/dos_ropen[data].asm include libs/master.lib/get_machine_98[data].asm include libs/master.lib/get_machine_at[data].asm include libs/master.lib/gaiji_backup[data].asm include libs/master.lib/gaiji_entry_bfnt[data].asm include libs/master.lib/grp[data].asm include libs/master.lib/js[data].asm include libs/master.lib/machine[data].asm include libs/master.lib/pal[data].asm include libs/master.lib/pf[data].asm include libs/master.lib/rand[data].asm include libs/master.lib/sin8[data].asm include libs/master.lib/tx[data].asm include libs/master.lib/vs[data].asm include libs/master.lib/wordmask[data].asm include libs/master.lib/mem[data].asm include libs/master.lib/super_entry_bfnt[data].asm include libs/master.lib/superpa[data].asm include th02/formats/pfopen[data].asm include libs/master.lib/bgm_timerhook[data].asm include libs/master.lib/bgm[data].asm include th04/snd/se_priority[data].asm include th04/formats/cdg_put_plane[data].asm include th04/snd/snd[data].asm db 0 include th04/snd/load[data].asm include th04/hardware/grppsafx[data].asm include th03/snd/se_state[data].asm include th04/bgimage[data].asm include th03/formats/cdg[data].asm include th03/formats/pi_slot_put_mask[data].asm db 88h db 88h db 0 db 0 db 22h ; " db 22h ; " db 0 db 0 db 88h db 88h db 44h ; D db 44h ; D db 22h ; " db 22h ; " db 11h db 11h db 0AAh ; ｪ db 0AAh ; ｪ db 44h ; D db 44h ; D db 0AAh ; ｪ db 0AAh ; ｪ db 11h db 11h db 0AAh ; ｪ db 0AAh ; ｪ db 44h ; D db 44h ; D db 0AAh ; ｪ db 0AAh ; ｪ db 55h ; U db 55h ; U db 0FFh db 0FFh db 0FFh db 0FFh db 0FFh db 0FFh db 0FFh db 0FFh asc_EB84 db ' ', 0 even aSff1_pi db 'sff1.pi',0 aStaff db 'staff',0 aSff1_cdg db 'sff1.cdg',0 aSff1b_cdg db 'sff1b.cdg',0 aSff2_cdg db 'sff2.cdg',0 aSff2b_cdg db 'sff2b.cdg',0 aSff3_cdg db 'sff3.cdg',0 aSff3b_cdg db 'sff3b.cdg',0 aSff2_pi db 'sff2.pi',0 aSff4_cdg db 'sff4.cdg',0 aSff4b_cdg db 'sff4b.cdg',0 aSff5_cdg db 'sff5.cdg',0 aSff5b_cdg db 'sff5b.cdg',0 aSff8_cdg db 'sff8.cdg',0 aSff8b_cdg db 'sff8b.cdg',0 aSff9_cdg db 'sff9.cdg',0 aSff9b_cdg db 'sff9b.cdg',0 aSff6_cdg db 'sff6.cdg',0 aSff6b_cdg db 'sff6b.cdg',0 aSff7_cdg db 'sff7.cdg',0 aSff7b_cdg db 'sff7b.cdg',0 db 0 byte_EC4A db 0 include th04/strings/verdict[data].asm byte_EC73 db 0 aU_ db '点',0 aBd db '．',0 aBu db '％',0 aBd_0 db '．',0 aBu_0 db '％',0 aB@b@b@b@b@b@b@ db '　　　　　　　 腕前判定',0 aUqiUx db '難易度',0 aNPiuU_ db '最終得点',0 aGGxi db 'ミス回数',0 aGGaogcpi db 'ボム使用回数',0 aGqbGatbrmcj db 'ゲーム達成率',0 aIlcSObcj db '悪霊退治率',0 aGagcgegai db 'アイテム回収率',0 aUU_gagcgeganNv db '得点アイテム最高点率',0 aLcnzvv db '気合い',0 aPicacovCj db '処理落ち率',0 aVavVVSrso db 'あなたの腕前',0 aTimes db '回',0 aTimes_0 db '回',0 aPoint db '点',0 a_ude_txt db '_ude.txt',0 aBhbhbhbhbhbhu_ db '？？？？？？点',0 aPicacovVVcvsfT db '処理落ちによる判定不可',0 aUde_pi db 'ude.pi',0 db 0 gALPHABET db 0AAh, 0ABh, 0ACh, 0ADh, 0AEh, 0AFh, 0B0h, 0B1h, 0B2h db 0B3h, 0B4h, 0B5h, 0B6h, 0B7h, 0B8h, 0B9h, 0BAh, 0BBh db 0BCh, 0BDh, 0BEh, 0BFh, 0C0h, 0C1h, 0C2h, 0C3h, 0C4h db 0C5h, 3, 6, 7, 8, 0Ch, 0Fh, 0A0h, 0A1h, 0A2h, 0A3h db 0A4h, 0A5h, 0A6h, 0A7h, 0A8h, 0A9h, 0E6h, 0E7h, 0E8h db 0CEh, 0CFh, 0CDh, 0D5h aGensou_scr db 'GENSOU.SCR',0 aGensou_scr_0 db 'GENSOU.SCR',0 aGensou_scr_1 db 'GENSOU.SCR',0 aGensou_scr_2 db 'GENSOU.SCR',0 aHi01_pi db 'hi01.pi',0 aScnum2_bft db 'scnum2.bft',0 aGxgnbGvbGhvVGv db 'スローモードでのプレイでは、スコアは記録されません',0 aGxgnbGvbGhvV_1 db 'スローモードでのプレイでは、スコアは記録されません',0 aName db 'name',0 db 0 .data? ; TODO: Missing clip[bss].asm (16 bytes) somewhere in there... public _resident _resident dd ? db 16 dup(?) 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 th01/hardware/vram_planes[bss].asm include libs/master.lib/pfint21[bss].asm include th02/formats/pi_slots[bss].asm include th03/formats/hfliplut[bss].asm include th04/snd/interrupt[bss].asm include libs/master.lib/bgm[bss].asm include th02/snd/load[bss].asm include th04/mem[bss].asm include th04/hardware/input[bss].asm include th04/formats/cdg[bss].asm db 8192 dup(?) word_12478 dw ? dword_1247A dd ? byte_1247E db ? db 61 dup(?) point_124BC Point word_124C0 dw ? col_124C2 db ? db ? ; word_124C4 dw ? byte_124C6 db ? byte_124C7 db ? fp_124C8 dw ? db 2 dup(?) byte_124CC db ? db ? ; dword_124CE dd ? _verdict_rank db ? unk_124D3 db ? ; db 27 dup(?) byte_124EF db ? db 2 dup(?) include th04/formats/scoredat[bss].asm byte_125B6 db ? _hiscore_rank db ? word_125B8 dw ? end