Retro1.org codex

*DECK ABORT 
          IDENT  ABORT
          EXT    OMSG 
 
*IF DEF,IMS 
*#
*IDC  ABORT 
*     1. PROC NAME           AUTHOR              DATE 
*        ABORT               P.C.TAM             78/07/28 
* 
*     2. FUNCTIONAL DESCRIPTION.
*        ABORT NIP. 
* 
*     3. METHOD USED. 
*        CALL ABORT MACRO.
* 
*     4. ENTRY PARAMETERS.
*        (X1)                FWA OF MESSAGE TO BE LOGGED
* 
*     5. EXIT PARAMETERS. 
*        NONE.
* 
*     6. COMMON DECKS CALLED. 
*        INPARU MACDEF
* 
*     7. ROUTINES CALLED. 
*        OMSG                LOG ERROR MESSAGES 
* 
*     8. DAYFILE MESSAGES.
*        NONE.
* 
*#
*ENDIF
*CALL MACDEF
*CALL INPARU
 
          ENTRY  ABORT
 ABORT    SUBR   =           ENTRY/EXIT 
          RJ     OMSG        LOG ERROR MESSAGE
          ABORT 
          END