*DECK DLOPEN
          IDENT  DLOPEN 
          ENTRY  DLOPEN 
*IF DEF,IMS 
*#
*1DC  DLOPEN
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLOPEN              P.C.TAM             78/09/21 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        INITIALIZE FETS
* 
*     3. METHOD USED. 
*        USE OPEN MACRO 
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF FET
*        (A1)+1              ADDRESS OF THE ADDRESS OF OPEN CODE
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        MACDEF MISDEFX 
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
*CALL MACDEF
*CALL MISDEFX 
  
 DLOPEN   SUBR   =           ENTRY/EXIT 
          SA2    A1+1 
          SA2    X2 
          SX3    X2-READNR   CHECK IF READNR
          NZ     X3,INIT2 
  
          OPEN   X1,READNR,R
          EQ     DLOPENX
  
 INIT2    BSS    0
          OPEN   X1,WRITENR,R 
          EQ     DLOPENX    RETURN
  
 SAVEA1   BSS    1
  
          END