jthornto@fs1.ee.ubc.ca (THORNTON JOHAN A) (11/25/90)
This is an example of using the Vectored Enter facility on a 48.
It may be of particular interest to electrical engineers.
If this program is somewhere in the directory tree above your working
directory (such as in HOME), flag -63 is set, and user mode is on, you can
enter a phasor directly as [magnitude]<[angle] where "<" is the phasor symbol
([blue]-[SPC]).
For example,
10<90 [enter] 2<45 [enter] *
will return (20,<135) if polar mode is set. Note that the phasor can be
entered even if the HP is in rectangular mode, and that the mode is
preserved.
Save this program as '[alpha]ENTER'. [alpha] is entered with [blue]-A.
%%HP: T(3)A(D)F(.);
\<< DUP "\<)" POS DUP
IF
THEN RCLF -19 SF
-16 SF 3 ROLLD DUP2
1 - 1 SWAP SUB OBJ\->
3 ROLLD 2 PICK SIZE
SWAP 1 + SWAP SUB
OBJ\-> \->V2 SWAP STOF
ELSE DROP OBJ\->
END
\>>
------- _/__/ -----------------------------------------------------
_| ___| E l e c t r i c a l | Johan Thornton, Esq.
| | |_/ E n g i n E E r i n g |-------------------------
|/| __| U n i v e r s i t y | jthornto@fs1.ee.ubc.ca
|-| |/__ o f B r i t i s h |-------------------------
| |_____| C o l u m b i a | This space for rent
---- |__|/_| ------------------------------------------------------