Post Reply 
HP 41 - branching to local label and return stack - FINAL RESULTS AND PROGRAMS
06-22-2019, 09:59 PM (This post was last modified: 06-22-2019 10:18 PM by Artur - Brasil.)
Post: #39
RE: HP 41 - branching to local label and return stack
Now, the second equation: permeability: (u + uo.ur) - B/H = 0
Variables versus registers: 01 - u; 02 - B; 13 - h; 04 - R; 05 - ur; uo is constant - reg 45
We will need to make XOR(u; ur; B) H <> 0

048 LBL 02 ........ second function
049 "PML"
050 ASTO X
051 CLA ............ here I need the u character. It will cause a disturbe in X register
052 12
053 XTOA
054 "> B ^H R "
055 X<>Y ........ I need to restore X register with function name for SOLVE.
056 XEQ "SFT1"

057 CLA ............... also no second menu
058 XEQ "SFT2"
059 1 .................. now, as we don't have to check result of some operation, I can
060 5 .................. use the registers numbers instead of values and call XORR (by registers)
061 2 .................. u; ur; B
062 RCL 44 ......... and the register number for variable solving
063 XEQ "XORR"

064 X=0?
065 GTO 11 ....... if XOR fails...

066 RCL 13 ...... if variables are ok, finally corrects the H variable
067 X=0?
068 1
069 STO 13

070 XEQ "SFT3" ..... everything ok, let's solve
071 GTO 02 .... once done, go back to function

072 LBL 11 .... for treat errors
073 "ZERE "
074 12 ..... again the u character ...
075 XTOA
076 ">*"
077 XTOA
078 ">R:B"
079 XEQ "SFT4" ... just show a message
080 GTO 02 .... go back to function

081 LBL "PML" ...... the function itself
082 STO IND 44 .... always save IND 44
083 RCL 05
084 RCL 45
085 *
086 RCL 01
087 +
088 RCL 02
089 RCL 13
090 /
091 -
092 RTN

ARTUR MARIO JUNIOR
BRAZIL
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: HP 41 - branching to local label and return stack - Artur - Brasil - 06-22-2019 09:59 PM



User(s) browsing this thread: 1 Guest(s)