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