*DECK SETBFS
          IDENT  SETBFS 
          TITLE  SETBFS - SET BUFFER SIZES AND CONNECT BIT FOR FILES
          COMMENT  SET BUFFER SIZES AND CONNECT BIT FOR FILES 
          SST 
*CALL COBIOM
          USE    /FET/
 INPUT    BSS    1
 OUTPUT   BSS    1
          USE    *
 DBUG     IFEQ   DEBUGC,1 
          USE    /CHKFETC/
 CHKFILE  BSS    1
          USE    *
 DBUG     ENDIF 
          ENTRY  SETBFS 
 SETBFS   DATA   0
          SA1    INPUT       GET ADDRESS OF INPUT FILE
          RJ     CHKTAPE     GET INPUT FILE INFO
 CHKOUT   SA1    OUTPUT 
          RJ     CHKTAPE     GET OUTPUT FILE INFO 
 DBUG2    IFEQ   DEBUGC,1 
 CHKCHK   SA1    CHKFILE     GET ADDRESS OF CHECK FILE
          RJ     CHKTAPE     SET CONNECTED FILE BIT IF NEEDED 
 DBUG2    ENDIF 
          EQ     SETBFS 
 CHKTAPE  DATA   0
          SX5    5           NUMBER OF WORDS IN FILE INFO TABLE 
          LX5    12 
          SA0    X1          SAVE ADDRESS OF FILE 
          SA1    X1          GET NAME OF FILE 
          MX7    42          MASK X7
          BX1    X7*X1
          ZR     X1,CHKTAPE  EXIT IF NO FILE GIVEN
          BX0    X1          SAVE FILE NAME 
          BX7    X1+X5       SET UP HEADER WORD 
          SA7    OPFITBS     SET FILE INFO CALL WORD
          FILINFO OPFITBS    GET INFO ABOUT FILE
          SA4    OPFITBS+1   GET FIRST STATUS WORD
          MX5    12 
          BX5    X5*X4       DEVICE TYPE
 NOS1     IFC    EQ,*"OSNAME"*KRONOS* 
          ZR     X5,CHKSYSF  JP IF NONE ASSIGNED
 NOS1     ELSE
          ZR     X5,CHKTAPE  JP IF NONE ASSIGNED
 NOS1     ENDIF 
          LX4    59-20       TAPE BITS (18-20)
          MX7    3
          BX2    X4*X7
          ZR     X2,CHK1     JP IF NOT TAPE 
          SX4    2020B       TAPE BUFFER SIZE 
          EQ     STBFS
 CHK1     BSS    0
          LX4    20-16       CONNECTED BIT
          PL     X4,CHKTAPE  JP IF NOT A CONNECTED FILE 
 CHKSTCN  BSS    0
          STORE  A0,CONF=YES CONNECTED FILE - SET BIT 
          SX4    101B        USE MINIMUM BUFFER FOR CONNECTED FILES 
 STBFS    BSS    0
          STORE  A0,LIMIT=X4 SET NEW BUFFER SIZE
          EQ     CHKTAPE
 NOS2     IFC    EQ,*"OSNAME"*KRONOS* 
*     DEFINE THESE SINCE THEY DO NOT SEEM TO APPEAR IN ANY NOS TEXTS
 JOBR     EQU    66B         WORK CONTAINING JOB ORIGIN 
 TXOT     EQU    3           TIME-SHARING ORIGIN (STOOD FOR TELEX ORIGINALLY) 
 CHKSYSF  BSS    0           CHECK SYSTEM FILES 
          SA2    JOBR        GET JOB ORIGIN 
          MX5    48 
          LX2    36 
          BX2    -X5*X2 
          SX2    X2-TXOT
          NZ     X2,CHKTAPE  JP IF NOT AN INTERACTIVE JOB 
          SA1    =0LINPUT 
          IX1    X0-X1
          ZR     X1,CHKSTCN  JP IF THE INPUT FILE 
          SA1    =0LOUTPUT
          IX1    X0-X1
          ZR     X1,CHKSTCN  JP IF THE OUTPUT FILE
          EQ     CHKTAPE
 NOS2     ENDIF 
 OPFITBS  BSSZ   5           AREA FOR FILE INFO RETURN
          END 
