135 lines
3.5 KiB
Plaintext
135 lines
3.5 KiB
Plaintext
|
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;
|
|||
|
|
|
|||
|
|
|