*DECK S$CONCT 
          IDENT  S$CONCT
          TITLE S$CONCT - CONNECT TERMINAL FILES
          COMMENT  CONNECT TERMINAL FILES 
          SPACE  4
**  S$CONCT  - CONNECT TERMINAL FILES 
* 
*   CALLING SEQUENCE -
* 
*         S$CONCT(0);  OR  S$CONCT(1);
* 
*  GIVEN- 
* 
*         ZERO OR ONE 
* 
*  DOES - 
* 
*         FOR ZERO - CONNECTS INPUT AND OUTPUT ON NOS/BE
*         FOR ONE  - DISCONNECTS THOSE FILES
  
          ENTRY  S$CONCT
          SPACE  4
S$CONCT   SUBR
          IFNOS 
          EXIT
          ENDIF 
  
  
          IFNOSBE 
          SA1    X1                X1 = PARAMETER (0 OR 1)
          ZR     X1,J2
  
*         NON-ZERO PARAMETER - SO WE DISCONNECT 
          RJ     SETZERO           SET COMPLETION FLAGS TO ZERO 
          SA1    DISOUT            DISCONNECT OUTPUT
          RJ     SYSREQ 
          SA1    DISIN             DISCONNECT INPUT 
          RJ     SYSREQ 
          EXIT
  
J2        RJ     SETZERO
          SA1    CONOUT            CONNECT OUTPUT 
          RJ     SYSREQ 
          SA1    CONIN
          RJ     SYSREQ 
  
          EXIT
  
SETZERO   DATA   0
          SA1    OUTZ 
          BX6    X1 
          SA6    OUT
          SA1    INZ
          BX6    X1 
          SA6    IN 
          EQ     SETZERO
  
SYSREQ    DATA   0
          BX6    X1 
          SA6    1                 RA+1 
L1        SA1    1
          NZ     X1,L1
          EQ     SYSREQ 
  
  
CONOUT    VFD    18/3RCON,2/1,22/0,18/OUT 
CONIN     VFD    18/3RCON,2/1,22/0,18/IN
DISOUT    VFD    18/3RCON,2/1,22/77777,18/OUT 
DISIN     VFD    18/3RCON,2/1,22/77777,18/IN
  
OUTZ      VFD    42/6LOUTPUT,18/0 
INZ       VFD    42/5LINPUT,18/0
  
OUT       DATA   0
IN        DATA   0
  
  
  
          ENDIF 
  
          END 
