mirror of https://github.com/nmlgc/ReC98.git
4782 lines
96 KiB
NASM
4782 lines
96 KiB
NASM
;
|
||
; +-------------------------------------------------------------------------+
|
||
; | This file has been generated by The Interactive Disassembler (IDA) |
|
||
; | Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com> |
|
||
; +-------------------------------------------------------------------------+
|
||
;
|
||
; Input MD5 : 50C37C4BDDEC04B753524F5D3B030A96
|
||
|
||
; File Name : th04/MAINE.EXE
|
||
; Format : MS-DOS executable (EXE)
|
||
; Base Address: 0h Range: 0h-126D0h Loaded length: 10062h
|
||
; Entry Point : 0:0
|
||
; OS type : MS DOS
|
||
; Application type: Executable 16bit
|
||
|
||
.386
|
||
.model use16 large _TEXT
|
||
|
||
BINARY = 'E'
|
||
|
||
include ReC98.inc
|
||
include th04/th04.inc
|
||
include th04/hardware/grppsafx.inc
|
||
|
||
extern _execl:proc
|
||
extern _tolower:proc
|
||
extern __ctype:byte
|
||
|
||
maine_01 group CFG_LRES_TEXT, maine_01_TEXT, maine_01__TEXT
|
||
g_SHARED group SHARED, SHARED_
|
||
|
||
; ===========================================================================
|
||
|
||
; Segment type: Pure code
|
||
_TEXT segment word public 'CODE' use16
|
||
assume cs:_TEXT
|
||
assume es:nothing, ds:_DATA, fs:nothing, gs:nothing
|
||
|
||
include libs/master.lib/bfnt_entry_pat.asm
|
||
include libs/master.lib/bfnt_extend_header_skip.asm
|
||
include libs/master.lib/bfnt_header_read.asm
|
||
include libs/master.lib/bfnt_header_analysis.asm
|
||
include libs/master.lib/atrtcmod.asm
|
||
include libs/master.lib/bcloser.asm
|
||
include libs/master.lib/bfill.asm
|
||
include libs/master.lib/bfnt_palette_set.asm
|
||
include libs/master.lib/bgetc.asm
|
||
include libs/master.lib/palette_black_in.asm
|
||
include libs/master.lib/palette_black_out.asm
|
||
include libs/master.lib/bopenr.asm
|
||
include libs/master.lib/bread.asm
|
||
include libs/master.lib/bseek.asm
|
||
include libs/master.lib/bseek_.asm
|
||
include libs/master.lib/dos_axdx.asm
|
||
include libs/master.lib/dos_filesize.asm
|
||
include libs/master.lib/dos_keyclear.asm
|
||
include libs/master.lib/dos_read.asm
|
||
include libs/master.lib/dos_seek.asm
|
||
include libs/master.lib/dos_setvect.asm
|
||
include libs/master.lib/egc.asm
|
||
include libs/master.lib/file_append.asm
|
||
include libs/master.lib/file_close.asm
|
||
include libs/master.lib/file_create.asm
|
||
include libs/master.lib/file_exist.asm
|
||
include libs/master.lib/file_read.asm
|
||
include libs/master.lib/file_ropen.asm
|
||
include libs/master.lib/file_seek.asm
|
||
include libs/master.lib/file_size.asm
|
||
include libs/master.lib/file_write.asm
|
||
include libs/master.lib/dos_close.asm
|
||
include libs/master.lib/dos_ropen.asm
|
||
include libs/master.lib/grcg_byteboxfill_x.asm
|
||
include libs/master.lib/grcg_setcolor.asm
|
||
include libs/master.lib/gdc_outpw.asm
|
||
include libs/master.lib/get_machine_98.asm
|
||
include libs/master.lib/get_machine_at.asm
|
||
include libs/master.lib/get_machine_dosbox.asm
|
||
include libs/master.lib/check_machine_fmr.asm
|
||
include libs/master.lib/get_machine.asm
|
||
include libs/master.lib/gaiji_backup.asm
|
||
include libs/master.lib/gaiji_entry_bfnt.asm
|
||
include libs/master.lib/gaiji_putca.asm
|
||
include libs/master.lib/gaiji_putsa.asm
|
||
include libs/master.lib/gaiji_read.asm
|
||
include libs/master.lib/gaiji_write.asm
|
||
include libs/master.lib/graph_400line.asm
|
||
include libs/master.lib/graph_clear.asm
|
||
include libs/master.lib/graph_copy_page.asm
|
||
include libs/master.lib/graph_extmode.asm
|
||
include libs/master.lib/graph_hide.asm
|
||
include libs/master.lib/graph_pi_free.asm
|
||
include libs/master.lib/graph_pi_load_pack.asm
|
||
include libs/master.lib/graph_pack_put_8.asm
|
||
include libs/master.lib/graph_scrollup.asm
|
||
include libs/master.lib/graph_show.asm
|
||
include libs/master.lib/js_end.asm
|
||
include libs/master.lib/palette_show.asm
|
||
include libs/master.lib/pfclose.asm
|
||
include libs/master.lib/pfgetc.asm
|
||
include libs/master.lib/pfread.asm
|
||
include libs/master.lib/pfrewind.asm
|
||
include libs/master.lib/pfseek.asm
|
||
include libs/master.lib/random.asm
|
||
include libs/master.lib/rottbl.asm
|
||
include libs/master.lib/smem_release.asm
|
||
include libs/master.lib/smem_wget.asm
|
||
include libs/master.lib/soundio.asm
|
||
include libs/master.lib/text_clear.asm
|
||
include libs/master.lib/vsync.asm
|
||
include libs/master.lib/vsync_wait.asm
|
||
include libs/master.lib/palette_white_in.asm
|
||
include libs/master.lib/palette_white_out.asm
|
||
include libs/master.lib/hmem_lallocate.asm
|
||
include libs/master.lib/mem_assign_dos.asm
|
||
include libs/master.lib/mem_assign.asm
|
||
include libs/master.lib/memheap.asm
|
||
include libs/master.lib/mem_unassign.asm
|
||
include libs/master.lib/super_free.asm
|
||
include libs/master.lib/super_entry_pat.asm
|
||
include libs/master.lib/super_entry_at.asm
|
||
include libs/master.lib/super_entry_bfnt.asm
|
||
include libs/master.lib/super_cancel_pat.asm
|
||
include libs/master.lib/super_put.asm
|
||
include libs/master.lib/pfint21.asm
|
||
db 0
|
||
include libs/master.lib/js_start.asm
|
||
include th03/formats/pfopen.asm
|
||
include libs/master.lib/pf_str_ieq.asm
|
||
include libs/master.lib/js_sense.asm
|
||
include libs/master.lib/bgm_bell_org.asm
|
||
include libs/master.lib/bgm_mget.asm
|
||
include libs/master.lib/bgm_read_sdata.asm
|
||
include libs/master.lib/bgm_timer.asm
|
||
include libs/master.lib/bgm_pinit.asm
|
||
include libs/master.lib/bgm_timerhook.asm
|
||
include libs/master.lib/bgm_play.asm
|
||
include libs/master.lib/bgm_sound.asm
|
||
include libs/master.lib/bgm_effect_sound.asm
|
||
include libs/master.lib/bgm_stop_play.asm
|
||
include libs/master.lib/bgm_set_tempo.asm
|
||
include libs/master.lib/bgm_init_finish.asm
|
||
include libs/master.lib/bgm_stop_sound.asm
|
||
include libs/master.lib/graph_pack_put_8_noclip.asm
|
||
include libs/master.lib/graph_gaiji_puts.asm
|
||
include libs/master.lib/graph_gaiji_putc.asm
|
||
_TEXT ends
|
||
|
||
; ===========================================================================
|
||
|
||
CFG_LRES_TEXT segment byte public 'CODE' use16
|
||
_cfg_load_resident_ptr procdesc near
|
||
CFG_LRES_TEXT ends
|
||
|
||
; Segment type: Pure code
|
||
maine_01_TEXT segment byte public 'CODE' use16
|
||
assume cs:maine_01
|
||
;org 9
|
||
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
; int __stdcall sub_A08A(char *arg0)
|
||
sub_A08A proc near
|
||
|
||
_arg0 = dword ptr 4
|
||
|
||
push bp
|
||
mov bp, sp
|
||
call cdg_free_all
|
||
call graph_hide
|
||
call text_clear
|
||
call gaiji_restore
|
||
call _game_exit
|
||
pushd 0
|
||
pushd [bp+_arg0] ; arg0
|
||
pushd [bp+_arg0] ; path
|
||
call _execl
|
||
add sp, 0Ch
|
||
pop bp
|
||
retn 4
|
||
sub_A08A endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A0BD proc near
|
||
push bp
|
||
mov bp, sp
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.playchar_ascii]
|
||
les bx, off_E5C0
|
||
mov es:[bx+3], al
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.shottype]
|
||
add al, '0'
|
||
les bx, off_E5C0
|
||
mov es:[bx+4], al
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.end_type_ascii]
|
||
les bx, off_E5C0
|
||
mov es:[bx+5], al
|
||
push word ptr off_E5C0+2
|
||
push bx
|
||
call sub_A292
|
||
call sub_ADFC
|
||
call sub_A2D1
|
||
pop bp
|
||
retn
|
||
sub_A0BD endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
; int __cdecl main(int argc, const char **argv, const char **envp)
|
||
public _main
|
||
_main proc far
|
||
|
||
var_4 = dword ptr -4
|
||
_argc = word ptr 6
|
||
_argv = dword ptr 8
|
||
_envp = dword ptr 0Ch
|
||
|
||
enter 4, 0
|
||
mov word ptr [bp+var_4+2], ds
|
||
mov word ptr [bp+var_4], 0A8h ; '<27>'
|
||
call _cfg_load_resident_ptr
|
||
or ax, ax
|
||
jz locret_A290
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.playchar_ascii]
|
||
les bx, [bp+var_4]
|
||
mov es:[bx+4], al
|
||
mov _mem_assign_paras, MEM_ASSIGN_PARAS_MAINE
|
||
call game_init_main pascal, ds, offset aMSzlEd_dat
|
||
call gaiji_backup
|
||
push ds
|
||
push offset aGameft_bft ; "GAMEFT.bft"
|
||
call gaiji_entry_bfnt
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.bgm_mode]
|
||
mov ah, 0
|
||
push ax
|
||
mov al, es:[bx+resident_t.se_mode]
|
||
mov ah, 0
|
||
push ax
|
||
call snd_determine_modes
|
||
call graph_show
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_CONTINUED
|
||
jb loc_A1FE
|
||
call sub_A0BD
|
||
call sub_B44D
|
||
call sub_C0F8
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_1CC
|
||
jz short loc_A187
|
||
cmp es:[bx+resident_t.rank], RANK_EASY
|
||
jnz short loc_A1E9
|
||
|
||
loc_A187:
|
||
les bx, [bp+var_4]
|
||
mov al, es:[bx+5]
|
||
les bx, _resident
|
||
add al, es:[bx+resident_t.rank]
|
||
les bx, [bp+var_4]
|
||
mov es:[bx+5], al
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, word ptr [bp+var_4+2], bx
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
push 1
|
||
call palette_black_in
|
||
call input_wait_for_change pascal, 0
|
||
push 4
|
||
call palette_black_out
|
||
|
||
loc_A1E9:
|
||
kajacall KAJA_SONG_FADE, 4
|
||
push 64h ; 'd'
|
||
call frame_delay
|
||
call sub_C814
|
||
jmp loc_A281
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A1FE:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_EXTRA
|
||
jnz short loc_A274
|
||
call frame_delay pascal, 100
|
||
call sub_C814
|
||
les bx, [bp+var_4]
|
||
mov byte ptr es:[bx+5], 34h ; '4'
|
||
mov PaletteTone, 0
|
||
call far ptr palette_show
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, large [bp+var_4]
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
push 1
|
||
call palette_black_in
|
||
call input_wait_for_change pascal, 0
|
||
push 4
|
||
call palette_black_out
|
||
jmp short loc_A27E
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A274:
|
||
push 64h ; 'd'
|
||
call frame_delay
|
||
call sub_C814
|
||
|
||
loc_A27E:
|
||
call sub_C0F8
|
||
|
||
loc_A281:
|
||
kajacall KAJA_SONG_FADE, 4
|
||
push ds
|
||
push offset arg0 ; "op"
|
||
call sub_A08A
|
||
|
||
locret_A290:
|
||
leave
|
||
retf
|
||
_main endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A292 proc near
|
||
|
||
var_2 = word ptr -2
|
||
arg_0 = dword ptr 4
|
||
|
||
enter 2, 0
|
||
call sub_A2D1
|
||
pushd [bp+arg_0]
|
||
call file_ropen
|
||
or ax, ax
|
||
jnz short loc_A2AD
|
||
mov ax, 1
|
||
leave
|
||
retn 4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A2AD:
|
||
call file_size
|
||
mov [bp+var_2], ax
|
||
mov _cutscene_script_ptr, offset _cutscene_script
|
||
push ds
|
||
push _cutscene_script_ptr
|
||
push ax
|
||
call file_read
|
||
call file_close
|
||
xor ax, ax
|
||
leave
|
||
retn 4
|
||
sub_A292 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A2D1 proc near
|
||
push bp
|
||
mov bp, sp
|
||
pop bp
|
||
retn
|
||
sub_A2D1 endp
|
||
|
||
EGC_START_COPY_DEF 1, near
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A30A proc near
|
||
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
|
||
enter 4, 0
|
||
push si
|
||
push di
|
||
mov ax, [bp+arg_2]
|
||
sar ax, 3
|
||
mov dx, [bp+arg_0]
|
||
shl dx, 6
|
||
add ax, dx
|
||
mov dx, [bp+arg_0]
|
||
shl dx, 4
|
||
add ax, dx
|
||
mov si, ax
|
||
call egc_start_copy_1
|
||
xor di, di
|
||
jmp short loc_A368
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A32F:
|
||
mov [bp+var_2], 0
|
||
jmp short loc_A35E
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A336:
|
||
graph_accesspage 0
|
||
les bx, _VRAM_PLANE_B
|
||
add bx, si
|
||
mov ax, es:[bx]
|
||
mov [bp+var_4], ax
|
||
mov al, 1
|
||
out dx, al
|
||
mov bx, word ptr _VRAM_PLANE_B
|
||
add bx, si
|
||
mov ax, [bp+var_4]
|
||
mov es:[bx], ax
|
||
add [bp+var_2], 2
|
||
add si, 2
|
||
|
||
loc_A35E:
|
||
cmp [bp+var_2], 28h ; '('
|
||
jl short loc_A336
|
||
inc di
|
||
add si, 28h ; '('
|
||
|
||
loc_A368:
|
||
cmp di, 0C8h
|
||
jl short loc_A32F
|
||
call egc_off
|
||
graph_accesspage 0
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 4
|
||
sub_A30A endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A37F proc near
|
||
|
||
var_8 = dword ptr -8
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
|
||
enter 8, 0
|
||
push si
|
||
push di
|
||
mov eax, _pi_buffers
|
||
mov [bp+var_8], eax
|
||
cmp [bp+arg_2], 1
|
||
jnz short loc_A39A
|
||
add word ptr [bp+var_8], 0A0h
|
||
jmp short loc_A3B2
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A39A:
|
||
cmp [bp+arg_2], 2
|
||
jnz short loc_A3A7
|
||
add word ptr [bp+var_8], 0FA00h
|
||
jmp short loc_A3B2
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A3A7:
|
||
cmp [bp+arg_2], 3
|
||
jnz short loc_A3B2
|
||
add word ptr [bp+var_8], 0FAA0h
|
||
|
||
loc_A3B2:
|
||
mov eax, [bp+var_8]
|
||
shr eax, 10h
|
||
mov dx, word ptr [bp+var_8]
|
||
shr dx, 4
|
||
add ax, dx
|
||
mov dx, word ptr [bp+var_8]
|
||
and dx, 0Fh
|
||
mov word ptr [bp+var_8+2], ax
|
||
mov word ptr [bp+var_8], dx
|
||
graph_showpage 1
|
||
mov ax, [bp+arg_6]
|
||
sar ax, 3
|
||
mov dx, [bp+arg_4]
|
||
shl dx, 6
|
||
add ax, dx
|
||
mov dx, [bp+arg_4]
|
||
shl dx, 4
|
||
add ax, dx
|
||
mov si, ax
|
||
graph_accesspage 0
|
||
xor di, di
|
||
jmp loc_A491
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A3F7:
|
||
call graph_pack_put_8_noclip pascal, large 400, [bp+var_8], 320
|
||
call egc_start_copy_1
|
||
egc_selectpat
|
||
egc_setrop EGC_COMPAREREAD or EGC_WS_PATREG or EGC_RL_MEMREAD
|
||
outw2 EGC_BITLENGTHREG, 0Fh
|
||
mov bx, [bp+arg_0]
|
||
shl bx, 3
|
||
mov ax, di
|
||
and ax, 3
|
||
add ax, ax
|
||
add bx, ax
|
||
outw2 EGC_MASKREG, _PI_MASKS[bx]
|
||
mov [bp+var_4], 7D00h
|
||
mov [bp+var_2], 0
|
||
jmp short loc_A461
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A444:
|
||
les bx, _VRAM_PLANE_B
|
||
add bx, [bp+var_4]
|
||
mov ax, es:[bx]
|
||
mov bx, word ptr _VRAM_PLANE_B
|
||
add bx, si
|
||
mov es:[bx], ax
|
||
inc [bp+var_2]
|
||
add si, 2
|
||
add [bp+var_4], 2
|
||
|
||
loc_A461:
|
||
cmp [bp+var_2], 14h
|
||
jl short loc_A444
|
||
call egc_off
|
||
add si, 28h ; '('
|
||
add word ptr [bp+var_8], 140h
|
||
mov eax, [bp+var_8]
|
||
shr eax, 10h
|
||
mov dx, word ptr [bp+var_8]
|
||
shr dx, 4
|
||
add ax, dx
|
||
mov dx, word ptr [bp+var_8]
|
||
and dx, 0Fh
|
||
mov word ptr [bp+var_8+2], ax
|
||
mov word ptr [bp+var_8], dx
|
||
inc di
|
||
|
||
loc_A491:
|
||
cmp di, 0C8h
|
||
jl loc_A3F7
|
||
graph_showpage 0
|
||
push [bp+arg_6]
|
||
push [bp+arg_4]
|
||
call sub_A30A
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 8
|
||
sub_A37F endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A4AE proc near
|
||
|
||
var_8 = word ptr -8
|
||
var_6 = word ptr -6
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
|
||
enter 8, 0
|
||
push si
|
||
push di
|
||
call sub_A57F
|
||
graph_accesspage 0
|
||
push 3C00h
|
||
call hmem_allocbyte
|
||
mov word ptr dword_1247A+2, ax
|
||
mov word ptr dword_1247A, 0
|
||
xor si, si
|
||
mov di, 140h
|
||
mov [bp+var_4], 0
|
||
jmp loc_A573
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A4DB:
|
||
mov [bp+var_2], 50h ; 'P'
|
||
mov [bp+var_6], 0
|
||
jmp loc_A567
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A4E8:
|
||
mov ax, [bp+var_2]
|
||
sar ax, 3
|
||
mov dx, di
|
||
shl dx, 6
|
||
add ax, dx
|
||
mov dx, di
|
||
shl dx, 4
|
||
add ax, dx
|
||
mov [bp+var_8], ax
|
||
les bx, _VRAM_PLANE_B
|
||
add bx, [bp+var_8]
|
||
mov ax, es:[bx]
|
||
mov dx, si
|
||
add dx, dx
|
||
les bx, dword_1247A
|
||
add bx, dx
|
||
mov es:[bx], ax
|
||
inc si
|
||
les bx, _VRAM_PLANE_R
|
||
add bx, [bp+var_8]
|
||
mov ax, es:[bx]
|
||
mov dx, si
|
||
add dx, dx
|
||
les bx, dword_1247A
|
||
add bx, dx
|
||
mov es:[bx], ax
|
||
inc si
|
||
les bx, _VRAM_PLANE_G
|
||
add bx, [bp+var_8]
|
||
mov ax, es:[bx]
|
||
mov dx, si
|
||
add dx, dx
|
||
les bx, dword_1247A
|
||
add bx, dx
|
||
mov es:[bx], ax
|
||
inc si
|
||
les bx, _VRAM_PLANE_E
|
||
add bx, [bp+var_8]
|
||
mov ax, es:[bx]
|
||
mov dx, si
|
||
add dx, dx
|
||
les bx, dword_1247A
|
||
add bx, dx
|
||
mov es:[bx], ax
|
||
inc si
|
||
add [bp+var_6], 2
|
||
add [bp+var_2], 10h
|
||
|
||
loc_A567:
|
||
cmp [bp+var_6], 3Ch ; '<'
|
||
jl loc_A4E8
|
||
inc [bp+var_4]
|
||
inc di
|
||
|
||
loc_A573:
|
||
cmp [bp+var_4], 40h
|
||
jl loc_A4DB
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn
|
||
sub_A4AE endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A57F proc near
|
||
push bp
|
||
mov bp, sp
|
||
cmp dword_1247A, 0
|
||
jz short loc_A59C
|
||
push word ptr dword_1247A+2
|
||
call hmem_free
|
||
mov dword_1247A, 0
|
||
|
||
loc_A59C:
|
||
pop bp
|
||
retn
|
||
sub_A57F endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A59E proc near
|
||
|
||
var_6 = word ptr -6
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
|
||
enter 6, 0
|
||
push si
|
||
push di
|
||
xor cx, cx
|
||
mov si, 140h
|
||
mov [bp+var_4], 0
|
||
jmp loc_A641
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A5B1:
|
||
mov [bp+var_2], 50h ; 'P'
|
||
mov [bp+var_6], 0
|
||
jmp short loc_A637
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A5BD:
|
||
mov ax, [bp+var_2]
|
||
sar ax, 3
|
||
mov dx, si
|
||
shl dx, 6
|
||
add ax, dx
|
||
mov dx, si
|
||
shl dx, 4
|
||
add ax, dx
|
||
mov di, ax
|
||
mov ax, cx
|
||
add ax, ax
|
||
les bx, dword_1247A
|
||
add bx, ax
|
||
mov ax, es:[bx]
|
||
les bx, _VRAM_PLANE_B
|
||
add bx, di
|
||
mov es:[bx], ax
|
||
inc cx
|
||
mov ax, cx
|
||
add ax, ax
|
||
les bx, dword_1247A
|
||
add bx, ax
|
||
mov ax, es:[bx]
|
||
les bx, _VRAM_PLANE_R
|
||
add bx, di
|
||
mov es:[bx], ax
|
||
inc cx
|
||
mov ax, cx
|
||
add ax, ax
|
||
les bx, dword_1247A
|
||
add bx, ax
|
||
mov ax, es:[bx]
|
||
les bx, _VRAM_PLANE_G
|
||
add bx, di
|
||
mov es:[bx], ax
|
||
inc cx
|
||
mov ax, cx
|
||
add ax, ax
|
||
les bx, dword_1247A
|
||
add bx, ax
|
||
mov ax, es:[bx]
|
||
les bx, _VRAM_PLANE_E
|
||
add bx, di
|
||
mov es:[bx], ax
|
||
inc cx
|
||
add [bp+var_6], 2
|
||
add [bp+var_2], 10h
|
||
|
||
loc_A637:
|
||
cmp [bp+var_6], 3Ch ; '<'
|
||
jl short loc_A5BD
|
||
inc [bp+var_4]
|
||
inc si
|
||
|
||
loc_A641:
|
||
cmp [bp+var_4], 40h
|
||
jl loc_A5B1
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn
|
||
sub_A59E endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A64D proc near
|
||
|
||
var_2 = byte ptr -2
|
||
var_1 = byte ptr -1
|
||
arg_0 = dword ptr 4
|
||
|
||
enter 2, 0
|
||
mov bx, _cutscene_script_ptr
|
||
mov cl, [bx]
|
||
inc _cutscene_script_ptr
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+var_1], al
|
||
inc _cutscene_script_ptr
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+var_2], al
|
||
inc _cutscene_script_ptr
|
||
mov al, cl
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_DIG
|
||
jnz short loc_A694
|
||
les bx, [bp+arg_0]
|
||
mov ax, word_124C4
|
||
mov es:[bx], ax
|
||
sub _cutscene_script_ptr, 3
|
||
leave
|
||
retn 4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A694:
|
||
mov al, [bp+var_1]
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_DIG
|
||
jnz short loc_A6B8
|
||
mov al, cl
|
||
mov ah, 0
|
||
add ax, 0FFD0h
|
||
les bx, [bp+arg_0]
|
||
mov es:[bx], ax
|
||
sub _cutscene_script_ptr, 2
|
||
leave
|
||
retn 4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A6B8:
|
||
mov al, [bp+var_2]
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_DIG
|
||
jnz short loc_A6E8
|
||
mov al, cl
|
||
mov ah, 0
|
||
add ax, 0FFD0h
|
||
imul ax, 0Ah
|
||
mov dl, [bp+var_1]
|
||
mov dh, 0
|
||
add ax, dx
|
||
add ax, 0FFD0h
|
||
les bx, [bp+arg_0]
|
||
mov es:[bx], ax
|
||
dec _cutscene_script_ptr
|
||
leave
|
||
retn 4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A6E8:
|
||
mov al, cl
|
||
mov ah, 0
|
||
add ax, 0FFD0h
|
||
imul ax, 64h
|
||
mov dl, [bp+var_1]
|
||
mov dh, 0
|
||
add dx, 0FFD0h
|
||
imul dx, 0Ah
|
||
add ax, dx
|
||
mov dl, [bp+var_2]
|
||
mov dh, 0
|
||
add ax, dx
|
||
add ax, 0FFD0h
|
||
les bx, [bp+arg_0]
|
||
mov es:[bx], ax
|
||
leave
|
||
retn 4
|
||
sub_A64D endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A713 proc near
|
||
|
||
arg_0 = dword ptr 4
|
||
|
||
push bp
|
||
mov bp, sp
|
||
mov bx, _cutscene_script_ptr
|
||
cmp byte ptr [bx], ','
|
||
jnz short loc_A72E
|
||
inc _cutscene_script_ptr
|
||
pushd [bp+arg_0]
|
||
call sub_A64D
|
||
pop bp
|
||
retn 4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A72E:
|
||
les bx, [bp+arg_0]
|
||
mov ax, word_124C4
|
||
mov es:[bx], ax
|
||
pop bp
|
||
retn 4
|
||
sub_A713 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A73B proc near
|
||
push bp
|
||
mov bp, sp
|
||
add point_124BC.x, 16
|
||
cmp point_124BC.x, 560
|
||
jl short loc_A78D
|
||
add point_124BC.y, 16
|
||
mov point_124BC.x, 144
|
||
cmp point_124BC.y, 384
|
||
jl short loc_A78D
|
||
call sub_A815
|
||
cmp byte_1247E, 0
|
||
jnz short loc_A76F
|
||
call input_wait_for_change pascal, 0
|
||
|
||
loc_A76F:
|
||
mov point_124BC.x, 80
|
||
mov point_124BC.y, 320
|
||
graph_accesspage 1
|
||
call sub_A59E
|
||
graph_accesspage 0
|
||
call sub_A59E
|
||
|
||
loc_A78D:
|
||
pop bp
|
||
retn
|
||
sub_A73B endp
|
||
maine_01_TEXT ends
|
||
|
||
maine_01__TEXT segment byte public 'CODE' use16
|
||
@BOX_1_TO_0_MASKED$Q10BOX_MASK_T procdesc pascal near \
|
||
mask:word
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A815 proc near
|
||
push bp
|
||
mov bp, sp
|
||
push si
|
||
call egc_start_copy_1
|
||
cmp byte_1247E, 0
|
||
jnz short loc_A83A
|
||
xor si, si
|
||
jmp short loc_A835
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A827:
|
||
call @box_1_to_0_masked$q10box_mask_t pascal, si
|
||
push word_124C0
|
||
call frame_delay
|
||
inc si
|
||
|
||
loc_A835:
|
||
cmp si, 4
|
||
jl short loc_A827
|
||
|
||
loc_A83A:
|
||
call @box_1_to_0_masked$q10box_mask_t pascal, 4
|
||
call egc_off
|
||
pop si
|
||
pop bp
|
||
retn
|
||
sub_A815 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_A847 proc near
|
||
|
||
var_16 = byte ptr -16h
|
||
var_6 = word ptr -6
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
arg_0 = byte ptr 4
|
||
|
||
enter 16h, 0
|
||
push si
|
||
mov al, [bp+arg_0]
|
||
mov ah, 0
|
||
push ax ; ch
|
||
call _tolower
|
||
pop cx
|
||
mov [bp+arg_0], al
|
||
mov ah, 0
|
||
mov [bp+var_6], ax
|
||
mov cx, 10h ; switch 16 cases
|
||
mov bx, offset word_ADBC
|
||
|
||
loc_A866:
|
||
mov ax, cs:[bx]
|
||
cmp ax, [bp+var_6]
|
||
jz short loc_A876
|
||
add bx, 2
|
||
loop loc_A866
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A876:
|
||
jmp word ptr cs:[bx+20h] ; switch jump
|
||
|
||
loc_A87A:
|
||
add point_124BC.y, 16 ; jumptable 0000A876 case 110
|
||
mov point_124BC.x, 80
|
||
cmp point_124BC.y, 384
|
||
jl loc_ADB5 ; default
|
||
|
||
loc_A88F:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 115
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
call sub_A815
|
||
cmp [bp+arg_0], '-'
|
||
jz short loc_A8C0
|
||
mov word_124C4, 0
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp byte_1247E, 0
|
||
jnz short loc_A8C4
|
||
call input_wait_for_change pascal, [bp+var_2]
|
||
jmp short loc_A8C4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A8C0:
|
||
inc _cutscene_script_ptr
|
||
|
||
loc_A8C4:
|
||
mov point_124BC.x, 80
|
||
mov point_124BC.y, 320
|
||
graph_accesspage 1
|
||
call sub_A59E
|
||
graph_accesspage 0
|
||
call sub_A59E
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A8E5:
|
||
mov word_124C4, 0Fh ; jumptable 0000A876 case 99
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov al, byte ptr [bp+var_2]
|
||
mov col_124C2, al
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A8FC:
|
||
mov word_124C4, 2 ; jumptable 0000A876 case 98
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov ax, [bp+var_2]
|
||
mov _graph_putsa_fx_func, ax
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A913:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 119
|
||
mov al, [bx]
|
||
mov ah, 0
|
||
push ax ; ch
|
||
call _tolower
|
||
pop cx
|
||
mov [bp+arg_0], al
|
||
cmp [bp+arg_0], 'o'
|
||
jz short loc_A931
|
||
cmp [bp+arg_0], 'i'
|
||
jnz short loc_A95F
|
||
|
||
loc_A931:
|
||
inc _cutscene_script_ptr
|
||
mov word_124C4, 1
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp [bp+arg_0], 'i'
|
||
jnz short loc_A954
|
||
push [bp+var_2]
|
||
call palette_white_in
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A954:
|
||
push [bp+var_2]
|
||
call palette_white_out
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A95F:
|
||
call sub_A815
|
||
mov word_124C4, 40h
|
||
cmp [bp+arg_0], 'm'
|
||
jz short loc_A994
|
||
cmp [bp+arg_0], 'k'
|
||
jnz short loc_A978
|
||
inc _cutscene_script_ptr
|
||
|
||
loc_A978:
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp byte_1247E, 0
|
||
jnz loc_ADB5 ; default
|
||
push [bp+var_2]
|
||
call frame_delay
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A994:
|
||
inc _cutscene_script_ptr
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
cmp [bp+arg_0], 'k'
|
||
jnz short loc_A9AB
|
||
inc _cutscene_script_ptr
|
||
|
||
loc_A9AB:
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
push ss
|
||
lea ax, [bp+var_4]
|
||
push ax
|
||
call sub_A713
|
||
cmp byte_1247E, 0
|
||
jnz loc_ADB5 ; default
|
||
push [bp+var_2]
|
||
push [bp+var_4]
|
||
call snd_delay_until_measure
|
||
jmp loc_ACFF
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A9D2:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 118
|
||
cmp byte ptr [bx], 'p'
|
||
jz short loc_A9F2
|
||
mov word_124C4, 1
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov ax, [bp+var_2]
|
||
mov word_124C0, ax
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_A9F2:
|
||
inc _cutscene_script_ptr
|
||
mov word_124C4, 0
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
graph_showpage byte ptr [bp+var_2]
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AA0E:
|
||
mov word_124C4, 64h ; 'd' ; jumptable 0000A876 case 116
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp byte_1247E, 0
|
||
jnz short loc_AA2A
|
||
push 1
|
||
call frame_delay
|
||
|
||
loc_AA2A:
|
||
mov ax, [bp+var_2]
|
||
mov PaletteTone, ax
|
||
call far ptr palette_show
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AA38:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 102
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
cmp [bp+arg_0], 'm'
|
||
jz short loc_AA83
|
||
cmp [bp+arg_0], 'i'
|
||
jz short loc_AA55
|
||
cmp [bp+arg_0], 'o'
|
||
jnz loc_ADB5 ; default
|
||
|
||
loc_AA55:
|
||
inc _cutscene_script_ptr
|
||
mov word_124C4, 1
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp [bp+arg_0], 'i'
|
||
jnz short loc_AA78
|
||
push [bp+var_2]
|
||
call palette_black_in
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AA78:
|
||
push [bp+var_2]
|
||
call palette_black_out
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AA83:
|
||
inc _cutscene_script_ptr
|
||
mov word_124C4, 1
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov ax, [bp+var_2]
|
||
add ax, 200h
|
||
push ax
|
||
jmp loc_AD26
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AA9F:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 103
|
||
cmp byte ptr [bx], 'a'
|
||
jz short loc_AAF2
|
||
mov word_124C4, 8
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov [bp+var_4], 0
|
||
jmp short loc_AAE0
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AABD:
|
||
test byte ptr [bp+var_4], 1
|
||
jz short loc_AAC7
|
||
push 4
|
||
jmp short loc_AACA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AAC7:
|
||
push RES_Y - 4
|
||
|
||
loc_AACA:
|
||
call graph_scrollup
|
||
cmp byte_1247E, 0
|
||
jnz short loc_AADD
|
||
push 1
|
||
call frame_delay
|
||
|
||
loc_AADD:
|
||
inc [bp+var_4]
|
||
|
||
loc_AAE0:
|
||
mov ax, [bp+var_4]
|
||
cmp ax, [bp+var_2]
|
||
jle short loc_AABD
|
||
call graph_scrollup pascal, 0
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AAF2:
|
||
inc _cutscene_script_ptr
|
||
mov word_124C4, 0
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
graph_accesspage 1
|
||
push point_124BC.x
|
||
push point_124BC.y
|
||
push [bp+var_2]
|
||
mov al, col_124C2
|
||
mov ah, 0
|
||
push ax
|
||
call graph_gaiji_putc
|
||
call sub_A73B
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AB26:
|
||
mov word_124C4, 0 ; jumptable 0000A876 case 107
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
cmp byte_1247E, 0
|
||
jnz loc_ADB5 ; default
|
||
call input_wait_for_change pascal, [bp+var_2]
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AB48:
|
||
graph_accesspage 1 ; jumptable 0000A876 case 64
|
||
call graph_clear
|
||
graph_accesspage 0
|
||
call graph_clear
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AB61:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 112
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
inc _cutscene_script_ptr
|
||
cmp [bp+arg_0], '='
|
||
jz short loc_AB7A
|
||
cmp [bp+arg_0], '@'
|
||
jnz short loc_ABAA
|
||
|
||
loc_AB7A:
|
||
graph_accesspage 1
|
||
cmp [bp+arg_0], '='
|
||
jnz short loc_AB8D
|
||
call pi_palette_apply pascal, 0
|
||
|
||
loc_AB8D:
|
||
call pi_put_8 pascal, large 0, 0
|
||
call graph_copy_page pascal, 0
|
||
graph_accesspage 0
|
||
call sub_A4AE
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ABAA:
|
||
cmp [bp+arg_0], '-'
|
||
jnz short loc_ABC1
|
||
freePISlotLarge 0
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ABC1:
|
||
cmp [bp+arg_0], 'p'
|
||
jnz short loc_ABD1
|
||
call pi_palette_apply pascal, 0
|
||
jmp loc_AD2B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ABD1:
|
||
cmp [bp+arg_0], ','
|
||
jz short loc_ABDE
|
||
dec _cutscene_script_ptr
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ABDE:
|
||
mov [bp+var_2], 0
|
||
jmp short loc_AC12
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ABE5:
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
inc _cutscene_script_ptr
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_CTL
|
||
jnz short loc_AC18
|
||
cmp [bp+arg_0], ' '
|
||
jz short loc_AC18
|
||
lea bx, [bp+var_16]
|
||
add bx, [bp+var_2]
|
||
mov al, [bp+arg_0]
|
||
mov ss:[bx], al
|
||
inc [bp+var_2]
|
||
|
||
loc_AC12:
|
||
cmp [bp+var_2], 0Ch
|
||
jl short loc_ABE5
|
||
|
||
loc_AC18:
|
||
lea bx, [bp+var_16]
|
||
add bx, [bp+var_2]
|
||
mov byte ptr ss:[bx], 0
|
||
freePISlotLarge 0
|
||
push 0
|
||
push ss
|
||
lea ax, [bp+var_16]
|
||
push ax
|
||
call pi_load
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AC3F:
|
||
mov word_124C4, 4 ; jumptable 0000A876 case 61
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
cmp [bp+arg_0], '='
|
||
jz short loc_AC94
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
graph_showpage 1
|
||
graph_accesspage 0
|
||
cmp [bp+var_2], 4
|
||
jge short loc_AC70
|
||
jmp short loc_ACE0
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AC70:
|
||
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
|
||
call grcg_byteboxfill_x pascal, ((160 / 8) shl 16) or 64, ((472 / 8) shl 16) or 263
|
||
GRCG_OFF_CLOBBERING dx
|
||
jmp short loc_ACF0
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AC94:
|
||
inc _cutscene_script_ptr
|
||
push ss
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
mov word_124C4, 1
|
||
push ss
|
||
lea ax, [bp+var_4]
|
||
push ax
|
||
call sub_A713
|
||
xor si, si
|
||
jmp short loc_ACCF
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ACB2:
|
||
push 0A00040h
|
||
push [bp+var_2]
|
||
push si
|
||
call sub_A37F
|
||
cmp byte_1247E, 0
|
||
jnz short loc_ACCE
|
||
push [bp+var_4]
|
||
call frame_delay
|
||
|
||
loc_ACCE:
|
||
inc si
|
||
|
||
loc_ACCF:
|
||
cmp si, 4
|
||
jl short loc_ACB2
|
||
graph_showpage 1
|
||
graph_accesspage 0
|
||
|
||
loc_ACE0:
|
||
call pi_put_quarter_8 pascal, (160 shl 16) + 64, 0, [bp+var_2]
|
||
|
||
loc_ACF0:
|
||
graph_showpage 0
|
||
push 0A00040h
|
||
call sub_A30A
|
||
|
||
loc_ACFF:
|
||
jmp loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AD02:
|
||
mov bx, _cutscene_script_ptr ; jumptable 0000A876 case 109
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
cmp [bp+arg_0], '$'
|
||
jnz short loc_AD1A
|
||
inc _cutscene_script_ptr
|
||
push (KAJA_SONG_STOP shl 8)
|
||
jmp short loc_AD26
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AD1A:
|
||
cmp [bp+arg_0], '*'
|
||
jnz short loc_AD2E
|
||
inc _cutscene_script_ptr
|
||
|
||
loc_AD24:
|
||
push (KAJA_SONG_PLAY shl 8)
|
||
|
||
loc_AD26:
|
||
call snd_kaja_interrupt
|
||
|
||
loc_AD2B:
|
||
; Hack
|
||
db 0e9h
|
||
db 087h
|
||
db 000h
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AD2E:
|
||
cmp [bp+arg_0], ','
|
||
; Hack
|
||
db 00fh
|
||
db 085h
|
||
db 07fh
|
||
db 000h
|
||
inc _cutscene_script_ptr
|
||
mov [bp+var_2], 0
|
||
jmp short loc_AD6E
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AD41:
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+arg_0], al
|
||
inc _cutscene_script_ptr
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_CTL
|
||
jnz short loc_AD74
|
||
cmp [bp+arg_0], ' '
|
||
jz short loc_AD74
|
||
lea bx, [bp+var_16]
|
||
add bx, [bp+var_2]
|
||
mov al, [bp+arg_0]
|
||
mov ss:[bx], al
|
||
inc [bp+var_2]
|
||
|
||
loc_AD6E:
|
||
cmp [bp+var_2], 0Ch
|
||
jl short loc_AD41
|
||
|
||
loc_AD74:
|
||
lea bx, [bp+var_16]
|
||
add bx, [bp+var_2]
|
||
mov byte ptr ss:[bx], 0
|
||
kajacall KAJA_SONG_STOP
|
||
push ss
|
||
lea ax, [bp+var_16]
|
||
push ax
|
||
push SND_LOAD_SONG
|
||
call snd_load
|
||
jmp short loc_AD24
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AD95:
|
||
push ss ; jumptable 0000A876 case 101
|
||
lea ax, [bp+var_2]
|
||
push ax
|
||
call sub_A64D
|
||
call _snd_se_reset
|
||
call snd_se_play pascal, [bp+var_2]
|
||
call _snd_se_update
|
||
jmp short loc_ADB5 ; default
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ADB1:
|
||
mov al, -1 ; jumptable 0000A876 case 36
|
||
jmp short loc_ADB7
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_ADB5:
|
||
mov al, 0 ; default
|
||
|
||
loc_ADB7:
|
||
pop si
|
||
leave
|
||
retn 2
|
||
sub_A847 endp
|
||
|
||
; ---------------------------------------------------------------------------
|
||
word_ADBC dw 24h, 3Dh, 40h, 62h
|
||
dw 63h, 65h, 66h, 67h ; value table for switch statement
|
||
dw 6Bh, 6Dh, 6Eh, 70h
|
||
dw 73h, 74h, 76h, 77h
|
||
dw offset loc_ADB1 ; jump table for switch statement
|
||
dw offset loc_AC3F
|
||
dw offset loc_AB48
|
||
dw offset loc_A8FC
|
||
dw offset loc_A8E5
|
||
dw offset loc_AD95
|
||
dw offset loc_AA38
|
||
dw offset loc_AA9F
|
||
dw offset loc_AB26
|
||
dw offset loc_AD02
|
||
dw offset loc_A87A
|
||
dw offset loc_AB61
|
||
dw offset loc_A88F
|
||
dw offset loc_AA0E
|
||
dw offset loc_A9D2
|
||
dw offset loc_A913
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_ADFC proc near
|
||
|
||
var_6 = dword ptr -6
|
||
var_1 = byte ptr -1
|
||
|
||
enter 6, 0
|
||
mov word ptr [bp+var_6+2], ds
|
||
mov word ptr [bp+var_6], offset asc_EB84
|
||
mov point_124BC.x, 80
|
||
mov point_124BC.y, 320
|
||
mov word_124C0, 1
|
||
mov col_124C2, 15
|
||
mov _graph_putsa_fx_func, FX_WEIGHT_BOLD
|
||
call sub_A4AE
|
||
mov byte_1247E, 0
|
||
|
||
loc_AE2D:
|
||
call far ptr _input_reset_sense
|
||
test _key_det.hi, high INPUT_CANCEL
|
||
jz short loc_AE40
|
||
mov byte_1247E, 1
|
||
jmp short loc_AE45
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AE40:
|
||
mov byte_1247E, 0
|
||
|
||
loc_AE45:
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+var_1], al
|
||
inc _cutscene_script_ptr
|
||
mov ah, 0
|
||
mov bx, ax
|
||
test (__ctype + 1)[bx], _IS_CTL
|
||
jnz short loc_AE2D
|
||
cmp [bp+var_1], ' '
|
||
jz short loc_AE2D
|
||
cmp [bp+var_1], '\'
|
||
jnz short loc_AE82
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+var_1], al
|
||
inc _cutscene_script_ptr
|
||
push word ptr [bp+var_1]
|
||
call sub_A847
|
||
cmp al, -1
|
||
jnz short loc_AE2D
|
||
jmp short loc_AEC8
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AE82:
|
||
les bx, [bp+var_6]
|
||
mov al, [bp+var_1]
|
||
mov es:[bx], al
|
||
mov bx, _cutscene_script_ptr
|
||
mov al, [bx]
|
||
mov [bp+var_1], al
|
||
mov bx, word ptr [bp+var_6]
|
||
mov es:[bx+1], al
|
||
inc _cutscene_script_ptr
|
||
graph_showpage 0
|
||
graph_accesspage 1
|
||
push point_124BC.x
|
||
push point_124BC.y
|
||
mov al, col_124C2
|
||
mov ah, 0
|
||
push ax
|
||
push word ptr [bp+var_6+2]
|
||
push bx
|
||
call graph_putsa_fx
|
||
call sub_A73B
|
||
jmp loc_AE2D
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AEC8:
|
||
call sub_A59E
|
||
call sub_A57F
|
||
leave
|
||
retn
|
||
sub_ADFC endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_AED0 proc near
|
||
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_0]
|
||
or si, si
|
||
jnz short loc_AEF1
|
||
push [bp+arg_4]
|
||
push [bp+arg_2]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
push ax
|
||
call cdg_put_8
|
||
jmp loc_B027
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_AEF1:
|
||
call grcg_setcolor pascal, (GC_RMW shl 16) + 15
|
||
mov bx, 4
|
||
mov ax, si
|
||
cwd
|
||
idiv bx
|
||
mov si, ax
|
||
push [bp+arg_4]
|
||
push ax
|
||
mov al, angle_124C7
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _CosTable8[bx]
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
push si
|
||
mov al, angle_124C7
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _SinTable8[bx]
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 0
|
||
call cdg_put_plane
|
||
mov al, angle_124C7
|
||
add al, 40h
|
||
mov angle_124C7, al
|
||
push [bp+arg_4]
|
||
push si
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _CosTable8[bx]
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
push si
|
||
mov al, angle_124C7
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _SinTable8[bx]
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 1
|
||
call cdg_put_plane
|
||
mov al, angle_124C7
|
||
add al, 40h
|
||
mov angle_124C7, al
|
||
push [bp+arg_4]
|
||
push si
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _CosTable8[bx]
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
push si
|
||
mov al, angle_124C7
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _SinTable8[bx]
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 2
|
||
call cdg_put_plane
|
||
mov al, angle_124C7
|
||
add al, 40h
|
||
mov angle_124C7, al
|
||
push [bp+arg_4]
|
||
push si
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _CosTable8[bx]
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
push si
|
||
mov al, angle_124C7
|
||
mov ah, 0
|
||
add ax, ax
|
||
mov bx, ax
|
||
push _SinTable8[bx]
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 3
|
||
call cdg_put_plane
|
||
mov al, angle_124C7
|
||
add al, 40h
|
||
mov angle_124C7, al
|
||
GRCG_OFF_CLOBBERING dx
|
||
|
||
loc_B027:
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_AED0 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B02D proc near
|
||
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_0]
|
||
or si, si
|
||
jnz short loc_B04E
|
||
push [bp+arg_4]
|
||
push [bp+arg_2]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
push ax
|
||
call cdg_put_8
|
||
jmp loc_B13E
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B04E:
|
||
call grcg_setcolor pascal, (GC_RMW shl 16) + 15
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
mov si, ax
|
||
push [bp+arg_4]
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+192
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+64
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 0
|
||
call cdg_put_plane
|
||
call vector1_at pascal, [bp+arg_4], si, _CosTable8+128
|
||
mov di, ax
|
||
call vector1_at pascal, [bp+arg_2], si, _CosTable8
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 1
|
||
call cdg_put_plane
|
||
push [bp+arg_4]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+448
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+320
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 2
|
||
call cdg_put_plane
|
||
call vector1_at pascal, [bp+arg_4], si, _CosTable8+384
|
||
mov di, ax
|
||
call vector1_at pascal, [bp+arg_2], si, _CosTable8+256
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 3
|
||
call cdg_put_plane
|
||
GRCG_OFF_CLOBBERING dx
|
||
|
||
loc_B13E:
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_B02D endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B144 proc near
|
||
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_0]
|
||
or si, si
|
||
jnz short loc_B165
|
||
push [bp+arg_4]
|
||
push [bp+arg_2]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
push ax
|
||
call cdg_put_8
|
||
jmp loc_B255
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B165:
|
||
call grcg_setcolor pascal, (GC_RMW shl 16) + 15
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
mov si, ax
|
||
push [bp+arg_4]
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _SinTable8
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 0
|
||
call cdg_put_plane
|
||
call vector1_at pascal, [bp+arg_4], si, _CosTable8
|
||
mov di, ax
|
||
call vector1_at pascal, [bp+arg_2], si, _SinTable8
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 1
|
||
call cdg_put_plane
|
||
push [bp+arg_4]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+256
|
||
call vector1_at
|
||
mov di, ax
|
||
push [bp+arg_2]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
push ax
|
||
push _CosTable8+128
|
||
call vector1_at
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 2
|
||
call cdg_put_plane
|
||
call vector1_at pascal, [bp+arg_4], si, _CosTable8+256
|
||
mov di, ax
|
||
call vector1_at pascal, [bp+arg_2], si, _CosTable8+128
|
||
mov [bp+var_2], ax
|
||
push di
|
||
push ax
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
inc ax
|
||
push ax
|
||
push 3
|
||
call cdg_put_plane
|
||
GRCG_OFF_CLOBBERING dx
|
||
|
||
loc_B255:
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_B144 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B25B proc near
|
||
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
arg_8 = word ptr 0Ch
|
||
|
||
push bp
|
||
mov bp, sp
|
||
push si
|
||
mov si, [bp+arg_0]
|
||
mov ax, si
|
||
cwd
|
||
sub ax, dx
|
||
sar ax, 1
|
||
mov si, ax
|
||
mov ax, [bp+arg_8]
|
||
sub ax, si
|
||
push ax
|
||
mov ax, [bp+arg_6]
|
||
sub ax, si
|
||
push ax
|
||
mov ax, si
|
||
add ax, ax
|
||
add ax, [bp+arg_4]
|
||
push ax
|
||
mov ax, si
|
||
add ax, ax
|
||
add ax, [bp+arg_2]
|
||
push ax
|
||
call bgimage_put_rect
|
||
pop si
|
||
pop bp
|
||
retn 0Ah
|
||
sub_B25B endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B291 proc near
|
||
|
||
@@page = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov di, [bp+arg_2]
|
||
mov si, 3Fh ; '?'
|
||
mov [bp+@@page], 0
|
||
graph_accesspage 0
|
||
mov dx, 164 ; Port 00A4h: Page display register
|
||
mov al, 1
|
||
jmp short loc_B30B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B2AF:
|
||
push di
|
||
push [bp+arg_0]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
shl ax, 4
|
||
mov bx, ax
|
||
push _cdg_slots.pixel_w[bx]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
shl ax, 4
|
||
mov bx, ax
|
||
push _cdg_slots.pixel_h[bx]
|
||
lea ax, [si+1]
|
||
push ax
|
||
call sub_B25B
|
||
dec si
|
||
mov al, angle_124C7
|
||
add al, 8
|
||
mov angle_124C7, al
|
||
push di
|
||
push [bp+arg_0]
|
||
push si
|
||
call fp_124C8
|
||
|
||
loc_B2E8:
|
||
cmp vsync_Count1, 2
|
||
jb short loc_B2E8
|
||
mov vsync_Count1, 0
|
||
graph_showpage byte ptr [bp+@@page]
|
||
mov ax, 1
|
||
sub ax, [bp+@@page]
|
||
mov [bp+@@page], ax
|
||
mov dx, 166 ; Port 00A6h: Page access register
|
||
mov al, byte ptr [bp+@@page]
|
||
|
||
loc_B30B:
|
||
out dx, al
|
||
or si, si
|
||
jg short loc_B2AF
|
||
call graph_copy_page pascal, [bp+@@page]
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 4
|
||
sub_B291 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B31E proc near
|
||
|
||
@@page = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov di, [bp+arg_2]
|
||
xor si, si
|
||
mov [bp+@@page], 0
|
||
graph_accesspage 0
|
||
mov dx, 164 ; Port 00A4h: Page display register
|
||
mov al, 1
|
||
|
||
loc_B339:
|
||
out dx, al
|
||
push di
|
||
push [bp+arg_0]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
shl ax, 4
|
||
mov bx, ax
|
||
push _cdg_slots.pixel_w[bx]
|
||
mov al, byte_124C6
|
||
mov ah, 0
|
||
shl ax, 4
|
||
mov bx, ax
|
||
push _cdg_slots.pixel_h[bx]
|
||
push si
|
||
call sub_B25B
|
||
inc si
|
||
mov al, angle_124C7
|
||
add al, 8
|
||
mov angle_124C7, al
|
||
cmp si, 40h
|
||
jge short loc_B39A
|
||
push di
|
||
push [bp+arg_0]
|
||
push si
|
||
call fp_124C8
|
||
|
||
loc_B375:
|
||
cmp vsync_Count1, 2
|
||
jb short loc_B375
|
||
mov vsync_Count1, 0
|
||
graph_showpage byte ptr [bp+@@page]
|
||
mov ax, 1
|
||
sub ax, [bp+@@page]
|
||
mov [bp+@@page], ax
|
||
mov dx, 166 ; Port 00A6h: Page access register
|
||
mov al, byte ptr [bp+@@page]
|
||
jmp short loc_B339
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B39A:
|
||
mov ax, 1
|
||
sub ax, [bp+@@page]
|
||
call graph_copy_page pascal, ax
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 4
|
||
sub_B31E endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B3AC proc near
|
||
|
||
@@page = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov di, [bp+arg_6]
|
||
xor si, si
|
||
mov [bp+@@page], 0
|
||
graph_accesspage 0
|
||
mov dx, 164 ; Port 00A4h: Page display register
|
||
mov al, 1
|
||
|
||
loc_B3C7:
|
||
out dx, al
|
||
push di
|
||
push [bp+arg_4]
|
||
push _cdg_slots.pixel_w + (size cdg_t * 2)
|
||
push _cdg_slots.pixel_h + (size cdg_t * 2)
|
||
push si
|
||
call sub_B25B
|
||
push [bp+arg_2]
|
||
push [bp+arg_0]
|
||
push _cdg_slots.pixel_w + (size cdg_t * 0)
|
||
push _cdg_slots.pixel_h + (size cdg_t * 0)
|
||
push si
|
||
call sub_B25B
|
||
inc si
|
||
mov al, angle_124C7
|
||
add al, -8
|
||
mov angle_124C7, al
|
||
cmp si, 40h
|
||
jge short loc_B43B
|
||
mov byte_124C6, 2
|
||
push di
|
||
push [bp+arg_4]
|
||
push si
|
||
call fp_124C8
|
||
mov byte_124C6, 0
|
||
push [bp+arg_2]
|
||
push [bp+arg_0]
|
||
push si
|
||
call fp_124C8
|
||
|
||
loc_B416:
|
||
cmp vsync_Count1, 2
|
||
jb short loc_B416
|
||
mov vsync_Count1, 0
|
||
graph_showpage byte ptr [bp+@@page]
|
||
mov ax, 1
|
||
sub ax, [bp+@@page]
|
||
mov [bp+@@page], ax
|
||
mov dx, 166 ; Port 00A6h: Page access register
|
||
mov al, byte ptr [bp+@@page]
|
||
jmp short loc_B3C7
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B43B:
|
||
mov ax, 1
|
||
sub ax, [bp+@@page]
|
||
call graph_copy_page pascal, ax
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 8
|
||
sub_B3AC endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B44D proc near
|
||
push bp
|
||
mov bp, sp
|
||
mov PaletteTone, 0
|
||
call far ptr palette_show
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, ds, offset aSff1_pi
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
call _bgimage_snap
|
||
kajacall KAJA_SONG_STOP
|
||
call snd_load pascal, ds, offset aStaff, SND_LOAD_SONG
|
||
kajacall KAJA_SONG_PLAY
|
||
push 0Ch
|
||
call palette_black_in
|
||
call cdg_load_single pascal, 0, ds, offset aSff1_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 1, ds, offset aSff1b_cdg, 0
|
||
push 30040h
|
||
call snd_delay_until_measure
|
||
mov byte_124C6, 0
|
||
mov fp_124C8, offset sub_AED0
|
||
push 16000A0h
|
||
call sub_B291
|
||
call cdg_load_single pascal, 2, ds, offset aSff2_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 3, ds, offset aSff2b_cdg, 0
|
||
push 700A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_B02D
|
||
push 16000A0h
|
||
call sub_B31E
|
||
mov byte_124C6, 2
|
||
mov fp_124C8, offset sub_B144
|
||
push 0C00080h
|
||
call sub_B291
|
||
graph_accesspage 0
|
||
mov byte_124C6, 0
|
||
call cdg_load_single pascal, 0, ds, offset aSff3_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 1, ds, offset aSff3b_cdg, 0
|
||
push 0B00A0h
|
||
call snd_delay_until_measure
|
||
push 12000C8h
|
||
call sub_B291
|
||
push 1300A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_B02D
|
||
push 0C00080h
|
||
push 12000C8h
|
||
call sub_B3AC
|
||
push 4
|
||
call palette_black_out
|
||
call cdg_free_all
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, ds, offset aSff2_pi
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
call _bgimage_snap
|
||
push 4
|
||
call palette_black_in
|
||
call cdg_load_single pascal, 2, ds, offset aSff4_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 3, ds, offset aSff4b_cdg, 0
|
||
push 1700A0h
|
||
call snd_delay_until_measure
|
||
mov byte_124C6, 2
|
||
mov fp_124C8, offset sub_B144
|
||
push 200070h
|
||
call sub_B291
|
||
call cdg_free pascal, 2
|
||
call cdg_load_single pascal, 4, ds, offset aSff5_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 5, ds, offset aSff5b_cdg, 0
|
||
push 1B00A0h
|
||
call snd_delay_until_measure
|
||
mov byte_124C6, 4
|
||
mov fp_124C8, offset sub_B02D
|
||
push 2000B8h
|
||
call sub_B291
|
||
call cdg_load_single pascal, 0, ds, offset aSff8_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 1, ds, offset aSff8b_cdg, 0
|
||
push 1F00A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_B144
|
||
push 2000B8h
|
||
call sub_B31E
|
||
mov byte_124C6, 0
|
||
push 4000B8h
|
||
call sub_B291
|
||
call cdg_load_single pascal, 4, ds, offset aSff9_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 5, ds, offset aSff9b_cdg, 0
|
||
push 2300A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_AED0
|
||
push 4000B8h
|
||
call sub_B31E
|
||
mov byte_124C6, 4
|
||
push 4000B8h
|
||
call sub_B291
|
||
call cdg_load_single pascal, 0, ds, offset aSff6_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 1, ds, offset aSff6b_cdg, 0
|
||
push 2700A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_B02D
|
||
push 4000B8h
|
||
call sub_B31E
|
||
mov byte_124C6, 0
|
||
push 2000B8h
|
||
call sub_B291
|
||
push 2B00A0h
|
||
call snd_delay_until_measure
|
||
mov fp_124C8, offset sub_B144
|
||
push 200070h
|
||
push 2000B8h
|
||
call sub_B3AC
|
||
call cdg_load_single pascal, 0, ds, offset aSff7_cdg, 0
|
||
call cdg_load_single_noalpha pascal, 1, ds, offset aSff7b_cdg, 0
|
||
mov byte_124C6, 0
|
||
push 200150h
|
||
call sub_B291
|
||
push 3000A0h
|
||
call snd_delay_until_measure
|
||
call _bgimage_free
|
||
call cdg_free_all
|
||
push 4
|
||
call palette_black_out
|
||
pop bp
|
||
retn
|
||
sub_B44D endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B787 proc near
|
||
|
||
var_6 = word ptr -6
|
||
@@g_str = byte ptr -4
|
||
arg_0 = word ptr 4
|
||
@@y = word ptr 6
|
||
@@x = word ptr 8
|
||
|
||
enter 6, 0
|
||
push si
|
||
xor si, si
|
||
mov [bp+@@g_str], g_EMPTY
|
||
mov ax, [bp+arg_0]
|
||
mov bx, 100
|
||
xor dx, dx
|
||
div bx
|
||
mov [bp+var_6], ax
|
||
mov ax, [bp+arg_0]
|
||
xor dx, dx
|
||
div bx
|
||
mov [bp+arg_0], dx
|
||
cmp byte_EC73, 0
|
||
jnz short loc_B7C5
|
||
or si, [bp+var_6]
|
||
or si, si
|
||
jz short loc_B7C1
|
||
mov al, byte ptr [bp+var_6]
|
||
add al, gb_0_
|
||
mov [bp+@@g_str], al
|
||
jmp short loc_B7C5
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B7C1:
|
||
mov [bp+@@g_str], g_EMPTY
|
||
|
||
loc_B7C5:
|
||
mov ax, [bp+arg_0]
|
||
mov bx, 10
|
||
xor dx, dx
|
||
div bx
|
||
mov [bp+var_6], ax
|
||
mov ax, [bp+arg_0]
|
||
xor dx, dx
|
||
div bx
|
||
mov [bp+arg_0], dx
|
||
or si, [bp+var_6]
|
||
mov al, byte_EC73
|
||
mov ah, 0
|
||
or si, ax
|
||
or si, si
|
||
jz short loc_B7F4
|
||
mov al, byte ptr [bp+var_6]
|
||
add al, gb_0_
|
||
mov [bp+@@g_str+1], al
|
||
jmp short loc_B7F8
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B7F4:
|
||
mov [bp+@@g_str+1], g_EMPTY
|
||
|
||
loc_B7F8:
|
||
mov al, byte ptr [bp+arg_0]
|
||
add al, gb_0_
|
||
mov [bp+@@g_str+2], al
|
||
mov [bp+@@g_str+3], 0
|
||
push [bp+@@x]
|
||
push [bp+@@y]
|
||
push GAIJI_W
|
||
push ss
|
||
lea ax, [bp+@@g_str]
|
||
push ax
|
||
push 14
|
||
call graph_gaiji_puts
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_B787 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B81D proc near
|
||
|
||
@@g_str = byte ptr -0Ch
|
||
var_2 = byte ptr -2
|
||
var_1 = byte ptr -1
|
||
|
||
enter 0Ch, 0
|
||
push si
|
||
mov [bp+var_2], 0
|
||
xor si, si
|
||
jmp short loc_B851
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B82A:
|
||
mov ax, 7
|
||
sub ax, si
|
||
les bx, _resident
|
||
add bx, ax
|
||
mov al, es:[bx+resident_t.score_last]
|
||
mov [bp+var_1], al
|
||
or [bp+var_2], al
|
||
cmp [bp+var_2], 0
|
||
jz short loc_B84C
|
||
add al, gb_0_
|
||
mov [bp+si+@@g_str], al
|
||
jmp short loc_B850
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B84C:
|
||
mov [bp+si+@@g_str], g_EMPTY
|
||
|
||
loc_B850:
|
||
inc si
|
||
|
||
loc_B851:
|
||
cmp si, 8
|
||
jl short loc_B82A
|
||
mov [bp+@@g_str+8], 0
|
||
push (160 shl 16) or 96
|
||
push GAIJI_W
|
||
push ss
|
||
lea ax, [bp+@@g_str]
|
||
push ax
|
||
push 14
|
||
call graph_gaiji_puts
|
||
mov [bp+var_2], 1
|
||
call graph_putsa_fx pascal, (288 shl 16) or 96, 14, ds, offset aU_ ; "<22>_"
|
||
pop si
|
||
leave
|
||
retn
|
||
sub_B81D endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B886 proc near
|
||
|
||
var_6 = dword ptr -6
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
|
||
enter 6, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_6]
|
||
mov di, [bp+arg_4]
|
||
cmp [bp+arg_2], 0
|
||
jz short loc_B8A2
|
||
mov [bp+var_6], 1000000
|
||
jmp short loc_B8AA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B8A2:
|
||
mov [bp+var_6], 0
|
||
|
||
loc_B8AA:
|
||
mov ax, [bp+arg_2]
|
||
cmp ax, [bp+arg_0]
|
||
jz short loc_B8E3
|
||
cmp [bp+arg_2], 0
|
||
jz short loc_B8CD
|
||
movzx ebx, [bp+arg_2]
|
||
mov eax, [bp+var_6]
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_6], eax
|
||
jmp short loc_B8D5
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B8CD:
|
||
mov [bp+var_6], 0
|
||
|
||
loc_B8D5:
|
||
movzx eax, [bp+arg_0]
|
||
imul eax, [bp+var_6]
|
||
mov [bp+var_6], eax
|
||
|
||
loc_B8E3:
|
||
cmp byte_EC4A, 0
|
||
jnz short loc_B8F4
|
||
mov eax, dword_124CE
|
||
add eax, [bp+var_6]
|
||
jmp short loc_B8FC
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_B8F4:
|
||
mov eax, dword_124CE
|
||
sub eax, [bp+var_6]
|
||
|
||
loc_B8FC:
|
||
mov dword_124CE, eax
|
||
mov eax, [bp+var_6]
|
||
mov ebx, 10000
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_2], ax
|
||
push si
|
||
push di
|
||
push ax
|
||
call sub_B787
|
||
mov ebx, 10000
|
||
mov eax, [bp+var_6]
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_6], edx
|
||
mov eax, [bp+var_6]
|
||
mov ebx, 100
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_2], ax
|
||
mov byte_EC73, 1
|
||
lea ax, [si+48]
|
||
push ax
|
||
push di
|
||
push [bp+var_2]
|
||
call sub_B787
|
||
mov byte_EC73, 0
|
||
lea ax, [si+48]
|
||
call graph_putsa_fx pascal, ax, di, 14, ds, offset aBd ; "<22>D"
|
||
lea ax, [si+96]
|
||
call graph_putsa_fx pascal, ax, di, 14, ds, offset aBu ; "<22><>"
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 8
|
||
sub_B886 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B97B proc near
|
||
|
||
var_2 = word ptr -2
|
||
arg_0 = dword ptr 4
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_6]
|
||
mov di, [bp+arg_4]
|
||
mov eax, [bp+arg_0]
|
||
mov ebx, 10000
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_2], ax
|
||
push si
|
||
push di
|
||
push ax
|
||
call sub_B787
|
||
mov ebx, 10000
|
||
mov eax, [bp+arg_0]
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+arg_0], edx
|
||
mov eax, [bp+arg_0]
|
||
mov ebx, 100
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_2], ax
|
||
mov byte_EC73, 1
|
||
lea ax, [si+48]
|
||
push ax
|
||
push di
|
||
push [bp+var_2]
|
||
call sub_B787
|
||
mov byte_EC73, 0
|
||
lea ax, [si+48]
|
||
call graph_putsa_fx pascal, ax, di, 14, ds, offset aBd_0 ; "<22>D"
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 8
|
||
sub_B97B endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_B9F2 proc near
|
||
|
||
var_8 = dword ptr -8
|
||
var_4 = dword ptr -4
|
||
|
||
enter 8, 0
|
||
les bx, _resident
|
||
mov eax, es:[bx+resident_t.rand]
|
||
mov random_seed, eax
|
||
mov al, es:[bx+resident_t.credit_lives]
|
||
mov ah, 0
|
||
dec ax
|
||
mov bx, ax
|
||
cmp bx, 5
|
||
ja short loc_BA52
|
||
add bx, bx
|
||
jmp cs:off_BB75[bx]
|
||
|
||
loc_BA18:
|
||
mov [bp+var_4], 2500
|
||
jmp short loc_BA52
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA22:
|
||
mov [bp+var_4], 2000
|
||
jmp short loc_BA52
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA2C:
|
||
mov [bp+var_4], 1500
|
||
jmp short loc_BA52
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA36:
|
||
mov [bp+var_4], 1000
|
||
jmp short loc_BA52
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA40:
|
||
mov [bp+var_4], 500
|
||
jmp short loc_BA52
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA4A:
|
||
mov [bp+var_4], 0
|
||
|
||
loc_BA52:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.credit_bombs]
|
||
mov ah, 0
|
||
or ax, ax
|
||
jz short loc_BA67
|
||
cmp ax, 1
|
||
jz short loc_BA71
|
||
jmp short loc_BA79
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA67:
|
||
add [bp+var_4], 2500
|
||
jmp short loc_BA79
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BA71:
|
||
add [bp+var_4], 1500
|
||
|
||
loc_BA79:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.turbo_mode], 0
|
||
jz short loc_BA8C
|
||
add [bp+var_4], 2000
|
||
|
||
loc_BA8C:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.graze], 0
|
||
jz short loc_BAA5
|
||
mov ax, es:[bx+resident_t.graze]
|
||
add ax, ax
|
||
movzx eax, ax
|
||
add [bp+var_4], eax
|
||
|
||
loc_BAA5:
|
||
mov [bp+var_8], 1000000
|
||
les bx, _resident
|
||
mov ax, es:[bx+resident_t.items_spawned]
|
||
cmp ax, es:[bx+resident_t.items_collected]
|
||
jz short loc_BAF3
|
||
cmp es:[bx+resident_t.items_spawned], 0
|
||
jz short loc_BAD8
|
||
movzx ebx, es:[bx+resident_t.items_spawned]
|
||
mov eax, [bp+var_8]
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_8], eax
|
||
jmp short loc_BAE0
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BAD8:
|
||
mov [bp+var_8], 0
|
||
|
||
loc_BAE0:
|
||
les bx, _resident
|
||
movzx eax, es:[bx+resident_t.items_collected]
|
||
imul eax, [bp+var_8]
|
||
mov [bp+var_8], eax
|
||
|
||
loc_BAF3:
|
||
mov eax, 1000000
|
||
sub eax, [bp+var_8]
|
||
mov [bp+var_8], eax
|
||
mov ebx, 100
|
||
xor edx, edx
|
||
div ebx
|
||
mov [bp+var_8], eax
|
||
cmp [bp+var_8], 0
|
||
jz short loc_BB2A
|
||
call IRand
|
||
cwde
|
||
xor edx, edx
|
||
div [bp+var_8]
|
||
add [bp+var_4], edx
|
||
|
||
loc_BB2A:
|
||
mov eax, [bp+var_4]
|
||
imul eax, 100
|
||
mov [bp+var_4], eax
|
||
cmp [bp+var_4], 1000000
|
||
jbe short loc_BB48
|
||
mov [bp+var_4], 1000000
|
||
|
||
loc_BB48:
|
||
mov eax, dword_124CE
|
||
add eax, [bp+var_4]
|
||
mov dword_124CE, eax
|
||
push 0C00108h
|
||
pushd [bp+var_4]
|
||
call sub_B97B
|
||
call graph_putsa_fx pascal, (288 shl 16) or 264, 14, ds, offset aBu_0 ; "<22><>"
|
||
leave
|
||
retn
|
||
sub_B9F2 endp
|
||
|
||
; ---------------------------------------------------------------------------
|
||
db 0
|
||
off_BB75 dw offset loc_BA18
|
||
dw offset loc_BA22
|
||
dw offset loc_BA2C
|
||
dw offset loc_BA36
|
||
dw offset loc_BA40
|
||
dw offset loc_BA4A
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_BB81 proc near
|
||
|
||
var_4 = dword ptr -4
|
||
|
||
enter 4, 0
|
||
push si
|
||
mov _graph_putsa_fx_func, FX_WEIGHT_BOLD
|
||
graph_accesspage 0
|
||
graph_showpage al
|
||
call graph_putsa_fx pascal, (16 shl 16) or 48, 15, ds, offset aB@b@b@b@b@b@b@ ; "<22>@<40>@<40>@<40>@<40>@<40>@<40>@ <20>r<EFBFBD>O<EFBFBD><4F><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 72, 15, ds, offset aUqiUx ; "<22><><EFBFBD>Փx"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 96, 15, ds, offset aNPiuU_ ; "<22>ŏI<C58F><49><EFBFBD>_"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 120, 15, ds, offset aGGxi ; "<22>~<7E>X<EFBFBD><58><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 144, 15, ds, offset aGGaogcpi ; "<22>{<7B><><EFBFBD>g<EFBFBD>p<EFBFBD><70><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 168, 15, ds, offset aGqbGatbrmcj ; "<22>Q<EFBFBD>[<5B><><EFBFBD>B<EFBFBD><42><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 192, 15, ds, offset aIlcSObcj ; "<22><><EFBFBD><EFBFBD><EFBFBD>ގ<EFBFBD><DE8E><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 216, 15, ds, offset aGagcgegai ; "<22>A<EFBFBD>C<EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 240, 15, ds, offset aUU_gagcgeganNv ; "<22><><EFBFBD>_<EFBFBD>A<EFBFBD>C<EFBFBD>e<EFBFBD><65><EFBFBD>ō<EFBFBD><C58D>_<EFBFBD><5F>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 264, 15, ds, offset aLcnzvv ; "<22>C<EFBFBD><43><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 288, 15, ds, offset aPicacovCj ; "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
|
||
call graph_putsa_fx pascal, (16 shl 16) or 336, 15, ds, offset aVavVVSrso ; "<22><><EFBFBD>Ȃ<EFBFBD><C882>̘r<CC98>O"
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.stage], STAGE_EXTRA
|
||
jnz short loc_BC71
|
||
mov al, RANK_EXTRA
|
||
jmp short loc_BC79
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BC71:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.rank]
|
||
|
||
loc_BC79:
|
||
mov _verdict_rank, al
|
||
push (176 shl 16) or 72
|
||
push GAIJI_W
|
||
push ds
|
||
mov ah, 0
|
||
shl ax, 3
|
||
add ax, offset grEASY
|
||
push ax
|
||
push 14
|
||
call graph_gaiji_puts
|
||
call sub_B81D
|
||
push 0F00078h
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.miss_count]
|
||
mov ah, 0
|
||
push ax
|
||
call sub_B787
|
||
push 0F00090h
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.bombs_used]
|
||
mov ah, 0
|
||
push ax
|
||
call sub_B787
|
||
call graph_putsa_fx pascal, (288 shl 16) or 120, 14, ds, offset aTimes ; "<22><>"
|
||
call graph_putsa_fx pascal, (288 shl 16) or 144, 14, ds, offset aTimes_0 ; "<22><>"
|
||
mov byte_124CC, 1
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.stage], STAGE_EXTRA
|
||
jz short loc_BD0A
|
||
cmp es:[bx+resident_t.end_sequence], ES_1CC
|
||
jnz short loc_BCFF
|
||
mov es:[bx+resident_t.std_frames], 44000
|
||
|
||
loc_BCFF:
|
||
push 0C000A8h
|
||
push 44000
|
||
jmp short loc_BD24
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BD0A:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_EXTRA
|
||
jnz short loc_BD1B
|
||
mov es:[bx+resident_t.std_frames], 12000
|
||
|
||
loc_BD1B:
|
||
push 0C000A8h
|
||
push 12000
|
||
|
||
loc_BD24:
|
||
les bx, _resident
|
||
push es:[bx+resident_t.std_frames]
|
||
call sub_B886
|
||
mov byte_124CC, 0
|
||
push 0C000C0h
|
||
les bx, _resident
|
||
push es:[bx+resident_t.enemies_gone]
|
||
push es:[bx+resident_t.enemies_killed]
|
||
call sub_B886
|
||
push 0C000D8h
|
||
les bx, _resident
|
||
push es:[bx+resident_t.items_spawned]
|
||
push es:[bx+resident_t.items_collected]
|
||
call sub_B886
|
||
push 0C000F0h
|
||
les bx, _resident
|
||
push es:[bx+resident_t.point_items_collected]
|
||
push es:[bx+resident_t.max_valued_point_items_collected]
|
||
call sub_B886
|
||
call sub_B9F2
|
||
push 0C00120h
|
||
les bx, _resident
|
||
mov eax, es:[bx+resident_t.frames]
|
||
mov ebx, 10
|
||
xor edx, edx
|
||
div ebx
|
||
push ax
|
||
mov bx, word ptr _resident
|
||
mov eax, es:[bx+resident_t.slow_frames]
|
||
mov ebx, 10
|
||
xor edx, edx
|
||
div ebx
|
||
push ax
|
||
call sub_B886
|
||
mov ebx, 5
|
||
mov eax, dword_124CE
|
||
cdq
|
||
idiv ebx
|
||
mov dword_124CE, eax
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.score_last][7], 9
|
||
jb short loc_BDD4
|
||
add dword_124CE, 600000
|
||
jmp short loc_BE08
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BDD4:
|
||
les bx, _resident
|
||
movzx eax, es:[bx+resident_t.score_last][6]
|
||
imul eax, 10000
|
||
add dword_124CE, eax
|
||
cmp es:[bx+resident_t.score_last][7], 3
|
||
jbe short loc_BE08
|
||
mov al, es:[bx+resident_t.score_last][7]
|
||
mov ah, 0
|
||
add ax, -3
|
||
cwde
|
||
imul eax, 100000
|
||
add dword_124CE, eax
|
||
|
||
loc_BE08:
|
||
mov al, _verdict_rank
|
||
mov ah, 0
|
||
mov bx, ax
|
||
cmp bx, RANK_EXTRA
|
||
ja short loc_BE6F
|
||
add bx, bx
|
||
jmp cs:off_C0EE[bx]
|
||
|
||
loc_BE1B:
|
||
sub dword_124CE, 50000
|
||
mov [bp+var_4], 800000
|
||
jmp short loc_BE6F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BE2E:
|
||
mov [bp+var_4], 1000000
|
||
jmp short loc_BE6F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BE38:
|
||
add dword_124CE, 150000
|
||
mov [bp+var_4], 1200000
|
||
jmp short loc_BE6F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BE4B:
|
||
add dword_124CE, 300000
|
||
mov [bp+var_4], 1400000
|
||
jmp short loc_BE6F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BE5E:
|
||
add dword_124CE, 450000
|
||
mov [bp+var_4], 1500000
|
||
|
||
loc_BE6F:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.credit_lives]
|
||
mov ah, 0
|
||
dec ax
|
||
mov bx, ax
|
||
cmp bx, 5
|
||
ja short loc_BECA
|
||
add bx, bx
|
||
jmp cs:off_C0E2[bx]
|
||
|
||
loc_BE88:
|
||
add dword_124CE, 50000
|
||
add [bp+var_4], 100000
|
||
jmp short loc_BECA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BE9B:
|
||
add dword_124CE, 25000
|
||
add [bp+var_4], 50000
|
||
jmp short loc_BECA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BEAE:
|
||
sub [bp+var_4], 25000
|
||
jmp short loc_BECA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BEB8:
|
||
sub [bp+var_4], 50000
|
||
jmp short loc_BECA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BEC2:
|
||
sub [bp+var_4], 75000
|
||
|
||
loc_BECA:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.credit_bombs]
|
||
mov ah, 0
|
||
or ax, ax
|
||
jz short loc_BEDF
|
||
cmp ax, 1
|
||
jz short loc_BEF2
|
||
jmp short loc_BF03
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BEDF:
|
||
add dword_124CE, 50000
|
||
add [bp+var_4], 100000
|
||
jmp short loc_BF03
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BEF2:
|
||
add dword_124CE, 20000
|
||
add [bp+var_4], 50000
|
||
|
||
loc_BF03:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.turbo_mode], 0
|
||
jnz short loc_BF17
|
||
sub dword_124CE, 100000
|
||
|
||
loc_BF17:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.miss_count], 15
|
||
jb short loc_BF2D
|
||
sub dword_124CE, 300000
|
||
jmp short loc_BF43
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BF2D:
|
||
les bx, _resident
|
||
movzx eax, es:[bx+resident_t.miss_count]
|
||
imul eax, 20000
|
||
sub dword_124CE, eax
|
||
|
||
loc_BF43:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.bombs_used], 30
|
||
jb short loc_BF59
|
||
sub dword_124CE, 90000
|
||
jmp short loc_BF6F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BF59:
|
||
les bx, _resident
|
||
movzx eax, es:[bx+resident_t.bombs_used]
|
||
imul eax, 3000
|
||
sub dword_124CE, eax
|
||
|
||
loc_BF6F:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_EXTRA
|
||
jnb short loc_BFA1
|
||
cmp _verdict_rank, RANK_EXTRA
|
||
jz short loc_BF96
|
||
mov ebx, 2
|
||
mov eax, dword_124CE
|
||
cdq
|
||
idiv ebx
|
||
mov dword_124CE, eax
|
||
jmp short loc_BFB4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BF96:
|
||
sub dword_124CE, 200000
|
||
jmp short loc_BFB4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BFA1:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_CONTINUED
|
||
jnz short loc_BFB4
|
||
sub [bp+var_4], 100000
|
||
|
||
loc_BFB4:
|
||
cmp dword_124CE, 0
|
||
jge short loc_BFC7
|
||
mov dword_124CE, 0
|
||
jmp short loc_BFD9
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_BFC7:
|
||
mov eax, dword_124CE
|
||
cmp eax, [bp+var_4]
|
||
jbe short loc_BFD9
|
||
mov eax, [bp+var_4]
|
||
mov dword_124CE, eax
|
||
|
||
loc_BFD9:
|
||
les bx, _resident
|
||
mov eax, es:[bx+resident_t.frames]
|
||
shr eax, 1
|
||
cmp eax, es:[bx+resident_t.slow_frames]
|
||
jbe loc_C0AE
|
||
push 0C00150h
|
||
pushd [dword_124CE]
|
||
call sub_B97B
|
||
call graph_putsa_fx pascal, (288 shl 16) or 336, 14, ds, offset aPoint ; "<22>_"
|
||
push ds
|
||
push offset a_ude_txt ; "_ude.txt"
|
||
call file_ropen
|
||
cmp dword_124CE, 1500000
|
||
jge short loc_C084
|
||
cmp dword_124CE, 0
|
||
jnz short loc_C02E
|
||
mov si, 19h
|
||
jmp short loc_C074
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C02E:
|
||
cmp dword_124CE, 1050000
|
||
jge short loc_C051
|
||
mov eax, dword_124CE
|
||
mov ebx, 50000
|
||
cdq
|
||
idiv ebx
|
||
mov dx, 24
|
||
sub dx, ax
|
||
mov si, dx
|
||
jmp short loc_C074
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C051:
|
||
cmp dword_124CE, 1200000
|
||
jge short loc_C061
|
||
mov si, 3
|
||
jmp short loc_C074
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C061:
|
||
cmp dword_124CE, 1350000
|
||
jge short loc_C071
|
||
mov si, 2
|
||
jmp short loc_C074
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C071:
|
||
mov si, 1
|
||
|
||
loc_C074:
|
||
mov ax, si
|
||
imul ax, 1Eh
|
||
cwde
|
||
push eax
|
||
push 0
|
||
call file_seek
|
||
|
||
loc_C084:
|
||
push ds
|
||
push offset unk_124D3
|
||
push 1Eh
|
||
call file_read
|
||
mov byte_124EF, 0
|
||
call file_close
|
||
push 40h
|
||
call frame_delay
|
||
push (64 shl 16) or 360
|
||
push 15
|
||
push ds
|
||
push offset unk_124D3
|
||
jmp short loc_C0CB
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C0AE:
|
||
call graph_putsa_fx pascal, (192 shl 16) or 336, 14, ds, offset aBhbhbhbhbhbhu_ ; "<22>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>_"
|
||
push (64 shl 16) or 360
|
||
push 15
|
||
push ds
|
||
push offset aPicacovVVcvsfT ; "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982>锻<EFBFBD><E994BB><EFBFBD>s<EFBFBD><73>"
|
||
|
||
loc_C0CB:
|
||
call graph_putsa_fx
|
||
call input_wait_for_change pascal, 0
|
||
push 2
|
||
call palette_black_out
|
||
pop si
|
||
leave
|
||
retn
|
||
sub_BB81 endp
|
||
|
||
; ---------------------------------------------------------------------------
|
||
db 0
|
||
off_C0E2 dw offset loc_BE88
|
||
dw offset loc_BE9B
|
||
dw offset loc_BECA
|
||
dw offset loc_BEAE
|
||
dw offset loc_BEB8
|
||
dw offset loc_BEC2
|
||
off_C0EE dw offset loc_BE1B
|
||
dw offset loc_BE2E
|
||
dw offset loc_BE38
|
||
dw offset loc_BE4B
|
||
dw offset loc_BE5E
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C0F8 proc near
|
||
push bp
|
||
mov bp, sp
|
||
mov PaletteTone, 0
|
||
call far ptr palette_show
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, ds, offset aUde_pi
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
push 4
|
||
call palette_black_in
|
||
call sub_BB81
|
||
pop bp
|
||
retn
|
||
sub_C0F8 endp
|
||
|
||
include th04/formats/scoredat_decode.asm
|
||
include th04/formats/scoredat_encode.asm
|
||
include th04/formats/scoredat_recreate.asm
|
||
include th04/formats/scoredat_load_for.asm
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C316 proc near
|
||
push bp
|
||
mov bp, sp
|
||
push si
|
||
call scoredat_encode
|
||
push ds
|
||
push offset aGensou_scr_2 ; "GENSOU.SCR"
|
||
call file_append
|
||
mov al, _rank
|
||
mov ah, 0
|
||
imul ax, size scoredat_section_t
|
||
movzx eax, ax
|
||
call file_seek pascal, large eax, 0
|
||
cmp playchar_125B8, PLAYCHAR_REIMU
|
||
jz short loc_C350
|
||
call file_seek pascal, large RANK_COUNT * size scoredat_section_t, 1
|
||
|
||
loc_C350:
|
||
call file_write pascal, ds, offset _hi, size scoredat_section_t
|
||
xor si, si
|
||
jmp short loc_C3A5
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C360:
|
||
mov ax, si
|
||
imul ax, size scoredat_section_t
|
||
movzx eax, ax
|
||
call file_seek pascal, large eax, 0
|
||
call file_read pascal, ds, offset _hi, size scoredat_section_t
|
||
call scoredat_decode
|
||
call scoredat_encode
|
||
mov ax, si
|
||
imul ax, size scoredat_section_t
|
||
movzx eax, ax
|
||
call file_seek pascal, large eax, 0
|
||
call file_write pascal, ds, offset _hi, size scoredat_section_t
|
||
inc si
|
||
|
||
loc_C3A5:
|
||
cmp si, 0Ah
|
||
jl short loc_C360
|
||
call file_close
|
||
pop si
|
||
pop bp
|
||
retn
|
||
sub_C316 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C3B2 proc near
|
||
|
||
@@place = word ptr -2
|
||
|
||
enter 2, 0
|
||
mov [bp+@@place], (SCOREDAT_PLACES - 1)
|
||
jmp short loc_C40E
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C3BD:
|
||
mov cx, 7
|
||
jmp short loc_C407
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C3C2:
|
||
les bx, _resident
|
||
add bx, cx
|
||
mov al, es:[bx+resident_t.score_last]
|
||
mov ah, 0
|
||
mov bx, [bp+@@place]
|
||
shl bx, 3
|
||
add bx, cx
|
||
mov dl, _hi.score.g_score[bx]
|
||
mov dh, 0
|
||
add dx, -gb_0_
|
||
cmp ax, dx
|
||
jg short loc_C40B
|
||
les bx, _resident
|
||
add bx, cx
|
||
mov al, es:[bx+resident_t.score_last]
|
||
mov ah, 0
|
||
mov bx, [bp+@@place]
|
||
shl bx, 3
|
||
add bx, cx
|
||
mov dl, _hi.score.g_score[bx]
|
||
mov dh, 0
|
||
add dx, -gb_0_
|
||
cmp ax, dx
|
||
jl short loc_C41B
|
||
dec cx
|
||
|
||
loc_C407:
|
||
or cx, cx
|
||
jge short loc_C3C2
|
||
|
||
loc_C40B:
|
||
dec [bp+@@place]
|
||
|
||
loc_C40E:
|
||
cmp [bp+@@place], 0
|
||
jge short loc_C3BD
|
||
mov _entered_place, 0
|
||
jmp short loc_C430
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C41B:
|
||
cmp [bp+@@place], (SCOREDAT_PLACES - 1)
|
||
jnz short loc_C428
|
||
mov _entered_place, -1
|
||
leave
|
||
retn
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C428:
|
||
mov al, byte ptr [bp+@@place]
|
||
inc al
|
||
mov _entered_place, al
|
||
|
||
loc_C430:
|
||
mov [bp+@@place], (SCOREDAT_PLACES - 2)
|
||
jmp short loc_C489
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C437:
|
||
mov cx, SCOREDAT_NAME_LEN - 1
|
||
jmp short loc_C455
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C43C:
|
||
mov bx, [bp+@@place]
|
||
imul bx, (SCOREDAT_NAME_LEN + 1)
|
||
add bx, cx
|
||
mov al, _hi.score.g_name[0 * (SCOREDAT_NAME_LEN + 1)][bx]
|
||
mov bx, [bp+@@place]
|
||
imul bx, (SCOREDAT_NAME_LEN + 1)
|
||
add bx, cx
|
||
mov _hi.score.g_name[1 * (SCOREDAT_NAME_LEN + 1)][bx], al
|
||
dec cx
|
||
|
||
loc_C455:
|
||
or cx, cx
|
||
jge short loc_C43C
|
||
mov cx, SCORE_DIGITS - 1
|
||
jmp short loc_C477
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C45E:
|
||
mov bx, [bp+@@place]
|
||
shl bx, 3
|
||
add bx, cx
|
||
mov al, _hi.score.g_score[0 * SCORE_DIGITS][bx]
|
||
mov bx, [bp+@@place]
|
||
shl bx, 3
|
||
add bx, cx
|
||
mov _hi.score.g_score[1 * SCORE_DIGITS][bx], al
|
||
dec cx
|
||
|
||
loc_C477:
|
||
or cx, cx
|
||
jge short loc_C45E
|
||
mov bx, [bp+@@place]
|
||
mov al, _hi.score.g_stage+0[bx]
|
||
mov _hi.score.g_stage+1[bx], al
|
||
dec [bp+@@place]
|
||
|
||
loc_C489:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
cmp ax, [bp+@@place]
|
||
jle short loc_C437
|
||
mov cx, (SCOREDAT_NAME_LEN - 1)
|
||
jmp short loc_C4AA
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C498:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
add ax, cx
|
||
mov bx, ax
|
||
mov _hi.score.g_name[bx], gs_DOT
|
||
dec cx
|
||
|
||
loc_C4AA:
|
||
or cx, cx
|
||
jge short loc_C498
|
||
mov cx, SCOREDAT_NAME_LEN - 1
|
||
jmp short loc_C4D1
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C4B3:
|
||
les bx, _resident
|
||
add bx, cx
|
||
mov al, es:[bx+resident_t.score_last]
|
||
add al, gb_0_
|
||
mov dl, _entered_place
|
||
mov dh, 0
|
||
shl dx, 3
|
||
add dx, cx
|
||
mov bx, dx
|
||
mov _hi.score.g_score[bx], al
|
||
dec cx
|
||
|
||
loc_C4D1:
|
||
or cx, cx
|
||
jge short loc_C4B3
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_EXTRA
|
||
jb short loc_C4EE
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
mov bx, ax
|
||
mov _hi.score.g_stage[bx], gs_ALL
|
||
leave
|
||
retn
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C4EE:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.stage]
|
||
add al, gb_1_
|
||
mov dl, _entered_place
|
||
mov dh, 0
|
||
mov bx, dx
|
||
mov _hi.score.g_stage[bx], al
|
||
leave
|
||
retn
|
||
sub_C3B2 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C506 proc near
|
||
|
||
@@y = word ptr -4
|
||
var_2 = word ptr -2
|
||
arg_0 = byte ptr 4
|
||
arg_2 = word ptr 6
|
||
|
||
enter 4, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_2]
|
||
or si, si
|
||
jnz short loc_C518
|
||
mov ax, 96
|
||
jmp short loc_C520
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C518:
|
||
mov ax, si
|
||
shl ax, 4
|
||
add ax, 112
|
||
|
||
loc_C520:
|
||
mov [bp+@@y], ax
|
||
cmp [bp+arg_0], 0
|
||
jnz short loc_C52E
|
||
mov ax, 172
|
||
jmp short loc_C531
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C52E:
|
||
mov ax, 480
|
||
|
||
loc_C531:
|
||
mov di, ax
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
cmp ax, si
|
||
jnz short loc_C549
|
||
mov al, [bp+arg_0]
|
||
cmp al, playchar_125B8
|
||
jnz short loc_C549
|
||
mov al, 0Ah
|
||
jmp short loc_C54B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C549:
|
||
mov al, 0
|
||
|
||
loc_C54B:
|
||
mov [bp+arg_0], al
|
||
mov bx, si
|
||
shl bx, 3
|
||
mov al, _hi.score.g_score[bx][SCORE_DIGITS - 1]
|
||
mov ah, 0
|
||
add ax, -gb_0_
|
||
cmp ax, 10
|
||
jl short loc_C589
|
||
lea ax, [di-32]
|
||
push ax
|
||
push [bp+@@y]
|
||
mov bx, si
|
||
shl bx, 3
|
||
mov al, _hi.score.g_score[bx][SCORE_DIGITS - 1]
|
||
mov ah, 0
|
||
add ax, -gb_0_
|
||
mov bx, 10
|
||
cwd
|
||
idiv bx
|
||
mov dl, [bp+arg_0]
|
||
mov dh, 0
|
||
add ax, dx
|
||
push ax
|
||
call super_put
|
||
|
||
loc_C589:
|
||
lea ax, [di-16]
|
||
push ax
|
||
push [bp+@@y]
|
||
mov bx, si
|
||
shl bx, 3
|
||
mov al, _hi.score.g_score[bx][SCORE_DIGITS - 1]
|
||
mov ah, 0
|
||
add ax, -gb_0_
|
||
mov bx, 10
|
||
cwd
|
||
idiv bx
|
||
mov al, [bp+arg_0]
|
||
mov ah, 0
|
||
add dx, ax
|
||
push dx
|
||
call super_put
|
||
mov [bp+var_2], 6
|
||
jmp short loc_C5E0
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C5B8:
|
||
push di
|
||
push [bp+@@y]
|
||
mov bx, si
|
||
shl bx, 3
|
||
add bx, [bp+var_2]
|
||
mov al, _hi.score.g_score[bx]
|
||
mov ah, 0
|
||
mov dl, [bp+arg_0]
|
||
mov dh, 0
|
||
add ax, dx
|
||
add ax, -gb_0_
|
||
push ax
|
||
call super_put
|
||
dec [bp+var_2]
|
||
add di, 16
|
||
|
||
loc_C5E0:
|
||
cmp [bp+var_2], 0
|
||
jge short loc_C5B8
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 4
|
||
sub_C506 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C5EC proc near
|
||
|
||
@@col = byte ptr -5
|
||
@@y = word ptr -4
|
||
@@x = word ptr -2
|
||
@@gaiji = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
enter 6, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_4]
|
||
mov di, [bp+arg_2]
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
cmp ax, si
|
||
jnz short loc_C60E
|
||
mov al, playchar_125B8
|
||
mov ah, 0
|
||
cmp ax, di
|
||
jnz short loc_C60E
|
||
mov al, 7
|
||
jmp short loc_C610
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C60E:
|
||
mov al, 12
|
||
|
||
loc_C610:
|
||
mov [bp+@@col], al
|
||
or si, si
|
||
jnz short loc_C61C
|
||
mov ax, 96
|
||
jmp short loc_C624
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C61C:
|
||
mov ax, si
|
||
shl ax, 4
|
||
add ax, 112
|
||
|
||
loc_C624:
|
||
mov [bp+@@y], ax
|
||
or di, di
|
||
jnz short loc_C630
|
||
mov ax, 292
|
||
jmp short loc_C633
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C630:
|
||
mov ax, 600
|
||
|
||
loc_C633:
|
||
mov [bp+@@x], ax
|
||
add ax, 2
|
||
push ax
|
||
mov ax, [bp+@@y]
|
||
add ax, 2
|
||
push ax
|
||
push [bp+@@gaiji]
|
||
push 14
|
||
call graph_gaiji_putc
|
||
push [bp+@@x]
|
||
push [bp+@@y]
|
||
push [bp+@@gaiji]
|
||
mov al, [bp+@@col]
|
||
mov ah, 0
|
||
push ax
|
||
call graph_gaiji_putc
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_C5EC endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C665 proc near
|
||
|
||
@@y = word ptr -2
|
||
arg_0 = byte ptr 4
|
||
arg_2 = byte ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_4]
|
||
cmp [bp+arg_2], 0
|
||
jnz short loc_C679
|
||
mov ax, 2
|
||
jmp short loc_C67C
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C679:
|
||
mov ax, 40
|
||
|
||
loc_C67C:
|
||
mov di, ax
|
||
or si, si
|
||
jnz short loc_C687
|
||
mov ax, 6
|
||
jmp short loc_C68A
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C687:
|
||
lea ax, [si+7]
|
||
|
||
loc_C68A:
|
||
mov [bp+@@y], ax
|
||
mov ax, di
|
||
shl ax, 3
|
||
add ax, 2
|
||
push ax
|
||
mov ax, [bp+@@y]
|
||
shl ax, 4
|
||
add ax, 2
|
||
push ax
|
||
push 800010h
|
||
call sub_CBF3
|
||
mov ax, di
|
||
shl ax, 3
|
||
add ax, 2
|
||
push ax
|
||
mov ax, [bp+@@y]
|
||
shl ax, 4
|
||
add ax, 2
|
||
push ax
|
||
push GAIJI_W
|
||
mov ax, si
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
add ax, offset _hi.score.g_name
|
||
push ds
|
||
push ax
|
||
push 14
|
||
call graph_gaiji_puts
|
||
push di
|
||
push [bp+@@y]
|
||
mov ax, si
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
add ax, offset _hi.score.g_name
|
||
push ds
|
||
push ax
|
||
push TX_RED
|
||
call gaiji_putsa
|
||
mov al, [bp+arg_0]
|
||
mov ah, 0
|
||
add ax, ax
|
||
add ax, di
|
||
push ax
|
||
push [bp+@@y]
|
||
mov bx, si
|
||
imul bx, (SCOREDAT_NAME_LEN + 1)
|
||
mov al, [bp+arg_0]
|
||
mov ah, 0
|
||
add bx, ax
|
||
mov al, offset _hi.score.g_name[bx]
|
||
mov ah, 0
|
||
push ax
|
||
push TX_RED + TX_REVERSE
|
||
call gaiji_putca
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 6
|
||
sub_C665 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C711 proc near
|
||
|
||
@@x = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
|
||
enter 2, 0
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_2]
|
||
cmp byte ptr [bp+arg_0], 0
|
||
jnz short loc_C725
|
||
mov ax, 16
|
||
jmp short loc_C728
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C725:
|
||
mov ax, 320
|
||
|
||
loc_C728:
|
||
mov [bp+@@x], ax
|
||
or si, si
|
||
jnz short loc_C734
|
||
mov ax, 96
|
||
jmp short loc_C73C
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C734:
|
||
mov ax, si
|
||
shl ax, 4
|
||
add ax, 112
|
||
|
||
loc_C73C:
|
||
mov di, ax
|
||
mov ax, [bp+@@x]
|
||
add ax, 2
|
||
push ax
|
||
lea ax, [di+2]
|
||
push ax
|
||
push GAIJI_W
|
||
mov ax, si
|
||
imul ax, 9
|
||
add ax, offset _hi.score.g_name
|
||
push ds
|
||
push ax
|
||
push 14
|
||
call graph_gaiji_puts
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
cmp ax, si
|
||
jnz short loc_C76E
|
||
mov al, byte ptr [bp+arg_0]
|
||
cmp al, playchar_125B8
|
||
jz short loc_C787
|
||
|
||
loc_C76E:
|
||
push [bp+@@x]
|
||
push di
|
||
push GAIJI_W
|
||
mov ax, si
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
add ax, offset _hi.score.g_name
|
||
push ds
|
||
push ax
|
||
push 12
|
||
call graph_gaiji_puts
|
||
jmp short loc_C7AB
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C787:
|
||
mov ax, [bp+@@x]
|
||
mov bx, 8
|
||
cwd
|
||
idiv bx
|
||
push ax
|
||
mov ax, di
|
||
mov bx, 16
|
||
cwd
|
||
idiv bx
|
||
push ax
|
||
mov ax, si
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
add ax, offset _hi.score.g_name
|
||
push ds
|
||
push ax
|
||
push TX_RED
|
||
call gaiji_putsa
|
||
|
||
loc_C7AB:
|
||
push si
|
||
push [bp+arg_0]
|
||
call sub_C506
|
||
push si
|
||
mov al, byte ptr [bp+arg_0]
|
||
mov ah, 0
|
||
push ax
|
||
mov al, _hi.score.g_stage[si]
|
||
mov ah, 0
|
||
push ax
|
||
call sub_C5EC
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 4
|
||
sub_C711 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C7C9 proc near
|
||
|
||
arg_0 = word ptr 4
|
||
|
||
push bp
|
||
mov bp, sp
|
||
push si
|
||
xor si, si
|
||
jmp short loc_C7D9
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C7D1:
|
||
push si
|
||
push [bp+arg_0]
|
||
call sub_C711
|
||
inc si
|
||
|
||
loc_C7D9:
|
||
cmp si, 0Ah
|
||
jl short loc_C7D1
|
||
pop si
|
||
pop bp
|
||
retn 2
|
||
sub_C7C9 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_C7E3 proc near
|
||
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
|
||
push bp
|
||
mov bp, sp
|
||
push si
|
||
push di
|
||
mov si, [bp+arg_4]
|
||
mov di, [bp+arg_2]
|
||
mov ax, si
|
||
add ax, ax
|
||
add ax, 17h
|
||
push ax
|
||
lea ax, [di+12h]
|
||
push ax
|
||
mov bx, di
|
||
imul bx, ALPHABET_COLS
|
||
mov al, _gALPHABET[bx+si]
|
||
mov ah, 0
|
||
push ax
|
||
push [bp+arg_0]
|
||
call gaiji_putca
|
||
pop di
|
||
pop si
|
||
pop bp
|
||
retn 6
|
||
sub_C7E3 endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
include th02/hiscore/regist.inc
|
||
|
||
sub_C814 proc near
|
||
|
||
var_A = byte ptr -0Ah
|
||
var_9 = byte ptr -9
|
||
@@initial_col = word ptr -8
|
||
@@initial_row = word ptr -6
|
||
var_4 = word ptr -4
|
||
@@row = word ptr -2
|
||
|
||
enter 0Ah, 0
|
||
push si
|
||
push di
|
||
xor si, si
|
||
mov [bp+var_9], 0
|
||
mov PaletteTone, 0
|
||
call far ptr palette_show
|
||
graph_accesspage 1
|
||
call pi_load pascal, 0, ds, offset aHi01_pi
|
||
call pi_palette_apply pascal, 0
|
||
call pi_put_8 pascal, large 0, 0
|
||
freePISlotLarge 0
|
||
call graph_copy_page pascal, 0
|
||
call super_entry_bfnt pascal, ds, offset aScnum2_bft ; "scnum2.bft"
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.stage], STAGE_EXTRA
|
||
jnz short loc_C87A
|
||
mov al, 4
|
||
jmp short loc_C882
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C87A:
|
||
les bx, _resident
|
||
mov al, es:[bx+resident_t.rank]
|
||
|
||
loc_C882:
|
||
mov _rank, al
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.playchar_ascii], '0' + PLAYCHAR_MARISA
|
||
jnz short loc_C895
|
||
mov ax, 1
|
||
jmp short loc_C897
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C895:
|
||
xor ax, ax
|
||
|
||
loc_C897:
|
||
mov playchar_125B8, al
|
||
mov al, 1
|
||
sub al, playchar_125B8
|
||
push ax
|
||
call scoredat_load_for
|
||
mov al, playchar_125B8
|
||
mov ah, 0
|
||
mov dx, 1
|
||
sub dx, ax
|
||
push dx
|
||
call sub_C7C9
|
||
call scoredat_load_for pascal, word ptr playchar_125B8
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.turbo_mode], 0
|
||
jnz short loc_C8CB
|
||
cmp _rank, RANK_EXTRA
|
||
jnz short loc_C8D9
|
||
|
||
loc_C8CB:
|
||
call sub_C3B2
|
||
mov al, playchar_125B8
|
||
mov ah, 0
|
||
push ax
|
||
call sub_C7C9
|
||
jmp short loc_C909
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C8D9:
|
||
mov _entered_place, -1
|
||
mov al, playchar_125B8
|
||
mov ah, 0
|
||
push ax
|
||
call sub_C7C9
|
||
call graph_putsa_fx pascal, (124 shl 16) or 196, 9, ds, offset aGxgnbGvbGhvVGv ; "<22>X<EFBFBD><58><EFBFBD>[<5B><><EFBFBD>[<5B>h<EFBFBD>ł̃v<CC83><76><EFBFBD>C<EFBFBD>ł́A<CD81>X<EFBFBD>R<EFBFBD>A<EFBFBD>͋L<CD8B>E...
|
||
call graph_putsa_fx pascal, (120 shl 16) or 192, 2, ds, offset aGxgnbGvbGhvV_1 ; "<22>X<EFBFBD><58><EFBFBD>[<5B><><EFBFBD>[<5B>h<EFBFBD>ł̃v<CC83><76><EFBFBD>C<EFBFBD>ł́A<CD81>X<EFBFBD>R<EFBFBD>A<EFBFBD>͋L<CD8B>E...
|
||
|
||
loc_C909:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.end_sequence], ES_1CC
|
||
jz short loc_C922
|
||
cmp es:[bx+resident_t.end_sequence], ES_EXTRA
|
||
jz short loc_C922
|
||
cmp _rank, RANK_EASY
|
||
jnz short loc_C95E
|
||
|
||
loc_C922:
|
||
mov al, _hi.score.cleared
|
||
mov [bp+var_A], al
|
||
cmp [bp+var_A], SCOREDAT_CLEARED_BOTH + 1
|
||
jb short loc_C944
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.shottype], SHOTTYPE_A
|
||
jnz short loc_C93D
|
||
mov al, SCOREDAT_CLEARED_A
|
||
jmp short loc_C93F
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C93D:
|
||
mov al, SCOREDAT_CLEARED_B
|
||
|
||
loc_C93F:
|
||
mov [bp+var_A], al
|
||
jmp short loc_C958
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C944:
|
||
les bx, _resident
|
||
cmp es:[bx+resident_t.shottype], SHOTTYPE_A
|
||
jnz short loc_C953
|
||
mov al, SCOREDAT_CLEARED_A
|
||
jmp short loc_C955
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C953:
|
||
mov al, SCOREDAT_CLEARED_B
|
||
|
||
loc_C955:
|
||
or [bp+var_A], al
|
||
|
||
loc_C958:
|
||
mov al, [bp+var_A]
|
||
mov _hi.score.cleared, al
|
||
|
||
loc_C95E:
|
||
kajacall KAJA_SONG_STOP
|
||
call snd_load pascal, ds, offset aName, SND_LOAD_SONG
|
||
kajacall KAJA_SONG_PLAY
|
||
push 2
|
||
call palette_black_in
|
||
cmp _entered_place, -1
|
||
jz loc_CB7F
|
||
mov [bp+@@initial_row], 0
|
||
jmp short loc_C9CB
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C990:
|
||
mov [bp+@@initial_col], 0
|
||
jmp short loc_C9C2
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_C997:
|
||
mov ax, [bp+@@initial_col]
|
||
add ax, ax
|
||
add ax, 23
|
||
push ax
|
||
mov ax, [bp+@@initial_row]
|
||
add ax, 18
|
||
push ax
|
||
mov bx, [bp+@@initial_row]
|
||
imul bx, ALPHABET_COLS
|
||
add bx, [bp+@@initial_col]
|
||
mov al, _gALPHABET[bx]
|
||
mov ah, 0
|
||
push ax
|
||
push TX_WHITE
|
||
call gaiji_putca
|
||
inc [bp+@@initial_col]
|
||
|
||
loc_C9C2:
|
||
cmp [bp+@@initial_col], ALPHABET_COLS
|
||
jl short loc_C997
|
||
inc [bp+@@initial_row]
|
||
|
||
loc_C9CB:
|
||
cmp [bp+@@initial_row], ALPHABET_ROWS
|
||
jl short loc_C990
|
||
push (23 shl 16) + 18
|
||
mov al, _gALPHABET
|
||
mov ah, 0
|
||
push ax
|
||
push TX_GREEN + TX_REVERSE
|
||
call gaiji_putca
|
||
xor di, di
|
||
mov [bp+@@row], 0
|
||
call far ptr _input_reset_sense
|
||
mov [bp+var_4], 1
|
||
|
||
loc_C9F6:
|
||
call _input_sense
|
||
cmp [bp+var_4], 0
|
||
jnz loc_CB3B
|
||
test _key_det.lo, low INPUT_MOVEMENT
|
||
jz short loc_CA6A
|
||
push di
|
||
push [bp+@@row]
|
||
push TX_WHITE
|
||
call sub_C7E3
|
||
test _key_det.lo, low INPUT_UP
|
||
jz short loc_CA1E
|
||
dec [bp+@@row]
|
||
|
||
loc_CA1E:
|
||
test _key_det.lo, low INPUT_DOWN
|
||
jz short loc_CA28
|
||
inc [bp+@@row]
|
||
|
||
loc_CA28:
|
||
test _key_det.lo, low INPUT_LEFT
|
||
jz short loc_CA30
|
||
dec di
|
||
|
||
loc_CA30:
|
||
test _key_det.lo, low INPUT_RIGHT
|
||
jz short loc_CA38
|
||
inc di
|
||
|
||
loc_CA38:
|
||
cmp [bp+@@row], 0
|
||
jge short loc_CA45
|
||
mov [bp+@@row], (ALPHABET_ROWS - 1)
|
||
jmp short loc_CA50
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CA45:
|
||
cmp [bp+@@row], (ALPHABET_ROWS - 1)
|
||
jle short loc_CA50
|
||
mov [bp+@@row], 0
|
||
|
||
loc_CA50:
|
||
or di, di
|
||
jge short loc_CA59
|
||
mov di, (ALPHABET_COLS - 1)
|
||
jmp short loc_CA60
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CA59:
|
||
cmp di, (ALPHABET_COLS - 1)
|
||
jle short loc_CA60
|
||
xor di, di
|
||
|
||
loc_CA60:
|
||
push di
|
||
push [bp+@@row]
|
||
push TX_GREEN + TX_REVERSE
|
||
call sub_C7E3
|
||
|
||
loc_CA6A:
|
||
test _key_det.lo, low INPUT_SHOT
|
||
jnz short loc_CA7A
|
||
test _key_det.hi, high INPUT_OK
|
||
jz loc_CB03
|
||
|
||
loc_CA7A:
|
||
mov bx, [bp+@@row]
|
||
imul bx, ALPHABET_COLS
|
||
mov al, _gALPHABET[bx+di]
|
||
mov [bp+var_A], al
|
||
mov ah, 0
|
||
sub ax, gs_SPACE
|
||
mov bx, ax
|
||
cmp bx, 8
|
||
ja short @@regular
|
||
add bx, bx
|
||
jmp cs:off_CB9E[bx]
|
||
|
||
@@space:
|
||
mov [bp+var_A], g_EMPTY
|
||
jmp short @@regular
|
||
; ---------------------------------------------------------------------------
|
||
|
||
@@left:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
mov bx, ax
|
||
mov _hi.score.g_name[bx+si], g_EMPTY
|
||
or si, si
|
||
jle short loc_CAF5
|
||
dec si
|
||
jmp short loc_CAF5
|
||
; ---------------------------------------------------------------------------
|
||
|
||
@@right:
|
||
cmp si, 7
|
||
jge short loc_CAF5
|
||
jmp short loc_CAF4
|
||
; ---------------------------------------------------------------------------
|
||
|
||
@@regular:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
mov dl, [bp+var_A]
|
||
mov bx, ax
|
||
mov _hi.score.g_name[bx+si], dl
|
||
cmp si, 7
|
||
jnz short loc_CAEF
|
||
push di
|
||
push [bp+@@row]
|
||
push TX_WHITE
|
||
call sub_C7E3
|
||
mov di, ALPHABET_ENTER_COL
|
||
mov [bp+@@row], ALPHABET_ENTER_ROW
|
||
push di
|
||
push [bp+@@row]
|
||
push TX_GREEN + TX_REVERSE
|
||
call sub_C7E3
|
||
|
||
loc_CAEF:
|
||
cmp si, 7
|
||
jge short loc_CAF5
|
||
|
||
loc_CAF4:
|
||
inc si
|
||
|
||
loc_CAF5:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
push ax
|
||
push word ptr playchar_125B8
|
||
push si
|
||
call sub_C665
|
||
|
||
loc_CB03:
|
||
test _key_det.lo, low INPUT_BOMB
|
||
jz short loc_CB2C
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
imul ax, (SCOREDAT_NAME_LEN + 1)
|
||
mov bx, ax
|
||
mov _hi.score.g_name[bx+si], g_EMPTY
|
||
or si, si
|
||
jle short loc_CB1E
|
||
dec si
|
||
|
||
loc_CB1E:
|
||
mov al, _entered_place
|
||
mov ah, 0
|
||
push ax
|
||
push word ptr playchar_125B8
|
||
push si
|
||
call sub_C665
|
||
|
||
loc_CB2C:
|
||
test _key_det.hi, high INPUT_CANCEL
|
||
jnz short @@enter
|
||
mov ax, _key_det
|
||
mov [bp+var_4], ax
|
||
jmp short loc_CB6B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CB3B:
|
||
mov ax, _key_det
|
||
cmp ax, [bp+var_4]
|
||
jnz short loc_CB59
|
||
inc [bp+var_9]
|
||
cmp [bp+var_9], 1Eh
|
||
jbe short loc_CB6B
|
||
test [bp+var_9], 1
|
||
jnz short loc_CB6B
|
||
mov [bp+var_4], 0
|
||
jmp short loc_CB6B
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CB59:
|
||
cmp _key_det, INPUT_NONE
|
||
jz short loc_CB62
|
||
jmp short loc_CB67
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CB62:
|
||
mov [bp+var_4], 0
|
||
|
||
loc_CB67:
|
||
mov [bp+var_9], 0
|
||
|
||
loc_CB6B:
|
||
call far ptr _input_reset_sense
|
||
push 1
|
||
call frame_delay
|
||
jmp loc_C9F6
|
||
; ---------------------------------------------------------------------------
|
||
|
||
@@enter:
|
||
call sub_C316
|
||
jmp short loc_CB89
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CB7F:
|
||
call sub_C316
|
||
call input_wait_for_change pascal, 0
|
||
|
||
loc_CB89:
|
||
call super_free
|
||
call text_clear
|
||
push 1
|
||
call palette_black_out
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn
|
||
|
||
; ---------------------------------------------------------------------------
|
||
off_CB9E dw offset @@space
|
||
dw offset @@left
|
||
dw offset @@right
|
||
dw offset @@regular
|
||
dw offset @@regular
|
||
dw offset @@regular
|
||
dw offset @@regular
|
||
dw offset @@regular
|
||
dw offset @@enter
|
||
sub_C814 endp
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
_egc_start_copy_inlined proc near
|
||
push bp
|
||
mov bp, sp
|
||
EGC_START_COPY_INLINED
|
||
pop bp
|
||
retn
|
||
_egc_start_copy_inlined endp
|
||
|
||
|
||
; =============== S U B R O U T I N E =======================================
|
||
|
||
; Attributes: bp-based frame
|
||
|
||
sub_CBF3 proc near
|
||
|
||
var_8 = word ptr -8
|
||
var_6 = word ptr -6
|
||
var_4 = word ptr -4
|
||
var_2 = word ptr -2
|
||
arg_0 = word ptr 4
|
||
arg_2 = word ptr 6
|
||
arg_4 = word ptr 8
|
||
arg_6 = word ptr 0Ah
|
||
|
||
enter 8, 0
|
||
push si
|
||
push di
|
||
mov di, [bp+arg_2]
|
||
call _egc_start_copy_inlined
|
||
mov ax, [bp+arg_6]
|
||
sar ax, 3
|
||
mov dx, [bp+arg_4]
|
||
shl dx, 6
|
||
add ax, dx
|
||
mov dx, [bp+arg_4]
|
||
shl dx, 4
|
||
add ax, dx
|
||
mov [bp+var_6], ax
|
||
mov bx, 16
|
||
mov ax, di
|
||
cwd
|
||
idiv bx
|
||
mov di, ax
|
||
mov [bp+var_4], 0
|
||
jmp short loc_CC66
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CC29:
|
||
mov [bp+var_2], 0
|
||
mov si, [bp+var_6]
|
||
jmp short loc_CC5A
|
||
; ---------------------------------------------------------------------------
|
||
|
||
loc_CC33:
|
||
graph_accesspage 1
|
||
les bx, _VRAM_PLANE_B
|
||
add bx, si
|
||
mov ax, es:[bx]
|
||
mov [bp+var_8], ax
|
||
mov al, 0
|
||
out dx, al
|
||
mov bx, word ptr _VRAM_PLANE_B
|
||
add bx, si
|
||
mov ax, [bp+var_8]
|
||
mov es:[bx], ax
|
||
inc [bp+var_2]
|
||
add si, 2
|
||
|
||
loc_CC5A:
|
||
cmp [bp+var_2], di
|
||
jl short loc_CC33
|
||
inc [bp+var_4]
|
||
add [bp+var_6], 50h ; 'P'
|
||
|
||
loc_CC66:
|
||
mov ax, [bp+var_4]
|
||
cmp ax, [bp+arg_0]
|
||
jl short loc_CC29
|
||
call egc_off
|
||
pop di
|
||
pop si
|
||
leave
|
||
retn 8
|
||
sub_CBF3 endp
|
||
db 0
|
||
|
||
maine_01__TEXT ends
|
||
|
||
; ===========================================================================
|
||
|
||
SHARED segment word public 'CODE' use16
|
||
extern FRAME_DELAY:proc
|
||
extern PI_PALETTE_APPLY:proc
|
||
extern PI_PUT_8:proc
|
||
extern PI_LOAD:proc
|
||
extern PI_PUT_QUARTER_8:proc
|
||
extern INPUT_WAIT_FOR_CHANGE:proc
|
||
extern VECTOR1_AT:proc
|
||
extern SND_KAJA_INTERRUPT:proc
|
||
extern SND_DETERMINE_MODES:proc
|
||
extern SND_DELAY_UNTIL_MEASURE:proc
|
||
extern CDG_PUT_PLANE:proc
|
||
extern SND_LOAD:proc
|
||
SHARED ends
|
||
|
||
SHARED_ segment word public 'CODE' use16
|
||
assume cs:g_SHARED
|
||
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
|
||
|
||
include th04/hardware/grppsafx.asm
|
||
extern CDG_PUT_8:proc
|
||
extern _game_exit:proc
|
||
extern GAME_INIT_MAIN:proc
|
||
extern _input_reset_sense:proc
|
||
extern _input_sense:proc
|
||
extern _snd_se_reset:proc
|
||
extern SND_SE_PLAY:proc
|
||
extern _snd_se_update:proc
|
||
extern _bgimage_snap:proc
|
||
extern _bgimage_free:proc
|
||
extern BGIMAGE_PUT_RECT:proc
|
||
extern CDG_LOAD_SINGLE_NOALPHA:proc
|
||
extern CDG_LOAD_SINGLE:proc
|
||
extern CDG_FREE:proc
|
||
extern CDG_FREE_ALL:proc
|
||
SHARED_ ends
|
||
|
||
.data
|
||
|
||
off_E5C0 dd a_ed000_txt
|
||
; "_ED000.TXT"
|
||
include th04/formats/cfg_lres[data].asm
|
||
a_ed000_txt db '_ED000.TXT',0
|
||
aCong00_pi db 'CONG00.pi',0
|
||
aMSzlEd_dat db '<27><><EFBFBD>z<EFBFBD><7A>ed.dat',0
|
||
aGameft_bft db 'GAMEFT.bft',0
|
||
; char arg0[]
|
||
arg0 db 'op',0
|
||
db 0
|
||
include libs/master.lib/atrtcmod[data].asm
|
||
include libs/master.lib/bfnt_id[data].asm
|
||
include libs/master.lib/clip[data].asm
|
||
include libs/master.lib/fil[data].asm
|
||
include libs/master.lib/dos_ropen[data].asm
|
||
include libs/master.lib/get_machine_98[data].asm
|
||
include libs/master.lib/get_machine_at[data].asm
|
||
include libs/master.lib/gaiji_backup[data].asm
|
||
include libs/master.lib/gaiji_entry_bfnt[data].asm
|
||
include libs/master.lib/grp[data].asm
|
||
include libs/master.lib/js[data].asm
|
||
include libs/master.lib/machine[data].asm
|
||
include libs/master.lib/pal[data].asm
|
||
include libs/master.lib/pf[data].asm
|
||
include libs/master.lib/rand[data].asm
|
||
include libs/master.lib/sin8[data].asm
|
||
include libs/master.lib/tx[data].asm
|
||
include libs/master.lib/vs[data].asm
|
||
include libs/master.lib/wordmask[data].asm
|
||
include libs/master.lib/mem[data].asm
|
||
include libs/master.lib/super_entry_bfnt[data].asm
|
||
include libs/master.lib/superpa[data].asm
|
||
include th02/formats/pfopen[data].asm
|
||
include libs/master.lib/bgm_timerhook[data].asm
|
||
include libs/master.lib/bgm[data].asm
|
||
include th04/snd/se_priority[data].asm
|
||
include th04/formats/cdg_put_plane[data].asm
|
||
include th04/snd/snd[data].asm
|
||
db 0
|
||
include th04/snd/load[data].asm
|
||
include th04/hardware/grppsafx[data].asm
|
||
include th03/snd/se_state[data].asm
|
||
include th04/hardware/bgimage[data].asm
|
||
include th03/formats/cdg[data].asm
|
||
include th03/formats/pi_put_masked[data].asm
|
||
include th04/end/box[data].asm
|
||
asc_EB84 db ' ', 0
|
||
even
|
||
aSff1_pi db 'sff1.pi',0
|
||
aStaff db 'staff',0
|
||
aSff1_cdg db 'sff1.cdg',0
|
||
aSff1b_cdg db 'sff1b.cdg',0
|
||
aSff2_cdg db 'sff2.cdg',0
|
||
aSff2b_cdg db 'sff2b.cdg',0
|
||
aSff3_cdg db 'sff3.cdg',0
|
||
aSff3b_cdg db 'sff3b.cdg',0
|
||
aSff2_pi db 'sff2.pi',0
|
||
aSff4_cdg db 'sff4.cdg',0
|
||
aSff4b_cdg db 'sff4b.cdg',0
|
||
aSff5_cdg db 'sff5.cdg',0
|
||
aSff5b_cdg db 'sff5b.cdg',0
|
||
aSff8_cdg db 'sff8.cdg',0
|
||
aSff8b_cdg db 'sff8b.cdg',0
|
||
aSff9_cdg db 'sff9.cdg',0
|
||
aSff9b_cdg db 'sff9b.cdg',0
|
||
aSff6_cdg db 'sff6.cdg',0
|
||
aSff6b_cdg db 'sff6b.cdg',0
|
||
aSff7_cdg db 'sff7.cdg',0
|
||
aSff7b_cdg db 'sff7b.cdg',0
|
||
db 0
|
||
byte_EC4A db 0
|
||
include th04/gaiji/verdict[data].asm
|
||
byte_EC73 db 0
|
||
aU_ db '<27>_',0
|
||
aBd db '<27>D',0
|
||
aBu db '<27><>',0
|
||
aBd_0 db '<27>D',0
|
||
aBu_0 db '<27><>',0
|
||
aB@b@b@b@b@b@b@ db '<27>@<40>@<40>@<40>@<40>@<40>@<40>@ <20>r<EFBFBD>O<EFBFBD><4F><EFBFBD><EFBFBD>',0
|
||
aUqiUx db '<27><><EFBFBD>Փx',0
|
||
aNPiuU_ db '<27>ŏI<C58F><49><EFBFBD>_',0
|
||
aGGxi db '<27>~<7E>X<EFBFBD><58><EFBFBD><EFBFBD>',0
|
||
aGGaogcpi db '<27>{<7B><><EFBFBD>g<EFBFBD>p<EFBFBD><70><EFBFBD><EFBFBD>',0
|
||
aGqbGatbrmcj db '<27>Q<EFBFBD>[<5B><><EFBFBD>B<EFBFBD><42><EFBFBD><EFBFBD>',0
|
||
aIlcSObcj db '<27><><EFBFBD><EFBFBD><EFBFBD>ގ<EFBFBD><DE8E><EFBFBD>',0
|
||
aGagcgegai db '<27>A<EFBFBD>C<EFBFBD>e<EFBFBD><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
|
||
aUU_gagcgeganNv db '<27><><EFBFBD>_<EFBFBD>A<EFBFBD>C<EFBFBD>e<EFBFBD><65><EFBFBD>ō<EFBFBD><C58D>_<EFBFBD><5F>',0
|
||
aLcnzvv db '<27>C<EFBFBD><43><EFBFBD><EFBFBD>',0
|
||
aPicacovCj db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0
|
||
aVavVVSrso db '<27><><EFBFBD>Ȃ<EFBFBD><C882>̘r<CC98>O',0
|
||
aTimes db '<27><>',0
|
||
aTimes_0 db '<27><>',0
|
||
aPoint db '<27>_',0
|
||
a_ude_txt db '_ude.txt',0
|
||
aBhbhbhbhbhbhu_ db '<27>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>H<EFBFBD>_',0
|
||
aPicacovVVcvsfT db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɂ<EFBFBD><C982>锻<EFBFBD><E994BB><EFBFBD>s<EFBFBD><73>',0
|
||
aUde_pi db 'ude.pi',0
|
||
db 0
|
||
include th04/hiscore/alphabet[data].asm
|
||
aGensou_scr db 'GENSOU.SCR',0
|
||
aGensou_scr_0 db 'GENSOU.SCR',0
|
||
aGensou_scr_1 db 'GENSOU.SCR',0
|
||
aGensou_scr_2 db 'GENSOU.SCR',0
|
||
aHi01_pi db 'hi01.pi',0
|
||
aScnum2_bft db 'scnum2.bft',0
|
||
aGxgnbGvbGhvVGv db '<27>X<EFBFBD><58><EFBFBD>[<5B><><EFBFBD>[<5B>h<EFBFBD>ł̃v<CC83><76><EFBFBD>C<EFBFBD>ł́A<CD81>X<EFBFBD>R<EFBFBD>A<EFBFBD>͋L<CD8B>^<5E><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>',0
|
||
aGxgnbGvbGhvV_1 db '<27>X<EFBFBD><58><EFBFBD>[<5B><><EFBFBD>[<5B>h<EFBFBD>ł̃v<CC83><76><EFBFBD>C<EFBFBD>ł́A<CD81>X<EFBFBD>R<EFBFBD>A<EFBFBD>͋L<CD8B>^<5E><><EFBFBD><EFBFBD><EFBFBD>܂<EFBFBD><DC82><EFBFBD>',0
|
||
aName db 'name',0
|
||
db 0
|
||
|
||
.data?
|
||
|
||
public _resident
|
||
_resident dd ?
|
||
include libs/master.lib/clip[bss].asm
|
||
include libs/master.lib/fil[bss].asm
|
||
include libs/master.lib/js[bss].asm
|
||
include libs/master.lib/pal[bss].asm
|
||
include libs/master.lib/vs[bss].asm
|
||
include libs/master.lib/vsync[bss].asm
|
||
include libs/master.lib/mem[bss].asm
|
||
include libs/master.lib/superpa[bss].asm
|
||
include th01/hardware/vram_planes[bss].asm
|
||
include libs/master.lib/pfint21[bss].asm
|
||
include th02/formats/pi_slots[bss].asm
|
||
include th03/formats/hfliplut[bss].asm
|
||
include th04/snd/interrupt[bss].asm
|
||
include libs/master.lib/bgm[bss].asm
|
||
include th02/snd/load[bss].asm
|
||
include th04/mem[bss].asm
|
||
include th04/hardware/input[bss].asm
|
||
include th04/formats/cdg[bss].asm
|
||
include th04/end/cutscene_script[bss].asm
|
||
dword_1247A dd ?
|
||
byte_1247E db ?
|
||
db 61 dup(?)
|
||
point_124BC Point <?>
|
||
word_124C0 dw ?
|
||
col_124C2 db ?
|
||
db ? ;
|
||
word_124C4 dw ?
|
||
byte_124C6 db ?
|
||
angle_124C7 db ?
|
||
fp_124C8 dw ?
|
||
db 2 dup(?)
|
||
byte_124CC db ?
|
||
db ? ;
|
||
dword_124CE dd ?
|
||
_verdict_rank db ?
|
||
unk_124D3 db ? ;
|
||
db 27 dup(?)
|
||
byte_124EF db ?
|
||
db 2 dup(?)
|
||
include th04/formats/scoredat[bss].asm
|
||
include th03/hiscore/regist[bss].asm
|
||
_rank db ?
|
||
playchar_125B8 db ?
|
||
|
||
end
|