1 <NEWTYPE SUBR-ENTRY!- VECTOR>
3 <MSETG MOVE <LSH *200* 27>>
5 <MSETG JSP <LSH *265* 27>>
15 <MSETG IND <LSH 1 22>>
17 <MSETG MAGIC-PLACE *336*>
19 <MSETG JSP-TO-MAGIC <ORB ,JSP ,MAGIC-PLACE ,IND <LSH ,AC-PC 23>>>
21 <MSETG MOVE-1-P-M <ORB ,MOVE <LSH ,AC-R 23> <LSH ,AC-M 18> 1>>
23 <MSETG SETZ-R <ORB ,SETZ <LSH ,AC-R 18>>>
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>)
29 <SET SE <CHTYPE [<SET IMS ,<1 .MS>>
30 <COND (<TYPE? <SET CD <1 .IMS>> MCODE>
36 <PUTPROP .MS SUBR-ENTRY .SE>
39 <ERROR ILLEGAL-SUBR-ENTRY!-ERRORS>)>>
41 <DEFINE PRINT-SUBR-ENTRY (S:SUBR-ENTRY)
42 <PRINC "%<SUBR-ENTRY">
46 <COND (<GASSIGNED? PRINT-SUBR-ENTRY> <PRINTTYPE SUBR-ENTRY ,PRINT-SUBR-ENTRY>)>