HP 41 - branching to local label and return stack - FINAL RESULTS AND PROGRAMS
|
05-21-2019, 11:12 AM
(This post was last modified: 05-21-2019 11:36 AM by Artur - Brasil.)
Post: #21
|
|||
|
|||
RE: HP 41 - branching to local label and return stack
(05-20-2019 11:48 PM)Sylvain Cote Wrote: Artur,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 ARTUR MARIO JUNIOR BRAZIL |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)