05-12-2015, 05:00 PM
The programme REVERSO takes integer input & returns the digit reversed integer.
eg Input 123 returns 321.
1 LBL R
2 0
3 x<>y
4 x=0?
5 GTO R009
6 10*REGY+RMDR(REGX,10)
7 IDIV(REGY,10)
8 GTO R004
9 R↓
10 RTN
eg Input 123 returns 321.
1 LBL R
2 0
3 x<>y
4 x=0?
5 GTO R009
6 10*REGY+RMDR(REGX,10)
7 IDIV(REGY,10)
8 GTO R004
9 R↓
10 RTN