27 lines
1020 B
Plaintext
27 lines
1020 B
Plaintext
ROT13 CSECT
|
|
USING ROT13,R15 use calling register
|
|
XPRNT CC,L'CC
|
|
TR CC,TABLE translate
|
|
XPRNT CC,L'CC
|
|
TR CC,TABLE translate
|
|
XPRNT CC,L'CC
|
|
BR R14 return to caller
|
|
CC DC CL10'{NOWHERE!}'
|
|
TABLE DC CL64' '
|
|
* 0123456789ABCDEF
|
|
DC CL16' .<(+|' X'4.'
|
|
DC CL16' !$*);^' X'5.'
|
|
DC CL16'&& ,%_>?' X'6.'
|
|
DC CL16'-/ `:#@''="' X'7.'
|
|
DC CL16' nopqrstuv ' X'8.'
|
|
DC CL16' wxyzabcde ' X'9.'
|
|
DC CL16' ~fghijklm [ ' X'A.'
|
|
DC CL16' ] ' X'B.'
|
|
DC CL16'{NOPQRSTUV ' X'C.'
|
|
DC CL16'}WXYZABCDE ' X'D.'
|
|
DC CL16'\ FGHIJKLM ' X'E.'
|
|
DC CL16'0123456789 ' X'F.'
|
|
* 0123456789ABCDEF
|
|
YREGS
|
|
END ROT13
|