github.com/pkimpel.retro-220
1
0
Fork 0
mirror of https://github.com/pkimpel/retro-220.git synced 2026-03-07 11:17:55 +00:00
Code Issues Releases Wiki Activity
Files
master
pkimpel.retro-220/software/BALGOL/BALGOL-Examples/Library-Test-1/Library-Test-1-List.lst

246 lines
12 KiB
Plaintext
Raw Permalink 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 OUTPUT RESULTS(DEGREES, RADS, VSQRT, VSIN, VCOS, VTAN,
0220 VASIN, VACOS, VATAN)$
0231 FORMAT F(I2,2F14.8,6F15.8,W2),
0231 HEAD(* D RADS*,B10,*SQRT*,B11,*SIN*,B12,*COS*,B12,*TAN*,
0231 B12,*ASIN*,B11,*ACOS*,B11,*ATAN*,W2)$
0231
0255 TORADS = 3.1415926/180$
0257 WRITE($$ HEAD)$
0257
0261 FOR DEGREES = (1, 1, 89)$
0272 BEGIN
0272 RADS = DEGREES.TORADS$
0278 VSQRT = SQRT(RADS)$
0282 VSIN = SIN(RADS)$
0286 VCOS = COS(RADS)$
0290 VTAN = TAN(RADS)$
0294 VASIN = ARCSIN(VSIN)$
0298 VACOS = ARCCOS(VCOS)$
0302 VATAN = ARCTAN(VTAN)$
0306 WRITE($$ RESULTS, F)$
0314 END$
0315 FINISH$
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