mirror of https://github.com/nmlgc/ReC98.git
158 lines
3.6 KiB
NASM
158 lines
3.6 KiB
NASM
public CFG_LOAD
|
|
cfg_load proc near
|
|
|
|
@@sgm = word ptr -0Ch
|
|
@@cfg = byte ptr -(size cfg_t)
|
|
|
|
enter 0Ch, 0
|
|
call file_ropen pascal, ds, offset _cfg_fn
|
|
push ss
|
|
lea ax, [bp+@@cfg]
|
|
push ax
|
|
push size cfg_t
|
|
call file_read
|
|
call file_close
|
|
mov ax, [bp+@@cfg.resident_sgm]
|
|
mov [bp+@@sgm], ax
|
|
mov word ptr _resident+2, ax
|
|
mov word ptr _resident, 0
|
|
les bx, _resident
|
|
; TH05 does this in RES_KSO.COM
|
|
if GAME eq 4
|
|
mov al, [bp+@@cfg.CFG_rank]
|
|
mov es:[bx+resident_t.rank], al
|
|
mov al, [bp+@@cfg.lives]
|
|
mov es:[bx+resident_t.cfg_lives], al
|
|
mov al, [bp+@@cfg.bombs]
|
|
mov es:[bx+resident_t.cfg_bombs], al
|
|
mov al, [bp+@@cfg.CFG_bgm_mode]
|
|
mov es:[bx+resident_t.bgm_mode], al
|
|
mov al, [bp+@@cfg.CFG_se_mode]
|
|
mov es:[bx+resident_t.se_mode], al
|
|
mov al, [bp+@@cfg.CFG_turbo_mode]
|
|
mov es:[bx+resident_t.turbo_mode], al
|
|
endif
|
|
cmp es:[bx+resident_t.cfg_lives], CFG_LIVES_MAX
|
|
ja short @@lives_reset
|
|
cmp es:[bx+resident_t.cfg_lives], 0
|
|
jnz short @@bombs_reset?
|
|
|
|
@@lives_reset:
|
|
les bx, _resident
|
|
mov es:[bx+resident_t.cfg_lives], CFG_LIVES_DEFAULT
|
|
|
|
@@bombs_reset?:
|
|
les bx, _resident
|
|
cmp es:[bx+resident_t.cfg_bombs], CFG_BOMBS_MAX
|
|
jbe short @@bgm_mode_reset?
|
|
mov es:[bx+resident_t.cfg_bombs], CFG_BOMBS_MAX
|
|
|
|
@@bgm_mode_reset?:
|
|
les bx, _resident
|
|
cmp es:[bx+resident_t.bgm_mode], SND_BGM_MODE_COUNT
|
|
jb short @@se_mode_reset?
|
|
mov es:[bx+resident_t.bgm_mode], SND_BGM_OFF
|
|
|
|
@@se_mode_reset?:
|
|
les bx, _resident
|
|
cmp es:[bx+resident_t.se_mode], SND_SE_MODE_COUNT
|
|
jb short @@ret
|
|
mov es:[bx+resident_t.se_mode], SND_SE_OFF
|
|
|
|
@@ret:
|
|
leave
|
|
retn
|
|
cfg_load endp
|
|
|
|
|
|
public CFG_SAVE
|
|
cfg_save proc near
|
|
|
|
@@opts = cfg_options_t ptr -8
|
|
@@opts_sum = byte ptr -2
|
|
|
|
enter 8, 0
|
|
call file_append pascal, ds, offset _cfg_fn
|
|
call file_seek pascal, large 0, 0
|
|
les bx, _resident
|
|
mov al, es:[bx+resident_t.rank]
|
|
mov [bp+@@opts.CFG_rank], al
|
|
mov al, es:[bx+resident_t.cfg_lives]
|
|
mov [bp+@@opts.lives], al
|
|
mov al, es:[bx+resident_t.cfg_bombs]
|
|
mov [bp+@@opts.bombs], al
|
|
mov al, es:[bx+resident_t.bgm_mode]
|
|
mov [bp+@@opts.CFG_bgm_mode], al
|
|
mov al, es:[bx+resident_t.se_mode]
|
|
mov [bp+@@opts.CFG_se_mode], al
|
|
mov al, es:[bx+resident_t.turbo_mode]
|
|
mov [bp+@@opts.CFG_turbo_mode], al
|
|
push ss
|
|
lea ax, [bp+@@opts]
|
|
push ax
|
|
push size cfg_options_t
|
|
call file_write
|
|
call file_seek pascal, large offset cfg_t.opts_sum, 0
|
|
mov al, [bp+@@opts.CFG_rank]
|
|
add al, [bp+@@opts.lives]
|
|
add al, [bp+@@opts.bombs]
|
|
add al, [bp+@@opts.CFG_bgm_mode]
|
|
add al, [bp+@@opts.CFG_se_mode]
|
|
add al, [bp+@@opts.CFG_turbo_mode]
|
|
mov [bp+@@opts_sum], al
|
|
push ss
|
|
lea ax, [bp+@@opts_sum]
|
|
push ax
|
|
push byte
|
|
call file_write
|
|
call file_close
|
|
leave
|
|
retn
|
|
cfg_save endp
|
|
|
|
|
|
public CFG_SAVE_EXIT
|
|
cfg_save_exit proc near
|
|
|
|
@@cfg = cfg_t ptr -(size cfg_t)
|
|
|
|
enter (size cfg_t), 0
|
|
lea ax, [bp+@@cfg]
|
|
push ss
|
|
push ax
|
|
push ds
|
|
push offset _cfg_empty
|
|
mov cx, size cfg_t
|
|
call SCOPY@
|
|
call file_append pascal, ds, offset _cfg_fn
|
|
call file_seek pascal, large 0, 0
|
|
les bx, _resident
|
|
mov al, es:[bx+resident_t.rank]
|
|
mov [bp+@@cfg.CFG_rank], al
|
|
mov al, es:[bx+resident_t.cfg_lives]
|
|
mov [bp+@@cfg.lives], al
|
|
mov al, es:[bx+resident_t.cfg_bombs]
|
|
mov [bp+@@cfg.bombs], al
|
|
mov al, es:[bx+resident_t.bgm_mode]
|
|
mov [bp+@@cfg.CFG_bgm_mode], al
|
|
mov al, es:[bx+resident_t.se_mode]
|
|
mov [bp+@@cfg.CFG_se_mode], al
|
|
mov al, es:[bx+resident_t.turbo_mode]
|
|
mov [bp+@@cfg.CFG_turbo_mode], al
|
|
mov al, [bp+@@cfg.CFG_rank]
|
|
add al, [bp+@@cfg.lives]
|
|
add al, [bp+@@cfg.bombs]
|
|
add al, [bp+@@cfg.CFG_bgm_mode]
|
|
add al, [bp+@@cfg.CFG_se_mode]
|
|
add al, [bp+@@cfg.CFG_turbo_mode]
|
|
mov [bp+@@cfg.opts_sum], al
|
|
push ss
|
|
lea ax, [bp+@@cfg]
|
|
push ax
|
|
push size cfg_t
|
|
call file_write
|
|
call file_close
|
|
leave
|
|
retn
|
|
cfg_save_exit endp
|