1 " ***********************************************************
2 " * *
3 " * Copyright, C Honeywell Information Systems Inc., 1982 *
4 " * *
5 " * Copyright c 1972 by Massachusetts Institute of *
6 " * Technology and Honeywell Information Systems, Inc. *
7 " * *
8 " ***********************************************************
9
10 name bvd_table
11 segdef bvd_table
12 "
13 "
14 "
15 " bvd_table is to be used
16 " with PL/1 declarations as follows:
17 "
18 " dcl bvd_table-130:170 bit108 aligned;
19 "
20 "
21 " dcl 1 bvd_entry aligned,
22 " 2 val3 bit30 unaligned,
23 " 2 bin_exp bit18 unaligned;
24 "
25 "
26 " the Nth entry amounts to a fraction
27 " expressed as a 90-bit binary integer
28 " with scale=90 i.e. decimal point at
29 " left and an associated binary exponent
30 " stored as fixed bin17 in bit18
31 " so that the following points are true:
32 "
33 " 1- 1/2<= fraction <1
34 " 2- fraction=10**N*2**bin_exp
35 "
36 "
37 "
38 bvd_table:
39 oct 433727575274,262747107712,432377000657
40 oct 542715534553,337540731675,141077000654
41 oct 673501063706,227471120254,371317000651
42 oct 425210540333,736603562153,633701000645
43 oct 532452670422,726344516606,602662000642
44 oct 661165446527,514035642350,343436000637
45 oct 416611370126,617422505421,216163000633
46 oct 522353666154,363327226725,461620000630
47 oct 647046643607,460215074512,776164000625
48 oct 410330206264,576130145716,676710000621
49 oct 512416247741,735556177302,456472000616
50 oct 635121721732,325111637163,172211000613
51 oct 402163143150,405156103410,014325000607
52 oct 502617774002,506411524312,017413000604
53 oct 623363773003,230114051374,423316000601
54 oct 770260771604,076137063673,530201000576
55 oct 473156474062,446673340325,227121000572
56 oct 612012213077,160452230412,474745000567
57 oct 754414655717,014564676515,214136000564
58 oct 463650014541,307751027120,227473000560
59 oct 600622017671,571743234744,275412000555
60 oct 740766423650,130334104135,354714000552
61 oct 454472054311,067211452472,324037000546
62 oct 567610467373,305053765211,011047000543
63 oct 725552605272,166266762453,213261000540
64 oct 445442563264,311762267473,027057000534
65 oct 556753320141,374356745411,634672000531
66 oct 712546204171,673452536714,204051000526
67 oct 436537722514,125172533237,522432000522
68 oct 546267707237,152431262107,447140000517
69 oct 677745671107,005137536531,360770000514
70 oct 427757523554,303173633127,726473000510
71 oct 535753450507,364032601755,714212000505
72 oct 665346362631,261041342351,277254000502
73 oct 421320027577,656524715421,667454000476
74 oct 525604035537,632252100726,245367000473
75 oct 653145045067,600724521113,716664000470
76 oct 412777127142,660444722557,341221000464
77 oct 515576754773,434556107313,231465000461
78 oct 641136550172,343711531176,100002000456
79 oct 404573141114,416336027616,650001000452
80 oct 505731771337,522025435562,422002000447
81 oct 627320367627,446432745117,126402000444
82 oct 775204465575,360141536342,754103000441
83 oct 476222701456,326075033015,663451000435
84 oct 615667461772,013514241621,240364000432
85 oct 761245376370,416437312165,510461000427
86 oct 466647337033,251063476311,415276000423
87 oct 604421226642,123300415773,720556000420
88 oct 745525474412,550160521372,704712000415
89 oct 457425405646,541106322734,633036000411
90 oct 573332707220,271330007524,001646000406
91 oct 732221471064,347616011451,002217000403
92 oct 450333003540,620670605771,501331000377
93 oct 562421604470,765046747370,021620000374
94 oct 717126145607,162260541266,026164000371
95 oct 441365677464,407356334661,615710000365
96 oct 551663257401,511252024036,161272000362
97 oct 704240133302,033524431045,615551000357
98 oct 432544071071,221224657527,470441000353
99 oct 541275107307,465472033455,406552000350
100 oct 671554331171,403010442370,710305000345
101 oct 424043607613,741705265433,435173000341
102 oct 531054551556,732266542742,344431000336
103 oct 657267704112,520744273533,035540000333
104 oct 415462732456,522456565230,722434000327
105 oct 520777521172,247172322477,107143000324
106 oct 645177445430,721031007216,730774000321
107 oct 407217567357,442517504431,247475000315
108 oct 511063525253,353243425537,521415000312
109 oct 633300452526,246114333067,445720000307
110 oct 401070272525,747657610742,567542000303
111 oct 501306351253,341633553133,325472000300
112 oct 621570043526,232202505762,213011000275
113 oct 766126054453,700643227356,655613000272
114 oct 471665633673,330406036525,214467000266
115 oct 610243202652,216507446252,457605000263
116 oct 752314043424,662231357725,173546000260
117 oct 462377426155,017337725745,215240000254
118 oct 577077333610,223227713336,460510000251
119 oct 736717222552,270075676226,174632000246
120 oct 453241433542,363046526735,716000000242
121 oct 566111742473,057660254525,301400000237
122 oct 723534333211,673634327652,561700000234
123 oct 444231611026,125301606712,547130000230
124 oct 555300153233,552562150475,300756000225
125 oct 710560206102,505316602614,561151000222
126 oct 435346123651,513301161567,746602000216
127 oct 544637550624,036161416125,740342000213
128 oct 676007502771,045615721553,330433000210
129 oct 426604611673,527470543043,107261000204
130 oct 534345754252,455406673653,731135000201
131 oct 663437347325,170710452626,717364000176
132 oct 420163520505,213435272576,241531000172
133 oct 524220444626,456344551335,712057000167
134 oct 651264555774,172035703625,274473000164
135 oct 411660744575,514222532275,265704000160
136 oct 514235135735,037267260754,543266000155
137 oct 637304365324,247145135147,674143000152
138 oct 403472631304,550377172200,725476000146
139 oct 504411377565,702477030641,113015000143
140 oct 625513677523,263216637011,335621000140
141 oct 773036657450,140062406613,625165000135
142 oct 474723215571,074037444167,275211000131
143 oct 614110061127,313047355225,154453000126
144 oct 757132075355,175661250472,407566000123
145 oct 465370246324,216516651304,444652000117
146 oct 602666320011,262242423565,556024000114
147 oct 743444004013,536713130523,111432000111
148 oct 456166402407,233236767323,755760000105
149 oct 571624103111,102106565210,751354000102
150 oct 730171123733,322530322453,143647000077
151 oct 447113564351,103527203472,776310000073
152 oct 560736521443,324455044411,575772000070
153 oct 715126245754,211570255514,135371000065
154 oct 440165747563,526053154417,472334000061
155 oct 550223341520,453466007523,411023000056
156 oct 702270232044,566403411450,313227000053
157 oct 431363140226,752042145771,177036000047
158 oct 537657770274,544452577367,436646000044
159 oct 667633766353,675565337265,346420000041
160 oct 422701372023,326451313461,320052000035
161 oct 527461670430,214163576375,604064000032
162 oct 655376246536,257220536075,145101000027
163 oct 414336750132,755432332646,177151000023
164 oct 517426542161,550741021417,637003000020
165 oct 643334272616,103131225723,606604000015
166 oct 406111564570,651767635544,264162000011
167 oct 507534121727,024365605075,341217000006
168 oct 631463146314,631463146314,631463000003
169 oct 400000000000,000000000000,000000777777
170 oct 500000000000,000000000000,000000777774
171 oct 620000000000,000000000000,000000777771
172 oct 764000000000,000000000000,000000777766
173 oct 470400000000,000000000000,000000777762
174 oct 606500000000,000000000000,000000777757
175 oct 750220000000,000000000000,000000777754
176 oct 461132000000,000000000000,000000777750
177 oct 575360400000,000000000000,000000777745
178 oct 734654500000,000000000000,000000777742
179 oct 452013710000,000000000000,000000777736
180 oct 564416672000,000000000000,000000777733
181 oct 721522450400,000000000000,000000777730
182 oct 443023471240,000000000000,000000777724
183 oct 553630407510,000000000000,000000777721
184 oct 706576511432,000000000000,000000777716
185 oct 434157115760,200000000000,000000777712
186 oct 543212741354,240000000000,000000777707
187 oct 674055531647,310000000000,000000777704
188 oct 425434430110,475000000000,000000777700
189 oct 532743536132,614200000000,000000777675
190 oct 661534465561,357240000000,000000777672
191 oct 417031701446,725444000000,000000777666
192 oct 522640261760,512755000000,000000777663
193 oct 647410336354,635550200000,000000777660
194 oct 410545213024,002441120000,000000777654
195 oct 512676455631,003151344000,000000777651
196 oct 635456171177,204003635000,000000777646
197 oct 402374713617,422402302100,000000777642
198 oct 503074076563,327102762520,000000777637
199 oct 623713116320,214723557244,000000777634
200 oct 770675742004,260110513115,000000777631
201 oct 473426555202,556055316760,100000777625
202 oct 612334310443,311470602554,120000777622
203 oct 755023372554,174006743307,144000777617
204 oct 464114134543,515404256074,376400777613
205 oct 601137163674,440705331513,476100777610
206 oct 741367020653,551066620036,415520777605
207 oct 454732312413,241542172023,050422777601
208 oct 570120775116,112072630427,662526777576
209 oct 726145174341,534511376535,637254777573
210 oct 445677215615,031715737132,503453777567
211 oct 557257061160,240301326761,224366777564
212 oct 713132675414,310361614555,471464777561
213 oct 436770626347,575227067744,404000777555
214 oct 546566774041,534474705735,505000777552
215 oct 700324573052,063614067325,026200777547
216 oct 430204754732,240267442505,115720777543
217 oct 536246150120,710345353226,341304777540
218 oct 665717602145,072436646074,031565777535
219 oct 421541661277,144463207645,420051777531
220 oct 526072235556,775600051616,724064777526
221 oct 653510705112,575140064162,511101777523
222 oct 413215433156,556174040507,515550777517
223 oct 516060742012,311633050631,441102777514
224 oct 641475132414,774201662777,751323777511
225 oct 405006170450,075521117677,761704777505
226 oct 506207626562,115045343657,756265777502
227 oct 627651574316,540256634633,751742777477
228 oct 775624133402,270332404002,744333777474
229 oct 476474471141,363210442401,656611777470
230 oct 616213607371,660052553102,232353777465
231 oct 761656551270,234065305722,701046777462
232 oct 467115141663,141441273543,630527777456
233 oct 604740372237,771751552474,576655777453
234 oct 746130470707,770344105213,736431777450
235 oct 457667303434,773216453227,353057777444
236 oct 573645164344,172062166075,245673777441
237 oct 732616421435,230476623514,517252777436
238 oct 450571052762,237307174217,721452777432
239 oct 562727265556,707171033263,705765777427
240 oct 717515143112,471027242140,667362777424
241 oct 441620175756,503516445274,422527777420
242 oct 552164235352,224442156553,527255777415
243 oct 704621304644,671552612306,455130777412
244 oct 432772673007,024042566374,074167777406
245 oct 541571451610,631053324073,113225777403
246 oct 672127764152,777266211111,736072777400
247 oct 424266770502,677461725556,152644777374
248 oct 531344566623,457376313111,605415777371
249 oct 657635724370,373275775734,146721777366
250 oct 415702544633,235066576551,500242777362
251 oct 521263276002,104304336304,020313777357
252 oct 645540155402,525365425765,024376777354
253 oct 407434104341,525331355571,114637777350
254 oct 511343125432,052617651127,340006777345
255 oct 633633752740,465363623355,230010777342
256 oct 401301362654,301330274124,237005777336
257 oct 501561657427,361616353151,306606777333
258 oct 622116233335,256162046003,570350777330
259 oct 766541702224,531616457404,526442777325
260 oct 472135131334,730071075542,726065777321
261 oct 610564357624,116107315073,513502777316
262 oct 752721453571,141531200312,436423777313
263 oct 462642773253,575027620176,463054777307
264 oct 577413572126,534235564236,177667777304
265 oct 737316530554,263305121305,637645777301
266 oct 453501127343,560073162673,503707777275
267 oct 566421355234,514112017452,424671777272
268 oct 724125650503,637134423365,132047777267
269 oct 444465511312,303371654131,170230777263
270 oct 555603033574,764270227157,426276777260
271 oct 711143642534,161346275013,333756777255
272 oct 435576305531,506717766107,111365777251
273 oct 545135767060,030503763530,733662777246
274 oct 676365364674,036624760457,122636777243
275 oct 427031331025,423175066275,363603777237
276 oct 534637617232,730034303754,660544777234
277 oct 664007563101,516043364750,034675777231
278 oct 420404647751,020626131061,022026777225
279 oct 524506021743,224773557275,226433777222
280 oct 651627426334,072172513154,474142777217
281 oct 412076556011,444314517003,705475777213
282 oct 514516311413,755377642604,667015777210
283 oct 637641773716,750677613346,044620777205
284 oct 403705175341,261427667117,626772777201
285 oct 504666434631,535735644743,574570777176
286 oct 626044144000,065325216134,533726777173
287 oct 773455175000,102612461563,662714777170
288 oct 475174216100,051566477050,317637777164
289 oct 614433261520,064124216662,403607777161
290 oct 757542136044,101151262437,104551777156
291 oct 465635272626,450601657463,352742777152
292 oct 603204551374,162742233400,245532777147
293 oct 744045703673,217532702300,317061777144
294 oct 456427532325,031630631370,201336777140
295 oct 572135461012,240176777666,241626777135
296 oct 730564775214,710236577643,712174777132
297 oct 447351076230,035143157706,336315777126
298 oct 561243315676,044374013670,026001777123
299 oct 715514201255,455473016646,033401777120
300 oct 440417520654,374404711207,621140777114
301 oct 550523445027,473506073451,565371777111
302 oct 702650356235,412427512364,122667777106
303 oct 431611224742,346456616430,463622777102
304 oct 540153472133,040172362136,600567777077
305 oct 670206410561,650231056566,340725777074
306 oct 423124045347,111137535152,014445777070
307 oct 527751056640,733367464404,417556777065
308 oct 655743272411,122265401505,523512777062
309 oct 414556064445,563361341013,424216777056
310 oct 517711501557,120255631216,331261777053
311 oct 643674022112,744331177462,017536777050
312 oct 406325413256,656607617577,211632777044
313 oct 510012716132,432351563537,054201777041
314 oct 632015501561,141044120466,667242777036
315 oct 400210411046,574526462302,222445777032
316 oct 500252513260,333654176762,667156777027
317 oct 620325236134,422627236557,445012777024
318 oct 764412505563,527375106313,356214777021
319 oct 470646513450,226536153777,124730777015
320 oct 607020236362,274265606776,752116777012
321 oct 750624306056,753343150576,544541777007
322 oct 461374573635,263116001357,136734777003
323 oct 575673732604,537741401652,766524777000
324 oct 735252721345,667731702225,564251776775
325 oct 452252642717,522750131335,450551776771
326 oct 564725413503,447542157624,762704776766
327 oct 722112716424,361472613572,157465776763
328 oct 443256641054,627004567254,305601776757
329 oct 554132411267,774605725127,367141776754
330 oct 707161113545,773747312355,264772776751
331 oct 434406557237,575360476424,261074776745
332 oct 543510313107,534654616131,335313776742
333 oct 674432375731,464027761557,624576776737
334 oct 425660436550,000416767045,674756776733
335 oct 533234546302,000522564657,254152776730
336 oct 662103677762,400647322033,127205776725
337 oct 417252327767,440410503220,766423776721
338 oct 523125015765,350512624065,164130776716
339 oct 647752221362,642635371102,421156776713
340 "
341 "
342 end "" end of the bvd_table