*DECK DLRDO 
          IDENT  DLRDO
          ENTRY  DLRDO
*IF DEF,IMS 
*#
*1DC  DLRDO 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLRDO               P.C.TAM             78/09/21 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        READ A WORD FROM FILE
* 
*     3. METHOD USED. 
*        CALL DLRDO MACRO 
* 
*     4. ENTRY PARAMETERS.
*        (A1)    ADDRESS OF THE ADDRESS OF FET. 
*        (A1)+1  ADDRESS OF THE ADDRESS OF OUTPUT WORD
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
*#
*ENDIF
  
  
 DLRDO    SUBR   =           ENTRY/EXIT 
          SX6    A1          SAVE (A1)
          SA6    SAVEA1 
          READO  X1 
          SB1    1           (B1)=1 
          SA5    SAVEA1 
          SA5    X5+B1
  
*         READ A WORD IN X6 
  
          SA6    X5 
          EQ     DLRDOX 
  
 SAVEA1   BSS    1
          END