20 lines
700 B
Plaintext
20 lines
700 B
Plaintext
* Reverse a string 25/04/2020
|
|
REVERSEI CSECT
|
|
USING REVERSEI,R13 base register
|
|
B 72(R15) skip savearea
|
|
DC 17F'0' savearea
|
|
STM R14,R12,12(R13) prolog
|
|
ST R13,4(R15) "
|
|
ST R15,8(R13) "
|
|
LR R13,R15 "
|
|
MVCIN BB,AA+L'AA-1
|
|
XPRNT BB,L'BB print bb
|
|
L R13,4(0,R13) epilog
|
|
LM R14,R12,12(R13) "
|
|
XR R15,R15 "
|
|
BR R14 exit
|
|
AA DC CL12'edoC attesoR' a
|
|
BB DS CL(L'AA) b
|
|
REGEQU
|
|
END REVERSEI
|