          IDENT  ICAMMLI
          TITLE  ICA$ICAMMLI - SYMPL INTERFACE TO MEMORY LINK
          ENTRY  MLIPAR
          ENTRY  MLIQ
          ENTRY  PAUSE

          LIST   F
          SYSCOM B1
          IF     -DEF,RA.ORG,1
OPL XTEXT COMCMAC
          LIST   X
*copy COMSMLI
*copy COMSCVS
*copy COMMCVS
*copy MLA$C170_MEMORY_LINK_INTERFACE

MLIQ      BSS    1
          SB1    1
          RJ     MLI=
          EQ     MLIQ

PAUSE     BSS    1
          SA1    X1
          SX0    X1
          EQ     PAUSE2
PAUSE1    BSS    0
          RECALL
PAUSE2    SX0    X0-1
          PL     X0,PAUSE1
          EQ     PAUSE

          END
