HP HP-11C - Page 124

122 Section 8: Subroutines
Main Program Subroutine
001- [f](LBL](C] /013—lm0
002- (ST0]0 ~ 7 014-[3)F
003- =] //// 015- [9)[57x)
004- [sT0)(-]0 ~ % 016-
005- (GSBJO — — y 017-
006- [CHS) — — —Z%— — — —018-
007- =) S -
oos- (GsslJo — _—
009- 3] €« ——"
010- [RCL]O
011-[5
012-
(Program assumes trig mode.)
When you press with x; in the Y-register and x, in the
displayed X-register, execution begins with the instruction
in line 001. When the 0 instruction in line 005 is encountered,
execution transfers to the 0 instruction in line 013 and
calculates y,. If for example, we used a value of 2 for x; and a value
of 3 for x4, here is how the solution would be calculated.
001 002 003 004
T+
Z+
Y
X+
Keys [sToJo (sTo](-Jo
(xq1in (x,inRg) (Exchange) (xp-xqin
Y-reg. x, Ro)
in X-reg.)