1 ;"Define symbolic opcodes"
3 <PACKAGE "OP" "IOP" 199 5>
5 <BLOCK (<GET OP!-PACKAGE!- OBLIST>)>
7 <NEWTYPE!- MUDREF WORD!->
8 <NEWTYPE!- ADDRESS WORD!->
9 <NEWTYPE!- OPCODE WORD!->
11 <SETG!- MCALL* #OPCODE *2000000000*> ;"Define UUO's"
12 <SETG!- ACALL* #OPCODE *3000000000*>
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
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"
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>>)>
41 <MAPF <> <FUNCTION (L) <MAPF <> ,REMOVE .L> > <1 .OBLIST>>
42 <PUT IOP!-OP!-PACKAGE!- OBLIST>
43 <PUT <1 .OBLIST> OBLIST>