Plan 9 from User Space's /usr/local/plan9/src/lib9/getcallerpc-sun4u.s 

.text
.globl getcallerpc
getcallerpc:
	retl
	or %o7, %r0, %o0

Space Glenda

Copyright © 2005 Lucent Technologies, Russ Cox, MIT.
See license for details.