+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: HP 41c STAT 1 module version 1A (/thread-17436.html)
Pages: 1 2
RE: HP 41c STAT 1 module version 1A - Sylvain Cote - 09-14-2021 02:44 PM
(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
RE: HP 41c STAT 1 module version 1A - Sylvain Cote - 09-14-2021 03:45 PM
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
ˇ*bPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "Ʃ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 ENDPRP "*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 ENDRE: HP 41c STAT 1 module version 1A - rprosperi - 09-15-2021 02:09 AM
(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.
RE: HP 41c STAT 1 module version 1A - dmh - 09-15-2021 02:17 AM
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.
RE: HP 41c STAT 1 module version 1A - rprosperi - 09-15-2021 02:58 AM
(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.
RE: HP 41c STAT 1 module version 1A - dmh - 09-15-2021 03:03 AM
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.
RE: HP 41c STAT 1 module version 1A - dmh - 09-18-2021 06:33 AM
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
'* cRE: HP 41c STAT 1 module version 1A - dmh - 09-18-2021 06:36 AM
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.
RE: HP 41c STAT 1 module version 1A - Sylvain Cote - 09-18-2021 03:44 PM
(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