<mdl.comp>/atosq.mud.1

   1
   2
   3         <TITLE  ATOSQ>
   4
   5         <DECLARE ("VALUE" ANY <PRIMTYPE WORD>)>
   6         <DPUSH  TP* (AB)>
   7         <PUSHJ  P* IATOSQ>
   8         <JRST   FINIS>
   9
  10         <INTERNAL-ENTRY IATOSQ 1>
  11         <SUBM   M* (P)>
  12         <MOVE   E* (TP)>
  13         <PUSHJ  P* ATOSQ>
  14         <JRST   FALS>
  15         <MOVE   B* E>
  16         <MOVSI  A* <TYPE-CODE FIX>>
  17 FOO     <SUB    TP* [<(2) 2>]>
  18         <JRST   MPOPJ>
  19
  20
  21 FALS    <MOVEI  B* 0>
  22         <MOVSI  A* <TYPE-CODE FALSE>>
  23         <JRST   FOO>
  24 \f\ 3\ 3\ 3\ 3