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