(35S) Reverse Digits Programme

[Gerald H]

A slight optimization of REVERSO, one line smaller & faster for entry > 0, slower for 0. Why bother to optimize? speed difference is negligible, 35S has more than enough memory...it's just that I feel an irritation when I see the waste looking up at me from the page.

1 LBL R
2 0
3 x<>y
4 10*REGY+RMDR(REGX,10)
5 IDIV(REGY,10)
6 x≠0?
7 GTO R004
8 R↓
9 RTN