mirror of
https://git.code.sf.net/p/newrpl/sources
synced 2024-11-16 19:51:25 +01:00
182 lines
3.2 KiB
C
182 lines
3.2 KiB
C
/*
|
|
* Copyright (c) 2014, Claudio Lapilli and the newRPL Team
|
|
* All rights reserved.
|
|
* This file is released under the 3-clause BSD license.
|
|
* See the file LICENSE.txt that shipped with this distribution.
|
|
*/
|
|
|
|
#include "libraries.h"
|
|
#include "newrpl.h"
|
|
|
|
|
|
|
|
extern void lib2_handler();
|
|
extern void lib8_handler();
|
|
extern void lib10_handler();
|
|
extern void lib11_handler();
|
|
extern void lib12_handler();
|
|
extern void lib16_handler();
|
|
extern void lib20_handler();
|
|
extern void lib22_handler();
|
|
extern void lib24_handler();
|
|
extern void lib26_handler();
|
|
extern void lib28_handler();
|
|
extern void lib29_handler();
|
|
|
|
|
|
extern void lib50_handler();
|
|
|
|
|
|
extern void lib64_handler();
|
|
extern void lib65_handler();
|
|
extern void lib66_handler();
|
|
|
|
|
|
|
|
|
|
extern void lib4080_handler();
|
|
extern void lib4090_handler();
|
|
|
|
void dummy_libhandler()
|
|
{
|
|
if(ISPROLOG(CurOpcode)) return;
|
|
|
|
|
|
switch(OPCODE(CurOpcode))
|
|
{
|
|
|
|
// STANDARIZED OPCODES:
|
|
// --------------------
|
|
// LIBRARIES ARE FORCED TO ALWAYS HANDLE THE STANDARD OPCODES
|
|
|
|
|
|
case OPCODE_COMPILE:
|
|
RetNum=ERR_NOTMINE;
|
|
return;
|
|
|
|
case OPCODE_DECOMPILE:
|
|
RetNum=ERR_INVALID;
|
|
return;
|
|
}
|
|
}
|
|
|
|
|
|
|
|
|
|
// THIS IS THE LIST OF ALL PRE-INSTALLED LIBRARIES IN THIS ROM
|
|
|
|
LIBHANDLER ROMLibs[]={
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
lib2_handler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
lib8_handler,
|
|
dummy_libhandler,
|
|
lib10_handler,
|
|
// LIB 11 IS REAL NUMBERS
|
|
lib11_handler,
|
|
// LIBS 12 THRU 15 ARE BINTS
|
|
lib12_handler,
|
|
lib12_handler,
|
|
lib12_handler,
|
|
lib12_handler,
|
|
|
|
// LIB 16 THRU 19 ARE STRING
|
|
lib16_handler,
|
|
lib16_handler,
|
|
lib16_handler,
|
|
lib16_handler,
|
|
|
|
// LIB 20 AND 21 ARE IDENTS
|
|
lib20_handler,
|
|
lib20_handler,
|
|
|
|
// DIRECTORIES
|
|
lib22_handler,
|
|
|
|
dummy_libhandler,
|
|
|
|
// STACK COMMANDS
|
|
lib24_handler,
|
|
|
|
dummy_libhandler,
|
|
|
|
// COMPLEX NUMBERS
|
|
lib26_handler,
|
|
|
|
|
|
dummy_libhandler,
|
|
|
|
// SYMBOLICS
|
|
lib28_handler,
|
|
|
|
|
|
lib29_handler,
|
|
|
|
dummy_libhandler, // THIS IS LIB30
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
|
|
dummy_libhandler, // THIS IS LIB40
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
|
|
// LISTS
|
|
lib50_handler, // THIS IS LIB 50
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
|
|
dummy_libhandler, // THIS IS LIB60
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
lib64_handler,
|
|
lib65_handler,
|
|
lib66_handler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
dummy_libhandler,
|
|
|
|
// ADD MORE LIBRARIES HERE
|
|
0
|
|
};
|
|
|
|
|
|
// HIGH LIBRARIES
|
|
|
|
LIBHANDLER ROMLibs2[]={
|
|
lib4080_handler,
|
|
lib4090_handler,
|
|
0
|
|
};
|
|
|
|
BINT ROMLibs2Num[]={
|
|
4080,
|
|
4090,
|
|
0
|
|
};
|