Retro1.org codex

*DECK DLFLUSH 
          IDENT  DLFLUSH
          ENTRY  DLFLUSH
*IF DEF,IMS 
*#
*1DC  DLFLUSH 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLFLUSH             P.C.TAM             78/10/17 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        WRITER ON FILE 
* 
*     3. METHOD USED. 
*        USE WRITER MACRO.
* 
*     4. ENTRY PARAMETERS.
*        (A1)                ADDRESS OF THE ADDRESS OF THE FET
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. ROUTINES CALLED. 
*        NONE.
* 
*     7. COMMON DECKS CALLED. 
*        NONE 
* 
*     8. DAYFILE MESSAGES.
*        NONE 
* 
*#
*ENDIF
 
 DLFLUSH  SUBR   =           ENTRY/EXIT 
          WRITER X1,R 
          EQ     DLFLUSHX    RETURN 
          END