<mdl.comp>/newop.mud.1

   1 ;"Define symbolic opcodes"
   2
   3 <PACKAGE "OP" "IOP" 199 5>
   4
   5 <BLOCK (<GET OP!-PACKAGE!- OBLIST>)>
   6
   7 <NEWTYPE!- MUDREF WORD!->
   8 <NEWTYPE!- ADDRESS WORD!->
   9 <NEWTYPE!- OPCODE WORD!->
  10
  11 <SETG!- MCALL* #OPCODE *2000000000*>            ;"Define UUO's"
  12 <SETG!- ACALL* #OPCODE *3000000000*>
  13
  14
  15
  16 ;"Assembler psuedo-ops;         defined in the assembler (CODING)"
  17 PSEUDO MQUOTE DECLARE SUB-ENTRY GETYP MCALL ACALL TYPE-CODE
  18 *INSERT SYMDEF TYPE-WORD ENTER INTGO VARIABLE ADDR HERE
  19
  20
  21
  22
  23 \f<ENDBLOCK!->
  24
  25
  26
  27 \f;"Define ac's"
  28
  29
  30
  31 "Set up MUDDLE oblist:
  32         Global symbols are, in general, internal MUDDLE addresses;
  33         therefore they need to be 'fixed up' upon every loading"
  34
  35
  36
  37 <COND (<LOOKUP "TTP" <GET MUDDLE OBLIST>>
  38        <INSERT <REMOVE "TTP" <GET MUDDLE OBLIST>> <GET OP!-PACKAGE OBLIST>>
  39        <INSERT <REMOVE "TDEFER" <GET MUDDLE OBLIST>> <GET OP!-PACKAGE OBLIST>>)>
  40
  41 <MAPF <> <FUNCTION (L) <MAPF <> ,REMOVE .L> > <1 .OBLIST>>
  42 <PUT IOP!-OP!-PACKAGE!- OBLIST>
  43 <PUT <1 .OBLIST> OBLIST>
  44 <ENDPACKAGE>
  45
  46
  47
  48 \f\ 3\ 3