![background image](http://html1.mh-extra.com/html/olivetti/programma-101/programma-101_reference-manual_3789955051.webp)
Packing a Register
This routine illustrates the concept of "packing" a register. Frequently, it becomes necessary to
store a group of constants in just one register. The following routine exemplifies how each of
the constants might be stored in one register and isolated for manipulation. Let us assume
that we wish to store the constants .453, .281, .397, and .024 all in one register. This can be
accomplished by creating the compound number 453281397.024 and storing it in the D
register. Note that each of the constants must have the same number of digits. The generated
number 1000 will enable us to isolate each of the three digit constants contained within the
compound number.
Set decimal wheel to 3.
A V
D
Bring compound number to A.
A/
Generate the constant 1000 in the M register.
R/S
R S
R S
D
÷
Divide.
D
Store remaining portion of compound number in D.
R
Isolated number to A.
S Enter some factor.
x Multiply.
A
Print result.
/
Vertical up space.
V Return to AV.
- 51 -