; HP-34C Surveying Applications

HP34

PROGRAM 99
NAME AZIMUTH

001  LBL A
002  x<>y
003  ->H
004  x<>y
005  ENTER
006  ENTER
007  2
008  :
009  INT
010  PI
011  R->D
012  *
013  x<>y
014  LastX
015  *
016  COS
017  ROLL UP
018  *
019  -
020  ->HMS
021  RTN
022  LBL B
023  ->H
024  ENTER
025  SIN
026  SIN-1
027  x<0
028  CHS
029  ->HMS
030  R/S
031  ROLL
032  9
033  0
034  :
035  1
036  +
037  INT
038  RTN
END

PROGRAM 110
NAME TRAVERSE

001  LBL 0
002  CLREG
003  STO 2
004  x<>y
005  STO 1
006  RTN
007  LBL 1
008  F? 0
009  GTO 9
010  ->H
011  PI
012  R->D
013  +
014  ->HMS
015  LBL 2
016  ->H
017  F? 0
018  GTO 8
019  RCL 0
020  +
021  GTO 8
022  LBL 9
023  x<>y
024  ->H
025  x<>y
026  ENTER
027  ENTER
028  2
029  :
030  INT
031  PI
032  R->D
033  *
034  x<>y
035  LastX
036  *
037  COS
038  ROLL UP
039  *
040  -
041  LBL 8
042  1
043  ->R
044  LBL 7
045  ->P
046  x<>y
047  x>0
048  GTO 9
049  3
050  6
051  0
052  +
053  LBL 9
054  F? 1
055  STO 0
056  STO I
057  ->HMS
058  RTN
059  LBL 3
060  RCL 6
061  R/S
062  ROLL
063  RCL 4
064  ABS
065  R/S
066  ROLL
067  CF 1
068  GSB B
069  SF 1
070  RTN
071  LBL B
072  RCL 2
073  -
074  RCL 3
075  -
076  x<>y
077  RCL 1
078  -
079  RCL 7
080  -
081  GSB 7
082  ->H
083  x<>y
084  GSB 9
085  ROLL UP
086  RCL 5
087  RTN
088  LBL A
089  RCL 0
090  x<>y
091  F? 1
092  GTO 9
093  RCL I
094  x<>y
095  LBL 9
096  F? 1
097  STO + 6
098  STO 5
099  ->R
100  x<>y
101  F? 1
102  GTO 9
103  RCL 3
104  +
105  RCL 2
106  +
107  x<>y
108  RCL 7
109  +
110  RCL 1
111  +
112  RCL I
113  GTO 8
114  LBL 9
115  STO + 3 
116  ABS
117  STO + 9
118  ROLL
119  LastX
120  2
121  :
122  RCL 3
123  -
124  x<>y
125  STO + 7
126  *
127  STO + 4
128  LastX
129  ABS
130  STO + 8
131  RCL 3
132  RCL 2
133  +
134  RCL 7
135  RCL 1
136  +
137  RCL 0
138  LBL 8
139  ->HMS
140  ROLL
END  
     
PROGRAM 111
NAME TRAV. ADJUST
     
001  LBL 0
002  CF 0
003  STO 1
004  ROLL
005  -
006  STO 7
007  RTN
008  LBL 1
009  STO 2
010  ROLL
011  -
012  STO 3
013  GTO 3
014  LBL 2
015  F? 0
016  GTO 8
017  0
018  STO 6
019  STO 8
020  STO 9
021  ROLL
022  LBL 8
023  RCL .0
024  x<>y
025  STO .0
026  -
027  ABS
028  STO + 9
029  x<>y
030  RCL 5
031  x<>y
032  STO 5
033  -
034  ABS
035  STO + 8
036  ->P
037  STO + 6
038  SF 0
039  RTN
040  LBL 3
041  RCL 1
042  STO 4
043  STO 5
044  RCL 2
045  STO 0
046  STO .0
047  RTN
048  LBL A
049  RCL .0
050  CHS
051  x<>y
052  STO .0
053  +
054  STO + 0
055  x<>y
056  RCL 5
057  CHS
058  x<>y
059  STO 5
060  +
061  STO + 4
062  ->P
063  RCL 3
064  RCL 6
065  :
066  x<>y
067  *
068  STO - 0
069  LastX
070  RCL 7
071  RCL 6
072  :
073  *
074  CHS
075  GTO 9
076  LBL B
077  RCL .0
078  CHS
079  x<>y
080  STO .0
081  +
082  ENTER
083  ABS
084  RCL 9
085  :
086  RCL 3
087  *
088  -
089  STO + 0
090  x<>y
091  RCL 5
092  -
093  ENTER
094  STO + 5
095  ABS
096  RCL 8
097  :
098  RCL 7
099  *
100  -
101  LBL 9
102  STO + 4
103  RCL 4
104  R/S
105  RCL 0
106  RTN
END

PROGRAM 112
NAME BEARING

001  LBL 0
002       x<>y
003  ->H
004  x<>y
005  ENTER
006  ENTER
007  2
008  :
009  INT
010  PI
011  R->D
012  *
013  x<>y
014  LastX
015  *
016  COS
017  ROLL UP
018  *
019  -    
020  1    
021  ->R  
022  GSB 8
023  GTO 9
024  LBL 1
025  ->H  
026  LBL 9
027  RCL 6
028  STO 4
029  ROLL
030  STO 6
031  ->HMS
032  RTN
033  LBL 2
034  RCL 7
035  STO 5
036  ROLL
037  STO 7
038  RTN
039  LBL A
040  GSB 7
041  RCL 6
042  RCL 9
043  -
044  SIN
045  RCL 8
046  *
047  RCL 6
048  RCL 4
049  -
050  SIN
051  :
052  STO 5
053  GTO 6
054  LBL B
055  GSB 7
056  RCL 5
057  ->P
058  x^2
059  RCL 7
060  x^2
061  -
062  RCL 8
063  :
064  RCL 5
065  :
066  2
067  :
068  COS-1
069  RCL 9
070  x<>y
071  -
072  STO I
073  LastX
074  RCL 9
075  +
076  STO 4
077  GSB 6
078  R/S
079  RCL 4
080  X<>I
081  STO 4
082  LBL 6
083  RCL 4
084  RCL 5
085  ->R
086  RCL 0
087  +
088  R/S
089  x<>y
090  RCL 1
091  +
092  R/S
093  RCL 3
094  -
095  x<>y
096  RCL 2
097  -
098  GSB 8
099  ->HMS
100  R/S
101  x<>y
102  R/S
103  RCL 4
104  RCL 5
105  ->R
106  GSB 8
107  ->HMS
108  R/S
109  x<>y
110  RTN
111  LBL 7
112  RCL 3
113  RCL 1
114  -
115  RCL 2
116  RCL 0
117  -
118  GSB 8
119  STO 9
120  x<>y
121  STO 8
122  RTN
123  LBL 8
124  ->P
125  x<>y
126  x>0
127  RTN
128  3
129  6
130  0
131  +
132  RTN
END

PROGRAM 113
NAME BEARING DIST

001  LBL 0
002  x<>y
003  ->H
004  x<>y
005  ENTER
006  ENTER
007  2
008  :
009  INT
010  PI
011  R->D
012  *
013  x<>y
014  LastX
015  *
016  COS
017  ROLL UP
018  *
019  -
020  1
021  ->R
022  GSB 8
023  GTO 9
024  LBL 1
025  ->H
026  LBL 9
027  RCL 6
028  STO 4
029  ROLL
030  STO 6
031  ->HMS
032  RTN
033  LBL 2
034  RCL 7
035  STO 5
036  ROLL
037  STO 7
038  RTN
039  LBL A
040  GSB 7
041  RCL 6
042  RCL 9
043  -
044  SIN
045  RCL 8
046  *
047  STO 7
048  LBL B
049  GSB 7
050  RCL 7
051  x^2
052  RCL 6
053  STO 4
054  RCL 9
055  -
056  RCL 8
057  ->R
058  ROLL
059  x^2
060  -
061  SQRT
062  ROLL UP
063  x<>y
064  -
065  STO I
066  LastX
067  ROLL UP
068  +
069  STO 5
070  GSB 6
071  R/S
072  RCL 5
073  X<>I
074  STO 5
075  LBL 6
076  RCL 4
077  RCL 5
078  ->R
079  RCL 0
080  +
081  R/S
082  x<>y
083  RCL 1
084  +
085  R/S
086  RCL 3
087  -
088  x<>y
089  RCL 2
090  -
091  GSB 8
092  ->HMS
093  R/S
094  x<>y
095  R/S
096  RCL 4
097  RCL 5
098  ->R
099  GSB 8
100  ->HMS
101  R/S
102  x<>y
103  RTN
104  LBL 7
105  RCL 3
106  RCL 1
107  -
108  RCL 2
109  RCL 0
110  -
111  GSB 8
112  STO 9
113  x<>y
114  STO 8
115  RTN
116  LBL 8
117  ->P
118  x<>y
119  x>0
120  RTN
121  3
122  6
123  0
124  +
125  RTN
END

PROGRAM 114
NAME CURVE SOLUT.

001  LBL 1
002  ->H
003  EEX
004  2
005  x<>y
006  :
007  R->D
008  LBL 2
009  STO 0
010  SF 0
011  RTN
012  LBL 3
013  ->H
014  2
015  :
016  STO 1
017  CF 0
018  RTN
019  LBL 4
020  R->D
021  F? 0
022  GTO 9
023  RCL 1
024  2
025  *
026  :
027  STO 0
028  RTN
029  LBL 9
030  RCL 0
031  :
032  2
033  :
034  STO 1
035  RTN
036  LBL 5
037  2
038  :
039  F? 0
040  GTO 9
041  RCL 1
042  SIN
043  :
044  STO 0
045  RTN
046  LBL 9
047  RCL 0
048  :
049  SIN-1
050  STO 1
051  RTN
052  LBL 6
053  F? 0
054  GTO 9
055  RCL 1
056  2
057  :
058  TAN
059  :
060  GTO 7
061  LBL 9
062  RCL 0
063  :
064  1
065  +
066  1/x
067  COS-1
068  STO 1
069  RTN
070  LBL 7
071  F? 0
072  GTO 9
073  RCL 1
074  TAN
075  :
076  STO 0
077  RTN
078  LBL 9
079  RCL 0
080  :
081  TAN-1
082  STO 1
083  RTN
084  LBL 8
085  F? 0
086  GTO 9
087  1
088  RCL 1
089  COS
090  -
091  :
092  STO 0
093  RTN
094  LBL 9
095  RCL 0
096  :
097  1
098  x<>y
099  -
100  COS-1
101  STO 1
102  RTN
103  LBL A
104  EEX
105  2
106  RCL 0
107  R/S
108  :
109  R->D
110  ->HMS
111  R/S
112  RCL 1
113  2
114  *
115  ->HMS
116  R/S
117  LastX
118  RCL 0
119  *
120  D->R
121  STO 2
122  RTN
123  LBL B
124  RCL 1
125  TAN
126  RCL 0
127  *
128  STO 4
129  R/S
130  RCL 1
131  SIN
132  RCL 0
133  *
134  2
135  *
136  STO 3
137  R/S
138  1
139  RCL 1
140  COS
141  -
142  RCL 0
143  *
144  R/S
145  RCL 1
146  2
147  :
148  TAN
149  RCL 4
150  *
151  RTN
152  LBL 0
153  RCL 0
154  x^2
155  RCL 1
156  *
157  D->R
158  R/S
159  ENTER
160  ENTER
161  RCL 1
162  RCL 0
163  ->R
164  *
165  -
166  R/S    
167  RCL 1  
168  TAN    
169  RCL 0  
170  x^2    
171  *      
172  ROLL UP
173  -
END

PROGRAM 115
NAME HORIZ. CURVE

001  LBL 0
002  STO 1
003  SF 2
004  RTN
005  LBL 1
006  STO 5
007  CF 2
008  RTN
009  LBL 2
010  GSB 9
011  2
012  0
013  0
014  RCL 0
015  :
016  ->HMS
017  RTN
018  LBL 3
019  ->H
020  EEX
021  2
022  x<>y
023  :
024  R->D
025  GSB 9
026  RCL 3
027  RTN
028  LBL 9
029  STO 3
030  D->R
031  2
032  *
033  STO 0
034  RTN
035  LBL A
036  ->H
037  2
038  :
039  STO 4
040  RCL 0
041  *
042  STO 6
043  R/S
044  RCL 4
045  TAN
046  RCL 3
047  *
048  STO 7
049  RCL 1
050  F? 2
051  GTO 9
052  RCL 5
053  RCL 7
054  -
055  STO 1
056  LBL 9
057  RCL 6
058  +
059  R/S
060  RCL 1
061  STO 2
062  R/S
063  RCL 7
064  +
065  RTN
066  LBL 4
067  4
068  +
069  STO I
070  RTN
071  LBL B
072  RCL 2
073  -
074  STO + 2
075  GSB 9
076  RCL 2
077  RCL 1
078  -
079  GSB 9
080  RCL 5
081  GTO I
082  LBL 9
083  RCL 0
084  :
085  STO 5
086  SIN
087  RCL 3
088  *
089  2
090  *
091  RTN
092  LBL 5
093  ->HMS
094  R/S
095  ROLL
096  R/S
097  ROLL
098  RTN
099  LBL 6
100  x<>y
101  ->R
102  CHS
103  RCL 7
104  +
105  ->P
106  R/S
107  x<>y
108  ->HMS
109  RTN
110  LBL 8
111  RCL 4
112  x<>y
113  -
114  LBL 7
115  x<>y
116  ->R
117  R/S
118  x<>y
119  RTN
END
