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