63 lines
2.7 KiB
Modula-2
63 lines
2.7 KiB
Modula-2
no-op NOOP X
|
|
-> ARROW 1,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
|
|
. POINT 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
! NOT 0,1,0,1,0,1,0,1,0,0,0,0,0,0,0,1,0,0,
|
|
~ COMPL 0,0,0,0,0,1,1,0,0,0,0,0,0,0,0,1,1,1,
|
|
p + 1 INC X
|
|
p - 1 DEC X
|
|
++p INCBEF 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
--p DECBEF 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p++ INCAFT 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p-- DECAFT 0,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
+p UPLUS 0,0,0,0,1,1,1,0,0,0,0,0,0,0,0,1,1,0,
|
|
-p UMINUS 0,0,0,0,1,1,1,0,0,0,1,0,0,0,0,1,1,0,
|
|
*p STAR 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
|
|
&p AMPER 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
p * p MULT 1,0,0,0,1,1,1,0,1,0,0,1,0,0,0,1,1,0,
|
|
p / p DIV 1,0,0,0,1,1,1,0,1,0,1,1,0,0,0,1,1,0,
|
|
p % p MOD 1,0,1,0,0,1,1,0,1,0,1,1,0,0,0,1,1,0,
|
|
p + p PLUS 1,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,
|
|
p - p MINUS 1,0,0,1,0,1,1,0,1,0,0,0,0,0,0,1,0,0,
|
|
p << p SHL 1,0,1,0,0,1,1,0,0,0,0,0,1,0,0,1,1,0,
|
|
p >> p SHR 1,0,1,0,0,1,1,0,0,0,1,0,1,0,0,1,1,0,
|
|
p < p LT 1,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,
|
|
p <= p LE 1,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,
|
|
p > p GT 1,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,
|
|
p >= p GE 1,1,0,1,0,1,1,0,1,0,1,1,0,1,1,0,1,0,
|
|
p == p EQ 1,1,0,1,0,1,1,0,1,0,0,0,0,1,1,0,1,0,
|
|
p != p NE 1,1,0,1,0,1,1,0,1,0,0,0,0,1,1,0,1,0,
|
|
p & p AND 1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
|
|
p ^ p XOR 1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
|
|
p | p OR 1,0,1,0,0,1,1,0,1,0,0,0,1,0,0,1,0,0,
|
|
p && p LOGAND 1,1,0,1,0,1,0,1,0,0,0,0,0,0,0,1,0,0,
|
|
p || p LOGOR 1,1,0,1,0,1,0,1,0,0,0,0,1,0,0,1,0,0,
|
|
? QUEST 1,0,0,0,0,1,0,1,0,0,0,0,0,0,0,0,0,0,
|
|
: COLON 1,0,0,0,0,0,1,0,1,0,0,0,0,0,1,0,0,0,
|
|
p = p ASSIGN 1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,
|
|
p *= p MULASS 1,0,0,0,1,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p /= p DIVASS 1,0,0,0,1,0,0,0,0,1,0,1,0,0,0,1,0,0,
|
|
p %= p MODASS 1,0,1,0,0,0,0,0,0,1,0,1,0,0,0,1,0,0,
|
|
p += p ADDASS 1,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p -= p SUBASS 1,0,0,1,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p << p SHLASS 1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p >> p SHRASS 1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p &= p ANDASS 1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p ^= p XORASS 1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
p |= p ORASS 1,0,1,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0,
|
|
n NAME 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
const CON 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
char * STRING 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
fsel FSEL 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
p() CALL 1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
|
|
, COMMA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,
|
|
(cast)p CVT 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
|
|
icall ICALL 1,0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
|
|
load LOAD 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
|
|
push PUSH 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
|
|
return RETURN 1,0,0,0,0,0,0,0,0,1,0,0,0,0,1,0,0,0,
|
|
p.re REAL X
|
|
p.im IMAG X
|
|
p = {} INIT 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0, pseudo
|
|
case CASE X pseudo
|
|
f(p) FARG 1,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0, pseudo
|