Retro1.org codex

*DECK DLRECL
          IDENT  DLRECL 
          ENTRY  DLRECL 
*IF DEF,IMS 
*#
*1DC  DLRECL
*     1. PROC NAME           AUTHOR              DATE 
*        DLRECL              P.C.TAM             78/11/03 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        CHECK COMPLETION BIT, RECALL IF NECESSARY
* 
*     3. METHOD USED. 
*        USE RECALL MACRO 
* 
*     4. ENTRY PARAMETER
*        (X1)                ADDRESS OF WORD WITH COMPLETION
*                            BIT. 
* 
*     5. EXIT PARAMETER 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        NONE.
* 
*     7. ROUTINES CALLED. 
*        NONE.
* 
*     8. DAYFILE MESSSAGES. 
*        NONE.
* 
*#
*ENDIF
 
 DLRECL   SUBR   =           ENTRY/EXIT 
          RECALL X1 
          EQ     DLRECLX     RETURN 
          END