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 |
|||
« Next Oldest | Next Newest »
|
User(s) browsing this thread: 1 Guest(s)