*DECK DLINT 
          IDENT  DLINT
          ENTRY  DLINT
*IF DEF,IMS 
*#
*1DC  DLINT 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLINT               P.C.TAM             78/10/17 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        INITIALIZE FILE FOR READ/WRITE.
* 
*     3. METHOD USED. 
*        CALL READ/WRITE MACRO. 
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF FET
*        (A1)+1              ADDRESS OF THE ADDRESS OF READ/WRITE 
* 
*     5. EXIT PARAMETERS. 
*        NONE 
* 
*     6. COMMON DECKS CALLED. 
*        MACDEF MISDEFX 
* 
*     7. ROUTINES CALLED. 
*        NONE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
* 
*#
*ENDIF
  
*CALL MACDEF
*CALL MISDEFX 
  
 DLINT    SUBR   =           ENTRY/EXIT 
          SA2    A1+1        GET READ/WRITE 
          SA2    X2 
          SX2    X2-READNR   CHECK IF READ
          ZR     X2,INR 
  
*         WRITE 
  
          WRITE  X1 
          EQ     DLINTX      RETURN 
  
*         READ
  
 INR      BSS    0
          READ   X1,R 
          EQ     DLINTX      RETURN 
  
          END