          IDENT  CYBMLI
          TITLE  CYBMLI - CYBIL INTERFACE TO THE C170 MLI MACROS.
          SST
          ENTRY  MLSINON
          ENTRY  MLSINOF
          ENTRY  MLFERL
          ENTRY  MLRECM
          ENTRY  MLSENDM
          ENTRY  MLADDS
          ENTRY  MLDELS
          ENTRY  MLCONF
          ENTRY  INITMLI
          ENTRY  QFWAIT
          EXT    PXSAVE,ZSMRRET,PARSV
          LIST   F
          SYSCOM B1
LEAVE     EQU    ZSMRRET
          IF     -DEF,RA.ORG,1
OPL XTEXT COMCMAC
          LIST   X
*copy COMSMLI
*copy COMSCVS
*copy COMMMLI
*DUMPMLI   EQU    1           SPECIFY CALLVS DEBUG
*copy COMMCVS
*copy MLA$C170_MEMORY_LINK_INTERFACE
          TITLE  THE MAIN STUFF
*
* D. A. HENSELER  10/25/79.
*
INITMLI   BSS    0
          RJ     PXSAVE
          BX6    X1
          RJ     STO
NBESYS    IF     DEF,RA.ORG
          MX6    0
          SA6    NORERUN
          SYSTEM OUX,R,NORERUN,2000B   SET NORERUN FLAG
          EQ     LEAVE
NORERUN   BSS    1
NBESYS    ELSE
          EQ     LEAVE
NBESYS    ENDIF
*
MLSINON   BSS    0
          RJ     PXSAVE
          SIGNON PARSV,PARSV+1,X3,X4
          EQ     LEAVE
*
MLSINOF   BSS    0
          RJ     PXSAVE
          SIGNOFF PARSV,X2
          EQ     LEAVE
*
MLADDS    BSS    0
          RJ     PXSAVE
          ADDSPL PARSV,PARSV+1,X3
          EQ     LEAVE
*
MLDELS    BSS    0
          RJ     PXSAVE
          DELSPL PARSV,PARSV+1,X3
          EQ     LEAVE
*
MLSENDM   BSS    0
          RJ     PXSAVE
          BX3    X1          BECAUSE X1 GETS WRECKED BY MACRO
          SEND   B5,B5+1,X3,X2,PARSV+2,PARSV+3,X5
          EQ     LEAVE
*
MLRECM    BSS    0
          RJ     PXSAVE
          SA3    B5+B1
          SA2    A3+B1       SIGNAL
          SB6    X2
          SA2    A2+B1
          SB4    X2
          BX2    X1          BECAUSE X1 GETS WRECKED BY MACRO
          RECEIVE B5,X3,B6,B4,X2,PARSV+1,PARSV+2,X4,X5
          EQ     LEAVE
*
MLFERL   BSS    0
          RJ     PXSAVE
          FETCHRL PARSV,PARSV+1,X3,X4,X5
          EQ     LEAVE
*
MLCONF    BSS    0
          RJ     PXSAVE
          CONFIRM PARSV,PARSV+1,X3
          EQ     LEAVE
*
* A. J. H. GEERSEN  08/29/84. ( CHANGE FOR NOS/BE )
*
QFWAIT    RJ     =XPXSAVE
NOSSYS    IF     -DEF,RA.ORG
          ROLLOUT ROW
          EQ     LEAVE
ROW       VFD    36/NEEQ,24/15     FIFTEEN SECONDS
NOSSYS    ELSE                     NOS/BE CODE NEEDS SUBSYS INTERFACE
          PPARMD MLFSW,MLPFN
          RJ     MLI=
          EQ     LEAVE
NOSSYS    ENDIF
          END
