<mdl.comp>/sbrnam.mud.1

   1
   2
   3         <TITLE HACK-NAME>
   4         <DECLARE ("VALUE" ATOM SUBR)>
   5         <PUSH   TP* (AB)>
   6         <PUSH   TP* 1(AB)>
   7         <PUSHJ  P* IHACK-NAME>
   8         <JRST   FINIS>
   9
  10         <INTERNAL-ENTRY IHACK-NAME 1>
  11         <SUBM   M* (P)>
  12         <MOVSI  A* <TYPE-CODE ATOM>>
  13         <HRRZ   B* (TP)>
  14         <MOVE   B* @ -1 (B)>
  15         <SUB    TP* [<2 (2)>]>
  16         <JRST   MPOPJ>
  17
  18
  19
  20 \ 3\ 3