15 lines
361 B
Text
15 lines
361 B
Text
( in-place rot13, null terminated string )
|
|
@rot13 ( addr* -: addr* )
|
|
DUP2
|
|
&loop
|
|
LDAk ?{ POP2 JMP2r } STH2k
|
|
LDAk #df AND DUP #41 LTH SWP #5a GTH ORA
|
|
STH LDAk STHr
|
|
?{
|
|
DUP #df AND
|
|
#0d ADD
|
|
DUP #5a GTH #1a MUL SUB
|
|
SWP #20 AND ORA
|
|
}
|
|
STH2r STA INC2
|
|
!&loop
|