The Museum of HP Calculators

Moving Average for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the HP-67 Standard Pac. This program was ported to the HP-41C by reading with the HP-41C card reader and the card reader may be required for operation of this program. This program was entered and uploaded by Tony Duell.

This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.

Documentation Information (CD or source code)
How to get this Program to your Calculator (via HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download

Program Listing

LINE  KEYS
 01 LBL "MVAV67"
 02 LBL 15
 03 LBL a
 04 7CLREG
 05 7P<>S
 06 7CLREG
 07 1
 08 X>Y?
 09 GTO 01
 10 CLX
 11 22
 12 X<>Y
 13 X>Y?
 14 GTO 01
 15 STO 23
 16 1
 17 %
 18 +
 19 STO 25
 20 INT
 21 RTN
 22 LBL 01
 23 RDN
 24 LBL 04
 25 PSE
 26 GTO 04
 27 LBL 10
 28 LBL A
 29 FS? 00
 30 ADV
 31 RCL 24
 32 1
 33 +
 34 FS? 00
 35 7PRTX
 36 X<>Y
 37 FS? 00
 38 7PRTX
 39 RCL IND 25
 40 ST- 00
 41 X<>Y
 42 STO IND 25
 43 ST+ 00
 44 RDN
 45 X<>Y
 46 STO 24
 47 RCL 23
 48 X<=Y?
 49 XEQ 00
 50 7DSZ
 51 GTO 05
 52 RCL 25
 53 101
 54 *
 55 STO 25
 56 LBL 05
 57 RDN
 58 RTN
 59 LBL 00
 60 X<>Y
 61 FS? 00
 62 GTO 00
 63 PSE
 64 LBL 00
 65 RCL 00
 66 RCL 23
 67 /
 68 ENTER
 69 FS? 00
 70 7PRTX
 71 RTN
 72 LBL 11
 73 LBL B
 74 WDTA
 75 RTN
 76 LBL 16
 77 LBL b
 78 FS? 00
 79 GTO 00
 80 1
 81 SF 00
 82 RTN
 83 LBL 00
 84 0
 85 CF 00
 86 RTN
 87 LBL 12
 88 LBL C
 89 ADV
 90 0
 91 LBL 03
 92 RCL 23
 93 X=Y?
 94 RTN
 95 1
 96 %
 97 +
 98 RCL 25
 99 X=Y?
100 FRC
101 STO 25
102 7ISZ
103 RCL IND 25
104 7PRTX
105 R^
106 1
107 +
108 GTO 03
109 LBL 13
110 LBL D
111 RCL 00
112 RCL 24
113 RCL 23
114 X<=Y?
115 X<>Y
116 RDN
117 /
118 RTN
119 STOP
120 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall