mirror of https://github.com/nmlgc/ReC98.git
34 lines
782 B
NASM
34 lines
782 B
NASM
public _scoredat_load_for_cur
|
|
_scoredat_load_for_cur proc near
|
|
push bp
|
|
mov bp, sp
|
|
call file_exist pascal, ds, offset aGensou_scr_0 ; "GENSOU.SCR"
|
|
or ax, ax
|
|
jz short @@recreate
|
|
call file_ropen pascal, ds, offset aGensou_scr_1 ; "GENSOU.SCR"
|
|
mov al, _rank
|
|
mov ah, 0
|
|
imul ax, size scoredat_section_t
|
|
movzx eax, ax
|
|
call file_seek pascal, large eax, 0
|
|
les bx, _resident
|
|
assume es:nothing
|
|
cmp es:[bx+resident_t.playchar_ascii], '0' + PLAYCHAR_MARISA
|
|
jnz short @@read
|
|
call file_seek pascal, large RANK_COUNT * size scoredat_section_t, 1
|
|
|
|
@@read:
|
|
call file_read pascal, ds, offset _hi, size scoredat_section_t
|
|
call file_close
|
|
call scoredat_decode_func
|
|
or al, al
|
|
jz short @@ret
|
|
|
|
@@recreate:
|
|
call scoredat_recreate_func
|
|
|
|
@@ret:
|
|
pop bp
|
|
retn
|
|
_scoredat_load_for_cur endp
|