Free42 LSTO REGS

[Namir]

The technique of of using local REGS is wonderful! I wrote a short test where I stored values in regular registers, called a subroutine, created a local copy of REGS, and accessed the copies. This method allows you to pass values not only in the stack, but also though numbered registers to a subroutines. The called subroutine can return the result(s) in the stack OR in gobal named variables. Using local REGS allows the subroutine to use any numbered register, that does not supply it with input values, to store whatever intermediate results needed.

Thanks Thomas for making the feature of local REGS available!

Here is my short test program:

Code:

01▸LBL "AA"
02 100
03 STO 00
04 200
05 STO 01
06 XEQ "BB"
07 "X="
08 ARCL 00
09 PROMPT
10 RTN
11▸LBL "BB"
12 RCL "REGS"
13 LSTO "REGS"
14 1
15 STO 00
16 "XS="
17 ARCL 00
18 PROMPT
19 "YS="
20 ARCL 01
21 PROMPT

Namir