135 lines
3.5 KiB
Ada
135 lines
3.5 KiB
Ada
package ACODES is
|
||
|
||
-- This package contains constants to make use of
|
||
-- the pragma ACODE easier.
|
||
|
||
ADD : constant := 0;
|
||
SUB : constant := 1;
|
||
MUL : constant := 2;
|
||
DIV : constant := 3;
|
||
EQU : constant := 4;
|
||
NEQ : constant := 5;
|
||
LES : constant := 6;
|
||
GTR : constant := 7;
|
||
LEQ : constant := 8;
|
||
GEQ : constant := 9;
|
||
C_NOT : constant := 10; -- NOT is a reserved word in Ada
|
||
NEG : constant := 11;
|
||
C_IN : constant := 12; -- IN is a reserved word in Ada
|
||
C_AND : constant := 13;
|
||
C_OR : constant := 14;
|
||
C_XOR : constant := 15;
|
||
POW : constant := 16;
|
||
C_MOD : constant := 17;
|
||
C_REM : constant := 18;
|
||
LOAD2 : constant := 19;
|
||
LOAD : constant := 20;
|
||
STORE : constant := 21;
|
||
BRANCH : constant := 22;
|
||
JUMP : constant := 23;
|
||
ENTER : constant := 24;
|
||
LEAVE : constant := 25;
|
||
CALL : constant := 26;
|
||
INC : constant := 27;
|
||
DEC : constant := 28;
|
||
GLC : constant := 29;
|
||
PLC : constant := 30;
|
||
ILC : constant := 31;
|
||
DLC : constant := 32;
|
||
SHL : constant := 33;
|
||
SHR : constant := 34;
|
||
STORE2 : constant := 35;
|
||
ILC0 : constant := 36;
|
||
ILC1 : constant := 37;
|
||
DLC0 : constant := 38;
|
||
DLC1 : constant := 39;
|
||
PLC0 : constant := 40;
|
||
PLC1 : constant := 41;
|
||
GLC0 : constant := 42;
|
||
GLC1 : constant := 43;
|
||
SHL1 : constant := 44;
|
||
SHR1 : constant := 45;
|
||
DUP1 : constant := 46;
|
||
LOAD1 : constant := 47;
|
||
STORE1 : constant := 48;
|
||
NOP : constant := 49;
|
||
SFP : constant := 50;
|
||
C_ABS : constant := 51;
|
||
NATIVE : constant := 52;
|
||
LCALL : constant := 53;
|
||
ADR : constant := 54;
|
||
HCOPY : constant := 55;
|
||
CONC : constant := 56;
|
||
DUP : constant := 57;
|
||
SEX : constant := 58;
|
||
REX : constant := 59;
|
||
PEX : constant := 60;
|
||
BLOCK : constant := 61;
|
||
LINE : constant := 62;
|
||
CEX : constant := 63;
|
||
STATIC : constant := 64;
|
||
INDEX : constant := 65;
|
||
ADDF : constant := 66;
|
||
SUBF : constant := 67;
|
||
MULF : constant := 68;
|
||
DIVF : constant := 69;
|
||
EQUF : constant := 70;
|
||
NEQF : constant := 71;
|
||
LESF : constant := 72;
|
||
GTRF : constant := 73;
|
||
LEQF : constant := 74;
|
||
GEQF : constant := 75;
|
||
NEGF : constant := 76;
|
||
POWF : constant := 77;
|
||
MULFI : constant := 78;
|
||
MULIF : constant := 79;
|
||
DIVFI : constant := 80;
|
||
EQU1 : constant := 81;
|
||
NEQ1 : constant := 82;
|
||
LES1 : constant := 83;
|
||
GTR1 : constant := 84;
|
||
LEQ1 : constant := 85;
|
||
GEQ1 : constant := 86;
|
||
EQUS : constant := 87;
|
||
NEQS : constant := 88;
|
||
LESS : constant := 89;
|
||
GTRS : constant := 90;
|
||
LEQS : constant := 91;
|
||
GEQS : constant := 92;
|
||
CONCCS : constant := 93;
|
||
CONCSC : constant := 94;
|
||
CONCCC : constant := 95;
|
||
PLC2 : constant := 96;
|
||
GLC2 : constant := 97;
|
||
ILC2 : constant := 98;
|
||
DLC2 : constant := 99;
|
||
ABSF : constant := 100;
|
||
CVFI : constant := 101;
|
||
CVIF : constant := 102;
|
||
POP1 : constant := 103;
|
||
CVABS : constant := 104;
|
||
RBRANCH : constant := 105;
|
||
LLOAD : constant := 106;
|
||
LSTORE : constant := 107;
|
||
INP : constant := 108;
|
||
OUTP : constant := 109;
|
||
ANDL : constant := 110;
|
||
ORL : constant := 111;
|
||
XORL : constant := 112;
|
||
NOTL : constant := 113;
|
||
CVIS : constant := 114;
|
||
CVSI : constant := 115;
|
||
EQUL : constant := 116;
|
||
LOCAL : constant := 117;
|
||
INF : constant := 118;
|
||
DUP2 : constant := 119;
|
||
RSIZE : constant := 120;
|
||
HDISP : constant := 121;
|
||
UADD : constant := 122;
|
||
MKPOS : constant := 123;
|
||
IMAGE : constant := 124;
|
||
VALUE : constant := 125;
|
||
|
||
end ACODES;
|
||
|
||
|