mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-09-28 17:58:09 +03:00
kichikuou
29a139c8a1
This replaces BYTE, WORD and DWORD types with uint8_t, uint16_t and uint32_t respectively.
407 lines
9.6 KiB
C
407 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 "menu.h"
|
|
|
|
/* NI/NT 用パラメータ */
|
|
INPUTNUM_PARAM ni_param;
|
|
|
|
void commandNB() {
|
|
/* var1 から始まるcount個の変数へ
|
|
var2 から始まるcount個の変数をコピーする */
|
|
int *var1 = getCaliVariable();
|
|
int *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;
|
|
}
|
|
|
|
DEBUG_COMMAND("NB %d,%d,%d:", *var1, *var2, cnt);
|
|
while(cnt--) {
|
|
*var1 = *var2; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandNC() {
|
|
/* var1から始まるcount個の変数を0でクリアする */
|
|
int *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("NC %d,%d:", *var1, cnt);
|
|
|
|
while(cnt--) {
|
|
*var1++ = 0;
|
|
}
|
|
}
|
|
|
|
void commandNR() {
|
|
/* var1にvar2のルートを求める (間違い)*/
|
|
/* NR 100,D01: ; < D01にルート100(10)が返る */
|
|
int var1 = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
*var2 = (int)sqrt(var1);
|
|
DEBUG_COMMAND("NR %d,%d:", var1, *var2);
|
|
}
|
|
|
|
void commandN_ADD() {
|
|
/* var1から始まるcount個の変数にnumを足す */
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("N+ %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = (uint16_t)(*var1 + num); var1++;
|
|
// *var1 += num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_SUB() {
|
|
/* var1から始まるcount個の変数からnumを引く */
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("N- %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = max(0, *var1 - num); var1++;
|
|
// *var1 -= num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_MUL() {
|
|
/* var1から始まるcount個の変数にnumを掛ける */
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("N* %d,%d,%d:", *var1, num, cnt);
|
|
while(cnt--) {
|
|
*var1 = (uint16_t)(*var1 * num); var1++;
|
|
// *var1 *= num; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_DIV() {
|
|
/* var1から始まるcount個の変数をnumで割る */
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("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から始まる変数列に返す
|
|
*/
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("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から始まる変数列に返す
|
|
*/
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("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から始まる変数列に返す
|
|
*/
|
|
int *var1 = getCaliVariable();
|
|
int num = getCaliValue();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("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を反転する */
|
|
int *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("N\\ %p,%d:", var1, cnt);
|
|
while(cnt--) {
|
|
*var1 ^= 1; var1++;
|
|
}
|
|
}
|
|
|
|
void commandN_AND() {
|
|
/* var1,var2のcount個の変数のANDをとる */
|
|
int *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("N& %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 &= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_OR() {
|
|
/* var1,var2のcount個の変数のORをとる */
|
|
int *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("N| %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 |= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_XOR() {
|
|
/* var1,var2のcount個の変数のXORをとる */
|
|
int *var1 = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
int *var2 = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("N^ %p,%d,%p:", var1, cnt, var2);
|
|
while(cnt--) {
|
|
*var2 ^= *var1; var1++; var2++;
|
|
}
|
|
}
|
|
|
|
void commandN_NOT() {
|
|
/* ビット反転する */
|
|
int *var = getCaliVariable();
|
|
int cnt = getCaliValue();
|
|
|
|
DEBUG_COMMAND("N~ %p,%d", var, cnt);
|
|
while(cnt--) {
|
|
*var ^= 0xffff; var++;
|
|
}
|
|
}
|
|
|
|
void commandNO() { /* T2 */
|
|
int p1 = sl_getc();
|
|
int *dst_var = getCaliVariable();
|
|
int *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);
|
|
}
|
|
|
|
DEBUG_COMMAND("NO %d,%p,%p,%d:", p1, src_var, dst_var, cnt);
|
|
}
|
|
|
|
void commandNDC() {
|
|
/* w64nにnumをコピーする */
|
|
int w64n = getCaliValue();
|
|
int num = getCaliValue();
|
|
longVar[w64n] = num;
|
|
|
|
DEBUG_COMMAND("NDC %d,%d:", w64n, num);
|
|
}
|
|
|
|
void commandNDD() {
|
|
/* varにw64nをコピーする*/
|
|
int *var = getCaliVariable();
|
|
int w64n = getCaliValue();
|
|
*var = (int)longVar[w64n];
|
|
|
|
DEBUG_COMMAND("NDD %p,%d:", var, w64n);
|
|
}
|
|
|
|
void commandNDM() {
|
|
// 数値w64nを文字列領域strへ文字列として反映
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
DEBUG_COMMAND_YET("NDM %d,%d:", str, w64n);
|
|
}
|
|
|
|
void commandNDA() {
|
|
// 文字列領域strを数値としてw64nへ反映
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
DEBUG_COMMAND_YET("NDA %d,%d:", str, w64n);
|
|
}
|
|
|
|
void commandNDH() {
|
|
// 数値w64nを画面に表示（パラメータの意味はＨコマンドに準拠）
|
|
int str = getCaliValue();
|
|
int w64n = getCaliValue();
|
|
|
|
DEBUG_COMMAND_YET("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];
|
|
|
|
DEBUG_COMMAND("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];
|
|
|
|
DEBUG_COMMAND("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];
|
|
|
|
DEBUG_COMMAND("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];
|
|
|
|
DEBUG_COMMAND("ND/ %d,%d,%d:", w64n1, w64n2, w64n3);
|
|
}
|
|
|
|
void commandNI() { /* From Panyo */
|
|
/* 数値入力 */
|
|
int *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("");
|
|
|
|
menu_inputnumber(&ni_param);
|
|
|
|
if (ni_param.value < 0) {
|
|
sysVar[0] = 255;
|
|
} else {
|
|
*var = ni_param.value;
|
|
sysVar[0] = 0;
|
|
}
|
|
|
|
DEBUG_COMMAND("NI %p,%d,%d,%d:", var, def, _min, _max);
|
|
}
|
|
|
|
void commandNT() { /* From Panyo */
|
|
/* NIコマンドで表示するタイトルを設定する。*/
|
|
const char *str = sl_getString(':');
|
|
|
|
free(ni_param.title);
|
|
ni_param.title = toUTF8(str);
|
|
|
|
DEBUG_COMMAND("NT %p:", str);
|
|
}
|
|
|
|
void commandNP() {
|
|
/* 配列比較 */
|
|
int *var1 = getCaliVariable();
|
|
int *var2 = getCaliVariable();
|
|
int count = getCaliValue();
|
|
int *result = getCaliVariable();
|
|
|
|
DEBUG_COMMAND("NP %d,%d,%d,%d:", *var1, *var2, count, *result);
|
|
|
|
while(count--) {
|
|
if (*var1 != *var2) {
|
|
*result = 0;
|
|
return;
|
|
}
|
|
var1++; var2++;
|
|
}
|
|
*result = 1;
|
|
}
|