mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-10-09 15:09:50 +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.
406 lines
9.6 KiB
C
406 lines
9.6 KiB
C
/*
|
|
* cmdn.c SYSTEM35 N 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: cmdn.c,v 1.18 2001/04/02 21:00:44 chikama Exp $ */
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <math.h>
|
|
#include "portab.h"
|
|
#include "utfsjis.h"
|
|
#include "xsystem35.h"
|
|
#include "scenario.h"
|
|
#include "input_modal.h"
|
|
#include "cmd_check.h"
|
|
|
|
/* NI/NT 用パラメータ */
|
|
static INPUTNUM_PARAM ni_param;
|
|
|
|
void commandNB() {
|
|
/* var1 から始まるcount個の変数へ
|
|
var2 から始まるcount個の変数をコピーする */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
if (var1 == NULL) {
|
|
WARNING("NB dst variable(var1) is NULL");
|
|
return;
|
|
}
|
|
|
|
if (var2 == NULL) {
|
|
WARNING("NB src variable(var2) is NULL");
|
|
return;
|
|
}
|
|
|
|
TRACE("NB %d,%d,%d:", *var1, *var2, cnt);
|
|
while(cnt--) {
|
|
*var1 = *var2; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandNC() {
|
|
/* var1から始まるcount個の変数を0でクリアする */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("NC %d,%d:", *var1, cnt);
|
|
|
|
while(cnt--) {
|
|
*var1++ = 0;
|
|
}
|
|
}
|
|
|
|
void commandNR() {
|
|
/* var1にvar2のルートを求める (間違い)*/
|
|
/* NR 100,D01: ; < D01にルート100(10)が返る */
|
|
int var1 = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
*var2 = (int)sqrtf(var1);
|
|
TRACE("NR %d,%d:", var1, *var2);
|
|
}
|
|
|
|
void commandN_ADD() {
|
|
/* var1から始まるcount個の変数にnumを足す */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N+ %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = (uint16_t)(*var1 + num); var1++;
|
|
// *var1 += num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_SUB() {
|
|
/* var1から始まるcount個の変数からnumを引く */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N- %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = max(0, *var1 - num); var1++;
|
|
// *var1 -= num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_MUL() {
|
|
/* var1から始まるcount個の変数にnumを掛ける */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N* %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = (uint16_t)(*var1 * num); var1++;
|
|
// *var1 *= num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_DIV() {
|
|
/* var1から始まるcount個の変数をnumで割る */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N/ %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
// *var1 = (unsigned short)(*var1)/num; var1++;
|
|
*var1 /= num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_GT() {
|
|
/* var1 から始まるcount個の変数からnumより大きいければ1を、以下ならば0を
|
|
var2から始まる変数列に返す
|
|
*/
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N> %d,%d,%d,%d:", *var1, num, cnt, *var2);
|
|
while (cnt--) {
|
|
*var2 = *var1 > num ? 1 : 0; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_LT() {
|
|
/* var1から始まるcount個の変数からnumより小さければ1を、以上ならば0を
|
|
var2から始まる変数列に返す
|
|
*/
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N< %p,%d,%d,%p:", var1, num, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 = *var1 < num ? 1 : 0; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_EQ() {
|
|
/* var1から始まるcount個の変数からnumに等しければ1を、等しくなければ0を
|
|
var2から始まる変数列に返す
|
|
*/
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N= %p,%d,%d,%p:", var1, num, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 = *var1 == num ? 1 : 0; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_NE() {
|
|
/* var1から始まるcount個の変数の0,1を反転する */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N\\ %p,%d:", var1, cnt);
|
|
while(cnt--) {
|
|
*var1 ^= 1; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_AND() {
|
|
/* var1,var2のcount個の変数のANDをとる */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N& %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 &= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_OR() {
|
|
/* var1,var2のcount個の変数のORをとる */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N| %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 |= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_XOR() {
|
|
/* var1,var2のcount個の変数のXORをとる */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
|
|
TRACE("N^ %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 ^= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_NOT() {
|
|
/* ビット反転する */
|
|
vmvar_t *var = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
TRACE("N~ %p,%d", var, cnt);
|
|
while(cnt--) {
|
|
*var ^= 0xffff; var++;
|
|
}
|
|
}
|
|
|
|
void commandNO() { /* T2 */
|
|
int p1 = sl_getc();
|
|
vmvar_t *dst_var = getCaliVariable();
|
|
vmvar_t *src_var = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
int i, tmp = 0;
|
|
|
|
if (p1 == 0) {
|
|
/* 変数並びをビット列に圧縮する。 */
|
|
for (i = 0; i < cnt; i++) {
|
|
tmp |= ((*src_var & 1) << (15 - (i%16))); src_var++;
|
|
if ((i%16) == 15 && i < (cnt-1)) {
|
|
*dst_var = tmp; dst_var++; tmp = 0;
|
|
}
|
|
}
|
|
*dst_var = tmp;
|
|
} else if (p1 == 1) {
|
|
/* ビット列を変数並びに展開する。*/
|
|
for (i = 0; i < cnt; i++) {
|
|
if ((i%16) == 0) {
|
|
tmp = *src_var++;
|
|
}
|
|
*dst_var = (tmp & (1 << (15 - (i%16)))) ? 1 : 0; dst_var++;
|
|
}
|
|
} else {
|
|
WARNING("Unknown NO %d command", p1);
|
|
}
|
|
|
|
TRACE("NO %d,%p,%p,%d:", p1, src_var, dst_var, cnt);
|
|
}
|
|
|
|
void commandNDC() {
|
|
/* w64nにnumをコピーする */
|
|
int w64n = getCaliValue();
|
|
int num = getCaliValue();
|
|
longVar[w64n] = num;
|
|
|
|
TRACE("NDC %d,%d:", w64n, num);
|
|
}
|
|
|
|
void commandNDD() {
|
|
/* varにw64nをコピーする*/
|
|
vmvar_t *var = getCaliVariable();
|
|
int w64n = getCaliValue();
|
|
*var = (int)longVar[w64n];
|
|
|
|
TRACE("NDD %p,%d:", var, w64n);
|
|
}
|
|
|
|
void commandNDM() {
|
|
// 数値w64nを文字列領域strへ文字列として反映
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
TRACE_UNIMPLEMENTED("NDM %d,%d:", str, w64n);
|
|
}
|
|
|
|
void commandNDA() {
|
|
// 文字列領域strを数値としてw64nへ反映
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
TRACE_UNIMPLEMENTED("NDA %d,%d:", str, w64n);
|
|
}
|
|
|
|
void commandNDH() {
|
|
// 数値w64nを画面に表示（パラメータの意味はＨコマンドに準拠）
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
TRACE_UNIMPLEMENTED("NDH %d,%d:", str, w64n);
|
|
}
|
|
|
|
void commandND_ADD() {
|
|
/* w64n2とw64n3を足してw64n1に代入 */
|
|
int w64n1 = getCaliValue();
|
|
int w64n2 = getCaliValue();
|
|
int w64n3 = getCaliValue();
|
|
|
|
longVar[w64n1] = longVar[w64n2] + longVar[w64n3];
|
|
|
|
TRACE("ND+ %d,%d,%d:", w64n1, w64n2);
|
|
}
|
|
|
|
void commandND_SUB() {
|
|
/* w64n2からw64n3を引いてw64n1に代入 */
|
|
int w64n1 = getCaliValue();
|
|
int w64n2 = getCaliValue();
|
|
int w64n3 = getCaliValue();
|
|
|
|
longVar[w64n1] = longVar[w64n2] - longVar[w64n3];
|
|
|
|
TRACE("ND- %d,%d,%d:", w64n1, w64n2, w64n3);
|
|
}
|
|
|
|
void commandND_MUL() {
|
|
/* w64n2とw64n3を掛けてw64n1に代入 */
|
|
int w64n1 = getCaliValue();
|
|
int w64n2 = getCaliValue();
|
|
int w64n3 = getCaliValue();
|
|
|
|
longVar[w64n1] = longVar[w64n2] * longVar[w64n3];
|
|
|
|
TRACE("ND* %d,%d,%d:", w64n1, w64n2, w64n3);
|
|
}
|
|
|
|
void commandND_DIV() {
|
|
// w64n2をw64n3で割ってw64n1に代入
|
|
int w64n1 = getCaliValue();
|
|
int w64n2 = getCaliValue();
|
|
int w64n3 = getCaliValue();
|
|
|
|
longVar[w64n1] = longVar[w64n2] / longVar[w64n3];
|
|
|
|
TRACE("ND/ %d,%d,%d:", w64n1, w64n2, w64n3);
|
|
}
|
|
|
|
void commandNI() { /* From Panyo */
|
|
/* 数値入力 */
|
|
vmvar_t *var = getCaliVariable();
|
|
int def = getCaliValue();
|
|
int _min = getCaliValue();
|
|
int _max = getCaliValue();
|
|
|
|
ni_param.def = def;
|
|
ni_param.max = _max;
|
|
ni_param.min = _min;
|
|
if (!ni_param.title)
|
|
ni_param.title = strdup("");
|
|
|
|
if (input_modal_number(&ni_param)) {
|
|
*var = ni_param.value;
|
|
sysVar[0] = 0;
|
|
} else {
|
|
sysVar[0] = 255;
|
|
}
|
|
|
|
TRACE("NI %p,%d,%d,%d:", var, def, _min, _max);
|
|
}
|
|
|
|
void commandNT(char terminator) {
|
|
/* NIコマンドで表示するタイトルを設定する。*/
|
|
const char *str = sl_getString(terminator);
|
|
|
|
free(ni_param.title);
|
|
ni_param.title = toUTF8(str);
|
|
|
|
TRACE("NT %p:", str);
|
|
}
|
|
|
|
void commandNP() {
|
|
/* 配列比較 */
|
|
vmvar_t *var1 = getCaliVariable();
|
|
vmvar_t *var2 = getCaliVariable();
|
|
int count = getCaliValue();
|
|
vmvar_t *result = getCaliVariable();
|
|
|
|
TRACE("NP %d,%d,%d,%d:", *var1, *var2, count, *result);
|
|
|
|
while(count--) {
|
|
if (*var1 != *var2) {
|
|
*result = 0;
|
|
return;
|
|
}
|
|
var1++; var2++;
|
|
}
|
|
*result = 1;
|
|
}
|