RosettaCodeData/Task/Call-a-function/360-Assembly/call-a-function-2.360

8 lines
247 B
Plaintext

L R15,=V(MULTPLIC)
LA R1,PARMLIST address of the paramter list
BALR R14,R15 branch and link
ST R0,Z Z=MULTPLIC(X,Y)
* ...
PARMLIST DC A(X)
DC A(Y)