mim/development/mim/20c/sent.mud

   1 <NEWTYPE SUBR-ENTRY!- VECTOR>
   2
   3 <MSETG MOVE <LSH *200* 27>>
   4
   5 <MSETG JSP <LSH *265* 27>>
   6
   7 <MSETG SETZ -0>
   8
   9 <MSETG AC-M 11>
  10
  11 <MSETG AC-R 10>
  12
  13 <MSETG AC-PC 7>
  14
  15 <MSETG IND <LSH 1 22>>
  16
  17 <MSETG MAGIC-PLACE *336*>
  18
  19 <MSETG JSP-TO-MAGIC <ORB ,JSP ,MAGIC-PLACE ,IND <LSH ,AC-PC 23>>>
  20
  21 <MSETG MOVE-1-P-M <ORB ,MOVE <LSH ,AC-R 23> <LSH ,AC-M 18> 1>>
  22
  23 <MSETG SETZ-R <ORB ,SETZ <LSH ,AC-R 18>>>
  24
  25 <DEFINE SUBR-ENTRY (NAME:ATOM "AUX" MS IMS:IMSUBR CD SE)
  26         <COND (<AND <GASSIGNED? .NAME> <TYPE? <SET MS ,.NAME> MSUBR>>
  27                <COND (<GETPROP .MS SUBR-ENTRY>)
  28                      (ELSE
  29                       <SET SE <CHTYPE [<SET IMS ,<1 .MS>>
  30                                        <COND (<TYPE? <SET CD <1 .IMS>> MCODE>
  31                                               ,MOVE-1-P-M)
  32                                              (ELSE
  33                                               ,JSP-TO-MAGIC)>
  34                                        <ORB ,SETZ-R <4 .MS>>
  35                                        .NAME] SUBR-ENTRY>>
  36                       <PUTPROP .MS SUBR-ENTRY .SE>
  37                       .SE)>)
  38               (ELSE
  39                <ERROR ILLEGAL-SUBR-ENTRY!-ERRORS>)>>
  40
  41 <DEFINE PRINT-SUBR-ENTRY (S:SUBR-ENTRY)
  42         <PRINC "%<SUBR-ENTRY">
  43         <PRIN1 <4 .S>>
  44         <PRINC ">">>
  45
  46 <COND (<GASSIGNED? PRINT-SUBR-ENTRY> <PRINTTYPE SUBR-ENTRY ,PRINT-SUBR-ENTRY>)>
  47