mim/development/mim/20c/mimops.mud

   1
   2 <SETG MIMCODES <MOBLIST MIMCODES 13>>
   3
   4 <DEFINE OPCODE (NAM "AUX" ATM)
   5         #DECL ((NAM) ATOM (ATM) <OR FALSE ATOM>)
   6         <AND <SET ATM <LOOKUP <SPNAME .NAM> ,MIMCODES>> ,.ATM>>
   7
   8 ;"Here are opcode definitions, updated from MIMI20.MID"
   9
  10 <SETG OPSTART *220*>
  11
  12 <DEFINE MIMOP (NM "OPT" (JSP <>))
  13         <SET NM <OR <LOOKUP .NM ,MIMCODES> <INSERT .NM ,MIMCODES>>>
  14         <SETG .NM <COND (.JSP <- ,OPSTART>) (ELSE ,OPSTART)>>
  15         <SETG OPSTART <+ ,OPSTART 1>>>
  16
  17
  18         <MIMOP "FRAME" T>
  19         <MIMOP "CALL" T>
  20         <MIMOP "ACTIVATION" T>
  21         <MIMOP "AGAIN">
  22         <MIMOP "RETURN">
  23         <MIMOP "RTUPLE">
  24         <MIMOP "ICALL" T>
  25         <MIMOP "ARGS" T>
  26         <MIMOP "TUPLE" T>
  27         <MIMOP "NEXTS" T>
  28         <MIMOP "MAKTUP" T>
  29         <MIMOP "RETRY">
  30         <MIMOP "CONTENTS" T>
  31         <MIMOP "PFRAME" T>
  32         <MIMOP "LEGAL?" T>
  33         <MIMOP "NEWTYPE" T>
  34         <MIMOP "LIST">
  35         <MIMOP "UBLOCK">
  36         <MIMOP "RECORD">
  37         <MIMOP "NTHU">
  38         <MIMOP "NTHR">
  39         <MIMOP "PUTU">
  40         <MIMOP "PUTR">
  41         <MIMOP "RESTU" T>
  42         <MIMOP "BACKU" T>
  43         <MIMOP "TOPU" T>
  44         <MIMOP "CONS" T>
  45         <MIMOP "BIND" T>
  46         <MIMOP "FIXBIND" T>
  47         <MIMOP "UNBIND" T>
  48         <MIMOP "OPEN">
  49         <MIMOP "CLOSE">
  50         <MIMOP "READ">
  51         <MIMOP "PRINT">
  52         <MIMOP "RESET">
  53         <MIMOP "SAVE">
  54         <MIMOP "RESTORE">
  55         <MIMOP "ATIC">
  56         <MIMOP "INTGO">
  57         <MIMOP "QUIT">
  58         <MIMOP "RANDOM" T>
  59         <MIMOP "MARKL" T>
  60         <MIMOP "MARKU" T>
  61         <MIMOP "MARKR" T>
  62         <MIMOP "MARKL?" T>
  63         <MIMOP "MARKU?" T>
  64         <MIMOP "MARKR?" T>
  65         <MIMOP "SWNEXT" T>
  66         <MIMOP "TEMPLATE-TABLE" T>
  67         <MIMOP "IRECORD">
  68         <MIMOP "RELL" T>
  69         <MIMOP "RELU" T>
  70         <MIMOP "RELR" T>
  71         <MIMOP "UNWCONT">
  72         <MIMOP "SETZONE" T>
  73         <MIMOP "SIN-JSYS">
  74         <MIMOP "SOUT">
  75         <MIMOP "GTJFN">
  76         <MIMOP "JFNS">
  77         <MIMOP "ERSTR">
  78         <MIMOP "GTJFNL">
  79         <MIMOP "IOERR">
  80         <MIMOP "ACALL" T>
  81         <MIMOP "SFRAME" T>
  82         <MIMOP "MRETURN">
  83         <MIMOP "RNTIME">
  84         <MIMOP "SUNWAT" T>
  85         <MIMOP "TYPEW" T>
  86         <MIMOP "FATAL" T>
  87         <MIMOP "IENABLE">
  88         <MIMOP "UUBLOCK">
  89         <MIMOP "SBLOCK">
  90         <MIMOP "USBLOCK">
  91         <MIMOP "ILVAL" T>
  92         <MIMOP "IASS" T>
  93         <MIMOP "ISET" T>
  94         <MIMOP "MOVSTR" T>
  95         <MIMOP "SETSIZ">
  96         <MIMOP "SFBMAP" T>
  97         <MIMOP "SBRFRAM" T>
  98         <MIMOP "RFTAD">