ReC98/th03_op.asm

6897 lines
120 KiB
NASM
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;
; +-------------------------------------------------------------------------+
; | This file has been generated by The Interactive Disassembler (IDA) |
; | Copyright (c) 2009 by Hex-Rays, <support@hex-rays.com> |
; +-------------------------------------------------------------------------+
;
; Input MD5 : 661F4F8FFAF1F3274F503D154133DEF0
; File Name : th03/OP.EXE
; Format : MS-DOS executable (EXE)
; Base Address: 0h Range: 0h-FD80h Loaded length: E97Ah
; Entry Point : 0:0
; OS type : MS DOS
; Application type: Executable 16bit
.286 ; Force the .model directive to create 16-bit default segments...
.model large
__LARGE__ equ 1
.386 ; ... then switch to what we actually need.
; And yes, we can't move this to an include file for some reason.
include ReC98.inc
include th03/th03.asm
include th02/music/music.inc
extern SCOPY@:proc
extern __mbcjmstojis:proc
extern __mbctype:byte
extern _execl:proc
extern _getch:proc
extern _memcpy:proc
; ===========================================================================
; Segment type: Pure code
_TEXT segment word public 'CODE' use16
assume cs:_TEXT
assume es:nothing, ds:_DATA, fs:nothing, gs:nothing
include libs/master.lib/bfnt_entry_pat.asm
include libs/master.lib/bfnt_extend_header_skip.asm
include libs/master.lib/bfnt_header_read.asm
include libs/master.lib/bfnt_header_analysis.asm
include libs/master.lib/bcloser.asm
include libs/master.lib/bfill.asm
include libs/master.lib/bfnt_palette_set.asm
include libs/master.lib/bgetc.asm
include libs/master.lib/palette_black_out.asm
include libs/master.lib/bopenr.asm
include libs/master.lib/bread.asm
include libs/master.lib/bseek.asm
include libs/master.lib/bseek_.asm
include libs/master.lib/dos_axdx.asm
include libs/master.lib/dos_keyclear.asm
include libs/master.lib/dos_puts2.asm
include libs/master.lib/dos_setvect.asm
include libs/master.lib/egc.asm
include libs/master.lib/egc_shift_left_all.asm
include libs/master.lib/file_append.asm
include libs/master.lib/file_close.asm
include libs/master.lib/file_create.asm
include libs/master.lib/file_exist.asm
include libs/master.lib/file_read.asm
include libs/master.lib/file_ropen.asm
include libs/master.lib/file_seek.asm
include libs/master.lib/file_write.asm
include libs/master.lib/dos_close.asm
include libs/master.lib/dos_ropen.asm
include libs/master.lib/grcg_boxfill.asm
include libs/master.lib/grcg_byteboxfill_x.asm
include libs/master.lib/grcg_polygon_c.asm
include libs/master.lib/grcg_pset.asm
include libs/master.lib/grcg_setcolor.asm
include libs/master.lib/gaiji_backup.asm
include libs/master.lib/gaiji_entry_bfnt.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_gaiji_puts.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_show.asm
include libs/master.lib/graph_start.asm
include libs/master.lib/js_end.asm
include libs/master.lib/keybeep.asm
include libs/master.lib/make_linework.asm
include libs/master.lib/palette_init.asm
include libs/master.lib/palette_show.asm
include libs/master.lib/pfclose.asm
include libs/master.lib/pfgetc.asm
include libs/master.lib/pfread.asm
include libs/master.lib/pfrewind.asm
include libs/master.lib/pfseek.asm
include libs/master.lib/random.asm
include libs/master.lib/palette_entry_rgb.asm
include libs/master.lib/rottbl.asm
include libs/master.lib/smem_release.asm
include libs/master.lib/smem_wget.asm
include libs/master.lib/soundio.asm
include libs/master.lib/text_clear.asm
include libs/master.lib/txesc.asm
include libs/master.lib/text_putsa.asm
include libs/master.lib/vsync.asm
include libs/master.lib/vsync_wait.asm
include libs/master.lib/palette_white_in.asm
include libs/master.lib/hmem_lallocate.asm
include libs/master.lib/mem_assign_dos.asm
include libs/master.lib/mem_assign.asm
include libs/master.lib/memheap.asm
include libs/master.lib/mem_unassign.asm
include libs/master.lib/super_free.asm
include libs/master.lib/super_entry_pat.asm
include libs/master.lib/super_entry_at.asm
include libs/master.lib/super_entry_bfnt.asm
include libs/master.lib/super_cancel_pat.asm
include libs/master.lib/super_put.asm
include libs/master.lib/respal_exist.asm
include libs/master.lib/respal_free.asm
include libs/master.lib/pfint21.asm
db 0
; =============== S U B R O U T I N E =======================================
sub_2DB8 proc far
mov cx, 100h
mov dx, 188h
loc_2DBE:
in al, dx
inc al
jnz short loc_2DC9
loop loc_2DBE
xor ax, ax
jmp short loc_2DDD
; ---------------------------------------------------------------------------
loc_2DC9:
pushf
cli
mov bh, 7
call sound_i
and al, 3Fh
or al, 80h
mov bl, al
call sound_o
popf
mov ax, 1
loc_2DDD:
mov word_DABC, ax
retf
sub_2DB8 endp
; ---------------------------------------------------------------------------
nop
; =============== S U B R O U T I N E =======================================
sub_2DE2 proc near
mov bh, 0Fh
call sound_o
mov dx, 188h
mov al, 0Eh
out dx, al
inc dx
inc dx
in al, dx
not al
retn
sub_2DE2 endp
; ---------------------------------------------------------------------------
nop
; =============== S U B R O U T I N E =======================================
sub_2DF4 proc far
push bp
push si
push di
xor bp, bp
cmp word_DABC, 0
jz short loc_2E0D
pushf
cli
mov bl, 80h
call sub_2DE2
and ax, 3Fh
mov si, ax
popf
loc_2E0D:
or word_E9A4, si
pop di
pop si
pop bp
retf
sub_2DF4 endp
; ---------------------------------------------------------------------------
nop
xchg dx, bx
out dx, al
xchg dx, bx
in al, dx
not al
retn
; ---------------------------------------------------------------------------
db 0
; ---------------------------------------------------------------------------
include libs/master.lib/draw_trapezoid.asm
include th03/formats/pfopen.asm
include libs/master.lib/pf_str_ieq.asm
_TEXT ends
; ===========================================================================
; Segment type: Pure code
op_01_TEXT segment byte public 'CODE' use16
assume cs:op_01_TEXT
;org 8
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9908 proc near
var_A = word ptr -0Ah
var_8 = byte ptr -8
var_7 = byte ptr -7
var_6 = byte ptr -6
var_3 = word ptr -3
enter 0Ah, 0
push ds
push offset aYume_cfg ; "YUME.CFG"
call file_ropen
push ss
lea ax, [bp+var_8]
push ax
push 8
call file_read
call file_close
mov ax, [bp+var_3]
mov [bp+var_A], ax
mov word ptr dword_FC54+2, ax
mov word ptr dword_FC54, 0
les bx, dword_FC54
mov al, [bp+var_8]
mov es:[bx+15h], al
call snd_determine_mode
mov byte_D880, 0
cmp _snd_active, 0
jnz short loc_9961
les bx, dword_FC54
mov byte ptr es:[bx+15h], 0
mov byte_D880, 1
jmp short loc_996C
; ---------------------------------------------------------------------------
loc_9961:
cmp [bp+var_8], 0
jnz short loc_996C
mov _snd_active, 0
loc_996C:
les bx, dword_FC54
mov al, [bp+var_7]
mov es:[bx+16h], al
mov al, [bp+var_6]
mov es:[bx+0Bh], al
leave
retn
sub_9908 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9980 proc near
var_8 = byte ptr -8
var_7 = byte ptr -7
var_6 = byte ptr -6
enter 8, 0
push ds
push offset aYume_cfg ; "YUME.CFG"
call file_append
pushd 0
push 0
call file_seek
les bx, dword_FC54
mov al, es:[bx+15h]
mov [bp+var_8], al
mov al, es:[bx+16h]
mov [bp+var_7], al
mov al, es:[bx+0Bh]
mov [bp+var_6], al
push ss
lea ax, [bp+var_8]
push ax
push 4
call file_write
call file_close
leave
retn
sub_9980 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_99C3 proc near
var_8 = byte ptr -8
var_7 = byte ptr -7
var_6 = byte ptr -6
enter 8, 0
lea ax, [bp+var_8]
push ss
push ax
push ds
push offset unk_D881
mov cx, 8
call SCOPY@
push ds
push offset aYume_cfg ; "YUME.CFG"
call file_append
pushd 0
push 0
call file_seek
les bx, dword_FC54
mov al, es:[bx+15h]
mov [bp+var_8], al
mov al, es:[bx+16h]
mov [bp+var_7], al
mov al, es:[bx+0Bh]
mov [bp+var_6], al
push ss
lea ax, [bp+var_8]
push ax
push 8
call file_write
call file_close
leave
retn
sub_99C3 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9A17 proc near
var_4 = word ptr -4
var_2 = word ptr -2
enter 4, 0
push si
les bx, dword_FC54
mov byte ptr es:[bx+39h], 0
mov byte ptr es:[bx+17h], 0
mov byte ptr es:[bx+33h], 0
mov byte ptr es:[bx+0Eh], 0
mov byte ptr es:[bx+0Fh], 1
mov byte ptr es:[bx+28h], 1
mov byte ptr es:[bx+34h], 2
mov byte ptr es:[bx+35h], 0
mov byte ptr es:[bx+0Dh], 0FFh
call sub_BD9A
or al, al
jz short loc_9A59
mov al, 1
jmp loc_9B9A
; ---------------------------------------------------------------------------
loc_9A59:
les bx, dword_FC54
mov al, es:[bx+0Ch]
mov ah, 0
dec ax
cwd
sub ax, dx
mov bx, ax
sar bx, 1
mov al, [bx+0A0h]
mov ah, 0
mov [bp+var_4], ax
mov bx, word ptr dword_FC54
mov eax, es:[bx+10h]
mov random_seed, eax
xor si, si
jmp short loc_9ADB
; ---------------------------------------------------------------------------
loc_9A85:
call IRand
mov bx, 7
cwd
idiv bx
mov [bp+var_2], dx
mov bx, [bp+var_2]
cmp byte ptr [bx+99h], 0
jnz short loc_9A85
mov ax, [bp+var_4]
cmp ax, [bp+var_2]
jz short loc_9A85
mov byte ptr [bx+99h], 1
mov ax, [bp+var_2]
add ax, ax
inc ax
mov [bp+var_2], ax
les bx, dword_FC54
add bx, si
mov al, byte ptr [bp+var_2]
mov es:[bx+29h], al
mov bx, word ptr dword_FC54
mov al, es:[bx+0Ch]
mov ah, 0
cmp ax, [bp+var_2]
jnz short loc_9ADA
add bx, si
mov al, byte ptr [bp+var_2]
inc al
mov es:[bx+29h], al
loc_9ADA:
inc si
loc_9ADB:
cmp si, 6
jl short loc_9A85
les bx, dword_FC54
mov al, es:[bx+29h]
mov es:[bx+0Dh], al
mov al, byte ptr [bp+var_4]
add al, al
inc al
mov es:[bx+2Fh], al
mov byte ptr es:[bx+30h], 0Fh
cmp byte ptr es:[bx+0Ch], 0Fh
jnz short loc_9B07
inc byte ptr es:[bx+30h]
loc_9B07:
les bx, dword_FC54
mov byte ptr es:[bx+31h], 11h
cmp byte ptr es:[bx+0Ch], 11h
jnz short loc_9B1B
inc byte ptr es:[bx+31h]
loc_9B1B:
xor si, si
jmp short loc_9B39
; ---------------------------------------------------------------------------
loc_9B1F:
les bx, dword_FC54
add bx, si
mov al, es:[bx+29h]
mov ah, 0
dec ax
cwd
sub ax, dx
sar ax, 1
cmp ax, 9
jge loc_9A59
inc si
loc_9B39:
cmp si, 9
jl short loc_9B1F
xor si, si
jmp short loc_9B4E
; ---------------------------------------------------------------------------
loc_9B42:
les bx, dword_FC54
add bx, si
mov byte ptr es:[bx+18h], 0
inc si
loc_9B4E:
cmp si, 10h
jl short loc_9B42
les bx, dword_FC54
mov byte ptr es:[bx+36h], 3
mov byte ptr es:[bx+37h], 0
mov al, es:[bx+0Bh]
mov ah, 0
imul ax, 19h
add al, 46h ; 'F'
mov es:[bx+38h], al
call sub_9980
call gaiji_restore
kajacall KAJA_SONG_STOP
call sub_BFC2
pushd 0
push ds
push offset path ; "mainl"
push ds
push offset path ; "mainl"
call _execl
add sp, 0Ch
mov al, 0
loc_9B9A:
pop si
leave
retn
sub_9A17 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9B9D proc near
arg_0 = word ptr 4
arg_2 = word ptr 6
push bp
mov bp, sp
push si
push di
mov di, [bp+arg_2]
mov si, [bp+arg_0]
or di, di
jnz short loc_9BB8
push 1B0012h
push ds
push offset gp1P_VS_CPU
jmp short loc_9BD3
; ---------------------------------------------------------------------------
loc_9BB8:
cmp di, 1
jnz short loc_9BC9
push 1B0013h
push ds
push offset gp1P_VS_2P
jmp short loc_9BD3
; ---------------------------------------------------------------------------
loc_9BC9:
push 1B0014h
push ds
push offset gpCPU_VS_CPU
loc_9BD3:
push si
call gaiji_putsa
pop di
pop si
pop bp
retn 4
sub_9B9D endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9BDF proc near
var_2 = word ptr -2
enter 2, 0
push si
xor si, si
les bx, dword_FC54
cmp byte ptr es:[bx+28h], 80h
jnb loc_9C8B
call text_clear
call sub_B0AF
mov [bp+var_2], 0
pushd 0E1h
call sub_9B9D
push 10001h
call sub_9B9D
push 20001h
call sub_9B9D
loc_9C1B:
call sub_C986
or si, si
jnz short loc_9C7E
test byte ptr word_F296, 1
jz short loc_9C4A
push [bp+var_2]
push 1
call sub_9B9D
dec [bp+var_2]
cmp [bp+var_2], 0
jge short loc_9C41
mov [bp+var_2], 2
loc_9C41:
push [bp+var_2]
push 0E1h
call sub_9B9D
loc_9C4A:
test byte ptr word_F296, 2
jz short loc_9C70
push [bp+var_2]
push 1
call sub_9B9D
inc [bp+var_2]
cmp [bp+var_2], 2
jle short loc_9C67
mov [bp+var_2], 0
loc_9C67:
push [bp+var_2]
push 0E1h
call sub_9B9D
loc_9C70:
test byte ptr word_F296, 20h
jnz short loc_9C9B
test byte ptr word_F296+1, 20h
jnz short loc_9C9B
loc_9C7E:
mov si, word_F296
push 1
call frame_delay
jmp short loc_9C1B
; ---------------------------------------------------------------------------
loc_9C8B:
les bx, dword_FC54
mov al, es:[bx+28h]
mov ah, 0
add ax, 0FF80h
mov [bp+var_2], ax
loc_9C9B:
cmp [bp+var_2], 2
jnz short loc_9CA5
mov al, 1
jmp short loc_9CA7
; ---------------------------------------------------------------------------
loc_9CA5:
mov al, 0
loc_9CA7:
les bx, dword_FC54
mov es:[bx+0Eh], al
cmp [bp+var_2], 1
jz short loc_9CB9
mov al, 1
jmp short loc_9CBB
; ---------------------------------------------------------------------------
loc_9CB9:
mov al, 0
loc_9CBB:
les bx, dword_FC54
mov es:[bx+0Fh], al
mov byte ptr es:[bx+39h], 0
mov byte ptr es:[bx+17h], 0
mov byte ptr es:[bx+33h], 0
mov al, byte ptr [bp+var_2]
add al, 80h
mov es:[bx+28h], al
mov byte ptr es:[bx+35h], 0
cmp [bp+var_2], 1
jnz short loc_9CEF
call sub_BA88
or al, al
jz short loc_9D03
jmp short loc_9CF6
; ---------------------------------------------------------------------------
loc_9CEF:
call sub_BC1F
or al, al
jz short loc_9D03
loc_9CF6:
les bx, dword_FC54
mov byte ptr es:[bx+28h], 0
mov al, 1
jmp short loc_9D49
; ---------------------------------------------------------------------------
loc_9D03:
mov [bp+var_2], 0
jmp short loc_9D19
; ---------------------------------------------------------------------------
loc_9D0A:
les bx, dword_FC54
add bx, [bp+var_2]
mov byte ptr es:[bx+18h], 0
inc [bp+var_2]
loc_9D19:
cmp [bp+var_2], 10h
jl short loc_9D0A
call sub_9980
call gaiji_restore
kajacall KAJA_SONG_STOP
call sub_BFC2
pushd 0
push ds
push offset path ; "mainl"
push ds
push offset path ; "mainl"
call _execl
add sp, 0Ch
mov al, 0
loc_9D49:
pop si
leave
retn
sub_9BDF endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9D4C proc near
push bp
mov bp, sp
push si
les bx, dword_FC54
mov byte ptr es:[bx+0Eh], 1
mov byte ptr es:[bx+0Fh], 1
inc byte ptr es:[bx+39h]
cmp byte ptr es:[bx+39h], 4
jbe short loc_9D6E
mov byte ptr es:[bx+39h], 1
loc_9D6E:
les bx, dword_FC54
mov byte ptr es:[bx+17h], 0
mov byte ptr es:[bx+33h], 0
mov byte ptr es:[bx+28h], 7Fh
mov byte ptr es:[bx+35h], 0
mov al, es:[bx+39h]
mov ah, 0
add ax, ax
mov bx, ax
mov al, [bx+0C2h]
mov bx, word ptr dword_FC54
mov es:[bx+0Ch], al
mov al, es:[bx+39h]
mov ah, 0
add ax, ax
mov dx, 0C2h ; '<27>'
inc dx
add ax, dx
mov bx, ax
mov al, [bx]
mov bx, word ptr dword_FC54
mov es:[bx+0Dh], al
mov al, es:[bx+39h]
mov ah, 0
shl ax, 2
mov bx, ax
mov eax, [bx+0C8h]
mov bx, word ptr dword_FC54
mov es:[bx+10h], eax
xor si, si
jmp short loc_9DDF
; ---------------------------------------------------------------------------
loc_9DD3:
les bx, dword_FC54
add bx, si
mov byte ptr es:[bx+18h], 0
inc si
loc_9DDF:
cmp si, 10h
jl short loc_9DD3
push 1
call palette_black_out
call sub_9980
call gaiji_restore
kajacall KAJA_SONG_STOP
call sub_BFC2
pushd 0
push ds
push offset path ; "mainl"
push ds
push offset path ; "mainl"
call _execl
add sp, 0Ch
pop si
pop bp
retn
sub_9D4C endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9E16 proc near
push bp
mov bp, sp
push si
mov word_F296, 0
xor si, si
jmp short loc_9E43
; ---------------------------------------------------------------------------
loc_9E24:
call sub_C986
les bx, dword_FC54
inc dword ptr es:[bx+10h]
inc si
cmp si, 208h
jle short loc_9E3C
call sub_9D4C
loc_9E3C:
push 1
call frame_delay
loc_9E43:
cmp word_F296, 0
jz short loc_9E24
push 0A00100h
push 0
call super_put
mov si, 0B0h ; '<27>'
jmp short loc_9E76
; ---------------------------------------------------------------------------
loc_9E5C:
push si
call sub_B10A
push si
push 1000002h
call super_put
push 1
call frame_delay
add si, 8
loc_9E76:
cmp si, 120h
jl short loc_9E5C
pop si
pop bp
retn
sub_9E16 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9E7F proc near
push bp
mov bp, sp
push si
les bx, dword_FC54
mov byte ptr es:[bx+33h], 0FFh
mov byte ptr es:[bx+35h], 1
mov byte ptr es:[bx+28h], 0
xor si, si
jmp short loc_9EA6
; ---------------------------------------------------------------------------
loc_9E9A:
les bx, dword_FC54
add bx, si
mov byte ptr es:[bx+18h], 0
inc si
loc_9EA6:
cmp si, 10h
jl short loc_9E9A
call sub_9980
call gaiji_restore
kajacall KAJA_SONG_STOP
call super_free
call sub_BFC2
pushd 0
push ds
push offset path ; "mainl"
push ds
push offset path ; "mainl"
call _execl
add sp, 0Ch
mov al, 0
pop si
pop bp
retn
sub_9E7F endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9EDD proc near
arg_0 = word ptr 4
arg_2 = word ptr 6
push bp
mov bp, sp
push si
push di
mov si, [bp+arg_2]
mov di, [bp+arg_0]
or si, si
jnz short loc_9EF8
push (25 shl 16) + 17
push ds
push offset gpSTART
jmp short loc_9F4B
; ---------------------------------------------------------------------------
loc_9EF8:
cmp si, 1
jnz short loc_9F09
push (23 shl 16) + 18
push ds
push offset gpVS_START
jmp short loc_9F4B
; ---------------------------------------------------------------------------
loc_9F09:
cmp si, 2
jnz short loc_9F1A
push (22 shl 16) + 19
push ds
push offset gpMUSIC_ROOM
jmp short loc_9F4B
; ---------------------------------------------------------------------------
loc_9F1A:
cmp si, 3
jnz short loc_9F2B
push (24 shl 16) + 20
push ds
push offset gpHISCORE
jmp short loc_9F4B
; ---------------------------------------------------------------------------
loc_9F2B:
cmp si, 4
jnz short loc_9F3C
push (25 shl 16) + 21
push ds
push offset gpOPTION
jmp short loc_9F4B
; ---------------------------------------------------------------------------
loc_9F3C:
cmp si, 5
jnz short loc_9F51
push (26 shl 16) + 22
push ds
push offset gpQUIT
loc_9F4B:
push di
call gaiji_putsa
loc_9F51:
pop di
pop si
pop bp
retn 4
sub_9EDD endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_9F57 proc near
arg_0 = word ptr 4
arg_2 = word ptr 6
push bp
mov bp, sp
push si
push di
mov di, [bp+arg_2]
mov si, [bp+arg_0]
or di, di
jnz short loc_9FD6
call gaiji_putsa pascal, (25 shl 16) + 17, ds offset gpRANK, si
call text_putsa pascal, (37 shl 16) + 17, ds, offset asc_D965, TX_WHITE
les bx, dword_FC54
mov al, es:[bx+0Bh]
mov ah, 0
mov bx, ax
cmp bx, 3
ja loc_A092
add bx, bx
jmp cs:off_A099[bx]
loc_9FA2:
push (38 shl 16) + 17
push ds
push offset gpEASY
jmp loc_A08C
; ---------------------------------------------------------------------------
loc_9FAF:
push (37 shl 16) + 17
push ds
push offset gpNORMAL
jmp loc_A08C
; ---------------------------------------------------------------------------
loc_9FBC:
push (38 shl 16) + 17
push ds
push offset gpHARD
jmp loc_A08C
; ---------------------------------------------------------------------------
loc_9FC9:
push (37 shl 16) + 17
push ds
push offset gpLUNATIC
jmp loc_A08C
; ---------------------------------------------------------------------------
loc_9FD6:
cmp di, 1
jnz short loc_A02A
call gaiji_putsa pascal, (25 shl 16) + 19, ds, offset gpMUSIC, si
les bx, dword_FC54
mov al, es:[bx+15h]
mov ah, 0
or ax, ax
jz short loc_A006
cmp ax, 1
jz short loc_A012
cmp ax, 2
jz short loc_A01E
jmp loc_A092
; ---------------------------------------------------------------------------
loc_A006:
push (35 shl 16) + 19
push ds
push offset gpOFF
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A012:
push (35 shl 16) + 19
push ds
push offset gpFM_86
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A01E:
push (35 shl 16) + 19
push ds
push offset gpMIDI_SC88
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A02A:
cmp di, 2
jnz short loc_A07D
call gaiji_putsa pascal, (23 shl 16) + 21, ds, offset gpKEYCONFIG, si
les bx, dword_FC54
mov al, es:[bx+16h]
mov ah, 0
or ax, ax
jz short loc_A059
cmp ax, 1
jz short loc_A065
cmp ax, 2
jz short loc_A071
jmp short loc_A092
; ---------------------------------------------------------------------------
loc_A059:
push (37 shl 16) + 21
push ds
push offset gpKEY_VS_KEY
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A065:
push (37 shl 16) + 21
push ds
push offset gpJOY_VS_KEY
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A071:
push (37 shl 16) + 21
push ds
push offset gpKEY_VS_JOY
jmp short loc_A08C
; ---------------------------------------------------------------------------
loc_A07D:
cmp di, 3
jnz short loc_A092
push (32 shl 16) + 22
push ds
push offset gpQUIT
loc_A08C:
push si
call gaiji_putsa
loc_A092:
pop di
pop si
pop bp
retn 4
sub_9F57 endp
; ---------------------------------------------------------------------------
db 0
off_A099 dw offset loc_9FA2
dw offset loc_9FAF
dw offset loc_9FBC
dw offset loc_9FC9
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A0A1 proc near
arg_0 = byte ptr 4
arg_2 = byte ptr 6
push bp
mov bp, sp
mov al, byte_D951
cbw
push ax
push 1
call fp_E97E
mov al, [bp+arg_0]
add byte_D951, al
cmp byte_D951, 0
jge short loc_A0C3
mov al, [bp+arg_2]
mov byte_D951, al
loc_A0C3:
mov al, byte_D951
cmp al, [bp+arg_2]
jle short loc_A0D0
mov byte_D951, 0
loc_A0D0:
mov al, byte_D951
cbw
push ax
push 0E1h
call fp_E97E
pop bp
retn 4
sub_A0A1 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A0E0 proc near
push bp
mov bp, sp
push si
cmp byte_D954, 0
jnz short loc_A133
call text_clear
cmp byte_D953, 0
jnz short loc_A0FA
call sub_B0DB
loc_A0FA:
mov byte_D953, 0
mov byte_E97A, 0
xor si, si
jmp short loc_A11E
; ---------------------------------------------------------------------------
loc_A108:
push si
mov al, byte_D951
cbw
cmp ax, si
jnz short loc_A116
mov ax, 0E1h
jmp short loc_A119
; ---------------------------------------------------------------------------
loc_A116:
mov ax, 1
loc_A119:
push ax
call sub_9EDD
inc si
loc_A11E:
cmp si, 6
jl short loc_A108
mov fp_E97E, offset sub_9EDD
mov byte_D954, 1
mov byte_E97A, 0
loc_A133:
cmp word_F296, 0
jnz short loc_A13F
mov byte_E97A, 1
loc_A13F:
cmp byte_E97A, 0
jz loc_A1F3
test byte ptr word_F296, 1
jz short loc_A156
push 5
push 0FFFFh
call sub_A0A1
loc_A156:
test byte ptr word_F296, 2
jz short loc_A164
push 5
push 1
call sub_A0A1
loc_A164:
test byte ptr word_F296+1, 20h
jnz short loc_A172
test byte ptr word_F296, 20h
jz short loc_A1DB
loc_A172:
mov al, byte_D951
cbw
mov bx, ax
cmp bx, 5
ja short loc_A1DB
add bx, bx
jmp cs:off_A1F7[bx]
loc_A184:
call sub_9A17
jmp short loc_A19A
; ---------------------------------------------------------------------------
loc_A189:
les bx, dword_FC54
mov byte ptr es:[bx+0Ch], 1
mov byte ptr es:[bx+0Dh], 1
call sub_9BDF
loc_A19A:
call sub_B008
call sub_9E16
call sub_B3C3
mov byte_D954, 0
mov byte_E97A, 0
mov byte_D953, 1
jmp short loc_A1F3
; ---------------------------------------------------------------------------
loc_A1B4:
nopcall sub_AC06
jmp short loc_A19A
; ---------------------------------------------------------------------------
loc_A1BB:
call sub_9E7F
jmp short loc_A1DB
; ---------------------------------------------------------------------------
loc_A1C0:
mov byte_D954, 0
mov byte_E97C, 1
mov byte_D951, 0
jmp short loc_A1DB
; ---------------------------------------------------------------------------
loc_A1D1:
mov byte_D954, 0
mov byte_D952, 1
loc_A1DB:
test byte ptr word_F296+1, 10h
jz short loc_A1E7
mov byte_D952, 1
loc_A1E7:
cmp word_F296, 0
jz short loc_A1F3
mov byte_E97A, 0
loc_A1F3:
pop si
pop bp
retn
sub_A0E0 endp
; ---------------------------------------------------------------------------
db 0
off_A1F7 dw offset loc_A184
dw offset loc_A189
dw offset loc_A1B4
dw offset loc_A1BB
dw offset loc_A1C0
dw offset loc_A1D1
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A203 proc near
push bp
mov bp, sp
push si
cmp byte_D955, 0
jnz short loc_A24A
call text_clear
call sub_B0AF
mov byte_E97B, 0
xor si, si
jmp short loc_A235
; ---------------------------------------------------------------------------
loc_A21F:
push si
mov al, byte_D951
cbw
cmp ax, si
jnz short loc_A22D
mov ax, TX_WHITE
jmp short loc_A230
; ---------------------------------------------------------------------------
loc_A22D:
mov ax, TX_BLACK
loc_A230:
push ax
call sub_9F57
inc si
loc_A235:
cmp si, 4
jl short loc_A21F
mov fp_E97E, offset sub_9F57
mov byte_D955, 1
mov byte_E97B, 0
loc_A24A:
cmp word_F296, 0
jnz short loc_A256
mov byte_E97B, 1
loc_A256:
cmp byte_E97B, 0
jz loc_A414
test byte ptr word_F296, 1
jz short loc_A26D
push 3
push 0FFFFh
call sub_A0A1
loc_A26D:
test byte ptr word_F296, 2
jz short loc_A27B
push 3
push 1
call sub_A0A1
loc_A27B:
test byte ptr word_F296, 8
jz loc_A31D
mov al, byte_D951
cbw
or ax, ax
jz short loc_A298
cmp ax, 1
jz short loc_A2AE
cmp ax, 2
jz short loc_A2FE
jmp short loc_A312
; ---------------------------------------------------------------------------
loc_A298:
les bx, dword_FC54
inc byte ptr es:[bx+0Bh]
cmp byte ptr es:[bx+0Bh], 3
jbe short loc_A312
mov byte ptr es:[bx+0Bh], 0
jmp short loc_A312
; ---------------------------------------------------------------------------
loc_A2AE:
cmp byte_D880, 0
jnz short loc_A312
les bx, dword_FC54
cmp byte ptr es:[bx+15h], 0
jnz short loc_A2DB
mov byte ptr es:[bx+15h], 1
kajacall KAJA_SONG_STOP
call snd_determine_mode
kajacall KAJA_SONG_PLAY
jmp short loc_A2F1
; ---------------------------------------------------------------------------
loc_A2DB:
les bx, dword_FC54
mov byte ptr es:[bx+15h], 0
kajacall KAJA_SONG_STOP
mov _snd_active, 0
loc_A2F1:
mov al, byte_D951
cbw
push ax
push 0E1h
call sub_9F57
jmp short loc_A312
; ---------------------------------------------------------------------------
loc_A2FE:
les bx, dword_FC54
inc byte ptr es:[bx+16h]
cmp byte ptr es:[bx+16h], 2
jbe short loc_A312
mov byte ptr es:[bx+16h], 0
loc_A312:
mov al, byte_D951
cbw
push ax
push 0E1h
call sub_9F57
loc_A31D:
test byte ptr word_F296, 4
jz loc_A3CC
mov al, byte_D951
cbw
or ax, ax
jz short loc_A33B
cmp ax, 1
jz short loc_A357
cmp ax, 2
jz short loc_A3A7
jmp loc_A3C1
; ---------------------------------------------------------------------------
loc_A33B:
les bx, dword_FC54
cmp byte ptr es:[bx+0Bh], 0
jnz short loc_A34D
mov byte ptr es:[bx+0Bh], 3
jmp short loc_A3C1
; ---------------------------------------------------------------------------
loc_A34D:
les bx, dword_FC54
dec byte ptr es:[bx+0Bh]
jmp short loc_A3C1
; ---------------------------------------------------------------------------
loc_A357:
cmp byte_D880, 0
jnz short loc_A3C1
les bx, dword_FC54
cmp byte ptr es:[bx+15h], 0
jnz short loc_A384
mov byte ptr es:[bx+15h], 1
kajacall KAJA_SONG_STOP
call snd_determine_mode
kajacall KAJA_SONG_PLAY
jmp short loc_A39A
; ---------------------------------------------------------------------------
loc_A384:
les bx, dword_FC54
mov byte ptr es:[bx+15h], 0
kajacall KAJA_SONG_STOP
mov _snd_active, 0
loc_A39A:
mov al, byte_D951
cbw
push ax
push 0E1h
call sub_9F57
jmp short loc_A3C1
; ---------------------------------------------------------------------------
loc_A3A7:
les bx, dword_FC54
cmp byte ptr es:[bx+16h], 0
jnz short loc_A3B9
mov byte ptr es:[bx+16h], 2
jmp short loc_A3C1
; ---------------------------------------------------------------------------
loc_A3B9:
les bx, dword_FC54
dec byte ptr es:[bx+16h]
loc_A3C1:
mov al, byte_D951
cbw
push ax
push 0E1h
call sub_9F57
loc_A3CC:
test byte ptr word_F296+1, 20h
jnz short loc_A3DA
test byte ptr word_F296, 20h
jz short loc_A3F2
loc_A3DA:
mov al, byte_D951
cbw
cmp ax, 3
jnz short loc_A3F2
mov byte_D955, 0
mov byte_D951, 4
mov byte_E97C, 0
loc_A3F2:
test byte ptr word_F296+1, 10h
jz short loc_A408
mov byte_D955, 0
mov byte_D951, 4
mov byte_E97C, 0
loc_A408:
cmp word_F296, 0
jz short loc_A414
mov byte_E97B, 0
loc_A414:
pop si
pop bp
retn
sub_A203 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
_argc = word ptr 6
_argv = dword ptr 8
_envp = dword ptr 0Ch
push bp
mov bp, sp
call graph_400line
call text_clear
call respal_create
cmp graph_VramZoom, 0
jz short loc_A452
push ds
push offset aVfvcvbgngngbgn
call dos_puts2
push ds
push offset aUmx
call dos_puts2
push ds
push offset aViosrfvVVkvqbd
loc_A446:
call dos_puts2
call _getch
pop bp
retf
; ---------------------------------------------------------------------------
loc_A452:
push ds
push offset aCOul ; "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1.dat"
call sub_C421
add sp, 4
or ax, ax
jz short loc_A468
push ds
push offset aGbgvgkxsslvVBb ; "\n<><6E><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>ł<EFBFBD><C582>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󂫂𑝂₵<F0919D82>Ă<EFBFBD>"...
jmp short loc_A446
; ---------------------------------------------------------------------------
loc_A468:
call gaiji_backup
push ds
push offset aMikoft_bft ; "MIKOFT.bft"
call gaiji_entry_bfnt
call sub_9908
les bx, dword_FC54
cmp byte ptr es:[bx+28h], 80h
jb short loc_A497
cmp byte ptr es:[bx+39h], 0
jnz short loc_A497
call sub_B38D
call sub_B3EF
call sub_B3C3
call sub_9BDF
loc_A497:
les bx, dword_FC54
cmp byte ptr es:[bx+37h], 0
jnz short loc_A4B0
call sub_ADE2
les bx, dword_FC54
mov byte ptr es:[bx+37h], 1
jmp short loc_A4BC
; ---------------------------------------------------------------------------
loc_A4B0:
les bx, dword_FC54
mov byte ptr es:[bx+37h], 0
call sub_B008
loc_A4BC:
call sub_9E16
mov byte_E97C, 0
mov word_F296, 0
call sub_A0E0
call sub_B3C3
jmp short loc_A4FE
; ---------------------------------------------------------------------------
loc_A4D2:
call sub_C986
mov al, byte_E97C
cbw
or ax, ax
jz short loc_A4E6
cmp ax, 1
jz short loc_A4EB
jmp short loc_A4EE
; ---------------------------------------------------------------------------
loc_A4E6:
call sub_A0E0
jmp short loc_A4EE
; ---------------------------------------------------------------------------
loc_A4EB:
call sub_A203
loc_A4EE:
les bx, dword_FC54
inc dword ptr es:[bx+10h]
push 1
call frame_delay
loc_A4FE:
cmp byte_D952, 0
jz short loc_A4D2
call sub_99C3
call gaiji_restore
call text_clear
call sub_BEB8
call respal_free
pop bp
retf
_main endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A51E proc near
var_1 = byte ptr -1
arg_0 = byte ptr 4
arg_2 = byte ptr 6
enter 2, 0
mov al, 1
sub al, byte ptr word_F828+1
mov [bp+var_1], al
mov dx, 0A6h ; '<27>'
out dx, al
push 10h
mov al, [bp+arg_2]
mov ah, 0
shl ax, 4
add ax, 28h ; '('
push ax
mov al, [bp+arg_0]
mov ah, 0
or ax, 20h
push ax
mov al, [bp+arg_2]
mov ah, 0
shl ax, 2
mov bx, ax
pushd dword ptr [bx+5F2h]
call sub_C6DB
mov dx, 0A6h ; '<27>'
mov al, byte ptr word_F828+1
out dx, al
push 10h
mov al, [bp+arg_2]
mov ah, 0
shl ax, 4
add ax, 28h ; '('
push ax
mov al, [bp+arg_0]
mov ah, 0
or ax, 20h
push ax
mov al, [bp+arg_2]
mov ah, 0
shl ax, 2
mov bx, ax
pushd dword ptr [bx+5F2h]
call sub_C6DB
leave
retn 4
sub_A51E endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A590 proc near
arg_0 = byte ptr 4
push bp
mov bp, sp
push si
xor si, si
jmp short loc_A5AD
; ---------------------------------------------------------------------------
loc_A598:
push si
mov al, [bp+arg_0]
mov ah, 0
cmp ax, si
jnz short loc_A5A6
mov al, 0Fh
jmp short loc_A5A8
; ---------------------------------------------------------------------------
loc_A5A6:
mov al, 3
loc_A5A8:
push ax
call sub_A51E
inc si
loc_A5AD:
cmp si, 15h
jl short loc_A598
pop si
pop bp
retn 2
sub_A590 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A5B7 proc near
push bp
mov bp, sp
push si
push 7D00h
call hmem_allocbyte
mov word_F82A, ax
xor si, si
jmp short loc_A5DF
; ---------------------------------------------------------------------------
loc_A5CA:
les bx, _VRAM_PLANE_B
add bx, si
mov eax, es:[bx]
mov es, word_F82A
mov es:[si], eax
add si, 4
loc_A5DF:
cmp si, 7D00h
jl short loc_A5CA
pop si
pop bp
retn
sub_A5B7 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A5E8 proc near
push bp
mov bp, sp
push word_F82A
call hmem_free
pop bp
retn
sub_A5E8 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A5F6 proc near
push bp
mov bp, sp
push si
push di
push ds
mov ax, 0A800h
mov es, ax
assume es:nothing
mov ax, word_F82A
mov ds, ax
xor di, di
xor si, si
mov cx, 3E80h
rep movsw
pop ds
pop di
pop si
pop bp
retn
sub_A5F6 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A614 proc near
var_3 = byte ptr -3
var_2 = word ptr -2
arg_0 = byte ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
arg_6 = word ptr 0Ah
arg_8 = word ptr 0Ch
arg_A = word ptr 0Eh
enter 4, 0
push si
push di
mov di, [bp+arg_A]
sar [bp+arg_6], 4
mov [bp+var_2], 0
jmp short loc_A67F
; ---------------------------------------------------------------------------
loc_A628:
mov ax, [bp+var_2]
shl ax, 8
cwd
idiv [bp+arg_2]
add al, [bp+arg_0]
mov [bp+var_3], al
mov ah, 0
add ax, ax
mov bx, ax
push word ptr [bx+396h]
push [bp+arg_4]
push [bp+arg_8]
call sub_C005
add sp, 6
mov bx, [bp+var_2]
shl bx, 2
mov [bx+di], ax
mov al, [bp+var_3]
mov ah, 0
add ax, ax
mov bx, ax
push word ptr [bx+316h]
push [bp+arg_4]
push [bp+arg_6]
call sub_C005
add sp, 6
mov bx, [bp+var_2]
shl bx, 2
mov [bx+di+2], ax
inc [bp+var_2]
loc_A67F:
mov ax, [bp+var_2]
cmp ax, [bp+arg_2]
jl short loc_A628
mov bx, [bp+var_2]
shl bx, 2
mov ax, [di]
mov [bx+di], ax
mov bx, [bp+var_2]
shl bx, 2
mov ax, [di+2]
mov [bx+di+2], ax
pop di
pop si
leave
retn 0Ch
sub_A614 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A6A3 proc near
push bp
mov bp, sp
push si
cmp byte_DE82, 0
jnz loc_A752
xor si, si
jmp loc_A746
; ---------------------------------------------------------------------------
loc_A6B5:
call IRand
mov bx, 280h
cwd
idiv bx
mov bx, si
shl bx, 2
mov [bx+1F98h], dx
call IRand
mov bx, 1900h
cwd
idiv bx
mov bx, si
shl bx, 2
mov [bx+1F9Ah], dx
call IRand
and ax, 7
mov dx, 4
sub dx, ax
mov bx, si
shl bx, 2
mov [bx+1FD8h], dx
mov bx, si
shl bx, 2
cmp word ptr [bx+1FD8h], 0
jnz short loc_A70A
mov bx, si
shl bx, 2
mov word ptr [bx+1FD8h], 1
loc_A70A:
call IRand
and ax, 3
shl ax, 4
add ax, 20h ; ' '
mov bx, si
shl bx, 2
mov [bx+1FDAh], ax
call IRand
mov [si+2018h], al
call IRand
and al, 7
mov dl, 4
sub dl, al
mov [si+2028h], dl
cmp byte ptr [si+2028h], 0
jnz short loc_A745
mov byte ptr [si+2028h], 4
loc_A745:
inc si
loc_A746:
cmp si, 10h
jl loc_A6B5
mov byte_DE82, 1
loc_A752:
xor si, si
jmp loc_A88F
; ---------------------------------------------------------------------------
loc_A757:
push 1F70h
mov bx, si
shl bx, 2
push word ptr [bx+1F98h]
mov bx, si
shl bx, 2
push word ptr [bx+1F9Ah]
mov ax, si
and ax, 3
shl ax, 4
add ax, 40h
push ax
mov ax, si
mov bx, 4
cwd
idiv bx
add ax, 3
push ax
mov al, [si+2018h]
push ax
call sub_A614
mov bx, si
shl bx, 2
mov ax, [bx+1FD8h]
mov bx, si
shl bx, 2
add [bx+1F98h], ax
mov bx, si
shl bx, 2
mov ax, [bx+1FDAh]
mov bx, si
shl bx, 2
add [bx+1F9Ah], ax
mov al, [si+2028h]
add [si+2018h], al
mov bx, si
shl bx, 2
cmp word ptr [bx+1F98h], 0
jle short loc_A7D1
mov bx, si
shl bx, 2
cmp word ptr [bx+1F98h], 27Fh
jl short loc_A7E3
loc_A7D1:
mov bx, si
shl bx, 2
mov dx, 0FFFFh
mov ax, [bx+1FD8h]
imul dx
mov [bx+1FD8h], ax
loc_A7E3:
mov bx, si
shl bx, 2
cmp word ptr [bx+1F9Ah], 1F40h
jl loc_A879
call IRand
mov bx, 280h
cwd
idiv bx
mov bx, si
shl bx, 2
mov [bx+1F98h], dx
mov bx, si
shl bx, 2
mov word ptr [bx+1F9Ah], 0F9C0h
call IRand
and ax, 0Fh
mov dx, 8
sub dx, ax
mov bx, si
shl bx, 2
mov [bx+1FD8h], dx
mov bx, si
shl bx, 2
cmp word ptr [bx+1FD8h], 0
jnz short loc_A83E
mov bx, si
shl bx, 2
mov word ptr [bx+1FD8h], 1
loc_A83E:
call IRand
and ax, 3
shl ax, 4
add ax, 20h ; ' '
mov bx, si
shl bx, 2
mov [bx+1FDAh], ax
call IRand
mov [si+2018h], al
call IRand
and al, 7
mov dl, 4
sub dl, al
mov [si+2028h], dl
cmp byte ptr [si+2028h], 0
jnz short loc_A879
mov byte ptr [si+2028h], 4
loc_A879:
push ds
push offset unk_F760
mov ax, si
mov bx, 4
cwd
idiv bx
add ax, 3
push ax
call grcg_polygon_c
inc si
loc_A88F:
cmp si, 10h
jl loc_A757
pop si
pop bp
retn
sub_A6A3 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A899 proc near
push bp
mov bp, sp
call sub_A5F6
call grcg_setcolor pascal, ((GC_RMW or GC_B) shl 16) + 15
call sub_A6A3
call grcg_off
mov dx, 0A4h ; '<27>'
mov al, byte ptr word_F828+1
out dx, al
mov al, 1
sub al, byte ptr word_F828+1
mov byte ptr word_F828+1, al
mov dx, 0A6h ; '<27>'
out dx, al
push 1
call frame_delay_2
pop bp
retn
sub_A899 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_A8CF proc near
var_6 = word ptr -6
var_4 = word ptr -4
var_2 = word ptr -2
enter 6, 0
push si
push di
mov [bp+var_6], 0
jmp short loc_A8F7
; ---------------------------------------------------------------------------
loc_A8DC:
push 3200h
call hmem_allocbyte
mov bx, [bp+var_6]
shl bx, 2
mov [bx+203Eh], ax
mov word ptr [bx+203Ch], 0
inc [bp+var_6]
loc_A8F7:
cmp [bp+var_6], 4
jl short loc_A8DC
xor si, si
mov di, 40h
jmp short loc_A97D
; ---------------------------------------------------------------------------
loc_A904:
mov [bp+var_2], 130h
jmp short loc_A975
; ---------------------------------------------------------------------------
loc_A90B:
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_4], ax
les bx, _VRAM_PLANE_B
assume es:nothing
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F82C
mov es:[bx+si], eax
les bx, _VRAM_PLANE_R
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F830
mov es:[bx+si], eax
les bx, _VRAM_PLANE_G
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F834
mov es:[bx+si], eax
les bx, _VRAM_PLANE_E
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F838
mov es:[bx+si], eax
add si, 4
add [bp+var_2], 20h ; ' '
loc_A975:
cmp [bp+var_2], 270h
jl short loc_A90B
inc di
loc_A97D:
cmp di, 50h ; 'P'
jl short loc_A904
mov di, 50h ; 'P'
jmp short loc_AA00
; ---------------------------------------------------------------------------
loc_A987:
mov [bp+var_2], 130h
jmp short loc_A9F8
; ---------------------------------------------------------------------------
loc_A98E:
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_4], ax
les bx, _VRAM_PLANE_B
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F82C
mov es:[bx+si], eax
les bx, _VRAM_PLANE_R
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F830
mov es:[bx+si], eax
les bx, _VRAM_PLANE_G
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F834
mov es:[bx+si], eax
les bx, _VRAM_PLANE_E
add bx, [bp+var_4]
mov eax, es:[bx]
les bx, dword ptr unk_F838
mov es:[bx+si], eax
add si, 4
add [bp+var_2], 20h ; ' '
loc_A9F8:
cmp [bp+var_2], 270h
jl short loc_A98E
inc di
loc_AA00:
cmp di, 180h
jl short loc_A987
pop di
pop si
leave
retn
sub_A8CF endp
include th02/music/music_cmt_load.asm
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_AA53 proc near
push bp
mov bp, sp
push word_F82E
call hmem_free
push word_F832
call hmem_free
push word_F836
call hmem_free
push word_F83A
call hmem_free
pop bp
retn
sub_AA53 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_AA7C proc near
var_2 = word ptr -2
enter 2, 0
push si
push di
xor cx, cx
mov si, 40h
jmp short loc_AB05
; ---------------------------------------------------------------------------
loc_AA89:
mov di, 130h
jmp short loc_AAFE
; ---------------------------------------------------------------------------
loc_AA8E:
mov ax, di
sar ax, 3
mov dx, si
shl dx, 6
add ax, dx
mov dx, si
shl dx, 4
add ax, dx
mov [bp+var_2], ax
les bx, dword ptr unk_F82C
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_B
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F830
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_R
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F834
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_G
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F838
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_E
add bx, [bp+var_2]
mov es:[bx], eax
add cx, 4
add di, 20h ; ' '
loc_AAFE:
cmp di, 270h
jl short loc_AA8E
inc si
loc_AB05:
cmp si, 50h ; 'P'
jl loc_AA89
mov si, 50h ; 'P'
jmp short loc_AB8D
; ---------------------------------------------------------------------------
loc_AB11:
mov di, 130h
jmp short loc_AB86
; ---------------------------------------------------------------------------
loc_AB16:
mov ax, di
sar ax, 3
mov dx, si
shl dx, 6
add ax, dx
mov dx, si
shl dx, 4
add ax, dx
mov [bp+var_2], ax
les bx, dword ptr unk_F82C
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_B
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F830
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_R
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F834
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_G
add bx, [bp+var_2]
mov es:[bx], eax
les bx, dword ptr unk_F838
add bx, cx
mov eax, es:[bx]
les bx, _VRAM_PLANE_E
add bx, [bp+var_2]
mov es:[bx], eax
add cx, 4
add di, 20h ; ' '
loc_AB86:
cmp di, 270h
jl short loc_AB16
inc si
loc_AB8D:
cmp si, 180h
jl loc_AB11
pop di
pop si
leave
retn
sub_AA7C endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_AB99 proc near
@@track = word ptr 4
push bp
mov bp, sp
push si
push di
call music_cmt_load pascal, [bp+@@track]
call sub_A5F6
call sub_AA7C
push 1300040h
push 1Fh
push ds
push offset _music_cmt
call sub_C6DB
mov di, 1
jmp short loc_ABDC
; ---------------------------------------------------------------------------
loc_ABC0:
push 130h
lea ax, [di+4]
shl ax, 4
push ax
push 1Dh
push ds
mov ax, di
imul ax, MUSIC_CMT_LINE_LEN
add ax, offset _music_cmt
push ax
call sub_C6DB
inc di
loc_ABDC:
cmp di, MUSIC_CMT_LINE_COUNT
jl short loc_ABC0
xor si, si
jmp short loc_ABFA
; ---------------------------------------------------------------------------
loc_ABE5:
les bx, _VRAM_PLANE_B
add bx, si
mov eax, es:[bx]
mov es, word_F82A
mov es:[si], eax
add si, 4
loc_ABFA:
cmp si, 7D00h
jl short loc_ABE5
pop di
pop si
pop bp
retn 2
sub_AB99 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_AC06 proc far
push bp
mov bp, sp
push si
xor si, si
jmp short loc_AC15
; ---------------------------------------------------------------------------
loc_AC0E:
push si
call sub_C69C
inc si
loc_AC15:
cmp si, 20h ; ' '
jl short loc_AC0E
call super_free
call text_clear
mov byte ptr word_F828+1, 1
mov PaletteTone, 0
call far ptr palette_show
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
mov dx, 0A6h ; '<27>'
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call pi_slot_load pascal, 0, ds, offset aOp3_pi
call pi_slot_palette_apply pascal, 0
call pi_slot_put pascal, large 0, 0
freePISlotLarge 0
mov al, byte_DE83
mov byte ptr word_F828, al
push word_F828
call sub_A590
push 0
call graph_copy_page
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
call sub_A5B7
call sub_A8CF
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
mov al, byte_DE83
mov ah, 0
call sub_AB99 pascal, ax
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
mov al, byte_DE83
mov ah, 0
call sub_AB99 pascal, ax
mov PaletteTone, 64h ; 'd'
call far ptr palette_show
loc_ACC2:
call sub_C986
cmp word_F296, 0
jz short loc_ACD3
call sub_A899
jmp short loc_ACC2
; ---------------------------------------------------------------------------
loc_ACD3:
call sub_C986
test byte ptr word_F296, 1
jz short loc_AD0E
push word_F828
push 3
call sub_A51E
cmp byte ptr word_F828, 0
jbe short loc_ACF5
dec byte ptr word_F828
jmp short loc_ACFA
; ---------------------------------------------------------------------------
loc_ACF5:
mov byte ptr word_F828, 14h
loc_ACFA:
cmp byte ptr word_F828, 13h
jnz short loc_AD05
dec byte ptr word_F828
loc_AD05:
push word_F828
push 0Fh
call sub_A51E
loc_AD0E:
test byte ptr word_F296, 2
jz short loc_AD44
push word_F828
push 3
call sub_A51E
cmp byte ptr word_F828, 14h
jnb short loc_AD2B
inc byte ptr word_F828
jmp short loc_AD30
; ---------------------------------------------------------------------------
loc_AD2B:
mov byte ptr word_F828, 0
loc_AD30:
cmp byte ptr word_F828, 13h
jnz short loc_AD3B
inc byte ptr word_F828
loc_AD3B:
push word_F828
push 0Fh
call sub_A51E
loc_AD44:
test byte ptr word_F296, 20h
jnz short loc_AD52
test byte ptr word_F296+1, 20h
jz short loc_AD9A
loc_AD52:
cmp byte ptr word_F828, 14h
jz short loc_ADB0
kajacall KAJA_SONG_STOP
push SND_LOAD_SONG
mov al, byte ptr word_F828
mov ah, 0
shl ax, 2
mov bx, ax
pushd dword ptr [bx+646h]
call snd_load
add sp, 6
kajacall KAJA_SONG_PLAY
mov al, byte ptr word_F828
mov byte_DE83, al
mov ah, 0
call sub_AB99 pascal, ax
call sub_A899
mov al, byte ptr word_F828
mov ah, 0
call sub_AB99 pascal, ax
loc_AD9A:
test byte ptr word_F296+1, 10h
jnz short loc_ADB0
cmp word_F296, 0
jnz loc_ACC2
call sub_A899
jmp loc_ACD3
; ---------------------------------------------------------------------------
loc_ADB0:
call sub_C986
cmp word_F296, 0
jz short loc_ADC1
call sub_A899
jmp short loc_ADB0
; ---------------------------------------------------------------------------
loc_ADC1:
call sub_A5E8
call sub_AA53
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
mov dx, 0A6h ; '<27>'
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
mov al, 0
out dx, al
pop si
pop bp
retf
sub_AC06 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_ADE2 proc near
var_3 = byte ptr -3
var_2 = word ptr -2
enter 4, 0
push si
mov [bp+var_2], 0
mov [bp+var_3], 0
push ds
push offset aOpwin_bft ; "opwin.bft"
call super_entry_bfnt
kajacall KAJA_SONG_STOP
call snd_load c, offset aOp_m, ds, SND_LOAD_SONG
call pi_slot_load pascal, 0, ds, offset aTl01_pi
mov PaletteTone, 0
call far ptr palette_show
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call pi_slot_put pascal, large 0, 0
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call pi_slot_palette_apply pascal, 0
call pi_slot_put pascal, large 0, 0
push 2
call egc_shift_left_all
mov Palettes+45, 0
mov Palettes+46, 0
mov Palettes+47, 0
call far ptr palette_show
mov Palettes+33, 0
mov Palettes+34, 0
mov Palettes+35, 0
call far ptr palette_show
freePISlotLarge 0
call pi_slot_load pascal, 0, ds, offset aTl02_pi
mov dx, 0A4h ; '<27>'
mov al, 1
out dx, al
mov si, 0A0h
jmp short loc_AF02
; ---------------------------------------------------------------------------
loc_AEA0:
push 1
call frame_delay
mov al, byte ptr [bp+var_2]
mov Palettes+45, al
mov Palettes+46, al
mov Palettes+47, al
call far ptr palette_show
cmp [bp+var_2], 80h
jg short loc_AECB
mov al, byte ptr [bp+var_2]
mov Palettes+33, al
mov Palettes+34, al
mov Palettes+35, al
loc_AECB:
call far ptr palette_show
cmp [bp+var_2], 64h ; 'd'
jg short loc_AEE1
mov ax, [bp+var_2]
mov PaletteTone, ax
call far ptr palette_show
loc_AEE1:
add [bp+var_2], 2
mov dx, 0A4h ; '<27>'
mov al, [bp+var_3]
out dx, al
mov al, 1
sub al, [bp+var_3]
mov [bp+var_3], al
mov dx, 0A6h ; '<27>'
out dx, al
push 4
call egc_shift_left_all
sub si, 2
loc_AF02:
cmp si, 11h
jg short loc_AEA0
jmp short loc_AF25
; ---------------------------------------------------------------------------
loc_AF09:
mov al, byte ptr [bp+var_2]
mov Palettes+45, al
mov Palettes+46, al
mov Palettes+47, al
call far ptr palette_show
add [bp+var_2], 2
push 1
call frame_delay
loc_AF25:
cmp [bp+var_2], 0FFh
jl short loc_AF09
mov vsync_Count1, 0
call sub_B3EF
loc_AF35:
cmp vsync_Count1, 10h
jb short loc_AF35
xor si, si
jmp short loc_AF65
; ---------------------------------------------------------------------------
loc_AF40:
mov PaletteTone, 0C8h ; '<27>'
call far ptr palette_show
push 1
call frame_delay
mov PaletteTone, 64h ; 'd'
call far ptr palette_show
push 1
call frame_delay
inc si
loc_AF65:
cmp si, 8
jl short loc_AF40
mov PaletteTone, 0C8h ; '<27>'
call far ptr palette_show
kajacall KAJA_SONG_PLAY
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
mov dx, 0A6h ; '<27>'
out dx, al
call pi_slot_palette_apply pascal, 0
call pi_slot_put pascal, large 0, 0
push 1
call frame_delay
mov PaletteTone, 64h ; 'd'
call far ptr palette_show
push 1
call frame_delay
xor si, si
jmp short loc_AFD9
; ---------------------------------------------------------------------------
loc_AFB4:
mov PaletteTone, 0C8h ; '<27>'
call far ptr palette_show
push 1
call frame_delay
mov PaletteTone, 64h ; 'd'
call far ptr palette_show
push 1
call frame_delay
inc si
loc_AFD9:
cmp si, 8
jl short loc_AFB4
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call pi_slot_put pascal, large 0, 0
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
freePISlotLarge 0
call sub_B38D
pop si
leave
retn
sub_ADE2 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B008 proc near
push bp
mov bp, sp
push si
push ds
push offset aOpwin_bft ; "opwin.bft"
call super_entry_bfnt
kajacall KAJA_SONG_STOP
call snd_load c, offset aOp_m, ds, SND_LOAD_SONG
mov PaletteTone, 0
call far ptr palette_show
call pi_slot_load pascal, 0, ds, offset aTl02_pi
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
call sub_B3EF
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call pi_slot_put pascal, large 0, 0
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call pi_slot_palette_apply pascal, 0
call pi_slot_put pascal, large 0, 0
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
freePISlotLarge 0
call sub_B38D
kajacall KAJA_SONG_PLAY
xor si, si
jmp short loc_B0A7
; ---------------------------------------------------------------------------
loc_B094:
mov PaletteTone, si
call far ptr palette_show
push 1
call frame_delay
add si, 4
loc_B0A7:
cmp si, 64h ; 'd'
jle short loc_B094
pop si
pop bp
retn
sub_B008 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B0AF proc near
push bp
mov bp, sp
push si
mov si, 120h
jmp short loc_B0D2
; ---------------------------------------------------------------------------
loc_B0B8:
push si
call sub_B10A
push si
push 1000002h
call super_put
push 1
call frame_delay
add si, 8
loc_B0D2:
cmp si, 188h
jl short loc_B0B8
pop si
pop bp
retn
sub_B0AF endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B0DB proc near
push bp
mov bp, sp
push si
mov si, 180h
jmp short loc_B101
; ---------------------------------------------------------------------------
loc_B0E4:
lea ax, [si+8]
push ax
call sub_B10A
push si
push 1000002h
call super_put
push 1
call frame_delay
sub si, 8
loc_B101:
cmp si, 118h
jge short loc_B0E4
pop si
pop bp
retn
sub_B0DB endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B10A proc near
arg_0 = word ptr 4
push bp
mov bp, sp
push si
push di
mov ax, [bp+arg_0]
shr ax, 3
mov di, 77B0h
add di, ax
mov ax, 0AD00h
mov es, ax
assume es:nothing
loc_B11F:
mov al, 1
out 0A6h, al
mov dx, es:[di]
mov ax, 0B500h
mov es, ax
assume es:nothing
mov cx, es:[di]
mov ax, 0BD00h
mov es, ax
assume es:nothing
mov bx, es:[di]
mov ax, 0E500h
mov es, ax
assume es:nothing
mov si, es:[di]
xor al, al
out 0A6h, al
mov es:[di], si
mov ax, 0BD00h
mov es, ax
assume es:nothing
mov es:[di], bx
mov ax, 0B500h
mov es, ax
assume es:nothing
mov es:[di], cx
mov ax, 0AD00h
mov es, ax
assume es:nothing
mov es:[di], dx
sub di, 50h ; 'P'
jnb short loc_B11F
pop di
pop si
pop bp
retn 2
sub_B10A endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B168 proc near
var_4 = word ptr -4
var_1 = byte ptr -1
arg_0 = word ptr 4
enter 4, 0
push si
push di
mov [bp+var_4], 0
call IRand
mov byte_FC50, al
call IRand
mov byte_FC51, al
call IRand
mov byte_FBD7, al
mov si, 2396h
xor di, di
jmp short loc_B19B
; ---------------------------------------------------------------------------
loc_B192:
mov al, [si]
mov ah, 0
add [bp+var_4], ax
inc di
inc si
loc_B19B:
cmp di, 0CCh
jl short loc_B192
mov ax, [bp+var_4]
mov word_FB84, ax
mov si, 2460h
dec si
mov al, byte_FC51
mov [bp+var_1], al
mov di, 0CBh ; '<27>'
jmp short loc_B1D4
; ---------------------------------------------------------------------------
loc_B1B6:
mov al, [si]
mov dl, byte_FC50
add dl, [bp+var_1]
sub al, dl
mov [si], al
mov al, [si]
mov [bp+var_1], al
mov al, byte_FC51
ror [bp+var_1], 3
xor [bp+var_1], al
dec di
dec si
loc_B1D4:
or di, di
jge short loc_B1B6
push ds
push word_E1F2
call file_append
mov ax, [bp+arg_0]
imul ax, 0CEh
movzx eax, ax
push eax
push 0
call file_seek
push ds
push offset word_FB84
push 0CEh
call file_write
call file_close
pop di
pop si
leave
retn 2
sub_B168 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B20D proc near
var_1 = byte ptr -1
enter 2, 0
push si
mov si, 2394h
xor dx, dx
jmp short loc_B235
; ---------------------------------------------------------------------------
loc_B219:
mov al, [si+1]
mov [bp+var_1], al
mov al, byte_FC51
ror [bp+var_1], 3
xor [bp+var_1], al
mov al, byte_FC50
add al, [bp+var_1]
add al, [si]
mov [si], al
inc dx
inc si
loc_B235:
cmp dx, 0CBh ; '<27>'
jl short loc_B219
mov al, byte_FC50
add al, byte_FC51
add al, [si]
mov [si], al
pop si
leave
retn
sub_B20D endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B249 proc near
var_1 = byte ptr -1
enter 2, 0
push si
push di
mov [bp+var_1], 29h ; ')'
xor si, si
jmp short loc_B28A
; ---------------------------------------------------------------------------
loc_B257:
xor di, di
jmp short loc_B266
; ---------------------------------------------------------------------------
loc_B25B:
mov bx, si
shl bx, 3
mov byte ptr [bx+di+2396h], 2Ah ; '*'
inc di
loc_B266:
cmp di, 8
jl short loc_B25B
xor di, di
jmp short loc_B27A
; ---------------------------------------------------------------------------
loc_B26F:
mov bx, si
imul bx, 0Ah
mov byte ptr [bx+di+23E8h], 20h ; ' '
inc di
loc_B27A:
cmp di, 0Ah
jl short loc_B26F
mov byte ptr [si+244Ch], 0
mov byte ptr [si+2456h], 21h ; '!'
inc si
loc_B28A:
cmp si, 0Ah
jl short loc_B257
mov byte_FBDC, 21h ; '!'
mov di, 1
jmp short loc_B2A9
; ---------------------------------------------------------------------------
loc_B299:
mov bx, di
imul bx, 0Ah
mov al, [bp+var_1]
mov [bx+23EBh], al
inc di
dec [bp+var_1]
loc_B2A9:
cmp di, 0Ah
jl short loc_B299
mov byte_FBD6, 12h
xor si, si
jmp short loc_B2BF
; ---------------------------------------------------------------------------
loc_B2B7:
push si
call sub_B168
call sub_B20D
inc si
loc_B2BF:
cmp si, 4
jl short loc_B2B7
pop di
pop si
leave
retn
sub_B249 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B2C8 proc near
push bp
mov bp, sp
push si
xor cx, cx
mov si, 2396h
xor dx, dx
jmp short loc_B2DD
; ---------------------------------------------------------------------------
loc_B2D5:
mov al, [si]
mov ah, 0
add cx, ax
inc dx
inc si
loc_B2DD:
cmp dx, 0CCh
jl short loc_B2D5
cmp word_FB84, cx
jz short loc_B2ED
mov al, 1
jmp short loc_B2EF
; ---------------------------------------------------------------------------
loc_B2ED:
mov al, 0
loc_B2EF:
pop si
pop bp
retn
sub_B2C8 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B2F2 proc near
arg_0 = word ptr 4
push bp
mov bp, sp
push ds
push word_E1F2
call file_exist
or ax, ax
jnz short loc_B314
push ds
push word_E1F2
call file_create
call file_close
jmp short loc_B34D
; ---------------------------------------------------------------------------
loc_B314:
push ds
push word_E1F2
call file_ropen
mov ax, [bp+arg_0]
imul ax, 0CEh
movzx eax, ax
push eax
push 0
call file_seek
push ds
push offset word_FB84
push 0CEh
call file_read
call file_close
call sub_B20D
call sub_B2C8
or al, al
jz short loc_B357
loc_B34D:
call sub_B249
mov ax, 1
pop bp
retn 2
; ---------------------------------------------------------------------------
loc_B357:
xor ax, ax
pop bp
retn 2
sub_B2F2 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B35D proc near
var_1 = byte ptr -1
enter 2, 0
push si
mov [bp+var_1], 7
xor si, si
jmp short loc_B382
; ---------------------------------------------------------------------------
loc_B36A:
push si
call sub_B2F2
or ax, ax
jz short loc_B376
mov al, 7
jmp short loc_B38A
; ---------------------------------------------------------------------------
loc_B376:
cmp byte_FBD6, 63h ; 'c'
jnz short loc_B381
mov [bp+var_1], 9
loc_B381:
inc si
loc_B382:
cmp si, 4
jl short loc_B36A
mov al, [bp+var_1]
loc_B38A:
pop si
leave
retn
sub_B35D endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B38D proc near
push bp
mov bp, sp
push si
call sub_CB68
xor si, si
jmp short loc_B3B0
; ---------------------------------------------------------------------------
loc_B39A:
lea ax, [si+2]
push ax
mov bx, si
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 0
call sub_C48A
inc si
loc_B3B0:
cmp si, 3
jl short loc_B39A
push 0Dh
push ds
push offset aSlex_cd2 ; "slex.cd2"
call sub_C680
pop si
pop bp
retn
sub_B38D endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B3C3 proc near
push bp
mov bp, sp
push 1
push ds
push offset a99sl_cdg ; "99sl.cdg"
push 0
call sub_C48A
push 0Bh
push ds
push offset aSlwin_cdg ; "slwin.cdg"
push 0
call sub_C514
push 0Ch
push ds
push offset aSlex_cdg ; "slex.cdg"
push 0
call sub_C514
pop bp
retn
sub_B3C3 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B3EF proc near
push bp
mov bp, sp
push si
push 0
pushd [off_E1FE]
push 0
call sub_C48A
mov si, 3
jmp short loc_B41C
; ---------------------------------------------------------------------------
loc_B406:
lea ax, [si+2]
push ax
mov bx, si
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 0
call sub_C48A
inc si
loc_B41C:
cmp si, 6
jl short loc_B406
pop si
pop bp
retn
sub_B3EF endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B424 proc near
push bp
mov bp, sp
push si
mov vsync_Count1, 0
kajacall KAJA_SONG_STOP
call snd_load c, offset aSelect_m, ds, SND_LOAD_SONG
kajacall KAJA_SONG_PLAY
mov word_FC64, 0C8h ; '<27>'
les bx, dword_FC54
assume es:nothing
mov eax, es:[bx+10h]
mov random_seed, eax
call text_clear
call super_free
push ds
push offset aChname_bft ; "chname.bft"
call super_entry_bfnt
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call graph_clear
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
mov byte_FC5C, 0
push ds
push offset aTlsl_rgb ; "TLSL.RGB"
call palette_entry_rgb
call far ptr palette_show
mov si, 6
jmp short loc_B4BC
; ---------------------------------------------------------------------------
loc_B4A6:
lea ax, [si+2]
push ax
mov bx, si
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 0
call sub_C48A
inc si
loc_B4BC:
cmp si, 9
jl short loc_B4A6
loc_B4C1:
cmp vsync_Count1, 1Eh
jb short loc_B4C1
mov word_FC66, 8
call sub_B35D
mov byte_FC68, al
pop si
pop bp
retn
sub_B424 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B4D7 proc near
push bp
mov bp, sp
push si
xor si, si
jmp short loc_B4E6
; ---------------------------------------------------------------------------
loc_B4DF:
push si
call sub_C69C
inc si
loc_B4E6:
cmp si, 16h
jl short loc_B4DF
call super_free
pop si
pop bp
retn
sub_B4D7 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B4F3 proc near
push bp
mov bp, sp
push 200060h
cmp byte_FC5A, 0
jnz short loc_B50C
mov al, byte_FC58
cbw
add ax, 2
jmp short loc_B50E
; ---------------------------------------------------------------------------
loc_B50C:
xor ax, ax
loc_B50E:
push ax
call sub_C020
push 1A00060h
cmp byte_FC5B, 0
jnz short loc_B52A
mov al, byte_FC59
cbw
add ax, 2
jmp short loc_B52D
; ---------------------------------------------------------------------------
loc_B52A:
mov ax, 1
loc_B52D:
push ax
call sub_C0D4
pop bp
retn
sub_B4F3 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B535 proc near
push bp
mov bp, sp
push 200060h
cmp byte_FC5A, 0
jnz short loc_B54E
mov al, byte_FC58
cbw
add ax, 2
jmp short loc_B550
; ---------------------------------------------------------------------------
loc_B54E:
xor ax, ax
loc_B550:
push ax
call sub_C020
push 1A00060h
push 1
call sub_C020
pop bp
retn
sub_B535 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B565 proc near
var_4 = word ptr -4
var_2 = word ptr -2
enter 4, 0
push si
push di
push 200130h
push 0Bh
call sub_CAF6
les bx, dword_FC54
cmp byte ptr es:[bx+28h], 1
jz short loc_B590
push 1A00130h
push 0Bh
call sub_CAF6
loc_B590:
call grcg_setcolor pascal, (GC_RMW shl 16) + 14
mov [bp+var_2], 0
mov [bp+var_4], 13Bh
jmp short loc_B625
; ---------------------------------------------------------------------------
loc_B5A7:
mov di, 5
mov si, 8Ch ; '<27>E
jmp short loc_B5C7
; ---------------------------------------------------------------------------
loc_B5AF:
push si
push [bp+var_4]
lea ax, [si+8]
push ax
mov ax, [bp+var_4]
add ax, 0Fh
push ax
call grcg_boxfill
dec di
sub si, 0Bh
loc_B5C7:
mov al, byte_FC58
cbw
imul ax, 3
add ax, [bp+var_2]
mov bx, ax
mov al, [bx+0A32h]
mov ah, 0
cmp ax, di
jl short loc_B5AF
les bx, dword_FC54
cmp byte ptr es:[bx+28h], 1
jz short loc_B61E
mov di, 5
mov si, 20Ch
jmp short loc_B608
; ---------------------------------------------------------------------------
loc_B5F0:
push si
push [bp+var_4]
lea ax, [si+8]
push ax
mov ax, [bp+var_4]
add ax, 0Fh
push ax
call grcg_boxfill
dec di
sub si, 0Bh
loc_B608:
mov al, byte_FC59
cbw
imul ax, 3
add ax, [bp+var_2]
mov bx, ax
mov al, [bx+0A32h]
mov ah, 0
cmp ax, di
jl short loc_B5F0
loc_B61E:
inc [bp+var_2]
add [bp+var_4], 10h
loc_B625:
cmp [bp+var_2], 3
jl loc_B5A7
call grcg_off
pop di
pop si
leave
retn
sub_B565 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B636 proc near
push bp
mov bp, sp
push si
push di
mov di, 88h ; '<27>E
xor si, si
jmp short loc_B663
; ---------------------------------------------------------------------------
loc_B642:
push 100h
push di
mov ax, si
add ax, ax
push ax
call super_put
push 140h
push di
mov ax, si
add ax, ax
inc ax
push ax
call super_put
inc si
add di, 14h
loc_B663:
mov al, byte_FC68
mov ah, 0
cmp ax, si
jg short loc_B642
pop di
pop si
pop bp
retn
sub_B636 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B670 proc near
push bp
mov bp, sp
push 0A00130h
push 0Ch
call sub_CAF6
push 0B0013Ch
mov al, byte_FC58
cbw
add ax, 0Dh
push ax
call sub_CAF6
les bx, dword_FC54
cmp byte ptr es:[bx+28h], 1
jz short loc_B6BE
push 2200130h
push 0Ch
call sub_CAF6
push 230013Ch
mov al, byte_FC59
cbw
add ax, 0Dh
push ax
call sub_CAF6
loc_B6BE:
pop bp
retn
sub_B670 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B6C0 proc near
var_7 = byte ptr -7
var_6 = word ptr -6
var_4 = word ptr -4
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
arg_4 = word ptr 8
arg_6 = byte ptr 0Ah
arg_8 = byte ptr 0Ch
enter 8, 0
push si
mov si, [bp+arg_4]
mov [bp+var_6], 0
jmp short loc_B73B
; ---------------------------------------------------------------------------
loc_B6CF:
mov al, byte ptr [bp+var_6]
add al, [bp+arg_8]
mov [bp+var_7], al
mov ah, 0
imul [bp+arg_2]
mov bx, 100h
cwd
idiv bx
mov [bp+var_7], al
mov ah, 0
add ax, ax
mov bx, ax
push word ptr [bx+396h]
push si
push 140h
call sub_C005
add sp, 6
mov [bp+var_2], ax
mov al, byte ptr [bp+var_6]
add al, [bp+arg_6]
mov [bp+var_7], al
mov ah, 0
imul [bp+arg_0]
mov bx, 100h
cwd
idiv bx
mov [bp+var_7], al
mov ah, 0
add ax, ax
mov bx, ax
push word ptr [bx+316h]
push si
push 0C8h ; '<27>'
call sub_C005
add sp, 6
mov [bp+var_4], ax
push [bp+var_2]
push ax
call grcg_pset
inc [bp+var_6]
loc_B73B:
cmp [bp+var_6], 100h
jb short loc_B6CF
pop si
leave
retn 0Ah
sub_B6C0 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B747 proc near
var_6 = word ptr -6
var_4 = word ptr -4
var_2 = word ptr -2
enter 6, 0
push si
push di
mov al, byte ptr word_FC52
mov ah, 0
mov si, ax
cmp si, 80h
jl short loc_B761
mov ax, 100h
sub ax, si
mov si, ax
loc_B761:
mov ax, si
add ax, si
add ax, 100h
mov [bp+var_4], ax
add si, 100h
mov ax, si
add ax, si
mov [bp+var_2], ax
call grcg_setcolor pascal, (GC_RMW shl 16) + 6
push word_FC52
mov al, byte ptr word_FC52
add al, al
push ax
push 0DCh ; '<27>'
push si
push [bp+var_2]
call sub_B6C0
mov al, 0
sub al, byte ptr word_FC52
push ax
mov al, byte ptr word_FC52
mov ah, 0
cwd
sub ax, dx
sar ax, 1
push ax
push 78h ; 'x'
push [bp+var_4]
push si
call sub_B6C0
call grcg_setcolor pascal, (GC_RMW shl 16) + 5
mov ax, word_FC66
cwd
sub ax, dx
sar ax, 1
mov di, ax
test byte ptr word_FC66, 1
jz short loc_B7CD
inc di
loc_B7CD:
mov [bp+var_6], 1
jmp short loc_B824
; ---------------------------------------------------------------------------
loc_B7D4:
mov al, byte ptr [bp+var_6]
add al, al
mov dl, byte ptr word_FC52
sub dl, al
push dx
mov al, byte ptr word_FC52
add al, al
mov dl, byte ptr [bp+var_6]
shl dl, 2
sub al, dl
push ax
push 0DCh ; '<27>'
push si
push [bp+var_2]
call sub_B6C0
mov al, 0
sub al, byte ptr word_FC52
mov dl, byte ptr [bp+var_6]
add dl, dl
add al, dl
push ax
mov al, byte ptr word_FC52
mov ah, 0
mov dx, [bp+var_6]
add dx, dx
sub ax, dx
cwd
sub ax, dx
sar ax, 1
push ax
push 78h ; 'x'
push [bp+var_4]
push si
call sub_B6C0
inc [bp+var_6]
loc_B824:
cmp [bp+var_6], di
jle short loc_B7D4
call grcg_setcolor pascal, (GC_RMW shl 16) + 1
lea ax, [di+1]
mov [bp+var_6], ax
jmp short loc_B88C
; ---------------------------------------------------------------------------
loc_B83C:
mov al, byte ptr [bp+var_6]
add al, al
mov dl, byte ptr word_FC52
sub dl, al
push dx
mov al, byte ptr word_FC52
add al, al
mov dl, byte ptr [bp+var_6]
shl dl, 2
sub al, dl
push ax
push 0DCh ; '<27>'
push si
push [bp+var_2]
call sub_B6C0
mov al, 0
sub al, byte ptr word_FC52
mov dl, byte ptr [bp+var_6]
add dl, dl
add al, dl
push ax
mov al, byte ptr word_FC52
mov ah, 0
mov dx, [bp+var_6]
add dx, dx
sub ax, dx
cwd
sub ax, dx
sar ax, 1
push ax
push 78h ; 'x'
push [bp+var_4]
push si
call sub_B6C0
inc [bp+var_6]
loc_B88C:
mov ax, [bp+var_6]
cmp ax, word_FC66
jle short loc_B83C
call grcg_off
mov al, byte ptr word_FC52
add al, 2
mov byte ptr word_FC52, al
pop di
pop si
leave
retn
sub_B747 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B8A6 proc near
var_2 = word ptr -2
arg_0 = byte ptr 4
arg_2 = word ptr 6
enter 2, 0
push si
push di
mov si, [bp+arg_2]
mov ax, si
shl ax, 4
shl ax, 3
add ax, 0F0h
mov di, ax
mov al, [si+2468h]
cbw
imul ax, 14h
add ax, 80h
mov [bp+var_2], ax
push di
push ax
push 10h
push ds
mov ax, si
imul ax, 3
add ax, 0A4Dh
push ax
mov al, [bp+arg_0]
mov ah, 0
push ax
call graph_gaiji_puts
push di
mov ax, [bp+var_2]
add ax, 10h
push ax
push 10h
push ds
mov ax, si
imul ax, 3
add ax, 0A53h
push ax
mov al, [bp+arg_0]
mov ah, 0
push ax
call graph_gaiji_puts
pop di
pop si
leave
retn 4
sub_B8A6 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_B908 proc near
var_2 = word ptr -2
arg_0 = word ptr 4
arg_2 = word ptr 6
enter 2, 0
push si
push di
mov di, [bp+arg_2]
mov si, [bp+arg_0]
cmp byte ptr [si+246Ah], 0
jnz loc_BA82
cmp byte ptr [si+0A59h], 0
jz short loc_B932
or di, di
jnz loc_BA82
mov byte ptr [si+0A59h], 0
jmp loc_BA82
; ---------------------------------------------------------------------------
loc_B932:
test di, 1
jz short loc_B951
dec byte ptr [si+2468h]
cmp byte ptr [si+2468h], 0
jge short loc_B94C
mov al, byte_FC68
dec al
mov [si+2468h], al
loc_B94C:
mov byte ptr [si+0A59h], 1
loc_B951:
test di, 2
jz short loc_B974
inc byte ptr [si+2468h]
mov al, [si+2468h]
cbw
mov dl, byte_FC68
mov dh, 0
cmp ax, dx
jl short loc_B96F
mov byte ptr [si+2468h], 0
loc_B96F:
mov byte ptr [si+0A59h], 1
loc_B974:
test di, 20h
; Hack
db 00fh
db 084h
db 07fh
db 000h
mov al, [si+2468h]
cbw
mov [bp+var_2], ax
les bx, dword_FC54
add bx, si
mov al, byte ptr [bp+var_2]
add al, al
inc al
mov es:[bx+0Ch], al
push 1
call palette_white_in
mov bx, 1
sub bx, si
cmp byte ptr [bx+246Ah], 0
jz short loc_B9CC
les bx, dword_FC54
mov al, es:[bx+0Ch]
cmp al, es:[bx+0Dh]
jnz short loc_B9CC
add bx, si
inc byte ptr es:[bx+0Ch]
push si
mov bx, [bp+var_2]
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 1
jmp short loc_B9DA
; ---------------------------------------------------------------------------
loc_B9CC:
push si
mov bx, [bp+var_2]
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 0
loc_B9DA:
call sub_C48A
mov bx, 1
sub bx, si
cmp byte ptr [bx+246Ah], 0
jz short loc_B9F1
mov word_FC62, 0
loc_B9F1:
mov byte ptr [si+246Ah], 1
mov byte ptr [si+0A59h], 1
loc_B9FB:
test di, 10h
; Hack
db 00fh
db 084h
db 07fh
db 000h
mov al, [si+2468h]
cbw
mov [bp+var_2], ax
les bx, dword_FC54
add bx, si
mov al, byte ptr [bp+var_2]
add al, al
add al, 2
mov es:[bx+0Ch], al
push 1
call palette_white_in
mov bx, 1
sub bx, si
cmp byte ptr [bx+246Ah], 0
jz short loc_BA53
les bx, dword_FC54
mov al, es:[bx+0Ch]
cmp al, es:[bx+0Dh]
jnz short loc_BA53
add bx, si
dec byte ptr es:[bx+0Ch]
push si
mov bx, [bp+var_2]
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 0
jmp short loc_BA61
; ---------------------------------------------------------------------------
loc_BA53:
push si
mov bx, [bp+var_2]
shl bx, 2
pushd dword ptr [bx+0A0Eh]
push 1
loc_BA61:
call sub_C48A
mov bx, 1
sub bx, si
cmp byte ptr [bx+246Ah], 0
jz short loc_BA78
mov word_FC62, 0
loc_BA78:
mov byte ptr [si+246Ah], 1
mov byte ptr [si+0A59h], 1
loc_BA82:
pop di
pop si
leave
retn 4
sub_B908 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_BA88 proc near
push bp
mov bp, sp
call sub_B424
call text_clear
les bx, dword_FC54
mov al, es:[bx+0Ch]
mov ah, 0
dec ax
cwd
sub ax, dx
sar ax, 1
mov byte_FC58, al
mov al, es:[bx+0Dh]
mov ah, 0
dec ax
cwd
sub ax, dx
sar ax, 1
mov byte_FC59, al
mov byte_FC5A, 0
mov byte_FC5B, 0
cmp byte ptr es:[bx+16h], 0
jnz short loc_BAD4
setfarfp farfp_FC5E, sub_C9AA
jmp short loc_BAF9
; ---------------------------------------------------------------------------
loc_BAD4:
les bx, dword_FC54
cmp byte ptr es:[bx+16h], 1
jnz short loc_BAED
setfarfp farfp_FC5E, sub_C9B4
jmp short loc_BAF9
; ---------------------------------------------------------------------------
loc_BAED:
setfarfp farfp_FC5E, sub_C9D6
loc_BAF9:
push 10h
call frame_delay
mov word_FC62, 0
loc_BB06:
call sub_B747
call sub_B4F3
call sub_B565
call sub_B636
call sub_B670
push 0
cmp byte_FC5A, 0
jz short loc_BB22
mov al, 0Fh
jmp short loc_BB24
; ---------------------------------------------------------------------------
loc_BB22:
mov al, 8
loc_BB24:
push ax
call sub_B8A6
push 1
cmp byte_FC5B, 0
jz short loc_BB35
mov al, 0Fh
jmp short loc_BB37
; ---------------------------------------------------------------------------
loc_BB35:
mov al, 0Ah
loc_BB37:
push ax
call sub_B8A6
call sub_C1B4
call farfp_FC5E
push word_F292
push 0
call sub_B908
push word_F294
push 1
call sub_B908
test byte ptr word_F296+1, 10h
jz short loc_BB82
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
call text_clear
call sub_B4D7
kajacall KAJA_SONG_STOP
mov al, 1
pop bp
retn
; ---------------------------------------------------------------------------
loc_BB82:
cmp byte_FC5A, 0
jz short loc_BBB7
cmp byte_FC5B, 0
jz short loc_BBB7
call text_clear
cmp word_FC62, 10h
jb short loc_BBB0
mov ax, word_FC62
imul ax, 6
mov dx, 0C8h ; '<27>'
sub dx, ax
mov PaletteTone, dx
call far ptr palette_show
loc_BBB0:
cmp word_FC62, 20h ; ' '
ja short loc_BC18
loc_BBB7:
cmp vsync_Count1, 3
jb short loc_BBB7
cmp vsync_Count1, 4
jbe short loc_BBD0
cmp word_FC66, 1
jle short loc_BBD0
dec word_FC66
loc_BBD0:
mov vsync_Count1, 0
mov dx, 0A6h ; '<27>'
mov al, byte_FC5C
out dx, al
mov al, 1
sub al, byte_FC5C
mov byte_FC5C, al
mov dx, 0A4h ; '<27>'
out dx, al
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
pushd 0
push 4F018Fh
call grcg_byteboxfill_x
call grcg_off
inc word_FC62
les bx, dword_FC54
inc dword ptr es:[bx+10h]
jmp loc_BB06
; ---------------------------------------------------------------------------
loc_BC18:
call sub_B4D7
mov al, 0
pop bp
retn
sub_BA88 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_BC1F proc near
push bp
mov bp, sp
push si
call sub_B424
les bx, dword_FC54
mov al, es:[bx+0Ch]
mov ah, 0
dec ax
cwd
sub ax, dx
sar ax, 1
mov byte_FC58, al
mov al, es:[bx+0Dh]
mov ah, 0
dec ax
cwd
sub ax, dx
sar ax, 1
mov byte_FC59, al
mov byte_FC5A, 0
mov byte_FC5B, 0
setfarfp farfp_FC5E, sub_C986
xor si, si
jmp loc_BD8B
; ---------------------------------------------------------------------------
loc_BC63:
mov word_FC62, 0
loc_BC69:
call sub_B747
call sub_B4F3
call sub_B565
call sub_B636
call sub_B670
call sub_C1B4
call farfp_FC5E
push 0
cmp byte_FC5A, 0
jz short loc_BC8E
mov al, 0Fh
jmp short loc_BC90
; ---------------------------------------------------------------------------
loc_BC8E:
mov al, 8
loc_BC90:
push ax
call sub_B8A6
cmp byte_FC5A, 0
jz short loc_BCAE
push 1
cmp byte_FC5B, 0
jz short loc_BCA8
mov al, 0Fh
jmp short loc_BCAA
; ---------------------------------------------------------------------------
loc_BCA8:
mov al, 0Ah
loc_BCAA:
push ax
call sub_B8A6
loc_BCAE:
push word_F296
push si
call sub_B908
test byte ptr word_F296+1, 10h
jz short loc_BCE3
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
call text_clear
call sub_B4D7
kajacall KAJA_SONG_STOP
mov al, 1
jmp loc_BD97
; ---------------------------------------------------------------------------
loc_BCE3:
or si, si
jnz short loc_BCF7
cmp byte_FC5A, 0
jz short loc_BCF7
cmp word_FC62, 0Ch
ja loc_BD8A
loc_BCF7:
or si, si
jz short loc_BD29
cmp byte_FC5B, 0
jz short loc_BD29
call text_clear
cmp word_FC62, 10h
jb short loc_BD22
mov ax, word_FC62
imul ax, 6
mov dx, 0C8h ; '<27>'
sub dx, ax
mov PaletteTone, dx
call far ptr palette_show
loc_BD22:
cmp word_FC62, 20h ; ' '
ja short loc_BD8A
loc_BD29:
cmp vsync_Count1, 3
jb short loc_BD29
cmp vsync_Count1, 4
jbe short loc_BD42
cmp word_FC66, 1
jle short loc_BD42
dec word_FC66
loc_BD42:
mov vsync_Count1, 0
mov dx, 0A6h ; '<27>'
mov al, byte_FC5C
out dx, al
mov al, 1
sub al, byte_FC5C
mov byte_FC5C, al
mov dx, 0A4h ; '<27>'
out dx, al
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
pushd 0
push 4F018Fh
call grcg_byteboxfill_x
call grcg_off
inc word_FC62
les bx, dword_FC54
inc dword ptr es:[bx+10h]
jmp loc_BC69
; ---------------------------------------------------------------------------
loc_BD8A:
inc si
loc_BD8B:
cmp si, 2
jl loc_BC63
call sub_B4D7
mov al, 0
loc_BD97:
pop si
pop bp
retn
sub_BC1F endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_BD9A proc near
push bp
mov bp, sp
call sub_B424
mov byte_FC58, 0
mov byte_FC5A, 0
mov byte_FC5B, 1
setfarfp farfp_FC5E, sub_C986
mov word_FC62, 0
loc_BDC1:
call sub_B747
call sub_B535
call sub_B565
call sub_B636
call sub_B670
push 0
cmp byte_FC5A, 0
jz short loc_BDDD
mov al, 0Fh
jmp short loc_BDDF
; ---------------------------------------------------------------------------
loc_BDDD:
mov al, 8
loc_BDDF:
push ax
call sub_B8A6
call sub_C1B4
call farfp_FC5E
push word_F296
push 0
call sub_B908
test byte ptr word_F296+1, 10h
jz short loc_BE21
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A4h ; '<27>'
mov al, 0
out dx, al
call text_clear
call sub_B4D7
kajacall KAJA_SONG_STOP
mov al, 1
pop bp
retn
; ---------------------------------------------------------------------------
loc_BE21:
cmp byte_FC5A, 0
jz short loc_BE4F
call text_clear
cmp word_FC62, 10h
jb short loc_BE48
mov ax, word_FC62
imul ax, 6
mov dx, 0C8h ; '<27>'
sub dx, ax
mov PaletteTone, dx
call far ptr palette_show
loc_BE48:
cmp word_FC62, 20h ; ' '
ja short loc_BEB0
loc_BE4F:
cmp vsync_Count1, 3
jb short loc_BE4F
cmp vsync_Count1, 4
jbe short loc_BE68
cmp word_FC66, 1
jle short loc_BE68
dec word_FC66
loc_BE68:
mov vsync_Count1, 0
mov dx, 0A6h ; '<27>'
mov al, byte_FC5C
out dx, al
mov al, 1
sub al, byte_FC5C
mov byte_FC5C, al
mov dx, 0A4h ; '<27>'
out dx, al
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
pushd 0
push 4F018Fh
call grcg_byteboxfill_x
call grcg_off
inc word_FC62
les bx, dword_FC54
inc dword ptr es:[bx+10h]
jmp loc_BDC1
; ---------------------------------------------------------------------------
loc_BEB0:
call sub_B4D7
mov al, 0
pop bp
retn
sub_BD9A endp
db 0
op_01_TEXT ends
; ===========================================================================
; Segment type: Pure code
op_02_TEXT segment word public 'CODE' use16
assume cs:op_02_TEXT
;org 8
assume es:nothing, ss:nothing, ds:_DATA, fs:nothing, gs:nothing
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_BEB8 proc far
push bp
mov bp, sp
nopcall sub_BFC2
call key_beep_on
call text_systemline_show
call text_cursor_show
pop bp
retf
sub_BEB8 endp
include th01/hardware/vram_planes_set.asm
include th02/snd/detmode.asm
include th02/snd/pmd_res.asm
include th02/snd/load.asm
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_BFC2 proc far
push bp
mov bp, sp
call pfend
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
mov dx, 0A4h ; '<27>'
out dx, al
call vsync_end
call mem_unassign
call text_clear
call js_end
call egc_start
pop bp
retf
sub_BFC2 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C005 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
movsx eax, [bp+arg_2]
movsx edx, [bp+arg_4]
imul eax, edx
sar eax, 8
add ax, [bp+arg_0]
pop bp
retf
sub_C005 endp
; ---------------------------------------------------------------------------
db 0
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C020 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
mov si, [bp+arg_0]
shl si, 4
add si, 1AA8h
mov ax, [si+0Eh]
mov word ptr cs:loc_C097+1, ax
mov ax, [bp+arg_4]
sar ax, 3
add ax, [si+6]
mov di, ax
mov word ptr cs:loc_C090+1, ax
mov ax, [si+8]
mov word ptr cs:loc_C082+1, ax
mov word ptr cs:loc_C09C+1, ax
shl ax, 2
add ax, 50h ; 'P'
mov word ptr cs:loc_C07E+1, ax
jmp short $+2
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
push ds
mov ax, [si+0Ch]
mov ds, ax
xor si, si
loc_C07E:
mov dx, 1234h
cld
loc_C082:
mov cx, 1234h
rep movsd
sub di, dx
jns short loc_C082
xor al, al
out 7Ch, al
loc_C090:
mov bx, 1234h
mov di, bx
xor si, si
loc_C097:
mov ax, 1234h
mov ds, ax
assume ds:nothing
loc_C09C:
mov cx, 1234h
loc_C09F:
mov eax, [si]
or es:[di], eax
add si, 4
add di, 4
loop loc_C09F
sub di, dx
jns short loc_C09C
mov di, bx
mov ax, es
add ax, 800h
mov es, ax
assume es:nothing
cmp ax, 0C000h
jb short loc_C09C
cmp ax, 0C800h
jnb short loc_C0CC
add ax, 2000h
mov es, ax
assume es:nothing
jmp short loc_C09C
; ---------------------------------------------------------------------------
loc_C0CC:
pop ds
assume ds:_DATA
pop di
pop si
pop bp
retf 6
sub_C020 endp
; ---------------------------------------------------------------------------
nop
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C0D4 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
call grcg_setcolor pascal, (GC_RMW shl 16) + 0
mov si, [bp+arg_0]
shl si, 4
add si, 1AA8h
mov ax, [bp+arg_4]
sar ax, 3
add ax, [si+6]
mov bx, [si+8]
shl bx, 2
add ax, bx
dec ax
mov di, ax
mov word ptr cs:loc_C154+1, ax
mov word ptr cs:loc_C17C+1, ax
mov word ptr cs:loc_C13E+1, bx
mov word ptr cs:loc_C16A+1, bx
mov ax, 50h ; 'P'
sub ax, bx
mov word ptr cs:loc_C13A+1, ax
mov word ptr cs:loc_C166+1, ax
jmp short $+2
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
assume es:nothing
mov bx, 1E70h
mov fs, word ptr [si+0Ch]
xor si, si
loc_C13A:
mov dx, 1234h
nop
loc_C13E:
mov cx, 1234h
loc_C141:
mov al, fs:[si]
xlat
mov es:[di], al
inc si
dec di
loop loc_C141
sub di, dx
jns short loc_C13E
xor al, al
out 7Ch, al
loc_C154:
mov di, 1234h
mov si, [bp+arg_0]
shl si, 4
add si, 1AA8h
mov fs, word ptr [si+0Eh]
xor si, si
loc_C166:
mov dx, 1234h
nop
loc_C16A:
mov cx, 4D2h
loc_C16D:
mov al, fs:[si]
xlat
or es:[di], al
inc si
dec di
loop loc_C16D
sub di, dx
jns short loc_C16A
loc_C17C:
mov di, 1234h
mov ax, es
add ax, 800h
mov es, ax
assume es:nothing
cmp ax, 0C000h
jb short loc_C16A
cmp ax, 0C800h
jnb short loc_C197
add ax, 2000h
mov es, ax
assume es:nothing
jmp short loc_C16A
; ---------------------------------------------------------------------------
loc_C197:
pop di
pop si
pop bp
retf 6
sub_C0D4 endp
; ---------------------------------------------------------------------------
nop
include th02/hardware/frame_delay.asm
db 0
; =============== S U B R O U T I N E =======================================
sub_C1B4 proc far
xor ax, ax
mov word_F292, ax
mov word_F294, ax
mov word_F296, ax
mov word_E9A4, ax
jmp short $+2
mov bl, 2
xor ax, ax
mov es, ax
loc_C1CA:
mov ah, byte ptr es:[531h]
test ah, 4
jz short loc_C1D9
or word_F296, 1
loc_C1D9:
test ah, 20h
jz short loc_C1E3
or word_F296, 2
loc_C1E3:
test ah, 8
jz short loc_C1F2
or word_F294, 20h
or word_F296, 4
loc_C1F2:
test ah, 10h
jz short loc_C201
or word_F294, 10h
or word_F296, 8
loc_C201:
mov ah, byte ptr es:[533h]
test ah, 1
jz short loc_C215
or word_F294, 8
or word_F296, 8
loc_C215:
test ah, 4
jz short loc_C226
or word_F294, 200h
or word_F296, 200h
loc_C226:
test ah, 8
jz short loc_C235
or word_F294, 2
or word_F296, 2
loc_C235:
test ah, 10h
jz short loc_C246
or word_F294, 800h
or word_F296, 800h
loc_C246:
mov ah, byte ptr es:[532h]
test ah, 40h
jz short loc_C25A
or word_F294, 4
or word_F296, 4
loc_C25A:
test ah, 4
jz short loc_C26B
or word_F294, 100h
or word_F296, 100h
loc_C26B:
test ah, 8
jz short loc_C27A
or word_F294, 1
or word_F296, 1
loc_C27A:
test ah, 10h
jz short loc_C28B
or word_F294, 400h
or word_F296, 400h
loc_C28B:
mov ah, byte ptr es:[52Fh]
test ah, 2
jz short loc_C29F
or word_F292, 20h
or word_F296, 20h
loc_C29F:
test ah, 4
jz short loc_C2AE
or word_F292, 10h
or word_F296, 10h
loc_C2AE:
test ah, 10h
jz short loc_C2B9
or word_F292, 200h
loc_C2B9:
test ah, 20h
jz short loc_C2C3
or word_F292, 2
loc_C2C3:
test ah, 40h
jz short loc_C2CE
or word_F292, 800h
loc_C2CE:
mov ah, byte ptr es:[52Eh]
test ah, 1
jz short loc_C2DD
or word_F292, 4
loc_C2DD:
test ah, 4
jz short loc_C2E7
or word_F292, 8
loc_C2E7:
mov ah, byte ptr es:[52Ch]
test ah, 8
jz short loc_C2F7
or word_F292, 100h
loc_C2F7:
test ah, 10h
jz short loc_C301
or word_F292, 1
loc_C301:
test ah, 20h
jz short loc_C30C
or word_F292, 400h
loc_C30C:
test ah, 1
jz short loc_C317
or word_F296, 4000h
loc_C317:
mov ah, byte ptr es:[52Ah]
test ah, 1
jz short loc_C327
or word_F296, 1000h
loc_C327:
mov ah, byte ptr es:[52Dh]
test ah, 10h
jz short loc_C337
or word_F296, 2000h
loc_C337:
mov ah, byte ptr es:[530h]
test ah, 10h
jz short loc_C346
or word_F296, 20h
loc_C346:
dec bl
jz short locret_C354
mov cx, 400h
loc_C34D:
out 5Fh, al
loop loc_C34D
jmp loc_C1CA
; ---------------------------------------------------------------------------
locret_C354:
retf
sub_C1B4 endp
include th02/formats/pi_slot_palette_apply.asm
include th02/formats/pi_slot_put.asm
include th02/snd/kajaint.asm
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C421 proc far
arg_0 = dword ptr 6
push bp
mov bp, sp
push 55F0h
call mem_assign_dos
or ax, ax
jz short loc_C435
mov ax, 1
pop bp
retf
; ---------------------------------------------------------------------------
loc_C435:
nopcall vram_planes_set
call graph_start
mov dx, 0A6h ; '<27>'
mov al, 1
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
call graph_clear
mov dx, 0A6h ; '<27>'
mov al, 0
out dx, al
mov dx, 0A4h ; '<27>'
out dx, al
call vsync_start
call key_beep_off
call text_systemline_hide
call text_cursor_hide
call egc_start
call sub_2DB8
pushd [bp+arg_0]
call pfstart
xor ax, ax
pop bp
retf
sub_C421 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C48A proc far
var_4 = dword ptr -4
arg_0 = word ptr 6
arg_2 = dword ptr 8
arg_6 = word ptr 0Ch
enter 4, 0
push si
push di
mov di, [bp+arg_6]
push di
nopcall sub_C69C
mov ax, di
shl ax, 4
add ax, 1AA8h
mov si, ax
pushd [bp+arg_2]
call file_ropen
push ds
push si
push 10h
call file_read
mov ax, [si]
imul ax, 5
movzx eax, ax
mov [bp+var_4], eax
movsx eax, [bp+arg_0]
imul eax, [bp+var_4]
push eax
push 1
call file_seek
push word ptr [si]
call hmem_allocbyte
mov [si+0Ch], ax
push word ptr [si+0Ch]
push 0
push word ptr [si]
call file_read
mov ax, [si]
shl ax, 2
push ax
call hmem_allocbyte
mov [si+0Eh], ax
push word ptr [si+0Eh]
push 0
mov ax, [si]
shl ax, 2
push ax
call file_read
call file_close
pop di
pop si
leave
retf 8
sub_C48A endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C514 proc far
var_4 = dword ptr -4
arg_0 = word ptr 6
arg_2 = dword ptr 8
arg_6 = word ptr 0Ch
enter 4, 0
push si
push di
mov di, [bp+arg_6]
push di
nopcall sub_C69C
mov ax, di
shl ax, 4
add ax, 1AA8h
mov si, ax
pushd [bp+arg_2]
call file_ropen
push ds
push si
push 10h
call file_read
mov ax, [si]
imul ax, 5
movzx eax, ax
mov [bp+var_4], eax
movsx eax, [bp+arg_0]
imul eax, [bp+var_4]
push eax
push 1
call file_seek
movzx eax, word ptr [si]
push eax
push 1
call file_seek
mov word ptr [si+0Ch], 0
mov ax, [si]
shl ax, 2
push ax
call hmem_allocbyte
mov [si+0Eh], ax
push word ptr [si+0Eh]
push 0
mov ax, [si]
shl ax, 2
push ax
call file_read
call file_close
pop di
pop si
leave
retf 8
sub_C514 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C59A proc far
var_2 = word ptr -2
arg_0 = dword ptr 6
arg_4 = word ptr 0Ah
enter 2, 0
push si
push di
pushd [bp+arg_0]
call file_ropen
push [bp+arg_4]
nopcall sub_C69C
mov ax, [bp+arg_4]
shl ax, 4
add ax, 1AA8h
mov si, ax
push ds
push ax
push 10h
call file_read
mov di, si
mov [bp+var_2], 1
jmp short loc_C5DD
; ---------------------------------------------------------------------------
loc_C5CE:
mov ax, [bp+arg_4]
add ax, [bp+var_2]
push ax
nopcall sub_C69C
inc [bp+var_2]
loc_C5DD:
mov al, [di+0Ah]
mov ah, 0
cmp ax, [bp+var_2]
jg short loc_C5CE
mov [bp+var_2], 0
jmp short loc_C669
; ---------------------------------------------------------------------------
loc_C5EE:
mov ax, [di]
mov [si], ax
mov ax, [di+2]
mov [si+2], ax
mov ax, [di+4]
mov [si+4], ax
mov ax, [di+6]
mov [si+6], ax
mov ax, [di+8]
mov [si+8], ax
mov al, [di+0Ah]
mov [si+0Ah], al
mov byte ptr [si+0Bh], 0
cmp byte_DDE0, 0
jnz short loc_C633
push word ptr [si]
call hmem_allocbyte
mov [si+0Ch], ax
push word ptr [si+0Ch]
push 0
push word ptr [si]
call file_read
jmp short loc_C645
; ---------------------------------------------------------------------------
loc_C633:
mov word ptr [si+0Ch], 0
movzx eax, word ptr [si]
push eax
push 1
call file_seek
loc_C645:
mov ax, [si]
shl ax, 2
push ax
call hmem_allocbyte
mov [si+0Eh], ax
push word ptr [si+0Eh]
push 0
mov ax, [si]
shl ax, 2
push ax
call file_read
inc [bp+var_2]
add si, 10h
loc_C669:
mov al, [di+0Ah]
mov ah, 0
cmp ax, [bp+var_2]
jg loc_C5EE
call file_close
pop di
pop si
leave
retf 6
sub_C59A endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C680 proc far
arg_0 = dword ptr 6
arg_4 = word ptr 0Ah
push bp
mov bp, sp
mov byte_DDE0, 1
push [bp+arg_4]
pushd [bp+arg_0]
call sub_C59A
mov byte_DDE0, 0
pop bp
retf 6
sub_C680 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C69C proc far
arg_0 = word ptr 6
push bp
mov bp, sp
push si
push di
mov ax, [bp+arg_0]
shl ax, 4
add ax, 1AA8h
mov di, ax
xor si, si
jmp short loc_C6D0
; ---------------------------------------------------------------------------
loc_C6B0:
mov bx, si
add bx, bx
cmp word ptr [bx+di+0Ch], 0
jz short loc_C6CF
mov bx, si
add bx, bx
push word ptr [bx+di+0Ch]
call hmem_free
mov bx, si
add bx, bx
mov word ptr [bx+di+0Ch], 0
loc_C6CF:
inc si
loc_C6D0:
cmp si, 2
jl short loc_C6B0
pop di
pop si
pop bp
retf 2
sub_C69C endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C6DB proc far
var_32 = byte ptr -32h
var_12 = word ptr -12h
var_10 = word ptr -10h
var_E = word ptr -0Eh
var_C = word ptr -0Ch
var_A = word ptr -0Ah
var_8 = dword ptr -8
var_4 = word ptr -4
var_2 = word ptr -2
arg_0 = dword ptr 6
arg_4 = word ptr 0Ah
arg_6 = word ptr 0Ch
arg_8 = word ptr 0Eh
enter 32h, 0
push si
push di
mov di, [bp+arg_8]
mov ax, [bp+arg_4]
sar ax, 4
and ax, 3
mov [bp+var_E], ax
mov ax, [bp+arg_4]
sar ax, 6
and ax, 7
mov [bp+var_10], ax
push GC_RMW
mov ax, [bp+arg_4]
and ax, 0Fh
push ax
call grcg_setcolor
mov dx, 68h ; 'h'
mov al, 0Bh
out dx, al
jmp loc_C924
; ---------------------------------------------------------------------------
loc_C714:
mov ax, [bp+arg_6]
imul ax, 50h
push ax
mov ax, di
mov bx, 8
cwd
idiv bx
pop dx
add dx, ax
mov word ptr [bp+var_8+2], 0A800h
mov word ptr [bp+var_8], dx
mov ax, di
cwd
idiv bx
mov [bp+var_C], dx
les bx, [bp+arg_0]
assume es:nothing
mov al, es:[bx]
mov ah, 0
mov bx, ax
test __mbctype+1[bx], 4
jz short loc_C769
mov bx, word ptr [bp+arg_0]
mov al, es:[bx]
cbw
shl ax, 8
mov dl, es:[bx+1]
mov dh, 0
add ax, dx
push ax
call __mbcjmstojis
pop cx
mov [bp+var_2], ax
add word ptr [bp+arg_0], 2
jmp short loc_C7AF
; ---------------------------------------------------------------------------
loc_C769:
les bx, [bp+arg_0]
mov al, es:[bx]
mov ah, 0
mov bx, ax
test __mbctype+1[bx], 3
jz short loc_C787
mov bx, word ptr [bp+arg_0]
mov al, es:[bx]
mov ah, 0
add ax, 2980h
jmp short loc_C7A2
; ---------------------------------------------------------------------------
loc_C787:
les bx, [bp+arg_0]
mov al, es:[bx]
cbw
mov bx, ax
test byte ptr [bx+0D51h], 5Eh
jz short loc_C7A7
mov bx, word ptr [bp+arg_0]
mov al, es:[bx]
mov ah, 0
add ax, 2900h
loc_C7A2:
mov [bp+var_2], ax
jmp short loc_C7AC
; ---------------------------------------------------------------------------
loc_C7A7:
mov [bp+var_2], 2B21h
loc_C7AC:
inc word ptr [bp+arg_0]
loc_C7AF:
mov al, byte ptr [bp+var_2]
and al, 0FFh
mov dx, 0A1h ; '<27>'
out dx, al
mov ax, [bp+var_2]
shr ax, 8
sub al, 20h ; ' '
mov dx, 0A3h ; '<27>'
out dx, al
cmp [bp+var_2], 2921h
jb short loc_C810
cmp [bp+var_2], 2B7Eh
ja short loc_C810
cmp di, 278h
jg loc_C92F
mov [bp+var_12], 0
jmp short loc_C803
; ---------------------------------------------------------------------------
loc_C7E1:
mov al, byte ptr [bp+var_12]
or al, 20h
mov dx, 0A5h ; '<27>'
out dx, al
mov dx, 0A9h ; '<27>'
in al, dx
mov ah, 0
shl ax, 8
mov bx, [bp+var_12]
add bx, bx
lea dx, [bp+var_32]
add bx, dx
mov ss:[bx], ax
inc [bp+var_12]
loc_C803:
cmp [bp+var_12], 10h
jl short loc_C7E1
mov [bp+var_A], 0
jmp short loc_C866
; ---------------------------------------------------------------------------
loc_C810:
cmp di, 270h
jg loc_C92F
mov [bp+var_12], 0
jmp short loc_C85B
; ---------------------------------------------------------------------------
loc_C81F:
mov al, byte ptr [bp+var_12]
or al, 20h
mov dx, 0A5h ; '<27>'
out dx, al
mov dx, 0A9h ; '<27>'
in al, dx
mov ah, 0
shl ax, 8
mov bx, [bp+var_12]
add bx, bx
lea dx, [bp+var_32]
add bx, dx
mov ss:[bx], ax
mov dx, 0A5h ; '<27>'
mov al, byte ptr [bp+var_12]
out dx, al
mov dx, 0A9h ; '<27>'
in al, dx
mov ah, 0
mov bx, [bp+var_12]
add bx, bx
lea dx, [bp+var_32]
add bx, dx
add ss:[bx], ax
inc [bp+var_12]
loc_C85B:
cmp [bp+var_12], 10h
jl short loc_C81F
mov [bp+var_A], 1
loc_C866:
mov [bp+var_12], 0
jmp loc_C90B
; ---------------------------------------------------------------------------
loc_C86E:
mov bx, [bp+var_12]
add bx, bx
lea ax, [bp+var_32]
add bx, ax
mov ax, ss:[bx]
mov [bp+var_4], ax
mov ax, [bp+var_E]
cmp ax, 1
jz short loc_C892
cmp ax, 2
jz short loc_C8A8
cmp ax, 3
jz short loc_C89E
jmp short loc_C8BE
; ---------------------------------------------------------------------------
loc_C892:
mov si, [bp+var_4]
mov ax, si
add ax, ax
or [bp+var_4], ax
jmp short loc_C8BE
; ---------------------------------------------------------------------------
loc_C89E:
mov si, [bp+var_4]
mov ax, si
add ax, ax
or [bp+var_4], ax
loc_C8A8:
mov si, [bp+var_4]
mov ax, si
add ax, ax
or [bp+var_4], ax
xor si, [bp+var_4]
mov ax, si
add ax, ax
not ax
and [bp+var_4], ax
loc_C8BE:
cmp [bp+var_C], 0
jz short loc_C8F1
mov cl, byte ptr [bp+var_C]
add cl, 8
mov ax, [bp+var_4]
shr ax, cl
les bx, [bp+var_8]
mov es:[bx], al
mov ax, [bp+var_4]
mov cl, byte ptr [bp+var_C]
shr ax, cl
mov es:[bx+1], al
mov cl, 8
sub cl, byte ptr [bp+var_C]
mov al, byte ptr [bp+var_4]
shl al, cl
mov es:[bx+2], al
jmp short loc_C904
; ---------------------------------------------------------------------------
loc_C8F1:
mov ax, [bp+var_4]
shr ax, 8
les bx, [bp+var_8]
mov es:[bx], al
mov al, byte ptr [bp+var_4]
mov es:[bx+1], al
loc_C904:
add word ptr [bp+var_8], 50h ; 'P'
inc [bp+var_12]
loc_C90B:
cmp [bp+var_12], 10h
jl loc_C86E
cmp [bp+var_A], 0
jz short loc_C91C
add di, 8
loc_C91C:
mov ax, [bp+var_10]
add ax, 8
add di, ax
loc_C924:
les bx, [bp+arg_0]
cmp byte ptr es:[bx], 0
jnz loc_C714
loc_C92F:
mov dx, 68h ; 'h'
mov al, 0Ah
out dx, al
call grcg_off
pop di
pop si
leave
retf 0Ah
sub_C6DB endp
include th02/formats/pi_slot_load.asm
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C986 proc far
push bp
mov bp, sp
nopcall sub_C1B4
cmp word_DABC, 0
jz short loc_C9A1
call sub_2DF4
mov ax, word_E9A4
or word_F296, ax
loc_C9A1:
mov ax, word_F292
or word_F296, ax
pop bp
retf
sub_C986 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C9AA proc far
push bp
mov bp, sp
nopcall sub_C1B4
pop bp
retf
sub_C9AA endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C9B4 proc far
push bp
mov bp, sp
nopcall sub_C1B4
cmp word_DABC, 0
jz short loc_C9D4
call sub_2DF4
mov ax, word_E9A4
mov word_F292, ax
mov ax, word_F296
mov word_F294, ax
loc_C9D4:
pop bp
retf
sub_C9B4 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C9D6 proc far
push bp
mov bp, sp
nopcall sub_C1B4
cmp word_DABC, 0
jz short loc_C9F6
call sub_2DF4
mov ax, word_E9A4
mov word_F294, ax
mov ax, word_F296
mov word_F292, ax
loc_C9F6:
pop bp
retf
sub_C9D6 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_C9F8 proc far
push bp
mov bp, sp
nopcall sub_C1B4
mov ax, word_F296
or word_F292, ax
cmp word_DABC, 0
jz short loc_CA1A
call sub_2DF4
mov ax, word_E9A4
or word_F292, ax
loc_CA1A:
mov word_F294, 0
pop bp
retf
sub_C9F8 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_CA22 proc far
push bp
mov bp, sp
nopcall sub_C1B4
mov ax, word_F296
or ax, word_F292
mov word_F294, ax
cmp word_DABC, 0
jz short loc_CA47
call sub_2DF4
mov ax, word_E9A4
or word_F294, ax
loc_CA47:
mov word_F292, 0
pop bp
retf
sub_CA22 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_CA4F proc far
push bp
mov bp, sp
nopcall sub_C1B4
test byte ptr word_F296+1, 10h
jnz short loc_CA65
test byte ptr word_F296+1, 20h
jz short loc_CA6B
loc_CA65:
mov word_F296, 1000h
loc_CA6B:
mov word_F292, 0
mov word_F294, 0
pop bp
retf
sub_CA4F endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_CA79 proc far
push bp
mov bp, sp
nopcall sub_C1B4
cmp word_DABC, 0
jz short loc_CA94
call sub_2DF4
mov ax, word_E9A4
or word_F296, ax
loc_CA94:
mov ax, word_F292
or word_F296, ax
mov word_F292, 0
mov word_F294, 0
pop bp
retf
sub_CA79 endp
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_CAA9 proc far
arg_0 = word ptr 6
push bp
mov bp, sp
push si
push di
mov si, [bp+arg_0]
xor di, di
loc_CAB3:
call sub_C986
cmp word_F296, 0
jz short loc_CAC7
push 1
nopcall frame_delay
jmp short loc_CAB3
; ---------------------------------------------------------------------------
loc_CAC7:
or si, si
jnz short loc_CAEB
mov si, 270Fh
jmp short loc_CAEB
; ---------------------------------------------------------------------------
loc_CAD0:
call sub_C986
cmp word_F296, 0
jnz short loc_CAEF
inc di
push 1
nopcall frame_delay
cmp si, 270Fh
jnz short loc_CAEB
xor di, di
loc_CAEB:
cmp di, si
jl short loc_CAD0
loc_CAEF:
pop di
pop si
pop bp
retf 2
sub_CAA9 endp
; ---------------------------------------------------------------------------
db 0
; =============== S U B R O U T I N E =======================================
; Attributes: bp-based frame
sub_CAF6 proc far
arg_0 = word ptr 6
arg_2 = word ptr 8
arg_4 = word ptr 0Ah
push bp
mov bp, sp
push si
push di
mov si, [bp+arg_0]
shl si, 4
add si, 1AA8h
mov ax, [bp+arg_4]
sar ax, 3
add ax, [si+6]
mov di, ax
mov ax, [si+8]
mov word ptr cs:loc_CB3C+1, ax
jmp short $+2
shl ax, 2
add ax, 50h ; 'P'
mov dx, ax
mov ax, [bp+arg_2]
mov bx, ax
shl ax, 2
add ax, bx
add ax, 0A800h
mov es, ax
push ds
mov ax, [si+0Eh]
mov ds, ax
xor si, si
mov bx, di
cld
nop
loc_CB3C:
mov cx, 1234h
rep movsd
sub di, dx
jns short loc_CB3C
mov di, bx
mov ax, es
add ax, 800h
mov es, ax
assume es:nothing
cmp ax, 0C000h
jb short loc_CB3C
cmp ax, 0C800h
jnb short loc_CB60
add ax, 2000h
mov es, ax
assume es:nothing
jmp short loc_CB3C
loc_CB60:
pop ds
pop di
pop si
pop bp
retf 6
sub_CAF6 endp
; ---------------------------------------------------------------------------
nop
; =============== S U B R O U T I N E =======================================
sub_CB68 proc far
push di
xor ax, ax
mov di, 1E70h
xor dl, dl
jmp short loc_CB7D
; ---------------------------------------------------------------------------
loc_CB72:
xor dl, dl
mov cx, 8
loc_CB77:
rol al, 1
rcr dl, 1
loop loc_CB77
loc_CB7D:
mov [di], dl
inc di
inc al
jnz short loc_CB72
pop di
retf
sub_CB68 endp
extern FRAME_DELAY_2:proc
op_02_TEXT ends
.data
byte_D880 db 0
unk_D881 db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 0
db 1
db 0
db 0
db 2
db 0
db 3
db 5
db 4
db 6
gp1P_VS_CPU db 88h, 89h, 8Ah, 8Bh, 8Ch, 8Dh, 8Eh, 8Fh, 0
gp1P_VS_2P db 88h, 89h, 8Ah, 8Bh, 96h, 97h, 98h, 99h, 0
gpCPU_VS_CPU db 92h, 93h, 94h, 95h, 8Ch, 8Dh, 8Eh, 8Fh, 0
db 3
db 1
db 5
db 0Dh
db 7
db 0Bh
db 9
db 5
db 58h ; X
db 2
db 0
db 0
db 0E8h ; <20>E
db 3
db 0
db 0
db 80h
db 0Ch
db 0
db 0
db 0F4h
db 1
db 0
db 0
gpSTART db 30h, 31h, 32h, 0
gpVS_START db 33h, 34h, 35h, 36h, 37h, 38h, 0
gpMUSIC_ROOM db 41h, 42h, 43h, 44h, 45h, 46h, 47h, 0
gpHISCORE db 82h, 83h, 84h, 85h, 86h, 0
gpOPTION db 3Dh, 3Eh, 3Fh, 40h, 0
gpQUIT db 48h, 49h, 4Ah, 0
gpRANK db 6Eh, 6Fh, 70h, 0
gpMUSIC db 4Bh, 4Ch, 4Dh, 4Eh, 0
gpKEYCONFIG db 5Ch, 5Dh, 5Eh, 5Fh, 60h, 61h, 0
g4SPACES db 0CFh, 0CFh, 0CFh, 0CFh, 0
gpEASY db 71h, 72h, 73h, 0
gpNORMAL db 74h, 75h, 76h, 77h, 0
gpHARD db 78h, 79h, 7Ah, 0
gpLUNATIC db 7Bh, 7Ch, 7Dh, 7Eh, 0
gpOFF db 0CFh, 0CFh, 5Ah, 5Bh, 0CFh, 0CFh, 0CFh, 0
gpFM_86 db 0CFh, 4Fh, 50h, 51h, 52h, 0CFh, 0CFh, 0
gpMIDI_SC88 db 53h, 54h, 55h, 56h, 57h, 58h, 59h, 0
gpTYPE1 db 62h, 63h, 64h, 65h, 0
gpTYPE2 db 62h, 63h, 64h, 66h, 0
gpTYPE3 db 62h, 63h, 64h, 67h, 0
gpKEY_VS_KEY db 68h, 69h, 6Ch, 6Dh, 68h, 69h, 0
gpJOY_VS_KEY db 6Ah, 6Bh, 6Ch, 6Dh, 68h, 69h, 0
gpKEY_VS_JOY db 68h, 69h, 6Ch, 6Dh, 6Ah, 6Bh, 0
byte_D951 db 0
byte_D952 db 0
byte_D953 db 1
byte_D954 db 0
byte_D955 db 0
aYume_cfg db 'YUME.CFG',0
; char path[]
path db 'mainl',0
asc_D965 db ' ',0
aVfvcvbgngngbgn db '<27>f<EFBFBD>c<EFBFBD>b<EFBFBD>N<EFBFBD><4E><EFBFBD>b<EFBFBD>N<EFBFBD><4E><EFBFBD>T<EFBFBD>l<EFBFBD>g<EFBFBD><67><EFBFBD>ɂȂ<C982><C882>Ă<EFBFBD><C482>܂<EFBFBD><DC82>B',0Ah,0
aUmx db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͂Q<CD82>D<EFBFBD>T<EFBFBD>l<EFBFBD>g<EFBFBD><67><EFBFBD>łȂ<C582><C882>Ɛ<EFBFBD><C690><EFBFBD><EFBFBD>ɃQ<C983>[<5B><><EFBFBD><EFBFBD><EFBFBD>v<EFBFBD><76><EFBFBD>C<EFBFBD>o<EFBFBD><6F><EFBFBD>܂<EFBFBD><DC82><EFBFBD>',0Ah,0
aViosrfvVVkvqbd db 0Ah
db '<27><><EFBFBD><EFBFBD>ł<EFBFBD><C582><EFBFBD><EFBFBD>Q<EFBFBD>D<EFBFBD>T<EFBFBD>l<EFBFBD>g<EFBFBD><67><EFBFBD>ɐ؂<C990><D882>ւ<EFBFBD><D682>āA<C481><41><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>x<EFBFBD><78><EFBFBD>s<EFBFBD><73><EFBFBD>ĂˁB',0Ah,0
aCOul db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>1.dat',0
aGbgvgkxsslvVBb db 0Ah
db '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>ł<EFBFBD><C582>B<EFBFBD><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>󂫂𑝂₵<F0919D82>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD>s<EFBFBD><73><EFBFBD>Ă<EFBFBD><C482><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>',0Ah,0
aMikoft_bft db 'MIKOFT.bft',0
db 0
include libs/master.lib/bfnt_id[data].asm
include libs/master.lib/clip[data].asm
include libs/master.lib/edges[data].asm
include libs/master.lib/fil[data].asm
include libs/master.lib/dos_ropen[data].asm
include libs/master.lib/gaiji_backup[data].asm
include libs/master.lib/gaiji_entry_bfnt[data].asm
include libs/master.lib/grp[data].asm
word_DABC dw 0
db 0
db 0
db 0
db 0
db 0
db 0
include libs/master.lib/pal[data].asm
include libs/master.lib/pf[data].asm
include libs/master.lib/rand[data].asm
include libs/master.lib/sin8[data].asm
include libs/master.lib/tx[data].asm
include libs/master.lib/vs[data].asm
include libs/master.lib/wordmask[data].asm
include libs/master.lib/mem[data].asm
include libs/master.lib/super_entry_bfnt[data].asm
include libs/master.lib/superpa[data].asm
_snd_active db 0
db 0
include libs/master.lib/respal_exist[data].asm
include libs/master.lib/draw_trapezoid[data].asm
include th02/formats/pfopen[data].asm
byte_DDE0 db 0
db 0
dd aNo_1B@cVOul ; "NO.1 <20>@<40><><EFBFBD>͎<EFBFBD><CD8E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD> "
dd aNo_2B@B@Select ; "NO.2 <20>@ <20>@ Selection "
dd aNo_3Umx ; "NO.3 <20><><EFBFBD><EFBFBD><EFBFBD>d<EFBFBD><64><EFBFBD>k "
dd aNo_4Reincarnat ; "NO.4 Reincarnation "
dd aNo_5Dim_Dream ; "NO.5 Dim. Dream "
dd aNo_6TabulaRasa ; "NO.6 Tabula rasa<73>@<40>`<60>󔒏<EFBFBD><F394928F><EFBFBD> "
dd aNo_7B@Maniacal ; "NO.7 <20>@ Maniacal Princess "
dd aNo_8CPOBLostDr ; "NO.8 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>`Lost Dream "
dd aNo_9CMCvlyBDre ; "NO.9 <20><><EFBFBD><EFBFBD><EFBFBD>V<EFBFBD>Y <20>`Dream War "
dd aNo_10Cvc@mirab ; "NO.10 <20><><EFBFBD>@<40><><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>`Fight it out!"
dd aNo_11B@SailorO ; "NO.11 <20>@ Sailor of Time "
dd aNo_12Strawberr ; "NO.12 Strawberry Crisis!! "
dd aNo_13F ; "NO.13 <20>񓝈ꖂ<F1939D88>@<40><><EFBFBD>E<EFBFBD>_ "
dd aNo_14B@cvc@pri ; "NO.14 <09>@<40><><EFBFBD>@<40><><EFBFBD><EFBFBD> "
dd aNo_15B@lviuvC ; "NO.15 <09>@<40>v<EFBFBD><76><EFBFBD>̖<EFBFBD> "
dd aNo_16Umx ; "NO.16 <09><><EFBFBD><EFBFBD><EFBFBD>̐‚<CC90><C282><EFBFBD> "
dd aNo_17IiiuvCumo ; "NO.17 <20>i<EFBFBD><69><EFBFBD>̖<EFBFBD><CC96><EFBFBD> "
dd aNo_18MapleDrea ; "NO.18 Maple Dream... "
dd aNo_19CRlvLxu ; "NO.19 <20><><EFBFBD>l<EFBFBD>̋x<CC8B><78> "
dd aB@b@ ; " <20>@<40>@ "
dd aB@b@vpvxvivf ; " <20>@<40>@<40>p<EFBFBD><70><EFBFBD><EFBFBD><EFBFBD><EFBFBD> "
dd aOp_m_0 ; "op.m"
dd aSelect_m_0 ; "select.m"
dd a00mm_m ; "00mm.m"
dd a01mm_m ; "01mm.m"
dd a02mm_m ; "02mm.m"
dd a03mm_m ; "03mm.m"
dd a04mm_m ; "04mm.m"
dd a05mm_m ; "05mm.m"
dd a06mm_m ; "06mm.m"
dd aDec_m ; "dec.m"
dd a07mm_m ; "07mm.m"
dd a08mm_m ; "08mm.m"
dd aDemo1_m ; "demo1.m"
dd aDemo2_m ; "demo2.m"
dd aDemo3_m ; "demo3.m"
dd aDemo4_m ; "demo4.m"
dd aDemo5_m ; "demo5.m"
dd aEd_m ; "ed.m"
dd aScore_m ; "score.m"
byte_DE82 db 0
byte_DE83 db 0
aNo_1B@cVOul db 'NO.1 <20>@<40><><EFBFBD>͎<EFBFBD><CD8E><EFBFBD><EFBFBD><EFBFBD><EFBFBD>z<EFBFBD><7A><EFBFBD><EFBFBD> ',0
aNo_2B@B@Select db 'NO.2 <20>@ <20>@ Selection ',0
aNo_3Umx db 'NO.3 <20><><EFBFBD><EFBFBD><EFBFBD>d<EFBFBD><64><EFBFBD>k ',0
aNo_4Reincarnat db 'NO.4 Reincarnation ',0
aNo_5Dim_Dream db 'NO.5 Dim. Dream ',0
aNo_6TabulaRasa db 'NO.6 Tabula rasa<73>@<40>`<60>󔒏<EFBFBD><F394928F><EFBFBD> ',0
aNo_7B@Maniacal db 'NO.7 <20>@ Maniacal Princess ',0
aNo_8CPOBLostDr db 'NO.8 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>`Lost Dream ',0
aNo_9CMCvlyBDre db 'NO.9 <20><><EFBFBD><EFBFBD><EFBFBD>V<EFBFBD>Y <20>`Dream War ',0
aNo_10Cvc@mirab db 'NO.10 <20><><EFBFBD>@<40><><EFBFBD><EFBFBD><EFBFBD>I<EFBFBD>`Fight it out!',0
aNo_11B@SailorO db 'NO.11 <20>@ Sailor of Time ',0
aNo_12Strawberr db 'NO.12 Strawberry Crisis!! ',0
aNo_13F db 'NO.13 <20>񓝈ꖂ<F1939D88>@<40><><EFBFBD>E<EFBFBD>_ ',0
aNo_14B@cvc@pri db 'NO.14 <20>@<40><><EFBFBD>@<40><><EFBFBD><EFBFBD> ',0
aNo_15B@lviuvC db 'NO.15 <20>@<40>v<EFBFBD><76><EFBFBD>̖<EFBFBD> ',0
aNo_16Umx db 'NO.16 <20><><EFBFBD><EFBFBD><EFBFBD>̐‚<CC90><C282><EFBFBD> ',0
aNo_17IiiuvCumo db 'NO.17 <20>i<EFBFBD><69><EFBFBD>̖<EFBFBD><CC96><EFBFBD> ',0
aNo_18MapleDrea db 'NO.18 Maple Dream... ',0
aNo_19CRlvLxu db 'NO.19 <20><><EFBFBD>l<EFBFBD>̋x<CC8B><78> ',0
aB@b@ db ' <20>@<40>@ ',0
aB@b@vpvxvivf db ' <20>@<40>@<40>p<EFBFBD><70><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ',0
aOp_m_0 db 'op.m',0
aSelect_m_0 db 'select.m',0
a00mm_m db '00mm.m',0
a01mm_m db '01mm.m',0
a02mm_m db '02mm.m',0
a03mm_m db '03mm.m',0
a04mm_m db '04mm.m',0
a05mm_m db '05mm.m',0
a06mm_m db '06mm.m',0
aDec_m db 'dec.m',0
a07mm_m db '07mm.m',0
a08mm_m db '08mm.m',0
aDemo1_m db 'demo1.m',0
aDemo2_m db 'demo2.m',0
aDemo3_m db 'demo3.m',0
aDemo4_m db 'demo4.m',0
aDemo5_m db 'demo5.m',0
aEd_m db 'ed.m',0
aScore_m db 'score.m',0
include th02/music/music_cmt_load[data].asm
aOp3_pi db 'op3.pi',0
aOpwin_bft db 'opwin.bft',0
aOp_m db 'op.m',0
aTl01_pi db 'TL01.PI',0
aTl02_pi db 'TL02.PI',0
db 0
word_E1F2 dw 0A04h
aYume_nem db 'YUME.NEM',0
db 0
off_E1FE dd a00sl_cd2
; "00SL.CD2"
dd a02sl_cd2 ; "02SL.CD2"
dd a04sl_cd2 ; "04SL.CD2"
dd a06sl_cd2 ; "06SL.CD2"
dd a08sl_cd2 ; "08SL.CD2"
dd a10sl_cd2 ; "10SL.CD2"
dd a12sl_cd2 ; "12SL.CD2"
dd a14sl_cd2 ; "14SL.CD2"
dd a16sl_cd2 ; "16SL.CD2"
db 3
db 1
db 5
db 4
db 4
db 2
db 3
db 4
db 3
db 2
db 3
db 1
db 4
db 1
db 4
db 2
db 2
db 5
db 4
db 5
db 1
db 5
db 2
db 4
db 5
db 5
db 3
db 12h
db 13h
db 0
db 16h
db 17h
db 0
db 14h
db 15h
db 0
db 18h
db 19h
db 0
db 0
db 0
a00sl_cd2 db '00SL.CD2',0
a02sl_cd2 db '02SL.CD2',0
a04sl_cd2 db '04SL.CD2',0
a06sl_cd2 db '06SL.CD2',0
a08sl_cd2 db '08SL.CD2',0
a10sl_cd2 db '10SL.CD2',0
a12sl_cd2 db '12SL.CD2',0
a14sl_cd2 db '14SL.CD2',0
a16sl_cd2 db '16SL.CD2',0
aSlex_cd2 db 'slex.cd2',0
a99sl_cdg db '99sl.cdg',0
aSlwin_cdg db 'slwin.cdg',0
aSlex_cdg db 'slex.cdg',0
aSelect_m db 'select.m',0
aChname_bft db 'chname.bft',0
aTlsl_rgb db 'TLSL.RGB',0
db 041h, 0C1h, 0E1h, 0
.data?
byte_E97A db ?
byte_E97B db ?
byte_E97C db ?
db ?
fp_E97E dw ?
include libs/master.lib/clip[bss].asm
include libs/master.lib/fil[bss].asm
word_E9A4 dw ?
db ?
db ? ;
include libs/master.lib/pal[bss].asm
include libs/master.lib/vs[bss].asm
include libs/master.lib/vsync[bss].asm
include libs/master.lib/mem[bss].asm
include libs/master.lib/superpa[bss].asm
include th01/hardware/vram_planes[bss].asm
include th02/snd/snd[bss].asm
include th02/snd/load[bss].asm
include libs/master.lib/pfint21[bss].asm
word_F292 dw ?
word_F294 dw ?
word_F296 dw ?
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
include th02/formats/pi_slots[bss].asm
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
unk_F760 db ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
db ? ;
db ? ;
db ? ;
word_F828 dw ?
word_F82A dw ?
unk_F82C db ? ;
db ? ;
word_F82E dw ?
unk_F830 db ? ;
db ? ;
word_F832 dw ?
unk_F834 db ? ;
db ? ;
word_F836 dw ?
unk_F838 db ? ;
db ? ;
word_F83A dw ?
include th02/music/music_cmt[bss].asm
word_FB84 dw ?
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
byte_FBD6 db ?
byte_FBD7 db ?
dd ? ;
byte_FBDC db ?
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
dd ? ;
db ? ;
db ? ;
db ? ;
byte_FC50 db ?
byte_FC51 db ?
word_FC52 dw ?
dword_FC54 dd ?
byte_FC58 db ?
byte_FC59 db ?
byte_FC5A db ?
byte_FC5B db ?
byte_FC5C db ?
db ?
farfp_FC5E dd ?
word_FC62 dw ?
word_FC64 dw ?
word_FC66 dw ?
byte_FC68 db ?
db ? ;
end