mirror of
https://github.com/kichikuou/xsystem35-sdl2.git
synced 2026-09-30 18:58:07 +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.
133 lines
3.1 KiB
C
133 lines
3.1 KiB
C
/*
|
|
* cmdu.c SYSTEM35 U 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: cmdu.c,v 1.7 2000/09/10 10:39:49 chikama Exp $ */
|
|
|
|
#include <stdio.h>
|
|
#include "portab.h"
|
|
#include "xsystem35.h"
|
|
#include "scenario.h"
|
|
|
|
void commandUC() { /* 王道勇者 */
|
|
/* ラベル・シナリオコールのスタックフレームを削除する。*/
|
|
int mode = sl_getc();
|
|
int num = getCaliValue();
|
|
|
|
switch(mode) {
|
|
case 0:
|
|
sl_clearStack(true);
|
|
break;
|
|
case 1:
|
|
sl_dropLabelCalls(num);
|
|
break;
|
|
case 2:
|
|
sl_dropPageCalls(num);
|
|
break;
|
|
case 3:
|
|
sl_clearStack(false);
|
|
break;
|
|
}
|
|
TRACE("UC %d,%d:",mode,num);
|
|
}
|
|
|
|
void commandUD() {
|
|
int mode = getCaliValue();
|
|
|
|
switch(mode) {
|
|
case 0:
|
|
sl_reinit(); break;
|
|
case 1:
|
|
sl_retFar(); break;
|
|
default:
|
|
WARNING("UnKnown UD command %d", mode);
|
|
}
|
|
|
|
TRACE("UD %d:",mode);
|
|
}
|
|
|
|
void commandUR() {
|
|
/* 最後に積まれたスタックの属性をリード */
|
|
vmvar_t *var = getCaliVariable();
|
|
|
|
struct stack_info info;
|
|
sl_getStackInfo(&info);
|
|
var[0] = info.top_attr;
|
|
var[1] = info.page_calls;
|
|
var[2] = info.label_calls;
|
|
var[3] = info.var_pushes;
|
|
var[4] = info.label_calls_after_page_call;
|
|
var[5] = info.var_pushes_after_call;
|
|
|
|
TRACE("UR %p:",var);
|
|
}
|
|
|
|
void commandUS() {
|
|
/* ローカル変数指定(変数 PUSH) */
|
|
struct VarRef vref;
|
|
getCaliArray(&vref);
|
|
int cnt = getCaliValue();
|
|
|
|
sl_pushVar(&vref, cnt);
|
|
TRACE("US %d,%d:", vref.var, cnt);
|
|
}
|
|
|
|
void commandUG() {
|
|
/* ローカル変数指定(変数 POP) */
|
|
struct VarRef vref;
|
|
getCaliArray(&vref);
|
|
int cnt = getCaliValue();
|
|
|
|
sl_popVar(&vref, cnt);
|
|
TRACE("UG %p,%d:", vref.var, cnt);
|
|
}
|
|
|
|
void commandUP0() {
|
|
/* 子プロセスを起動する */
|
|
int no = getCaliValue();
|
|
int mode = getCaliValue();
|
|
|
|
TRACE_UNIMPLEMENTED("UP0 %d,%d:",no,mode);
|
|
}
|
|
|
|
void commandUP1() {
|
|
/* 子プロセスを起動する */
|
|
const char *str = sl_getString(':');
|
|
int mode = getCaliValue();
|
|
|
|
TRACE_UNIMPLEMENTED("UP1 %s,%d:",str,mode);
|
|
}
|
|
|
|
void commandUP3() {
|
|
/* 外部プログラム起動後SYSTEM3.6終了*/
|
|
const char *str1 = sl_getString(':');
|
|
const char *str2 = sl_getString(':');
|
|
|
|
TRACE_UNIMPLEMENTED("UP3 %s,%s:",str1,str2);
|
|
}
|
|
|
|
void commandUP() {
|
|
int type = sl_getc();
|
|
const char *work_dir = sl_getString(0);
|
|
const char *file_name = sl_getString(0);
|
|
|
|
TRACE_UNIMPLEMENTED("UP(new) %d, %s, %s:", type, work_dir, file_name);
|
|
}
|