08027162ca
- Integration with updated sim_card API - Addition of MT (Mag Tape) device - Addition of DSK (Disk) device - Build time simulator test
749 lines
47 KiB
Text
749 lines
47 KiB
Text
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
|