mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-09-29 18:28:19 +03:00
kichikuou
a627a8ea3d
Define a dedicated `vmvar_t` type for values stored in variable pages and propagate it through interfaces that expose those values. Keep the type as int for now so this commit does not change runtime behavior. This separates VM storage from ordinary int buffers and makes a later conversion to 16-bit storage mechanically checkable.
93 lines
2.6 KiB
C
93 lines
2.6 KiB
C
/*
|
|
* cmdd.c SYSTEM35 D command
|
|
*
|
|
* Copyright (C) 1997-1998 Masaki Chikama (Wren) <chikama@kasumi.ipl.mech.nagoya-u.ac.jp>
|
|
* 1998- <masaki-c@is.aist-nara.ac.jp>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
*
|
|
*
|
|
*/
|
|
/* $Id: cmdd.c,v 1.9 2002/04/29 05:48:21 chikama Exp $ */
|
|
|
|
#include <stdio.h>
|
|
#include "portab.h"
|
|
#include "xsystem35.h"
|
|
#include "scenario.h"
|
|
|
|
void commandDC() {
|
|
int page = getCaliValue();
|
|
int maxindex = getCaliValue();
|
|
int save = getCaliValue();
|
|
|
|
if (!v_allocatePage(page, maxindex + 1, !!save))
|
|
WARNING("Array allocation failed: page=%d size=%d", page, maxindex);
|
|
TRACE("DC %d,%d,%d:", page, maxindex, save);
|
|
}
|
|
|
|
void commandDI() {
|
|
int page = getCaliValue();
|
|
vmvar_t *var_use = getCaliVariable();
|
|
vmvar_t *var_size = getCaliVariable();
|
|
|
|
v_getPageStatus(page, var_use, var_size);
|
|
|
|
TRACE("DI %d,%p,%p:", page, var_use, var_size);
|
|
}
|
|
|
|
void commandDS() {
|
|
struct VarRef data_var;
|
|
vmvar_t *point_var = getCaliVariable();
|
|
getCaliArray(&data_var);
|
|
int offset = getCaliValue();
|
|
int page = getCaliValue();
|
|
|
|
TRACE("DS %p,%d,%d,%d:",point_var, data_var.var, offset, page);
|
|
if (!v_bindArray(data_var.var, point_var, offset, page)) {
|
|
WARNING("commandDS(): Array allocate failed");
|
|
WARNING("if you are playing 'Pastel Chime', please patch to scenario(see patch/README.TXT for detail)");
|
|
}
|
|
}
|
|
|
|
|
|
void commandDR() {
|
|
struct VarRef data_var;
|
|
getCaliArray(&data_var);
|
|
v_unbindArray(data_var.var);
|
|
|
|
TRACE("DR %d:", data_var.var);
|
|
}
|
|
|
|
void commandDF() {
|
|
struct VarRef data_var;
|
|
getCaliArray(&data_var);
|
|
int cnt = getCaliValue();
|
|
int data = getCaliValue();
|
|
|
|
TRACE("DF %p,%d,%d:", data_var, cnt, data);
|
|
|
|
if (data_var.page) {
|
|
int maxlen = v_sliceSize(&data_var);
|
|
if (cnt > maxlen) {
|
|
WARNING("%03d:%05x: count exceeds array boundary (%d > %d)", sl_getPage(), sl_getIndex(), cnt, maxlen);
|
|
cnt = maxlen;
|
|
}
|
|
}
|
|
|
|
vmvar_t *p = v_resolveRef(&data_var);
|
|
while (cnt--)
|
|
*p++ = data;
|
|
}
|