-
Notifications
You must be signed in to change notification settings - Fork 0
/
hp41stat.41
1123 lines (1122 loc) · 10.9 KB
/
hp41stat.41
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
001*LBL "STAT"
002*LBL e
003 CF 02
004 CF 03
005 CF 21
006 CLRG
007 "+ >I BF Y Bs"
008 PROMPT
009 "- .- DATA X *"
010 PROMPT
011 "X^Y s+"
012 PROMPT
013 GTO e
014*LBL "MCF+"
015*LBL A
016 ENTER^
017 X^2
018 X^2
019 ST+ 39
020 RDN
021 ENTER^
022 3
023 Y^X
024 ST+ 42
025 RDN
026 X=0?
027 XEQ 89
028 STO 02
029 X<>Y
030 X=0?
031 XEQ 89
032 STO 01
033 sREG 16
034 s+
035 LASTX
036 /
037 ST+ 35
038 1/X
039 ST+ 34
040 RCL 01
041 *
042 ST+ 37
043 1/X
044 ST+ 38
045 RCL 02
046 RCL 01
047 X^2
048 *
049 ST+ 36
050 LASTX
051 X^2
052 ST+ 43
053 1/X
054 ST+ 44
055 RCL 01
056 *
057 ST+ 41
058 1/X
059 ST+ 40
060 RCL 02
061 1/X
062 RCL 01
063 1/X
064 sREG 22
065 s+
066 XEQ 88
067 s+
068 LASTX
069 RCL 01
070 *
071 ST+ 48
072 *
073 ST+ 50
074 LASTX
075 X^2
076 ST+ 49
077 RCL 03
078 RCL 01
079 /
080 ST+ 45
081 X^2
082 ST+ 53
083 LASTX
084 RCL 04
085 *
086 ST+ 58
087 LASTX
088 RCL 01
089 *
090 ST+ 46
091 LASTX
092 *
093 ST+ 54
094 RCL 04
095 LASTX
096 /
097 ST+ 47
098 RCL 02
099 RCL 03
100 *
101 ST+ 51
102 LASTX
103 RCL 02
104 /
105 ST+ 52
106 RCL 04
107 RCL 03
108 X^2
109 *
110 ST+ 57
111 LASTX
112 X^2
113 ST+ 56
114 LASTX
115 RCL 03
116 *
117 ST+ 55
118 RCL 21
119 RTN
120 GTO A
121*LBL b
122 RCL 01
123 RCL 02
124*LBL a
125 X=0?
126 XEQ 89
127 STO 02
128 X<>Y
129 X=0?
130 XEQ 89
131 STO 01
132 sREG 16
133 s-
134 LASTX
135 /
136 ST- 35
137 1/X
138 ST- 34
139 RCL 01
140 *
141 ST- 37
142 1/X
143 ST- 38
144 RCL 02
145 RCL 01
146 X^2
147 *
148 ST- 36
149 LASTX
150 X^2
151 ST- 43
152 1/X
153 ST- 44
154 RCL 01
155 *
156 ST- 41
157 1/X
158 ST- 40
159 RCL 02
160 1/X
161 RCL 01
162 1/X
163 sREG 22
164 s-
165 XEQ 88
166 s-
167 LASTX
168 RCL 01
169 *
170 ST- 48
171 *
172 ST- 50
173 LASTX
174 X^2
175 ST- 49
176 RCL 03
177 RCL 01
178 /
179 ST- 45
180 X^2
181 ST- 53
182 LASTX
183 RCL 04
184 *
185 ST- 58
186 LASTX
187 RCL 01
188 *
189 ST- 46
190 LASTX
191 *
192 ST- 54
193 RCL 04
194 LASTX
195 /
196 ST- 47
197 RCL 02
198 RCL 03
199 *
200 ST- 51
201 LASTX
202 RCL 02
203 /
204 ST- 52
205 RCL 04
206 RCL 03
207 X^2
208 *
209 ST- 57
210 LASTX
211 X^2
212 ST- 56
213 LASTX
214 RCL 03
215 *
216 ST- 55
217 RCL 21
218 RTN
219 GTO A
220*LBL 88
221 RCL 02
222 X<=0?
223 SF 03
224 X<=0?
225 XEQ 89
226 LN
227 STO 04
228 RCL 01
229 X<=0?
230 SF 02
231 X<=0?
232 XEQ 89
233 LN
234 STO 03
235 sREG 28
236 RTN
237*LBL 89
238 CLX
239 9 E-9
240 RTN
241*LBL C
242 CLX
243 STO 10
244*LBL 01
245 XEQ 23
246 XEQ 24
247 RCL 20
248 1
249 XEQ 20
250 FC?C 01
251 GTO 02
252 "Y=a+bX"
253 RTN
254*LBL 02
255 XEQ 23
256 XEQ 25
257 RCL 34
258 2
259 XEQ 20
260 FC?C 01
261 GTO 03
262 "Y=1/<a+bX>"
263 RTN
264*LBL 03
265 XEQ 23
266 XEQ 24
267 RCL 22
268 STO 66
269 RCL 23
270 STO 67
271 RCL 20
272 RCL 21
273 RCL 35
274 3
275 XEQ 21
276 FC?C 01
277 GTO 04
278 "Y=a+bX+c/X"
279 RTN
280*LBL 04
281 XEQ 26
282 XEQ 24
283 RCL 35
284 4
285 XEQ 20
286 FC?C 01
287 GTO 05
288 "Y=a+b/X"
289 RTN
290*LBL 05
291 XEQ 26
292 XEQ 25
293 RCL 26
294 5
295 XEQ 20
296 FC?C 01
297 GTO 06
298 "Y=X/<aX+b>"
299 RTN
300*LBL 06
301 XEQ 26
302 XEQ 24
303 RCL 23
304 STO 66
305 RCL 44
306 STO 67
307 RCL 35
308 RCL 41
309 RCL 38
310 6
311 XEQ 21
312 FC?C 01
313 GTO 07
314 "Y=a+b/X+c/X^2"
315 RTN
316*LBL 07
317 XEQ 23
318 XEQ 24
319 XEQ 27
320 RCL 20
321 RCL 40
322 RCL 36
323 7
324 XEQ 21
325 FC?C 01
326 GTO 08
327 "Y=a+bX+cX^2"
328 RTN
329*LBL 08
330 XEQ 23
331 XEQ 25
332 XEQ 27
333 RCL 34
334 RCL 40
335 RCL 37
336 8
337 XEQ 21
338 FC?C 01
339 GTO 09
340 RCL 11
341 RCL 12
342 X^2
343 RCL 13
344 STO 01
345 ST+ X
346 ST/ 02
347 ST+ X
348 /
349 -
350 STO 03
351 "Y=1/<c+a<X+b>^2"
352 "`>"
353 RTN
354*LBL 09
355 FS? 02
356 GTO 17
357 FS? 03
358 GTO 15
359 XEQ 28
360 XEQ 29
361 RCL 32
362 9
363 XEQ 20
364 FC?C 01
365 GTO 10
366 RCL 11
367 E^X
368 STO 01
369 "Y=aX^b"
370 RTN
371*LBL 10
372 RCL 48
373 STO 61
374 RCL 49
375 STO 62
376 XEQ 29
377 RCL 50
378 10
379 XEQ 20
380 FC?C 01
381 GTO 11
382 RCL 11
383 E^X
384 STO 01
385 "Y=aX^<bX>"
386 RTN
387*LBL 11
388 RCL 45
389 STO 61
390 RCL 53
391 STO 62
392 XEQ 29
393 RCL 58
394 11
395 XEQ 20
396 FC?C 01
397 GTO 12
398 RCL 11
399 E^X
400 STO 01
401 "Y=aX^<b/X>"
402 RTN
403*LBL 12
404 XEQ 23
405 XEQ 29
406 XEQ 30
407 RCL 46
408 RCL 48
409 RCL 32
410 12
411 XEQ 21
412 FC?C 01
413 GTO 13
414 RCL 11
415 E^X
416 STO 01
417 RCL 12
418 E^X
419 STO 02
420 "Y=a<b^X><X^c>"
421 RTN
422*LBL 13
423 XEQ 26
424 XEQ 29
425 XEQ 30
426 RCL 47
427 RCL 45
428 RCL 32
429 13
430 XEQ 21
431 FC?C 01
432 GTO 14
433 RCL 11
434 E^X
435 STO 01
436 RCL 12
437 E^X
438 STO 02
439 "Y=a<b^1/X><X^c>"
440 RTN
441*LBL 14
442 XEQ 28
443 XEQ 29
444 RCL 29
445 STO 66
446 RCL 56
447 STO 67
448 RCL 32
449 RCL 55
450 RCL 57
451 14
452 XEQ 21
453 FC?C 01
454 GTO 15
455 RCL 11
456 RCL 12
457 X^2
458 RCL 13
459 ST+ X
460 CHS
461 ST/ 02
462 ST+ X
463 /
464 +
465 E^X
466 STO 01
467 RCL 13
468 1/X
469 STO 03
470 "Y=aEXP<<1/c><LN"
471 "`X-b>^2>"
472 RTN
473*LBL 15
474 XEQ 28
475 XEQ 24
476 RCL 51
477 15
478 XEQ 20
479 FC?C 01
480 GTO 16
481 "Y=a+bLNX"
482 RTN
483*LBL 16
484 XEQ 28
485 XEQ 25
486 RCL 52
487 16
488 XEQ 20
489 FC?C 01
490 GTO 17
491 "Y=1/<a+bLNX>"
492 RTN
493*LBL 17
494 FS? 03
495 GTO 31
496 XEQ 23
497 XEQ 29
498 RCL 46
499 17
500 XEQ 20
501 FC?C 01
502 GTO 18
503 RCL 11
504 E^X
505 STO 01
506 RCL 12
507 E^X
508 STO 02
509 "Y=ab^X"
510 RTN
511*LBL 18
512 XEQ 26
513 XEQ 29
514 RCL 47
515 18
516 XEQ 20
517 FC?C 01
518 GTO 19
519 RCL 11
520 E^X
521 STO 01
522 RCL 12
523 E^X
524 STO 02
525 "Y=ab^<1/X>"
526 RTN
527*LBL 19
528 XEQ 23
529 XEQ 29
530 XEQ 27
531 RCL 46
532 RCL 40
533 RCL 54
534 19
535 XEQ 21
536 FC?C 01
537 GTO 31
538 RCL 11
539 RCL 12
540 X^2
541 RCL 13
542 ST+ X
543 CHS
544 ST/ 02
545 ST+ X
546 /
547 +
548 E^X
549 STO 01
550 RCL 13
551 1/X
552 STO 03
553 "Y=aEXP<<1/c><X-"
554 "`b>^2>"
555 RTN
556*LBL 20
557 STO 00
558 RDN
559 STO 65
560 RCL 62
561 RCL 21
562 *
563 RCL 61
564 X^2
565 -
566 STO 05
567 RCL 62
568 RCL 63
569 *
570 RCL 61
571 RCL 65
572 *
573 -
574 RCL 05
575 /
576 STO 11
577 STO 01
578 RCL 65
579 RCL 21
580 *
581 RCL 61
582 RCL 63
583 *
584 -
585 RCL 05
586 /
587 STO 12
588 STO 02
589 CLX
590 STO 03
591 STO 13
592 2
593 GTO 22
594*LBL 21
595 STO 00
596 RDN
597 STO 69
598 RDN
599 STO 68
600 RDN
601 STO 65
602 RCL 62
603 RCL 21
604 *
605 RCL 61
606 X^2
607 -
608 STO 05
609 RCL 21
610 RCL 69
611 *
612 RCL 63
613 RCL 66
614 *
615 -
616 STO 06
617 RCL 21
618 RCL 68
619 *
620 RCL 61
621 RCL 66
622 *
623 -
624 STO 07
625 RCL 65
626 RCL 21
627 *
628 RCL 61
629 RCL 63
630 *
631 -
632 STO 08
633 RCL 21
634 RCL 67
635 *
636 RCL 66
637 X^2
638 -
639 STO 09
640 RCL 05
641 RCL 06
642 *
643 RCL 07
644 RCL 08
645 *
646 -
647 RCL 05
648 RCL 09
649 *
650 RCL 07
651 X^2
652 -
653 /
654 STO 13
655 STO 03
656 RCL 08
657 RCL 07
658 RCL 13
659 *
660 -
661 RCL 05
662 /
663 STO 12
664 STO 02
665 RCL 63
666 RCL 12
667 RCL 61
668 *
669 -
670 RCL 13
671 RCL 66
672 *
673 -
674 RCL 21
675 /
676 STO 11
677 STO 01
678 3
679*LBL 22
680 RCL 11
681 RCL 63
682 *
683 RCL 12
684 RCL 65
685 *
686 +
687 RCL 13
688 RCL 69
689 *
690 +
691 RCL 63
692 X^2
693 RCL 21
694 /
695 -
696 RCL 64
697 LASTX
698 -
699 /
700 1
701 -
702 LASTX
703 RCL 21
704 -
705 *
706 X<>Y
707 RCL 21
708 -
709 /
710 1
711 +
712 X<0?
713 CLX
714 FS? 01
715 GTO 00
716 CLA
717 FIX 0
718 ARCL 00
719 "` "
720 FIX 3
721 ARCL X
722 CF 21
723 AVIEW
724 SF 21
725 RCL 10
726 X<>Y
727 X<=Y?
728 RTN
729*LBL 00
730 STO 10
731 RCL 00
732 STO 15
733 RTN
734*LBL 23
735 RCL 16
736 STO 61
737 RCL 17
738 STO 62
739 RTN
740*LBL 24
741 RCL 18
742 STO 63
743 RCL 19
744 STO 64
745 RTN
746*LBL 25
747 RCL 24
748 STO 63
749 RCL 25
750 STO 64
751 RTN
752*LBL 26
753 RCL 22
754 STO 61
755 RCL 23
756 STO 62
757 RTN
758*LBL 27
759 RCL 17
760 STO 66
761 RCL 43
762 STO 67
763 RTN
764*LBL 28
765 RCL 28
766 STO 61
767 RCL 29
768 STO 62
769 RTN
770*LBL 29
771 RCL 30
772 STO 63
773 RCL 31
774 STO 64
775 RTN
776*LBL 30
777 RCL 28
778 STO 66
779 RCL 29
780 STO 67
781 RTN
782*LBL 31
783 RCL 15
784*LBL B
785 STO 00
786 SF 01
787 SF 21
788 XEQ IND 00
789 TONE 7
790 AVIEW
791 "a= "
792 ARCL 01
793 AVIEW
794 "b= "
795 ARCL 02
796 AVIEW
797 RCL 03
798 X=0?
799 GTO 00
800 "c= "
801 ARCL X
802 AVIEW
803*LBL 00
804 "RR= "
805 ARCL 10
806 AVIEW
807 ADV
808 RTN
809 GTO 31
810*LBL D
811 CF 21
812 RCL 15
813 60
814 +
815 X<>Y
816 ENTER^
817 XEQ IND Z
818 "Y= "
819 ARCL X
820 AVIEW
821 RTN
822 GTO C
823*LBL 75
824 LN
825*LBL 61
826 RCL 02
827 *
828 RCL 01
829 +
830 RTN
831*LBL 62
832 XEQ 61
833 1/X
834 RTN
835*LBL 63
836 RCL 03
837 X<>Y
838 /
839 RCL 02
840 LASTX
841 *
842 +
843 RCL 01
844 +
845 RTN
846*LBL 64
847 RCL 02
848 X<>Y
849 /
850 RCL 01
851 +
852 RTN
853*LBL 65
854 XEQ 64
855 1/X
856 RTN
857*LBL 66
858 1/X
859 ENTER^
860 ENTER^
861*LBL 67
862 RCL 03
863 *
864 RCL 02
865 +
866 *
867 RCL 01
868 +
869 RTN
870*LBL 68
871 RCL 02
872 +
873 X^2
874 RCL 01
875 *
876 RCL 03
877 +
878 1/X
879 RTN
880*LBL 69
881 RCL 02
882 Y^X
883 RCL 01
884 *
885 RTN
886*LBL 78
887 1/X
888*LBL 77
889 RCL 02
890 X<>Y
891 Y^X
892 RCL 01
893 *
894 RTN
895*LBL 71
896 1/X
897*LBL 70
898 RCL 02
899 *
900 Y^X
901 RCL 01
902 *
903 RTN
904*LBL 72
905 RCL 02
906 X<>Y
907 Y^X
908 X<>Y
909 RCL 03
910 Y^X
911 *
912 RCL 01
913 *
914 RTN
915*LBL 73
916 RCL 03
917 Y^X
918 RCL 02
919 RCL Z
920 1/X
921 Y^X
922 *
923 RCL 01
924 *
925 RTN
926*LBL 74
927 LN
928*LBL 79
929 RCL 02
930 -
931 X^2
932 RCL 03
933 /
934 E^X
935 RCL 01
936 *
937 RTN
938*LBL 76
939 XEQ 75
940 1/X
941 RTN
942*LBL c
943 GTO "DATA"
944*LBL d
945 "X=..."
946 PROMPT
947 GTO e
948*LBL E
949 sREG 16
950 "XBAR="
951 MEAN
952 ARCL X
953 PROMPT
954 "YBAR= "
955 ARCL Y
956 PROMPT
957 "SD:X= "
958 SDEV
959 ARCL X
960 PROMPT
961 "SD:Y= "
962 ARCL Y
963 PROMPT
964 RCL 27
965 ST/ Z
966 /
967 "ERR:X= "
968 ARCL X
969 PROMPT
970 "ERR:Y= "
971 ARCL Y
972 PROMPT
973 "SDP:X= "
974 SDEV
975 X^2
976 RCL 27
977 *
978 RCL 27
979 1
980 -
981 /
982 SQRT
983 ARCL X
984 PROMPT
985 "SDP:Y= "
986 RDN
987 X^2
988 RCL 27
989 *
990 RCL 27
991 1
992 -
993 /
994 SQRT
995 ARCL X
996 PROMPT
997 "S:XY= "
998 RCL 20
999 RCL 16
1000 RCL 18