*DECK DB$ATCM 
          IDENT  DB$ATCM
          IPARAMS 
*#
* *   DB$ATCM                                    PAGE  1
* *   C O GIMBER                                 2/24/76
* 
* DC  PURPOSE 
* 
*     ISSUE NOS OR NOS/BE ATTACH MACRO. 
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
* 
*     FOR NOS: ADDRESS OF FET FOR ATTACH. 
*     FOR NOS/BE: ADDRESS OF FIFTH WORD OF FDB
*#
          LIST   F
          ENTRY  DB$ATCM
SCPPFM    IFC    EQ,*"OS.NAME"*SCOPE *
  
DB$ATCM   EQ   *+1S17 
          SA1    X1          (X1) = ADDRESS 5TH WORD FBD
          ATTACH  X1,RC,RT,NR 
SCPPFM    ENDIF 
NOSPFM    IFC    EQ,*"OS.NAME"*KRONOS*
DB$ATCM   EQ  *+1S17
          SA1    X1          (X1) = ADDRESS OF FET
          ATTACH X1 
NOSPFM    ENDIF 
          EQ   DB$ATCM
          END 
