Table A-3.
Grazing Simulation Program for Programmable
Pocket Calculator (Texas Instrument Model 59)
(LOC = Location in Memory; CD = Code (Keyboard Coordinates)
LOC
CD
KEY
LOC
CD
KEY
LOC
CD
KEY
LOC
CD
KEY
LOC
CD
KEY
000
O01
002
003
004
005
006
007,
008
009
010
011
012
013
014
015
016
O17
O18
019
020
021
022
023
024
025
026
027
028
029
030
031
032
033
034
035
036
037
038
039
76
88
53
53
02
04
G2
09
08
65
43
O98
85
09
09
09
09
O01
54
«655
OL
09
09
00
OL
07
42
10
54
53
53
53
22
59
65
43
10
54
42
09
LBL
DMS
(
(
2
4
2
9
8
x
RCL
O98
+
«9
9
9
9
1
)
+
l
9
9
O
1
7
STO
10
)
¢
(
(
INV
INT
x
RCL
10
)
STO
O09
050
051
052
053
054
055
056
057.
058
059
060
062
062
063
064
065
066
067
068
069
070
071
072
073
074
075
|076
077
078
079
080
O81
082
083
084
{085
|086
08?
{088
{089
05
5
22 INV
28 LOG
54
)
92 RIN
76 LBL
14
OD
70 RAD
71 SBR
88 DMS
42 STO
11
#11
71 SBR
88 DMS
53
(
53
(
24 CE
65
x
02
2
65
x
89
54
)
39 COS
65
x
53
(
43 RCL
ll
ll
23 LNx
65
x
«02
2
94 +/54
)
34 Vx
65
x
43 RCL
13
13
85
+
43 RCL
12
12
54
)
100
101
102
103
104
105
106
107
108
109
110
4111
}112
113
114
115
116
117.
118
119
120
121
122
123
124
[125
126
127)
128
129
130
131
132
133
[134
|135
136
1137
|;138
139
13
14
42
14
43
18
42
12
43
19
42
#13
14
44
14
43
20
42)
12
43
21
42
13
14
42
15
43
22
42
12
43
23.
42
13
14
44
15
53
43
14
13
150
OD
151
STO
152
14
153°
RCL
154
18
4155
STO
156
12
157
RCL
158
19
159
STO
160
#13
161
OD
162
SUM
163
14
164
RCL
[165
20 | 166
STO
167
12
1168
RCL
169
21 {170
STO ;171
13 '172
+p
'!173
STO ;174
15 1175
RCL ‘176
220:177
STO !'178
12,179
RCL +; 180
23
181
§TO
182
13 ,183
D
$'184
SUM {185
15 |186
C
| 187
RCL _188
14,189
58
00
99
78
69
20
97
07
ll
98
43
03
99
58
02
79
99
22
79
99
92
76
12
03
00
42
00
05
00
42
07
36
O01
71
25
92
76
13
73
00
FIX
oO
PRT
f+
OP
20
DSZ
07
A
ADV
RCL
O03
PRT
FIX
02
x
PRT
INV
x
PRT
RIN
LBL
2B
3
0
STO
00
5
QO
STO
07
PGM
O1
SBR
CLR
RIN
LBL
€
RC*
OO
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
%|222
| 223
| 224
, 225
| 226
'227
| 228
i229
i 230
~ 231
| 232
| 233
| 234
(235
' 236
1237
+238
239
99
53
22
79
99
33
55
02
85
79
54
22
23°
58
00
99
98
98
92
76
15
12
11
12
13.
97
08
15
01
07
03
OQ1
01
06
69
02
69
05
92
00
PRT
¢
INV
x
PRT
x?
:
2
+
x
)
INV
LNX
FIx
00
PRT
ADV
ADV
RIN
LBL
E
B
=A
B
0¢«€
DSZ
08
£
1
7
3
1
1
6
OP
02
OP
05
RIN
O
040
041
042
043
044
045
046
047
048
049
55
43
10
65
05
22
28
«54
59
55
+
RCL
10
x
5
INV
LOG
)
INT
+
090
091
{092
093
094
|095
|096
097
{098
099
92
76
12
43
16
42
12
43
17
42
{140
141
142
143
144
{145
146
147
148
J149
22
23
85
43
15
22
23
54
72
00
INV
LNx
+
RCL
15
INV
LNx
>)
st*
00
23
78
69
20
97
07
10
58
05
79
LNx
<+
OP
20
DSZ
07
C
FIx
05
x
-
RIN
LBL
+A
RCL
16
STO
12
RCL
17
STO
190
‘191
°192
193
194
195
196
.197
‘198
[199
000
.056
:092
.172
‘187
!220
j
i
511
LABELS
88
41
ll
12
13
15
DMS
#4OD
A
B
#C
E