7 lines
280 B
Text
7 lines
280 B
Text
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
|