Retro1.org codex

*DECK DLDFM 
          IDENT  DLDFM
          ENTRY  DLDFM
*IF DEF,IMS 
*#
*1DC  DLDFM 
* 
*     1. PROC NAME           AUTHOR              DATE 
*        DLDFM               P.C.TAM             78/09/14 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        LOG MESSAGES 
* 
*     3. METHOD USED. 
*        USER MESSAGE MACRO 
* 
*     4. ENTRY PARAMETERS.
*        (X1) = ADDR OF MESSAGE BLOCK TO BE LOGGED
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSAGES.
*        FROM CALLER. 
* 
*#
*ENDIF
 
 DLDFM    SUBR   =           ENTRY/EXIT 
          MESSAGE X1,0,R
          EQ     DLDFMX 
          END