***********************************************************************
*        IBM z/Architecture Assembler Program                         *
*        =====================================================        *
*                                                                     *
***********************************************************************
MAINENTR CSECT ,                        DEFINE CODE SECTION
         USING *,R12                    DEFINE BASE REGISTER
         LR    R12,R15                  GR12 --> OUR 1ST BASE ADDRESS
*=====================================================================*
         WTO   'Hello World !!'         WRITE MESSAGE TO CONSOLE
******** CVB   R0,DATAAREA              CONVERT DECIMAL TO BINARY
         SLR   R15,R15                  CLEAR GR15
*=====================================================================*
*====================================== GR15 <--- RETURN CODE
         SVC   3                        EXIT TO MVS
*=====================================================================*
         DS    0D
DATAAREA DC    CL8'DATAAREA'            EYE-CATCHER


*=====================================================================*
         YREGS ,                        EXPAND GPR EQUATIONS
         END