Newsgroups: rec.aviation,alt.sources
Path: sparky!uunet!polari!stephsf.com!wengland
From: wengl...@stephsf.com (Bill England)
Subject: Hp41CX Flight Software
Message-ID: <1992May9.93831.28596@stephsf.com>
Date: Sat, 9 May 1992 16:38:31 GMT
Organization: Stephen Software Systems Inc., Tacoma/Seattle, +1 800 829 1684
X-Bytes: 16074
Lines: 839

  Here are several programs written for the HP 41 CX.  

  These programs are not suitable for comercial purposes
  and should only be used by those comfortable with
  customizing and maintaining them.

  I personally prefere a Loran or GPS to the ground speed
  program.  The GS program can be potentially used for 
  other purposes such as road rallys.

  This software is Freely distributable under the terms
  of the GNU copyleft license.


  Have fun and think ahead.


PS:

  (This is cross posted to Alt sources.  It is software
   for an obsolete Hewelett Packard caculator and has no 
   use on PC's, Workstations, etc.  )


#To unpack, delete all lines before this and feed to /bin/sh
echo cpyrht 1>&2
sed -e 's/^X//' >cpyrht <<'END'
X### Warning Preliminary documentation !!!!  #### DRAFT ### DRAFT
X
X Program: Copyright
X Copyright (c) 1988, Stephen Software Systems, Inc.
X Version 2.0
X Author: William S. England (wengl...@stephsf.com)
X
X Purpose: This program displays the copyright message
X	  for other HP41 programs created by SSSI.
X  
X Bugs:    None.
X
X
X-----
XKeyboard layout
X
X  Not interactive.
X
X General instructions:
X
X For use as a program call can be executed manually.
X Has no useful function except for declaring program
X copyright ownership.
X
X
X 01 lbl "CPYRHT		# Global Copyright label.
X 02 cla
X 03 40
X 04 xtoa
X 05 "-| C
X 04 41
X 07 xtoa
X 08 "-| 1988, SSSI
X 09 clx
X 10 aview
X 11 rtn
X 12 end
END
#To unpack, delete all lines before this and feed to /bin/sh
echo grnd_speed 1>&2
sed -e 's/^X//' >grnd_speed <<'END'
X### Warning Preliminary documentation !!!!  #### DRAFT ### DRAFT
X
X Program: Ground Speed.
X Copyright (c) 1988, Stephen Software Systems, Inc.
X Version 2.0
X Author: William S. England (wengl...@stephsf.com)
X
X Purpose: This program implements a ground speed calculation
X	  program using a running average method.  Time inputs
X	  are derived from the built in clock functions of the
X	  HP 41CX.
X  
X Bugs:    Sometimes the HP41 forgets what time it is. This
X	  screws up ETA's and everything else in general. 
X	  The time is too complicated to reset in flight so
X	  when this happens I throw the calc into the back seat, 
X	  curse, and get on with the job.  ;-)
X
X Disclaimer:
X	  A loran or GPS is much nicer.  I stopped using this
X	  program when I put a loran in my plane.  I started 
X	  using it again after my FBO's customer wrecked my 
X	  plane and I had to rent from them again.
X
X      - This program will not help you fly your aircraft!-
X      - I'll take no responsibility for your use or missuse
X      - of this program.  There are no warrentes, guarentees
X      - or any other statments made in regards to this 
X      - program's fitness for use in any purpose, particularly
X      - flying!!!
X
X-----
XKeyboard layout
X
X|          |         |     |      |Start|     Shift R1
X| vel/avel | dst/ete | ETA | From | To  |     ROW 1
X|---------------------------------------|
X|          |         |     |      |     |     Shift R2
X| dlta V   | dlta Dst|     |      |Start|     ROW 2
X
X  Also SF and CF are marked to set/clear Flag 00.  This
X  flag triggers continous "distance to" readouts. Press R/S or 
X  CF 00 to stop continous readout.
X
X Registers:
X 30	Jan 01, current year, format 1.011992
X 31	Clock starting time stamp.
X 32	Distance to go. Enter before pressing start.
X 33
X 34
X 35
X 36 
X 37 
X 38
X
X General instructions:
X
X First you can push the buttons in any order you want. However
X for best results set your estimated dlta V and the estimated
X distance you will travel 'dlta Dst' and the press START either
X just before takeoff or just after leaving the airport traffic
X pattern. 
X
X General Notes:
X
X Entering 0 into dltaV (F) or G dlta Dst (G) will simply recall 
X the values saved.
X
X VEL(A), DIST(B), and ETA(C) only display current status and do
X not change values.
X
X Entering 0 into From(D) or To(E) will clear running average
X and set total average velocity to previous legs velocity.
X This can be very useful if the wrong numbers were keyed in
X and you need to get outside the normal error checking 
X ranges.
X
X
X For example lets say the flight is from TIW to OLM. Distance
X about 20NM, aircraft is PA28 with cruise of 110Knots.
X
X 1) Enter 110 press F.  -> V 110.0
X 2) Enter 35 press G.   -> DIST 20.0
X 3) Before takeoff press START -> D 34.9  T00.19 
X 4) Crossing the shore south of Anderson Island enter 11 press To.
X    ->
X
X... Incomplete Example ...
X
X------
X
X 01 lbl 01		# Time stamp generator. Produces unique time
X 02 time		# based on year and julian date.
X 03 rcl 30		# Equation -> 
X 04 date		## delta_days( year_start,today) *24+ time.
X 05 ddays
X 06 24
X 07 *
X 08 hms+
X 09 rtn
X
X 10 lbl e		# Start, 'The clock is started ...' (Famous NASA quote)
X 11 date
X 12 100			# What was the first day of this year?
X 13 *
X 14 frc
X 15 101
X 16 +
X 17 100 
X 18 /
X 19 sto 30		# Store jan 01, year in 30.
X 20 xeq 01		# Calc Time stamp.
X 21 "START
X 22 aview
X 23 sto 31		# Save Clock start time stamp.
X 24 clx
X 25 gto E
X
X 26 lbl 12		# Miles to target function.
X 27 enter^
X 28 x<-> 33
X 29 sto 36
X 30 -
X 31 chs
X 32 xeq 01		# Calc Time stamp.
X 33 enter^
X 34 x<-> 34
X 35 sto 37
X 36 hms-
X 37 hr
X 38 /
X 39 enter^		# New velocity error dector.
X 40 x<-> 35		
X 41 sto 38
X 42 .58
X 43 *
X 44 x>y?
X 45 gto 13
X 46 2.8
X 47 *
X 48 x<=y?
X 49 gto 13
X 50 rtn
X
X 51 lbl 13		# Error detected! User To/From numbers were out
X 52 fix 0	 	# of range which would have resulted in 
X 53 cf 29		# Unrealistic velocity changes.
X 54 "V			# Display What the new velocity would have been
X 55 arcl 35		# and Beep
X 56 sf 29
X 57 rcl 36
X 58 sto 33
X 59 rcl 37
X 60 sto 34
X 61 rcl 38
X 62 sto 35
X 63 tone 9
X 64 "|- ERROR
X 65 aview
X 66 rtn
X 67 rtn
X
X 68 lbl 11
X 69 xeq 01		# Calc Time stamp.
X 70 rcl 31 		# Get starting time stamp.
X 71 sto 34
X 72 rcl 32
X 73 sto 33
X 74 clx
X 75 rtn
X
X 76 lbl D		# Enter/Inquire miles From Origination.
X 77 x=0?
X 78 gto E
X 79 rcl 32
X 80 -
X 81 chs
X
X 82 lbl E		# Enter/Inquire miles To target.
X 83 x=0?
X 84 xeq 11
X 85 x<>0?
X 86 xeq 12
X
X 87 lbl B 		# Distance to and ETA inquiry.
X 88 fix 1
X 89 xeq 01		# Calc Time stamp.
X 90 rcl 34
X 91 hms-
X 92 hr
X 93 rcl 35
X 94 *
X 95 rnd
X 96 chs
X 97 rcl 33
X 98 +
X 99 "D
X100 arcl X
X101 rcl 35
X102 /
X103 hms
X104 "|- T
X105 100
X106 x<->y
X107 abx
X108 x<=Y?
X109 atime24
X110 x>y?
X111 arcl X
X112 aview
X113 clx
X114 fs? 00 		# Loop through B if flag 00 is set
X115 pse
X116 fs? 00
X117 gto B
X118 rtn
X
X119 lbl A		# Velocity inquiry
X120 fix 0
X121 "V
X122 arcl 35
X123 atan
X124 e^x
X125 "|- Va
X126 rcl 32
X127 rcl 33
X128 -
X129 x=0?
X130 gto 14
X131 rcl 34
X132 rcl 31		# Get starting time stamp.
X133 hms-
X134 hr
X135 /
X
X136 lbl 14
X137 arcl X
X138 aview
X139 clx
X140 rtn
X
X141 lbl C 		# Inquire ETA via ZULU program
X142 rcl 33
X143 rcl 35
X144 /
X145 hms
X146 rcl 34
X147 hms+
X148 xeq 01		# Calc Time stamp.
X149 hms-
X150 fix 4
X151 view X
X152 sf 00
X153 xeq "ZULU
X154 clx
X155 rtn
X
X156 lbl F		# Delta Velocity.
X157 fix 1
X158 x<>0?
X159 sto 35
X160 x<>0?
X161 xeq 11
X162 "V
X163 arcl 35
X164 clx
X165 prompt
X166 gto F
X
X167 lbl G		# Delta Distance.
X168 fix 1
X169 x<>0?
X170 sto 32
X171 x<>0?
X172 xeq 11
X173 "DIST
X174 arcl 32
X175 clx
X176 prompt
X177 gto G
X
X178 lbl "GRSP		# Ground speed initialization routines
X179 xeq "CPYRHT		# Display copyright on startup.
X180 pse
X181 "*GRND SPEED*
X182 aview
X183 clx
X184 rtn
X185 end
X
X
END
#To unpack, delete all lines before this and feed to /bin/sh
echo wcorr 1>&2
sed -e 's/^X//' >wcorr <<'END'
X### Warning Preliminary documentation !!!!  #### DRAFT ### DRAFT
X
X Program: Preflight wind and Time enroute calculator.
X Copyright (c) 1988, Stephen Software Systems, Inc.
X Version 1.0
X Author: William S. England (wengl...@stephsf.com)
X
X Purpose: This program  assists in preforming preflight
X	  calculations for individual legs of a flight.
X	  It's not intened for use during flight.
X  
X Bugs:    
X	  Negative wind direction/velocities are not checked
X	  for.
X
X Disclaimer:
X
X      - This program will not help you fly your aircraft!-
X      - I'll take no responsibility for your use or missuse
X      - of this program.  There are no warrentes, guarentees
X      - or any other statments made in regards to this 
X      - program's fitness for use in any purpose, particularly
X      - use in flying!!!
X
X
XTo use:
X
X  First this routine DOES NOT store the results of multiple legs of
X  a flight.  Normally I store the values manually in registers 01-05
X  of the HP41.
X
X  This program does not compensate for Magnetic deviations!  You
X  must enter those on your flight plan.  Your wind directions etc.
X  should be actual and not magnetic when you get them from flight
X  service.
X  
X  For each leg of the flight:
X
X  1> Enter wind direction and wind velocity. (Press A)
X     (Wind direction is entered as 35.15 for a 15Knot wind
X      from 350 degrees.)
X
X  2> Enter your true corse and press B:
X
X  3> Enter your airspeed and press C:
X
X  4> Press D to discover True Heading and groundspeed.
X
X  5> Enter distance and press F:
X
X  6> Enter Fule burn rate and press G:
X
X  7> Press H to discover Time in route and gallons consumed.
X
X  X> Re-enter items that change for the next leg and recompute
X     steps 4 and 7 for the next Leg.
X
X  Y> A base 10 time is stored in 10 after step 7. You can
X     recall this value and store it in one of the registers
X     01-09 (Press sto A to store in 01, etc.)  These numbers
X     Recalling this number and pressing I will convert it
X     into the Elapsed time/ Burn display of 7.  THIS ASSUMES
X     THAT YOUR BURN RATE IS CONSTANT.
X
X---
X
X  ## Sorry but, I've not had time to comment the code yet ...
X
X 01 lbl "WCORR
X 02 lbl A
X 03 fix 2
X 04 x!=0?
X 05 sto 11
X 06 x!=0?
X 07 sf 00
X 08 rcl 11
X 09 frc
X 10 sto 17
X 11 rcl 11
X 12 int
X 13 sto 16
X 14 37
X 15 x>y?
X 16 gto 01
X 17 clx
X 18 51
X 19 x>y?
X 20 gto 10
X 21 clx
X 22 86 
X 23 x<y?
X 24 gto 10
X 25 50
X 26 st- 16
X 27 1
X 28 st+ 17
X
X 29 lbl 01
X 30 10
X 31 st* 16
X 32 st* 17
X 33 st* 17
X 34 clst
X 35 "wd.wv
X 36 arcl 11
X 37 aview
X 38 rtn
X 39 gto A
X
X 40 lbl B
X 41 fix 0
X 42 x!=0?
X 43 sto 12
X 44 x!=0?
X 45 sf 00
X 46 "TC
X 47 arcl 12
X 48 clx
X 49 prompt
X 50 gto B
X
X 51 lbl C
X 52 fix 0
X 53 x!=0?
X 54 sto 13
X 55 x!=0?
X 56 sf 00
X 57 "TA
X 58 x!=0?
X 59 sf 00
X 60 arcl 13
X 61 clx
X 62 prompt
X 63 gto C
X
X 64 lbl D
X 65 cf 00
X 66 rcl 16 
X 67 rcl 12 
X 68 -
X 69 sin
X 70 rcl 17
X 71 *
X 72 rcl 13
X 73 /
X 74 asin
X 75 rcl 12
X 76 +
X 77 sto 14
X 78 rcl 12 
X 79 -
X 80 cos 
X 81 rcl 13
X 82 *
X 83 rcl 16
X 84 rcl 12
X 85 -
X 86 cos
X 87 rcl 17
X 88 *
X 89 -
X 90 sto 19
X 91 fs? 02
X 92 rtn
X 93 fix 3
X 94 "TH.GS
X 95 1000
X 96 /
X 97 rcl 14
X 98 int
X 99 +
X100 arcl X
X101 enter^
X102 0
X103 prompt
X104 rtn
X
X105 lbl F
X106 fix 1
X107 x!=0?
X108 sto 20 
X109 "DIST
X110 arcl 20
X111 clx
X112 prompt
X113 gto F
X
X114 lbl G
X115 fix 1
X116 x!=0?
X117 sto 15
X118 "BURN
X119 arcl 15
X120 clx 
X121 prompt
X122 gto G
X
X123 lbl H
X124 sf 02 
X125 fs? 00
X126 xeq D
X127 cf 02
X128 rcl 20
X129 rcl 19
X130 /
X131 sto 10
X
X132 lbl I
X133 enter^
X134 fix 2
X135 hms
X136 "T
X137 atime24
X138 "|- B
X139 clx
X140 rcl 15
X141 *
X142 fix 1
X143 arcl X
X144 clx
X145 fix 4
X146 prompt
X
X147 lbl 10
X148 clst
X149 "Wd,ERROR
X150 aview
X151 end
X
END
#To unpack, delete all lines before this and feed to /bin/sh
echo xwind 1>&2
sed -e 's/^X//' >xwind <<'END'
X### Warning Preliminary documentation !!!!  #### DRAFT ### DRAFT
X
X Program: Cross Wind Calculator
X Copyright (c) 1988, Stephen Software Systems, Inc.
X Version 1.0
X Author: William S. England (wengl...@stephsf.com)
X
X Purpose: This program implements a runway cross wind
X	  calculation. for the HP41CV.
X  
X Bugs:    Getting errors sometimes results in an eronous
X	  display when entering landing runway. (It looks 
X	  strange.)
X
X	  It is impossible to hear the error beeps in a noisy
X	  cockpit.
X
X	  Negative wind direction/velocities are not checked
X	  for.
X
X Disclaimer:
X
X      - This program will not help you fly your aircraft!-
X      - I'll take no responsibility for your use or missuse
X      - of this program.  There are no warrentes, guarentees
X      - or any other statments made in regards to this 
X      - program's fitness for use in any purpose, particularly
X      - use in flying!!!
X
X
XTo use:
X
X  Enter wind and velocity and press A.
X  The format should be WIND.VEL 
X  NOTE: Use first two digits of wind ONLY.
X
X  Winds from directions greator than 36 will result in an error.
X
X  For example:  a 15Knot wind from 275 degrees would be entered 
X                as 28.15.
X
X Enter runway you intend to land on and press B.
X
X
X 01 lbl "WRNWY
X
X 02 lbl A
X 03 xeq "WCORR    # Be lazy and reuse the logic from the Wind correction 
X 04 rtn           # program.
X
X 05 gto A
X
X 06 lbl B
X 07 fix 0
X 08 x!=0?
X 09 "RNWAY
X 10 arcl X
X 11 aview
X 12 fix 0
X 13 cf 00
X 14 10
X 15 *
X 16 rcl 16
X 17 -
X 18 sto 18
X 19 sin 
X 20 rcl 17
X 21 *
X 22 enter^
X 23 abs
X 24 x<->y
X 25 "LEFT
X 26 x<0?
X 27 "RGHT
X 28 abs
X 29 arcl X
X 30 10
X 31 x>y?
X 32 gto 01
X 33 tone 5
X 34 tone 8
X 35 tone 9
X
X 36 lbl 01
X 37 rcl 18
X 38 cos
X 39 rcl 17
X 40 *
X 41 enter^
X 42 abs
X 43 sto 19
X 44 x<->y
X 45 x>0?
X 46 gto 10
X 47 x=0?
X 48 gto 10
X 49 tone 9
X 50 tone 7
X 51 tone 9
X 52 tone 7
X 53 "|- T
X 54 arcl 19
X 55 gto 19
X
X 56 lbl 10
X 57 "|- H
X 58 arcl 19
X
X 59 lbl 19
X 60 aview
X 61 clx
X 62 rtn
X
X 63 end
END
#To unpack, delete all lines before this and feed to /bin/sh
echo zulu 1>&2
sed -e 's/^X//' >zulu <<'END'
X Program: Zulu.
X Copyright (c) 1988, Stephen Software Systems, Inc.
X Version 2.0
X Author: William S. England (wengl...@stephsf.com)
X
X Purpose: This program displays date time information with
X	  options to chose the time zone to display.
X
X  
X
X Bugs:    1> Program does NOT compensate for time changes
X	     between standard or daylight savings time.
X
X	  2> Program requires custom editing so that it knows
X	     the number of time zones it is from London.
X
X
X
X-----
XKeyboard layout
X
X| PST  | MST  | CST | EST | HST |     ROW 1
X
X Registers:
X 00	Scratch. Used to save and restor accumulator.
X
X
X General instructions:
X
X First set your calculator so that the normal time dislpay
X is correct for your location.
X
X Second customize line 10 and 44,48,52,56, & 60 for your
X time zone.  (This is obviously a poor design.  I'll fix
X it in the next version.)
X
X Enter H.mm and call ZULU to find a time hh.mm into the future.
X Default is to display the resultant time in Pacific time.
X
X------
X
X 01 lbl "ZULU
X 02 fs?c 00	# Default is Pacific. Change call if you are in a different
X 03 gto A	# time zone.
X 04 "Z		
X 05 sto 00      # Save initial value.
X
X 06 lbl 01
X 07 fix 2
X 08 time
X 09 hms+
X 10 8 		# Pacific.  8 for standard time.  
X  		# Mountain. 7 for standard time. 
X  		# Central.  6 for standard time. 
X  		# Eastern.  5 for standard time. 
X 11 hms+
X 12 enter^
X 13 enter^
X 14 hr
X 15 24
X 16 mod
X 17 hms
X 18 atime24
X 19 "|-
X 20 date
X 21 rcl Z
X 22 hr
X 23 24
X 24 /
X 25 x>0?
X 26 gto 03
X 27 1
X 28 -
X
X 29 lbl 03
X 30 date+
X 31 adate
X 32 aview
X 33 rcl 00
X 34 rtn
X
X 35 lbl 02
X 36 0
X 37 hms+
X 38 x<->y
X 39 sto 00
X 40 hms+
X 41 gto 01
X
X 42 lbl A		# Pacific.
X 43 "P
X 44 -8
X 45 gto 02
X
X 46 lbl B		# Mountian.
X 47 "M
X 48 -7
X 49 gto 02
X
X 50 lbl C		# Central.
X 51 "C
X 52 -6
X 53 gto 02
X
X 54 lbl D		# Eastern.
X 55 "E
X 56 -5
X 57 gto 02
X
X 58 lbl E		# Mid Pacific.
X 59 "H
X 60 -11
X 61 gto 02
X 62 end
X
END
exit 0


-- 
 +-  Bill England,  wengl...@stephsf.COM -----------------------------------+
 |   * *      H -> He +24MeV                                                |
 |  * * * ... Oooo, we're having so much fun making itty bitty suns *       |
 |__ * * ___________________________________________________________________|