LA     15,SINUSX  load in reg15 address of function SINUSX
         BALR   14,15      call the subroutine SINUX and place address RETPNT in reg14
RETPNT   EQU    *
		
SINUSX   EQU    *          subroutine SINUSX
         ...		
         BR     14         return to caller