#PROGRAM       /GFOPENCI(15AM,22AM,DBM,EBM)
#PAGE

#INCLUDE       IOHEAD(/DEFS)
#INCLUDE       STACK(/DEFS)


#PROGRAM

#              Open an command issurer channel

#              fd = openci (anticipated);

#              integer procedure openci (anticipated);
#                  value anticipated;
#                  boolean anticipated;

#SET           ARGS=0

#DEFINE        ARGANTICIP=ARGS
#SET           ARGS=ARGS+1

#              Define stack frame:

#SET           STFRAME=SXFRAME

#              First the args:

#DEFINE        STANTICIP=SXPAR1
#SET           STFRAME=STFRAME+1

#              Then the local variables

#              ... there are none

#              Fortran callable entry point

      STACK 2
      OBEY     ARGANTICIP(1)
      LDX   0  0(3)
      STO   0  STANTICIP(2)

      ADN   1  ARGS

#              Pascal callable entry point

#CUE           GPOPENCI

      BEGIN 2  3,1,STFRAME

      LDX   0  STANTICIP(2) 
      BNZ   0  INVAL            [ anticipated CI not implemented

      NGN   0  1                [ don't care about FD
      STO   0  SXPAR1(3)
      STOZ     SXPAR2(3)        [ non shifted
      LDN   0  DEVCI            [ a command issuer
      STO   0  SXPAR3(3)
      STOZ     SXPAR4(3)        [ *CI0
      NGN   0  1                [ no read mode
      STO   0  SXPAR5(3)
      LDN   0  1                [ mode 1 - write command
      STO   0  SXPAR6(3) 
      LDN   0  511              [ 511 chars
      STO   0  SXPAR7(3)
      CALL  1  GPFDALLOC

      BNG   6  BYE

      LDN   0  FLAGNOCLOSE      [ no release on close
      ORS   0  FDFLAGS(3)

BYE   END   2  1,0

INVAL NGN   6  EINVAL
      BRN      BYE

#END
#FINISH