; ; +-------------------------------------------------------------------------+ ; | This file has been generated by The Interactive Disassembler (IDA) | ; | Copyright (c) 2009 by Hex-Rays, | ; +-------------------------------------------------------------------------+ ; ; Input MD5 : CE44AA7A114237C6B3CD67EEA9C0225A ; File Name : th03/MAINL.EXE ; Format : MS-DOS executable (EXE) ; Base Address: 0h Range: 0h-10CF0h Loaded length: F72Ch ; Entry Point : 0:0 ; OS type : MS DOS ; Application type: Executable 16bit .286 ; Force the .model directive to create 16-bit default segments... .model large __LARGE__ equ 1 .386 ; ... then switch to what we actually need. ; And yes, we can't move this to an include file for some reason. include ReC98.inc include th03/th03.asm extern SCOPY@:proc extern __mbcjmstojis:proc extern __mbctype:byte extern _execl:proc extern _memcpy:proc extern _tolower:proc ; =========================================================================== ; Segment type: Pure code _TEXT segment word public 'CODE' use16 assume cs:_TEXT assume es:nothing, ds:_DATA, fs:nothing, gs:nothing include libs/master.lib/bfnt_entry_pat.asm include libs/master.lib/bfnt_extend_header_skip.asm include libs/master.lib/bfnt_header_read.asm include libs/master.lib/bfnt_header_analysis.asm include libs/master.lib/bcloser.asm include libs/master.lib/bfill.asm include libs/master.lib/bfnt_palette_set.asm include libs/master.lib/bgetc.asm include libs/master.lib/palette_black_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_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_boxfill.asm include libs/master.lib/grcg_byteboxfill_x.asm include libs/master.lib/grcg_setcolor.asm include libs/master.lib/gdc_outpw.asm db 0 include libs/master.lib/gaiji_backup.asm include libs/master.lib/gaiji_entry_bfnt.asm include libs/master.lib/gaiji_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_gaiji_putc.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/iatan2.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/palette_entry_rgb.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/text_fillca.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/respal_exist.asm include libs/master.lib/respal_set_palettes.asm include libs/master.lib/pfint21.asm db 0 include libs/master.lib/js_start.asm include libs/master.lib/js_sense.asm db 0 include th03/formats/pfopen.asm include libs/master.lib/pf_str_ieq.asm include libs/master.lib/graph_pack_put_8_noclip.asm _TEXT ends ; =========================================================================== ; Segment type: Pure code mainl_01_TEXT segment byte public 'CODE' use16 assume cs:mainl_01_TEXT ;org 3 assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_95F3 proc near var_8 = byte ptr -8 var_3 = word ptr -3 enter 8, 0 push si push ds push offset aYume_cfg ; "YUME.CFG" call file_ropen push ss lea ax, [bp+var_8] push ax push 8 call file_read call file_close mov si, [bp+var_3] mov word ptr _yumeconfig+2, si mov word ptr _yumeconfig, 0 mov ax, si pop si leave retn sub_95F3 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9624 proc near var_2 = byte ptr -2 var_1 = byte ptr -1 enter 2, 0 push ds push offset aLogo0_rgb ; "logo0.rgb" call palette_entry_rgb call far ptr palette_show call _cdg_load_all_noalpha pascal, 0, ds, offset aLogo_cd2 call _cdg_load_single_forcealpha pascal, 5, ds, offset aLogo5_cdg, 0 les bx, _yumeconfig cmp byte ptr es:[bx+17h], 0 jnz short loc_965E mov al, byte_F7E3 jmp short loc_9661 ; --------------------------------------------------------------------------- loc_965E: mov al, byte_F7E4 loc_9661: mov [bp+var_1], al les bx, _yumeconfig cmp byte ptr es:[bx+17h], 0 jnz short loc_969A cmp byte ptr es:[bx+33h], 6 jnz short loc_967C mov [bp+var_2], 9 jmp short loc_96B7 ; --------------------------------------------------------------------------- loc_967C: les bx, _yumeconfig cmp byte ptr es:[bx+33h], 7 jnz short loc_968D mov [bp+var_2], 0Ah jmp short loc_96B7 ; --------------------------------------------------------------------------- loc_968D: les bx, _yumeconfig cmp byte ptr es:[bx+17h], 0 jnz short loc_96AA jmp short loc_96A5 ; --------------------------------------------------------------------------- loc_969A: les bx, _yumeconfig cmp byte ptr es:[bx+17h], 0 jnz short loc_96AA loc_96A5: mov al, byte_F7E4 jmp short loc_96AD ; --------------------------------------------------------------------------- loc_96AA: mov al, byte_F7E3 loc_96AD: mov ah, 0 cwd sub ax, dx sar ax, 1 mov [bp+var_2], al loc_96B7: push 6 push ds mov al, [bp+var_1] mov ah, 0 cwd sub ax, dx mov bx, ax sar bx, 1 add bx, bx push word ptr [bx+90h] mov al, [bp+var_1] mov ah, 0 and ax, 1 push ax call _cdg_load_single_noalpha mov al, [bp+var_1] mov ah, 0 cwd sub ax, dx mov bx, ax sar bx, 1 shl bx, 2 pushd dword ptr [bx+0A2h] call file_ropen mov al, [bp+var_2] mov ah, 0 imul ax, 0B4h cwde push eax push 0 call file_seek push ds push offset unk_F72C push 3Ch ; '<' call file_read mov byte_F768, 0 push ds push offset unk_F769 push 3Ch ; '<' call file_read mov byte_F7A5, 0 push ds push offset unk_F7A6 push 3Ch ; '<' call file_read mov byte_F7E2, 0 call file_close leave retn sub_9624 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_973E proc near push bp mov bp, sp push 500110h push 2Fh ; '/' push ds push offset unk_F72C call sub_D197 push 500120h push 2Fh ; '/' push ds push offset unk_F769 call sub_D197 push 500130h push 2Fh ; '/' push ds push offset unk_F7A6 call sub_D197 pop bp retn sub_973E endp include th03/formats/cdg_freeall.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_978D proc near push bp mov bp, sp push si mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call graph_clear mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call graph_clear mov dx, 0A4h mov al, 0 out dx, al mov PaletteTone, 0 call far ptr palette_show call graph_show push (352 shl 16) or 300 push 0 call _cdg_put_noalpha kajacall KAJA_SONG_PLAY push 2 call palette_black_in push 60010h call sub_D3FC mov si, 1 jmp short loc_97FC ; --------------------------------------------------------------------------- loc_97E8: push (352 shl 16) or 300 push si call _cdg_put_noalpha push 6 call frame_delay inc si loc_97FC: cmp si, 5 jl short loc_97E8 push 0A0040h call sub_D3FC mov PaletteTone, 0C8h call far ptr palette_show push (224 shl 16) or 64 push 6 call _cdg_put_noalpha push (352 shl 16) or 300 push 5 call _cdg_put_noalpha push ds push offset aLogo1_rgb ; "logo1.rgb" call palette_entry_rgb call far ptr palette_show call _cdg_freeall push 0B0004h call sub_D3FC push 1 call palette_white_in push 8 call frame_delay call sub_973E call sub_9887 or ax, ax jnz short loc_9868 call sub_990C loc_9868: call _input_mode_interface cmp _input_sp, INPUT_NONE jnz short loc_987D push 1 call frame_delay jmp short loc_9868 ; --------------------------------------------------------------------------- loc_987D: push 1 call palette_black_out pop si pop bp retn sub_978D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9887 proc near var_2 = word ptr -2 enter 2, 0 les bx, _yumeconfig cmp byte ptr es:[bx+28h], 1 jnz short loc_98A1 les bx, _yumeconfig cmp byte ptr es:[bx+17h], 0 jz short loc_98A6 loc_98A1: mov ax, 1 leave retn ; --------------------------------------------------------------------------- loc_98A6: les bx, _yumeconfig mov al, es:[bx+33h] mov ah, 0 add bx, ax mov al, es:[bx+29h] mov bx, word ptr _yumeconfig mov es:[bx+0Dh], al cmp byte ptr es:[bx+33h], 7 jnz short loc_98CA mov ax, 3 leave retn ; --------------------------------------------------------------------------- loc_98CA: les bx, _yumeconfig cmp byte ptr es:[bx+33h], 8 jnz short loc_98DA mov ax, 4 leave retn ; --------------------------------------------------------------------------- loc_98DA: les bx, _yumeconfig cmp byte ptr es:[bx+33h], 9 jnz short loc_98EA mov ax, 5 leave retn ; --------------------------------------------------------------------------- loc_98EA: les bx, _yumeconfig mov al, es:[bx+0Dh] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 mov [bp+var_2], ax cmp [bp+var_2], 7 jl short loc_9908 mov byte ptr es:[bx+0Dh], 1 loc_9908: xor ax, ax leave retn sub_9887 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_990C proc near var_1 = byte ptr -1 enter 2, 0 mov dx, 0A4h mov al, 0 out dx, al mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al mov al, byte_F7E3 mov [bp+var_1], al push 0 push ds mov ah, 0 cwd sub ax, dx mov bx, ax sar bx, 1 add bx, bx push word ptr [bx+90h] mov al, [bp+var_1] mov ah, 0 and ax, 1 push ax call _cdg_load_single_forcealpha les bx, _yumeconfig mov al, es:[bx+0Dh] add al, 0FFh mov [bp+var_1], al push 1 push ds mov ah, 0 cwd sub ax, dx mov bx, ax sar bx, 1 add bx, bx push word ptr [bx+90h] mov al, [bp+var_1] mov ah, 0 and ax, 1 push ax call _cdg_load_single_forcealpha mov al, [bp+var_1] mov ah, 0 cwd sub ax, dx sar ax, 1 mov [bp+var_1], al mov byte_F7E5, 1 les bx, _yumeconfig cmp byte ptr es:[bx+28h], 1 jz short loc_9997 mov bx, word_E504 mov al, [bx+4] add al, 4 jmp short loc_99CB ; --------------------------------------------------------------------------- loc_9997: cmp [bp+var_1], 7 jnz short loc_99A8 mov bx, word_E504 mov al, [bx+4] add al, 2 jmp short loc_99CB ; --------------------------------------------------------------------------- loc_99A8: cmp [bp+var_1], 8 jnz short loc_99B7 mov bx, word_E504 inc byte ptr [bx+4] jmp short loc_99F1 ; --------------------------------------------------------------------------- loc_99B7: les bx, _yumeconfig cmp byte ptr es:[bx+33h], 6 jnz short loc_99D4 mov bx, word_E504 mov al, [bx+4] add al, 3 loc_99CB: mov bx, word_E504 mov [bx+4], al jmp short loc_99F1 ; --------------------------------------------------------------------------- loc_99D4: push 2 push ds push word_E502 les bx, _yumeconfig mov al, es:[bx+33h] mov ah, 0 inc ax push ax call _cdg_load_single_forcealpha mov byte_F7E5, 0 loc_99F1: call pi_slot_load pascal, 0, ds, offset aStnx0_pi call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call pi_slot_load pascal, 0, ds, word_E504 call pi_slot_put pascal, large 0, 0 leave retn sub_990C endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9A2C proc near var_4 = word ptr -4 var_2 = word ptr -2 enter 4, 0 push si mov si, 3A3h mov [bp+var_2], 3AAh mov PaletteTone, 0 call far ptr palette_show call pi_slot_palette_apply pascal, 0 push 0 call graph_copy_page freePISlotLarge 0 push (96 shl 16) or 96 push 0 call _cdg_put push (352 shl 16) or 96 push 1 call _cdg_put_hflip cmp byte_F7E5, 0 jnz short loc_9A8E push (384 shl 16) or 46 push 2 call _cdg_put loc_9A8E: call _cdg_free pascal, 0 call _cdg_free pascal, 1 call _cdg_free pascal, 2 les bx, _yumeconfig mov al, es:[bx+0Ch] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 add ax, ax mov [bp+var_4], ax push 500124h push 2Fh ; '/' mov bx, [bp+var_4] shl bx, 2 pushd CHAR_TITLE[bx] call sub_D197 push 800134h push 2Fh ; '/' mov bx, [bp+var_4] shl bx, 2 pushd CHAR_NAME[bx] call sub_D197 les bx, _yumeconfig mov al, es:[bx+0Dh] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 add ax, ax mov [bp+var_4], ax push 1500124h push 2Fh ; '/' mov bx, [bp+var_4] shl bx, 2 pushd CHAR_TITLE[bx] call sub_D197 push 1800134h push 2Fh ; '/' mov bx, [bp+var_4] shl bx, 2 pushd CHAR_NAME[bx] call sub_D197 push 1 call palette_black_in mov vsync_Count1, 0 mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call graph_clear push 0 call sub_9D20 push 1 call sub_9D20 call pi_slot_load pascal, 0, ds, offset aEn2_pi call pi_slot_put_interlace pascal, large 280, 0 freePISlotLarge 0 les bx, _yumeconfig mov al, es:[bx+0Dh] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 mov [bp+var_4], ax mov bx, [bp+var_4] cmp bx, 8 ja short loc_9BC2 add bx, bx jmp cs:off_9C9F[bx] loc_9B97: push 0 push ds push offset aEnemy00_pi ; "ENEMY00.pi" jmp short loc_9BBD ; --------------------------------------------------------------------------- loc_9B9F: push 0 push ds push offset aEnemy01_pi ; "ENEMY01.pi" jmp short loc_9BBD ; --------------------------------------------------------------------------- loc_9BA7: push 0 push ds push offset aEnemy02_pi ; "ENEMY02.pi" jmp short loc_9BBD ; --------------------------------------------------------------------------- loc_9BAF: push 0 push ds push offset aEnemy03_pi ; "ENEMY03.pi" jmp short loc_9BBD ; --------------------------------------------------------------------------- loc_9BB7: push 0 push ds push offset aEnemy04_pi ; "ENEMY04.pi" loc_9BBD: call pi_slot_load loc_9BC2: call pi_slot_put_interlace pascal, large 304, 0 les bx, _yumeconfig mov al, es:[bx+0Dh] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 mov [bp+var_4], ax cmp [bp+var_4], 0Ah jl short loc_9BFB mov bx, 0Ah cwd idiv bx add al, [si] mov [si], al mov ax, [bp+var_4] cwd idiv bx mov [bp+var_4], dx loc_9BFB: mov al, [si+1] add al, byte ptr [bp+var_4] mov [si+1], al kajacall KAJA_SONG_STOP les bx, _yumeconfig cmp byte ptr es:[bx+33h], 6 jz short loc_9C1E push SND_LOAD_SONG push ds push si jmp short loc_9C25 ; --------------------------------------------------------------------------- loc_9C1E: push SND_LOAD_SONG push ds push [bp+var_2] loc_9C25: call snd_load add sp, 6 call snd_load c, offset aYume_efc, ds, SND_LOAD_SE mov _input_sp, INPUT_NONE loc_9C42: cmp vsync_Count1, 20h ; ' ' jbe short loc_9C42 jmp short loc_9C50 ; --------------------------------------------------------------------------- loc_9C4B: call _input_mode_interface loc_9C50: cmp vsync_Count1, 60h ja short loc_9C5E cmp _input_sp, INPUT_NONE jz short loc_9C4B loc_9C5E: push 1 call palette_white_out mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call graph_clear push 1 call palette_white_in call text_fillca pascal, (' ' shl 16) + TX_BLACK + TX_REVERSE call pi_slot_palette_apply pascal, 0 freePISlotLarge 0 call respal_set_palettes pop si leave retn sub_9A2C endp ; --------------------------------------------------------------------------- off_9C9F dw offset loc_9B97 dw offset loc_9B97 dw offset loc_9B9F dw offset loc_9BA7 dw offset loc_9B9F dw offset loc_9BA7 dw offset loc_9B97 dw offset loc_9BAF dw offset loc_9BB7 ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9CB1 proc near arg_0 = dword ptr 4 arg_4 = word ptr 8 push bp mov bp, sp push si mov si, [bp+arg_4] call pi_slot_load pascal, 0, large [bp+arg_0] mov ax, si imul ax, 320 call pi_slot_put_interlace pascal, ax, (200 shl 16) freePISlotLarge 0 les bx, [bp+arg_0] mov byte ptr es:[bx+2], 'e' mov byte ptr es:[bx+3], 'x' call pi_slot_load pascal, 0, word ptr [bp+arg_0+2], bx mov ax, si imul ax, 320 call pi_slot_put_interlace pascal, ax, (208 shl 16) freePISlotLarge 0 pop si pop bp retn 6 sub_9CB1 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9D20 proc near var_E = byte ptr -0Eh var_D = byte ptr -0Dh var_2 = word ptr -2 arg_0 = word ptr 4 enter 0Eh, 0 push si push di mov di, [bp+arg_0] xor si, si jmp short loc_9D35 ; --------------------------------------------------------------------------- loc_9D2D: mov al, [si+116h] mov [bp+si+var_E], al inc si loc_9D35: cmp si, 0Ch jl short loc_9D2D les bx, _yumeconfig add bx, di mov al, es:[bx+0Ch] mov ah, 0 dec ax mov [bp+var_2], ax cmp [bp+var_2], 0Ah jl short loc_9D65 mov bx, 0Ah cwd idiv bx add al, [bp+var_E] mov [bp+var_E], al mov ax, [bp+var_2] cwd idiv bx mov [bp+var_2], dx loc_9D65: mov al, [bp+var_D] add al, byte ptr [bp+var_2] mov [bp+var_D], al push di push ss lea ax, [bp+var_E] push ax call sub_9CB1 pop di pop si leave retn 2 sub_9D20 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_2 = byte ptr -2 var_1 = byte ptr -1 _argc = word ptr 6 _argv = dword ptr 8 _envp = dword ptr 0Ch enter 2, 0 call sub_95F3 or ax, ax jz locret_9F8B push ds push offset aCOul ; "夢時空1.dat" call sub_CEE0 call respal_exist mov _snd_midi_active, 0 les bx, _yumeconfig cmp byte ptr es:[bx+15h], 0 jz short loc_9DAD call snd_determine_mode loc_9DAD: call gaiji_backup push ds push offset aMikoft_bft ; "MIKOFT.bft" call gaiji_entry_bfnt call snd_load c, offset aYume_efc, ds, SND_LOAD_SE call snd_se_reset call hflip_lut_generate les bx, _yumeconfig cmp byte ptr es:[bx+35h], 0 jz short loc_9E04 call sub_B7D2 call text_clear call gaiji_restore call sub_C990 pushd 0 push ds push offset path ; "op" push ds push offset path ; "op" call _execl add sp, 0Ch loc_9E04: les bx, _yumeconfig mov al, es:[bx+0Ch] add al, 0FFh mov byte_F7E3, al mov al, es:[bx+0Dh] add al, 0FFh mov byte_F7E4, al cmp byte ptr es:[bx+33h], 0 jz loc_9F85 cmp byte ptr es:[bx+28h], 1 jnz short loc_9E3F call sub_9887 mov [bp+var_1], al cmp [bp+var_1], 4 jz short loc_9E89 cmp [bp+var_1], 5 jnz short loc_9E3F call sub_B972 loc_9E3F: call snd_load c, offset aWin_m, ds, SND_LOAD_SONG call sub_9624 call sub_978D kajacall KAJA_SONG_STOP les bx, _yumeconfig cmp byte ptr es:[bx+28h], 1 jnz loc_9F58 call sub_9887 mov [bp+var_1], al cmp [bp+var_1], 0 jnz short loc_9E7B loc_9E75: call sub_9A2C jmp loc_9F1E ; --------------------------------------------------------------------------- loc_9E7B: cmp [bp+var_1], 3 jz short loc_9E89 cmp [bp+var_1], 4 jnz loc_9F38 loc_9E89: call _cdg_freeall freePISlotLarge 0 mov al, byte_F7E3 mov ah, 0 cwd sub ax, dx sar ax, 1 mov [bp+var_2], al cmp [bp+var_2], 0Ah jb short loc_9EDC les bx, off_E4B6 mov al, es:[bx+1] mov dl, [bp+var_2] mov dh, 0 mov bx, 0Ah push ax mov ax, dx cwd idiv bx pop dx add dl, al mov bx, word ptr off_E4B6 mov es:[bx+1], dl mov al, [bp+var_2] mov ah, 0 mov bx, 0Ah cwd idiv bx mov [bp+var_2], dl loc_9EDC: les bx, off_E4B6 mov al, [bp+var_2] add es:[bx+2], al cmp [bp+var_1], 4 jnz short loc_9EF1 inc byte ptr es:[bx+5] loc_9EF1: mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al call graph_clear call graph_show pushd [off_E4B6] call sub_A12E call sub_AC6E call sub_A174 call sub_990C call sub_9A2C call gaiji_restore loc_9F1E: call sub_D16F pushd 0 push ds push offset aMain ; "main" push ds push offset aMain ; "main" loc_9F2E: call _execl add sp, 0Ch leave retf ; --------------------------------------------------------------------------- loc_9F38: call _cdg_freeall freePISlotLarge 0 call sub_B7D2 call sub_9F8D or ax, ax jnz short loc_9F85 call sub_B92E jmp short loc_9F69 ; --------------------------------------------------------------------------- loc_9F58: call _cdg_freeall freePISlotLarge 0 loc_9F69: call text_clear call gaiji_restore call sub_C990 pushd 0 push ds push offset path ; "op" push ds push offset path ; "op" jmp short loc_9F2E ; --------------------------------------------------------------------------- loc_9F85: call sub_990C jmp loc_9E75 ; --------------------------------------------------------------------------- locret_9F8B: leave retf _main endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_9F8D proc near var_6 = dword ptr -6 var_2 = word ptr -2 enter 6, 0 push si push di mov si, 1 mov [bp+var_2], 0 mov word ptr [bp+var_6+2], ds mov word ptr [bp+var_6], 8D8h xor di, di jmp short loc_9FB3 ; --------------------------------------------------------------------------- loc_9FA7: les bx, _yumeconfig add bx, di mov byte ptr es:[bx+18h], 0 inc di loc_9FB3: cmp di, 10h jl short loc_9FA7 les bx, _yumeconfig cmp byte ptr es:[bx+36h], 0 jnz short loc_9FC8 xor ax, ax jmp loc_A12A ; --------------------------------------------------------------------------- loc_9FC8: push (192 shl 16) or 272 push 0 call _cdg_put_noalpha push (352 shl 16) or 272 push 3 call _cdg_put_noalpha les bx, _yumeconfig mov al, es:[bx+36h] les bx, [bp+var_6] add al, es:[bx] mov es:[bx], al push 2400173h push 2Fh ; '/' push word ptr [bp+var_6+2] push bx call sub_D197 push 1 call palette_black_in loc_A00B: call _input_mode_interface test _input_sp.lo, low INPUT_LEFT jnz short loc_A01E test _input_sp.lo, low INPUT_RIGHT jz short loc_A056 loc_A01E: cmp [bp+var_2], 0 jnz short loc_A05B mov ax, 1 sub ax, si mov si, ax push (192 shl 16) or 272 add ax, ax mov dx, 2 sub dx, ax push dx call _cdg_put_noalpha push (352 shl 16) or 272 mov ax, si add ax, ax inc ax push ax call _cdg_put_noalpha mov [bp+var_2], 1 jmp short loc_A05B ; --------------------------------------------------------------------------- loc_A056: mov [bp+var_2], 0 loc_A05B: test _input_sp.hi, high INPUT_OK jnz short loc_A069 test _input_sp.lo, low INPUT_SHOT jz short loc_A0B0 loc_A069: cmp si, 1 jnz short loc_A0C5 call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 2400173h push 2500183h call grcg_boxfill call grcg_off les bx, _yumeconfig dec byte ptr es:[bx+36h] les bx, [bp+var_6] dec byte ptr es:[bx] push 2400173h push 2Fh ; '/' push word ptr [bp+var_6+2] push bx call sub_D197 jmp short loc_A0C5 ; --------------------------------------------------------------------------- loc_A0B0: test _input_sp.hi, high INPUT_CANCEL jz short loc_A0BB xor si, si jmp short loc_A0C5 ; --------------------------------------------------------------------------- loc_A0BB: push 1 call frame_delay jmp loc_A00B ; --------------------------------------------------------------------------- loc_A0C5: kajacall KAJA_SONG_FADE, 3 push 1 call palette_black_out mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al mov PaletteTone, 0 call far ptr palette_show call pi_slot_load pascal, 0, ds, offset aOver_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 kajacall KAJA_SONG_STOP les bx, _yumeconfig dec byte ptr es:[bx+33h] mov byte ptr es:[bx+34h], 2 mov ax, si loc_A12A: pop di pop si leave retn sub_9F8D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A12E proc near arg_0 = dword ptr 4 push bp mov bp, sp push si call sub_A174 pushd [bp+arg_0] call file_ropen or ax, ax jnz short loc_A147 mov ax, 1 jmp short loc_A16F ; --------------------------------------------------------------------------- loc_A147: call file_size mov si, ax push ax call hmem_allocbyte mov word ptr dword_105C6+2, ax mov word ptr dword_105C6, 0 push ax push word ptr dword_105C6 push si call file_read call file_close xor ax, ax loc_A16F: pop si pop bp retn 4 sub_A12E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A174 proc near push bp mov bp, sp cmp dword_105C6, 0 jz short loc_A191 push word ptr dword_105C6+2 call hmem_free mov dword_105C6, 0 loc_A191: pop bp retn sub_A174 endp EGC_START_COPY_DEF 1, near ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A1C7 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_A225 ; --------------------------------------------------------------------------- loc_A1EC: mov [bp+var_2], 0 jmp short loc_A21B ; --------------------------------------------------------------------------- loc_A1F3: mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al 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_A21B: cmp [bp+var_2], 28h ; '(' jl short loc_A1F3 inc di add si, 28h ; '(' loc_A225: cmp di, 0C8h jl short loc_A1EC call egc_off mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al pop di pop si leave retn 4 sub_A1C7 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A23C 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_A257 add word ptr [bp+var_8], 0A0h jmp short loc_A26F ; --------------------------------------------------------------------------- loc_A257: cmp [bp+arg_2], 2 jnz short loc_A264 add word ptr [bp+var_8], 0FA00h jmp short loc_A26F ; --------------------------------------------------------------------------- loc_A264: cmp [bp+arg_2], 3 jnz short loc_A26F add word ptr [bp+var_8], 0FAA0h loc_A26F: 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 mov dx, 0A4h mov al, 1 out dx, al 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 mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al xor di, di jmp loc_A34E ; --------------------------------------------------------------------------- loc_A2B4: 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, [bx+8E2h] mov [bp+var_4], 7D00h mov [bp+var_2], 0 jmp short loc_A31E ; --------------------------------------------------------------------------- loc_A301: 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_A31E: cmp [bp+var_2], 14h jl short loc_A301 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_A34E: cmp di, 0C8h jl loc_A2B4 mov dx, 0A4h mov al, 0 out dx, al push [bp+arg_6] push [bp+arg_4] call sub_A1C7 pop di pop si leave retn 8 sub_A23C endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A36B 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_A43C mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al push 3C00h call hmem_allocbyte mov word ptr dword_105CA+2, ax mov word ptr dword_105CA, 0 xor si, si mov di, 140h mov [bp+var_4], 0 jmp loc_A430 ; --------------------------------------------------------------------------- loc_A398: mov [bp+var_2], 50h ; 'P' mov [bp+var_6], 0 jmp loc_A424 ; --------------------------------------------------------------------------- loc_A3A5: 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_105CA 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_105CA 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_105CA 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_105CA add bx, dx mov es:[bx], ax inc si add [bp+var_6], 2 add [bp+var_2], 10h loc_A424: cmp [bp+var_6], 3Ch ; '<' jl loc_A3A5 inc [bp+var_4] inc di loc_A430: cmp [bp+var_4], 40h jl loc_A398 pop di pop si leave retn sub_A36B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A43C proc near push bp mov bp, sp cmp dword_105CA, 0 jz short loc_A459 push word ptr dword_105CA+2 call hmem_free mov dword_105CA, 0 loc_A459: pop bp retn sub_A43C endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A45B 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_A4FE ; --------------------------------------------------------------------------- loc_A46E: mov [bp+var_2], 50h ; 'P' mov [bp+var_6], 0 jmp short loc_A4F4 ; --------------------------------------------------------------------------- loc_A47A: 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_105CA 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_105CA 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_105CA 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_105CA 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_A4F4: cmp [bp+var_6], 3Ch ; '<' jl short loc_A47A inc [bp+var_4] inc si loc_A4FE: cmp [bp+var_4], 40h jl loc_A46E pop di pop si leave retn sub_A45B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A50A proc near var_2 = byte ptr -2 var_1 = byte ptr -1 arg_0 = dword ptr 4 enter 2, 0 les bx, dword_105C6 mov cl, es:[bx] inc word ptr dword_105C6 les bx, dword_105C6 mov al, es:[bx] mov [bp+var_1], al inc word ptr dword_105C6 les bx, dword_105C6 mov al, es:[bx] mov [bp+var_2], al inc word ptr dword_105C6 mov al, cl mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 2 jnz short loc_A554 les bx, [bp+arg_0] mov ax, word_105D8 mov es:[bx], ax sub word ptr dword_105C6, 3 leave retn 4 ; --------------------------------------------------------------------------- loc_A554: mov al, [bp+var_1] mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 2 jnz short loc_A578 mov al, cl mov ah, 0 add ax, 0FFD0h les bx, [bp+arg_0] mov es:[bx], ax sub word ptr dword_105C6, 2 leave retn 4 ; --------------------------------------------------------------------------- loc_A578: mov al, [bp+var_2] mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 2 jnz short loc_A5A8 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 ptr dword_105C6 leave retn 4 ; --------------------------------------------------------------------------- loc_A5A8: 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_A50A endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A5D3 proc near arg_0 = dword ptr 4 push bp mov bp, sp les bx, dword_105C6 cmp byte ptr es:[bx], 2Ch ; ',' jnz short loc_A5EF inc word ptr dword_105C6 pushd [bp+arg_0] call sub_A50A pop bp retn 4 ; --------------------------------------------------------------------------- loc_A5EF: les bx, [bp+arg_0] mov ax, word_105D8 mov es:[bx], ax pop bp retn 4 sub_A5D3 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A5FC proc near push bp mov bp, sp add word_105D0, 10h cmp word_105D0, 230h jl short loc_A64B add word_105D2, 10h mov word_105D0, 90h cmp word_105D2, 180h jl short loc_A64B cmp byte_105CE, 0 jnz short loc_A62D push 0 call _input_wait_for_change loc_A62D: mov word_105D0, 50h ; 'P' mov word_105D2, 140h mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call sub_A45B mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call sub_A45B loc_A64B: pop bp retn sub_A5FC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_A64D 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_AC2E loc_A66C: mov ax, cs:[bx] cmp ax, [bp+var_6] jz short loc_A67C add bx, 2 loop loc_A66C jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A67C: jmp word ptr cs:[bx+20h] ; switch jump loc_A680: add word_105D2, 10h ; jumptable 0000A67C case 110 mov word_105D0, 50h ; 'P' cmp word_105D2, 180h jl loc_AC1E ; default loc_A695: les bx, dword_105C6 ; jumptable 0000A67C case 115 mov al, es:[bx] mov [bp+arg_0], al cmp [bp+arg_0], 2Dh ; '-' jz short loc_A6C4 mov word_105D8, 0 push ss lea ax, [bp+var_2] push ax call sub_A50A cmp byte_105CE, 0 jnz short loc_A6C8 push [bp+var_2] call _input_wait_for_change jmp short loc_A6C8 ; --------------------------------------------------------------------------- loc_A6C4: inc word ptr dword_105C6 loc_A6C8: mov word_105D0, 50h ; 'P' mov word_105D2, 140h mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call sub_A45B mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call sub_A45B jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A6E9: mov word_105D8, 0Fh ; jumptable 0000A67C case 99 push ss lea ax, [bp+var_2] push ax call sub_A50A mov al, byte ptr [bp+var_2] mov byte_105D6, al jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A700: mov word_105D8, 2 ; jumptable 0000A67C case 98 push ss lea ax, [bp+var_2] push ax call sub_A50A mov bx, [bp+var_2] cmp bx, 3 ja loc_AC1E ; default add bx, bx jmp cs:off_AC26[bx] loc_A71F: mov byte_105D7, 0 jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A727: mov byte_105D7, 10h jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A72F: mov byte_105D7, 20h ; ' ' jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A737: mov byte_105D7, 30h ; '0' jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A73F: les bx, dword_105C6 ; jumptable 0000A67C case 119 mov al, es:[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_A75E cmp [bp+arg_0], 69h ; 'i' jnz short loc_A78C loc_A75E: inc word ptr dword_105C6 mov word_105D8, 1 push ss lea ax, [bp+var_2] push ax call sub_A50A cmp [bp+arg_0], 69h ; 'i' jnz short loc_A781 push [bp+var_2] call palette_white_in jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A781: push [bp+var_2] call palette_white_out jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A78C: mov word_105D8, 40h cmp [bp+arg_0], 6Dh ; 'm' jz short loc_A7CF cmp [bp+arg_0], 6Bh ; 'k' jnz short loc_A7A2 inc word ptr dword_105C6 loc_A7A2: push ss lea ax, [bp+var_2] push ax call sub_A50A cmp byte_105CE, 0 jnz loc_AC1E ; default cmp [bp+arg_0], 6Bh ; 'k' jz short loc_A7C4 push [bp+var_2] call frame_delay jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A7C4: push [bp+var_2] call sub_D47A jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A7CF: inc word ptr dword_105C6 les bx, dword_105C6 mov al, es:[bx] mov [bp+arg_0], al cmp [bp+arg_0], 6Bh ; 'k' jnz short loc_A7E7 inc word ptr dword_105C6 loc_A7E7: push ss lea ax, [bp+var_2] push ax call sub_A50A push ss lea ax, [bp+var_4] push ax call sub_A5D3 cmp byte_105CE, 0 jnz loc_AC1E ; default cmp [bp+arg_0], 6Bh ; 'k' jz short loc_A814 push [bp+var_2] push [bp+var_4] call sub_D3FC jmp loc_AB63 ; --------------------------------------------------------------------------- loc_A814: push [bp+var_2] push [bp+var_4] call sub_D42D jmp loc_AB63 ; --------------------------------------------------------------------------- loc_A822: les bx, dword_105C6 ; jumptable 0000A67C case 118 cmp byte ptr es:[bx], 70h ; 'p' jz short loc_A843 mov word_105D8, 1 push ss lea ax, [bp+var_2] push ax call sub_A50A mov ax, [bp+var_2] mov word_105D4, ax jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A843: inc word ptr dword_105C6 mov word_105D8, 0 push ss lea ax, [bp+var_2] push ax call sub_A50A mov dx, 0A4h mov al, byte ptr [bp+var_2] out dx, al jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A85F: mov word_105D8, 64h ; 'd' ; jumptable 0000A67C case 116 push ss lea ax, [bp+var_2] push ax call sub_A50A cmp byte_105CE, 0 jnz short loc_A87B push 1 call frame_delay loc_A87B: mov ax, [bp+var_2] mov PaletteTone, ax call far ptr palette_show jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A889: les bx, dword_105C6 ; jumptable 0000A67C case 102 mov al, es:[bx] mov [bp+arg_0], al cmp [bp+arg_0], 6Dh ; 'm' jz short loc_A8D5 cmp [bp+arg_0], 69h ; 'i' jz short loc_A8A7 cmp [bp+arg_0], 6Fh ; 'o' jnz loc_AC1E ; default loc_A8A7: inc word ptr dword_105C6 mov word_105D8, 1 push ss lea ax, [bp+var_2] push ax call sub_A50A cmp [bp+arg_0], 69h ; 'i' jnz short loc_A8CA push [bp+var_2] call palette_black_in jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A8CA: push [bp+var_2] call palette_black_out jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A8D5: inc word ptr dword_105C6 mov word_105D8, 1 push ss lea ax, [bp+var_2] push ax call sub_A50A mov ax, [bp+var_2] add ax, 200h push ax jmp loc_AB8B ; --------------------------------------------------------------------------- loc_A8F1: les bx, dword_105C6 ; jumptable 0000A67C case 103 cmp byte ptr es:[bx], 61h ; 'a' jz short loc_A945 mov word_105D8, 8 push ss lea ax, [bp+var_2] push ax call sub_A50A mov [bp+var_4], 0 jmp short loc_A933 ; --------------------------------------------------------------------------- loc_A910: test byte ptr [bp+var_4], 1 jz short loc_A91A push 4 jmp short loc_A91D ; --------------------------------------------------------------------------- loc_A91A: push 18Ch loc_A91D: call graph_scrollup cmp byte_105CE, 0 jnz short loc_A930 push 1 call frame_delay loc_A930: inc [bp+var_4] loc_A933: mov ax, [bp+var_4] cmp ax, [bp+var_2] jle short loc_A910 push 0 call graph_scrollup jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A945: inc word ptr dword_105C6 mov word_105D8, 0 push ss lea ax, [bp+var_2] push ax call sub_A50A mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al push word_105D0 push word_105D2 mov ax, [bp+var_2] dec ax push ax mov al, byte_105D6 mov ah, 0 push ax call graph_gaiji_putc mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al push word_105D0 push word_105D2 push [bp+var_2] mov al, byte_105D6 mov ah, 0 push ax call graph_gaiji_putc call sub_A5FC jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A997: mov word_105D8, 0 ; jumptable 0000A67C case 107 push ss lea ax, [bp+var_2] push ax call sub_A50A cmp byte_105CE, 0 jnz loc_AC1E ; default push 0 call _input_wait_for_change jmp loc_AB90 ; --------------------------------------------------------------------------- loc_A9B8: mov dx, 0A6h ; 'ｦ' ; jumptable 0000A67C case 64 mov al, 1 out dx, al call graph_clear mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call graph_clear jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_A9D1: les bx, dword_105C6 ; jumptable 0000A67C case 112 mov al, es:[bx] mov [bp+arg_0], al inc word ptr dword_105C6 cmp [bp+arg_0], 3Dh ; '=' jz short loc_A9EB cmp [bp+arg_0], 40h jnz short loc_AA1B loc_A9EB: mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al cmp [bp+arg_0], 3Dh ; '=' jnz short loc_A9FE call pi_slot_palette_apply pascal, 0 loc_A9FE: call pi_slot_put pascal, large 0, 0 push 0 call graph_copy_page mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call sub_A36B jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AA1B: cmp [bp+arg_0], 2Dh ; '-' jnz short loc_AA32 freePISlotLarge 0 jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AA32: cmp [bp+arg_0], 70h ; 'p' jnz short loc_AA42 call pi_slot_palette_apply pascal, 0 jmp loc_AB90 ; --------------------------------------------------------------------------- loc_AA42: cmp [bp+arg_0], 2Ch ; ',' jz short loc_AA4F dec word ptr dword_105C6 jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AA4F: mov [bp+var_2], 0 jmp short loc_AA84 ; --------------------------------------------------------------------------- loc_AA56: les bx, dword_105C6 mov al, es:[bx] mov [bp+arg_0], al inc word ptr dword_105C6 mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 20h jnz short loc_AA8A cmp [bp+arg_0], 20h ; ' ' jz short loc_AA8A lea bx, [bp+var_16] add bx, [bp+var_2] mov al, [bp+arg_0] mov ss:[bx], al inc [bp+var_2] loc_AA84: cmp [bp+var_2], 0Ch jl short loc_AA56 loc_AA8A: lea bx, [bp+var_16] add bx, [bp+var_2] mov byte ptr ss:[bx], 0 push 0 push ss lea ax, [bp+var_16] push ax call pi_slot_load jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AAA3: mov word_105D8, 4 ; jumptable 0000A67C case 61 les bx, dword_105C6 mov al, es:[bx] mov [bp+arg_0], al cmp [bp+arg_0], 3Dh ; '=' jz short loc_AAF8 push ss lea ax, [bp+var_2] push ax call sub_A50A mov dx, 0A4h mov al, 1 out dx, al mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al cmp [bp+var_2], 4 jge short loc_AAD5 jmp short loc_AB44 ; --------------------------------------------------------------------------- loc_AAD5: call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 140040h push 3B0107h call grcg_byteboxfill_x call grcg_off jmp short loc_AB54 ; --------------------------------------------------------------------------- loc_AAF8: inc word ptr dword_105C6 push ss lea ax, [bp+var_2] push ax call sub_A50A mov word_105D8, 1 push ss lea ax, [bp+var_4] push ax call sub_A5D3 xor si, si jmp short loc_AB33 ; --------------------------------------------------------------------------- loc_AB16: push 0A00040h push [bp+var_2] push si call sub_A23C cmp byte_105CE, 0 jnz short loc_AB32 push [bp+var_4] call frame_delay loc_AB32: inc si loc_AB33: cmp si, 4 jl short loc_AB16 mov dx, 0A4h mov al, 1 out dx, al mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al loc_AB44: call pi_slot_put_quarter pascal, (160 shl 16) + 64, 0, [bp+var_2] loc_AB54: mov dx, 0A4h mov al, 0 out dx, al push 0A00040h call sub_A1C7 loc_AB63: jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AB66: les bx, dword_105C6 ; jumptable 0000A67C case 109 mov al, es:[bx] mov [bp+arg_0], al cmp [bp+arg_0], 24h ; '$' jnz short loc_AB7F inc word ptr dword_105C6 push (KAJA_SONG_STOP shl 8) jmp short loc_AB8B ; --------------------------------------------------------------------------- loc_AB7F: cmp [bp+arg_0], 2Ah ; '*' jnz short loc_AB93 inc word ptr dword_105C6 loc_AB89: push (KAJA_SONG_PLAY shl 8) loc_AB8B: call snd_kaja_interrupt loc_AB90: jmp loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AB93: cmp [bp+arg_0], 2Ch ; ',' jnz loc_AC1E ; default inc word ptr dword_105C6 mov [bp+var_2], 0 jmp short loc_ABD4 ; --------------------------------------------------------------------------- loc_ABA6: les bx, dword_105C6 mov al, es:[bx] mov [bp+arg_0], al inc word ptr dword_105C6 mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 20h jnz short loc_ABDA cmp [bp+arg_0], 20h ; ' ' jz short loc_ABDA lea bx, [bp+var_16] add bx, [bp+var_2] mov al, [bp+arg_0] mov ss:[bx], al inc [bp+var_2] loc_ABD4: cmp [bp+var_2], 0Ch jl short loc_ABA6 loc_ABDA: lea bx, [bp+var_16] add bx, [bp+var_2] mov byte ptr ss:[bx], 0 kajacall KAJA_SONG_STOP push SND_LOAD_SONG push ss lea ax, [bp+var_16] push ax call snd_load add sp, 6 jmp short loc_AB89 ; --------------------------------------------------------------------------- loc_ABFE: push ss ; jumptable 0000A67C case 101 lea ax, [bp+var_2] push ax call sub_A50A call snd_se_reset call snd_se_play pascal, [bp+var_2] call snd_se_update jmp short loc_AC1E ; default ; --------------------------------------------------------------------------- loc_AC1A: mov al, 0FFh ; jumptable 0000A67C case 36 jmp short loc_AC20 ; --------------------------------------------------------------------------- loc_AC1E: mov al, 0 ; default loc_AC20: pop si leave retn 2 sub_A64D endp ; --------------------------------------------------------------------------- db 0 off_AC26 dw offset loc_A71F dw offset loc_A727 dw offset loc_A72F dw offset loc_A737 word_AC2E 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_AC1A ; jump table for switch statement dw offset loc_AAA3 dw offset loc_A9B8 dw offset loc_A700 dw offset loc_A6E9 dw offset loc_ABFE dw offset loc_A889 dw offset loc_A8F1 dw offset loc_A997 dw offset loc_AB66 dw offset loc_A680 dw offset loc_A9D1 dw offset loc_A695 dw offset loc_A85F dw offset loc_A822 dw offset loc_A73F ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AC6E proc near var_6 = dword ptr -6 var_2 = byte ptr -2 var_1 = byte ptr -1 enter 6, 0 push si mov word ptr [bp+var_6+2], ds mov word ptr [bp+var_6], 902h mov word_105D0, 50h ; 'P' mov word_105D2, 140h mov word_105D4, 1 mov byte_105D6, 0Fh mov byte_105D7, 20h ; ' ' mov [bp+var_2], 0 call sub_A36B mov byte_105CE, 0 loc_ACA3: call _input_mode_interface test _input_sp.hi, high INPUT_CANCEL jz short loc_ACB6 mov byte_105CE, 1 jmp short loc_ACBB ; --------------------------------------------------------------------------- loc_ACB6: mov byte_105CE, 0 loc_ACBB: les bx, dword_105C6 mov al, es:[bx] mov [bp+var_1], al inc word ptr dword_105C6 mov ah, 0 mov bx, ax test byte ptr [bx+0F05h], 20h jnz short loc_ACA3 cmp [bp+var_1], 20h ; ' ' jz short loc_ACA3 cmp [bp+var_1], 5Ch jnz short loc_ACFB les bx, dword_105C6 mov al, es:[bx] mov [bp+var_1], al inc word ptr dword_105C6 push word ptr [bp+var_1] call sub_A64D cmp al, 0FFh jnz short loc_ACA3 jmp loc_ADA0 ; --------------------------------------------------------------------------- loc_ACFB: les bx, [bp+var_6] mov al, [bp+var_1] mov es:[bx], al les bx, dword_105C6 mov al, es:[bx] mov [bp+var_1], al les bx, [bp+var_6] mov es:[bx+1], al inc word ptr dword_105C6 mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al push word_105D0 push word_105D2 mov al, byte_105D6 or al, byte_105D7 mov ah, 0 push ax push word ptr [bp+var_6+2] push bx call sub_D197 mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al push word_105D0 push word_105D2 mov al, byte_105D6 or al, byte_105D7 mov ah, 0 push ax pushd [bp+var_6] call sub_D197 call sub_A5FC cmp byte_105CE, 0 jnz loc_ACA3 cmp _input_sp, INPUT_NONE jnz short loc_AD7A push word_105D4 call frame_delay jmp loc_ACA3 ; --------------------------------------------------------------------------- loc_AD7A: mov ax, word_105D4 mov bx, 3 cwd idiv bx mov si, ax test [bp+var_2], 1 jnz short loc_AD8F or si, si jz short loc_AD9A loc_AD8F: or si, si jnz short loc_AD94 inc si loc_AD94: push si call frame_delay loc_AD9A: inc [bp+var_2] jmp loc_ACA3 ; --------------------------------------------------------------------------- loc_ADA0: call sub_A45B call sub_A43C pop si leave retn sub_AC6E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_ADA9 proc near var_1 = byte ptr -1 enter 2, 0 push si mov si, 21EEh xor dx, dx jmp short loc_ADD1 ; --------------------------------------------------------------------------- loc_ADB5: mov al, [si+1] mov [bp+var_1], al mov al, byte_106AB ror [bp+var_1], 3 xor [bp+var_1], al mov al, byte_106AA add al, [bp+var_1] add al, [si] mov [si], al inc dx inc si loc_ADD1: cmp dx, 0CBh jl short loc_ADB5 mov al, byte_106AA add al, byte_106AB add al, [si] mov [si], al pop si leave retn sub_ADA9 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_ADE5 proc near var_1 = byte ptr -1 enter 2, 0 push si push di mov [bp+var_1], 29h ; ')' xor si, si jmp short loc_AE26 ; --------------------------------------------------------------------------- loc_ADF3: xor di, di jmp short loc_AE02 ; --------------------------------------------------------------------------- loc_ADF7: mov bx, si shl bx, 3 mov byte ptr [bx+di+21F0h], 2Ah ; '*' inc di loc_AE02: cmp di, 8 jl short loc_ADF7 xor di, di jmp short loc_AE16 ; --------------------------------------------------------------------------- loc_AE0B: mov bx, si imul bx, 0Ah mov byte ptr [bx+di+2242h], 20h ; ' ' inc di loc_AE16: cmp di, 0Ah jl short loc_AE0B mov byte ptr [si+22A6h], 0 mov byte ptr [si+22B0h], 21h ; '!' inc si loc_AE26: cmp si, 0Ah jl short loc_ADF3 mov byte_10636, 21h ; '!' mov di, 1 jmp short loc_AE45 ; --------------------------------------------------------------------------- loc_AE35: mov bx, di imul bx, 0Ah mov al, [bp+var_1] mov [bx+2245h], al inc di dec [bp+var_1] loc_AE45: cmp di, 0Ah jl short loc_AE35 mov byte_10630, 12h xor si, si jmp short loc_AE5B ; --------------------------------------------------------------------------- loc_AE53: push si call sub_AEF0 call sub_ADA9 inc si loc_AE5B: cmp si, 4 jl short loc_AE53 pop di pop si leave retn sub_ADE5 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AE64 proc near push bp mov bp, sp push si xor cx, cx mov si, 21F0h xor dx, dx jmp short loc_AE79 ; --------------------------------------------------------------------------- loc_AE71: mov al, [si] mov ah, 0 add cx, ax inc dx inc si loc_AE79: cmp dx, 0CCh jl short loc_AE71 cmp word_105DE, cx jz short loc_AE89 mov al, 1 jmp short loc_AE8B ; --------------------------------------------------------------------------- loc_AE89: mov al, 0 loc_AE8B: pop si pop bp retn sub_AE64 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AE8E proc near arg_0 = word ptr 4 push bp mov bp, sp push ds push word_ED66 call file_exist or ax, ax jnz short loc_AEB0 push ds push word_ED66 call file_create call file_close jmp short loc_AEE9 ; --------------------------------------------------------------------------- loc_AEB0: push ds push word_ED66 call file_ropen mov ax, [bp+arg_0] imul ax, 0CEh movzx eax, ax push eax push 0 call file_seek push ds push offset word_105DE push 0CEh call file_read call file_close call sub_ADA9 call sub_AE64 or al, al jz short loc_AEEC loc_AEE9: call sub_ADE5 loc_AEEC: pop bp retn 2 sub_AE8E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AEF0 proc near var_4 = word ptr -4 var_1 = byte ptr -1 arg_0 = word ptr 4 enter 4, 0 push si push di mov [bp+var_4], 0 call IRand mov byte_106AA, al call IRand mov byte_106AB, al call IRand mov byte_10631, al les bx, _yumeconfig cmp byte ptr es:[bx+33h], 63h ; 'c' jnz short loc_AF2A cmp byte ptr es:[bx+36h], 3 jnz short loc_AF2A mov byte_10630, 63h ; 'c' loc_AF2A: mov si, 21F0h xor di, di jmp short loc_AF3A ; --------------------------------------------------------------------------- loc_AF31: mov al, [si] mov ah, 0 add [bp+var_4], ax inc di inc si loc_AF3A: cmp di, 0CCh jl short loc_AF31 mov ax, [bp+var_4] mov word_105DE, ax mov si, 22BAh dec si mov al, byte_106AB mov [bp+var_1], al mov di, 0CBh jmp short loc_AF73 ; --------------------------------------------------------------------------- loc_AF55: mov al, [si] mov dl, byte_106AA add dl, [bp+var_1] sub al, dl mov [si], al mov al, [si] mov [bp+var_1], al mov al, byte_106AB ror [bp+var_1], 3 xor [bp+var_1], al dec di dec si loc_AF73: or di, di jge short loc_AF55 push ds push word_ED66 call file_append mov ax, [bp+arg_0] imul ax, 0CEh movzx eax, ax push eax push 0 call file_seek push ds push offset word_105DE push 0CEh call file_write call file_close pop di pop si leave retn 2 sub_AEF0 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_AFAC proc near push bp mov bp, sp mov PaletteTone, 0 call far ptr palette_show mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al call pi_slot_load pascal, 0, ds, offset aRegib_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 les bx, _yumeconfig mov al, es:[bx+0Bh] mov bx, word_ED68 add [bx+3], al call _cdg_load_single_forcealpha pascal, 0, ds, bx, 0 push (320 shl 16) or 312 push 0 call _cdg_put call _cdg_free pascal, 0 push ds push offset aRegi2_bft ; "regi2.bft" call super_entry_bfnt push ds push offset aRegi1_bft ; "regi1.bft" call super_entry_bfnt push 1 call graph_copy_page mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al pop bp retn sub_AFAC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B03D proc near push bp mov bp, sp push si push di xor si, si jmp short loc_B091 ; --------------------------------------------------------------------------- loc_B046: mov cx, 7 jmp short loc_B08C ; --------------------------------------------------------------------------- loc_B04B: les bx, _yumeconfig add bx, cx mov al, es:[bx+18h] mov ah, 0 add ax, 20h ; ' ' mov bx, si imul bx, 0Ah add bx, cx mov dl, [bx+2243h] mov dh, 0 cmp ax, dx jg short loc_B0A1 les bx, _yumeconfig add bx, cx mov al, es:[bx+18h] mov ah, 0 add ax, 20h ; ' ' mov bx, si imul bx, 0Ah add bx, cx mov dl, [bx+2243h] mov dh, 0 cmp ax, dx jl short loc_B090 dec cx loc_B08C: or cx, cx jge short loc_B04B loc_B090: inc si loc_B091: cmp si, 0Ah jl short loc_B046 cmp si, 0Ah jnz short loc_B0A1 mov ax, 0FFFFh jmp loc_B183 ; --------------------------------------------------------------------------- loc_B0A1: cmp si, 9 jge short loc_B100 mov di, 8 jmp short loc_B0FC ; --------------------------------------------------------------------------- loc_B0AB: xor cx, cx jmp short loc_B0C6 ; --------------------------------------------------------------------------- loc_B0AF: mov bx, di shl bx, 3 add bx, cx mov al, [bx+21F0h] mov bx, di shl bx, 3 add bx, cx mov [bx+21F8h], al inc cx loc_B0C6: cmp cx, 8 jl short loc_B0AF xor cx, cx jmp short loc_B0E6 ; --------------------------------------------------------------------------- loc_B0CF: mov bx, di imul bx, 0Ah add bx, cx mov al, [bx+2242h] mov bx, di imul bx, 0Ah add bx, cx mov [bx+224Ch], al inc cx loc_B0E6: cmp cx, 0Ah jl short loc_B0CF mov al, [di+22B0h] mov [di+22B1h], al mov al, [di+22A6h] mov [di+22A7h], al dec di loc_B0FC: cmp di, si jge short loc_B0AB loc_B100: xor cx, cx jmp short loc_B111 ; --------------------------------------------------------------------------- loc_B104: mov bx, si shl bx, 3 add bx, cx mov byte ptr [bx+21F0h], 0Eh inc cx loc_B111: cmp cx, 8 jl short loc_B104 mov cx, 1 jmp short loc_B133 ; --------------------------------------------------------------------------- loc_B11B: les bx, _yumeconfig add bx, cx mov al, es:[bx+17h] add al, 20h ; ' ' mov bx, si imul bx, 0Ah add bx, cx mov [bx+2242h], al inc cx loc_B133: cmp cx, 9 jl short loc_B11B les bx, _yumeconfig mov al, 23h ; '#' sub al, es:[bx+36h] mov bx, si imul bx, 0Ah mov [bx+2242h], al mov bx, word ptr _yumeconfig cmp byte ptr es:[bx+33h], 63h ; 'c' jnz short loc_B15D mov byte ptr [si+22B0h], 30h ; '0' jmp short loc_B16B ; --------------------------------------------------------------------------- loc_B15D: les bx, _yumeconfig mov al, es:[bx+33h] add al, 20h ; ' ' mov [si+22B0h], al loc_B16B: les bx, _yumeconfig mov al, es:[bx+0Ch] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 inc al mov [si+22A6h], al mov ax, si loc_B183: pop di pop si pop bp retn sub_B03D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B187 proc near var_2 = word ptr -2 enter 2, 0 push si push di mov [bp+var_2], 0 mov di, 140h jmp short loc_B1B5 ; --------------------------------------------------------------------------- loc_B197: mov si, 40h jmp short loc_B1AC ; --------------------------------------------------------------------------- loc_B19C: push si push di push [bp+var_2] call super_put add si, 20h ; ' ' inc [bp+var_2] loc_B1AC: cmp si, 240h jl short loc_B19C add di, 18h loc_B1B5: cmp di, 170h jle short loc_B197 pop di pop si leave retn sub_B187 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B1BF 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 mov si, [bp+arg_2] mov ax, si mov bx, 10h cwd idiv bx shl dx, 5 add dx, 40h mov [bp+var_2], dx mov ax, si cwd idiv bx imul ax, 18h add ax, 140h mov [bp+var_4], ax push [bp+var_2] push ax push si push [bp+arg_0] call sub_B2AD pop si leave retn 4 sub_B1BF endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B1F6 proc near var_14 = dword ptr -14h var_10 = dword ptr -10h var_C = dword ptr -0Ch var_8 = dword ptr -8 var_4 = dword ptr -4 arg_0 = word ptr 4 arg_2 = word ptr 6 enter 14h, 0 push si mov si, [bp+arg_0] mov ax, [bp+arg_2] sar ax, 3 mov dx, si shl dx, 6 add ax, dx mov dx, si shl dx, 4 add ax, dx mov cx, ax mov [bp+var_4], 0 jmp loc_B29F ; --------------------------------------------------------------------------- loc_B21F: mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al les bx, _VRAM_PLANE_B add bx, cx mov eax, es:[bx] mov [bp+var_14], eax les bx, _VRAM_PLANE_R add bx, cx mov eax, es:[bx] mov [bp+var_10], eax les bx, _VRAM_PLANE_G add bx, cx mov eax, es:[bx] mov [bp+var_C], eax les bx, _VRAM_PLANE_E add bx, cx mov eax, es:[bx] mov [bp+var_8], eax mov al, 0 out dx, al les bx, _VRAM_PLANE_B add bx, cx mov eax, [bp+var_14] mov es:[bx], eax les bx, _VRAM_PLANE_R add bx, cx mov eax, [bp+var_10] mov es:[bx], eax les bx, _VRAM_PLANE_G add bx, cx mov eax, [bp+var_C] mov es:[bx], eax les bx, _VRAM_PLANE_E add bx, cx mov eax, [bp+var_8] mov es:[bx], eax add cx, 50h ; 'P' inc [bp+var_4] loc_B29F: cmp [bp+var_4], 20h ; ' ' jb loc_B21F pop si leave retn 4 sub_B1F6 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B2AD proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 arg_6 = word ptr 0Ah push bp mov bp, sp push si push di mov di, [bp+arg_6] mov si, [bp+arg_2] cmp [bp+arg_0], 0 jz short loc_B2C1 add si, 31h ; '1' loc_B2C1: push di push [bp+arg_4] push si call super_put mov ax, [bp+arg_2] mov bx, 10h cwd idiv bx cmp dx, 0Eh jnz short loc_B2E9 lea ax, [di+20h] push ax push [bp+arg_4] lea ax, [si+1] push ax call super_put loc_B2E9: pop di pop si pop bp retn 8 sub_B2AD endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B2EF proc near var_7 = byte ptr -7 var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 enter 8, 0 push si push di mov si, [bp+arg_4] mov di, [bp+arg_0] cmp word_106AC, di jnz short loc_B306 mov ax, 1 jmp short loc_B308 ; --------------------------------------------------------------------------- loc_B306: xor ax, ax loc_B308: mov [bp+var_6], ax cmp word_106AC, di jnz short loc_B315 mov al, 0Fh jmp short loc_B317 ; --------------------------------------------------------------------------- loc_B315: mov al, 4 loc_B317: mov [bp+var_7], al cmp word_106AC, 0FFFFh jnz short loc_B32A mov [bp+var_6], 1 mov [bp+var_7], 0Fh loc_B32A: cmp di, 9 jz short loc_B339 push si push [bp+arg_2] lea ax, [di+21h] push ax jmp short loc_B351 ; --------------------------------------------------------------------------- loc_B339: lea ax, [si-8] push ax push [bp+arg_2] push 21h ; '!' push [bp+var_6] call sub_B2AD lea ax, [si+8] push ax push [bp+arg_2] push 20h ; ' ' loc_B351: push [bp+var_6] call sub_B2AD add si, 30h ; '0' mov [bp+var_2], 7 jmp short loc_B38F ; --------------------------------------------------------------------------- loc_B361: mov bx, di shl bx, 3 add bx, [bp+var_2] cmp byte ptr [bx+21F0h], 0Eh jz short loc_B389 push si push [bp+arg_2] mov bx, di shl bx, 3 add bx, [bp+var_2] mov al, [bx+21F0h] mov ah, 0 push ax push [bp+var_6] call sub_B2AD loc_B389: dec [bp+var_2] add si, 18h loc_B38F: cmp [bp+var_2], 0 jge short loc_B361 add si, 10h mov [bp+var_4], 20h ; ' ' mov [bp+var_2], 9 jmp short loc_B3E0 ; --------------------------------------------------------------------------- loc_B3A4: cmp [bp+var_4], 20h ; ' ' jnz short loc_B3BB mov bx, di imul bx, 0Ah add bx, [bp+var_2] mov al, [bx+2242h] mov ah, 0 mov [bp+var_4], ax loc_B3BB: cmp [bp+var_4], 20h ; ' ' jz short loc_B3DA push si push [bp+arg_2] mov bx, di imul bx, 0Ah add bx, [bp+var_2] mov al, [bx+2242h] mov ah, 0 push ax push [bp+var_6] call sub_B2AD loc_B3DA: dec [bp+var_2] add si, 10h loc_B3E0: cmp [bp+var_2], 0 jge short loc_B3A4 add si, 10h push si mov ax, [bp+arg_2] add ax, 8 push ax mov al, [bp+var_7] mov ah, 0 or ax, 20h push ax mov al, [di+22A6h] mov ah, 0 shl ax, 2 mov bx, ax pushd dword ptr [bx+906h] call sub_D197 add si, 70h ; 'p' push si push [bp+arg_2] mov al, [di+22B0h] mov ah, 0 push ax push [bp+var_6] call sub_B2AD pop di pop si leave retn 6 sub_B2EF endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B429 proc near push bp mov bp, sp push si push di push 0 call graph_copy_page xor si, si mov di, 68h ; 'h' jmp short loc_B447 ; --------------------------------------------------------------------------- loc_B43C: push 18h push di push si call sub_B2EF inc si add di, 14h loc_B447: cmp si, 0Ah jl short loc_B43C pop di pop si pop bp retn sub_B429 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B450 proc near arg_0 = word ptr 4 push bp mov bp, sp push si mov si, [bp+arg_0] push 18h mov ax, si imul ax, 14h add ax, 68h ; 'h' push ax push si call sub_B2EF pop si pop bp retn 2 sub_B450 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B46B proc near var_F = byte ptr -0Fh var_E = byte ptr -0Eh var_D = byte ptr -0Dh var_C = byte ptr -0Ch var_B = byte ptr -0Bh var_A = word ptr -0Ah var_8 = word ptr -8 var_6 = word ptr -6 var_4 = word ptr -4 var_2 = word ptr -2 enter 10h, 0 push si mov [bp+var_2], 0 lea ax, [bp+var_A] push ss push ax push ds push offset unk_ED6A mov cx, 8 call SCOPY@ mov [bp+var_B], 0 mov [bp+var_C], 1 mov [bp+var_D], 0 mov [bp+var_E], 7 mov [bp+var_F], 0 mov ax, word_106AC imul ax, 14h add ax, 68h ; 'h' mov si, ax jmp loc_B743 ; --------------------------------------------------------------------------- loc_B4A8: call _input_mode_interface test _input_sp.lo, low INPUT_UP jz short loc_B4F2 cmp [bp+var_A], 0 jz short loc_B4CD cmp [bp+var_A], 1Eh jl short loc_B4ED mov ax, [bp+var_A] mov bx, 4 cwd idiv bx or dx, dx jnz short loc_B4ED loc_B4CD: cmp [bp+var_2], 2Dh ; '-' jz short loc_B4ED push [bp+var_2] push 0 call sub_B1BF sub [bp+var_2], 10h cmp [bp+var_2], 0 jge short loc_B4E9 add [bp+var_2], 30h ; '0' loc_B4E9: mov [bp+var_C], 1 loc_B4ED: inc [bp+var_A] jmp short loc_B4F7 ; --------------------------------------------------------------------------- loc_B4F2: mov [bp+var_A], 0 loc_B4F7: test _input_sp.lo, low INPUT_DOWN jz short loc_B53C cmp [bp+var_8], 0 jz short loc_B517 cmp [bp+var_8], 1Eh jl short loc_B537 mov ax, [bp+var_8] mov bx, 4 cwd idiv bx or dx, dx jnz short loc_B537 loc_B517: cmp [bp+var_2], 2Dh ; '-' jz short loc_B537 push [bp+var_2] push 0 call sub_B1BF add [bp+var_2], 10h cmp [bp+var_2], 30h ; '0' jl short loc_B533 sub [bp+var_2], 30h ; '0' loc_B533: mov [bp+var_C], 1 loc_B537: inc [bp+var_8] jmp short loc_B541 ; --------------------------------------------------------------------------- loc_B53C: mov [bp+var_8], 0 loc_B541: test _input_sp.lo, low INPUT_LEFT jz short loc_B59A cmp [bp+var_6], 0 jz short loc_B561 cmp [bp+var_6], 1Eh jl short loc_B595 mov ax, [bp+var_6] mov bx, 4 cwd idiv bx or dx, dx jnz short loc_B595 loc_B561: push [bp+var_2] push 0 call sub_B1BF mov ax, [bp+var_2] mov bx, 10h cwd idiv bx or dx, dx jnz short loc_B57C add [bp+var_2], 0Eh jmp short loc_B591 ; --------------------------------------------------------------------------- loc_B57C: cmp [bp+var_2], 1Eh jz short loc_B588 cmp [bp+var_2], 0Eh jnz short loc_B58E loc_B588: sub [bp+var_2], 2 jmp short loc_B591 ; --------------------------------------------------------------------------- loc_B58E: dec [bp+var_2] loc_B591: mov [bp+var_C], 1 loc_B595: inc [bp+var_6] jmp short loc_B59F ; --------------------------------------------------------------------------- loc_B59A: mov [bp+var_6], 0 loc_B59F: test _input_sp.lo, low INPUT_RIGHT jz short loc_B5F9 cmp [bp+var_4], 0 jz short loc_B5BF cmp [bp+var_4], 1Eh jl short loc_B5F4 mov ax, [bp+var_4] mov bx, 4 cwd idiv bx or dx, dx jnz short loc_B5F4 loc_B5BF: push [bp+var_2] push 0 call sub_B1BF mov ax, [bp+var_2] mov bx, 10h cwd idiv bx cmp dx, 0Eh jnz short loc_B5DB sub [bp+var_2], 0Eh jmp short loc_B5F0 ; --------------------------------------------------------------------------- loc_B5DB: cmp [bp+var_2], 0Ch jz short loc_B5E7 cmp [bp+var_2], 1Ch jnz short loc_B5ED loc_B5E7: add [bp+var_2], 2 jmp short loc_B5F0 ; --------------------------------------------------------------------------- loc_B5ED: inc [bp+var_2] loc_B5F0: mov [bp+var_C], 1 loc_B5F4: inc [bp+var_4] jmp short loc_B5FE ; --------------------------------------------------------------------------- loc_B5F9: mov [bp+var_4], 0 loc_B5FE: test _input_sp.hi, high INPUT_OK jnz short loc_B60C test _input_sp.lo, low INPUT_SHOT jz short loc_B683 loc_B60C: cmp [bp+var_D], 0 jnz short loc_B67D cmp [bp+var_2], 1Eh jnz short loc_B64B mov al, [bp+var_E] mov ah, 0 mov dx, 7 sub dx, ax imul dx, 18h add dx, 48h ; 'H' push dx push si call sub_B1F6 mov bx, word_106AC shl bx, 3 mov al, [bp+var_E] mov ah, 0 add bx, ax mov byte ptr [bx+21F0h], 0Eh cmp [bp+var_E], 7 jnb short loc_B679 inc [bp+var_E] jmp short loc_B679 ; --------------------------------------------------------------------------- loc_B64B: cmp [bp+var_2], 2Eh ; '.' jnz short loc_B657 mov [bp+var_B], 1 jmp short loc_B679 ; --------------------------------------------------------------------------- loc_B657: mov bx, word_106AC shl bx, 3 mov al, [bp+var_E] mov ah, 0 add bx, ax mov al, byte ptr [bp+var_2] mov [bx+21F0h], al cmp [bp+var_E], 0 jnz short loc_B676 mov [bp+var_B], 1 loc_B676: dec [bp+var_E] loc_B679: mov [bp+var_C], 1 loc_B67D: mov [bp+var_D], 1 jmp short loc_B687 ; --------------------------------------------------------------------------- loc_B683: mov [bp+var_D], 0 loc_B687: test _input_sp.lo, low INPUT_BOMB jz short loc_B6CF cmp [bp+var_F], 0 jnz short loc_B6C9 mov al, [bp+var_E] mov ah, 0 mov dx, 7 sub dx, ax imul dx, 18h add dx, 48h ; 'H' push dx push si call sub_B1F6 mov bx, word_106AC shl bx, 3 mov al, [bp+var_E] mov ah, 0 add bx, ax mov byte ptr [bx+21F0h], 0Eh cmp [bp+var_E], 7 jnb short loc_B6C5 inc [bp+var_E] loc_B6C5: mov [bp+var_C], 1 loc_B6C9: mov [bp+var_F], 1 jmp short loc_B6D3 ; --------------------------------------------------------------------------- loc_B6CF: mov [bp+var_F], 0 loc_B6D3: cmp [bp+var_C], 1 jnz short loc_B73C push [bp+var_2] push 1 call sub_B1BF mov al, [bp+var_E] mov ah, 0 mov dx, 7 sub dx, ax imul dx, 18h add dx, 48h ; 'H' push dx push si call sub_B1F6 mov bx, word_106AC shl bx, 3 mov al, [bp+var_E] mov ah, 0 add bx, ax mov byte ptr [bx+21F0h], 0Eh push word_106AC call sub_B450 mov ax, [bp+var_2] mov bx, 10h cwd idiv bx cmp dx, 0Eh jz short loc_B738 mov al, [bp+var_E] mov ah, 0 mov dx, 7 sub dx, ax imul dx, 18h add dx, 48h ; 'H' push dx push si push [bp+var_2] push 0 call sub_B2AD loc_B738: mov [bp+var_C], 0 loc_B73C: push 1 call frame_delay loc_B743: cmp [bp+var_B], 0 jz loc_B4A8 pop si leave retn sub_B46B endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B74E proc near var_1 = byte ptr -1 enter 2, 0 push si push di xor cx, cx jmp short loc_B769 ; --------------------------------------------------------------------------- loc_B758: mov bx, word_106AC shl bx, 3 add bx, cx cmp byte ptr [bx+21F0h], 0Eh jnz short loc_B7A2 inc cx loc_B769: cmp cx, 8 jl short loc_B758 loc_B76E: les bx, _yumeconfig mov al, es:[bx+0Ch] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 shl ax, 3 add ax, 92Eh mov di, ax mov cx, 7 jmp short loc_B79C ; --------------------------------------------------------------------------- loc_B78B: mov bx, word_106AC shl bx, 3 add bx, cx mov al, [di] mov [bx+21F0h], al dec cx inc di loc_B79C: or cx, cx jge short loc_B78B jmp short loc_B7CE ; --------------------------------------------------------------------------- loc_B7A2: mov bx, word_106AC shl bx, 3 mov al, [bx+21F0h] mov [bp+var_1], al xor cx, cx jmp short loc_B7C7 ; --------------------------------------------------------------------------- loc_B7B4: mov bx, word_106AC shl bx, 3 add bx, cx mov al, [bx+21F0h] cmp al, [bp+var_1] jnz short loc_B7CE inc cx loc_B7C7: cmp cx, 8 jl short loc_B7B4 jmp short loc_B76E ; --------------------------------------------------------------------------- loc_B7CE: pop di pop si leave retn sub_B74E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B7D2 proc near push bp mov bp, sp les bx, _yumeconfig mov eax, es:[bx+10h] mov random_seed, eax call snd_load c, offset aScore_m, ds, SND_LOAD_SONG kajacall KAJA_SONG_PLAY les bx, _yumeconfig mov al, es:[bx+0Bh] mov ah, 0 push ax call sub_AE8E les bx, _yumeconfig cmp byte ptr es:[bx+33h], 0FFh jnz short loc_B819 mov word_106AC, 0FFFFh jmp short loc_B81F ; --------------------------------------------------------------------------- loc_B819: call sub_B03D mov word_106AC, ax loc_B81F: call sub_AFAC cmp word_106AC, 0FFFFh jnz short loc_B835 call sub_B429 push 2 call palette_black_in jmp short loc_B858 ; --------------------------------------------------------------------------- loc_B835: call sub_B429 push 1 call graph_copy_page mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call sub_B187 push 2 call palette_black_in call sub_B46B call sub_B74E call sub_B429 loc_B858: push 0 call _input_wait_for_change les bx, _yumeconfig cmp byte ptr es:[bx+36h], 0 jz short loc_B871 cmp byte ptr es:[bx+33h], 63h ; 'c' jnz short loc_B879 loc_B871: kajacall KAJA_SONG_FADE, 16 loc_B879: push 2 call palette_black_out les bx, _yumeconfig mov al, es:[bx+0Bh] mov ah, 0 push ax call sub_AEF0 call super_free mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al mov PaletteTone, 0 call far ptr palette_show les bx, _yumeconfig cmp byte ptr es:[bx+36h], 0 jz short loc_B8F1 cmp byte ptr es:[bx+33h], 63h ; 'c' jz short loc_B8F1 call pi_slot_load pascal, 0, ds, offset aConti_pi call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call _cdg_load_all pascal, 0, ds, offset aConti_cd2 pop bp retn ; --------------------------------------------------------------------------- loc_B8F1: call pi_slot_load pascal, 0, ds, offset aOver_pi_0 call pi_slot_palette_apply pascal, 0 call pi_slot_put pascal, large 0, 0 freePISlotLarge 0 call snd_delay_until_volume stdcall, 255 pop cx kajacall KAJA_SONG_STOP pop bp retn sub_B7D2 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B92E proc near push bp mov bp, sp kajacall KAJA_SONG_STOP call snd_load c, offset aOver_m, ds, SND_LOAD_SONG kajacall KAJA_SONG_PLAY push 1 call palette_black_in push 30040h call sub_D3FC push 1 call palette_black_out kajacall KAJA_SONG_STOP pop bp retn sub_B92E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_B972 proc near var_1 = byte ptr -1 enter 2, 0 call _cdg_free pascal, 0 call _cdg_free pascal, 1 call _cdg_free pascal, 2 freePISlotLarge 0 les bx, _yumeconfig mov al, es:[bx+0Ch] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 mov [bp+var_1], al cmp [bp+var_1], 0Ah jl short loc_B9DD les bx, off_EE4E mov al, es:[bx+1] push ax mov al, [bp+var_1] cbw mov bx, 0Ah cwd idiv bx pop dx add dl, al mov bx, word ptr off_EE4E mov es:[bx+1], dl mov al, [bp+var_1] cbw mov bx, 0Ah cwd idiv bx mov [bp+var_1], dl loc_B9DD: les bx, off_EE4E mov al, [bp+var_1] add es:[bx+2], al mov PaletteTone, 0 call far ptr palette_show push 60h call frame_delay mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al call graph_clear call graph_show pushd [off_EE4E] call sub_A12E call sub_AC6E call sub_A174 call sub_C40D les bx, _yumeconfig mov byte ptr es:[bx+33h], 63h ; 'c' call sub_B7D2 les bx, _yumeconfig cmp byte ptr es:[bx+36h], 3 jnz short loc_BA66 cmp byte ptr es:[bx+0Ch], 0Fh jnb short loc_BA66 mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call graph_clear mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call graph_clear mov dx, 0A4h mov al, 0 out dx, al push ds push offset a@99ed_txt ; "@99ED.TXT" call sub_A12E call sub_AC6E call sub_A174 loc_BA66: call text_clear call gaiji_restore call sub_C990 pushd 0 push ds push offset aOp_0 ; "op" push ds push offset aOp_0 ; "op" call _execl add sp, 0Ch leave retn sub_B972 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BA8A proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 push bp mov bp, sp push si push di mov ax, [bp+arg_4] sar ax, 3 mov dx, [bp+arg_2] shl dx, 6 add ax, dx mov dx, [bp+arg_2] shl dx, 4 add ax, dx mov di, ax mov si, [bp+arg_0] shl si, 4 add si, 0A62h mov ax, 0A800h mov es, ax assume es:nothing mov cx, [bp+arg_4] ; Hack (and cx, 7) db 081h db 0e1h db 007h db 000h mov bx, 8 loc_BAC0: mov ax, [si] ror ax, cl or es:[di], ax add di, 50h ; 'P' add si, 2 dec bx jnz short loc_BAC0 pop di pop si pop bp retn 6 sub_BA8A endp include th03/formats/cdg_unput_upwards.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BB51 proc near push bp mov bp, sp push di mov ax, 0A800h mov es, ax assume es:nothing xor ax, ax mov di, ax mov cx, 3E80h rep stosw pop di pop bp retn sub_BB51 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BB66 proc near push bp mov bp, sp push si mov si, 22C2h xor ax, ax jmp short loc_BB78 ; --------------------------------------------------------------------------- loc_BB71: mov byte ptr [si], 0 inc ax add si, 10h loc_BB78: cmp ax, 50h ; 'P' jl short loc_BB71 pop si pop bp retn sub_BB66 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BB80 proc near var_2 = byte ptr -2 var_1 = byte ptr -1 enter 2, 0 push si push di mov si, 22C2h xor di, di jmp loc_BC1A ; --------------------------------------------------------------------------- loc_BB8E: cmp byte ptr [si], 0 jnz loc_BC16 mov ax, di shl ax, 3 cmp ax, word_10BB2 jg short loc_BC16 mov byte ptr [si], 1 test di, 3 jz short loc_BBBE call IRand mov bx, 2780h cwd idiv bx mov [si+2], dx mov word ptr [si+4], 0 jmp short loc_BBD1 ; --------------------------------------------------------------------------- loc_BBBE: mov word ptr [si+2], 2780h call IRand mov bx, 1880h cwd idiv bx mov [si+4], dx loc_BBD1: call IRand mov bx, 20h ; ' ' cwd idiv bx add dl, 50h ; 'P' mov [bp+var_1], dl call IRand mov bx, 40h cwd idiv bx add dl, 30h ; '0' mov [bp+var_2], dl call IRand and ax, 3 mov [si+0Ah], ax push ds lea ax, [si+6] push ax push ds lea ax, [si+8] push ax push word ptr [bp+var_1] mov al, [bp+var_2] mov ah, 0 push ax call vector2 loc_BC16: inc di add si, 10h loc_BC1A: mov al, byte_106B0 mov ah, 0 cmp ax, di jg loc_BB8E pop di pop si leave retn sub_BB80 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BC29 proc near push bp mov bp, sp push si mov si, 22C2h xor dx, dx jmp short loc_BC63 ; --------------------------------------------------------------------------- loc_BC34: cmp byte ptr [si], 0 jz short loc_BC5F mov byte ptr [si], 1 mov ax, [si+6] add [si+2], ax mov ax, [si+8] add [si+4], ax cmp word ptr [si+2], 0 jg short loc_BC53 add word ptr [si+2], 2780h loc_BC53: cmp word ptr [si+4], 1880h jl short loc_BC5F sub word ptr [si+4], 1880h loc_BC5F: inc dx add si, 10h loc_BC63: mov al, byte_106B0 mov ah, 0 cmp ax, dx jg short loc_BC34 pop si pop bp retn sub_BC29 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BC6F proc near push bp mov bp, sp push si push di mov si, 22C2h xor di, di jmp short loc_BC98 ; --------------------------------------------------------------------------- loc_BC7B: cmp byte ptr [si], 0 jz short loc_BC94 mov ax, [si+2] sar ax, 4 push ax mov ax, [si+4] sar ax, 4 push ax push word ptr [si+0Ah] call sub_BA8A loc_BC94: inc di add si, 10h loc_BC98: mov al, byte_106B0 mov ah, 0 cmp ax, di jg short loc_BC7B pop di pop si pop bp retn sub_BC6F endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BCA5 proc near arg_0 = word ptr 4 arg_2 = word ptr 6 push bp mov bp, sp cmp _snd_active, 0 jnz short loc_BCB9 mov ax, word_10BB2 cmp ax, [bp+arg_0] jle short loc_BCCF jmp short loc_BCCA ; --------------------------------------------------------------------------- loc_BCB9: mov ah, KAJA_GET_SONG_MEASURE int 60h ; - FTP Packet Driver - BASIC FUNC - TERMINATE DRIVER FOR HANDLE ; BX = handle ; Return: CF set on error, DH = error code ; CF clear if successful cmp ax, [bp+arg_2] jb short loc_BCCF cmp word_10BB2, 0C0h jle short loc_BCCF loc_BCCA: mov ax, 1 jmp short loc_BCD1 ; --------------------------------------------------------------------------- loc_BCCF: xor ax, ax loc_BCD1: pop bp retn 4 sub_BCA5 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BCD5 proc near push bp mov bp, sp call sub_BB80 call sub_BC29 call sub_BC6F cmp byte_10BB6, 0 jz short loc_BCFE cmp vsync_Count1, 1 jbe short loc_BCFE mov byte_10BB5, 0 mov byte_106B0, 32h ; '2' mov byte_10BB6, 0 loc_BCFE: cmp vsync_Count1, 0 jz short loc_BCFE mov vsync_Count1, 0 mov dx, 0A4h mov al, byte_10BB4 out dx, al mov al, 1 sub al, byte_10BB4 mov byte_10BB4, al mov dx, 0A6h ; 'ｦ' out dx, al pop bp retn sub_BCD5 endp include th03/formats/cdg_put_dissolve.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BDF4 proc near arg_0 = word ptr 4 push bp mov bp, sp push si push di mov di, [bp+arg_0] call sub_BB51 mov ax, word_10BB2 cmp ax, word_10BBE jg loc_BEC1 push 140h mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax push word ptr [bx+27D8h] push di call _cdg_unput_for_upwards_motion_e mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov ax, [bx+27D8h] cmp ax, word_10BC0 jle short loc_BE66 mov al, byte_10BB4 mov ah, 0 add ax, ax mov dx, word_10BBC mov bx, ax sub [bx+27D8h], dx mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov ax, [bx+27D8h] cmp ax, word_10BC0 jge short loc_BE66 mov al, byte_10BB4 mov ah, 0 add ax, ax mov dx, word_10BC0 mov bx, ax mov [bx+27D8h], dx loc_BE66: mov ax, word_10BBE mov bx, 8 cwd idiv bx push ax mov ax, word_10BB2 cwd pop bx idiv bx mov dx, 7 sub dx, ax mov si, dx or si, si jge short loc_BE84 xor si, si loc_BE84: cmp byte_10BB5, 0 jz short loc_BEA7 cmp byte_10BC6, 0 jz short loc_BEA7 push (504 shl 16) or 200 mov al, byte_10BC6 mov ah, 0 push ax push si call _cdg_put_dissolve_e mov byte_10BC7, 1 loc_BEA7: push 320 mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax push word ptr [bx+27D8h] push di push si call _cdg_put_dissolve_e mov byte_10BC7, 0 loc_BEC1: pop di pop si pop bp retn 2 sub_BDF4 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BEC7 proc near arg_0 = word ptr 4 push bp mov bp, sp push si push di mov di, [bp+arg_0] call sub_BB51 cmp word_10BB2, 0A1h jg loc_BF78 cmp word_10BB2, 0A0h jge short loc_BF57 push 140h mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax push word ptr [bx+27D8h] push di call _cdg_unput_for_upwards_motion_e mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax dec word ptr [bx+27D8h] mov ax, word_10BB2 mov bx, 14h cwd idiv bx mov si, ax cmp si, 7 jle short loc_BF18 mov si, 7 loc_BF18: cmp byte_10BB5, 0 jz short loc_BF3B cmp byte_10BC6, 0 jz short loc_BF3B push (504 shl 16) or 200 mov al, byte_10BC6 mov ah, 0 push ax push si call _cdg_put_dissolve_e mov byte_10BC7, 1 loc_BF3B: push 320 mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax push word ptr [bx+27D8h] push di push si call _cdg_put_dissolve_e mov byte_10BC7, 0 jmp short loc_BF78 ; --------------------------------------------------------------------------- loc_BF57: call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off loc_BF78: pop di pop si pop bp retn 2 sub_BEC7 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BF7E proc near @@slot = word ptr 4 @@y_center = word ptr 6 @@x_center = word ptr 8 push bp mov bp, sp push si cmp word_10BB2, 0A0h jg short loc_BFAD mov ax, word_10BB2 mov bx, 14h cwd idiv bx mov dx, 7 sub dx, ax mov si, dx or si, si jge short loc_BFA0 xor si, si loc_BFA0: call _cdg_put_dissolve_e pascal, [bp+@@x_center], [bp+@@y_center], [bp+@@slot], si loc_BFAD: pop si pop bp retn 6 sub_BF7E endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_BFB2 proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 push bp mov bp, sp push si mov si, [bp+arg_4] cmp word_10BBC, 2 jnz short loc_BFE3 mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 108h mov al, byte_10BB4 mov ah, 0 xor ax, 1 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 107h jmp short loc_C00E ; --------------------------------------------------------------------------- loc_BFE3: mov al, byte_10BB4 mov ah, 0 add ax, ax mov dx, 118h sub dx, word_10BC4 mov bx, ax mov [bx+27D8h], dx mov al, byte_10BB4 mov ah, 0 xor ax, 1 add ax, ax mov dx, 118h sub dx, word_10BC4 mov bx, ax mov [bx+27D8h], dx loc_C00E: mov word_10BB2, 0 loc_C014: push si call sub_BDF4 call sub_BCD5 inc word_10BB2 push [bp+arg_2] push 100h call sub_BCA5 or ax, ax jz short loc_C014 mov word_10BB2, 0 loc_C032: push si call sub_BEC7 call sub_BCD5 inc word_10BB2 push [bp+arg_0] push 100h call sub_BCA5 or ax, ax jz short loc_C032 call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off call sub_BCD5 call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off call sub_BCD5 pop si pop bp retn 6 sub_BFB2 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C097 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] cmp word_10BBC, 2 jnz short loc_C0C9 mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 108h mov al, byte_10BB4 mov ah, 0 xor ax, 1 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 107h jmp short loc_C0D6 ; --------------------------------------------------------------------------- loc_C0C9: mov ax, 118h sub ax, word_10BC4 mov word_10BC8, ax mov word_10BCA, ax loc_C0D6: mov word_10BB2, 0 loc_C0DC: push si call sub_BDF4 mov byte_10BC7, 1 push 320 push word_10BC2 lea ax, [si-1] push ax push 0 call _cdg_put_dissolve_e mov byte_10BC7, 0 call sub_BCD5 inc word_10BB2 push [bp+arg_2] push 100h call sub_BCA5 or ax, ax jz short loc_C0DC mov word_10BB2, 0 loc_C114: cmp word_10BB2, 0A1h jg short loc_C12A push 320 push word_10BC2 lea ax, [si-1] push ax call _cdg_unput_for_upwards_motion_e loc_C12A: push si call sub_BEC7 cmp word_10BB2, 0A1h jg short loc_C199 mov ax, word_10BB2 dec ax mov bx, 14h cwd idiv bx mov di, ax cmp di, 7 jle short loc_C14A mov di, 7 loc_C14A: cmp byte_10BB4, 0 jnz short loc_C155 dec word_10BC2 loc_C155: mov byte_10BC7, 1 cmp word_10BB2, 0A0h jge short loc_C173 push 320 push word_10BC2 lea ax, [si-1] push ax push di call _cdg_put_dissolve_e jmp short loc_C194 ; --------------------------------------------------------------------------- loc_C173: call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off loc_C194: mov byte_10BC7, 0 loc_C199: call sub_BCD5 inc word_10BB2 push [bp+arg_0] push 100h call sub_BCA5 or ax, ax jz loc_C114 call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off call sub_BCD5 call grcg_setcolor pascal, (GC_RMW shl 16) + 0 push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off call sub_BCD5 pop di pop si pop bp retn 6 sub_C097 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C1FD proc near arg_0 = word ptr 4 arg_2 = word ptr 6 arg_4 = word ptr 8 push bp mov bp, sp cmp word_10BBC, 2 jnz short loc_C22A mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 108h mov al, byte_10BB4 mov ah, 0 xor ax, 1 add ax, ax mov bx, ax mov word ptr [bx+27D8h], 107h jmp short loc_C237 ; --------------------------------------------------------------------------- loc_C22A: mov ax, 118h sub ax, word_10BC4 mov word_10BC8, ax mov word_10BCA, ax loc_C237: mov word_10BB2, 0 loc_C23D: push [bp+arg_4] call sub_BDF4 call sub_BCD5 inc word_10BB2 push [bp+arg_2] push 100h call sub_BCA5 or ax, ax jz short loc_C23D mov word_10BB2, 0 loc_C25D: call sub_BB51 call sub_BCD5 inc word_10BB2 push [bp+arg_0] push 100h call sub_BCA5 or ax, ax jz short loc_C25D mov al, byte_10BB4 mov ah, 0 add ax, ax mov bx, ax mov ax, [bx+27D8h] mov word_10BC2, ax pop bp retn 6 sub_C1FD endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C288 proc near var_4 = word ptr -4 var_2 = word ptr -2 enter 4, 0 push si push di push 16000AEh push 2Fh ; '/' mov al, byte_10BD7 mov ah, 0 shl ax, 2 mov bx, ax pushd dword ptr [bx+0AE2h] call sub_D197 push 16800C7h push 2Fh ; '/' mov al, byte_10BD6 mov ah, 0 shl ax, 2 mov bx, ax pushd dword ptr [bx+0B06h] call sub_D197 mov si, 198h mov [bp+var_4], 0 mov [bp+var_2], 8 jmp short loc_C319 ; --------------------------------------------------------------------------- loc_C2D5: mov bx, [bp+var_2] mov al, [bx+27DCh] mov ah, 0 mov di, ax cmp [bp+var_4], 0 jnz short loc_C2F7 or di, di jz short loc_C2F7 mov ax, [bp+var_2] shl ax, 3 sub si, ax mov [bp+var_4], 1 loc_C2F7: cmp [bp+var_4], 0 jz short loc_C316 push si push 0E0002Fh mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 add si, 10h loc_C316: dec [bp+var_2] loc_C319: cmp [bp+var_2], 0 jg short loc_C2D5 mov al, byte_10BCC mov ah, 0 mov di, ax push si push 0E0002Fh mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 push 19800F8h push 2Fh ; '/' mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 mov al, byte_10BD8 mov ah, 0 mov bx, 64h ; 'd' cwd idiv bx mov di, ax mov si, 198h mov [bp+var_4], 0 or di, di jz short loc_C38D sub si, 10h mov [bp+var_4], 1 push si push 123002Fh mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 add si, 10h loc_C38D: mov al, byte_10BD8 mov ah, 0 mov bx, 64h ; 'd' cwd idiv bx mov bx, 0Ah mov ax, dx cwd idiv bx mov di, ax or di, di jz short loc_C3B4 cmp [bp+var_4], 0 jnz short loc_C3B4 mov [bp+var_4], 1 sub si, 8 loc_C3B4: cmp [bp+var_4], 0 jz short loc_C3D3 push si push 123002Fh mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 add si, 10h loc_C3D3: mov al, byte_10BD8 mov ah, 0 mov bx, 0Ah cwd idiv bx mov di, dx push si push 123002Fh mov bx, di shl bx, 2 pushd dword ptr [bx+0B16h] call sub_D197 lea ax, [si+10h] push ax push 123002Fh push ds push offset aU_ ; "点" call sub_D197 pop di pop si leave retn sub_C288 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C40D proc near push bp mov bp, sp push si push di kajacall KAJA_SONG_FADE, 16 push 4 call palette_black_out call snd_delay_until_volume stdcall, 255 pop cx kajacall KAJA_SONG_STOP mov byte_106B0, 50h ; 'P' mov si, 1 jmp short loc_C44B ; --------------------------------------------------------------------------- loc_C43C: les bx, _yumeconfig assume es:nothing add bx, si mov al, es:[bx+17h] mov [si+27DCh], al inc si loc_C44B: cmp si, 9 jl short loc_C43C les bx, _yumeconfig mov al, 3 sub al, es:[bx+36h] mov byte_10BCC, al mov al, es:[bx+0Ch] mov ah, 0 dec ax cwd sub ax, dx sar ax, 1 mov byte_10BD7, al mov al, es:[bx+0Bh] mov byte_10BD6, al mov al, es:[bx+38h] mov byte_10BD8, al mov al, byte_10BD3 mov ah, 0 cmp ax, 3 jz short loc_C48B cmp ax, 4 jz short loc_C49E jmp short loc_C4B1 ; --------------------------------------------------------------------------- loc_C48B: mov al, byte_10BD2 mov ah, 0 cwd sub ax, dx sar ax, 1 add al, byte_10BD8 add al, 2 mov byte_10BD8, al loc_C49E: mov al, byte_10BD2 mov ah, 0 cwd sub ax, dx sar ax, 1 add al, byte_10BD8 add al, 7 mov byte_10BD8, al loc_C4B1: cmp byte_10BD3, 5 jb short loc_C4C0 mov al, byte_10BD8 add al, 0Fh mov byte_10BD8, al loc_C4C0: cmp byte_10BD4, 0 jz short loc_C4CC mov byte_10BD8, 64h ; 'd' loc_C4CC: cmp byte_10BD8, 64h ; 'd' jbe short loc_C4D8 mov byte_10BD8, 64h ; 'd' loc_C4D8: call snd_load c, offset aEd_m, ds, SND_LOAD_SONG mov PaletteTone, 0 call far ptr palette_show push ds push offset aEdbk1_rgb ; "edbk1.rgb" call palette_entry_rgb call far ptr palette_show call grcg_setcolor pascal, (GC_RMW shl 16) + 8 mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al pushd 0 push 4F018Fh call grcg_byteboxfill_x mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al pushd 0 push 4F018Fh call grcg_byteboxfill_x call grcg_setcolor pascal, (GC_RMW shl 16) + 0 mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al push 10008h push 4E0187h call grcg_byteboxfill_x mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al push 10008h push 4E0187h call grcg_byteboxfill_x call grcg_off mov dx, 0A4h mov al, 1 out dx, al call _cdg_load_single_noalpha pascal, 0, ds, offset aStf1_cdg, 0 call _cdg_load_single_noalpha pascal, 1, ds, offset aStf11_cdg, 0 call _cdg_load_single_forcealpha pascal, 2, ds, offset aStf3_cdg, 0 call _cdg_load_single_forcealpha pascal, 3, ds, offset aStf4_cdg, 0 call _cdg_load_single_noalpha pascal, 4, ds, offset aStf5_cdg, 0 call _cdg_load_single_noalpha pascal, 5, ds, offset aStf6_cdg, 0 call _cdg_load_single_noalpha pascal, 6, ds, offset aStf7_cdg, 0 call _cdg_load_single_noalpha pascal, 7, ds, offset aStf8_cdg, 0 call _cdg_load_single_noalpha pascal, 8, ds, offset aStf9_cdg, 0 call _cdg_load_single_noalpha pascal, 9, ds, offset aStf10_cdg, 0 call _cdg_load_single_noalpha pascal, 10, ds, offset aStf2_cdg, 0 call _cdg_load_single_noalpha pascal, 11, ds, offset aStf12_cdg, 0 call sub_BB66 mov word_10BB2, 0 les bx, _yumeconfig mov eax, es:[bx+10h] mov random_seed, eax mov byte_10BB4, 0 mov PaletteTone, 64h ; 'd' call far ptr palette_show kajacall KAJA_SONG_PLAY mov byte_10BB6, 1 mov byte_10BB5, 1 push 1 call frame_delay mov vsync_Count1, 0 loc_C657: call sub_BB51 call sub_BCD5 inc word_10BB2 push 40100h call sub_BCA5 or ax, ax jz short loc_C657 mov byte_10BC7, 0 mov word_10BC4, 0 mov word_10BC0, 0C8h mov word_10BBC, 2 mov word_10BBE, 41h ; 'A' mov byte_10BC6, 0 pushd 8 push 0Ah call sub_BFB2 mov word_10BBC, 1 mov word_10BBE, 0A1h mov byte_10BB6, 0 push 10010h push 14h call sub_BFB2 mov word_10BC4, 20h ; ' ' mov word_10BC0, 0A8h ; 'ｨ' push 20016h push 18h call sub_C1FD mov byte_10BC6, 7 mov word_10BC0, 0D8h mov word_10BC4, 0FFF0h push 30020h push 22h ; '"' call sub_C097 mov byte_10BC6, 0 mov word_10BC0, 0C8h mov word_10BC4, 0 push 40024h push 26h ; '&' call sub_BFB2 push 0B002Ah push 2Ch ; ',' call sub_BFB2 push 50030h push 32h ; '2' call sub_BFB2 push 60036h push 38h ; '8' call sub_BFB2 push 0A003Ch push 3Eh ; '>' call sub_BFB2 mov word_10BB2, 0 loc_C735: call sub_BB51 push 1400080h push 8 call sub_BF7E push 0C000F0h push 9 call sub_BF7E call sub_BCD5 inc word_10BB2 push 420100h call sub_BCA5 or ax, ax jz short loc_C735 mov al, 1 sub al, byte_10BB4 mov dx, 0A6h ; 'ｦ' out dx, al call sub_C288 mov dx, 0A6h ; 'ｦ' mov al, byte_10BB4 out dx, al call sub_C288 mov word_10BB2, 0 xor di, di loc_C781: call _input_mode_interface call sub_BB51 call sub_BCD5 inc word_10BB2 or di, di jz short loc_C7AB mov PaletteTone, di call far ptr palette_show test byte ptr word_10BB2, 1 jz short loc_C781 dec di or di, di jnz short loc_C781 jmp short loc_C7CD ; --------------------------------------------------------------------------- loc_C7AB: cmp _input_sp, INPUT_NONE jz short loc_C781 cmp word_10BB2, 100h jle short loc_C781 kajacall KAJA_SONG_FADE, 8 mov di, 64h ; 'd' mov word_10BB2, 0 jmp short loc_C781 ; --------------------------------------------------------------------------- loc_C7CD: xor si, si jmp short loc_C7D8 ; --------------------------------------------------------------------------- loc_C7D1: call _cdg_free pascal, si inc si loc_C7D8: cmp si, CDG_SLOT_COUNT jl short loc_C7D1 pop di pop si pop bp retn sub_C40D endp db 0 mainl_01_TEXT ends ; =========================================================================== ; Segment type: Pure code mainl_02_TEXT segment word public 'CODE' use16 assume cs:mainl_02_TEXT ;org 2 assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing include th01/hardware/vram_planes_set.asm db 0 include th02/snd/detmode.asm include th02/snd/pmd_res.asm include th02/snd/delayvol.asm include th02/snd/load.asm include th03/math/vector2.asm nop include th03/math/vector2_between_plus.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_C990 proc far push bp mov bp, sp call pfend mov dx, 0A6h ; 'ｦ' mov al, 1 out dx, al call graph_clear mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al call graph_clear mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al call vsync_end call mem_unassign call text_clear call js_end call egc_start pop bp retf sub_C990 endp ; --------------------------------------------------------------------------- db 0 include th03/formats/cdg_put.asm include th03/formats/cdg_put_hflip.asm include th02/hardware/frame_delay.asm db 0 include th03/hardware/input_sense.asm include th02/formats/pi_slot_palette_apply.asm include th02/formats/pi_slot_put.asm include th03/formats/pi_slot_put_interlace.asm include th02/snd/se.asm include th02/snd/kajaint.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_CEE0 proc far arg_0 = dword ptr 6 push bp mov bp, sp push 4650h call mem_assign_dos or ax, ax jz short loc_CEF6 mov ax, 1 pop bp retf 4 ; --------------------------------------------------------------------------- loc_CEF6: nopcall vram_planes_set call vsync_start call egc_start call graph_400line call js_start pushd [bp+arg_0] call pfstart xor ax, ax pop bp retf 4 sub_CEE0 endp include th03/formats/cdg_load.asm ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_D16F proc far push bp mov bp, sp call pfend mov dx, 0A6h ; 'ｦ' mov al, 0 out dx, al mov dx, 0A4h out dx, al call vsync_end call mem_unassign call js_end call egc_start pop bp retf sub_D16F endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_D197 proc far var_32 = byte ptr -32h var_12 = word ptr -12h var_10 = word ptr -10h var_E = word ptr -0Eh var_C = word ptr -0Ch var_A = word ptr -0Ah var_8 = dword ptr -8 var_4 = word ptr -4 var_2 = word ptr -2 arg_0 = dword ptr 6 arg_4 = word ptr 0Ah arg_6 = word ptr 0Ch arg_8 = word ptr 0Eh enter 32h, 0 push si push di mov di, [bp+arg_8] mov ax, [bp+arg_4] sar ax, 4 and ax, 3 mov [bp+var_E], ax mov ax, [bp+arg_4] sar ax, 6 and ax, 7 mov [bp+var_10], ax push GC_RMW mov ax, [bp+arg_4] and ax, 0Fh push ax call grcg_setcolor mov dx, 68h ; 'h' mov al, 0Bh out dx, al jmp loc_D3E0 ; --------------------------------------------------------------------------- loc_D1D0: mov ax, [bp+arg_6] imul ax, 50h push ax mov ax, di mov bx, 8 cwd idiv bx pop dx add dx, ax mov word ptr [bp+var_8+2], 0A800h mov word ptr [bp+var_8], dx mov ax, di cwd idiv bx mov [bp+var_C], dx les bx, [bp+arg_0] assume es:nothing mov al, es:[bx] mov ah, 0 mov bx, ax test __mbctype+1[bx], 4 jz short loc_D225 mov bx, word ptr [bp+arg_0] mov al, es:[bx] cbw shl ax, 8 mov dl, es:[bx+1] mov dh, 0 add ax, dx push ax call __mbcjmstojis pop cx mov [bp+var_2], ax add word ptr [bp+arg_0], 2 jmp short loc_D26B ; --------------------------------------------------------------------------- loc_D225: les bx, [bp+arg_0] mov al, es:[bx] mov ah, 0 mov bx, ax test __mbctype+1[bx], 3 jz short loc_D243 mov bx, word ptr [bp+arg_0] mov al, es:[bx] mov ah, 0 add ax, 2980h jmp short loc_D25E ; --------------------------------------------------------------------------- loc_D243: les bx, [bp+arg_0] mov al, es:[bx] cbw mov bx, ax test byte ptr [bx+0F05h], 5Eh jz short loc_D263 mov bx, word ptr [bp+arg_0] mov al, es:[bx] mov ah, 0 add ax, 2900h loc_D25E: mov [bp+var_2], ax jmp short loc_D268 ; --------------------------------------------------------------------------- loc_D263: mov [bp+var_2], 2B21h loc_D268: inc word ptr [bp+arg_0] loc_D26B: mov al, byte ptr [bp+var_2] and al, 0FFh mov dx, 0A1h out dx, al mov ax, [bp+var_2] shr ax, 8 sub al, 20h ; ' ' mov dx, 0A3h ; '｣' out dx, al cmp [bp+var_2], 2921h jb short loc_D2CC cmp [bp+var_2], 2B7Eh ja short loc_D2CC cmp di, 278h jg loc_D3EB mov [bp+var_12], 0 jmp short loc_D2BF ; --------------------------------------------------------------------------- loc_D29D: mov al, byte ptr [bp+var_12] or al, 20h mov dx, 0A5h out dx, al mov dx, 0A9h in al, dx mov ah, 0 shl ax, 8 mov bx, [bp+var_12] add bx, bx lea dx, [bp+var_32] add bx, dx mov ss:[bx], ax inc [bp+var_12] loc_D2BF: cmp [bp+var_12], 10h jl short loc_D29D mov [bp+var_A], 0 jmp short loc_D322 ; --------------------------------------------------------------------------- loc_D2CC: cmp di, 270h jg loc_D3EB mov [bp+var_12], 0 jmp short loc_D317 ; --------------------------------------------------------------------------- loc_D2DB: mov al, byte ptr [bp+var_12] or al, 20h mov dx, 0A5h out dx, al mov dx, 0A9h in al, dx mov ah, 0 shl ax, 8 mov bx, [bp+var_12] add bx, bx lea dx, [bp+var_32] add bx, dx mov ss:[bx], ax mov dx, 0A5h mov al, byte ptr [bp+var_12] out dx, al mov dx, 0A9h in al, dx mov ah, 0 mov bx, [bp+var_12] add bx, bx lea dx, [bp+var_32] add bx, dx add ss:[bx], ax inc [bp+var_12] loc_D317: cmp [bp+var_12], 10h jl short loc_D2DB mov [bp+var_A], 1 loc_D322: mov [bp+var_12], 0 jmp loc_D3C7 ; --------------------------------------------------------------------------- loc_D32A: mov bx, [bp+var_12] add bx, bx lea ax, [bp+var_32] add bx, ax mov ax, ss:[bx] mov [bp+var_4], ax mov ax, [bp+var_E] cmp ax, 1 jz short loc_D34E cmp ax, 2 jz short loc_D364 cmp ax, 3 jz short loc_D35A jmp short loc_D37A ; --------------------------------------------------------------------------- loc_D34E: mov si, [bp+var_4] mov ax, si add ax, ax or [bp+var_4], ax jmp short loc_D37A ; --------------------------------------------------------------------------- loc_D35A: mov si, [bp+var_4] mov ax, si add ax, ax or [bp+var_4], ax loc_D364: mov si, [bp+var_4] mov ax, si add ax, ax or [bp+var_4], ax xor si, [bp+var_4] mov ax, si add ax, ax not ax and [bp+var_4], ax loc_D37A: cmp [bp+var_C], 0 jz short loc_D3AD mov cl, byte ptr [bp+var_C] add cl, 8 mov ax, [bp+var_4] shr ax, cl les bx, [bp+var_8] mov es:[bx], al mov ax, [bp+var_4] mov cl, byte ptr [bp+var_C] shr ax, cl mov es:[bx+1], al mov cl, 8 sub cl, byte ptr [bp+var_C] mov al, byte ptr [bp+var_4] shl al, cl mov es:[bx+2], al jmp short loc_D3C0 ; --------------------------------------------------------------------------- loc_D3AD: mov ax, [bp+var_4] shr ax, 8 les bx, [bp+var_8] mov es:[bx], al mov al, byte ptr [bp+var_4] mov es:[bx+1], al loc_D3C0: add word ptr [bp+var_8], 50h ; 'P' inc [bp+var_12] loc_D3C7: cmp [bp+var_12], 10h jl loc_D32A cmp [bp+var_A], 0 jz short loc_D3D8 add di, 8 loc_D3D8: mov ax, [bp+var_10] add ax, 8 add di, ax loc_D3E0: les bx, [bp+arg_0] cmp byte ptr es:[bx], 0 jnz loc_D1D0 loc_D3EB: mov dx, 68h ; 'h' mov al, 0Ah out dx, al call grcg_off pop di pop si leave retf 0Ah sub_D197 endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_D3FC proc far arg_0 = word ptr 6 arg_2 = word ptr 8 push bp mov bp, sp cmp _snd_active, 0 jnz short loc_D412 push [bp+arg_0] nopcall frame_delay pop bp retf 4 ; --------------------------------------------------------------------------- loc_D412: mov ah, KAJA_GET_SONG_MEASURE cmp _snd_midi_active, 1 jz short loc_D41F int 60h ; - FTP Packet Driver - BASIC FUNC - TERMINATE DRIVER FOR HANDLE ; BX = handle ; Return: CF set on error, DH = error code ; CF clear if successful jmp short loc_D424 ; --------------------------------------------------------------------------- loc_D41F: mov dx, 0C0h int 61h ; reserved for user interrupt loc_D424: cmp ax, [bp+arg_2] jb short loc_D412 pop bp retf 4 sub_D3FC endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_D42D proc far arg_0 = word ptr 6 arg_2 = word ptr 8 push bp mov bp, sp cmp _snd_active, 0 jnz short loc_D443 push [bp+arg_0] nopcall sub_D47A pop bp retf 4 ; --------------------------------------------------------------------------- loc_D443: mov ah, KAJA_GET_SONG_MEASURE cmp _snd_midi_active, 1 jz short loc_D450 int 60h ; - FTP Packet Driver - BASIC FUNC - TERMINATE DRIVER FOR HANDLE ; BX = handle ; Return: CF set on error, DH = error code ; CF clear if successful jmp short loc_D455 ; --------------------------------------------------------------------------- loc_D450: mov dx, 0C0h int 61h ; reserved for user interrupt loc_D455: nopcall _input_mode_interface test _input_sp.lo, low INPUT_SHOT jnz short loc_D468 test _input_sp.hi, high INPUT_OK jz short loc_D46F loc_D468: mov ax, 1 pop bp retf 4 ; --------------------------------------------------------------------------- loc_D46F: cmp ax, [bp+arg_2] jb short loc_D443 xor ax, ax pop bp retf 4 sub_D42D endp ; =============== S U B R O U T I N E ======================================= ; Attributes: bp-based frame sub_D47A proc far arg_0 = word ptr 6 push bp mov bp, sp mov vsync_Count1, 0 loc_D483: nopcall _input_mode_interface test _input_sp.lo, low INPUT_SHOT jnz short loc_D496 test _input_sp.hi, high INPUT_OK jz short loc_D49D loc_D496: mov ax, 1 pop bp retf 2 ; --------------------------------------------------------------------------- loc_D49D: mov ax, vsync_Count1 cmp ax, [bp+arg_0] jb short loc_D483 xor ax, ax pop bp retf 2 sub_D47A endp include th02/formats/pi_slot_load.asm include th03/formats/pi_slot_put_quarter.asm include th03/hardware/input_modes.asm include th03/hardware/input_wait.asm db 0 include th03/formats/cdg_put_noalpha.asm include th03/formats/hfliplut.asm mainl_02_TEXT ends .data dw offset a00sl_cd2 dw offset a02sl_cd2 dw offset a04sl_cd2 dw offset a06sl_cd2 dw offset a08sl_cd2 dw offset a10sl_cd2 dw offset a12sl_cd2 dw offset a14sl_cd2 dw offset a16sl_cd2 dd a@00tx_txt ; "@00TX.TXT" dd a@01tx_txt ; "@01TX.TXT" dd a@02tx_txt ; "@02TX.TXT" dd a@03tx_txt ; "@03TX.TXT" dd a@04tx_txt ; "@04TX.TXT" dd a@05tx_txt ; "@05TX.TXT" dd a@06tx_txt ; "@06TX.TXT" dd a@07tx_txt ; "@07TX.TXT" dd a@08tx_txt ; "@08TX.TXT" off_E4B6 dd a@00dm0_txt ; "@00DM0.TXT" CHAR_TITLE dd TITLE_REIMU ; " 夢と伝統を保守する巫女 " CHAR_NAME dd NAME_REIMU ; " 博麗　靈夢" dd TITLE_MIMA ; " 久遠の夢に運命を任せる精神 " dd NAME_MIMA ; " 魅 魔" dd TITLE_MARISA ; " 魔法と紅夢からなる存在 " dd NAME_MARISA ; " 霧雨　魔理沙 " dd TITLE_ELLEN ; "はたらきもので恋を夢見る魔女" dd NAME_ELLEN ; "　　エレン" dd TITLE_KOTOHIME ; " 弾幕に美を夢みる姫 " dd NAME_KOTOHIME ; " 小兎姫" dd TITLE_KANA ; " 夢を失った少女騒霊 " dd NAME_KANA ; "カナ・アナベラル" dd TITLE_RIKAKO ; " 　　　夢を探す科学 " dd NAME_RIKAKO ; "　朝倉　理香子" dd TITLE_CHIYURI ; "　 時をかける夢幻の住人 " dd NAME_CHIYURI ; " 北白河　ちゆり" dd TITLE_YUMEMI ; "　 　　　夢幻伝説　　　 " dd NAME_YUMEMI ; " 　岡崎　夢美" word_E502 dw offset aSt_cd2 word_E504 dw offset aStnx1_pi a0016_pi db '0016.pi',0 db 0 db 0 db 0 db 0 a00sl_cd2 db '00sl.cd2',0 a02sl_cd2 db '02sl.cd2',0 a04sl_cd2 db '04sl.cd2',0 a06sl_cd2 db '06sl.cd2',0 a08sl_cd2 db '08sl.cd2',0 a10sl_cd2 db '10sl.cd2',0 a12sl_cd2 db '12sl.cd2',0 a14sl_cd2 db '14sl.cd2',0 a16sl_cd2 db '16sl.cd2',0 a@00tx_txt db '@00TX.TXT',0 a@01tx_txt db '@01TX.TXT',0 a@02tx_txt db '@02TX.TXT',0 a@03tx_txt db '@03TX.TXT',0 a@04tx_txt db '@04TX.TXT',0 a@05tx_txt db '@05TX.TXT',0 a@06tx_txt db '@06TX.TXT',0 a@07tx_txt db '@07TX.TXT',0 a@08tx_txt db '@08TX.TXT',0 a@00dm0_txt db '@00DM0.TXT',0 TITLE_REIMU db ' 夢と伝統を保守する巫女 ',0 NAME_REIMU db ' 博麗　靈夢',0 TITLE_MIMA db ' 久遠の夢に運命を任せる精神 ',0 NAME_MIMA db ' 魅 魔',0 TITLE_MARISA db ' 魔法と紅夢からなる存在 ',0 NAME_MARISA db ' 霧雨　魔理沙 ',0 TITLE_ELLEN db 'はたらきもので恋を夢見る魔女',0 NAME_ELLEN db '　　エレン',0 TITLE_KOTOHIME db ' 弾幕に美を夢みる姫 ',0 NAME_KOTOHIME db ' 小兎姫',0 TITLE_KANA db ' 夢を失った少女騒霊 ',0 NAME_KANA db 'カナ・アナベラル',0 TITLE_RIKAKO db ' 　　　夢を探す科学 ',0 NAME_RIKAKO db '　朝倉　理香子',0 TITLE_CHIYURI db '　 時をかける夢幻の住人 ',0 NAME_CHIYURI db ' 北白河　ちゆり',0 TITLE_YUMEMI db '　 　　　夢幻伝説　　　 ',0 NAME_YUMEMI db ' 　岡崎　夢美',0 aYume_cfg db 'YUME.CFG',0 aLogo0_rgb db 'logo0.rgb',0 aLogo_cd2 db 'logo.cd2',0 aLogo5_cdg db 'logo5.cdg',0 aLogo1_rgb db 'logo1.rgb',0 aSt_cd2 db 'st.cd2',0 aStnx1_pi db 'stnx1.pi',0 aStnx0_pi db 'stnx0.pi',0 a00mm_m db '00mm.m',0 aDec_m db 'dec.m',0 aEn2_pi db 'EN2.pi',0 aEnemy00_pi db 'ENEMY00.pi',0 aEnemy01_pi db 'ENEMY01.pi',0 aEnemy02_pi db 'ENEMY02.pi',0 aEnemy03_pi db 'ENEMY03.pi',0 aEnemy04_pi db 'ENEMY04.pi',0 aYume_efc db 'YUME.EFC',0 aCOul db '夢時空1.dat',0 aMikoft_bft db 'MIKOFT.bft',0 ; char path[] path db 'op',0 aWin_m db 'win.m',0 ; char aMain[] aMain db 'main',0 include libs/master.lib/atan8[data].asm include libs/master.lib/bfnt_id[data].asm include libs/master.lib/clip[data].asm include libs/master.lib/edges[data].asm include libs/master.lib/fil[data].asm include libs/master.lib/dos_ropen[data].asm include libs/master.lib/gaiji_backup[data].asm include libs/master.lib/gaiji_entry_bfnt[data].asm include libs/master.lib/grp[data].asm include libs/master.lib/js[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 _snd_active db 0 db 0 include libs/master.lib/respal_exist[data].asm include th03/snd/se_state[data].asm include th02/formats/pfopen[data].asm include th03/formats/cdg[data].asm include th03/snd/se_priority[data].asm db 30h ; 0 db 0 aOver_pi db 'over.pi',0 db 0 db 0 db 11h db 11h db 0 db 0 db 44h ; D db 44h ; D db 88h db 88h db 11h db 11h db 22h ; " db 22h ; " db 44h ; D db 44h ; D db 0AAh ; ｪ db 0AAh ; ｪ db 55h ; U db 55h ; U db 0AAh ; ｪ db 0AAh ; ｪ db 55h ; U db 55h ; U db 0EEh db 0EEh db 77h ; w db 77h ; w db 0BBh db 0BBh db 0DDh db 0DDh db 20h db 20h db 0 db 0 dd aNoEntry ; " No Entry! " dd aB@b@sCB@b@ ; "　　靈夢　　" dd aB@b@cgcvb@b@ ; "　　魅魔　　" dd aB@cvcanB@ ; " 　魔理沙　 " dd aB@gggmgub@ ; " 　エレン　 " dd aB@pmuexpb@ ; " 　小兎姫　 " dd aB@Gjgi ; " 　 カナ " dd aB@canboq ; " 　理香子 " dd aB@vVfvsb@ ; " 　ちゆり　 " dd aB@CF ; " 　 夢美　 " db 14h db 4 db 8 db 0Ch db 17h db 0Eh db 0Eh db 0Eh db 0Ch db 8 db 0Ch db 0 db 0Eh db 0Eh db 0Eh db 0Eh db 0Ch db 0 db 14h db 8 db 15h db 0 db 0Eh db 0Eh db 4 db 0Bh db 4 db 10h db 0Eh db 0Eh db 0Eh db 0Eh db 0Ah db 11h db 16h db 11h db 7 db 8 db 0Ch db 4 db 0Ah db 0 db 10h db 0 db 0Eh db 0Eh db 0Eh db 0Eh db 14h db 8 db 0Ah db 0 db 0Ah db 11h db 0Eh db 0Eh db 2 db 7 db 8 db 1Bh db 17h db 14h db 8 db 0Eh db 1Bh db 17h db 0Ch db 4 db 0Ch db 8 db 0Eh db 0Eh word_ED66 dw 0A04h word_ED68 dw 0A0Dh unk_ED6A db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 aNoEntry db ' No Entry! ',0 aB@b@sCB@b@ db '　　靈夢　　',0 aB@b@cgcvb@b@ db '　　魅魔　　',0 aB@cvcanB@ db ' 　魔理沙　 ',0 aB@gggmgub@ db ' 　エレン　 ',0 aB@pmuexpb@ db ' 　小兎姫　 ',0 aB@Gjgi db ' 　 カナ ',0 aB@canboq db ' 　理香子 ',0 aB@vVfvsb@ db ' 　ちゆり　 ',0 aB@CF db ' 　 夢美　 ',0 aYume_nem db 'YUME.NEM',0 aRft0_cdg db 'rft0.cdg',0 aRegib_pi db 'regib.pi',0 aRegi2_bft db 'regi2.bft',0 aRegi1_bft db 'regi1.bft',0 aScore_m db 'score.m',0 aConti_pi db 'conti.pi',0 aConti_cd2 db 'conti.cd2',0 aOver_pi_0 db 'over.pi',0 aOver_m db 'over.m',0 db 0 off_EE4E dd a@00ed_txt ; "@00ED.TXT" db 3Ch ; < db 0 db 7Eh ; ~ db 0 db 0FFh db 0 db 0FFh db 0 db 0FFh db 0 db 0FFh db 0 db 7Eh ; ~ db 0 db 3Ch ; < db 0 db 0 db 0 db 18h db 0 db 3Ch ; < db 0 db 7Eh ; ~ db 0 db 7Eh ; ~ db 0 db 3Ch ; < db 0 db 18h db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 18h db 0 db 3Ch ; < db 0 db 3Ch ; < db 0 db 18h db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 0 db 18h db 0 db 18h db 0 db 0 db 0 db 0 db 0 db 0 db 0 include th03/formats/cdg_put_dissolve[data].asm dd aFocab@sC_0 ; " 博麗　靈夢" dd aCgCv_0 ; " 魅 魔" dd aCIjb@cvcan_0 ; " 霧雨　魔理沙 " dd aB@b@gggmgu_0 ; "　　エレン" dd aPmuexp_0 ; " 小兎姫" dd aGjgibegagigx_0 ; "カナ・アナベラル" dd aB@tisqb@canb_0 ; "　朝倉　理香子" dd aCkftiB@vVfvs_0 ; " 北白河　ちゆり" dd aB@iknsb@cF_0 ; " 　岡崎　夢美" dd aVdvbvuvs ; " Ｅａｓｙ" dd aVmvpvtvnvbvm ; " Ｎｏｒｍａｌ" dd aVgvbvtvd ; " Ｈａｒｄ" dd aVkvxvovbvfvivg ; "Ｌｕｎａｔｉｃ" dd aVo ; "０" dd aVp ; "１" dd aVq ; "２" dd aVr ; "３" dd aVs ; "４" dd aVt ; "５" dd aVu ; "６" dd aVv ; "７" dd aVw ; "８" dd aVx ; "９" a@00ed_txt db '@00ED.TXT',0 a@99ed_txt db '@99ED.TXT',0 ; char aOp_0[] aOp_0 db 'op',0 aFocab@sC_0 db ' 博麗　靈夢',0 aCgCv_0 db ' 魅 魔',0 aCIjb@cvcan_0 db ' 霧雨　魔理沙 ',0 aB@b@gggmgu_0 db '　　エレン',0 aPmuexp_0 db ' 小兎姫',0 aGjgibegagigx_0 db 'カナ・アナベラル',0 aB@tisqb@canb_0 db '　朝倉　理香子',0 aCkftiB@vVfvs_0 db ' 北白河　ちゆり',0 aB@iknsb@cF_0 db ' 　岡崎　夢美',0 aVdvbvuvs db ' Ｅａｓｙ',0 aVmvpvtvnvbvm db ' Ｎｏｒｍａｌ',0 aVgvbvtvd db ' Ｈａｒｄ',0 aVkvxvovbvfvivg db 'Ｌｕｎａｔｉｃ',0 aVo db '０',0 aVp db '１',0 aVq db '２',0 aVr db '３',0 aVs db '４',0 aVt db '５',0 aVu db '６',0 aVv db '７',0 aVw db '８',0 aVx db '９',0 aU_ db '点',0 aEd_m db 'ed.m',0 aEdbk1_rgb db 'edbk1.rgb',0 aStf1_cdg db 'stf1.cdg',0 aStf11_cdg db 'stf11.cdg',0 aStf3_cdg db 'stf3.cdg',0 aStf4_cdg db 'stf4.cdg',0 aStf5_cdg db 'stf5.cdg',0 aStf6_cdg db 'stf6.cdg',0 aStf7_cdg db 'stf7.cdg',0 aStf8_cdg db 'stf8.cdg',0 aStf9_cdg db 'stf9.cdg',0 aStf10_cdg db 'stf10.cdg',0 aStf2_cdg db 'stf2.cdg',0 aStf12_cdg db 'stf12.cdg',0 .data? ; TODO: Missing clip[bss].asm (16 bytes) somewhere in there... unk_F72C db ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; db ? ; db ? ; byte_F768 db ? unk_F769 db ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; db ? ; db ? ; byte_F7A5 db ? unk_F7A6 db ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; db ? ; db ? ; byte_F7E2 db ? byte_F7E3 db ? byte_F7E4 db ? byte_F7E5 db ? dd ? ; dd ? ; dd ? ; dd ? ; 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 th02/snd/snd[bss].asm include th02/snd/load[bss].asm include libs/master.lib/pfint21[bss].asm include th03/hardware/input[bss].asm include th03/formats/cdg[bss].asm include th02/formats/pi_slots[bss].asm include th03/formats/hfliplut[bss].asm dword_105C6 dd ? dword_105CA dd ? byte_105CE db ? db ? word_105D0 dw ? word_105D2 dw ? word_105D4 dw ? byte_105D6 db ? byte_105D7 db ? word_105D8 dw ? public _yumeconfig _yumeconfig dd ? word_105DE dw ? dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; byte_10630 db ? byte_10631 db ? dd ? ; byte_10636 db ? dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; db ? ; db ? ; byte_106AA db ? byte_106AB db ? word_106AC dw ? dw ? byte_106B0 db ? dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; dd ? ; db ? ; word_10BB2 dw ? byte_10BB4 db ? byte_10BB5 db ? byte_10BB6 db ? dd ? ; db ? ; word_10BBC dw ? word_10BBE dw ? word_10BC0 dw ? word_10BC2 dw ? word_10BC4 dw ? byte_10BC6 db ? byte_10BC7 db ? word_10BC8 dw ? word_10BCA dw ? byte_10BCC db ? dd ? ; db ? ; byte_10BD2 db ? byte_10BD3 db ? byte_10BD4 db ? db ? byte_10BD6 db ? byte_10BD7 db ? byte_10BD8 db ? db ? ; end