For completeness, here is "two".


***********************************************************************
*                                                                     *
*  This program written by Paul Edwards.                              *
*  Released to the public domain                                      *
*                                                                     *
***********************************************************************
***********************************************************************
*                                                                     *
*  return 3 in R15                                                    *
*                                                                     *
***********************************************************************
*
         AMODE 64
         RMODE 64
         CSECT
         YREGS
*
         ENTRY TWO
TWO      DS    0H
         USING TWO,R15
         LA    R15,3
         BR    R14
         END

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to