HP 41c STAT 1 module version 1A

[Sylvain Cote]

(09-14-2021 01:40 PM)dmh Wrote:  Once I save the ROM, what utility will decode them so I can look at them side by side and compare the FOCAL code?

You do not need to save the ROM for that, just do a PRP "FOCAL-program-label" from your HP-41CV to a virtual IL printer

[Sylvain Cote]

STAT 1B ROM FOCAL programs listings ...

Click on "View a Printable Version" to see full listing.

Sylvain

CAT 2 listing

Code:

STAT 1B
ˇƩBSTAT
ˇƩBSTG
ˇ*BE
ˇƩMMTUG
ˇƩMMTGD
ˇ*MT
ˇ*MD
ˇƩAOVONE
ˇƩAOVTWO
ˇƩANOCOV
ˇƩLIN
ˇƩEXP
ˇƩLOG
ˇƩPOW
ˇƩPOLYP
ˇƩPOLYC
ˇƩMLRXY
ˇƩMLRXYZ
ˇƩPTST
ˇƩTSTAT
ˇƩXSQEV
ˇƩEEFXSQ
ˇƩCTKK
ˇƩCTKKK
ˇƩSPEAR
ˇƩNORMD
ˇƩCHISQD
ˇ*a
ˇ*b

PRP "ƩBSTAT"

Code:

 01◆LBL "ƩBSTAT"
 02◆LBL a
 03 11
 04 XROM "*a"
 05 ƩREG 04
 06 "ƩBSTAT"
 07 ASTO 11
 08 BEEP
 09 AVIEW
 10 STOP
 11◆LBL C
 12 X<>Y
 13 Ʃ-
 14 STOP
 15◆LBL A
 16 X<>Y
 17 Ʃ+
 18 STOP
 19◆LBL E
 20 GTO "*BE"
 21 END

PRP "ƩBSTG" (also includes: "*BE")

Code:

 01◆LBL "ƩBSTG"
 02◆LBL a
 03 11
 04 XROM "*a"
 05 ƩREG 04
 06 "ƩBSTG"
 07 ASTO 11
 08 BEEP
 09 AVIEW
 10 STOP
 11◆LBL C
 12 SF 00
 13◆LBL A
 14 STO 03
 15 FS? 00
 16 CHS
 17 ST+ 09
 18 RDN
 19 STO 02
 20 RDN
 21 STO 01
 22 R↑
 23 R↑
 24 ABS
 25 *
 26 *
 27 FS? 00
 28 CHS
 29 ST+ 08
 30 RCL 02
 31 X↑2
 32 RCL 03
 33 *
 34 FS? 00
 35 CHS
 36 ST+ 07
 37 RCL 02
 38 RCL 03
 39 *
 40 FS? 00
 41 CHS
 42 ST+ 06
 43 RCL 01
 44 X↑2
 45 RCL 03
 46 *
 47 FS? 00
 48 CHS
 49 ST+ 05
 50 RCL 01
 51 RCL 03
 52 *
 53 FS? 00
 54 CHS
 55 ST+ 04
 56 RCL 09
 57 CF 00
 58 STOP
 59◆LBL E
 60◆LBL "*BE"
 61 MEAN
 62 "XBAR"
 63 XEQ 88
 64 X<>Y
 65 "YBAR"
 66 XEQ 88
 67 SDEV
 68 "SX"
 69 XEQ 88
 70 XEQ 09
 71 "SX."
 72 XEQ 88
 73 SDEV
 74 X<>Y
 75 "SY"
 76 XEQ 88
 77 XEQ 09
 78 "SY."
 79 XEQ 88
 80 MEAN
 81 RDN
 82 SDEV
 83 R↑
 84 /
 85 1 E2
 86 *
 87 "VX"
 88 XEQ 88
 89 MEAN
 90 X<>Y
 91 RDN
 92 SDEV
 93 X<>Y
 94 R↑
 95 /
 96 1 E2
 97 *
 98 "VY"
 99 XEQ 88
100 MEAN
101 X<>Y
102 STO 00
103 RCL 08
104 RCL 04
105 RCL 00
106 *
107 -
108 RCL 09
109 1
110 -
111 /
112 STO 10
113 "SXY"
114 XEQ 88
115 RCL 09
116 ENTER↑
117 X<>Y
118 1
119 -
120 /
121 /
122 "SXY."
123 XEQ 88
124 SDEV
125 RCL 10
126 /
127 *
128 1/X
129 "GXY"
130 XEQ 88
131 RCL 04
132 "ƩX"
133 XEQ 88
134 RCL 06
135 "ƩY"
136 XEQ 88
137 RCL 08
138 "ƩXY"
139 XEQ 88
140 RCL 05
141 "ƩX2"
142 XEQ 88
143 RCL 07
144 "ƩY2"
145◆LBL 88
146 "="
147 ARCL X
148 AVIEW
149 RTN
150 GTO E
151◆LBL a
152 GTO IND 11
153◆LBL 09
154 RCL 09
155 ENTER↑
156 X<>Y
157 1
158 -
159 /
160 SQRT
161 /
162 RTN
163 END

PRP "ƩMMTUG"

Code:

 01◆LBL "ƩMMTUG"
 02◆LBL a
 03 11
 04 XROM "*a"
 05 "ƩMMTUG"
 06 ASTO 11
 07 BEEP
 08 AVIEW
 09 STOP
 10◆LBL C
 11 SF 00
 12◆LBL A
 13 ENTER↑
 14 1
 15 XROM "*MD"
 16 STOP
 17◆LBL E
 18 GTO "*MT"
 19 END

PRP "ƩMMTGD" (also includes: "*MT" & "*MD")

Code:

 01◆LBL "ƩMMTGD"
 02◆LBL a
 03 11
 04 XROM "*a"
 05 "ƩMMTGD"
 06 ASTO 11
 07 BEEP
 08 AVIEW
 09 STOP
 10◆LBL C
 11 SF 00
 12◆LBL A
 13 XROM "*MD"
 14 STOP
 15◆LBL E
 16◆LBL "*MT"
 17 RCL 02
 18 RCL 01
 19 /
 20 STO 06
 21 "XBAR"
 22 XEQ 88
 23 RCL 03
 24 RCL 01
 25 /
 26 RCL 06
 27 X↑2
 28 STO 08
 29 -
 30 STO 07
 31 "M2"
 32 XEQ 88
 33 RCL 04
 34 RCL 03
 35 RCL 06
 36 *
 37 3
 38 *
 39 -
 40 RCL 01
 41 /
 42 RCL 06
 43 RCL 08
 44 *
 45 2
 46 *
 47 +
 48 STO 09
 49 "M3"
 50 XEQ 88
 51 RCL 05
 52 RCL 06
 53 RCL 04
 54 *
 55 4
 56 *
 57 -
 58 RCL 08
 59 RCL 03
 60 *
 61 6
 62 *
 63 +
 64 RCL 01
 65 /
 66 RCL 08
 67 X↑2
 68 3
 69 *
 70 -
 71 STO 06
 72 "M4"
 73 XEQ 88
 74 RCL 09
 75 RCL 07
 76 1.5
 77 Y↑X
 78 /
 79 "GM1"
 80 XEQ 88
 81 RCL 06
 82 RCL 07
 83 X↑2
 84 /
 85 "GM2"
 86◆LBL 88
 87 "="
 88 ARCL X
 89 AVIEW
 90 RTN
 91 GTO E
 92◆LBL a
 93 GTO IND 11
 94◆LBL "*MD"
 95 FS? 00
 96 CHS
 97 ST+ 01
 98 X<>Y
 99 *
100 ST+ 02
101 LASTX
102 *
103 ST+ 03
104 LASTX
105 *
106 ST+ 04
107 LASTX
108 *
109 ST+ 05
110 1
111 FS? 00
112 CHS
113 ST+ 00
114 RCL 00
115 CF 00
116 RTN
117 END

PRP "ƩAOVONE"

Code:

 01◆LBL "ƩAOVONE"
 02◆LBL a
 03 ƩREG 14
 04 19
 05 XROM "*a"
 06 "ƩAOVONE"
 07 BEEP
 08 AVIEW
 09 STOP
 10◆LBL C
 11 Ʃ-
 12 GTO 00
 13◆LBL A
 14 Ʃ+
 15◆LBL 00
 16 RCL 14
 17 RCL 15
 18 STO 12
 19 RDN
 20 STO 11
 21 RDN
 22 STOP
 23 1
 24 ST+ 09
 25 RCL 11
 26 ST+ 07
 27 RCL 12
 28 ST+ 04
 29 RCL 19
 30 ST+ 06
 31 RCL 11
 32 X↑2
 33 RCL 19
 34 /
 35 ST+ 05
 36 MEAN
 37 "XBAR"
 38 XEQ 88
 39 SDEV
 40 "S"
 41 XEQ 88
 42 RCL 11
 43 CLƩ
 44 "SUM"
 45 XEQ 88
 46 STOP
 47◆LBL E
 48 RCL 04
 49 RCL 07
 50 X↑2
 51 RCL 06
 52 /
 53 STO 08
 54 -
 55 STO 00
 56 "TSS"
 57 XEQ 88
 58 RCL 05
 59 RCL 08
 60 -
 61 STO 01
 62 "TRSS"
 63 XEQ 88
 64 RCL 00
 65 RCL 01
 66 -
 67 STO 02
 68 "ESS"
 69 XEQ 88
 70 RCL 09
 71 1
 72 -
 73 STO 03
 74 "DF1"
 75 XEQ 88
 76 RCL 06
 77 RCL 09
 78 -
 79 STO 11
 80 "DF2"
 81 XEQ 88
 82 RCL 11
 83 RCL 03
 84 +
 85 "DF3"
 86 XEQ 88
 87 RCL 01
 88 RCL 03
 89 /
 90 "TRMS"
 91 XEQ 88
 92 RCL 02
 93 RCL 11
 94 /
 95 "EMS"
 96 XEQ 88
 97 /
 98 "F"
 99◆LBL 88
100 "="
101 ARCL X
102 AVIEW
103 RTN
104 GTO E
105 END

PRP "ƩAOVTWO"

Code:

 01◆LBL "ƩAOVTWO"
 02◆LBL a
 03 17
 04 XROM "*a"
 05 ƩREG 05
 06 3
 07 STO 17
 08 1
 09 STO 00
 10 "ƩAOVTWO"
 11 BEEP
 12 AVIEW
 13 STOP
 14◆LBL C
 15 Ʃ-
 16 STOP
 17 GTO 00
 18◆LBL A
 19 Ʃ+
 20 STOP
 21◆LBL 00
 22 RCL 05
 23 ST+ 01
 24 X↑2
 25 ST+ IND 17
 26 RCL 06
 27 ST+ 02
 28 RCL 05
 29 RCL 10
 30 CLƩ
 31 STO 16
 32 1
 33 ST+ 00
 34 RDN
 35 RDN
 36 "SUM"
 37 XEQ 88
 38 FS? 55
 39 STOP
 40 4
 41 STO 17
 42 1
 43 STO 00
 44 "COLUMN-WISE"
 45 AVIEW
 46 STOP
 47◆LBL E
 48 RCL 00
 49 STO 08
 50 1
 51 ST- 08
 52 RCL 03
 53 RCL 08
 54 /
 55 RCL 01
 56 2
 57 /
 58 X↑2
 59 RCL 08
 60 /
 61 RCL 16
 62 /
 63 STO 11
 64 -
 65 STO 12
 66 "RSS"
 67 XEQ 88
 68 RCL 04
 69 RCL 16
 70 /
 71 RCL 11
 72 -
 73 STO 13
 74 "CSS"
 75 XEQ 88
 76 RCL 02
 77 2
 78 /
 79 RCL 11
 80 -
 81 "TSS"
 82 XEQ 88
 83 RCL 12
 84 -
 85 RCL 13
 86 -
 87 STO 07
 88 "ESS"
 89 XEQ 88
 90 RCL 16
 91 1
 92 -
 93 STO 14
 94 "DF1"
 95 XEQ 88
 96 RCL 08
 97 1
 98 -
 99 STO 15
100 "DF2"
101 XEQ 88
102 *
103 ST/ 07
104 "DF3"
105 XEQ 88
106 RCL 12
107 RCL 14
108 /
109 RCL 07
110 /
111 "F1"
112 XEQ 88
113 RCL 13
114 RCL 15
115 /
116 RCL 07
117 /
118 "F2"
119◆LBL 88
120 "="
121 ARCL X
122 AVIEW
123 RTN
124 GTO E
125 END

PRP "ƩANOCOV"

Code:

 01◆LBL "ƩANOCOV"
 02◆LBL a
 03 25
 04 XROM "*a"
 05 ƩREG 14
 06 FC? 55
 07 CF 21
 08 "ƩANOCOV"
 09 AVIEW
 10 PSE
 11 SF 21
 12 BEEP
 13 XEQ 12
 14 STOP
 15◆LBL C
 16 X<>Y
 17 Ʃ-
 18 STOP
 19 GTO 00
 20◆LBL A
 21 X<>Y
 22 Ʃ+
 23 STOP
 24◆LBL 00
 25 RCL 14
 26 ST+ 04
 27 RCL 15
 28 ST+ 05
 29 RCL 16
 30 ST+ 06
 31 RCL 17
 32 ST+ 07
 33 RCL 18
 34 ST+ 08
 35 RCL 19
 36 ST+ 09
 37 RCL 14
 38 X↑2
 39 RCL 19
 40 /
 41 ST+ 12
 42 RCL 16
 43 X↑2
 44 RCL 19
 45 /
 46 ST+ 02
 47 RCL 14
 48 RCL 16
 49 *
 50 RCL 19
 51 /
 52 ST+ 13
 53 RCL 16
 54 RCL 14
 55 "SX"
 56 XEQ 88
 57 X<>Y
 58 "SY"
 59 XEQ 88
 60◆LBL 12
 61 CLƩ
 62 1
 63 ST+ 25
 64 RCL 25
 65 "NEW I"
 66 XEQ 88
 67 RTN
 68◆LBL E
 69 RCL 05
 70 RCL 04
 71 XEQ 08
 72 STO 01
 73 "TSSX"
 74 XEQ 88
 75 RCL 12
 76 RCL 04
 77 XEQ 08
 78 STO 00
 79 "ASSX"
 80 XEQ 88
 81 -
 82 STO 03
 83 "WSSX"
 84 XEQ 88
 85◆LBL 01
 86 RCL 07
 87 RCL 06
 88 XEQ 08
 89 STO 11
 90 "TSSY"
 91 XEQ 88
 92 RCL 02
 93 RCL 06
 94 XEQ 08
 95 STO 10
 96 "ASSY"
 97 XEQ 88
 98 -
 99 STO 20
100 "WSSY"
101 XEQ 88
102◆LBL 02
103 RCL 25
104 2
105 -
106 STO 14
107 "DF1"
108 XEQ 88
109 RCL 09
110 RCL 25
111 -
112 1
113 +
114 STO 15
115 "DF2"
116 XEQ 88
117 RCL 00
118 *
119 RCL 14
120 RCL 03
121 *
122 /
123 "FX"
124 XEQ 88
125 RCL 10
126 RCL 14
127 /
128 RCL 20
129 RCL 15
130 /
131 /
132 "FY"
133 XEQ 88
134 RCL 08
135 RCL 04
136 RCL 06
137 *
138 RCL 09
139 /
140 -
141 STO 21
142 "TSP"
143 XEQ 88
144 LASTX
145 RCL 13
146 -
147 CHS
148 "ASP"
149 XEQ 88
150 -
151 STO 22
152 "WSP"
153 XEQ 88
154 RCL 11
155 RCL 21
156 X↑2
157 RCL 01
158 /
159 -
160 "TSSY."
161 XEQ 88
162 RCL 20
163 RCL 22
164 X↑2
165 RCL 03
166 /
167 -
168 STO 23
169 "WSSY."
170 XEQ 88
171 -
172 STO 24
173 "ASSY."
174 XEQ 88
175 RCL 14
176 "DF3"
177 XEQ 88
178 RCL 15
179 1
180 -
181 "DF4"
182 XEQ 88
183 X<>Y
184 RCL 24
185 X<>Y
186 /
187 "AMSY."
188 XEQ 88
189 X<>Y
190 RCL 23
191 X<>Y
192 /
193 "WMSY."
194 XEQ 88
195 /
196 "F"
197◆LBL 88
198 "="
199 ARCL X
200 AVIEW
201 RTN
202 GTO E
203◆LBL 08
204 X↑2
205 RCL 09
206 /
207 -
208 RTN
209 END

PRP "ƩLIN" (also includes: "ƩEXP", "ƩLOG" & "ƩPOW")

Code:

 01◆LBL "ƩLIN"
 02 5
 03 "ƩLIN"
 04 GTO 13
 05◆LBL "ƩEXP"
 06 6
 07 "ƩEXP"
 08 GTO 13
 09◆LBL "ƩLOG"
 10 7
 11 "ƩLOG"
 12 GTO 13
 13◆LBL "ƩPOW"
 14 8
 15 "ƩPOW"
 16◆LBL 13
 17 15
 18 XROM "*a"
 19 RDN
 20 STO 00
 21 ASTO 08
 22 ƩREG 10
 23 BEEP
 24 AVIEW
 25 STOP
 26◆LBL C
 27 X<>Y
 28 XEQ IND 00
 29 Ʃ-
 30 STOP
 31◆LBL A
 32 X<>Y
 33 XEQ IND 00
 34 Ʃ+
 35 STOP
 36◆LBL 07
 37 LN
 38 RTN
 39◆LBL 08
 40 LN
 41◆LBL 06
 42 X<>Y
 43 LN
 44 X<>Y
 45 RTN
 46◆LBL E
 47 RCL 15
 48 RCL 11
 49 RCL 10
 50 RCL 10
 51 XEQ 09
 52 STO 03
 53 RCL 12
 54 RCL 11
 55 RCL 10
 56 RCL 14
 57 XEQ 09
 58 RCL 03
 59 /
 60 STO 04
 61 XEQ IND 00
 62 STO 06
 63 RCL 15
 64 RCL 14
 65 RCL 10
 66 RCL 12
 67 XEQ 09
 68 RCL 03
 69 /
 70 STO 05
 71◆LBL 03
 72 RCL 04
 73 RCL 12
 74 *
 75 RCL 05
 76 RCL 14
 77 *
 78 +
 79 RCL 12
 80 X↑2
 81 RCL 15
 82 /
 83 STO 09
 84 -
 85 RCL 13
 86 RCL 09
 87 -
 88 /
 89 "R2"
 90 XEQ 88
 91 RCL 06
 92 "a"
 93 XEQ 88
 94 RCL 05
 95 "b"
 96 GTO 01
 97◆LBL 06
 98◆LBL 08
 99 E↑X
100◆LBL 05
101◆LBL 07
102 RTN
103◆LBL 09
104 *
105 STO 07
106 RDN
107 *
108 RCL 07
109 -
110 RTN
111◆LBL 00
112 "Y."
113◆LBL 01
114 "="
115 ARCL X
116 AVIEW
117 FS? 55
118 STOP
119◆LBL 04
120 GTO IND 00
121◆LBL 08
122 RCL 05
123 Y↑X
124 GTO 09
125◆LBL 06
126 RCL 05
127 *
128 E↑X
129◆LBL 09
130 RCL 06
131 *
132 GTO 00
133◆LBL 07
134 LN
135◆LBL 05
136 RCL 05
137 *
138 RCL 06
139 +
140 GTO 00
141◆LBL 88
142 "="
143 ARCL X
144 AVIEW
145 RTN
146◆LBL a
147 GTO IND 08
148 END

PRP "ƩPOLYP" (also includes: "ƩPOLYC", "ƩMLRXY" & "ƩMLRXYZ")

Code:

 01◆LBL "ƩPOLYP"
 02 44
 03 XROM "*a"
 04 SF 01
 05 SF 02
 06 "ƩPOLYP"
 07 ASTO 26
 08 GTO 00
 09◆LBL "ƩPOLYC"
 10 44
 11 XROM "*a"
 12 SF 02
 13 "ƩPOLYC"
 14 ASTO 26
 15 GTO 00
 16◆LBL "ƩMLRXY"
 17 44
 18 XROM "*a"
 19 "ƩMLRXY"
 20 ASTO 26
 21 SF 01
 22 GTO 00
 23◆LBL "ƩMLRXYZ"
 24◆LBL 33
 25 44
 26 XROM "*a"
 27 33
 28 STO 26
 29 "ƩMLRXYZ"
 30◆LBL 00
 31 CF 04
 32 BEEP
 33 AVIEW
 34 STOP
 35◆LBL C
 36 SF 00
 37◆LBL A
 38 FS? 02
 39 XEQ 55
 40 FS? 02
 41 GTO 01
 42 FS? 01
 43 0
 44 FS? 01
 45 X<>Y
 46◆LBL 01
 47 STO 23
 48 FS? 00
 49 CHS
 50 ST+ 41
 51 ST+ 01
 52 X↑2
 53 FS? 00
 54 CHS
 55 ST+ 30
 56 RDN
 57 STO 22
 58 FS? 00
 59 CHS
 60 ST+ 34
 61 ST+ 08
 62 ST+ 17
 63 X↑2
 64 FS? 00
 65 CHS
 66 ST+ 40
 67 ST+ 20
 68 RDN
 69 STO 21
 70 FS? 00
 71 CHS
 72 ST+ 33
 73 ST+ 07
 74 ST+ 13
 75 X↑2
 76 FS? 00
 77 CHS
 78 ST+ 38
 79 ST+ 15
 80 RDN
 81 STO 20
 82 FS? 00
 83 CHS
 84 ST+ 32
 85 ST+ 06
 86 ST+ 09
 87 X↑2
 88 FS? 00
 89 CHS
 90 ST+ 35
 91 ST+ 10
 92 RCL 20
 93 RCL 21
 94 *
 95 FS? 00
 96 CHS
 97 ST+ 36
 98 ST+ 11
 99 ST+ 14
100 RCL 20
101 RCL 23
102 *
103 FS? 00
104 CHS
105 ST+ 42
106 ST+ 02
107 RCL 21
108 RCL 22
109 *
110 FS? 00
111 CHS
112 ST+ 39
113 ST+ 16
114 ST+ 19
115 RCL 21
116 RCL 23
117 *
118 FS? 00
119 CHS
120 ST+ 43
121 ST+ 03
122 RCL 22
123 RCL 23
124 *
125 FS? 00
126 CHS
127 ST+ 44
128 ST+ 04
129 RCL 20
130 RCL 22
131 *
132 FS? 00
133 CHS
134 ST+ 37
135 ST+ 12
136 ST+ 18
137 1
138 FS? 00
139 CHS
140 ST+ 25
141 ST+ 31
142 ST+ 05
143 RCL 25
144 CF 00
145 STOP
146◆LBL 55
147 STO 28
148 X<>Y
149 STO 29
150 ENTER↑
151 X↑2
152 ENTER↑
153 ENTER↑
154 RCL 29
155 *
156 RCL 28
157 RTN
158◆LBL 22
159 0
160 STO 12
161 STO 18
162 STO 04
163 STO 16
164 STO 19
165 STO 08
166 STO 17
167 1
168 STO 20
169 RTN
170◆LBL E
171 FS? 04
172 GTO 31
173 SF 04
174 RCL 40
175 STO 20
176 FS? 01
177 XEQ 22
178 0
179 STO 00
180 1
181 STO 21
182 STO 23
183 STO 24
184 RCL 05
185 ABS
186 STO 22
187 2
188 RCL 06
189 XEQ 15
190 3
191 RCL 07
192 XEQ 15
193 4
194 RCL 08
195 XEQ 15
196 1
197 RCL 21
198 X=Y?
199 GTO 00
200 XEQ 16
201 1
202 XEQ 17
203 2
204 XEQ 17
205 3
206 XEQ 17
207 4
208 XEQ 17
209◆LBL 00
210 RCL 05
211 CHS
212 ST/ 06
213 ST/ 07
214 ST/ 08
215 9
216 STO 25
217 XEQ 18
218 XEQ 18
219 XEQ 18
220 2
221 STO 21
222 STO 23
223 XEQ 30
224 RCL 00
225 ABS
226 STO 22
227 3
228 RCL 01
229 XEQ 15
230 4
231 RCL 02
232 XEQ 15
233 XEQ 30
234 2
235 RCL 21
236 X=Y?
237 GTO 00
238 10
239 *
240 XEQ 16
241 2
242 XEQ 17
243 3
244 XEQ 17
245 4
246 XEQ 17
247◆LBL 00
248 XEQ 30
249 RCL 00
250 CHS
251 ST/ 01
252 ST/ 02
253 RCL 01
254 RCL 04
255 *
256 ST+ 05
257 RCL 02
258 RCL 04
259 *
260 ST+ 06
261 RCL 01
262 RCL 08
263 *
264 ST+ 09
265 RCL 02
266 RCL 08
267 *
268 RCL 20
269 +
270 STO 20
271 RCL 05
272 ABS
273 RCL 06
274 ABS
275 X<=Y?
276 GTO 00
277 RCL 05
278 RCL 06
279 STO 05
280 X<>Y
281 STO 06
282 RCL 09
283 RCL 20
284 STO 09
285 X<>Y
286 STO 20
287 .4
288 XEQ 30
289 XEQ 16
290 XEQ 30
291◆LBL 00
292 RCL 05
293 CHS
294 ST/ 06
295 RCL 09
296 RCL 06
297 *
298 RCL 20
299 +
300 STO 20
301 XEQ 30
302 GTO 44
303◆LBL 15
304 ABS
305 RCL 22
306 X>Y?
307 RTN
308 RDN
309 STO 22
310 RDN
311 STO 21
312 RTN
313◆LBL 16
314 ST+ 00
315 RCL 24
316 CHS
317 STO 24
318 RTN
319◆LBL 17
320 STO 22
321 RCL 23
322 RCL 22
323 XEQ 14
324 RCL 21
325 RCL 22
326 XEQ 14
327 X<>Y
328 STO IND 25
329 X<>Y
330 RCL 23
331 RCL 22
332 4
333 *
334 +
335 STO 25
336 RDN
337 STO IND 25
338 RTN
339◆LBL 14
340 4
341 *
342 +
343 STO 25
344 CLX
345 RCL IND 25
346 RTN
347◆LBL 18
348 RCL IND 25
349 STO 21
350 1
351 ST+ 25
352◆LBL 21
353 RCL 06
354 XEQ 19
355 RCL 07
356 XEQ 19
357 RCL 08
358 XEQ 19
359 RTN
360◆LBL 19
361 RCL 21
362 *
363 ST+ IND 25
364 1
365 ST+ 25
366◆LBL 21
367 RTN
368◆LBL 44
369 RCL 24
370 RCL 05
371 *
372 XEQ 30
373 RCL 00
374 *
375 RCL 05
376 *
377 XEQ 30
378 RCL 20
379 *
380 "DET"
381 X=0?
382 GTO 88
383 RCL 00
384 10
385 STO 23
386 /
387 FRC
388 RCL 23
389 *
390 INT
391 X=0?
392 GTO 00
393 STO 25
394 RCL IND 25
395 RCL 01
396 STO IND 25
397 X<>Y
398 STO 01
399◆LBL 00
400 RCL 01
401 RCL 06
402 *
403 ST+ 02
404 RCL 01
405 RCL 07
406 *
407 ST+ 03
408 RCL 01
409 RCL 08
410 *
411 ST+ 04
412 RCL 00
413 RCL 23
414 /
415 INT
416 X=0?
417 GTO 00
418 STO 25
419 RCL IND 25
420 RCL 02
421 STO IND 25
422 X<>Y
423 STO 02
424◆LBL 00
425 XEQ 30
426 RCL 02
427 RCL 01
428 XEQ 30
429 RCL 02
430 *
431 ST+ 03
432 CLX
433 RCL 02
434 *
435 ST+ 04
436 RCL 00
437 FRC
438 RCL 23
439 *
440 X=0?
441 GTO 00
442 STO 25
443 RCL IND 25
444 RCL 03
445 STO IND 25
446 X<>Y
447 STO 03
448◆LBL 00
449 XEQ 30
450 RCL 06
451 XEQ 30
452 RCL 03
453 *
454 ST+ 04
455 RCL 20
456 ST/ 04
457 RCL 04
458 CHS
459 STO 21
460 XEQ 30
461 RCL 05
462 STO 22
463 RCL 09
464 RCL 08
465 RCL 07
466 XEQ 30
467 RCL 21
468 *
469 ST+ 01
470 CLX
471 RCL 21
472 *
473 ST+ 02
474 CLX
475 RCL 21
476 *
477 ST+ 03
478 RCL 22
479 ST/ 03
480 RCL 03
481 CHS
482 STO 21
483 XEQ 30
484 RCL 00
485 STO 22
486 RCL 04
487 RCL 03
488 XEQ 30
489 RCL 21
490 *
491 ST+ 01
492 CLX
493 RCL 21
494 *
495 ST+ 02
496 RCL 22
497 ST/ 02
498 RCL 09
499 RCL 02
500 CHS
501 *
502 ST+ 01
503 RCL 05
504 ST/ 01
505 RCL 42
506 RCL 02
507 *
508 RCL 41
509 RCL 01
510 *
511 +
512 RCL 43
513 RCL 03
514 *
515 +
516 RCL 44
517 RCL 04
518 *
519 +
520 RCL 41
521 X↑2
522 RCL 31
523 /
524 -
525 LASTX
526 RCL 30
527 -
528 CHS
529 /
530 STO 27
531◆LBL 31
532 RCL 27
533 "R2"
534 XEQ 88
535 RCL 01
536 "a"
537 XEQ 88
538 RCL 02
539 "b"
540 XEQ 88
541 RCL 03
542 "c"
543 FS? 01
544 GTO 10
545 XEQ 88
546 RCL 04
547 "d"
548◆LBL 10
549 "="
550 ARCL X
551 AVIEW
552 FS? 55
553 STOP
554◆LBL e
555 FS? 02
556 X<>Y
557 FS? 02
558 XEQ 55
559 FS? 02
560 RDN
561 FS? 02
562 GTO 09
563 FS? 01
564 0
565◆LBL 09
566 RCL 04
567 *
568 X<>Y
569 RCL 03
570 *
571 +
572 X<>Y
573 RCL 02
574 *
575 +
576 RCL 01
577 +
578 FS? 02
579 "Y"
580 FS? 02
581 GTO 10
582 "T."
583◆LBL 10
584 XEQ 88
585 FS? 55
586 STOP
587 GTO e
588◆LBL 88
589 "="
590 ARCL X
591 AVIEW
592 RTN
593◆LBL a
594 GTO IND 26
595◆LBL 30
596 RCL 00
597 X<> 10
598 X<> 00
599 CLX
600 RCL 01
601 X<> 11
602 X<> 01
603 CLX
604 RCL 02
605 X<> 12
606 X<> 02
607 CLX
608 RCL 03
609 X<> 13
610 X<> 03
611 CLX
612 RCL 04
613 X<> 14
614 X<> 04
615 CLX
616 RCL 05
617 X<> 15
618 X<> 05
619 CLX
620 RCL 06
621 X<> 16
622 X<> 06
623 CLX
624 RCL 07
625 X<> 17
626 X<> 07
627 CLX
628 RCL 08
629 X<> 18
630 X<> 08
631 CLX
632 RCL 09
633 X<> 19
634 X<> 09
635 RDN
636 RTN
637 END

PRP "ƩPTST" (also includes: "ƩTSTAT")

Code:

 01◆LBL "ƩPTST"
 02 14
 03 XROM "*a"
 04 SF 01
 05 22
 06 "ƩPTST"
 07 GTO 00
 08◆LBL "ƩTSTAT"
 09 14
 10 XROM "*a"
 11 33
 12 "ƩTSTAT"
 13◆LBL 00
 14 ƩREG 04
 15 STO 13
 16 ASTO 14
 17 BEEP
 18 AVIEW
 19 STOP
 20◆LBL C
 21 FS? 01
 22 -
 23 Ʃ-
 24 STOP
 25◆LBL A
 26 FS? 01
 27 -
 28 Ʃ+
 29 STOP
 30 RCL 04
 31 STO 11
 32 RCL 05
 33 STO 12
 34 RCL 09
 35 STO 10
 36 CLƩ
 37 0
 38 STOP
 39◆LBL E
 40 GTO IND 13
 41◆LBL 22
 42 MEAN
 43 STO 00
 44 "DBAR"
 45 XEQ 88
 46 SDEV
 47 "SD"
 48 XEQ 88
 49 RCL 00
 50 RCL 09
 51 SQRT
 52 *
 53 X<>Y
 54 /
 55 "T"
 56 XEQ 88
 57 RCL 09
 58 1
 59 -
 60 "DF"
 61 XEQ 88
 62 STOP
 63 GTO E
 64◆LBL 33
 65 STO 00
 66 RCL 11
 67 RCL 12
 68 STO 07
 69 X<>Y
 70 STO 06
 71 MEAN
 72 STO 02
 73 X<>Y
 74 RCL 09
 75 *
 76 RCL 10
 77 /
 78 STO 01
 79 X<>Y
 80 -
 81 RCL 00
 82 -
 83 RCL 07
 84 RCL 06
 85 RCL 01
 86 *
 87 -
 88 RCL 05
 89 +
 90 RCL 04
 91 RCL 02
 92 *
 93 -
 94 RCL 09
 95 RCL 10
 96 +
 97 2
 98 -
 99 STO 03
100 /
101 SQRT
102 RCL 09
103 1/X
104 RCL 10
105 1/X
106 +
107 SQRT
108 *
109 /
110 "T"
111 XEQ 88
112 RCL 03
113 "DF"
114◆LBL 88
115 "="
116 ARCL X
117 AVIEW
118 RTN
119 RCL 00
120 GTO E
121◆LBL a
122 GTO IND 14
123 END

PRP "ƩXSQEV"

Code:

 01◆LBL "ƩXSQEV"
 02◆LBL a
 03 7
 04 XROM "*a"
 05 "ƩXSQEV"
 06 BEEP
 07 AVIEW
 08 STOP
 09◆LBL C
 10 SF 00
 11◆LBL A
 12 ENTER↑
 13 RDN
 14 -
 15 X↑2
 16 R↑
 17 /
 18 FS? 00
 19 CHS
 20 ST+ 01
 21 1
 22 FS? 00
 23 CHS
 24 ST+ 00
 25 RCL 00
 26 CF 00
 27 STOP
 28◆LBL E
 29 RCL 01
 30 "XSQ="
 31 ARCL X
 32 AVIEW
 33 STOP
 34 GTO E
 35 END

PRP "ƩEEFXSQ"

Code:

 01◆LBL "ƩEEFXSQ"
 02◆LBL a
 03 7
 04 XROM "*a"
 05 ƩREG 02
 06 "ƩEEFXSQ"
 07 BEEP
 08 AVIEW
 09 STOP
 10◆LBL C
 11 Ʃ-
 12 STOP
 13◆LBL A
 14 Ʃ+
 15 STOP
 16◆LBL E
 17 RCL 07
 18 RCL 07
 19 RCL 03
 20 *
 21 RCL 02
 22 /
 23 RCL 02
 24 -
 25 "XSQ"
 26 XEQ 08
 27 RCL 02
 28 RCL 07
 29 /
 30 "E"
 31◆LBL 08
 32 "="
 33 ARCL X
 34 AVIEW
 35 RTN
 36 GTO E
 37 END

PRP "ƩCTKK" (also includes: "ƩCTKKK")

Code:

 01◆LBL "ƩCTKK"
 02 "ƩCTKK"
 03 14
 04 XROM "*a"
 05 SF 01
 06 GTO 00
 07◆LBL "ƩCTKKK"
 08 "ƩCTKKK"
 09 14
 10 XROM "*a"
 11◆LBL 00
 12 ASTO 14
 13 BEEP
 14 AVIEW
 15 STOP
 16◆LBL C
 17 SF 00
 18◆LBL A
 19 FS? 01
 20 0
 21 XEQ 55
 22 STOP
 23 RCL 07
 24 "CS"
 25 XEQ 88
 26 STOP
 27◆LBL E
 28 FS? 01
 29 1
 30 FS? 01
 31 STO 03
 32 RCL 04
 33 RCL 01
 34 /
 35 STO 09
 36 RCL 05
 37 RCL 02
 38 /
 39 ST+ 09
 40 RCL 06
 41 RCL 03
 42 /
 43 ST+ 09
 44 RCL 09
 45 1
 46 -
 47 RCL 00
 48 *
 49 "XSQ"
 50 XEQ 88
 51 ENTER↑
 52 ENTER↑
 53 RCL 00
 54 +
 55 /
 56 SQRT
 57 "CC"
 58 XEQ 88
 59 RCL 01
 60 "R1"
 61 XEQ 88
 62 RCL 02
 63 "R2"
 64 XEQ 88
 65 FS? 01
 66 GTO 09
 67 RCL 03
 68 "R3"
 69 XEQ 88
 70◆LBL 09
 71 RCL 00
 72 "T"
 73◆LBL 88
 74 "="
 75 ARCL X
 76 AVIEW
 77 RTN
 78 GTO E
 79◆LBL a
 80 GTO IND 14
 81◆LBL 55
 82 FS? 00
 83 CHS
 84 ST+ 03
 85 ST+ 00
 86 STO 07
 87 X↑2
 88 STO 08
 89 RDN
 90 STO 11
 91 FS? 00
 92 CHS
 93 ST+ 02
 94 ST+ 00
 95 ST+ 07
 96 X↑2
 97 STO 09
 98 RDN
 99 STO 10
100 FS? 00
101 CHS
102 ST+ 01
103 ST+ 00
104 ST+ 07
105 X↑2
106 RCL 07
107 /
108 ST+ 04
109 RCL 09
110 RCL 07
111 /
112 ST+ 05
113 RCL 08
114 RCL 07
115 /
116 ST+ 06
117 1
118 FS? 00
119 CHS
120 ST+ 13
121 RCL 13
122 CF 00
123 RTN
124 END

PRP "ƩSPEAR"

Code:

 01◆LBL "ƩSPEAR"
 02◆LBL a
 03 2
 04 XROM "*a"
 05 "ƩSPEAR"
 06 BEEP
 07 AVIEW
 08 STOP
 09◆LBL C
 10 SF 00
 11◆LBL A
 12 -
 13 X↑2
 14 FS? 00
 15 CHS
 16 ST+ 02
 17 1
 18 FS? 00
 19 CHS
 20 ST+ 01
 21 RCL 01
 22 CF 00
 23 STOP
 24◆LBL E
 25 1
 26 RCL 02
 27 6
 28 *
 29 RCL 01
 30 X↑2
 31 1
 32 -
 33 RCL 01
 34 *
 35 /
 36 -
 37 "RS"
 38 XEQ 08
 39 RCL 01
 40 1
 41 -
 42 SQRT
 43 *
 44 "Z"
 45◆LBL 08
 46 "="
 47 ARCL X
 48 AVIEW
 49 RTN
 50 GTO E
 51 END

PRP "ƩNORMD"

Code:

 01◆LBL "ƩNORMD"
 02 XROM "*b"
 03 .2316419
 04 STO 03
 05 1.330274429
 06 STO 04
 07 -1.821255978
 08 STO 05
 09 1.781477937
 10 STO 06
 11 -.356563782
 12 STO 07
 13 .31938153
 14 STO 08
 15 2.515517
 16 STO 11
 17 .802853
 18 STO 12
 19 .010328
 20 STO 13
 21 1.432788
 22 STO 14
 23 .189269
 24 STO 15
 25 .001308
 26 STO 16
 27 "ƩNORMD"
 28 BEEP
 29 AVIEW
 30 STOP
 31◆LBL C
 32 STO 01
 33 ENTER↑
 34 *
 35 2
 36 /
 37 CHS
 38 E↑X
 39 PI
 40 2
 41 *
 42 SQRT
 43 /
 44 STO 02
 45 FS? 02
 46 RTN
 47 "F"
 48 GTO 88
 49◆LBL E
 50 STO 01
 51 SF 02
 52 XEQ C
 53 CF 02
 54 RCL 01
 55 X<0?
 56 GTO 01
 57 SF 00
 58◆LBL 13
 59 1
 60 RCL 01
 61 RCL 03
 62 *
 63 +
 64 1/X
 65 ENTER↑
 66 ENTER↑
 67 ENTER↑
 68 RCL 04
 69 *
 70 RCL 05
 71 +
 72 *
 73 RCL 06
 74 +
 75 *
 76 RCL 07
 77 +
 78 *
 79 RCL 08
 80 +
 81 *
 82 RCL 02
 83 *
 84 "Q"
 85 FS? 00
 86 GTO 88
 87 RTN
 88◆LBL 01
 89 CF 00
 90 RCL 01
 91 CHS
 92 STO 01
 93 XEQ 13
 94 1
 95 X<>Y
 96 -
 97 STO 09
 98 "Q"
 99 GTO 88
100◆LBL A
101 X<0?
102 GTO 00
103 1
104 X<=Y?
105 GTO 00
106 RDN
107 .5
108 X<>Y
109 X>Y?
110 XEQ 08
111 ENTER↑
112 *
113 1/X
114 LN
115 SQRT
116 STO 17
117 RCL 13
118 *
119 RCL 12
120 +
121 RCL 17
122 *
123 RCL 11
124 +
125 RCL 17
126 RCL 16
127 *
128 RCL 15
129 +
130 RCL 17
131 *
132 RCL 14
133 +
134 RCL 17
135 *
136 1
137 +
138 /
139 RCL 17
140 X<>Y
141 -
142 FS? 01
143 CHS
144 GTO 99
145◆LBL 08
146 SF 01
147 1
148 -
149 CHS
150 RTN
151◆LBL 00
152 0
153 /
154◆LBL 99
155 "X"
156◆LBL 88
157 CF 00
158 CF 01
159 CF 02
160 "="
161 ARCL X
162 AVIEW
163 RTN
164 END

PRP "ƩCHISQD"

Code:

 01◆LBL "ƩCHISQD"
 02 XROM "*b"
 03 "ƩCHISQD"
 04 BEEP
 05 AVIEW
 06 STOP
 07◆LBL A
 08 1
 09 STO 03
 10 X<>Y
 11 2
 12 /
 13 STO 01
 14 INT
 15 LASTX
 16 X≠Y?
 17 GTO 01
 18 1
 19 -
 20 FACT
 21 STO 03
 22 STOP
 23◆LBL 01
 24 .5
 25 X=Y?
 26 GTO 03
 27 X<>Y
 28 1
 29 -
 30 ST* 03
 31 GTO 01
 32◆LBL 03
 33 PI
 34 SQRT
 35 ST* 03
 36 RCL 03
 37 STOP
 38◆LBL C
 39 SF 01
 40 XEQ 05
 41 "F"
 42 XEQ 08
 43 STOP
 44◆LBL 05
 45 STO 02
 46 RCL 01
 47 1
 48 -
 49 Y↑X
 50 RCL 02
 51 2
 52 /
 53 CHS
 54 E↑X
 55 *
 56 2
 57 RCL 01
 58 Y↑X
 59 /
 60 RCL 03
 61 /
 62 STO 05
 63 CF 01
 64 RTN
 65◆LBL E
 66 XEQ 05
 67 RCL 02
 68 RCL 01
 69 /
 70 ST* 05
 71 2
 72 RCL 01
 73 *
 74 STO 06
 75 1
 76 STO 04
 77◆LBL 04
 78 RCL 02
 79 RCL 06
 80 2
 81 +
 82 STO 06
 83 /
 84 RCL 04
 85 *
 86 STO 04
 87 +
 88 X≠Y?
 89 GTO 04
 90 RCL 05
 91 *
 92 "P"
 93◆LBL 08
 94 "="
 95 ARCL X
 96 AVIEW
 97 RTN
 98 END

PRP "*a" (also includes: "*b")

Code:

 01◆LBL "*a"
 02 STO 00
 03 CLX
 04◆LBL 01
 05 STO IND 00
 06 DSE 00
 07 GTO 01
 08◆LBL "*b"
 09 FIX 2
 10 CF 00
 11 CF 01
 12 CF 02
 13 CF 03
 14 SF 21
 15 SF 27
 16 CF 29
 17 RTN
 18 END

[rprosperi]

(09-14-2021 01:45 PM)dmh Wrote:  Just wondering what serial number / year your STAT ROMs are? Is my 1A 19 serial number the earliest STAT ROM? When was the STAT ROM released?

I have 2 x "1B" Modules, the date codes are 2027 and 2348.

I've no idea about Application Pac release dates, I only recall that STAT was available at 41 launch; Didier's find in the PPCJ seems to shed a pretty clear light.

Most likely the 1A module was made and sold briefly and then changed over to 1B at which time they consolidated the "*c" code into "*a". Possibly, these helper routines started out longer and/or for slightly different purposes, then eventually shrunk down and no one noticed that *c could be included in *a with no loss of functionality.

It's very likley there are other differences (bugs) between 1A and 1B, as HP surely would not have incurred new mask ROM charges simply to consolidate the helper routines, while on the other hand if they were correcting some bugs, then it's 'free' to also fix the helpers.

Interesting discovery, thanks for sharing it here.

[dmh]

Definitely would have been for bug fixes. I note that some of the alpha prompts have characters transposed in the 1A version.

Given the Service Manual extract above it sounded like 1A was never released for sale. Maybe it was made for the 41c release but too many bugs were discovered and it was never sold? The PPCJ was a release announcement so would have been prepared before the release so may not have been the STAT module that actually went on sale.

(09-15-2021 02:09 AM)rprosperi Wrote:  

(09-14-2021 01:45 PM)dmh Wrote:  Just wondering what serial number / year your STAT ROMs are? Is my 1A 19 serial number the earliest STAT ROM? When was the STAT ROM released?

I have 2 x "1B" Modules, the date codes are 2027 and 2348.

I've no idea about Application Pac release dates, I only recall that STAT was available at 41 launch; Didier's find in the PPCJ seems to shed a pretty clear light.

Most likely the 1A module was made and sold briefly and then changed over to 1B at which time they consolidated the "*c" code into "*a". Possibly, these helper routines started out longer and/or for slightly different purposes, then eventually shrunk down and no one noticed that *c could be included in *a with no loss of functionality.

It's very likley there are other differences (bugs) between 1A and 1B, as HP surely would not have incurred new mask ROM charges simply to consolidate the helper routines, while on the other hand if they were correcting some bugs, then it's 'free' to also fix the helpers.

Interesting discovery, thanks for sharing it here.

[rprosperi]

(09-15-2021 02:17 AM)dmh Wrote:  Definitely would have been for bug fixes. I note that some of the alpha prompts have characters transposed in the 1A version.

Given the Service Manual extract above it sounded like 1A was never released for sale. Maybe it was made for the 41c release but too many bugs were discovered and it was never sold? The PPCJ was a release announcement so would have been prepared before the release so may not have been the STAT module that actually went on sale.

Well, you have the 1A module, you tell us - does it look like a production module, with sonic-welded case seems, production level lettering, engraved date code (what is the full code?), etc. If it has all these elements, then it very likely was a production unit that was sold. Early pre-production modules typically were hand-glued, with crude labels, no date codes engraved, etc.

[dmh]

Ok, the 1A looks the same as the 1B. I've never seen a pre-production module so didn't know they were substantially lower quality.

I guess the Service Manual is "lying" then :-).

If you have a pre-production module you can share a photo of that would be great.

(09-15-2021 02:58 AM)rprosperi Wrote:  

(09-15-2021 02:17 AM)dmh Wrote:  Definitely would have been for bug fixes. I note that some of the alpha prompts have characters transposed in the 1A version.

Given the Service Manual extract above it sounded like 1A was never released for sale. Maybe it was made for the 41c release but too many bugs were discovered and it was never sold? The PPCJ was a release announcement so would have been prepared before the release so may not have been the STAT module that actually went on sale.

Well, you have the 1A module, you tell us - does it look like a production module, with sonic-welded case seems, production level lettering, engraved date code (what is the full code?), etc. If it has all these elements, then it very likely was a production unit that was sold. Early pre-production modules typically were hand-glued, with crude labels, no date codes engraved, etc.

[dmh]

Here is the CAT 2 listing of the 1A module.

Some differences to the 1B and some weird looking labels.

Code:

STAT 1A     
' ΣBSTAT      
' ΣBSTG       
'*BE         
' ΣOOVWG      
' ΣOOVGF      
'*MT"!       
'*MD         
' ΣAOVONE     
' ΣAOVTWO     
' ΣANOCOV     
' ΣLIN        
' ΣEXP        
' ΣLOG        
' ΣPOW        
' ΣPOLYP      
' ΣPOLYC      
' ΣMLRXY      
' ΣMLRXYZ     
' ΣPTST       
' ΣTSTAT      
' ΣXSQEV      
' ΣEEFXSQ     
' ΣCTKK       
' ΣCTKKK      
' ΣSPEAR      
' ΣNORMD      
' ΣCHISQD 
'* a          
'* b          
'* c

[dmh]

Could you please post a link to this document or a screenshot of just the catalog so I can compare to my 1A catalog (just posted to this thread too)?

Thanks

(09-14-2021 02:14 PM)Didier Lachieze Wrote:  

(09-14-2021 01:45 PM)dmh Wrote:  When was the STAT ROM released?

On page 15 of the PPC Journal - V6N4 July 1979 where the HP-41C was announced, there is a listing of the catalogs from different modules, including STAT 1A with *c at the end of the function catalog.

[Sylvain Cote]

(09-18-2021 06:36 AM)dmh Wrote:  Could you please post a link to this document or a screenshot of just the catalog so I can compare to my 1A catalog (just posted to this thread too)?

PPC Journal V6 N4 P15 STAT1A Listing