START    EQU      $
         REF      MPATCH
         LI,0     0
         M:SYS
         CI,SR1   QUEUE
         BNE      EXIT
         REF      QUEUE
         STW,0    MPATCH+699
EXIT     M:EXIT
         END      START

