* ===================================================================
*
* Shows a simple main assembler routine that brings up the environment,
* returns with a return code of 0, modifier of 0, and prints a
* message in the main routine.
*
* ===================================================================
MAIN     CEEENTRY PPA=MAINPPA
*
*
         LA       1,PARMLIST
         L        15,=V(CEEMOUT)
         BALR     14,15
*
*   Terminate the Language Environment environment and return to the caller
*
         CEETERM  RC=0,MODIFIER=0
* ====================================================================
*              CONSTANTS AND WORKAREAS
* ====================================================================
PARMLIST DC    AL4(STRING)
         DC    AL4(DEST)
         DC    X'80000000'        Omitted feedback code
*
STRING   DC    AL2(STRLEN)
STRBEGIN DC    CL19'In the main routine'
STRLEN   EQU   *-STRBEGIN
DEST     DC    F'2'
MAINPPA  CEEPPA                   Constants describing the code block
         CEEDSA                   Mapping of the dynamic save area
         CEECAA                   Mapping of the common anchor area
         END   MAIN               Nominate MAIN as the entry point