2 <SETG MIMCODES <MOBLIST MIMCODES 13>>
4 <DEFINE OPCODE (NAM "AUX" ATM)
5 #DECL ((NAM) ATOM (ATM) <OR FALSE ATOM>)
6 <AND <SET ATM <LOOKUP <SPNAME .NAM> ,MIMCODES>> ,.ATM>>
8 ;"Here are opcode definitions, updated from MIMI20.MID"
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>>>
20 <MIMOP "ACTIVATION" T>
66 <MIMOP "TEMPLATE-TABLE" T>