HP 41 - branching to local label and return stack - FINAL RESULTS AND PROGRAMS

[Artur - Brasil]

(05-20-2019 11:48 PM)Sylvain Cote Wrote:  Artur,
I have extracted LR and SR from the PPC ROM.
...
Sylvain

Sylvain, many thanks for your efforts! Great job!!
I got the code into my HP. It lists as this bellow. Just some thoughts: there's no return between such programs. One acts as part of another. So, I'll try them today and see what happens!
Many thanks!
LBL "SR"
SIGN
SF 10
RDN
RCL b
STO M
RDN
FC?C 10
RTN
"***"
RCL IND L
ISG L
""
X<> IND L
STO N
"**"
X<> IND L
STO O
"**"
X<> O
STO a
X<> N
CLA // see that there isn't RTN to close label SR!!
LBL "Sb"
STO b // again there isn't RTN to close label Sb!! I believe it's because the program pointer will jump to the new address in b!!
LBL "LR"
SIGN
RDN
+
RCL a
STO N
RDN
RCL b
X<> M
STO 0
ASTO IND L
ISG L
""
"*****"
STO O
ASTO IND L
RDN
CLA
RTN
END //This I put by myself