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