| 0?0000800? 0001 1 |
| 0?0000800? 0002 1 fortran package missing |
| 0?0000800? 0003 1 from original listing |
| 0?0000800? 0004 1 rewritten by roberto sancho |
| 0?0000800? 0005 1 in may 2018 |
| 0?0000800? 0006 1 |
| 0?0000800? 0007 1 fortran package |
| 0?0000800? 0008 1 entry points |
| 0?0000800? 0009 1 |
| 0?0000800? 0010 synlaaaa 1999 initial lo |
| 0?0000800? 0011 synacc 0000 reserve ac |
| 0?0000800? 0012 1 |
| 0?0000800? 0013 1 built-in subroutines (180 word |
| 0?0000800? 0014 1 |
| 0?0000800? 0015 syne00aa 1961 check over |
| 0?0000800? 0016 syne00th 1962 float (u) |
| 0?0000800? 0017 syne00ae 1963 fix (l) to |
| 0?0000800? 0018 syne00af 1964 fix (l) to |
| 0?0000800? 0019 syne00aq 1965 read entry |
| 0?0000800? 0020 syne00ar 1966 punch entr |
| 0?0000800? 0021 synezzza 1967 save index |
| 0?0000800? 0022 synezzzb 1968 restore in |
| 0?0000800? 0023 1 |
| 0?0000800? 0024 1 power subroutines |
| 0?0000800? 0025 1 |
| 0?0000800? 0026 syne00ak 1949 fix (l) ** |
| 0?0000800? 0027 syne00al 1948 float (u) |
| 0?0000800? 0028 syne00lq 1947 float (u) |
| 0?0000800? 0029 1 |
| 0?0000800? 0030 1 function subroutines |
| 0?0000800? 0031 1 |
| 0?0000800? 0032 syne00ab 1969 logf (1) |
| 0?0000800? 0033 syne00ac 1970 expf (2) |
| 0?0000800? 0034 syne00lo 1971 lnf (300 |
| 0?0000800? 0035 syne00lp 1972 expnf (301 |
| 0?0000800? 0036 syne00av 1973 cosf (21) |
| 0?0000800? 0037 syne00aw 1974 sinf (22) |
| 0?0000800? 0038 syne00ax 1975 sqrtf (23) |
| 0?0000800? 0039 syne00ay 1976 absf (24) |
| 0?0000800? 0040 syne00az 1945 intf (25) |
| 0?0000800? 0041 syne00ba 1946 maxf (26) |
| 0?0000800? 0042 1 |
| 0?0000800? 0043 1 end of fortran package entry p |
| 0?0000800? 0044 1 |
| 0?0000800? 0045 1 |
| 0?0000800? 0046 1 fortran |
| 0?0000800? 0047 1 package reservation |
| 0?0000800? 0048 1 for package build |
| 0?0000800? 0049 1 |
| 0?0000800? 0050 1 includes |
| 0?0000800? 0051 1 - float fix conversions |
| 0?0000800? 0052 1 - fortran read punch statemens |
| 0?0000800? 0053 1 - fortran power operator |
| 0?0000800? 0054 1 - fortran functions |
| 0?0000800? 0055 1 excludes |
| 0?0000800? 0056 1 - nothing |
| 0?0000800? 0057 1 |
| 0?0000800? 0058 regy0002 0002 fortransit |
| 0?0000800? 0059 1 vars start |
| 0?0000800? 0060 blr 0000 1400 reserve al |
| 0?0000800? 0061 1 drum excep |
| 0?0000800? 0062 1 pack space |
| 0?0000800? 0063 1 |
| 0?0000800? 0064 1 end of package reservation |
| 0?0000800? 0065 1 |
| 0?0000800? 0066 1 |
| 0?0000800? 0067 1 fortran package |
| 0?0000800? 0068 1 source code |
| 0?0000800? 0069 1 |
| 0?0000800? 0070 blr 1945 1950 entry powe |
| 0?0000800? 0071 regp1951 1960 read band |
| 0?0000800? 0072 blr 1961 1968 entry buil |
| 0?0000800? 0073 blr 1969 1976 entry func |
| 0?0000800? 0074 regj1977 1986 punch band |
| 0?0000800? 0075 blr 1987 1987 |
| 0?0000800? 0076 regw1988 1998 storage ba |
| 0?0000800? 0077 1 |
| 0?0000800? 0078 1 save index registers |
| 0?0000800? 0079 1 |
| 6I1954195C 0080241967800?241420142C ezzzastdezzzx |
| 6I1954195C 0081241423800?698005142I ldd 8005 |
| 6I1954195C 0082241429800?241432143E stdezzia |
| 6I1954195C 0083241435800?698006144A ldd 8006 |
| 6I1954195C 0084241441800?241444144G stdezzib |
| 6I1954195C 0085241447800?698007140C ldd 8007 |
| 6I1954195C 0086241403800?241406142? stdezzic ezzzx |
| 0?0000800? 0087 1 |
| 0?0000800? 0088 1 restore saved index registers |
| 0?0000800? 0089 1 |
| 6I1954195C 0090241968800?691432148E ezzzblddezzia |
| 6I1954195C 0091241485800?808001149A raa 8001 |
| 6I1954195C 0092241491800?691444149G lddezzib |
| 6I1954195C 0093241497800?828001145C rab 8001 |
| 6I1954195C 0094241453800?691406140I lddezzic |
| 6I1954195C 0095241409800?888001141E rac 8001 erthx |
| 6I1954195C 0096241420800?000000000? ezzzx 00 0000 0000 |
| 6I1954195C 0097241432800?000000000? ezzia 00 0000 0000 |
| 6I1954195C 0098241444800?000000000? ezzib 00 0000 0000 |
| 6I1954195C 0099241406800?000000000? ezzic 00 0000 0000 |
| 0?0000800? 0100 1 |
| 0?0000800? 0101 1 overflow checking |
| 0?0000800? 0102 1 |
| 6I1954195C 0103241961800?471414800A e00aabov 8001 |
| 6I1954195C 0104241414800?010100800A hlt 0100 8001 alarm arit |
| 0?0000800? 0105 1 |
| 0?0000800? 0106 1 (l) fixed point - (u) float |
| 0?0000800? 0107 1 |
| 6I1954195C 0108241962800?241415141H e00thstderthx float uppe |
| 6I1954195C 0109241418800?300002142E srt 0002 to fix low |
| 6I1954195C 0110241425800?211430143C stuartha save manti |
| 6I1954195C 0111241433800?678002154A ram 8002 test exp |
| 6I1954195C 0112241541800?161494144I slon51 store zero |
| 6I1954195C 0113241449800?461402150C bmiad1 if less th |
| 6I1954195C 0114241503800?161456141A slon10 51 ala |
| 6I1954195C 0115241411800?461464146E bmi ad3 if grtr th |
| 6I1954195C 0116241464800?300004147E srt 0004 60 |
| 6I1954195C 0117241475800?151428148C aloonet |
| 6I1954195C 0118241483800?691436143I lddad2a modify |
| 6I1954195C 0119241439800?221443144F sdaad2 shift |
| 6I1954195C 0120241446800?651430153E ralartha |
| 6I1954195C 0121241535800?350002144C slt 0002 ad2 |
| 6I1954195C 0122241402800?658003141E ad1 ral 8003 erthx store zero |
| 6I1954195C 0123241443800?300000141E ad2 srt 0000 erthx shift cons |
| 6I1954195C 0124241436800?300000141E ad2a srt 0000 erthx |
| 6I1954195C 0125241465800?691415146H ad3 ldderthx |
| 6I1954195C 0126241468800?010501800A hlt 0501 8001 alarm floa |
| 6I1954195C 0127241456800?100000000? n10 10 0000 0000 |
| 6I1954195C 0128241494800?510000000? n51 51 0000 0000 |
| 6I1954195C 0129241428800?000001000? onet 00 0001 0000 |
| 6I1954195C 0130241415800?000000000? erthx 00 0000 0000 |
| 6I1954195C 0131241430800?000000000? artha 00 0000 0000 |
| 0?0000800? 0132 1 |
| 0?0000800? 0133 1 (u) and (acc) float - (l) fix |
| 0?0000800? 0134 1 |
| 6I1954195C 0135241964800?241430153C e00afstdartha float to u |
| 6I1954195C 0136241533800?691486196C ldd e00ae and acc |
| 6I1954195C 0137241486800?210000143? stuacc artha |
| 0?0000800? 0138 1 |
| 0?0000800? 0139 1 (u) float - (l) fixed point |
| 0?0000800? 0140 1 |
| 6I1954195C 0141241963800?241415151H e00aestderthx float to u |
| 6I1954195C 0142241518800?608002142G rau 8002 ae0 only |
| 6I1954195C 0143241427800?360000149I ae0 sct 0000 normalize |
| 6I1954195C 0144241499800?201553150F stlarthb |
| 6I1954195C 0145241506800?471402146A bovad1 zero check |
| 6I1954195C 0146241461800?658003141I ral 8003 |
| 6I1954195C 0147241419800?310002147G srd 0002 round for |
| 6I1954195C 0148241477800?350002158C slt 0002 placing ex |
| 6I1954195C 0149241583800?441437143H nzu ae6 check roun |
| 6I1954195C 0150241437800?698003154D ldd 8003 overflow |
| 6I1954195C 0151241544800?300001140A srt 0001 |
| 6I1954195C 0152241401800?158001143H alo 8001 ae6 |
| 6I1954195C 0153241438800?461591144B ae6 bmiae2 insert |
| 6I1954195C 0154241442800?151445154I aloaj3 ae5 exponent |
| 6I1954195C 0155241591800?161445154I ae2 sloaj3 ae5 |
| 6I1954195C 0156241549800?161553140G ae5 sloarthb |
| 6I1954195C 0157241407800?608002141E rau 8002 erthx |
| 6I1954195C 0158241445800?000000006? aj3 00 0000 0060 |
| 6I1954195C 0159241553800?000000000? arthb 00 0000 0000 |
| 0?0000800? 0160 1 |
| 0?0000800? 0161 1 punch card |
| 0?0000800? 0162 1 |
| 6I1954195C 0163241966800?241415156H e00arstderthx punch out |
| 6I1954195C 0164241568800?691984148G lddj0008 |
| 6I1954195C 0165241487800?231984153G siaj0008 store stmn |
| 6I1954195C 0166241537800?691428143A lddonet |
| 6I1954195C 0167241431800?221585148H sdanvars and nvars |
| 6I1954195C 0168241488800?168001149E slo 8001 if stmt ze |
| 6I1954195C 0169241495800?451448159I nzear3 punch if |
| 6I1954195C 0170241599800?658000145G ral 8000 8000 is ne |
| 6I1954195C 0171241457800?461448141E bmiar3 erthx else exit |
| 6I1954195C 0172241448800?691451140D ar3 lddar3a ar5 init pch c |
| 6I1954195C 0173241451800?651585148I ar3a ralnvars dec nvars |
| 6I1954195C 0174241489800?161428163C sloonet |
| 6I1954195C 0175241633800?461536158G bmiar8 test word |
| 6I1954195C 0176241587800?201585153H stlnvars count |
| 6I1954195C 0177241538800?151641800B alo 8002 get nword |
| 6I1954195C 0178241641800?651989149C ralw0002 in lower |
| 6I1954195C 0179241493800?691496164I lddnword |
| 6I1954195C 0180241649800?221496169I sdanword store num |
| 6I1954195C 0181241699800?350004145I slt 0004 |
| 6I1954195C 0182241459800?691412151E lddadwrd |
| 6I1954195C 0183241515800?221412156E sdaadwrd ar4 store addr |
| 6I1954195C 0184241565800?651618147C ar4 ralnpch is card fu |
| 6I1954195C 0185241473800?161426148A sloarn7 |
| 6I1954195C 0186241481800?461434163E bmiar4a |
| 6I1954195C 0187241635800?711977152G pchj0001 yes punch |
| 6I1954195C 0188241527800?691434140D lddar4a ar5 call init |
| 6I1954195C 0189241434800?651618152C ar4a ralnpch incr no of |
| 6I1954195C 0190241523800?151428168C aloonet punched w |
| 6I1954195C 0191241683800?201618142A stlnpch |
| 6I1954195C 0192241421800?651412141G raladwrd indr adwrd |
| 6I1954195C 0193241417800?151428173C aloonet |
| 6I1954195C 0194241733800?201412161E stladwrd |
| 6I1954195C 0195241615800?161428178C sloonet |
| 6I1954195C 0196241783800?151586800B alo 8002 get adwrd |
| 6I1954195C 0197241586800?650001140E raly0000 contents |
| 6I1954195C 0198241405800?201509146B stldatwd store in |
| 6I1954195C 0199241462800?601665146I raudatld |
| 6I1954195C 0200241469800?151618157C alonpch store at |
| 6I1954195C 0201241573800?151476800C alo 8003 j0000 plu |
| 6I1954195C 0202241476800?241976147I stdj0000 npch |
| 6I1954195C 0203241479800?651496150A ralnword decr var n |
| 6I1954195C 0204241501800?161428183C sloonet to be pun |
| 6I1954195C 0205241833800?451636145A nze ar3a |
| 6I1954195C 0206241636800?461451144? bmiar3a |
| 6I1954195C 0207241440800?201496156E stlnword ar4 |
| 6I1954195C 0208241404800?241507141? ar5 stdar5x sub init p |
| 6I1954195C 0209241410800?651984153I ralj0008 incr card |
| 6I1954195C 0210241539800?151428188C aloonet number |
| 6I1954195C 0211241883800?201984163G stlj0008 |
| 6I1954195C 0212241637800?211618147A stunpch card with |
| 6I1954195C 0213241471800?241977148? stdj0001 punched w |
| 6I1954195C 0214241480800?241978153A stdj0002 set punch |
| 6I1954195C 0215241531800?241979148B stdj0003 band to |
| 6I1954195C 0216241482800?241980193C stdj0004 zeroes |
| 6I1954195C 0217241933800?241981148D stdj0005 |
| 6I1954195C 0218241484800?241982168E stdj0006 |
| 6I1954195C 0219241685800?241983150G stdj0007 ar5x |
| 6I1954195C 0220241536800?711977141E ar8 pchj0001 erthx punch |
| 6I1954195C 0221241428800?000001000? onet 00 0001 0000 |
| 6I1954195C 0222241426800?000007000? arn7 00 0007 0000 |
| 6I1954195C 0223241984800?000000000? j0008 00 0000 0000 card count |
| 6I1954195C 0224241986800?800000008? j0010 80 0000 0080 control cn |
| 6I1954195C 0225241507800?000000000? ar5x 00 0000 0000 exit for s |
| 6I1954195C 0226241585800?000000000? nvars 00 0000 0000 num of var |
| 6I1954195C 0227241496800?000000000? nword 00 0000 0000 num of wor |
| 6I1954195C 0228241412800?000000000? adwrd 00 0000 0000 addr of wo |
| 6I1954195C 0229241618800?000000000? npch 00 0000 0000 num of wor |
| 6I1954195C 0230241509800?000000000? datwd 00 0000 0000 data word |
| 0?0000800? 0231 1 |
| 0?0000800? 0232 1 read card |
| 0?0000800? 0233 1 |
| 6I1954195C 0234241965800?241415166H e00aqstderthx read in |
| 6I1954195C 0235241668800?691428158A lddonet |
| 6I1954195C 0236241581800?221585158H sdanvars nvars to r |
| 6I1954195C 0237241588800?211618152A stunpch aq3a init to ze |
| 6I1954195C 0238241521800?651585158I aq3a ralnvars dec nvars |
| 6I1954195C 0239241589800?161428153D sloonet |
| 6I1954195C 0240241534800?461415163H bmierthx exit if ze |
| 6I1954195C 0241241638800?201585168H stlnvars |
| 6I1954195C 0242241688800?151691800B alo 8002 get nword |
| 6I1954195C 0243241691800?651989154C ralw0002 in lower |
| 6I1954195C 0244241543800?691496174I lddnword |
| 6I1954195C 0245241749800?221496179I sdanword store num |
| 6I1954195C 0246241799800?350004155I slt 0004 |
| 6I1954195C 0247241559800?691412171E lddadwrd |
| 6I1954195C 0248241715800?221412176E sdaadwrd aq4 store addr |
| 6I1954195C 0249241765800?651618162C aq4 ralnpch check if s |
| 6I1954195C 0250241623800?451526157G nzeaq4a |
| 6I1954195C 0251241577800?701951155A rcdp0001 yes read |
| 6I1954195C 0252241551800?691426152I lddarn7 |
| 6I1954195C 0253241529800?241618152F stdnpch aq4a |
| 6I1954195C 0254241526800?651618167C aq4a ralnpch decr no of |
| 6I1954195C 0255241673800?161428158D sloonet punched wo |
| 6I1954195C 0256241584800?201618157A stlnpch |
| 6I1954195C 0257241571800?651426163A ralarn7 |
| 6I1954195C 0258241631800?161618172C slonpch get word a |
| 6I1954195C 0259241723800?151576800B alo 8002 p0000 plu |
| 6I1954195C 0260241576800?691950160C lddp0000 npch in d |
| 6I1954195C 0261241603800?241509151B stddatwd store it |
| 6I1954195C 0262241512800?601665151I raudatld |
| 6I1954195C 0263241519800?151412146G aloadwrd incr adwrd |
| 6I1954195C 0264241467800?151428163D aloonet |
| 6I1954195C 0265241634800?201412181E stladwrd |
| 6I1954195C 0266241815800?161428168D sloonet |
| 6I1954195C 0267241684800?151687800C alo 8003 set adwrd |
| 6I1954195C 0268241687800?240001145D stdy0000 contents |
| 6I1954195C 0269241454800?651496160A ralnword decr var n |
| 6I1954195C 0270241601800?161428173D sloonet to be rea |
| 6I1954195C 0271241734800?451738152A nze aq3a |
| 6I1954195C 0272241738800?461521149B bmiaq3a |
| 6I1954195C 0273241492800?201496176E stlnword aq4 |
| 6I1954195C 0274241428800?000001000? onet 00 0001 0000 |
| 6I1954195C 0275241665800?691509800B datldldddatwd 8002 load card |
| 0?0000800? 0276 1 |
| 0?0000800? 0277 1 alarm if try to use a not defi |
| 0?0000800? 0278 1 |
| 6I1954195C 0279241949800?019010800A e00akhlt 9010 8001 alarm fix |
| 6I1954195C 0280241948800?019011800A e00alhlt 9011 8001 alarm floa |
| 6I1954195C 0281241947800?019302800A e00lqhlt 9302 8001 alarm floa |
| 6I1954195C 0282241969800?019001800A e00abhlt 9001 8001 alarm logf |
| 6I1954195C 0283241970800?019002800A e00achlt 9002 8001 alarm expf |
| 6I1954195C 0284241971800?019300800A e00lohlt 9300 8001 alarm lnf |
| 6I1954195C 0285241972800?019301800A e00lphlt 9301 8001 alarm expn |
| 6I1954195C 0286241973800?019021800A e00avhlt 9021 8001 alarm cosf |
| 6I1954195C 0287241974800?019022800A e00awhlt 9022 8001 alarm sinf |
| 6I1954195C 0288241975800?019023800A e00axhlt 9023 8001 alarm sqrt |
| 6I1954195C 0289241976800?019024800A e00ayhlt 9024 8001 alarm absf |
| 6I1954195C 0290241945800?019025800A e00azhlt 9025 8001 alarm intf |
| 6I1954195C 0291241946800?019026800A e00bahlt 9026 8001 alarm maxf |
| 6I1954195C 0292241450800?019099800A ezztyhlt 9099 8001 alarm func |
| 0?0000800? 0293 1 |
| 0?0000800? 0294 1 start of subroutines |
| 0?0000800? 0295 1 |
| 0?0000800? 0296 1 |
| 0?0000800? 0297 1 (l) and (acc) fixed - (l) fix |
| 0?0000800? 0298 1 |
| 6I1954195C 0299241949800?241415171H e00akstderthx power fix |
| 6I1954195C 0300241718800?201430178D stlartha ak1 m is argmn |
| 6I1954195C 0301241784800?670000145E ak1 ramacc p equals |
| 6I1954195C 0302241455800?201553155F stlarthb abval pow |
| 6I1954195C 0303241556800?651609141C ralone h is resul |
| 6I1954195C 0304241413800?201517147? stlarthc ak3 init to o |
| 6I1954195C 0305241470800?601553155G ak3 rauarthb p is gtst |
| 6I1954195C 0306241557800?191460168A mpyn50 intgr in |
| 6I1954195C 0307241681800?211553160F stuarthb p over tw |
| 6I1954195C 0308241606800?658002186E ral 8002 is remaind |
| 6I1954195C 0309241865800?451768156I nze ak5 zero |
| 6I1954195C 0310241768800?601517162A rauarthc if not h i |
| 6I1954195C 0311241621800?191430165A mpyartha h times m |
| 6I1954195C 0312241651800?441505165F nzuak12 |
| 6I1954195C 0313241656800?201517156I stlarthc ak5 |
| 6I1954195C 0314241569800?601553160G ak5 rauarthb |
| 6I1954195C 0315241607800?441511156B nzu ak6 is p zero |
| 6I1954195C 0316241511800?601430173E rauartha if not |
| 6I1954195C 0317241735800?198001165I mpy 8001 m equals |
| 6I1954195C 0318241659800?441505151D nzuak12 |
| 6I1954195C 0319241514800?201430147? stlartha ak3 m squared |
| 6I1954195C 0320241562800?600000155E ak6 rauacc is power n |
| 6I1954195C 0321241555800?461408170I bmi ak7 if so is h |
| 6I1954195C 0322241408800?671517167A ramarthc zero |
| 6I1954195C 0323241671800?451424152E nze ak8 if not is |
| 6I1954195C 0324241424800?161609146C sloone one |
| 6I1954195C 0325241463800?451416170I nzeak10 ak7 |
| 6I1954195C 0326241709800?651517172A ak7 ralarthc ak11 exhibit h |
| 6I1954195C 0327241416800?658003172A ak10 ral 8003 ak11 |
| 6I1954195C 0328241721800?200000141E ak11 stlacc erthx |
| 6I1954195C 0329241505800?691415181H ak12 ldderthx |
| 6I1954195C 0330241818800?010003800A hlt 0003 8001 alarm over |
| 6I1954195C 0331241525800?691415186H ak8 ldderthx |
| 6I1954195C 0332241868800?010010800A hlt 0010 8001 alarm zero |
| 6I1954195C 0333241460800?500000000? n50 50 0000 0000 |
| 6I1954195C 0334241609800?000000000A one 00 0000 0001 |
| 6I1954195C 0335241517800?000000000? arthc 00 0000 0000 |
| 0?0000800? 0336 1 |
| 0?0000800? 0337 1 (u) and (acc) float - (u) flo |
| 0?0000800? 0338 1 |
| 6I1954195C 0339241948800?241415191H e00alstderthx power floa |
| 6I1954195C 0340241918800?211430183D stuartha al1 m is argmn |
| 6I1954195C 0341241834800?670000160E al1 ramacc p equals |
| 6I1954195C 0342241605800?201553170F stlarthb abval pow |
| 6I1954195C 0343241706800?651759151C ralfp1 h is resul |
| 6I1954195C 0344241513800?201517152? stlarthc al3 init to f |
| 6I1954195C 0345241520800?601553165G al3 rauarthb p is gtst |
| 6I1954195C 0346241657800?191460173A mpyn50 intgr in |
| 6I1954195C 0347241731800?211553175F stuarthb p over tw |
| 6I1954195C 0348241756800?658002191E ral 8002 is remaind |
| 6I1954195C 0349241915800?451619166I nze al5 zero |
| 6I1954195C 0350241619800?601517177A rauarthc if not h i |
| 6I1954195C 0351241771800?391430153? fmpartha h times m |
| 6I1954195C 0352241530800?471884178E boval12 |
| 6I1954195C 0353241785800?211517166I stuarthc al5 |
| 6I1954195C 0354241669800?601553170G al5 rauarthb |
| 6I1954195C 0355241707800?441561161B nzu al6 is p zero |
| 6I1954195C 0356241561800?601430183E rauartha if not |
| 6I1954195C 0357241835800?398001178H fmp 8001 m equals |
| 6I1954195C 0358241788800?471884159C boval12 |
| 6I1954195C 0359241593800?211430152? stuartha al3 m squared |
| 6I1954195C 0360241612800?600000165E al6 rauacc is power n |
| 6I1954195C 0361241655800?461458180I bmi al7 if so is h |
| 6I1954195C 0362241458800?671517182A ramarthc zero |
| 6I1954195C 0363241821800?451474157E nze al8 if not cal |
| 6I1954195C 0364241474800?601759156C raufp1 h recipro |
| 6I1954195C 0365241563800?341517156G fdvarthc al11 |
| 6I1954195C 0366241809800?601517156G al7 rauarthc al11 exhibit h |
| 6I1954195C 0367241567800?210000141E al11 stuacc erthx |
| 6I1954195C 0368241884800?691415171I al12 ldderthx |
| 6I1954195C 0369241719800?010049800A hlt 0049 8001 alarm over |
| 6I1954195C 0370241575800?691415176I al8 ldderthx |
| 6I1954195C 0371241769800?010011800A hlt 0011 8001 alarm zero |
| 6I1954195C 0372241460800?500000000? n50 50 0000 0000 |
| 6I1954195C 0373241759800?100000005A fp1 10 0000 0051 |
| 0?0000800? 0374 1 |
| 0?0000800? 0375 1 (u) float - 10 ** (u) float |
| 0?0000800? 0376 1 |
| 6I1954195C 0377241970800?241415181I e00acstderthx exponentia |
| 6I1954195C 0378241819800?451422177C nze ac5 is argumen |
| 6I1954195C 0379241422800?441625145? nzu ezzty alarm func |
| 6I1954195C 0380241625800?300002178A srt 0002 zero |
| 6I1954195C 0381241781800?211517157? stuarthc if not let |
| 6I1954195C 0382241570800?688002157I rsm 8002 n be mant |
| 6I1954195C 0383241579800?151532173G alon52 x be powe |
| 6I1954195C 0384241737800?461490174A bmiac4 is x grtr |
| 6I1954195C 0385241741800?350001154G slt 0001 than ten |
| 6I1954195C 0386241547800?441773145B nzuac5 or less th |
| 6I1954195C 0387241452800?300005146F srt 0005 minus eig |
| 6I1954195C 0388241466800?151869182C aloac6 if x withi |
| 6I1954195C 0389241823800?201553180F stlarthb bounds ge |
| 6I1954195C 0390241806800?601517187A rauarthc int and |
| 6I1954195C 0391241871800?300006155C srt 0006 arthb fract part |
| 6I1954195C 0392241532800?520000000? n52 52 0000 0000 of argume |
| 6I1954195C 0393241869800?300000179A ac6 srt 0000 is arg neg |
| 6I1954195C 0394241791800?461594154E bmiac8 if so int |
| 6I1954195C 0395241545800?211553185F stuarthb ac1 int minus |
| 6I1954195C 0396241594800?111609161C ac8 supone and fract |
| 6I1954195C 0397241613800?211553190F stuarthb fract plus |
| 6I1954195C 0398241906800?658002151F ral 8002 |
| 6I1954195C 0399241516800?151919185F alon999 ac1 |
| 6I1954195C 0400241856800?201517162? ac1 stlarthc arthc is f |
| 6I1954195C 0401241620800?608002162I rau 8002 arthb is i |
| 6I1954195C 0402241629800?191582165C mpyac18 generate |
| 6I1954195C 0403241653800?608003161A rau 8003 |
| 6I1954195C 0404241611800?101564167? aupac17 polynomia |
| 6I1954195C 0405241670800?191517178G mpyarthc |
| 6I1954195C 0406241787800?608003159E rau 8003 approxima |
| 6I1954195C 0407241595800?101498170C aupac16 |
| 6I1954195C 0408241703800?191517183G mpyarthc |
| 6I1954195C 0409241837800?608003164E rau 8003 for |
| 6I1954195C 0410241645800?101548175C aupac15 |
| 6I1954195C 0411241753800?191517188G mpyarthc exponentia |
| 6I1954195C 0412241887800?608003169E rau 8003 |
| 6I1954195C 0413241695800?101598180C aupac14 |
| 6I1954195C 0414241803800?191517193G mpyarthc |
| 6I1954195C 0415241937800?608003174E rau 8003 |
| 6I1954195C 0416241745800?101648185C aupac13 |
| 6I1954195C 0417241853800?191517183H mpyarthc |
| 6I1954195C 0418241838800?608003179E rau 8003 |
| 6I1954195C 0419241795800?101698190C aupac12 |
| 6I1954195C 0420241903800?191517188H mpyarthc square |
| 6I1954195C 0421241888800?608003184E rau 8003 result |
| 6I1954195C 0422241845800?101456166A aupn10 scale and |
| 6I1954195C 0423241661800?198003188E mpy 8003 float the |
| 6I1954195C 0424241885800?300001184A srt 0001 exit |
| 6I1954195C 0425241841800?211430193D stuartha |
| 6I1954195C 0426241934800?601938164C rauac19 |
| 6I1954195C 0427241643800?101553175G auparthb |
| 6I1954195C 0428241757800?461510171A bmiac20 |
| 6I1954195C 0429241711800?300002161G srt 0002 |
| 6I1954195C 0430241617800?441921147B nzuac21 |
| 6I1954195C 0431241472800?101430193E aupartha |
| 6I1954195C 0432241935800?300008151? srt 0008 ac20 |
| 6I1954195C 0433241490800?651517152B ac4 ralarthc |
| 6I1954195C 0434241522800?461675192A bmi ac21 |
| 6I1954195C 0435241675800?608003141E rau 8003 erthx result zer |
| 6I1954195C 0436241773800?601759141E ac5 raufp1 erthx result 1 b |
| 6I1954195C 0437241510800?608002141E ac20 rau 8002 erthx result in |
| 6I1954195C 0438241921800?691415172? ac21 ldderthx |
| 6I1954195C 0439241720800?010049800A hlt 0049 8001 alarm over |
| 6I1954195C 0440241698800?115129277F ac12 11 5129 2776 |
| 6I1954195C 0441241648800?066273088D ac13 06 6273 0884 |
| 6I1954195C 0442241598800?025439357E ac14 02 5439 3575 |
| 6I1954195C 0443241548800?007295173G ac15 00 7295 1737 |
| 6I1954195C 0444241498800?001742112? ac16 00 1742 1120 |
| 6I1954195C 0445241564800?000255491H ac17 00 0255 4918 |
| 6I1954195C 0446241582800?000093264C ac18 00 0093 2643 |
| 6I1954195C 0447241938800?000000005A ac19 00 0000 0051 |
| 6I1954195C 0448241919800?999999999I n999 99 9999 9999 |
| 6I1954195C 0449241456800?100000000? n10 10 0000 0000 |
| 6I1954195C 0450241609800?000000000A one 00 0000 0001 |
| 6I1954195C 0451241759800?100000005A fp1 10 0000 0051 |
| 6I1954195C 0452241517800?000000000? arthc 00 0000 0000 |
| 0?0000800? 0453 1 |
| 0?0000800? 0454 1 (u) float - log 10 (u) float |
| 0?0000800? 0455 1 |
| 6I1954195C 0456241969800?451572187C e00abnze ab10 if log arg |
| 6I1954195C 0457241572800?441725145? nzu ezzty alarm func |
| 6I1954195C 0458241725800?461873167I bmiab10 or neg ala |
| 6I1954195C 0459241679800?241415177? stderthx |
| 6I1954195C 0460241770800?300002162G srt 0002 |
| 6I1954195C 0461241627800?201553180G stlarthb store powe |
| 6I1954195C 0462241807800?608003156F rau 8003 form z |
| 6I1954195C 0463241566800?101820177E aupab1 equal arg |
| 6I1954195C 0464241775800?211517187? stuarthc minus root |
| 6I1954195C 0465241870800?111923167G supab2 ten over a |
| 6I1954195C 0466241677800?641517172G dvrarthc plus root |
| 6I1954195C 0467241727800?201430168F stlartha ten |
| 6I1954195C 0468241686800?608002189E rau 8002 |
| 6I1954195C 0469241895800?198001192? mpy 8001 z square |
| 6I1954195C 0470241920800?211517162B stuarthc |
| 6I1954195C 0471241622800?608003172I rau 8003 generate |
| 6I1954195C 0472241729800?191632150D mpyab7 |
| 6I1954195C 0473241504800?608003176A rau 8003 polynomial |
| 6I1954195C 0474241761800?101614167B aupab6 |
| 6I1954195C 0475241672800?191517163I mpyarthc approximat |
| 6I1954195C 0476241639800?608003159G rau 8003 |
| 6I1954195C 0477241597800?101500170E aupab5 |
| 6I1954195C 0478241705800?191517168I mpyarthc |
| 6I1954195C 0479241689800?608003164G rau 8003 |
| 6I1954195C 0480241647800?101550175E aupab4 |
| 6I1954195C 0481241755800?191517173I mpyarthc |
| 6I1954195C 0482241739800?608003169G rau 8003 |
| 6I1954195C 0483241697800?101600180E aupab3 |
| 6I1954195C 0484241805800?191430170A mpyartha |
| 6I1954195C 0485241701800?658003185I ral 8003 |
| 6I1954195C 0486241859800?151460161F alon50 |
| 6I1954195C 0487241616800?300002152D srt 0002 |
| 6I1954195C 0488241524800?151553185G aloarthb add power |
| 6I1954195C 0489241857800?161460166F slon50 |
| 6I1954195C 0490241666800?310002182E srd 0002 round |
| 6I1954195C 0491241825800?608002173F rau 8002 |
| 6I1954195C 0492241736800?360000190I sct 0000 normalize |
| 6I1954195C 0493241909800?471662166D bovab12 |
| 6I1954195C 0494241664800?461667172B bmi ab13 |
| 6I1954195C 0495241667800?111772177G supab9 ab11 adjust |
| 6I1954195C 0496241777800?118002166B ab11 sup 8002 ab12 power |
| 6I1954195C 0497241662800?608003182B ab12 rau 8003 |
| 6I1954195C 0498241822800?331759141E fsbfp1 erthx |
| 6I1954195C 0499241722800?101772177G ab13 aupab9 ab11 |
| 6I1954195C 0500241873800?010001800A ab10 hlt 0001 8001 alarm log |
| 6I1954195C 0501241820800?003162278? ab1 00 3162 2780 |
| 6I1954195C 0502241923800?006324556? ab2 00 6324 5560 |
| 6I1954195C 0503241600800?868591718? ab3 86 8591 7180 |
| 6I1954195C 0504241550800?289335524? ab4 28 9335 5240 |
| 6I1954195C 0505241500800?177522071? ab5 17 7522 0710 |
| 6I1954195C 0506241614800?094376476? ab6 09 4376 4760 |
| 6I1954195C 0507241632800?191337714? ab7 19 1337 7140 |
| 6I1954195C 0508241460800?500000000? n50 50 0000 0000 |
| 6I1954195C 0509241759800?100000005A fp1 10 0000 0051 |
| 6I1954195C 0510241772800?000000005D ab9 00 0000 0054 |
| 6I1954195C 0511241517800?000000000? arthc 00 0000 0000 |
| 0?0000800? 0512 1 |
| 0?0000800? 0513 1 (u) and (acc) float - (u) flo |
| 0?0000800? 0514 1 u**acc = 10**(lo |
| 0?0000800? 0515 1 = exp(log |
| 0?0000800? 0516 1 |
| 6I1954195C 0517241947800?241650155D e00lqstdlq1 |
| 6I1954195C 0518241554800?691907196I ldd e00ab log 10 (u) |
| 6I1954195C 0519241907800?390000170? fmpacc mult by ac |
| 6I1954195C 0520241700800?691650197? lddlq1 e00ac 10 ** u |
| 6I1954195C 0521241650800?000000000? lq1 00 0000 0000 |
| 0?0000800? 0522 1 |
| 0?0000800? 0523 1 (u) float - log e (u) float |
| 0?0000800? 0524 1 ln(u) = log(u) / |
| 0?0000800? 0525 1 log10(e)=0.434294 |
| 0?0000800? 0526 1 |
| 6I1954195C 0527241971800?241650160D e00lostdlq1 |
| 6I1954195C 0528241604800?691508196I ldd e00ab log 10 (u) |
| 6I1954195C 0529241508800?341811165? fdvloge lq1 div by log |
| 6I1954195C 0530241650800?000000000? lq1 00 0000 0000 |
| 6I1954195C 0531241811800?434294485? loge 43 4294 4850 |
| 0?0000800? 0532 1 |
| 0?0000800? 0533 1 (u) float - e ** (u) float |
| 0?0000800? 0534 1 expn(u) = e ** u |
| 0?0000800? 0535 1 e=2.71828182846 |
| 0?0000800? 0536 1 |
| 6I1954195C 0537241972800?241650165D e00lpstdlq1 |
| 6I1954195C 0538241654800?391811186A fmploge mult by lo |
| 6I1954195C 0539241861800?691650197? lddlq1 e00ac 10 ** u |
| 6I1954195C 0540241650800?000000000? lq1 00 0000 0000 |
| 6I1954195C 0541241811800?434294485? loge 43 4294 4850 |
| 0?0000800? 0542 1 |
| 0?0000800? 0543 1 (u) float - absolute value (u |
| 0?0000800? 0544 1 |
| 6I1954195C 0545241976800?451580800A e00aynze 8001 exit if ze |
| 6I1954195C 0546241580800?441786145? nzu ezzty alarm func |
| 6I1954195C 0547241786800?241415187B stderthx |
| 6I1954195C 0548241872800?678003177I ram 8003 remove sgn |
| 6I1954195C 0549241779800?608002141E rau 8002 erthx result in |
| 0?0000800? 0550 1 |
| 0?0000800? 0551 1 (u) float - integer part (u) |
| 0?0000800? 0552 1 |
| 6I1954195C 0553241945800?451748800A e00aznze 8001 exit if ze |
| 6I1954195C 0554241748800?441751145? nzu ezzty alarm func |
| 6I1954195C 0555241751800?241415192B stderthx |
| 6I1954195C 0556241922800?211517157D stuarthc save arg |
| 6I1954195C 0557241574800?300002183A srt 0002 exp in low |
| 6I1954195C 0558241831800?211430183F stuartha mant in h |
| 6I1954195C 0559241836800?688002154F rsm 8002 make exp n |
| 6I1954195C 0560241546800?151849170D alon57 |
| 6I1954195C 0561241704800?461558160H bmiaz4 big num so |
| 6I1954195C 0562241608800?151911171F alon01 |
| 6I1954195C 0563241716800?350001162D slt 0001 |
| 6I1954195C 0564241624800?441827147H nzuaz5 small num |
| 6I1954195C 0565241478800?300005189A srt 0005 set as rig |
| 6I1954195C 0566241891800?151644189I aloaz6 shifts to |
| 6I1954195C 0567241899800?201553165H stlarthb |
| 6I1954195C 0568241658800?601430155C rauartha arthb |
| 6I1954195C 0569241849800?570000000? n57 57 0000 0000 |
| 6I1954195C 0570241911800?010000000? n01 01 0000 0000 |
| 6I1954195C 0571241644800?300000171G az6 srt 0000 |
| 6I1954195C 0572241717800?608003142G rau 8003 ae0 go to fix |
| 6I1954195C 0573241827800?608002188F az5 rau 8002 |
| 6I1954195C 0574241886800?608002141E rau 8002 erthx return zer |
| 6I1954195C 0575241558800?601517141E az4 rauarthc erthx return the |
| 0?0000800? 0576 1 |
| 0?0000800? 0577 1 (u) float - max (float, float |
| 0?0000800? 0578 1 should have two o |
| 0?0000800? 0579 1 |
| 6I1954195C 0580241946800?241415167D e00bastderthx |
| 6I1954195C 0581241674800?211430193F stuartha arg is max |
| 6I1954195C 0582241936800?651415172D ralerthx ba0 |
| 6I1954195C 0583241724800?161877188A ba0 sloba10 |
| 6I1954195C 0584241881800?461789183I bmiba9 no more ar |
| 6I1954195C 0585241839800?651415177D ralerthx set arg ad |
| 6I1954195C 0586241774800?691927163? lddba1 to be rea |
| 6I1954195C 0587241630800?221927192G sdaba1 ba1 |
| 6I1954195C 0588241927800?600000185E ba1 rau 0000 read arg |
| 6I1954195C 0589241855800?211553170H stuarthb |
| 6I1954195C 0590241708800?331430175H fsbartha is grtr th |
| 6I1954195C 0591241758800?461712176B bmiba2 current re |
| 6I1954195C 0592241762800?601553180H rauarthb yes store |
| 6I1954195C 0593241808800?211430171B stuartha ba2 new result |
| 6I1954195C 0594241712800?651415182D ba2 ralerthx select nex |
| 6I1954195C 0595241824800?161428188I sloonet arg |
| 6I1954195C 0596241889800?201415172D stlerthx ba0 |
| 6I1954195C 0597241789800?601430141E ba9 rauartha erthx result in |
| 6I1954195C 0598241877800?001950000? ba10 00p0000 0000 fist arg a |
| 0?0000800? 0599 1 |
| 0?0000800? 0600 1 (u) float - square root (u) f |
| 0?0000800? 0601 1 |
| 6I1954195C 0602241975800?451528800A e00axnze 8001 exit if ze |
| 6I1954195C 0603241528800?441931145? nzu ezzty alarm func |
| 6I1954195C 0604241931800?461939154? bmiax1 alarm sqrt |
| 6I1954195C 0605241540800?241415187D stderthx |
| 6I1954195C 0606241874800?300002168B srt 0002 |
| 6I1954195C 0607241682800?441590164? nzu ax2 test for z |
| 6I1954195C 0608241590800?161911176F slon01 convert fo |
| 6I1954195C 0609241766800?201553185H stlarthb break up e |
| 6I1954195C 0610241858800?658003181F ral 8003 and mantis |
| 6I1954195C 0611241816800?350002192D slt 0002 calculate |
| 6I1954195C 0612241924800?201430169? stlartha initial x |
| 6I1954195C 0613241690800?101609166C aupone ax3 |
| 6I1954195C 0614241750800?601430174? ax4 rauartha calculate |
| 6I1954195C 0615241740800?641517157H dvrarthc next x |
| 6I1954195C 0616241578800?168001179? slo 8001 value |
| 6I1954195C 0617241790800?451694159F nze ax5 |
| 6I1954195C 0618241694800?461747159F bmi ax5 test for e |
| 6I1954195C 0619241747800?158001190E alo 8001 |
| 6I1954195C 0620241905800?158001166C alo 8001 ax3 |
| 6I1954195C 0621241663800?641866162H ax3 dvrtwo recycle |
| 6I1954195C 0622241628800?201517175? stlarthc ax4 |
| 6I1954195C 0623241596800?651553190H ax5 ralarthb modify |
| 6I1954195C 0624241908800?151812176G alon49 exponent |
| 6I1954195C 0625241767800?300008184? srt 0008 |
| 6I1954195C 0626241840800?141866167H divtwo |
| 6I1954195C 0627241678800?158003189? alo 8003 |
| 6I1954195C 0628241890800?201553156? stlarthb test even |
| 6I1954195C 0629241560800?441713171D nzu ax6 odd exp |
| 6I1954195C 0630241713800?601517187E rauarthc exp odd |
| 6I1954195C 0631241875800?300001173B srt 0001 |
| 6I1954195C 0632241732800?191940186B mpyax11 mpy by sqr |
| 6I1954195C 0633241862800?310010194A srd 0010 ax7 of 10 |
| 6I1954195C 0634241941800?350002179G ax7 slt 0002 |
| 6I1954195C 0635241797800?151553161? aloarthb |
| 6I1954195C 0636241610800?151609176C aloone exp 50 to |
| 6I1954195C 0637241763800?608002141E rau 8002 erthx go to exit |
| 6I1954195C 0638241714800?651517192E ax6 ralarthc exp even |
| 6I1954195C 0639241925800?310002194A srd 0002 ax7 |
| 6I1954195C 0640241640800?608003141E ax2 rau 8003 erthx result zer |
| 6I1954195C 0641241939800?010012800A ax1 hlt 0012 8001 alarm sqrt |
| 6I1954195C 0642241609800?000000000A one 00 0000 0001 constants |
| 6I1954195C 0643241866800?000000000B two 00 0000 0002 |
| 6I1954195C 0644241812800?490000000? n49 49 0000 0000 |
| 6I1954195C 0645241940800?031622776F ax11 03 1622 7766 |
| 0?0000800? 0646 1 |
| 0?0000800? 0647 1 (u) float - cosinus (u) float |
| 0?0000800? 0648 1 |
| 6I1954195C 0649241973800?241415162F e00avstderthx av0 |
| 6I1954195C 0650241626800?451680178B av0 nze av4 cos(0) is |
| 6I1954195C 0651241680800?441542145? nzu ezzty alarm func |
| 6I1954195C 0652241542800?300002180? srt 0002 argument |
| 6I1954195C 0653241800800?211430159B stuartha alarm if p |
| 6I1954195C 0654241592800?688002180A rsm 8002 overscal |
| 6I1954195C 0655241801800?151911191F alon01 convert fo |
| 6I1954195C 0656241916800?151849175D alon57 cosx equal |
| 6I1954195C 0657241754800?461660171? bmiav2 one if pw |
| 6I1954195C 0658241710800?161813181G sloav3 underscal |
| 6I1954195C 0659241817800?461676178B bmi av4 |
| 6I1954195C 0660241676800?300004164B srt 0004 |
| 6I1954195C 0661241642800?151646185A aloav5 |
| 6I1954195C 0662241851800?201760186C stlav6 |
| 6I1954195C 0663241863800?601430169B rauartha form |
| 6I1954195C 0664241692800?191696176? mpyav7 av6 fractiona |
| 6I1954195C 0665241760800?011760176D av6 hltav6 av23 and intgr |
| 6I1954195C 0666241764800?201517172F av23 stlarthc parts |
| 6I1954195C 0667241726800?608003174B rau 8003 |
| 6I1954195C 0668241742800?191460183B mpyn50 form s as |
| 6I1954195C 0669241832800?201553181? stlarthb one minus |
| 6I1954195C 0670241810800?681517177F rsmarthc twice abv |
| 6I1954195C 0671241776800?188001179B sml 8001 of fractn |
| 6I1954195C 0672241792800?151919182F alon999 part |
| 6I1954195C 0673241826800?608002184B rau 8002 |
| 6I1954195C 0674241842800?211430189B stuartha |
| 6I1954195C 0675241892800?198001186G mpy 8001 form sine |
| 6I1954195C 0676241867800?211517187F stuarthc |
| 6I1954195C 0677241876800?601829194B rauav16 polynomia |
| 6I1954195C 0678241942800?191517169C mpyarthc approximat |
| 6I1954195C 0679241693800?608003190A rau 8003 |
| 6I1954195C 0680241901800?101804186? aupav15 |
| 6I1954195C 0681241860800?191517174C mpyarthc |
| 6I1954195C 0682241743800?608003150B rau 8003 |
| 6I1954195C 0683241502800?101910191G aupav14 |
| 6I1954195C 0684241917800?191517179C mpyarthc |
| 6I1954195C 0685241793800?608003155B rau 8003 |
| 6I1954195C 0686241552800?101912192F aupav13 |
| 6I1954195C 0687241926800?191517184C mpyarthc |
| 6I1954195C 0688241843800?300001185? srt 0001 |
| 6I1954195C 0689241850800?608003191C rau 8003 |
| 6I1954195C 0690241913800?101728189C auppih equals one |
| 6I1954195C 0691241893800?191430160B mpyartha |
| 6I1954195C 0692241602800?360000177H sct 0000 |
| 6I1954195C 0693241778800?471882194C bovav19 |
| 6I1954195C 0694241943800?201430174D stlartha |
| 6I1954195C 0695241744800?658003165B ral 8003 round |
| 6I1954195C 0696241652800?300002181D srt 0002 and |
| 6I1954195C 0697241814800?201517182H stlarthc adjust |
| 6I1954195C 0698241828800?611430179D rsuartha power |
| 6I1954195C 0699241794800?300002170B srt 0002 |
| 6I1954195C 0700241702800?461864191D bmi av25 |
| 6I1954195C 0701241864800?118003187H sup 8003 |
| 6I1954195C 0702241878800?151460192H alon50 av24 |
| 6I1954195C 0703241928800?101517187I av24 auparthc |
| 6I1954195C 0704241879800?350002184D slt 0002 av22 |
| 6I1954195C 0705241844800?211430189D av22 stuartha determine |
| 6I1954195C 0706241894800?601553192I rauarthb sign of |
| 6I1954195C 0707241929800?441944174F nzu av20 result |
| 6I1954195C 0708241944800?661430179F rslartha av26 |
| 6I1954195C 0709241746800?651430179F av20 ralartha av26 |
| 6I1954195C 0710241914800?118003173? av25 sup 8003 |
| 6I1954195C 0711241730800?161460192H slon50 av24 |
| 6I1954195C 0712241660800?601553178? av2 rauarthb overscale |
| 6I1954195C 0713241780800?691415183? ldderthx display |
| 6I1954195C 0714241830800?010013800A hlt 0013 8001 alarm radi |
| 6I1954195C 0715241796800?608002188? av26 rau 8002 |
| 6I1954195C 0716241880800?461846189F bmiav27 |
| 6I1954195C 0717241896800?101609141E aupone erthx |
| 6I1954195C 0718241846800?111609141E av27 supone erthx |
| 6I1954195C 0719241782800?651847179F av4 ralav21 av26 cosx is on |
| 6I1954195C 0720241882800?658002189G av19 ral 8002 cosx is ze |
| 6I1954195C 0721241897800?168001179F slo 8001 av26 |
| 6I1954195C 0722241900800?601847184D av17 rauav21 av22 cosx is pl |
| 6I1954195C 0723241813800?110000000? av3 11 0000 0000 or minus |
| 6I1954195C 0724241646800?310011176D av5 srd 0011 av23 |
| 6I1954195C 0725241696800?318309886B av7 31 8309 8862 |
| 6I1954195C 0726241728800?157079632G pih 15 7079 6327 pi / 2 in |
| 6I1954195C 0727241912800?645963711J av13 64 5963 7111 |
| 6I1954195C 0728241910800?079689679C av14 07 9689 6793 |
| 6I1954195C 0729241804800?004673765O av15 00 4673 7656 |
| 6I1954195C 0730241829800?000151484B av16 00 0151 4842 |
| 6I1954195C 0731241847800?100000005? av21 10 0000 0050 |
| 6I1954195C 0732241919800?999999999I n999 99 9999 9999 |
| 6I1954195C 0733241460800?500000000? n50 50 0000 0000 |
| 6I1954195C 0734241609800?000000000A one 00 0000 0001 |
| 6I1954195C 0735241911800?010000000? n01 01 0000 0000 |
| 6I1954195C 0736241849800?570000000? n57 57 0000 0000 |
| 0?0000800? 0737 1 |
| 0?0000800? 0738 1 (u) float - sinus (u) float ( |
| 0?0000800? 0739 1 |
| 6I1954195C 0740241974800?451930800A e00awnze 8001 sin(0) is |
| 6I1954195C 0741241930800?441798145? nzu ezzty alarm func |
| 6I1954195C 0742241798800?241415193B stderthx |
| 6I1954195C 0743241932800?211430184H stuartha |
| 6I1954195C 0744241848800?601752189H raufpih |
| 6I1954195C 0745241898800?331430162F fsbartha av0 sin a = co |
| 6I1954195C 0746241752800?157079635A fpih 15 7079 6351 pi / 2 flo |
| 0?0000800? 0747 1 |
| 0?0000800? 0748 1 end of fortran package |
| 0?0000800? 0749 1 |