github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-02-10 18:20:44 +00:00
Code Issues Releases Wiki Activity
Files
a32815073ad555ca06e438d1927d38fa83548781
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Library-Test-1/Library-Test-1-Code-List.lst
Paul Kimpel 83a0b62faf Update BALGOL Library and Examples 
1. Correct missing relocation pseudo-op in MONIT Library routine.
2. Rebuild Generator and Compiler tapes.
3. Recompile and generate corrected listings for example programs.
4. Add Simpson's Rule example from Algol-58 Preliminary Report.
2018-08-06 17:59:30 -07:00

972 lines
63 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
0200 BAC-220 STANDARD VERSION 2/1/62
0200 COMMENT TEST PROGRAM 1 FOR BALGOL LIBRARY FUNCTIONS
0200 2018-01-18 P.KIMPEL$
0200
0200 INTEGER DEGREES$
0200 REAL RADS, TORADS$
0200 REAL VSQRT, VSIN, VCOS, VTAN, VASIN, VACOS, VATAN$
0200
0200 0 0000 30
0201 0 0000 30
0202 0 0000 10 4999 DEGRE
0203 0 0100 42 0203
0204 0 0002 20 0201
0205 0 0000 10 4998 RADS
0206 0 0000 42 0206
0207 0 0002 20 0201
0208 0 0000 10 4997 VSQRT
0209 0 0000 42 0209
0210 0 0002 20 0201
0211 0 0000 10 4996 VSIN
0212 0 0000 42 0212
0213 0 0002 20 0201
0214 0 0000 10 4995 VCOS
0215 0 0000 42 0215
0216 0 0002 20 0201
0200 OUTPUT RESULTS(DEGREES, RADS, VSQRT, VSIN, VCOS, VTAN,
0217 0 0000 10 4994 VTAN
0218 0 0000 42 0218
0219 0 0002 20 0201
0220 0 0000 10 4993 VASIN
0221 0 0000 42 0221
0222 0 0002 20 0201
0223 0 0000 10 4992 VACOS
0224 0 0000 42 0224
0225 0 0002 20 0201
0220 VASIN, VACOS, VATAN)$
0226 0 0000 10 4991 VATAN
0227 0 0000 42 0227
0228 0 0002 20 0201
0229 0 0009 43 0000
0230 0 0000 30 0201
0200 0231
0231 0 0000 30
0232 0 0004 90 0200
0233 0 0024 60 1408
0234 0 0064 60 1508
0235 0 0006 60 0200
0236 1 0000 00 0232
0231 FORMAT F(I2,2F14.8,6F15.8,W2),
0237 2 0044 00 0059
0238 3 4144 62 1400
0239 0 0004 20 1000
0240 3 6258 59 6314
0241 0 0004 20 1100
0242 3 6249 55 1400
0243 0 0004 20 1200
0244 3 4356 62 1400
0245 0 0004 20 1200
0246 3 6341 55 1400
0231 HEAD(* D RADS*,B10,*SQRT*,B11,*SIN*,B12,*COS*,B12,*TAN*,
0247 0 0004 20 1200
0248 3 4162 49 5514
0249 0 0004 20 1100
0250 3 4143 56 6214
0251 0 0004 20 1100
0252 3 4163 41 5514
0253 0 0006 60 0200
0254 1 0000 00 0237
0231 B12,*ASIN*,B11,*ACOS*,B11,*ATAN*,W2)$
0231
0231 0255
0255 TORADS = 3.1415926/180$
0255 0 0000 10 4990 CONST
0256 0 0000 40 4989 TORAD
0257 WRITE($$ HEAD)$
0257
0257 0 0000 10 0258
0258 0 0000 01 0237 HEAD
0259 0 0000 44 4749 WRITE
0260 0 0000 30 4749
0261 0 0000 10 4748 CONST
0262 0 0000 40 4999 DEGRE
0263 0 0000 44
0264 0 0000 30
0265 0 0000 10 4748 CONST
0266 0 0000 12 4999 DEGRE
0267 0 0000 40 4999 DEGRE
0264 0268
0268 0 0000 13 4747 CONST
0269 0 1111 31 0271
0270 0 0000 36
0271 0 0001 33
0261 FOR DEGREES = (1, 1, 89)$
0272 0 0000 30
0271 0273
0270 0273
0272 BEGIN
0272 RADS = DEGREES.TORADS$
0273 0 0000 10 4999 DEGRE
0274 0 0000 44 4733 FLOAT
0275 0 0000 30 4733
0276 0 0000 24 4989 TORAD
0277 0 0000 40 4998 RADS
0278 VSQRT = SQRT(RADS)$
0278 0 0000 10 4998 RADS
0279 0 0000 44 4688 SQRT
0280 0 0000 30 4688
0281 0 0000 40 4997 VSQRT
0282 VSIN = SIN(RADS)$
0282 0 0000 10 4998 RADS
0283 0 0000 44 4632 SIN
0284 0 0000 30 4632
0285 0 0000 40 4996 VSIN
0286 VCOS = COS(RADS)$
0286 0 0000 10 4998 RADS
0287 0 0000 44 4622 COS
0288 0 0000 30 4622
0289 0 0000 40 4995 VCOS
0290 VTAN = TAN(RADS)$
0290 0 0000 10 4998 RADS
0291 0 0000 44 4599 TAN
0292 0 0000 30 4599
0293 0 0000 40 4994 VTAN
0294 VASIN = ARCSIN(VSIN)$
0294 0 0000 10 4996 VSIN
0295 0 0000 44 4586 ARCSI
0296 0 0000 30 4586
0297 0 0000 40 4993 VASIN
0298 VACOS = ARCCOS(VCOS)$
0298 0 0000 10 4995 VCOS
0299 0 0000 44 4566 ARCCO
0300 0 0000 30 4566
0301 0 0000 40 4992 VACOS
0302 VATAN = ARCTAN(VTAN)$
0302 0 0000 10 4994 VTAN
0303 0 0000 44 4501 ARCTA
0304 0 0000 30 4501
0305 0 0000 40 4991 VATAN
0306 0 0000 10 0307
0307 0 0000 01 0201 RESUL
0308 0 4400 28 4749
0309 1 0000 40 0000
0306 WRITE($$ RESULTS, F)$
0310 0 0000 10 0311
0311 0 0000 01 0232 F
0312 0 0000 44 4749 WRITE
0313 0 0100 30 4749
0314 END$
0272 0315
0263 0314
0314 0 0000 30
0315 FINISH$
0315 0 9669 00 9669
0316 0 1000 60 0000
4748 0 0000 00 0001 POOL
4747 0 0000 00 0089
4990 0 4917 45 3292
4733 0 0006 45 0000
4734 0 2200 36 4737
4735 0 0000 48 0001
4736 0 0001 20 4734
4737 0 0001 48 0008
4738 1 0000 10 4743
4739 0 0001 49 0008
4740 0 0000 22 4746
4741 0 0000 42 4733
4742 1 0000 30 0000
4743 0 0000 00 0058
4744 0 0000 00 0059
4745 0 0000 00 0060
4746 0 5800 00 0000
4749 0 0100 01 0000
4750 0 0410 40 4785
4751 0 0000 42 4753
4752 0 0010 29 4985
4753 0 0300 29 0101
4754 0 0000 42 4749
4755 0 0412 40 4834
4756 1 0000 41 9999
4757 0 0009 43 7557
4758 0 2200 37 4762
4759 0 0000 42 0100
4760 1 0000 44 0000
4761 1 2201 37 0001
4762 0 0000 40 0132
4763 0 0412 40 4816
4764 0 0000 41 0130
4765 0 0000 37 4783
4766 0 0000 10 0134
4767 0 0000 46 0133
4768 0 5246 37 4945
4769 0 5267 37 4921
4770 0 5249 37 4859
4771 0 5262 37 4972
4772 0 5241 37 4774
4773 0 0000 30 4960
4774 0 0000 41 4792
4775 0 0001 27 0129
4776 0 0000 44 4917
4777 0 0000 30 4908
4778 0 0000 10 0129
4779 0 0000 36 4799
4780 0 2299 37 4813
4781 0 0001 49 0010
4782 0 0000 30 4775
4783 0 0000 42 4750
4784 0 0000 31 4455 ERROR
4785 0 0000 10 9999
4786 0 0401 26 4785
4787 0 0000 33 4801
4788 0 0000 41 4792
4789 0 0001 33 4817
4790 0 2214 36 4785
4791 0 0000 44 4917
4792 0 9900 30 4908
4793 0 2299 37 4785
4794 0 0001 49 0010
4795 0 0000 30 4790
4796 0 0000 10 0129
4797 0 0000 19 0125
4798 0 0000 19 0125
4799 0 0000 10 0130
4800 0 3300 36 4783
4801 0 3300 36 4803
4802 0 0000 13 4986
4803 0 0000 40 0130
4804 0 0210 40 0131
4805 0 0001 48 0002
4806 0 0310 40 0129
4807 0 7242 36 4796
4808 0 7266 36 4837
4809 0 7257 36 4845
4810 0 7263 36 4847
4811 0 7243 36 4836
4812 0 0300 36 4785
4813 0 0000 10 0132
4814 0 0000 40 0134
4815 0 0009 33 4796
4816 0 0000 30 9999
4817 0 0000 42 4785
4818 0 6600 36 4833
4819 0 0001 49 0003
4820 0 0300 37 4827
4821 0 0000 13 4986
4822 0 3300 36 4829
4823 1 6301 27 9999
4824 1 0000 41 9999
4825 0 0411 40 4785
4826 0 0000 30 4785
4827 1 3310 40 9999
4828 0 0000 30 4821
4829 1 0000 10 9999
4830 0 0001 48 0003
4831 1 6610 40 9999
4832 0 0000 30 4785
4833 0 0000 10 0132
4834 0 0009 33 9999
4835 0 0000 30 4824
4836 0 1008 61 0124
4837 0 0001 48 0003
4838 0 3111 40 4839
4839 0 2408 44 4488 REED
4840 0 0101 30 4488 REED
4841 0 0000 42 4843
4842 0 0010 29 4985
4843 0 0240 29 0101
4844 0 0000 30 4799
4845 0 1008 61 0124
4846 0 0000 30 4841
4847 0 0300 36 4852
4848 0 0010 09 4851
4849 0 0001 12 4829
4850 0 0000 30 4847
4851 2 1602 02 0202
4852 0 0000 10 0125
4853 0 0000 36 4799
4854 0 0000 12 4922
4855 0 0001 48 0004
4856 0 3211 40 4857
4857 0 0990 09 0101
4858 0 0000 30 4841
4859 0 0000 42 4869
4860 0 0000 36 4918
4861 0 1100 36 4919
4862 0 0000 40 0134
4863 0 0003 45 0080
4864 0 0002 40 0128
4865 0 0000 46 0126
4866 0 0410 40 0126
4867 0 0001 40 0127
4868 0 0000 10 0134
4869 0 0002 48 0010
4870 0 0001 43 0023
4871 0 0000 12 0129
4872 0 0000 13 0128
4873 0 0001 33 4960
4874 0 0000 19 0125
4875 0 5000 19 0125
4876 0 0000 10 0134
4877 0 0000 41 4913
4878 0 0000 44 4917
4879 0 0001 33 4907
4880 0 0001 27 0128
4881 0 0000 32 4893
4882 0 0000 41 0127
4883 0 0000 37 4799
4884 0 0000 41 4870
4885 0 0000 44 4917
4886 0 0000 30 4907
4887 0 0000 10 0127
4888 0 0000 13 4875
4889 0 0000 42 4805
4890 0 0000 46 0129
4891 0 0003 26 0129
4892 0 0000 30 4862
4893 0 0001 27 0126
4894 0 0000 41 0126
4895 0 0000 37 4901
4896 0 0000 41 0133
4897 0 0000 37 4903
4898 0 0001 27 0133
4899 0 0000 41 4863
4900 0 0000 30 4907
4901 0 0000 41 4830
4902 0 0000 30 4907
4903 0 0000 10 0134
4904 0 0000 41 4922
4905 0 0001 49 0001
4906 0 0000 40 0134
4907 0 0001 49 0018
4908 0 0001 48 0008
4909 0 0001 42 0125
4910 1 0000 49 0008
4911 0 9400 28 0125
4912 0 0024 21 4917
4913 0 0000 43 0020
4914 1 0000 12 0125
4915 1 0010 40 0125
4916 0 0002 26 0125
4917 0 0000 30 9999
4918 0 0009 21 4863
4919 0 0000 49 0051
4920 0 0001 21 4861
4921 0 0002 45 7557
4922 0 0001 48 0008
4923 0 0410 18 4987
4924 0 0001 40 0134
4925 0 0001 34 4935
4926 0 0410 40 4933
4927 0 0449 27 4933
4928 0 0000 42 4933
4929 0 0000 10 0130
4930 0 0001 48 0004
4931 0 4211 40 4934
4932 0 0000 10 4933
4933 0 0002 45 9999
4934 0 0000 20 4864
4935 0 0000 43 7557
4936 0 0000 13 4987
4937 0 0210 40 0133
4938 0 0211 18 0130
4939 0 0000 35 4942
4940 0 0000 10 4987
4941 0 0000 30 4926
4942 0 0000 10 4919
4943 0 1110 40 0134
4944 0 0000 30 4926
4945 0 0304 27 0129
4946 0 0000 32 4949
4947 0 0000 30 4959
4948 0 0000 10 4988
4949 0 0000 36 4948
4950 0 0002 45 7557
4951 0 2210 40 4874
4952 0 0001 48 0008
4953 0 0001 40 0134
4954 0 0002 48 0010
4955 0 0000 12 0130
4956 0 0000 17 4919
4957 0 0310 18 0129
4958 0 0001 34 4968
4959 0 0004 26 0129
4960 0 0000 10 0129
4961 0 0000 19 0125
4962 0 0000 19 0125
4963 0 0002 27 0125
4964 0 0000 41 4975
4965 0 0000 44 4917
4966 0 0000 30 4907
4967 0 0000 30 4799
4968 0 0000 41 4874
4969 0 0000 10 4905
4970 0 0000 42 0131
4971 0 0001 20 4864
4972 0 0002 45 7557
4973 0 0001 48 0008
4974 0 0001 40 0134
4975 0 0000 43 0014
4976 0 0000 13 4987
4977 0 0002 45 7557
4978 0 0001 33 4983
4979 0 0210 18 0130
4980 0 0000 34 4960
4981 0 0000 12 4905
4982 0 0000 30 4970
4983 0 0010 40 0133
4984 0 0000 30 4969
4985 2 0000 00 0000
4986 0 0010 00 0000
4987 0 0000 00 0050
4988 0 5000 00 0000
4434 0 0000 44 4467
4435 0 0000 30 4463
4436 2 5945 62 6453
4437 2 6300 56 6463
4438 2 0056 46 0059
4439 2 4155 47 4500
4440 2 4955 00 0000
4441 0 0000 44 4467
4442 0 0000 30 4463
4443 2 5945 62 6453
4444 2 6300 64 5544
4445 2 4546 49 5545
4446 2 4400 46 5659
4447 2 0000 00 0000
4448 0 0000 44 4467
4449 0 0000 30 4463
4450 2 5945 62 6453
4451 2 6300 49 5353
4452 2 2044 45 4649
4453 2 5545 44 0046
4454 2 5659 00 0000
4455 0 0000 46 4476
4456 0 0000 44 4467
4457 0 0000 30 4465
4458 0 0000 00 0000
4459 2 0041 59 4963
4460 2 4854 45 6349
4461 2 4300 56 6545
4462 2 5946 53 5666
4463 0 0001 40 4476
4464 0 0003 45 0000
4465 0 0412 40 4470
4466 0 0000 42 4487
4467 0 0050 29 0033
4468 0 1106 44 4488 REED
4469 0 4471 30 4488 REED
4470 0 0000 30 0036
4471 0 0000 00 0000
4472 0 0000 00 0000
4473 0 0000 00 0000
4474 0 0000 00 0000
4475 0 0000 00 0000
4476 0 0000 00 0000
4477 0 0000 00 0000
4478 0 0000 00 0000
4479 0 0000 00 0000
4480 0 0000 00 0000
4481 0 0000 00 0000
4482 0 5000 00 0000
4483 0 0000 00 0000
4484 0 0000 00 0000
4485 0 5110 00 0000
4486 0 0000 00 0000
4487 0 0000 00 4471
4688 0 0004 45 0000
4689 0 0000 42 4688
4690 1 0000 36 0000
4691 0 0001 33 4722
4692 0 0810 40 4724
4693 0 2310 40 4725
4694 0 0000 10 4482 ERROR
4695 0 0000 14 4725
4696 0 0000 13 4726
4697 0 2310 40 4725
4698 0 3110 18 4725
4699 0 0000 35 4702
4700 0 0001 33 4702
4701 0 2201 26 4725
4702 0 0000 10 4727
4703 0 0000 24 4724
4704 0 0000 22 4728
4705 0 0000 24 4724
4706 0 0000 22 4729
4707 0 0000 40 4483 ERROR
4708 0 0000 10 4724
4709 0 0000 25 4483 ERROR
4710 0 0000 22 4483 ERROR
4711 0 0000 24 4730
4712 0 0000 40 4483 ERROR
4713 0 0000 10 4724
4714 0 0000 25 4483 ERROR
4715 0 0000 22 4483 ERROR
4716 0 0000 12 4725
4717 0 0000 35 4720
4718 0 0000 24 4731
4719 1 0000 30 0000
4720 0 0000 24 4730
4721 1 0000 30 0000
4722 0 0000 41 4732
4723 0 0000 30 4441 ERROR
4724 0 5110 00 0000
4725 0 0000 00 0000
4726 0 2550 00 0000
4727 1 4916 45 0338
4728 0 5041 11 7101
4729 0 5062 69 7923
4730 0 5050 00 0000
4731 0 5015 81 1388
4732 2 6258 59 6300
4632 0 0006 45 0000
4633 0 0000 41 4678
4634 0 0411 40 4676
4635 0 0000 46 4486 ERROR
4636 0 0000 24 4681
4637 0 0001 49 0002
4638 0 0211 40 4680
4639 0 0000 42 4680
4640 0 9949 20 4646
4641 0 0007 21 4675
4642 1 0001 49 0018
4643 0 0000 40 4486 ERROR
4644 0 0000 10 4645
4645 0 0001 49 0050
4646 0 0001 49 0018
4647 0 0000 40 4484 ERROR
4648 0 0000 22 4484 ERROR
4649 0 0010 18 4485 ERROR
4650 0 0001 34 4654
4651 0 0000 43 0000
4652 0 0000 23 4682
4653 0 0001 49 0000
4654 0 0000 40 4484 ERROR
4655 0 0000 24 4484 ERROR
4656 0 0000 40 4483 ERROR
4657 0 0000 24 4683
4658 0 0000 22 4684
4659 0 0000 24 4483 ERROR
4660 0 0000 22 4685
4661 0 0000 24 4483 ERROR
4662 0 0000 22 4686
4663 0 0000 24 4483 ERROR
4664 0 0000 22 4687
4665 0 0000 24 4484 ERROR
4666 0 0000 22 4484 ERROR
4667 0 0000 40 4484 ERROR
4668 0 0000 10 4482 ERROR
4669 0 0000 14 4486 ERROR
4670 0 0000 10 4484 ERROR
4671 0 0000 42 4632
4672 1 0000 37 0000
4673 0 0000 11 4484 ERROR
4674 1 0000 30 0000
4675 0 0000 42 4632
4676 0 0000 41 4679
4677 0 0000 30 4448 ERROR
4678 0 0000 00 4679
4679 2 6249 55 0000
4680 0 0000 00 0000
4681 0 5031 83 0989
4682 0 5120 00 0000
4683 0 4715 14 8419
4684 1 4846 73 7656
4685 0 4979 68 9679
4686 1 5064 59 6371
4687 0 5057 07 9632
4622 0 0006 45 0000
4623 0 0000 41 4622
4624 0 0411 40 4632 SIN
4625 0 0000 41 4629
4626 0 0000 22 4631
4627 0 0000 22 4631
4628 0 0000 30 4634 SIN
4629 0 0000 00 4630
4630 2 4356 62 0000
4631 0 5078 53 9816
4599 0 0006 45 0000
4600 0 0000 40 4618
4601 0 0000 41 4621
4602 0 0000 44 4632 SIN
4603 0 0000 30 4626 COS
4604 0 0000 36 4612
4605 0 0000 40 4619
4606 0 0000 10 4618
4607 0 0000 44 4632 SIN
4608 0 0000 30 4632 SIN
4609 0 0000 25 4619
4610 0 0000 42 4599
4611 1 0000 30 0000
4612 0 0000 41 4618
4613 0 2211 18 4614
4614 1 5700 34 0000
4615 0 0000 42 4599
4616 0 0000 41 4620
4617 0 0000 30 4441 ERROR
4618 0 0000 00 0000
4619 0 0000 00 0000
4620 2 6341 55 0000
4621 0 0000 00 4620
4586 0 0000 01 0000
4587 0 0000 40 4486 ERROR
4588 0 0000 41 4597
4589 0 0000 44 4387 ROMXX
4590 0 0000 30 4391 ROMXX
4591 0 0000 42 4586
4592 0 0000 36 4426 ROMXX
4593 0 0000 40 4483 ERROR
4594 0 0000 10 4486 ERROR
4595 0 0000 25 4483 ERROR
4596 0 0000 30 4503 ARCTA
4597 0 0000 00 4598
4598 2 4162 49 5500
4566 0 0000 01 0000
4567 0 0000 40 4486 ERROR
4568 0 0000 42 4566
4569 0 0000 36 4426 ROMXX
4570 0 0000 41 4582
4571 0 0000 44 4387 ROMXX
4572 0 0000 30 4391 ROMXX
4573 0 0000 25 4486 ERROR
4574 0 0000 44 4501 ARCTA
4575 0 0000 30 4501 ARCTA
4576 0 0000 42 4566
4577 0 0000 41 4486 ERROR
4578 0 0001 49 0000
4579 1 0000 33 0000
4580 0 0000 22 4585
4581 1 0000 30 0000
4582 0 0000 00 4583
4583 2 4143 56 6200
4584 0 0000 00 0000
4585 0 5131 41 5927
4501 0 0006 45 0000
4502 0 0000 42 4501
4503 0 0010 18 4485 ERROR
4504 0 0000 40 4486 ERROR
4505 0 4412 40 4536
4506 0 0001 34 4510
4507 0 4401 27 4536
4508 0 5010 10 4554
4509 0 0000 25 4486 ERROR
4510 0 0010 18 4508
4511 0 0001 34 4542
4512 0 0000 49 0002
4513 0 0000 40 4486 ERROR
4514 0 0000 14 4486 ERROR
4515 0 0000 40 4483 ERROR
4516 0 0000 14 4555
4517 0 0000 12 4556
4518 0 0000 14 4483 ERROR
4519 0 0000 12 4557
4520 0 0000 14 4483 ERROR
4521 0 0000 12 4558
4522 0 0000 40 4484 ERROR
4523 0 0000 10 4559
4524 0 0000 14 4483 ERROR
4525 0 0000 12 4560
4526 0 0000 14 4483 ERROR
4527 0 0000 12 4561
4528 0 0000 14 4483 ERROR
4529 0 0000 12 4558
4530 0 0000 14 4486 ERROR
4531 0 0001 48 0002
4532 0 0000 15 4484 ERROR
4533 0 0000 40 4484 ERROR
4534 0 1105 26 4484 ERROR
4535 0 0000 10 4484 ERROR
4536 1 0000 20 0000
4537 0 0000 10 4562
4538 0 0000 41 4486 ERROR
4539 0 0001 49 0000
4540 0 0000 23 4484 ERROR
4541 1 0000 30 0001
4542 0 0000 40 4486 ERROR
4543 0 0000 24 4486 ERROR
4544 0 0000 40 4483 ERROR
4545 0 0000 24 4563
4546 0 0000 22 4564
4547 0 0000 24 4483 ERROR
4548 0 0000 23 4565
4549 0 0000 24 4483 ERROR
4550 0 0000 24 4486 ERROR
4551 0 0000 22 4486 ERROR
4552 0 0000 40 4484 ERROR
4553 0 0000 30 4536
4554 0 5099 99 9999
4555 0 0049 01 7591
4556 0 0565 03 0980
4557 0 1453 56 7135
4558 0 1000 00 0000
4559 0 0008 56 1189
4560 0 0280 50 4541
4561 0 1120 23 4014
4562 0 5115 70 7963
4563 1 5014 28 1428
4564 0 5020 00 0000
4565 0 5033 33 3333
4387 0 4390 01 0000
4388 0 4400 28 4387
4389 0 0000 31 4455 ERROR
4390 0 0000 41 4425
4391 0 0411 40 4421
4392 0 0010 18 4485 ERROR
4393 0 0000 34 4421
4394 0 2251 36 4418
4395 0 0000 36 4419
4396 0 0000 40 4486 ERROR
4397 0 0000 24 4486 ERROR
4398 0 0001 49 0002
4399 0 0211 40 4418
4400 0 0001 42 4418
4401 1 0001 48 0051
4402 0 0000 13 4431
4403 0 0001 49 0010
4404 0 0000 13 4482 ERROR
4405 0 0000 13 4482 ERROR
4406 0 0001 49 0010
4407 0 0000 31 4409
4408 0 0051 12 4432
4409 0 4400 28 4408
4410 0 1100 36 4416
4411 0 0412 40 4418
4412 0 0000 41 4418
4413 0 0001 49 0018
4414 0 0000 42 4387
4415 0 0000 30 4690 SQRT
4416 0 0001 49 0001
4417 0 0001 21 4410
4418 0 0001 43 0000
4419 0 0000 22 4485 ERROR
4420 0 0000 30 4414
4421 0 0000 41 4424
4422 0 0000 42 4387
4423 0 0000 30 4441 ERROR
4424 2 5956 54 6767
4425 0 0000 00 4424
4426 0 0000 10 4433
4427 0 0000 41 4486 ERROR
4428 1 0000 37 0000
4429 0 0001 49 0000
4430 1 0000 30 0000
4431 0 1000 00 0000
4432 0 0000 00 0001
4433 0 5115 70 7963
4488 0 0000 01 0000
4489 0 0000 42 4488
4490 1 0000 10 9999
4491 0 0000 48 0006
4492 0 0410 40 4498
4493 1 0000 10 9998
4494 0 4210 40 4498
4495 0 0000 48 0008
4496 0 0000 13 4500
4497 0 0000 19 4498
4498 0 2000 61 0000
4499 1 0000 30 0000
4500 0 0000 00 0001
COMPILED PROGRAM ENDS AT 0316
PROGRAM VARIABLES BEGIN AT 4387
D RADS SQRT SIN COS TAN ASIN ACOS ATAN
1 .17453292,-01 .13211091, 00 .17452404,-01 .99984769, 00 .17455062,-01 .17453291,-01 .17453645,-01 .17453290,-01
2 .34906584,-01 .18683303, 00 .34899493,-01 .99939083, 00 .34920765,-01 .34906582,-01 .34906526,-01 .34906581,-01
3 .52359876,-01 .22882280, 00 .52335954,-01 .99862955, 00 .52407776,-01 .52359877,-01 .52359603,-01 .52359875,-01
4 .69813168,-01 .26422182, 00 .69756469,-01 .99756405, 00 .69926807,-01 .69813167,-01 .69813187,-01 .69813166,-01
5 .87266460,-01 .29540897, 00 .87155740,-01 .99619470, 00 .87488660,-01 .87266462,-01 .87266451,-01 .87266460,-01
6 .10471975, 00 .32360431, 00 .10452845, 00 .99452190, 00 .10510422, 00 .10471974, 00 .10471971, 00 .10471974, 00
7 .12217304, 00 .34953259, 00 .12186933, 00 .99254616, 00 .12278454, 00 .12217304, 00 .12217299, 00 .12217303, 00
8 .13962633, 00 .37366605, 00 .13917309, 00 .99026809, 00 .14054082, 00 .13962633, 00 .13962619, 00 .13962633, 00
9 .15707962, 00 .39633271, 00 .15643445, 00 .98768836, 00 .15838442, 00 .15707962, 00 .15707952, 00 .15707961, 00
10 .17453292, 00 .41777137, 00 .17364816, 00 .98480779, 00 .17632695, 00 .17453291, 00 .17453271, 00 .17453290, 00
11 .19198621, 00 .43816230, 00 .19080897, 00 .98162719, 00 .19438028, 00 .19198619, 00 .19198618, 00 .19198619, 00
12 .20943950, 00 .45764560, 00 .20791167, 00 .97814762, 00 .21255653, 00 .20943949, 00 .20943941, 00 .20943948, 00
13 .22689279, 00 .47633264, 00 .22495103, 00 .97437012, 00 .23086815, 00 .22689279, 00 .22689256, 00 .22689276, 00
14 .24434608, 00 .49431373, 00 .24192187, 00 .97029579, 00 .24932796, 00 .24434608, 00 .24434583, 00 .24434606, 00
15 .26179938, 00 .51166334, 00 .25881903, 00 .96592586, 00 .26794916, 00 .26179938, 00 .26179926, 00 .26179936, 00
16 .27925267, 00 .52844362, 00 .27563734, 00 .96126173, 00 .28674535, 00 .27925268, 00 .27925256, 00 .27925265, 00
17 .29670596, 00 .54470720, 00 .29237169, 00 .95630480, 00 .30573065, 00 .29670596, 00 .29670582, 00 .29670594, 00
18 .31415925, 00 .56049909, 00 .30901698, 00 .95105657, 00 .32491966, 00 .31415926, 00 .31415909, 00 .31415923, 00
19 .33161254, 00 .57585807, 00 .32556814, 00 .94551864, 00 .34432757, 00 .33161255, 00 .33161235, 00 .33161252, 00
20 .34906584, 00 .59081792, 00 .34202011, 00 .93969269, 00 .36397017, 00 .34906583, 00 .34906563, 00 .34906579, 00
21 .36651913, 00 .60540821, 00 .35836793, 00 .93358051, 00 .38386397, 00 .36651913, 00 .36651889, 00 .36651909, 00
22 .38397242, 00 .61965506, 00 .37460656, 00 .92718394, 00 .40402615, 00 .38397240, 00 .38397220, 00 .38397237, 00
23 .40142571, 00 .63358163, 00 .39073110, 00 .92050495, 00 .42447474, 00 .40142571, 00 .40142545, 00 .40142566, 00
24 .41887900, 00 .64720860, 00 .40673660, 00 .91354557, 00 .44522858, 00 .41887899, 00 .41887873, 00 .41887893, 00
25 .43633230, 00 .66055452, 00 .42261823, 00 .90630784, 00 .46630759, 00 .43633230, 00 .43633218, 00 .43633226, 00
26 .45378559, 00 .67363607, 00 .43837113, 00 .89879411, 00 .48773253, 00 .45378560, 00 .45378544, 00 .45378556, 00
27 .47123888, 00 .68646839, 00 .45399047, 00 .89100660, 00 .50952537, 00 .47123887, 00 .47123873, 00 .47123883, 00
28 .48869217, 00 .69906519, 00 .46947155, 00 .88294767, 00 .53170937, 00 .48869219, 00 .48869202, 00 .48869214, 00
29 .50614546, 00 .71143900, 00 .48480959, 00 .87461980, 00 .55430895, 00 .50614546, 00 .50614528, 00 .50614541, 00
30 .52359876, 00 .72360123, 00 .49999998, 00 .86602550, 00 .57735018, 00 .52359876, 00 .52359857, 00 .52359871, 00
31 .54105205, 00 .73556238, 00 .51503804, 00 .85716733, 00 .60086055, 00 .54105203, 00 .54105200, 00 .54105202, 00
32 .55850534, 00 .74733214, 00 .52991924, 00 .84804814, 00 .62486929, 00 .55850533, 00 .55850526, 00 .55850532, 00
33 .57595863, 00 .75891938, 00 .54463900, 00 .83867070, 00 .64940744, 00 .57595862, 00 .57595838, 00 .57595854, 00
34 .59341192, 00 .77033234, 00 .55919288, 00 .82903772, 00 .67450836, 00 .59341193, 00 .59341166, 00 .59341184, 00
35 .61086522, 00 .78157866, 00 .57357642, 00 .81915212, 00 .70020745, 00 .61086522, 00 .61086509, 00 .61086518, 00
36 .62831851, 00 .79266543, 00 .58778523, 00 .80901708, 00 .72654242, 00 .62831851, 00 .62831836, 00 .62831846, 00
37 .64577180, 00 .80359928, 00 .60181501, 00 .79863561, 00 .75355393, 00 .64577182, 00 .64577164, 00 .64577175, 00
38 .66322509, 00 .81438633, 00 .61566145, 00 .78801087, 00 .78128547, 00 .66322510, 00 .66322491, 00 .66322502, 00
39 .68067838, 00 .82503234, 00 .62932038, 00 .77714609, 00 .80978388, 00 .68067839, 00 .68067818, 00 .68067831, 00
40 .69813168, 00 .83554274, 00 .64278758, 00 .76604458, 00 .83909944, 00 .69813167, 00 .69813146, 00 .69813159, 00
41 .71558497, 00 .84592255, 00 .65605901, 00 .75470974, 00 .86928652, 00 .71558498, 00 .71558473, 00 .71558487, 00
42 .73303826, 00 .85617652, 00 .66913057, 00 .74314489, 00 .90040391, 00 .73303825, 00 .73303817, 00 .73303821, 00
43 .75049155, 00 .86630914, 00 .68199834, 00 .73135378, 00 .93251495, 00 .75049156, 00 .75049145, 00 .75049150, 00
44 .76794484, 00 .87632459, 00 .69465834, 00 .71933990, 00 .96568859, 00 .76794485, 00 .76794471, 00 .76794477, 00
45 .78539814, 00 .88622689, 00 .70710676, 00 .70710689, 00 .99999981, 00 .78539814, 00 .78539799, 00 .78539807, 00
46 .80285143, 00 .89601975, 00 .71933979, 00 .69465849, 00 .10355301, 01 .80285150, 00 .80285130, 00 .80285140, 00
47 .82030472, 00 .90570672, 00 .73135367, 00 .68199850, 00 .10723684, 01 .82030470, 00 .82030450, 00 .82030460, 00
48 .83775801, 00 .91529119, 00 .74314481, 00 .66913076, 00 .11106122, 01 .83775810, 00 .83775780, 00 .83775790, 00
49 .85521130, 00 .92477633, 00 .75470955, 00 .65605920, 00 .11503680, 01 .85521130, 00 .85521110, 00 .85521120, 00
50 .87266460, 00 .93416516, 00 .76604442, 00 .64278780, 00 .11917532, 01 .87266460, 00 .87266440, 00 .87266450, 00
51 .89011789, 00 .94346057, 00 .77714593, 00 .62932060, 00 .12348966, 01 .89011790, 00 .89011760, 00 .89011770, 00
52 .90757118, 00 .95266528, 00 .78801073, 00 .61566157, 00 .12799413, 01 .90757120, 00 .90757110, 00 .90757110, 00
53 .92502447, 00 .96178189, 00 .79863548, 00 .60181514, 00 .13270445, 01 .92502450, 00 .92502440, 00 .92502440, 00
54 .94247776, 00 .97081291, 00 .80901697, 00 .58778538, 00 .13763815, 01 .94247780, 00 .94247760, 00 .94247770, 00
55 .95993106, 00 .97976068, 00 .81915203, 00 .57357658, 00 .14281476, 01 .95993110, 00 .95993090, 00 .95993100, 00
56 .97738435, 00 .98862749, 00 .82903755, 00 .55919306, 00 .14825605, 01 .97738440, 00 .97738420, 00 .97738430, 00
57 .99483764, 00 .99741547, 00 .83867053, 00 .54463921, 00 .15398643, 01 .99483760, 00 .99483750, 00 .99483750, 00
58 .10122909, 01 .10061267, 01 .84804806, 00 .52991946, 00 .16003338, 01 .10122909, 01 .10122907, 01 .10122908, 01
59 .10297442, 01 .10147631, 01 .85716727, 00 .51503829, 00 .16642787, 01 .10297442, 01 .10297440, 01 .10297441, 01
60 .10471975, 01 .10233267, 01 .86602538, 00 .50000023, 00 .17320499, 01 .10471976, 01 .10471973, 01 .10471974, 01
61 .10646508, 01 .10318191, 01 .87461967, 00 .48480986, 00 .18040467, 01 .10646508, 01 .10646506, 01 .10646506, 01
62 .10821041, 01 .10402423, 01 .88294757, 00 .46947169, 00 .18807259, 01 .10821041, 01 .10821040, 01 .10821040, 01
63 .10995573, 01 .10485977, 01 .89100646, 00 .45399078, 00 .19626091, 01 .10995573, 01 .10995571, 01 .10995572, 01
64 .11170106, 01 .10568872, 01 .89879400, 00 .43837144, 00 .20503023, 01 .11170106, 01 .11170104, 01 .11170104, 01
65 .11344639, 01 .10651121, 01 .90630773, 00 .42261858, 00 .21445051, 01 .11344639, 01 .11344637, 01 .11344637, 01
66 .11519172, 01 .10732740, 01 .91354541, 00 .40673683, 00 .22460356, 01 .11519172, 01 .11519171, 01 .11519171, 01
67 .11693705, 01 .10813743, 01 .92050482, 00 .39073134, 00 .23558510, 01 .11693706, 01 .11693704, 01 .11693704, 01
68 .11868238, 01 .10894144, 01 .92718383, 00 .37460682, 00 .24750852, 01 .11868239, 01 .11868237, 01 .11868237, 01
69 .12042771, 01 .10973956, 01 .93358040, 00 .35836819, 00 .26050872, 01 .12042771, 01 .12042769, 01 .12042770, 01
70 .12217304, 01 .11053191, 01 .93969259, 00 .34202040, 00 .27474752, 01 .12217304, 01 .12217302, 01 .12217302, 01
71 .12391837, 01 .11131862, 01 .94551856, 00 .32556843, 00 .29042083, 01 .12391838, 01 .12391835, 01 .12391835, 01
72 .12566370, 01 .11209982, 01 .95105650, 00 .30901714, 00 .30776820, 01 .12566370, 01 .12566369, 01 .12566369, 01
73 .12740903, 01 .11287561, 01 .95630474, 00 .29237187, 00 .32708507, 01 .12740903, 01 .12740902, 01 .12740902, 01
74 .12915436, 01 .11364609, 01 .96126170, 00 .27563754, 00 .34874121, 01 .12915437, 01 .12915435, 01 .12915435, 01
75 .13089969, 01 .11441140, 01 .96592582, 00 .25881924, 00 .37320479, 01 .13089969, 01 .13089968, 01 .13089968, 01
76 .13264501, 01 .11517161, 01 .97029571, 00 .24192211, 00 .40107773, 01 .13264502, 01 .13264500, 01 .13264500, 01
77 .13439034, 01 .11592684, 01 .97437005, 00 .22495129, 00 .43314712, 01 .13439035, 01 .13439033, 01 .13439033, 01
78 .13613567, 01 .11667719, 01 .97814758, 00 .20791194, 00 .47046243, 01 .13613567, 01 .13613566, 01 .13613566, 01
79 .13788100, 01 .11742274, 01 .98162716, 00 .19080926, 00 .51445467, 01 .13788100, 01 .13788099, 01 .13788099, 01
80 .13962633, 01 .11816358, 01 .98480773, 00 .17364847, 00 .56712721, 01 .13962633, 01 .13962631, 01 .13962631, 01
81 .14137166, 01 .11889981, 01 .98768832, 00 .15643477, 00 .63137390, 01 .14137166, 01 .14137164, 01 .14137164, 01
82 .14311699, 01 .11963151, 01 .99026806, 00 .13917342, 00 .71153533, 01 .14311699, 01 .14311697, 01 .14311697, 01
83 .14486232, 01 .12035876, 01 .99254614, 00 .12186953, 00 .81443338, 01 .14486232, 01 .14486231, 01 .14486231, 01
84 .14660765, 01 .12108164, 01 .99452188, 00 .10452867, 00 .95143454, 01 .14660764, 01 .14660764, 01 .14660764, 01
85 .14835298, 01 .12180023, 01 .99619469, 00 .87155968,-01 .11430022, 02 .14835298, 01 .14835297, 01 .14835297, 01
86 .15009831, 01 .12251461, 01 .99756404, 00 .69756717,-01 .14300616, 02 .15009830, 01 .15009829, 01 .15009829, 01
87 .15184364, 01 .12322485, 01 .99862953, 00 .52336217,-01 .19081041, 02 .15184364, 01 .15184362, 01 .15184362, 01
88 .15358896, 01 .12393101, 01 .99939082, 00 .34899775,-01 .28636024, 02 .15358895, 01 .15358895, 01 .15358895, 01
89 .15533429, 01 .12463318, 01 .99984769, 00 .17452703,-01 .57288987, 02 .15533427, 01 .15533428, 01 .15533428, 01
Reference in New Issue View Git Blame Copy Permalink