HP41 TVM Program

[Dieter]

(05-29-2018 03:45 PM)AndiGer Wrote:  Is this complete? Last statement I see is 390 (STO 7).
In statement 379 we got XEQ 05 that starts at 383. But what when the program reaches 390? 391 RTN?

The final steps are OK. After STO 07 the program ends with an END command. This does the same as a RTN, so the latter is not required.

However, the program in the Advantage ROM has four more lines. The very first commands right after LBL"TVM" check if 10 data registers are available. If not, the user is prompted to set at least SIZE 010. This is accomplished by the "SZ" routine in the Advantage ROM. These lines (10 XEQ"SZ?" FC?C 25 PROMPT) are missing in the listing. If you want to duplicate this function you may begin the program like this:

Code:

01 LBL"TVM"
02 SF 25
03 "SET SIZE>=10"
03 RCL 09
04 FC?C 25
05 PROMPT
06 CF 00
07 LBL e
08 ...

If you got a 41CX or an Extended Functions ROM you can also set SIZE automatically, if required:

Code:

01 LBL"TVM"
02 SIZE?
03 10
04 X>Y?
05 PSIZE
06 CF 00
07 LBL e
08 ...

Dieter