*DECK DLWRT 
          IDENT  DLWRT
          ENTRY  DLWRT
*IF DEF,IMS 
*#
*1DC  DLWRT 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLWRT               P.C.TAM             78/10/05 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        MOVE CODED LINE TO CIO BUFFER. 
* 
*     3. METHOD USED. 
*        CALL WRITEW MACRO. 
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF FET
*        (A1)+1              ADDRESS OF THE ADDRESS OF LINE 
*        (A1)+2              ADDRESS OF THE ADDRESS OF SIZE 
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
  
 DLWRT    SUBR   =           ENTRY/EXIT 
          SB1    1
          SA2    A1+B1       (X2)=ADDRESS OF LINE 
          SA3    A2+B1
          SA3    X3          (X3)=SIZE
          WRITEW X1,X2,X3 
          EQ     DLWRTX 
          END