Table of Contents
Advertisement
3-40 .
Α translat ion
o
f
t
he ge neral loop
p
rogra m for the
H
ew lett-Pac kard
M
odel 9830Α Ca lcul ator as the HP-113
controll er is :
N
OTE S:
10
CMD "? U &", "Η 1 Α
J",
"F 5"
20
DI SP ROT (RΒΥΤΕ 13, 8) + RB Y TE 13
30
GO ΤΟ 10
1 .
D
o
n
ot pu sh
t
he SHIFT key if it is not required or the pr og ram may
n
ot run .
Section III - Operat ion
a
nd
P
rogramming
M
odel 59313Α
2.
Line 20 is α mo re efficient wa y
o
f co m b inin g the 2 bytes than
t
he ge ner a l ro u t in e s h ow n in the preced ing
pa ragraph .
3-41 .
Two tr anslat ions ar e give n for t h e
M
odel 9825 Α Ca lculato r. Th e first is the gene ral rout in e whi ch r e quires
only the GENER AL Ι /0
R
OM necessa ry to
u
se the HP-113 .
NOTE :
W
h e n usin g α wrt statement w i th
t
he 9825 Α calculator α fm t statement mu st be
u
sed to suppress
the ca rriage
r
et urnlin e
f
eed
n
orm ally
o
utput at the end of
t
he data li st .
0:
fm t 1,
z,
f . 0
1:
wrt 706.1, "H 11 AJ"
NOTE : Ex tra "1" g uarantees 100 -s inpu t sett ling time.
2:
rdb (706) - Α
3:
if Α >3 ; gto 5
4:
d
sp Α *256 + rdb (706)
5:
gt ο 0
6:
d
s
p
- ( (255-Α) * 256 + (256-
rdb
(708) )
7:
gt ο 0
Th
e seco
n
d
pr
ogra
m i
s α
m
o
r
e e
ffi
c
i
e
n
t
m
et
h
od t
h
at re
qui
res bot
h
t
h
e G
ENE
RA
L
Ι/Ο
R
O
M
a
n
d t
h
e
E
X
TENDED
Ι/Ο
R
O
M
.
0:
fm t 1, z, i0
1 :
wrt 706.1 "H 11 AJ"
2:
ds p ior (s hf (rdb (706), -8), rdb (708) )
3:
gto 0
3-42 .
Α
t
ranslation for the
M
odel 9820 Α/21 Α Calc ul ator s is :
0:
F
XD 0;
C
MD "?U&", "HaAJ", "5 F" ~
1:
RDB 13-Α; RDB 13-Β ~
2:
IF Α>3 ; (255-Α) * 256 + 256 -B -C; C* -1 -C; DI S P C ~
3:
IF Α43 ; Α *256 +B - C; DI SP C ~
4:
G
TO 00 ~
3- 1 1
Advertisement
Table of Contents
