Max/nunuhara_xsystem4
1
0
Fork 0
mirror of https://github.com/nunuhara/xsystem4.git synced 2026-09-29 02:17:57 +03:00
Code Issues Packages Projects Releases Wiki Activity
Files
4a7075ffefdcb4fe0bb91e68c454bb551c38685d
nunuhara_xsystem4/instructions.c
T
Nunuhara Cabbage edffc0ad76 Initial CALLHLL and Math.dll implementation 
HLL libraries are compiled into the executable rather than dynamically
loaded as in early versions of System 4. These days AliceSoft does the
same thing.
2019-11-04 20:35:42 -08:00

308 lines
9.4 KiB
C
Raw Blame History

/* Copyright (C) 2019 Nunuhara Cabbage <nunuhara@haniwa.technology>
*
* 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, see <http://gnu.org/licenses/>.
*/
#include <stdint.h>
#include <stdlib.h>
#include <stdio.h>
#include "system4.h"
#include "instructions.h"
// JMP = instruction that modifies the instruction pointer
// OP = everything else
#define OP(code, nargs, ...) \
[code] = { \
.opcode = code, \
.name = #code , \
.nr_args = nargs, \
.ip_inc = 2 + nargs * 4, \
.args = { __VA_ARGS__ } \
}
#define JMP(code, nargs, ...) \
[code] = { \
.opcode = code, \
.name = #code , \
.nr_args = nargs, \
.ip_inc = 0, \
.args = { __VA_ARGS__ } \
}
const struct instruction instructions[NR_OPCODES] = {
OP(PUSH, 1, INSTR_INT),
OP(POP, 0),
OP(REF, 0),
OP(REFREF, 0),
OP(PUSHGLOBALPAGE, 0),
OP(PUSHLOCALPAGE, 0),
OP(INV, 0),
OP(NOT, 0),
OP(COMPL, 0),
OP(ADD, 0),
OP(SUB, 0),
OP(MUL, 0),
OP(DIV, 0),
OP(MOD, 0),
OP(AND, 0),
OP(OR, 0),
OP(XOR, 0),
OP(LSHIFT, 0),
OP(RSHIFT, 0),
OP(LT, 0),
OP(GT, 0),
OP(LTE, 0),
OP(GTE, 0),
OP(NOTE, 0),
OP(EQUALE, 0),
OP(ASSIGN, 0),
OP(PLUSA, 0),
OP(MINUSA, 0),
OP(MULA, 0),
OP(DIVA, 0),
OP(MODA, 0),
OP(ANDA, 0),
OP(ORA, 0),
OP(XORA, 0),
OP(LSHIFTA, 0),
OP(RSHIFTA, 0),
OP(F_ASSIGN, 0),
OP(F_PLUSA, 0),
OP(F_MINUSA, 0),
OP(F_MULA, 0),
OP(F_DIVA, 0),
OP(DUP2, 0),
OP(DUP_X2, 0),
OP(CMP, 0), // TODO
JMP(JUMP, 1, INSTR_PTR),
JMP(IFZ, 1, INSTR_PTR),
JMP(IFNZ, 1, INSTR_PTR),
JMP(RETURN, 0),
JMP(CALLFUNC, 1, INSTR_FUN),
OP(INC, 0),
OP(DEC, 0),
OP(FTOI, 0),
OP(ITOF, 0),
OP(F_INV, 0),
OP(F_ADD, 0),
OP(F_SUB, 0),
OP(F_MUL, 0),
OP(F_DIV, 0),
OP(F_LT, 0),
OP(F_GT, 0),
OP(F_LTE, 0),
OP(F_GTE, 0),
OP(F_NOTE, 0),
OP(F_EQUALE, 0),
OP(F_PUSH, 1, INSTR_FLO),
OP(S_PUSH, 1, INSTR_STR),
OP(S_POP, 0),
OP(S_ADD, 0),
OP(S_ASSIGN, 0),
OP(S_PLUSA, 0), // TODO
OP(S_REF, 0),
OP(S_REFREF, 0), // TODO
OP(S_NOTE, 0),
OP(S_EQUALE, 0),
OP(SF_CREATE, 0), // TODO
OP(SF_CREATEPIXEL, 0), // TODO
OP(SF_CREATEALPHA, 0), // TODO
OP(SR_POP, 0),
OP(SR_ASSIGN, 0),
OP(SR_REF, 1, INSTR_INT),
OP(SR_REFREF, 0), // TODO
OP(A_ALLOC, 0),
OP(A_REALLOC, 0),
OP(A_FREE, 0),
OP(A_NUMOF, 0),
OP(A_COPY, 0),
OP(A_FILL, 0),
OP(C_REF, 0),
OP(C_ASSIGN, 0),
OP(MSG, 0), // TODO
OP(CALLHLL, 2, INSTR_INT, INSTR_INT),
OP(PUSHSTRUCTPAGE, 0),
JMP(CALLMETHOD, 1, INSTR_FUN),
OP(SH_GLOBALREF, 1, INSTR_INT),
OP(SH_LOCALREF, 1, INSTR_INT),
JMP(SWITCH, 1),
JMP(STRSWITCH, 1),
OP(FUNC, 1, INSTR_FUN),
OP(_EOF, 1, INSTR_FILE),
OP(CALLSYS, 1, INSTR_INT),
OP(SJUMP, 0), // TODO
OP(CALLONJUMP, 0), // TODO
OP(SWAP, 0),
OP(SH_STRUCTREF, 1, INSTR_INT),
OP(S_LENGTH, 0),
OP(S_LENGTHBYTE, 0),
OP(I_STRING, 0),
JMP(CALLFUNC2, 0),
OP(DUP2_X1, 0),
OP(R_ASSIGN, 0),
OP(FT_ASSIGNS, 0), // TODO
OP(ASSERT, 0),
OP(S_LT, 0),
OP(S_GT, 0),
OP(S_LTE, 0),
OP(S_GTE, 0),
OP(S_LENGTH2, 0), // TODO
OP(S_LENGTHBYTE2, 0), // TODO
OP(NEW, 0), // TODO
OP(DELETE, 0),
OP(CHECKUDO, 0), // TODO
OP(A_REF, 0),
OP(DUP, 0),
OP(DUP_U2, 0),
OP(SP_INC, 0),
OP(SP_DEC, 0), // TODO
OP(ENDFUNC, 1, INSTR_FUN),
OP(R_EQUALE, 0), // TODO
OP(R_NOTE, 0), // TODO
OP(SH_LOCALCREATE, 2),
OP(SH_LOCALDELETE, 1),
OP(STOI, 0), // TODO
OP(A_PUSHBACK, 0),
OP(A_POPBACK, 0),
OP(S_EMPTY, 0),
OP(A_EMPTY, 0),
OP(A_ERASE, 0),
OP(A_INSERT, 0),
OP(SH_LOCALINC, 1, INSTR_INT),
OP(SH_LOCALDEC, 1, INSTR_INT),
OP(SH_LOCALASSIGN, 2, INSTR_INT, INSTR_INT),
OP(ITOB, 0), // TODO
OP(S_FIND, 0),
OP(S_GETPART, 0),
OP(A_SORT, 0),
OP(S_PUSHBACK, 0), // TODO
OP(S_POPBACK, 0), // TODO
OP(FTOS, 0),
OP(S_MOD, 0),
OP(S_PLUSA2, 0),
OP(OBJSWAP, 0), // TODO
OP(S_ERASE, 0), // TODO
OP(SR_REF2, 0), // TODO
OP(S_ERASE2, 0),
OP(S_PUSHBACK2, 0),
OP(S_POPBACK2, 0),
OP(ITOLI, 0), // TODO
OP(LI_ADD, 0), // TODO
OP(LI_SUB, 0), // TODO
OP(LI_MUL, 0), // TODO
OP(LI_DIV, 0), // TODO
OP(LI_MOD, 0), // TODO
OP(LI_ASSIGN, 0), // TODO
OP(LI_PLUSA, 0), // TODO
OP(LI_MINUSA, 0), // TODO
OP(LI_MULA, 0), // TODO
OP(LI_DIVA, 0), // TODO
OP(LI_MODA, 0), // TODO
OP(LI_ANDA, 0), // TODO
OP(LI_ORA, 0), // TODO
OP(LI_XORA, 0), // TODO
OP(LI_LSHIFTA, 0), // TODO
OP(LI_RSHIFTA, 0), // TODO
OP(LI_INC, 0), // TODO
OP(LI_DEC, 0), // TODO
OP(A_FIND, 0), // TODO
OP(A_REVERSE, 0), // TODO
OP(SH_SR_ASSIGN, 0), // TODO
OP(SH_MEM_ASSIGN_LOCAL, 0), // TODO
OP(A_NUMOF_GLOB_1, 0), // TODO
OP(A_NUMOF_STRUCT_1, 0), // TODO
OP(SH_MEM_ASSIGN_IMM, 0), // TODO
OP(SH_LOCALREFREF, 0), // TODO
OP(SH_LOCALASSIGN_SUB_IMM, 0), // TODO
OP(SH_IF_LOC_LT_IMM, 0), // TODO
OP(SH_IF_LOC_GE_IMM, 0), // TODO
OP(SH_LOCREF_ASSIGN_MEM, 0), // TODO
OP(PAGE_REF, 0), // TODO
OP(SH_GLOBAL_ASSIGN_LOCAL, 0), // TODO
OP(SH_STRUCTREF_GT_IMM, 0), // TODO
OP(SH_STRUCT_ASSIGN_LOCALREF_ITOB, 0), // TODO
OP(SH_LOCAL_ASSIGN_STRUCTREF, 0), // TODO
OP(SH_IF_STRUCTREF_NE_LOCALREF, 0), // TODO
OP(SH_IF_STRUCTREF_GT_IMM, 0), // TODO
OP(SH_STRUCTREF_CALLMETHOD_NO_PARAM, 0), // TODO
OP(SH_STRUCTREF2, 0), // TODO
OP(SH_REF_STRUCTREF2, 0), // TODO
OP(SH_STRUCTREF3, 0), // TODO
OP(SH_STRUCTREF2_CALLMETHOD_NO_PARAM, 0), // TODO
OP(SH_IF_STRUCTREF_Z, 0), // TODO
OP(SH_IF_STRUCT_A_NOT_EMPTY, 0), // TODO
OP(SH_IF_LOC_GT_IMM, 0), // TODO
OP(SH_IF_STRUCTREF_NE_IMM, 0), // TODO
OP(THISCALLMETHOD_NOPARAM, 0), // TODO
OP(SH_IF_LOC_NE_IMM, 0), // TODO
OP(SH_IF_STRUCTREF_EQ_IMM, 0), // TODO
OP(SH_GLOBAL_ASSIGN_IMM, 0), // TODO
OP(SH_LOCALSTRUCT_ASSIGN_IMM, 0), // TODO
OP(SH_STRUCT_A_PUSHBACK_LOCAL_STRUCT, 0), // TODO
OP(SH_GLOBAL_A_PUSHBACK_LOCAL_STRUCT, 0), // TODO
OP(SH_LOCAL_A_PUSHBACK_LOCAL_STRUCT, 0), // TODO
OP(SH_IF_SREF_NE_STR0, 0), // TODO
OP(SH_S_ASSIGN_REF, 0), // TODO
OP(SH_A_FIND_SREF, 0), // TODO
OP(SH_SREF_EMPTY, 0), // TODO
OP(SH_STRUCTSREF_EQ_LOCALSREF, 0), // TODO
OP(SH_LOCALSREF_EQ_STR0, 0), // TODO
OP(SH_STRUCTSREF_NE_LOCALSREF, 0), // TODO
OP(SH_LOCALSREF_NE_STR0, 0), // TODO
OP(SH_STRUCT_SR_REF, 0), // TODO
OP(SH_STRUCT_S_REF, 0), // TODO
OP(S_REF2, 0), // TODO
OP(SH_REF_LOCAL_ASSIGN_STRUCTREF2, 0), // TODO
OP(SH_GLOBAL_S_REF, 0), // TODO
OP(SH_LOCAL_S_REF, 0), // TODO
OP(SH_LOCALREF_SASSIGN_LOCALSREF, 0), // TODO
OP(SH_LOCAL_APUSHBACK_LOCALSREF, 0), // TODO
OP(SH_S_ASSIGN_CALLSYS19, 0), // TODO
OP(SH_S_ASSIGN_STR0, 0), // TODO
OP(SH_SASSIGN_LOCALSREF, 0), // TODO
OP(SH_STRUCTREF_SASSIGN_LOCALSREF, 0), // TODO
OP(SH_LOCALSREF_EMPTY, 0), // TODO
OP(SH_GLOBAL_APUSHBACK_LOCALSREF, 0), // TODO
OP(SH_STRUCT_APUSHBACK_LOCALSREF, 0), // TODO
OP(SH_STRUCTSREF_EMPTY, 0), // TODO
OP(SH_GLOBALSREF_EMPTY, 0), // TODO
OP(SH_SASSIGN_STRUCTSREF, 0), // TODO
OP(SH_SASSIGN_GLOBALSREF, 0), // TODO
OP(SH_STRUCTSREF_NE_STR0, 0), // TODO
OP(SH_GLOBALSREF_NE_STR0, 0), // TODO
OP(SH_LOC_LT_IMM_OR_LOC_GE_IMM, 0), // TODO
OP(A_SORT_MEM, 0), // TODO
OP(DG_ADD, 0), // TODO
OP(DG_SET, 0), // TODO
OP(DG_CALL, 0), // TODO
OP(DG_NUMOF, 0), // TODO
OP(DG_EXIST, 0), // TODO
OP(DG_ERASE, 0), // TODO
OP(DG_CLEAR, 0), // TODO
OP(DG_COPY, 0), // TODO
OP(DG_ASSIGN, 0), // TODO
OP(DG_PLUSA, 0), // TODO
OP(DG_POP, 0), // TODO
OP(DG_NEW_FROM_METHOD, 0), // TODO
OP(DG_MINUSA, 0), // TODO
OP(DG_CALLBEGIN, 0), // TODO
OP(DG_NEW, 0), // TODO
OP(DG_STR_TO_METHOD, 0), // TODO
};
Reference in New Issue View Git Blame Copy Permalink