; HP-29 Navigation Solutions

HP29C

PROGRAM 142
NAME DIST BEYOND

001  LBL 1
002  ->H
003  RCL 1
004  RCL 2
005  SQRT
006  .
007  9
008  7
009  x
010  -
011  6
012  0
013  :
014  +
015  TAN
016  2
017  .
018  4
019  6
020  EEX
021  CHS
022  4
023  :
024  STO 5
025  RCL 3
026  RCL 2
027  -
028  .
029  7
030  4
031  7
032  3
033  6
034  :
035  SQRT
036  ->P
037  RCL 5
038  -
039  R/S
040  LBL 2
041  RCL 3
042  SQRT
043  1
044  .
045  1
046  4
047  4
048  x
049  LSTX
050  RCL 2
051  SQRT
052  x
053  R/S
054  +
055  R/S
END

PROGRAM 143
NAME DIST SHORT

001  LBL 1
002  ->H
003  RCL 1
004  RCL 2
005  SQRT
006  .
007  9
008  7
009  x
010  +
011  GSB 0
012  RCL 2
013  x<>y
014  :
015  GTO 9
016  LBL 2
017  ->H
018  RCL 1
019  GSB 0
020  :
021  LBL 9
022  R/S
023  6
024  0
025  7
026  6
027  :
028  R/S
029  LBL 3
030  ->H
031  RCL 1
032  GSB 0
033  x
034  R/S
035  LBL 0
036  6
037  0
038  :
039  +
040  TAN
041  RTN
END

PROGRAM 144
NAME DIST OBJECT

001  LBL 1
002  STO 2
003  x<>y
004  STO 1
005  R/S
006  LBL 3
007  ->H
008  x
009  LBL 2
010  RCL 2
011  RCL 1
012  -
013  SIN
014  :
015  RCL 1
016  SIN
017  x
018  STO 4
019  RCL 2
020  SIN
021  x
022  ABS
023  RCL 4
024  LSTX
025  RCL 1
026  SIN
027  :
028  ABS
029  R/S
END

PROGRAM 145
NAME VELOCITY TRIANGLE

001  LBL 1
002  STO 5
003  x<>y
004  STO 3
005  RCL 1
006  +
007  RCL 2
008  +
009  GSB 9
010  STO 4
011  R/S
012  LBL 2
013  STO 9
014  x<>y
015  STO 8
016  R/S
017  LBL 3
018  STO 7
019  x<>y
020  STO 6
021  R/S
022  LBL 4
023  GSB 7
024  RCL 8
025  RCL 9
026  CHS
027  GSB 0
028  STO 4
029  RCL 1
030  -
031  RCL 2
032  -
033  GSB 9
034  STO 3
035  x<>y
036  STO 5
037  R/S
038  LBL 5
039  GSB 7
040  RCL 4
041  RCL 5
042  CHS
043  GSB 0
044  STO 8
045  x<>y
046  STO 9
047  R/S
048  LBL 6
049  RCL 4
050  RCL 5
051  ->R
052  STO .0
053  x<>y
054  RCL 8
055  RCL 9
056  GSB 0
057  STO 6
058  x<>y
059  STO 7
060  R/S
061  LBL 7
062  RCL 6
063  RCL 7
064  ->R
065  STO .0
066  x<>y
067  RTN
068  LBL 0
069  ->R
070  STO + .0
071  ROLL
072  +
073  RCL .0
074  ->P
075  x<>y
076  GSB 9
077  RTN
078  LBL 9
079  3
080  6
081  0
082  ->R
083  ->P
084  x<>y
085  x<0?
086  GTO 8
087  x<>y
088  ROLL
089  RTN
090  LBL 8
091  +
092  RTN
END

PROGRAM 146
NAME COURSE STEER

001  LBL 1
002  ->H
003  x<>y
004  ->H
005  STO .1
006  ROLL
007  x<>y
008  ->H
009  -
010  CHS
011  STO .2
012  ROLL
013  ->H
014  STO - .1
015  +
016  2
017  :
018  COS
019  RCL .2
020  x
021  RCL .1
022  ->P
023  6
024  0
025  x
026  STO .1
027  x<>y
028  GSB 9
029  STO 6
030  x<>y
031  R/S
032  LBL 2
033  STO 5
034  RCL 6
035  RCL 8
036  RCL 6
037  -
038  SIN
039  RCL 9
040  x
041  RCL 5
042  :
043  SIN-1
044  -
045  GSB 9
046  RCL 5
047  GSB 7
048  GSB 0
049  x<>y
050  STO 7
051  GSB 7
052  CHS
053  GSB 0
054  RCL 1
055  -
056  RCL 2
057  -
058  GSB 9
059  R/S
060  RCL .1
061  RCL 7
062  R/S
063  :
064  ->HMS
065  R/S
066  LBL 9
067  3
068  6
069  0
070  ->R
071  ->P
072  x<>y
073  x<0?
074  GTO 8
075  x<>y
076  ROLL
077  RTN
078  LBL 8
079  +
080  RTN
081  LBL 0
082  ->R
083  STO + .0
084  ROLL
085  +
086  RCL .0
087  ->P
088  x<>y
089  GSB 9
090  RTN
091  LBL 7
092  ->R
093  STO .0
094  x<>y
095  RCL 8
096  RCL 9
097  RTN
END

PROGRAM 147
NAME TIME ARRIVAL

001  LBL 1
002  4
003  STO 0
004  ROLL
005  GSB 0
006  RCL 1
007  RCL 2
008  :
009  RCL 9
010  :
011  +
012  STO 7
013  RCL 5
014  RCL 9
015  :
016  -
017  LBL 9
018  INT
019  LSTX
020  FRC
021  RCL 9
022  x
023  ->HMS
024  1
025  0
026  0
027  :
028  +
029  R/S
030  RCL 7
031  GTO 9
032  LBL 0
033  FIX 4
034  INT
035  LSTX
036  FRC
037  1
038  0
039  0
040  x
041  ->H
042  2
043  4
044  STO 9
045  :
046  +
047  RCL i
048  RCL 9
049  :
050  +
051  RTN
052  LBL 2
053  5
054  STO 0
055  ROLL
056  GSB 0
057  x<>y
058  DSZ
059  GSB 0
060  -
061  RCL 1
062  x<>y
063  :
064  RCL 9
065  :
066  R/S
END

PROGRAM 148
NAME G.CIRCLE NAV

001  LBL 1
002  ->H
003  STO 3
004  ROLL
005  ->H
006  STO 1
007  ROLL
008  ->H
009  STO 4
010  ROLL
011  ->H
012  STO 2
013  RCL 2
014  SIN
015  RCL 1
016  SIN
017  x
018  RCL 2
019  COS
020  RCL 1
021  COS
022  x    
023  RCL 3
024  RCL 4
025  -    
026  STO 0
027  COS  
028  x
029  +
030  STO 5
031  COS-1
032  STO 6
033  6
034  0
035  x
036  R/S
037  RCL 1
038  SIN
039  RCL 2
040  SIN
041  RCL 5
042  x
043  -
044  RCL 2
045  COS
046  :
047  RCL 6
048  SIN
049  :
050  COS-1
051  RCL 0
052  SIN
053  x<0?
054  GTO 9
055  ROLL
056  3
057  6
058  0
059  x<>y
060  -
061  RTN
062  LBL 9
063  ROLL
064  RTN
END

PROGRAM 149
NAME G.CIRCLE COM

001  LBL 1
002  ->H
003  STO 3
004  ROLL
005  ->H
006  STO 1
007  ROLL
008  ->H
009  STO 4
010  ROLL
011  ->H
012  STO 2
013  R/S
014  LBL 2
015  ->H
016  STO 8
017  RCL 4
018  -
019  SIN
020  RCL 1
021  TAN
022  x
023  RCL 8
024  RCL 3
025  -
026  SIN
027  RCL 2
028  TAN
029  x
030  -
031  RCL 3
032  RCL 4
033  -
034  SIN
035  :
036  TAN-1
037  ->HMS
038  R/S
END

PROGRAM 150
NAME COMP SAILING

001  LBL 1
002  ->H
003  STO 3
004  ROLL
005  ->H
006  STO 1
007  ROLL
008  ->H
009  STO 4
010  ROLL
011  ->H
012  STO 2
013  R/S
014  LBL 2
015  TAN
016  STO 5
017  RCL 2
018  TAN
019  x<>y
020  :
021  COS-1
022  RCL 3
023  RCL 4
024  -
025  ENT
026  ABS
027  1
028  8
029  0
030  -
031  x
032  ENT
033  ABS
034  :
035  STO 6
036  CHS
037  x
038  RCL 4
039  LBL 0
040  +
041  1
042  ->R
043  ->P
044  x<>y
045  ->HMS
046  R/S
047  RCL 1
048  TAN
049  RCL 5
050  :
051  COS-1
052  RCL 6
053  x
054  RCL 3
055  GTO 0
END

PROGRAM 151
NAME RHUMB LINE

001  LBL 1
002  ->H
003  STO 3
004  ROLL
005  ->H
006  STO 1
007  ROLL
008  ->H
009  STO 4
010  ROLL
011  ->H
012  STO 2
013  RCL 4
014  RCL 3
015  -
016  STO 0
017  2
018  :
019  SIN
020  SIN-1
021  9
022  0
023  :
024  PI
025  x
026  RCL 1
027  GSB 9
028  RCL 2
029  GSB 9
030  -
031  ->P
032  ROLL
033  STO 5
034  RCL 0
035  SIN
036  SIN-1
037  x<0?
038  GTO 8
039  RCL 5
040  GTO 7
041  LBL 9
042  2
043  :
044  4
045  5
046  +
047  TAN
048  LN
049  RTN
050  LBL 8
051  3
052  6
053  0
054  RCL 5
055  ABS
056  -
057  LBL 7
058  ABS
059  STO 6
060  1
061  8
062  0
063  RCL 0
064  ABS
065  x<=y?
066  GSB 6
067  RCL 1
068  COS
069  x
070  STO 7
071  RCL 1
072  RCL 2
073  -
074  RCL 5
075  COS
076  x!=0?
077  :
078  ENT
079  x=0?
080  RCL 7
081  6
082  0
083  x
084  ABS
085  R/S
086  RCL 6
087  RTN
088  LBL 6
089  3
090  6
091  0
092  x<>y
093  -
094  RTN
095  R/S
END

PROGRAM 152
NAME DEAD RECKONING

001  LBL 1
002  FIX 4
003  ->H
004  STO 2
005  x<>y
006  ->H
007  STO 1
008  R/S
009  LBL 2
010  ->R
011  STO 5
012  ROLL
013  STO 6
014  ROLL
015  ->H
016  STO 7
017  RCL 5
018  x
019  6
020  0
021  :
022  RCL 1
023  +
024  STO 1
025  LSTX
026  x=y?
027  GTO 9
028  GSB 0
029  RCL 1
030  GSB 0
031  :
032  LN
033  RCL 6
034  x
035  RCL 5
036  :
037  1
038  8
039  0
040  x
041  PI
042  LBL 8
043  :
044  RCL 2
045  +
046  1
047  ->R
048  ->P
049  x<>y
050  STO 2
051  RCL 1
052  ->HMS
053  R/S
054  RCL 2
055  ->HMS
056  R/S
057  LBL 0
058  9
059  0
060  +
061  2
062  :
063  TAN
064  RTN
065  LBL 9
066  RCL 6
067  RCL 7
068  x
069  RCL 1
070  COS
071  6
072  0
073  x
074  CHS
075  GTO 8
076  LBL 3
077  ->H
078  x<>y
079  ->H
080  -
081  ABS
082  ->HMS
083  R/S
END

PROGRAM 153
NAME CELESTIAL NAVIGATION

001  LBL 1
002  ->H
003  RCL 9
004  x<>y
005  STO 9
006  x<>y
007  -
008  STO .4
009  RCL .1
010  x
011  STO + 1
012  RCL .4
013  RCL .2
014  x
015  STO + 2
016  RCL .4
017  RCL 8
018  x
019  RCL 7
020  x<>y
021  LBL 3
022  ->R
023  STO + 4
024  2
025  :
026  RCL 4
027  x<>y
028  -
029  COS
030  :
031  STO - 5
032  RCL 1
033  RCL 5
034  -
035  STO 0
036  RCL 5
037  ->HMS
038  RCL 4
039  ->HMS
040  RTN
041  LBL 2
042  ->H
043  RCL 6
044  -
045  ENT
046  TAN
047  1/x
048  6
049  3
050  :
051  -
052  RCL 3
053  +
054  STO .3
055  RCL 0
056  RCL 2
057  COS
058  ->R
059  RCL 4
060  STO .5
061  x<>y
062  ->R
063  STO .4
064  ROLL
065  RCL .5
066  RCL 2
067  SIN
068  ->R
069  STO .5
070  ROLL
071  RCL .4
072  +
073  SIN-1
074  STO .4
075  ROLL
076  RCL .5
077  -
078  ->P
079  ROLL
080  1
081  8
082  0
083  +
084  RCL .3
085  RCL .4
086  -
087  6
088  0
089  x
090  RTN
091  LBL 7
092  ->HMS
093  EEX
094  2
095  :
096  ->H
097  RTN
END

PROGRAM 154
NAME SIGHT REDUCTION

001  LBL 1
002  ->H
003  STO 2
004  ROLL
005  ->H
006  STO 1
007  ROLL
008  ->H
009  STO 0
010  SIN
011  RCL 1
012  SIN
013  x
014  RCL 0
015  COS
016  RCL 1
017  COS
018  x
019  RCL 2
020  COS
021  x
022  +
023  STO 3
024  SIN-1
025  STO 4
026  ->HMS
027  FIX 4
028  R/S
029  FIX 1
030  RCL 1
031  SIN
032  RCL 3
033  RCL 0
034  SIN
035  x
036  -
037  RCL 0
038  COS
039  :
040  RCL 4
041  COS
042  :
043  COS-1
044  RCL 2
045  SIN
046  x<0?
047  GTO 0
048  ROLL
049  3
050  6
051  0
052  x<>y
053  -
054  RTN
055  LBL 0
056  ROLL
057  RTN
058  R/S
END
