home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / assembler / fp_prog / !FP_Prog / FPEv10 < prev    next >
Unknown  |  1989-10-26  |  11.8 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d ea 60 23 f4 20 3e 46 | 50 45 76 31 30 20 50 52 |..`#. >F|PEv10 PR|
|00000010| 4f 43 68 65 6c 70 5f 66 | 70 65 20 66 6f 72 20 68 |OChelp_f|pe for h|
|00000020| 65 6c 70 0d ea 6a 24 f4 | 20 28 43 29 20 54 4a 20 |elp..j$.| (C) TJ |
|00000030| 43 68 61 70 70 65 6c 6c | 20 53 65 70 74 65 6d 62 |Chappell| Septemb|
|00000040| 65 72 20 31 39 38 38 0d | ea 74 05 f4 0d ea 7e 34 |er 1988.|.t....~4|
|00000050| f1 27 22 46 6c 6f 61 74 | 69 6e 67 20 50 6f 69 6e |.'"Float|ing Poin|
|00000060| 74 20 45 6e 63 6f 64 65 | 72 20 28 43 29 20 54 4a |t Encode|r (C) TJ|
|00000070| 20 43 68 61 70 70 65 6c | 6c 20 31 39 38 38 22 27 | Chappel|l 1988"'|
|00000080| 0d ea 88 05 e0 0d ea 92 | 05 3a 0d ea 9c 0e dd f2 |........|.:......|
|00000090| 5f 66 70 5f 69 6e 69 74 | 0d ea a6 37 f1 27 22 46 |_fp_init|...7.'"F|
|000000a0| 50 20 45 6e 63 6f 64 65 | 72 20 49 6e 69 74 69 61 |P Encode|r Initia|
|000000b0| 6c 69 73 69 6e 67 20 28 | 56 65 72 73 69 6f 6e 20 |lising (|Version |
|000000c0| 31 2e 30 20 32 34 2d 53 | 65 70 2d 38 38 29 22 0d |1.0 24-S|ep-88)".|
|000000d0| ea b0 0a 6e 75 6d 3d 35 | 30 0d ea ba 30 de 20 6f |...num=5|0...0. o|
|000000e0| 70 63 24 28 6e 75 6d 29 | 2c 6f 70 63 76 28 6e 75 |pc$(num)|,opcv(nu|
|000000f0| 6d 29 2c 74 79 70 65 76 | 28 6e 75 6d 29 2c 75 73 |m),typev|(num),us|
|00000100| 61 67 65 24 28 6e 75 6d | 29 0d ea c4 12 43 6f 5f |age$(num|)....Co_|
|00000110| 70 72 6f 63 65 73 73 6f | 72 3d 31 0d ea ce 09 73 |processo|r=1....s|
|00000120| 75 62 3d 30 0d ea d8 05 | f5 0d ea e2 30 f3 20 6f |ub=0....|....0. o|
|00000130| 70 63 24 28 73 75 62 29 | 2c 6f 70 63 76 28 73 75 |pc$(sub)|,opcv(su|
|00000140| 62 29 2c 74 79 70 65 76 | 28 73 75 62 29 2c 75 73 |b),typev|(sub),us|
|00000150| 61 67 65 24 28 73 75 62 | 29 0d ea ec 0a 73 75 62 |age$(sub|)....sub|
|00000160| 2b 3d 31 0d ea f6 17 fd | 20 6f 70 63 24 28 73 75 |+=1.....| opc$(su|
|00000170| 62 2d 31 29 3d 22 54 4a | 43 22 0d eb 00 0f 66 70 |b-1)="TJ|C"....fp|
|00000180| 65 72 72 3d 32 31 33 36 | 39 0d eb 0a 05 e1 0d eb |err=2136|9.......|
|00000190| 14 05 3a 0d eb 1e 44 dd | a4 64 61 74 61 5f 74 72 |..:...D.|.data_tr|
|000001a0| 61 6e 28 43 6f 6e 64 2c | 70 72 65 70 6f 73 2c 70 |an(Cond,|prepos,p|
|000001b0| 6f 73 6e 65 67 2c 70 72 | 65 63 2c 77 72 69 74 65 |osneg,pr|ec,write|
|000001c0| 62 6b 2c 6c 6f 61 64 73 | 74 6f 72 65 2c 52 6e 2c |bk,loads|tore,Rn,|
|000001d0| 46 64 2c 6f 66 66 29 0d | eb 28 12 62 32 38 33 31 |Fd,off).|.(.b2831|
|000001e0| 3d 43 6f 6e 64 3c 3c 32 | 38 0d eb 32 1c 62 32 34 |=Cond<<2|8..2.b24|
|000001f0| 32 37 3d 28 70 72 65 70 | 6f 73 2b 25 31 31 30 30 |27=(prep|os+%1100|
|00000200| 29 3c 3c 32 34 0d eb 3c | 12 62 32 33 3d 70 6f 73 |)<<24..<|.b23=pos|
|00000210| 6e 65 67 3c 3c 32 33 0d | eb 46 1d 62 32 32 3d 28 |neg<<23.|.F.b22=(|
|00000220| 28 70 72 65 63 20 80 20 | 25 31 30 29 3e 3e 31 29 |(prec . |%10)>>1)|
|00000230| 3c 3c 32 32 0d eb 50 13 | 62 32 31 3d 77 72 69 74 |<<22..P.|b21=writ|
|00000240| 65 62 6b 3c 3c 32 31 0d | eb 5a 15 62 32 30 3d 6c |ebk<<21.|.Z.b20=l|
|00000250| 6f 61 64 73 74 6f 72 65 | 3c 3c 32 30 0d eb 64 10 |oadstore|<<20..d.|
|00000260| 62 31 36 31 39 3d 52 6e | 3c 3c 31 36 0d eb 6e 16 |b1619=Rn|<<16..n.|
|00000270| 62 31 35 3d 28 70 72 65 | 63 20 80 20 31 29 3c 3c |b15=(pre|c . 1)<<|
|00000280| 31 35 0d eb 78 10 62 31 | 32 31 34 3d 46 64 3c 3c |15..x.b1|214=Fd<<|
|00000290| 31 32 0d eb 82 18 62 38 | 31 31 3d 43 6f 5f 70 72 |12....b8|11=Co_pr|
|000002a0| 6f 63 65 73 73 6f 72 3c | 3c 38 0d eb 8c 0b 62 30 |ocessor<|<8....b0|
|000002b0| 37 3d 6f 66 66 0d eb 96 | 3e 76 61 6c 75 65 3d 62 |7=off...|>value=b|
|000002c0| 32 38 33 31 2b 62 32 34 | 32 37 2b 62 32 33 2b 62 |2831+b24|27+b23+b|
|000002d0| 32 32 2b 62 32 31 2b 62 | 32 30 2b 62 31 36 31 39 |22+b21+b|20+b1619|
|000002e0| 2b 62 31 35 2b 62 31 32 | 31 34 2b 62 38 31 31 2b |+b15+b12|14+b811+|
|000002f0| 62 30 37 0d eb a0 0a 3d | 76 61 6c 75 65 0d eb aa |b07....=|value...|
|00000300| 05 3a 0d eb b4 2d dd a4 | 72 65 67 69 5f 74 72 61 |.:...-..|regi_tra|
|00000310| 6e 28 43 6f 6e 64 2c 61 | 62 63 2c 4c 53 2c 65 66 |n(Cond,a|bc,LS,ef|
|00000320| 2c 67 68 2c 46 6d 2c 46 | 6e 2c 52 64 2c 69 29 0d |,gh,Fm,F|n,Rd,i).|
|00000330| eb be 12 62 32 38 33 31 | 3d 43 6f 6e 64 3c 3c 32 |...b2831|=Cond<<2|
|00000340| 38 0d eb c8 13 62 32 34 | 32 37 3d 25 31 31 31 30 |8....b24|27=%1110|
|00000350| 3c 3c 32 34 0d eb d2 11 | 62 32 31 32 33 3d 61 62 |<<24....|b2123=ab|
|00000360| 63 3c 3c 32 31 0d eb dc | 0e 62 32 30 3d 4c 53 3c |c<<21...|.b20=LS<|
|00000370| 3c 32 30 0d eb e6 1b 62 | 31 39 3d 28 28 65 66 20 |<20....b|19=((ef |
|00000380| 80 20 25 31 30 29 3e 3e | 31 29 3c 3c 31 39 0d eb |. %10)>>|1)<<19..|
|00000390| f0 10 62 31 36 31 38 3d | 46 6e 3c 3c 31 36 0d eb |..b1618=|Fn<<16..|
|000003a0| fa 10 62 31 32 31 35 3d | 52 64 3c 3c 31 32 0d ec |..b1215=|Rd<<12..|
|000003b0| 04 18 62 38 31 31 3d 43 | 6f 5f 70 72 6f 63 65 73 |..b811=C|o_proces|
|000003c0| 73 6f 72 3c 3c 38 0d ec | 0e 12 62 37 3d 28 65 66 |sor<<8..|..b7=(ef|
|000003d0| 20 80 20 31 29 3c 3c 37 | 0d ec 18 0d 62 35 36 3d | . 1)<<7|....b56=|
|000003e0| 67 68 3c 3c 35 0d ec 22 | 0b 62 34 3d 31 3c 3c 34 |gh<<5.."|.b4=1<<4|
|000003f0| 0d ec 2c 0b 62 33 3d 69 | 3c 3c 33 0d ec 36 0a 62 |..,.b3=i|<<3..6.b|
|00000400| 30 32 3d 46 6d 0d ec 40 | 45 76 61 6c 75 65 3d 62 |02=Fm..@|Evalue=b|
|00000410| 32 38 33 31 2b 62 32 34 | 32 37 2b 62 32 31 32 33 |2831+b24|27+b2123|
|00000420| 2b 62 32 30 2b 62 31 39 | 2b 62 31 36 31 38 2b 62 |+b20+b19|+b1618+b|
|00000430| 31 32 31 35 2b 62 38 31 | 31 2b 62 37 2b 62 35 36 |1215+b81|1+b7+b56|
|00000440| 2b 62 34 2b 62 33 2b 62 | 30 32 0d ec 4a 0a 3d 76 |+b4+b3+b|02..J.=v|
|00000450| 61 6c 75 65 0d ec 54 05 | 3a 0d ec 5e 2c dd a4 64 |alue..T.|:..^,..d|
|00000460| 61 74 61 5f 6f 70 74 6e | 28 43 6f 6e 64 2c 61 62 |ata_optn|(Cond,ab|
|00000470| 63 64 6a 2c 65 66 2c 67 | 68 2c 69 2c 46 6d 2c 46 |cdj,ef,g|h,i,Fm,F|
|00000480| 6e 2c 46 64 29 0d ec 68 | 12 62 32 38 33 31 3d 43 |n,Fd)..h|.b2831=C|
|00000490| 6f 6e 64 3c 3c 32 38 0d | ec 72 13 62 32 34 32 37 |ond<<28.|.r.b2427|
|000004a0| 3d 25 31 31 31 30 3c 3c | 32 34 0d ec 7c 23 62 32 |=%1110<<|24..|#b2|
|000004b0| 30 32 33 3d 28 28 61 62 | 63 64 6a 20 80 20 25 31 |023=((ab|cdj . %1|
|000004c0| 31 31 31 30 29 3e 3e 31 | 29 3c 3c 32 30 0d ec 86 |1110)>>1|)<<20...|
|000004d0| 1b 62 31 39 3d 28 28 65 | 66 20 80 20 25 31 30 29 |.b19=((e|f . %10)|
|000004e0| 3e 3e 31 29 3c 3c 31 39 | 0d ec 90 10 62 31 36 31 |>>1)<<19|....b161|
|000004f0| 38 3d 46 6e 3c 3c 31 36 | 0d ec 9a 17 62 31 35 3d |8=Fn<<16|....b15=|
|00000500| 28 61 62 63 64 6a 20 80 | 20 31 29 3c 3c 31 35 0d |(abcdj .| 1)<<15.|
|00000510| ec a4 10 62 31 32 31 34 | 3d 46 64 3c 3c 31 32 0d |...b1214|=Fd<<12.|
|00000520| ec ae 18 62 38 31 31 3d | 43 6f 5f 70 72 6f 63 65 |...b811=|Co_proce|
|00000530| 73 73 6f 72 3c 3c 38 0d | ec b8 12 62 37 3d 28 65 |ssor<<8.|...b7=(e|
|00000540| 66 20 80 20 31 29 3c 3c | 37 0d ec c2 0d 62 35 36 |f . 1)<<|7....b56|
|00000550| 3d 67 68 3c 3c 35 0d ec | cc 0b 62 34 3d 30 3c 3c |=gh<<5..|..b4=0<<|
|00000560| 34 0d ec d6 0b 62 33 3d | 69 3c 3c 33 0d ec e0 0a |4....b3=|i<<3....|
|00000570| 62 30 32 3d 46 6d 0d ec | ea 45 76 61 6c 75 65 3d |b02=Fm..|.Evalue=|
|00000580| 62 32 38 33 31 2b 62 32 | 34 32 37 2b 62 32 30 32 |b2831+b2|427+b202|
|00000590| 33 2b 62 31 39 2b 62 31 | 36 31 38 2b 62 31 35 2b |3+b19+b1|618+b15+|
|000005a0| 62 31 32 31 34 2b 62 38 | 31 31 2b 62 37 2b 62 35 |b1214+b8|11+b7+b5|
|000005b0| 36 2b 62 34 2b 62 33 2b | 62 30 32 0d ec f4 0a 3d |6+b4+b3+|b02....=|
|000005c0| 76 61 6c 75 65 0d ec fe | 05 3a 0d ed 08 25 dd a4 |value...|.:...%..|
|000005d0| 73 74 61 74 5f 74 72 61 | 6e 28 43 6f 6e 64 2c 61 |stat_tra|n(Cond,a|
|000005e0| 62 63 65 66 67 68 2c 69 | 2c 46 6d 2c 46 6e 29 0d |bcefgh,i|,Fm,Fn).|
|000005f0| ed 12 12 62 32 38 33 31 | 3d 43 6f 6e 64 3c 3c 32 |...b2831|=Cond<<2|
|00000600| 38 0d ed 1c 13 62 32 34 | 32 37 3d 25 31 31 31 30 |8....b24|27=%1110|
|00000610| 3c 3c 32 34 0d ed 26 27 | 62 32 31 32 33 3d 28 28 |<<24..&'|b2123=((|
|00000620| 61 62 63 65 66 67 68 20 | 80 20 25 31 31 31 30 30 |abcefgh |. %11100|
|00000630| 30 30 29 3e 3e 34 29 3c | 3c 32 31 0d ed 30 0d 62 |00)>>4)<|<21..0.b|
|00000640| 32 30 3d 31 3c 3c 32 30 | 0d ed 3a 25 62 31 39 3d |20=1<<20|..:%b19=|
|00000650| 28 28 61 62 63 65 66 67 | 68 20 80 20 25 30 30 30 |((abcefg|h . %000|
|00000660| 31 30 30 30 29 3e 3e 33 | 29 3c 3c 31 39 0d ed 44 |1000)>>3|)<<19..D|
|00000670| 10 62 31 36 31 38 3d 46 | 6e 3c 3c 31 36 0d ed 4e |.b1618=F|n<<16..N|
|00000680| 13 62 31 32 31 35 3d 25 | 31 31 31 31 3c 3c 31 32 |.b1215=%|1111<<12|
|00000690| 0d ed 58 18 62 38 31 31 | 3d 43 6f 5f 70 72 6f 63 |..X.b811|=Co_proc|
|000006a0| 65 73 73 6f 72 3c 3c 38 | 0d ed 62 1f 62 35 37 3d |essor<<8|..b.b57=|
|000006b0| 28 61 62 63 65 66 67 68 | 20 80 20 25 30 30 30 30 |(abcefgh| . %0000|
|000006c0| 31 31 31 29 3c 3c 35 0d | ed 6c 0b 62 34 3d 31 3c |111)<<5.|.l.b4=1<|
|000006d0| 3c 34 0d ed 76 0b 62 33 | 3d 69 3c 3c 33 0d ed 80 |<4..v.b3|=i<<3...|
|000006e0| 0a 62 30 32 3d 46 6d 0d | ed 8a 42 76 61 6c 75 65 |.b02=Fm.|..Bvalue|
|000006f0| 3d 62 32 38 33 31 2b 62 | 32 34 32 37 2b 62 32 31 |=b2831+b|2427+b21|
|00000700| 32 33 2b 62 32 30 2b 62 | 31 39 2b 62 31 36 31 38 |23+b20+b|19+b1618|
|00000710| 2b 62 31 32 31 35 2b 62 | 38 31 31 2b 62 35 37 2b |+b1215+b|811+b57+|
|00000720| 62 34 2b 62 33 2b 62 30 | 32 0d ed 94 0a 3d 76 61 |b4+b3+b0|2....=va|
|00000730| 6c 75 65 0d ed 9e 05 3a | 0d ed a8 05 3a 0d ed b2 |lue....:|....:...|
|00000740| 10 dd a4 6f 70 63 6f 64 | 65 28 6f 24 29 0d ed bc |...opcod|e(o$)...|
|00000750| 09 73 75 62 3d 30 0d ed | c6 05 f5 0d ed d0 33 63 |.sub=0..|......3c|
|00000760| 68 6b 24 3d 6f 70 63 24 | 28 73 75 62 29 3a 72 65 |hk$=opc$|(sub):re|
|00000770| 74 75 72 6e 3d 6f 70 63 | 76 28 73 75 62 29 3a 74 |turn=opc|v(sub):t|
|00000780| 79 70 65 3d 74 79 70 65 | 76 28 73 75 62 29 0d ed |ype=type|v(sub)..|
|00000790| da 0a 73 75 62 2b 3d 31 | 0d ed e4 1a fd 20 63 68 |..sub+=1|..... ch|
|000007a0| 6b 24 3d 6f 24 20 84 20 | 63 68 6b 24 3d 22 54 4a |k$=o$ . |chk$="TJ|
|000007b0| 43 22 0d ed ee 41 e7 20 | 63 68 6b 24 3d 22 54 4a |C"...A. |chk$="TJ|
|000007c0| 43 22 20 8c 20 85 20 66 | 70 65 72 72 2c 22 55 6e |C" . . f|perr,"Un|
|000007d0| 6b 6e 6f 77 6e 20 4f 70 | 63 6f 64 65 20 20 3a 22 |known Op|code :"|
|000007e0| 2b 6f 72 69 67 69 6e 61 | 6c 24 2b 22 20 3d 20 22 |+origina|l$+" = "|
|000007f0| 2b 6f 24 0d ed f8 0b 3d | 72 65 74 75 72 6e 0d ee |+o$....=|return..|
|00000800| 02 05 3a 0d ee 0c 0e dd | a4 74 79 70 65 28 6f 24 |..:.....|.type(o$|
|00000810| 29 0d ee 16 09 73 75 62 | 3d 30 0d ee 20 05 f5 0d |)....sub|=0.. ...|
|00000820| ee 2a 33 63 68 6b 24 3d | 6f 70 63 24 28 73 75 62 |.*3chk$=|opc$(sub|
|00000830| 29 3a 72 65 74 75 72 6e | 3d 6f 70 63 76 28 73 75 |):return|=opcv(su|
|00000840| 62 29 3a 74 79 70 65 3d | 74 79 70 65 76 28 73 75 |b):type=|typev(su|
|00000850| 62 29 0d ee 34 0a 73 75 | 62 2b 3d 31 0d ee 3e 1a |b)..4.su|b+=1..>.|
|00000860| fd 20 63 68 6b 24 3d 6f | 24 20 84 20 63 68 6b 24 |. chk$=o|$ . chk$|
|00000870| 3d 22 54 4a 43 22 0d ee | 48 41 e7 20 63 68 6b 24 |="TJC"..|HA. chk$|
|00000880| 3d 22 54 4a 43 22 20 8c | 20 85 20 66 70 65 72 72 |="TJC" .| . fperr|
|00000890| 2c 22 55 6e 6b 6e 6f 77 | 6e 20 4f 70 63 6f 64 65 |,"Unknow|n Opcode|
|000008a0| 20 20 3a 22 2b 6f 72 69 | 67 69 6e 61 6c 24 2b 22 | :"+ori|ginal$+"|
|000008b0| 20 3d 20 22 2b 6f 24 0d | ee 52 09 3d 74 79 70 65 | = "+o$.|.R.=type|
|000008c0| 0d ee 5c 05 3a 0d ee 66 | 0e dd a4 63 6f 6e 64 28 |..\.:..f|...cond(|
|000008d0| 63 24 29 0d ee 70 31 63 | 6f 6d 70 61 72 65 24 3d |c$)..p1c|ompare$=|
|000008e0| 22 7e 7e 45 51 4e 45 43 | 53 43 43 4d 49 50 4c 56 |"~~EQNEC|SCCMIPLV|
|000008f0| 53 56 43 48 49 4c 53 47 | 45 4c 54 47 54 4c 45 41 |SVCHILSG|ELTGTLEA|
|00000900| 4c 4e 56 22 0d ee 7a 19 | 70 6c 61 63 65 3d a7 63 |LNV"..z.|place=.c|
|00000910| 6f 6d 70 61 72 65 24 2c | 63 24 29 81 32 0d ee 84 |ompare$,|c$).2...|
|00000920| 41 e7 20 70 6c 61 63 65 | 3d 30 20 8c 20 85 20 66 |A. place|=0 . . f|
|00000930| 70 65 72 72 2c 22 55 6e | 6b 6e 6f 77 6e 20 43 4f |perr,"Un|known CO|
|00000940| 4e 44 49 54 49 4f 4e 20 | 20 3a 22 2b 6f 72 69 67 |NDITION | :"+orig|
|00000950| 69 6e 61 6c 24 2b 22 20 | 3d 20 22 2b 63 24 0d ee |inal$+" |= "+c$..|
|00000960| 8e 0c 3d 70 6c 61 63 65 | 2d 31 0d ee 98 05 3a 0d |..=place|-1....:.|
|00000970| ee a2 0f dd a4 72 6f 75 | 6e 64 28 72 24 29 0d ee |.....rou|nd(r$)..|
|00000980| ac 11 e7 20 a9 72 24 3d | 30 20 8c 20 3a 3d 30 0d |... .r$=|0 . :=0.|
|00000990| ee b6 15 70 6c 61 63 65 | 3d a7 22 20 50 4d 5a 22 |...place|=." PMZ"|
|000009a0| 2c 72 24 29 0d ee c0 4a | e7 20 70 6c 61 63 65 3d |,r$)...J|. place=|
|000009b0| 30 20 8c 20 85 20 66 70 | 65 72 72 2c 22 55 6e 6b |0 . . fp|err,"Unk|
|000009c0| 6e 6f 77 6e 20 72 6f 75 | 6e 64 69 6e 67 20 70 61 |nown rou|nding pa|
|000009d0| 72 61 6d 65 74 65 72 20 | 20 3a 22 2b 6f 72 69 67 |rameter | :"+orig|
|000009e0| 69 6e 61 6c 24 2b 22 20 | 3d 20 22 2b 72 24 0d ee |inal$+" |= "+r$..|
|000009f0| ca 0c 3d 70 6c 61 63 65 | 2d 31 0d ee d4 05 3a 0d |..=place|-1....:.|
|00000a00| ee de 0e dd a4 70 72 65 | 63 28 70 24 29 0d ee e8 |.....pre|c(p$)...|
|00000a10| 15 70 6c 61 63 65 3d a7 | 22 53 44 45 50 22 2c 70 |.place=.|"SDEP",p|
|00000a20| 24 29 0d ee f2 4b e7 20 | 70 6c 61 63 65 3d 30 20 |$)...K. |place=0 |
|00000a30| 8c 20 85 20 66 70 65 72 | 72 2c 22 55 6e 6b 6e 6f |. . fper|r,"Unkno|
|00000a40| 77 6e 20 70 72 65 63 69 | 73 69 6f 6e 20 70 61 72 |wn preci|sion par|
|00000a50| 61 6d 65 74 65 72 20 20 | 3a 22 2b 6f 72 69 67 69 |ameter |:"+origi|
|00000a60| 6e 61 6c 24 2b 22 20 3d | 20 22 2b 70 24 0d ee fc |nal$+" =| "+p$...|
|00000a70| 0c 3d 70 6c 61 63 65 2d | 31 0d ef 06 05 3a 0d ef |.=place-|1....:..|
|00000a80| 10 10 dd f2 63 68 65 63 | 6b 5f 69 6e 73 74 0d ef |....chec|k_inst..|
|00000a90| 1a 0e de 20 62 6c 6f 63 | 6b 20 32 30 0d ef 24 1a |... bloc|k 20..$.|
|00000aa0| 24 62 6c 6f 63 6b 3d 22 | 46 50 45 6d 75 6c 61 74 |$block="|FPEmulat|
|00000ab0| 6f 72 22 2b bd 30 0d ef | 2e 23 c8 99 20 22 4f 53 |or"+.0..|.#.. "OS|
|00000ac0| 5f 4d 6f 64 75 6c 65 22 | 2c 31 38 2c 62 6c 6f 63 |_Module"|,18,bloc|
|00000ad0| 6b 20 b8 20 41 25 2c 42 | 25 0d ef 38 05 e1 0d ef |k . A%,B|%..8....|
|00000ae0| 42 05 3a 0d ef 4c 16 dd | a4 73 74 72 69 70 28 70 |B.:..L..|.strip(p|
|00000af0| 61 73 73 32 24 2c 6e 6f | 29 0d ef 56 1a 3d c2 70 |ass2$,no|)..V.=.p|
|00000b00| 61 73 73 32 24 2c a9 28 | 70 61 73 73 32 24 29 2d |ass2$,.(|pass2$)-|
|00000b10| 6e 6f 29 0d ef 60 05 3a | 0d ef 6a 15 dd a4 64 65 |no)..`.:|..j...de|
|00000b20| 63 6f 64 65 28 70 61 73 | 73 65 64 24 29 0d ef 74 |code(pas|sed$)..t|
|00000b30| 15 6f 72 69 67 69 6e 61 | 6c 24 3d 70 61 73 73 65 |.origina|l$=passe|
|00000b40| 64 24 0d ef 7e 0b 77 72 | 69 74 65 3d 30 0d ef 88 |d$..~.wr|ite=0...|
|00000b50| 1a 70 70 3d 30 3a 77 62 | 3d 30 3a 6f 66 66 73 65 |.pp=0:wb|=0:offse|
|00000b60| 74 3d 30 3a 69 3d 30 0d | ef 92 4b 74 65 73 74 24 |t=0:i=0.|..Ktest$|
|00000b70| 3d 22 25 30 31 32 33 34 | 35 36 37 38 39 41 42 43 |="%01234|56789ABC|
|00000b80| 44 45 46 47 48 49 4a 4b | 4c 4d 4e 4f 50 51 52 53 |DEFGHIJK|LMNOPQRS|
|00000b90| 54 55 56 57 58 59 5a 61 | 62 63 64 65 66 67 68 69 |TUVWXYZa|bcdefghi|
|00000ba0| 6a 6b 6c 6d 6e 6f 70 71 | 72 73 74 75 76 77 78 79 |jklmnopq|rstuvwxy|
|00000bb0| 7a 22 0d ef 9c 1c 6f 70 | 63 3d a4 6f 70 63 6f 64 |z"....op|c=.opcod|
|00000bc0| 65 28 c0 70 61 73 73 65 | 64 24 2c 33 29 29 0d ef |e(.passe|d$,3))..|
|00000bd0| a6 35 74 79 70 65 3d a4 | 74 79 70 65 28 c0 70 61 |.5type=.|type(.pa|
|00000be0| 73 73 65 64 24 2c 33 29 | 29 3a 70 61 73 73 65 64 |ssed$,3)|):passed|
|00000bf0| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|00000c00| 2c 33 29 0d ef b0 35 63 | 6f 6e 64 3d a4 63 6f 6e |,3)...5c|ond=.con|
|00000c10| 64 28 c0 70 61 73 73 65 | 64 24 2c 32 29 29 3a 70 |d(.passe|d$,2)):p|
|00000c20| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 28 70 61 |assed$=.|strip(pa|
|00000c30| 73 73 65 64 24 2c 32 29 | 0d ef ba 3f ee 20 28 74 |ssed$,2)|...?. (t|
|00000c40| 79 70 65 2b 31 29 20 f2 | 74 79 70 65 30 2c f2 74 |ype+1) .|type0,.t|
|00000c50| 79 70 65 31 2c f2 74 79 | 70 65 32 2c f2 74 79 70 |ype1,.ty|pe2,.typ|
|00000c60| 65 33 2c f2 74 79 70 65 | 34 2c f2 74 79 70 65 35 |e3,.type|4,.type5|
|00000c70| 2c f2 74 79 70 65 36 0d | ef c4 0a 3d 77 72 69 74 |,.type6.|...=writ|
|00000c80| 65 0d ef ce 05 3a 0d ef | d8 13 dd a4 67 65 74 46 |e....:..|....getF|
|00000c90| 6e 28 70 61 73 73 33 24 | 29 0d ef e2 0a 46 6e 24 |n(pass3$|)....Fn$|
|00000ca0| 3d 22 22 0d ef ec 29 c8 | 95 20 a7 74 65 73 74 24 |=""...).|. .test$|
|00000cb0| 2c c0 70 61 73 73 33 24 | 2c 31 29 29 3e 30 20 80 |,.pass3$|,1))>0 .|
|00000cc0| 20 a9 28 70 61 73 73 33 | 24 29 3e 30 0d ef f6 13 | .(pass3|$)>0....|
|00000cd0| 46 6e 24 2b 3d c0 70 61 | 73 73 33 24 2c 31 29 0d |Fn$+=.pa|ss3$,1).|
|00000ce0| f0 00 1b 70 61 73 73 33 | 24 3d a4 73 74 72 69 70 |...pass3|$=.strip|
|00000cf0| 28 70 61 73 73 33 24 2c | 31 29 0d f0 0a 05 ce 0d |(pass3$,|1)......|
|00000d00| f0 14 0e 6c 66 6e 3d a9 | 28 46 6e 24 29 0d f0 1e |...lfn=.|(Fn$)...|
|00000d10| 34 e7 20 46 6e 24 3d 22 | 22 20 8c 20 85 20 66 70 |4. Fn$="|" . . fp|
|00000d20| 65 72 72 2c 22 42 61 64 | 20 46 50 20 72 65 67 69 |err,"Bad| FP regi|
|00000d30| 73 74 65 72 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ster :"+|original|
|00000d40| 24 0d f0 28 25 e7 20 c0 | 46 6e 24 2c 31 29 3d 22 |$..(%. .|Fn$,1)="|
|00000d50| 46 22 20 8c 20 46 6e 24 | 3d a4 73 74 72 69 70 28 |F" . Fn$|=.strip(|
|00000d60| 46 6e 24 2c 31 29 0d f0 | 32 38 e7 20 a0 28 46 6e |Fn$,1)..|28. .(Fn|
|00000d70| 24 29 3e 37 20 8c 20 85 | 20 66 70 65 72 72 2c 22 |$)>7 . .| fperr,"|
|00000d80| 46 50 20 72 65 67 69 73 | 74 65 72 20 72 61 6e 67 |FP regis|ter rang|
|00000d90| 65 20 3a 22 2b 6f 72 69 | 67 69 6e 61 6c 24 0d f0 |e :"+ori|ginal$..|
|00000da0| 3c 13 3d a0 28 46 6e 24 | 29 2b 32 35 36 2a 6c 66 |<.=.(Fn$|)+256*lf|
|00000db0| 6e 0d f0 46 05 3a 0d f0 | 50 18 dd a4 73 74 72 69 |n..F.:..|P...stri|
|00000dc0| 70 73 70 61 63 65 28 70 | 61 73 73 34 24 29 0d f0 |pspace(p|ass4$)..|
|00000dd0| 5a 23 c8 95 20 c0 70 61 | 73 73 34 24 2c 31 29 3d |Z#.. .pa|ss4$,1)=|
|00000de0| 22 20 22 20 80 20 a9 28 | 70 61 73 73 34 24 29 3e |" " . .(|pass4$)>|
|00000df0| 30 0d f0 64 1b 70 61 73 | 73 34 24 3d a4 73 74 72 |0..d.pas|s4$=.str|
|00000e00| 69 70 28 70 61 73 73 34 | 24 2c 31 29 0d f0 6e 05 |ip(pass4|$,1)..n.|
|00000e10| ce 0d f0 78 0b 3d 70 61 | 73 73 34 24 0d f0 82 05 |...x.=pa|ss4$....|
|00000e20| 3a 0d f0 8c 13 dd a4 67 | 65 74 52 6e 28 70 61 73 |:......g|etRn(pas|
|00000e30| 73 35 24 29 0d f0 96 0a | 52 6e 24 3d 22 22 0d f0 |s5$)....|Rn$=""..|
|00000e40| a0 29 c8 95 20 a7 74 65 | 73 74 24 2c c0 70 61 73 |.).. .te|st$,.pas|
|00000e50| 73 35 24 2c 31 29 29 3e | 30 20 80 20 a9 28 70 61 |s5$,1))>|0 . .(pa|
|00000e60| 73 73 35 24 29 3e 30 0d | f0 aa 13 52 6e 24 2b 3d |ss5$)>0.|...Rn$+=|
|00000e70| c0 70 61 73 73 35 24 2c | 31 29 0d f0 b4 1b 70 61 |.pass5$,|1)....pa|
|00000e80| 73 73 35 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |ss5$=.st|rip(pass|
|00000e90| 35 24 2c 31 29 0d f0 be | 05 ce 0d f0 c8 0e 6c 72 |5$,1)...|......lr|
|00000ea0| 6e 3d a9 28 52 6e 24 29 | 0d f0 d2 25 e7 20 c0 52 |n=.(Rn$)|...%. .R|
|00000eb0| 6e 24 2c 31 29 3d 22 52 | 22 20 8c 20 52 6e 24 3d |n$,1)="R|" . Rn$=|
|00000ec0| a4 73 74 72 69 70 28 52 | 6e 24 2c 31 29 0d f0 dc |.strip(R|n$,1)...|
|00000ed0| 35 e7 20 52 6e 24 3d 22 | 22 20 8c 20 85 20 66 70 |5. Rn$="|" . . fp|
|00000ee0| 65 72 72 2c 22 42 61 64 | 20 41 52 4d 20 72 65 67 |err,"Bad| ARM reg|
|00000ef0| 69 73 74 65 72 20 3a 22 | 2b 6f 72 69 67 69 6e 61 |ister :"|+origina|
|00000f00| 6c 24 0d f0 e6 3a e7 20 | a0 28 52 6e 24 29 3e 31 |l$...:. |.(Rn$)>1|
|00000f10| 35 20 8c 20 85 20 66 70 | 65 72 72 2c 22 41 52 4d |5 . . fp|err,"ARM|
|00000f20| 20 72 65 67 69 73 74 65 | 72 20 72 61 6e 67 65 20 | registe|r range |
|00000f30| 3a 22 2b 6f 72 69 67 69 | 6e 61 6c 24 0d f0 f0 13 |:"+origi|nal$....|
|00000f40| 3d a0 28 52 6e 24 29 2b | 32 35 36 2a 6c 72 6e 0d |=.(Rn$)+|256*lrn.|
|00000f50| f0 fa 05 3a 0d f1 04 0b | dd f2 74 79 70 65 30 0d |...:....|..type0.|
|00000f60| f1 0e 0d 6e 6f 66 66 73 | 65 74 3d 31 0d f1 18 20 |...noffs|et=1... |
|00000f70| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00000f80| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f1 22 34 |ace(pass|ed$).."4|
|00000f90| 70 72 65 3d a4 70 72 65 | 63 28 c0 70 61 73 73 65 |pre=.pre|c(.passe|
|00000fa0| 64 24 2c 31 29 29 3a 70 | 61 73 73 65 64 24 3d a4 |d$,1)):p|assed$=.|
|00000fb0| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 31 29 |strip(pa|ssed$,1)|
|00000fc0| 0d f1 2c 20 70 61 73 73 | 65 64 24 3d a4 73 74 72 |.., pass|ed$=.str|
|00000fd0| 69 70 73 70 61 63 65 28 | 70 61 73 73 65 64 24 29 |ipspace(|passed$)|
|00000fe0| 0d f1 36 18 64 61 74 61 | 3d a4 67 65 74 46 6e 28 |..6.data|=.getFn(|
|00000ff0| 70 61 73 73 65 64 24 29 | 0d f1 40 10 46 64 3d 64 |passed$)|..@.Fd=d|
|00001000| 61 74 61 20 83 32 35 36 | 0d f1 4a 25 70 61 73 73 |ata .256|..J%pass|
|00001010| 65 64 24 3d a4 73 74 72 | 69 70 28 70 61 73 73 65 |ed$=.str|ip(passe|
|00001020| 64 24 2c 64 61 74 61 20 | 81 32 35 36 29 0d f1 54 |d$,data |.256)..T|
|00001030| 20 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 | passed$|=.strips|
|00001040| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 0d f1 5e |pace(pas|sed$)..^|
|00001050| 38 e7 20 c0 70 61 73 73 | 65 64 24 2c 31 29 3c 3e |8. .pass|ed$,1)<>|
|00001060| 22 2c 22 20 8c 20 85 20 | 66 70 65 72 72 2c 22 4d |"," . . |fperr,"M|
|00001070| 69 73 73 69 6e 67 20 2c | 20 3a 22 2b 6f 72 69 67 |issing ,| :"+orig|
|00001080| 69 6e 61 6c 24 0d f1 68 | 1d 70 61 73 73 65 64 24 |inal$..h|.passed$|
|00001090| 3d a4 73 74 72 69 70 28 | 70 61 73 73 65 64 24 2c |=.strip(|passed$,|
|000010a0| 31 29 0d f1 72 20 70 61 | 73 73 65 64 24 3d a4 73 |1)..r pa|ssed$=.s|
|000010b0| 74 72 69 70 73 70 61 63 | 65 28 70 61 73 73 65 64 |tripspac|e(passed|
|000010c0| 24 29 0d f1 7c 38 e7 20 | c0 70 61 73 73 65 64 24 |$)..|8. |.passed$|
|000010d0| 2c 31 29 3c 3e 22 5b 22 | 20 8c 20 85 20 66 70 65 |,1)<>"["| . . fpe|
|000010e0| 72 72 2c 22 4d 69 73 73 | 69 6e 67 20 5b 20 3a 22 |rr,"Miss|ing [ :"|
|000010f0| 2b 6f 72 69 67 69 6e 61 | 6c 24 0d f1 86 1d 70 61 |+origina|l$....pa|
|00001100| 73 73 65 64 24 3d a4 73 | 74 72 69 70 28 70 61 73 |ssed$=.s|trip(pas|
|00001110| 73 65 64 24 2c 31 29 0d | f1 90 20 70 61 73 73 65 |sed$,1).|.. passe|
|00001120| 64 24 3d a4 73 74 72 69 | 70 73 70 61 63 65 28 70 |d$=.stri|pspace(p|
|00001130| 61 73 73 65 64 24 29 0d | f1 9a 18 64 61 74 61 3d |assed$).|...data=|
|00001140| a4 67 65 74 52 6e 28 70 | 61 73 73 65 64 24 29 0d |.getRn(p|assed$).|
|00001150| f1 a4 10 52 6e 3d 64 61 | 74 61 20 83 32 35 36 0d |...Rn=da|ta .256.|
|00001160| f1 ae 25 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |..%passe|d$=.stri|
|00001170| 70 28 70 61 73 73 65 64 | 24 2c 64 61 74 61 20 81 |p(passed|$,data .|
|00001180| 32 35 36 29 0d f1 b8 14 | c8 8e 20 c0 70 61 73 73 |256)....|.. .pass|
|00001190| 65 64 24 2c 32 29 20 ca | 0d f1 c2 4f c9 20 22 5d |ed$,2) .|...O. "]|
|000011a0| 2c 22 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |,":passe|d$=.stri|
|000011b0| 70 28 70 61 73 73 65 64 | 24 2c 32 29 3a 64 61 74 |p(passed|$,2):dat|
|000011c0| 61 3d a4 66 69 6e 64 6f | 66 66 73 65 74 28 70 61 |a=.findo|ffset(pa|
|000011d0| 73 73 65 64 24 29 3a 6f | 66 66 73 65 74 3d 64 61 |ssed$):o|ffset=da|
|000011e0| 74 61 20 83 32 35 36 0d | f1 cc a3 c9 20 22 2c 23 |ta .256.|.... ",#|
|000011f0| 22 3a 70 61 73 73 65 64 | 24 3d a4 73 74 72 69 70 |":passed|$=.strip|
|00001200| 28 70 61 73 73 65 64 24 | 2c 32 29 3a 64 61 74 61 |(passed$|,2):data|
|00001210| 3d a4 66 69 6e 64 6f 66 | 66 73 65 74 28 70 61 73 |=.findof|fset(pas|
|00001220| 73 65 64 24 29 3a 6f 66 | 66 73 65 74 3d 64 61 74 |sed$):of|fset=dat|
|00001230| 61 20 83 32 35 36 3a 70 | 61 73 73 65 64 24 3d a4 |a .256:p|assed$=.|
|00001240| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 64 61 |strip(pa|ssed$,da|
|00001250| 74 61 20 81 32 35 36 29 | 3a 70 70 3d 31 3a f2 62 |ta .256)|:pp=1:.b|
|00001260| 72 61 63 6b 65 74 3a f2 | 70 6c 69 6e 67 3a e7 20 |racket:.|pling:. |
|00001270| 6e 6f 66 66 73 65 74 3d | b9 20 8c 20 6f 66 66 73 |noffset=|. . offs|
|00001280| 65 74 3d 2d 6f 66 66 73 | 65 74 0d f1 d6 09 c9 20 |et=-offs|et..... |
|00001290| 22 5d 22 0d f1 e0 2e 7f | 20 85 20 66 70 65 72 72 |"]".....| . fperr|
|000012a0| 2c 22 42 61 64 20 61 64 | 64 72 65 73 73 20 73 79 |,"Bad ad|dress sy|
|000012b0| 6e 74 61 78 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ntax :"+|original|
|000012c0| 24 0d f1 ea 05 cb 0d f1 | f4 14 6f 66 66 73 65 74 |$.......|..offset|
|000012d0| 3d 6f 66 66 73 65 74 20 | 81 34 0d f1 fe 3d 77 72 |=offset |.4...=wr|
|000012e0| 69 74 65 3d a4 64 61 74 | 61 5f 74 72 61 6e 28 63 |ite=.dat|a_tran(c|
|000012f0| 6f 6e 64 2c 70 70 2c 6e | 6f 66 66 73 65 74 2c 70 |ond,pp,n|offset,p|
|00001300| 72 65 2c 77 62 2c 6f 70 | 63 2c 52 6e 2c 46 64 2c |re,wb,op|c,Rn,Fd,|
|00001310| 6f 66 66 73 65 74 29 0d | f2 08 05 e1 0d f2 12 05 |offset).|........|
|00001320| 3a 0d f2 1c 18 dd a4 66 | 69 6e 64 6f 66 66 73 65 |:......f|indoffse|
|00001330| 74 28 70 61 73 73 36 24 | 29 0d f2 26 0b 6f 66 66 |t(pass6$|)..&.off|
|00001340| 24 3d 22 22 0d f2 30 2e | e7 20 c0 70 61 73 73 36 |$=""..0.|. .pass6|
|00001350| 24 2c 31 29 3d 22 23 22 | 20 8c 20 70 61 73 73 36 |$,1)="#"| . pass6|
|00001360| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 36 24 2c |$=.strip|(pass6$,|
|00001370| 31 29 0d f2 3a 2d c8 95 | 20 a7 22 2d 22 2b 74 65 |1)..:-..| ."-"+te|
|00001380| 73 74 24 2c c0 70 61 73 | 73 36 24 2c 31 29 29 3e |st$,.pas|s6$,1))>|
|00001390| 30 20 80 20 a9 28 70 61 | 73 73 36 24 29 3e 30 0d |0 . .(pa|ss6$)>0.|
|000013a0| f2 44 14 6f 66 66 24 2b | 3d c0 70 61 73 73 36 24 |.D.off$+|=.pass6$|
|000013b0| 2c 31 29 0d f2 4e 1b 70 | 61 73 73 36 24 3d a4 73 |,1)..N.p|ass6$=.s|
|000013c0| 74 72 69 70 28 70 61 73 | 73 36 24 2c 31 29 0d f2 |trip(pas|s6$,1)..|
|000013d0| 58 05 ce 0d f2 62 0f 6c | 6f 66 3d a9 28 6f 66 66 |X....b.l|of=.(off|
|000013e0| 24 29 0d f2 6c 30 e7 20 | 6f 66 66 24 3d 22 22 20 |$)..l0. |off$="" |
|000013f0| 8c 20 85 20 66 70 65 72 | 72 2c 22 42 61 64 20 6f |. . fper|r,"Bad o|
|00001400| 66 66 73 65 74 20 3a 22 | 2b 6f 72 69 67 69 6e 61 |ffset :"|+origina|
|00001410| 6c 24 0d f2 76 39 e7 20 | 94 28 a0 28 6f 66 66 24 |l$..v9. |.(.(off$|
|00001420| 29 29 3e 32 35 35 20 8c | 20 85 20 66 70 65 72 72 |))>255 .| . fperr|
|00001430| 2c 22 4f 66 66 73 65 74 | 20 72 61 6e 67 65 20 3a |,"Offset| range :|
|00001440| 22 2b 6f 72 69 67 69 6e | 61 6c 24 0d f2 80 1e e7 |"+origin|al$.....|
|00001450| 20 b4 28 a0 28 6f 66 66 | 24 29 29 3d b9 20 8c 20 | .(.(off|$))=. . |
|00001460| 6e 6f 66 66 73 65 74 3d | 30 0d f2 8a 17 3d 94 28 |noffset=|0....=.(|
|00001470| a0 28 6f 66 66 24 29 29 | 2b 32 35 36 2a 6c 6f 66 |.(off$))|+256*lof|
|00001480| 0d f2 94 05 3a 0d f2 9e | 0d dd f2 62 72 61 63 6b |....:...|...brack|
|00001490| 65 74 0d f2 a8 20 70 61 | 73 73 65 64 24 3d a4 73 |et... pa|ssed$=.s|
|000014a0| 74 72 69 70 73 70 61 63 | 65 28 70 61 73 73 65 64 |tripspac|e(passed|
|000014b0| 24 29 0d f2 b2 38 e7 20 | c0 70 61 73 73 65 64 24 |$)...8. |.passed$|
|000014c0| 2c 31 29 3c 3e 22 5d 22 | 20 8c 20 85 20 66 70 65 |,1)<>"]"| . . fpe|
|000014d0| 72 72 2c 22 4d 69 73 73 | 69 6e 67 20 5d 20 3a 22 |rr,"Miss|ing ] :"|
|000014e0| 2b 6f 72 69 67 69 6e 61 | 6c 24 0d f2 bc 1d 70 61 |+origina|l$....pa|
|000014f0| 73 73 65 64 24 3d a4 73 | 74 72 69 70 28 70 61 73 |ssed$=.s|trip(pas|
|00001500| 73 65 64 24 2c 31 29 0d | f2 c6 05 e1 0d f2 d0 05 |sed$,1).|........|
|00001510| 3a 0d f2 da 0b dd f2 70 | 6c 69 6e 67 0d f2 e4 20 |:......p|ling... |
|00001520| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00001530| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f2 ee 1c |ace(pass|ed$)....|
|00001540| e7 20 c0 70 61 73 73 65 | 64 24 2c 31 29 3d 22 21 |. .passe|d$,1)="!|
|00001550| 22 20 8c 20 77 62 3d 31 | 0d f2 f8 1d 70 61 73 73 |" . wb=1|....pass|
|00001560| 65 64 24 3d a4 73 74 72 | 69 70 28 70 61 73 73 65 |ed$=.str|ip(passe|
|00001570| 64 24 2c 31 29 0d f3 02 | 05 e1 0d f3 0c 05 3a 0d |d$,1)...|......:.|
|00001580| f3 16 0b dd f2 74 79 70 | 65 31 0d f3 20 07 69 3d |.....typ|e1.. .i=|
|00001590| 30 0d f3 2a 20 70 61 73 | 73 65 64 24 3d a4 73 74 |0..* pas|sed$=.st|
|000015a0| 72 69 70 73 70 61 63 65 | 28 70 61 73 73 65 64 24 |ripspace|(passed$|
|000015b0| 29 0d f3 34 34 70 72 65 | 3d a4 70 72 65 63 28 c0 |)..44pre|=.prec(.|
|000015c0| 70 61 73 73 65 64 24 2c | 31 29 29 3a 70 61 73 73 |passed$,|1)):pass|
|000015d0| 65 64 24 3d a4 73 74 72 | 69 70 28 70 61 73 73 65 |ed$=.str|ip(passe|
|000015e0| 64 24 2c 31 29 0d f3 3e | 3a 72 6f 75 6e 64 3d a4 |d$,1)..>|:round=.|
|000015f0| 72 6f 75 6e 64 28 c0 70 | 61 73 73 65 64 24 2c 31 |round(.p|assed$,1|
|00001600| 29 29 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |)):passe|d$=.stri|
|00001610| 70 73 70 61 63 65 28 70 | 61 73 73 65 64 24 29 0d |pspace(p|assed$).|
|00001620| f3 48 18 64 61 74 61 3d | a4 67 65 74 46 6e 28 70 |.H.data=|.getFn(p|
|00001630| 61 73 73 65 64 24 29 0d | f3 52 10 46 6e 3d 64 61 |assed$).|.R.Fn=da|
|00001640| 74 61 20 83 32 35 36 0d | f3 5c 25 70 61 73 73 65 |ta .256.|.\%passe|
|00001650| 64 24 3d a4 73 74 72 69 | 70 28 70 61 73 73 65 64 |d$=.stri|p(passed|
|00001660| 24 2c 64 61 74 61 20 81 | 32 35 36 29 0d f3 66 20 |$,data .|256)..f |
|00001670| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00001680| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f3 70 38 |ace(pass|ed$)..p8|
|00001690| e7 20 c0 70 61 73 73 65 | 64 24 2c 31 29 3c 3e 22 |. .passe|d$,1)<>"|
|000016a0| 2c 22 20 8c 20 85 20 66 | 70 65 72 72 2c 22 4d 69 |," . . f|perr,"Mi|
|000016b0| 73 73 69 6e 67 20 2c 20 | 3a 22 2b 6f 72 69 67 69 |ssing , |:"+origi|
|000016c0| 6e 61 6c 24 0d f3 7a 1d | 70 61 73 73 65 64 24 3d |nal$..z.|passed$=|
|000016d0| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 31 |.strip(p|assed$,1|
|000016e0| 29 0d f3 84 20 70 61 73 | 73 65 64 24 3d a4 73 74 |)... pas|sed$=.st|
|000016f0| 72 69 70 73 70 61 63 65 | 28 70 61 73 73 65 64 24 |ripspace|(passed$|
|00001700| 29 0d f3 8e 35 e7 20 c0 | 70 61 73 73 65 64 24 2c |)...5. .|passed$,|
|00001710| 31 29 3d 22 23 22 20 8c | 20 69 3d 31 3a 70 61 73 |1)="#" .| i=1:pas|
|00001720| 73 65 64 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |sed$=.st|rip(pass|
|00001730| 65 64 24 2c 31 29 0d f3 | 98 18 64 61 74 61 3d a4 |ed$,1)..|..data=.|
|00001740| 67 65 74 52 6e 28 70 61 | 73 73 65 64 24 29 0d f3 |getRn(pa|ssed$)..|
|00001750| a2 10 52 64 3d 64 61 74 | 61 20 83 32 35 36 0d f3 |..Rd=dat|a .256..|
|00001760| ac 18 61 62 63 3d 28 6f | 70 63 20 80 20 25 31 31 |..abc=(o|pc . %11|
|00001770| 31 30 29 3e 3e 31 0d f3 | b6 0e 6c 73 3d 6f 70 63 |10)>>1..|..ls=opc|
|00001780| 20 80 20 31 0d f3 c0 35 | 77 72 69 74 65 3d a4 72 | . 1...5|write=.r|
|00001790| 65 67 69 5f 74 72 61 6e | 28 63 6f 6e 64 2c 61 62 |egi_tran|(cond,ab|
|000017a0| 63 2c 6c 73 2c 70 72 65 | 2c 72 6f 75 6e 64 2c 30 |c,ls,pre|,round,0|
|000017b0| 2c 46 6e 2c 52 64 2c 69 | 29 0d f3 ca 05 e1 0d f3 |,Fn,Rd,i|).......|
|000017c0| d4 05 3a 0d f3 de 0b dd | f2 74 79 70 65 32 0d f3 |..:.....|.type2..|
|000017d0| e8 07 69 3d 30 0d f3 f2 | 20 70 61 73 73 65 64 24 |..i=0...| passed$|
|000017e0| 3d a4 73 74 72 69 70 73 | 70 61 63 65 28 70 61 73 |=.strips|pace(pas|
|000017f0| 73 65 64 24 29 0d f3 fc | 34 70 72 65 3d a4 70 72 |sed$)...|4pre=.pr|
|00001800| 65 63 28 c0 70 61 73 73 | 65 64 24 2c 31 29 29 3a |ec(.pass|ed$,1)):|
|00001810| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 28 70 |passed$=|.strip(p|
|00001820| 61 73 73 65 64 24 2c 31 | 29 0d f4 06 37 72 6f 75 |assed$,1|)...7rou|
|00001830| 6e 64 3d a4 72 6f 75 6e | 64 28 c0 70 61 73 73 65 |nd=.roun|d(.passe|
|00001840| 64 24 2c 31 29 29 3a 70 | 61 73 73 65 64 24 3d a4 |d$,1)):p|assed$=.|
|00001850| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 31 29 |strip(pa|ssed$,1)|
|00001860| 0d f4 10 35 70 61 73 73 | 65 64 24 3d a4 73 74 72 |...5pass|ed$=.str|
|00001870| 69 70 73 70 61 63 65 28 | 70 61 73 73 65 64 24 29 |ipspace(|passed$)|
|00001880| 3a 64 61 74 61 3d a4 67 | 65 74 52 6e 28 70 61 73 |:data=.g|etRn(pas|
|00001890| 73 65 64 24 29 0d f4 1a | 11 52 64 3d 64 61 74 61 |sed$)...|.Rd=data|
|000018a0| 20 83 20 32 35 36 0d f4 | 24 25 70 61 73 73 65 64 | . 256..|$%passed|
|000018b0| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|000018c0| 2c 64 61 74 61 20 81 32 | 35 36 29 0d f4 2e 20 70 |,data .2|56)... p|
|000018d0| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 73 70 61 |assed$=.|stripspa|
|000018e0| 63 65 28 70 61 73 73 65 | 64 24 29 0d f4 38 38 e7 |ce(passe|d$)..88.|
|000018f0| 20 c0 70 61 73 73 65 64 | 24 2c 31 29 3c 3e 22 2c | .passed|$,1)<>",|
|00001900| 22 20 8c 20 85 20 66 70 | 65 72 72 2c 22 4d 69 73 |" . . fp|err,"Mis|
|00001910| 73 69 6e 67 20 2c 20 3a | 22 2b 6f 72 69 67 69 6e |sing , :|"+origin|
|00001920| 61 6c 24 0d f4 42 1d 70 | 61 73 73 65 64 24 3d a4 |al$..B.p|assed$=.|
|00001930| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 31 29 |strip(pa|ssed$,1)|
|00001940| 0d f4 4c 20 70 61 73 73 | 65 64 24 3d a4 73 74 72 |..L pass|ed$=.str|
|00001950| 69 70 73 70 61 63 65 28 | 70 61 73 73 65 64 24 29 |ipspace(|passed$)|
|00001960| 0d f4 56 18 64 61 74 61 | 3d a4 67 65 74 46 6e 28 |..V.data|=.getFn(|
|00001970| 70 61 73 73 65 64 24 29 | 0d f4 60 10 46 6e 3d 64 |passed$)|..`.Fn=d|
|00001980| 61 74 61 20 83 32 35 36 | 0d f4 6a 18 61 62 63 3d |ata .256|..j.abc=|
|00001990| 28 6f 70 63 20 80 20 25 | 31 31 31 30 29 3e 3e 31 |(opc . %|1110)>>1|
|000019a0| 0d f4 74 0e 6c 73 3d 6f | 70 63 20 80 20 31 0d f4 |..t.ls=o|pc . 1..|
|000019b0| 7e 35 77 72 69 74 65 3d | a4 72 65 67 69 5f 74 72 |~5write=|.regi_tr|
|000019c0| 61 6e 28 63 6f 6e 64 2c | 61 62 63 2c 6c 73 2c 70 |an(cond,|abc,ls,p|
|000019d0| 72 65 2c 72 6f 75 6e 64 | 2c 46 6e 2c 30 2c 52 64 |re,round|,Fn,0,Rd|
|000019e0| 2c 69 29 0d f4 88 05 e1 | 0d f4 92 05 3a 0d f4 9c |,i).....|....:...|
|000019f0| 0b dd f2 74 79 70 65 33 | 0d f4 a6 07 69 3d 30 0d |...type3|....i=0.|
|00001a00| f4 b0 20 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |.. passe|d$=.stri|
|00001a10| 70 73 70 61 63 65 28 70 | 61 73 73 65 64 24 29 0d |pspace(p|assed$).|
|00001a20| f4 ba 34 70 72 65 3d a4 | 70 72 65 63 28 c0 70 61 |..4pre=.|prec(.pa|
|00001a30| 73 73 65 64 24 2c 31 29 | 29 3a 70 61 73 73 65 64 |ssed$,1)|):passed|
|00001a40| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|00001a50| 2c 31 29 0d f4 c4 37 72 | 6f 75 6e 64 3d a4 72 6f |,1)...7r|ound=.ro|
|00001a60| 75 6e 64 28 c0 70 61 73 | 73 65 64 24 2c 31 29 29 |und(.pas|sed$,1))|
|00001a70| 3a 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 28 |:passed$|=.strip(|
|00001a80| 70 61 73 73 65 64 24 2c | 31 29 0d f4 ce 35 70 61 |passed$,|1)...5pa|
|00001a90| 73 73 65 64 24 3d a4 73 | 74 72 69 70 73 70 61 63 |ssed$=.s|tripspac|
|00001aa0| 65 28 70 61 73 73 65 64 | 24 29 3a 64 61 74 61 3d |e(passed|$):data=|
|00001ab0| a4 67 65 74 52 6e 28 70 | 61 73 73 65 64 24 29 0d |.getRn(p|assed$).|
|00001ac0| f4 d8 11 52 64 3d 64 61 | 74 61 20 83 20 32 35 36 |...Rd=da|ta . 256|
|00001ad0| 0d f4 e2 18 61 62 63 3d | 28 6f 70 63 20 80 20 25 |....abc=|(opc . %|
|00001ae0| 31 31 31 30 29 3e 3e 31 | 0d f4 ec 0e 6c 73 3d 6f |1110)>>1|....ls=o|
|00001af0| 70 63 20 80 20 31 0d f4 | f6 34 77 72 69 74 65 3d |pc . 1..|.4write=|
|00001b00| a4 72 65 67 69 5f 74 72 | 61 6e 28 63 6f 6e 64 2c |.regi_tr|an(cond,|
|00001b10| 61 62 63 2c 6c 73 2c 70 | 72 65 2c 72 6f 75 6e 64 |abc,ls,p|re,round|
|00001b20| 2c 30 2c 30 2c 52 64 2c | 69 29 0d f5 00 05 e1 0d |,0,0,Rd,|i)......|
|00001b30| f5 0a 05 3a 0d f5 14 0b | dd f2 74 79 70 65 34 0d |...:....|..type4.|
|00001b40| f5 1e 07 69 3d 30 0d f5 | 28 20 70 61 73 73 65 64 |...i=0..|( passed|
|00001b50| 24 3d a4 73 74 72 69 70 | 73 70 61 63 65 28 70 61 |$=.strip|space(pa|
|00001b60| 73 73 65 64 24 29 0d f5 | 32 34 70 72 65 3d a4 70 |ssed$)..|24pre=.p|
|00001b70| 72 65 63 28 c0 70 61 73 | 73 65 64 24 2c 31 29 29 |rec(.pas|sed$,1))|
|00001b80| 3a 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 28 |:passed$|=.strip(|
|00001b90| 70 61 73 73 65 64 24 2c | 31 29 0d f5 3c 37 72 6f |passed$,|1)..<7ro|
|00001ba0| 75 6e 64 3d a4 72 6f 75 | 6e 64 28 c0 70 61 73 73 |und=.rou|nd(.pass|
|00001bb0| 65 64 24 2c 31 29 29 3a | 70 61 73 73 65 64 24 3d |ed$,1)):|passed$=|
|00001bc0| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 31 |.strip(p|assed$,1|
|00001bd0| 29 0d f5 46 35 70 61 73 | 73 65 64 24 3d a4 73 74 |)..F5pas|sed$=.st|
|00001be0| 72 69 70 73 70 61 63 65 | 28 70 61 73 73 65 64 24 |ripspace|(passed$|
|00001bf0| 29 3a 64 61 74 61 3d a4 | 67 65 74 46 6e 28 70 61 |):data=.|getFn(pa|
|00001c00| 73 73 65 64 24 29 0d f5 | 50 33 46 64 3d 64 61 74 |ssed$)..|P3Fd=dat|
|00001c10| 61 20 83 20 32 35 36 3a | 70 61 73 73 65 64 24 3d |a . 256:|passed$=|
|00001c20| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 64 |.strip(p|assed$,d|
|00001c30| 61 74 61 20 81 32 35 36 | 29 0d f5 5a 20 70 61 73 |ata .256|)..Z pas|
|00001c40| 73 65 64 24 3d a4 73 74 | 72 69 70 73 70 61 63 65 |sed$=.st|ripspace|
|00001c50| 28 70 61 73 73 65 64 24 | 29 0d f5 64 38 e7 20 c0 |(passed$|)..d8. .|
|00001c60| 70 61 73 73 65 64 24 2c | 31 29 3c 3e 22 2c 22 20 |passed$,|1)<>"," |
|00001c70| 8c 20 85 20 66 70 65 72 | 72 2c 22 4d 69 73 73 69 |. . fper|r,"Missi|
|00001c80| 6e 67 20 2c 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ng , :"+|original|
|00001c90| 24 0d f5 6e 3a 70 61 73 | 73 65 64 24 3d a4 73 74 |$..n:pas|sed$=.st|
|00001ca0| 72 69 70 28 70 61 73 73 | 65 64 24 2c 31 29 3a 70 |rip(pass|ed$,1):p|
|00001cb0| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 73 70 61 |assed$=.|stripspa|
|00001cc0| 63 65 28 70 61 73 73 65 | 64 24 29 0d f5 78 26 64 |ce(passe|d$)..x&d|
|00001cd0| 61 74 61 3d a4 67 65 74 | 46 6e 28 70 61 73 73 65 |ata=.get|Fn(passe|
|00001ce0| 64 24 29 3a 46 6e 3d 64 | 61 74 61 20 83 20 32 35 |d$):Fn=d|ata . 25|
|00001cf0| 36 0d f5 82 25 70 61 73 | 73 65 64 24 3d a4 73 74 |6...%pas|sed$=.st|
|00001d00| 72 69 70 28 70 61 73 73 | 65 64 24 2c 64 61 74 61 |rip(pass|ed$,data|
|00001d10| 20 81 32 35 36 29 0d f5 | 8c 20 70 61 73 73 65 64 | .256)..|. passed|
|00001d20| 24 3d a4 73 74 72 69 70 | 73 70 61 63 65 28 70 61 |$=.strip|space(pa|
|00001d30| 73 73 65 64 24 29 0d f5 | 96 38 e7 20 c0 70 61 73 |ssed$)..|.8. .pas|
|00001d40| 73 65 64 24 2c 31 29 3c | 3e 22 2c 22 20 8c 20 85 |sed$,1)<|>"," . .|
|00001d50| 20 66 70 65 72 72 2c 22 | 4d 69 73 73 69 6e 67 20 | fperr,"|Missing |
|00001d60| 2c 20 3a 22 2b 6f 72 69 | 67 69 6e 61 6c 24 0d f5 |, :"+ori|ginal$..|
|00001d70| a0 3a 70 61 73 73 65 64 | 24 3d a4 73 74 72 69 70 |.:passed|$=.strip|
|00001d80| 28 70 61 73 73 65 64 24 | 2c 31 29 3a 70 61 73 73 |(passed$|,1):pass|
|00001d90| 65 64 24 3d a4 73 74 72 | 69 70 73 70 61 63 65 28 |ed$=.str|ipspace(|
|00001da0| 70 61 73 73 65 64 24 29 | 0d f5 aa 35 e7 20 c0 70 |passed$)|...5. .p|
|00001db0| 61 73 73 65 64 24 2c 31 | 29 3d 22 23 22 20 8c 20 |assed$,1|)="#" . |
|00001dc0| 69 3d 31 3a 70 61 73 73 | 65 64 24 3d a4 73 74 72 |i=1:pass|ed$=.str|
|00001dd0| 69 70 28 70 61 73 73 65 | 64 24 2c 31 29 0d f5 b4 |ip(passe|d$,1)...|
|00001de0| 35 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 |5passed$|=.strips|
|00001df0| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 3a 64 61 |pace(pas|sed$):da|
|00001e00| 74 61 3d a4 67 65 74 46 | 6e 28 70 61 73 73 65 64 |ta=.getF|n(passed|
|00001e10| 24 29 0d f5 be 11 46 6d | 3d 64 61 74 61 20 83 20 |$)....Fm|=data . |
|00001e20| 32 35 36 0d f5 c8 33 77 | 72 69 74 65 3d a4 64 61 |256...3w|rite=.da|
|00001e30| 74 61 5f 6f 70 74 6e 28 | 63 6f 6e 64 2c 6f 70 63 |ta_optn(|cond,opc|
|00001e40| 2c 70 72 65 2c 72 6f 75 | 6e 64 2c 69 2c 46 6d 2c |,pre,rou|nd,i,Fm,|
|00001e50| 46 6e 2c 46 64 29 0d f5 | d2 05 e1 0d f5 dc 05 3a |Fn,Fd)..|.......:|
|00001e60| 0d f5 e6 0b dd f2 74 79 | 70 65 35 0d f5 f0 07 69 |......ty|pe5....i|
|00001e70| 3d 30 0d f5 fa 20 70 61 | 73 73 65 64 24 3d a4 73 |=0... pa|ssed$=.s|
|00001e80| 74 72 69 70 73 70 61 63 | 65 28 70 61 73 73 65 64 |tripspac|e(passed|
|00001e90| 24 29 0d f6 04 34 70 72 | 65 3d a4 70 72 65 63 28 |$)...4pr|e=.prec(|
|00001ea0| c0 70 61 73 73 65 64 24 | 2c 31 29 29 3a 70 61 73 |.passed$|,1)):pas|
|00001eb0| 73 65 64 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |sed$=.st|rip(pass|
|00001ec0| 65 64 24 2c 31 29 0d f6 | 0e 37 72 6f 75 6e 64 3d |ed$,1)..|.7round=|
|00001ed0| a4 72 6f 75 6e 64 28 c0 | 70 61 73 73 65 64 24 2c |.round(.|passed$,|
|00001ee0| 31 29 29 3a 70 61 73 73 | 65 64 24 3d a4 73 74 72 |1)):pass|ed$=.str|
|00001ef0| 69 70 28 70 61 73 73 65 | 64 24 2c 31 29 0d f6 18 |ip(passe|d$,1)...|
|00001f00| 35 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 |5passed$|=.strips|
|00001f10| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 3a 64 61 |pace(pas|sed$):da|
|00001f20| 74 61 3d a4 67 65 74 46 | 6e 28 70 61 73 73 65 64 |ta=.getF|n(passed|
|00001f30| 24 29 0d f6 22 33 46 64 | 3d 64 61 74 61 20 83 20 |$).."3Fd|=data . |
|00001f40| 32 35 36 3a 70 61 73 73 | 65 64 24 3d a4 73 74 72 |256:pass|ed$=.str|
|00001f50| 69 70 28 70 61 73 73 65 | 64 24 2c 64 61 74 61 20 |ip(passe|d$,data |
|00001f60| 81 32 35 36 29 0d f6 2c | 20 70 61 73 73 65 64 24 |.256)..,| passed$|
|00001f70| 3d a4 73 74 72 69 70 73 | 70 61 63 65 28 70 61 73 |=.strips|pace(pas|
|00001f80| 73 65 64 24 29 0d f6 36 | 38 e7 20 c0 70 61 73 73 |sed$)..6|8. .pass|
|00001f90| 65 64 24 2c 31 29 3c 3e | 22 2c 22 20 8c 20 85 20 |ed$,1)<>|"," . . |
|00001fa0| 66 70 65 72 72 2c 22 4d | 69 73 73 69 6e 67 20 2c |fperr,"M|issing ,|
|00001fb0| 20 3a 22 2b 6f 72 69 67 | 69 6e 61 6c 24 0d f6 40 | :"+orig|inal$..@|
|00001fc0| 3a 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 28 |:passed$|=.strip(|
|00001fd0| 70 61 73 73 65 64 24 2c | 31 29 3a 70 61 73 73 65 |passed$,|1):passe|
|00001fe0| 64 24 3d a4 73 74 72 69 | 70 73 70 61 63 65 28 70 |d$=.stri|pspace(p|
|00001ff0| 61 73 73 65 64 24 29 0d | f6 4a 35 e7 20 c0 70 61 |assed$).|.J5. .pa|
|00002000| 73 73 65 64 24 2c 31 29 | 3d 22 23 22 20 8c 20 69 |ssed$,1)|="#" . i|
|00002010| 3d 31 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |=1:passe|d$=.stri|
|00002020| 70 28 70 61 73 73 65 64 | 24 2c 31 29 0d f6 54 35 |p(passed|$,1)..T5|
|00002030| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00002040| 61 63 65 28 70 61 73 73 | 65 64 24 29 3a 64 61 74 |ace(pass|ed$):dat|
|00002050| 61 3d a4 67 65 74 46 6e | 28 70 61 73 73 65 64 24 |a=.getFn|(passed$|
|00002060| 29 0d f6 5e 11 46 6d 3d | 64 61 74 61 20 83 20 32 |)..^.Fm=|data . 2|
|00002070| 35 36 0d f6 68 32 77 72 | 69 74 65 3d a4 64 61 74 |56..h2wr|ite=.dat|
|00002080| 61 5f 6f 70 74 6e 28 63 | 6f 6e 64 2c 6f 70 63 2c |a_optn(c|ond,opc,|
|00002090| 70 72 65 2c 72 6f 75 6e | 64 2c 69 2c 46 6d 2c 30 |pre,roun|d,i,Fm,0|
|000020a0| 2c 46 64 29 0d f6 72 05 | e1 0d f6 7c 05 3a 0d f6 |,Fd)..r.|...|.:..|
|000020b0| 86 0b dd f2 74 79 70 65 | 36 0d f6 90 07 69 3d 30 |....type|6....i=0|
|000020c0| 0d f6 9a 20 70 61 73 73 | 65 64 24 3d a4 73 74 72 |... pass|ed$=.str|
|000020d0| 69 70 73 70 61 63 65 28 | 70 61 73 73 65 64 24 29 |ipspace(|passed$)|
|000020e0| 0d f6 a4 18 64 61 74 61 | 3d a4 67 65 74 46 6e 28 |....data|=.getFn(|
|000020f0| 70 61 73 73 65 64 24 29 | 0d f6 ae 33 46 6e 3d 64 |passed$)|...3Fn=d|
|00002100| 61 74 61 20 83 20 32 35 | 36 3a 70 61 73 73 65 64 |ata . 25|6:passed|
|00002110| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|00002120| 2c 64 61 74 61 20 81 32 | 35 36 29 0d f6 b8 20 70 |,data .2|56)... p|
|00002130| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 73 70 61 |assed$=.|stripspa|
|00002140| 63 65 28 70 61 73 73 65 | 64 24 29 0d f6 c2 38 e7 |ce(passe|d$)...8.|
|00002150| 20 c0 70 61 73 73 65 64 | 24 2c 31 29 3c 3e 22 2c | .passed|$,1)<>",|
|00002160| 22 20 8c 20 85 20 66 70 | 65 72 72 2c 22 4d 69 73 |" . . fp|err,"Mis|
|00002170| 73 69 6e 67 20 2c 20 3a | 22 2b 6f 72 69 67 69 6e |sing , :|"+origin|
|00002180| 61 6c 24 0d f6 cc 3a 70 | 61 73 73 65 64 24 3d a4 |al$...:p|assed$=.|
|00002190| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 31 29 |strip(pa|ssed$,1)|
|000021a0| 3a 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 |:passed$|=.strips|
|000021b0| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 0d f6 d6 |pace(pas|sed$)...|
|000021c0| 35 e7 20 c0 70 61 73 73 | 65 64 24 2c 31 29 3d 22 |5. .pass|ed$,1)="|
|000021d0| 23 22 20 8c 20 69 3d 31 | 3a 70 61 73 73 65 64 24 |#" . i=1|:passed$|
|000021e0| 3d a4 73 74 72 69 70 28 | 70 61 73 73 65 64 24 2c |=.strip(|passed$,|
|000021f0| 31 29 0d f6 e0 18 64 61 | 74 61 3d a4 67 65 74 46 |1)....da|ta=.getF|
|00002200| 6e 28 70 61 73 73 65 64 | 24 29 0d f6 ea 11 46 6d |n(passed|$)....Fm|
|00002210| 3d 64 61 74 61 20 83 20 | 32 35 36 0d f6 f4 26 77 |=data . |256...&w|
|00002220| 72 69 74 65 3d a4 73 74 | 61 74 5f 74 72 61 6e 28 |rite=.st|at_tran(|
|00002230| 63 6f 6e 64 2c 6f 70 63 | 2c 69 2c 46 6d 2c 46 6e |cond,opc|,i,Fm,Fn|
|00002240| 29 0d f6 fe 05 e1 0d f7 | 08 05 3a 0d f7 12 1a dd |).......|..:.....|
|00002250| f2 68 65 6c 70 32 28 76 | 6f 70 63 6f 64 65 2c 76 |.help2(v|opcode,v|
|00002260| 74 79 70 65 29 0d f7 1c | 1e f1 27 22 4f 50 43 4f |type)...|..'"OPCO|
|00002270| 44 45 20 3a 22 3b 6f 70 | 63 24 28 76 6f 70 63 6f |DE :";op|c$(vopco|
|00002280| 64 65 29 0d f7 26 16 f1 | 22 4f 70 63 6f 64 65 20 |de)..&..|"Opcode |
|00002290| 66 6f 72 6d 61 74 3a 22 | 3b 0d f7 30 0e c8 8e 20 |format:"|;..0... |
|000022a0| 76 74 79 70 65 20 ca 0d | f7 3a 4a c9 20 30 3a f1 |vtype ..|.:J. 0:.|
|000022b0| 22 6f 70 63 3c 63 6f 6e | 64 3e 70 72 65 63 20 46 |"opc<con|d>prec F|
|000022c0| 64 2c 61 64 64 72 20 77 | 68 65 72 65 20 61 64 64 |d,addr w|here add|
|000022d0| 72 20 69 73 20 5b 52 6e | 5d 3c 2c 23 6f 66 66 3e |r is [Rn|]<,#off>|
|000022e0| 20 4f 52 20 5b 52 6e 2c | 23 6f 66 66 5d 3c 21 3e | OR [Rn,|#off]<!>|
|000022f0| 22 0d f7 44 30 c9 20 31 | 3a f1 22 46 4c 54 3c 63 |"..D0. 1|:."FLT<c|
|00002300| 6f 6e 64 3e 70 72 65 63 | 3c 72 6f 75 6e 64 3e 20 |ond>prec|<round> |
|00002310| 46 6e 2c 28 52 64 20 7c | 20 23 76 61 6c 75 65 29 |Fn,(Rd || #value)|
|00002320| 22 0d f7 4e 25 c9 20 32 | 3a f1 22 46 49 58 3c 63 |"..N%. 2|:."FIX<c|
|00002330| 6f 6e 64 3e 70 72 65 63 | 3c 72 6f 75 6e 64 3e 20 |ond>prec|<round> |
|00002340| 52 64 2c 46 6d 22 0d f7 | 58 17 c9 20 33 3a f1 22 |Rd,Fm"..|X.. 3:."|
|00002350| 6f 70 63 3c 63 6f 6e 64 | 3e 20 52 64 22 0d f7 62 |opc<cond|> Rd"..b|
|00002360| 33 c9 20 34 3a f1 22 6f | 70 63 3c 63 6f 6e 64 3e |3. 4:."o|pc<cond>|
|00002370| 70 72 65 63 3c 72 6f 75 | 6e 64 3e 20 46 64 2c 46 |prec<rou|nd> Fd,F|
|00002380| 6e 2c 28 46 6d 20 7c 20 | 23 76 61 6c 75 65 29 22 |n,(Fm | |#value)"|
|00002390| 0d f7 6c 30 c9 20 35 3a | f1 22 6f 70 63 3c 63 6f |..l0. 5:|."opc<co|
|000023a0| 6e 64 3e 70 72 65 63 3c | 72 6f 75 6e 64 3e 20 46 |nd>prec<|round> F|
|000023b0| 64 2c 28 46 6d 20 7c 20 | 23 76 61 6c 75 65 29 22 |d,(Fm | |#value)"|
|000023c0| 0d f7 76 1a c9 20 36 3a | f1 22 6f 70 63 3c 63 6f |..v.. 6:|."opc<co|
|000023d0| 6e 64 3e 20 46 6e 2c 46 | 6d 22 0d f7 80 05 cb 0d |nd> Fn,F|m"......|
|000023e0| f7 8a 27 f1 22 53 70 65 | 63 69 66 69 63 20 75 73 |..'."Spe|cific us|
|000023f0| 61 67 65 20 3a 22 3b 75 | 73 61 67 65 24 28 76 6f |age :";u|sage$(vo|
|00002400| 70 63 6f 64 65 29 0d f7 | 94 05 e1 0d f7 9e 05 3a |pcode)..|.......:|
|00002410| 0d f7 a8 17 dd f2 68 65 | 6c 70 5f 6f 70 63 28 6f |......he|lp_opc(o|
|00002420| 70 63 6f 64 65 24 29 0d | f7 b2 1e f1 22 48 65 6c |pcode$).|...."Hel|
|00002430| 70 20 6f 6e 20 4f 50 43 | 4f 44 45 3a 22 3b 6f 70 |p on OPC|ODE:";op|
|00002440| 63 6f 64 65 24 0d f7 bc | 13 73 75 62 3d 2d 31 3a |code$...|.sub=-1:|
|00002450| f5 3a 73 75 62 2b 3d 31 | 0d f7 c6 22 63 68 6b 24 |.:sub+=1|..."chk$|
|00002460| 3d 6f 70 63 24 28 73 75 | 62 29 3a 74 79 70 65 3d |=opc$(su|b):type=|
|00002470| 74 79 70 65 76 28 73 75 | 62 29 0d f7 d0 26 e7 20 |typev(su|b)...&. |
|00002480| 6f 70 63 6f 64 65 24 3d | 22 41 4c 4c 22 20 8c 20 |opcode$=|"ALL" . |
|00002490| f2 68 65 6c 70 32 28 73 | 75 62 2c 74 79 70 65 29 |.help2(s|ub,type)|
|000024a0| 0d f7 da 1f fd 20 63 68 | 6b 24 3d 6f 70 63 6f 64 |..... ch|k$=opcod|
|000024b0| 65 24 20 84 20 63 68 6b | 24 3d 22 54 4a 43 22 0d |e$ . chk|$="TJC".|
|000024c0| f7 e4 16 e7 20 6f 70 63 | 6f 64 65 24 3c 3e 22 41 |.... opc|ode$<>"A|
|000024d0| 4c 4c 22 20 8c 0d f7 ee | 34 e7 20 63 68 6b 24 3d |LL" ....|4. chk$=|
|000024e0| 22 54 4a 43 22 20 8c 20 | 85 20 66 70 65 72 72 2c |"TJC" . |. fperr,|
|000024f0| 22 55 6e 6b 6e 6f 77 6e | 20 4f 70 63 6f 64 65 20 |"Unknown| Opcode |
|00002500| 22 2b 6f 70 63 6f 64 65 | 24 0d f7 f8 14 f2 68 65 |"+opcode|$.....he|
|00002510| 6c 70 32 28 73 75 62 2c | 74 79 70 65 29 0d f8 02 |lp2(sub,|type)...|
|00002520| 05 cd 0d f8 0c 05 e1 0d | f8 16 05 3a 0d f8 20 0d |........|...:.. .|
|00002530| dd f2 6c 69 73 74 61 6c | 6c 0d f8 2a 13 73 75 62 |..listal|l..*.sub|
|00002540| 3d 2d 31 3a f5 3a 73 75 | 62 2b 3d 31 0d f8 34 10 |=-1:.:su|b+=1..4.|
|00002550| dd f2 68 65 6c 70 5f 72 | 6f 75 6e 64 0d f8 3e 17 |..help_r|ound..>.|
|00002560| f1 27 22 52 6f 75 6e 64 | 69 6e 67 20 6d 6f 64 65 |.'"Round|ing mode|
|00002570| 73 3a 22 0d f8 48 1c f1 | 27 22 4d 6f 64 65 20 20 |s:"..H..|'"Mode |
|00002580| 20 20 20 20 20 20 20 20 | 4c 65 74 74 65 72 22 0d | |Letter".|
|00002590| f8 52 0e f1 22 4e 65 61 | 72 65 73 74 22 0d f8 5c |.R.."Nea|rest"..\|
|000025a0| 19 f1 22 50 6c 75 73 20 | 69 6e 66 69 6e 69 74 79 |.."Plus |infinity|
|000025b0| 20 20 20 20 50 22 0d f8 | 66 19 f1 22 4d 69 6e 75 | P"..|f.."Minu|
|000025c0| 73 20 69 6e 66 69 6e 69 | 74 79 20 20 20 4d 22 0d |s infini|ty M".|
|000025d0| f8 70 19 f1 22 5a 65 72 | 6f 20 20 20 20 20 20 20 |.p.."Zer|o |
|000025e0| 20 20 20 20 20 20 5a 22 | 0d f8 7a 05 f1 0d f8 84 | Z"|..z.....|
|000025f0| 05 e1 0d f8 8e 05 3a 0d | f8 98 10 dd f2 68 65 6c |......:.|.....hel|
|00002600| 70 5f 63 6f 6e 73 74 0d | f8 a2 16 f1 27 22 46 6d |p_const.|....'"Fm|
|00002610| 20 63 6f 6e 73 74 61 6e | 74 73 20 3a 22 0d f8 ac | constan|ts :"...|
|00002620| 1c f1 27 22 56 61 6c 75 | 65 20 20 20 20 20 20 20 |..'"Valu|e |
|00002630| 46 6d 20 56 61 6c 75 65 | 22 0d f8 b6 18 f1 22 30 |Fm Value|"....."0|
|00002640| 2e 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 30 |.0 | 0|
|00002650| 22 0d f8 c0 18 f1 22 31 | 2e 30 20 20 20 20 20 20 |"....."1|.0 |
|00002660| 20 20 20 20 20 20 20 31 | 22 0d f8 ca 18 f1 22 32 | 1|"....."2|
|00002670| 2e 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 32 |.0 | 2|
|00002680| 22 0d f8 d4 18 f1 22 33 | 2e 30 20 20 20 20 20 20 |"....."3|.0 |
|00002690| 20 20 20 20 20 20 20 33 | 22 0d f8 de 18 f1 22 34 | 3|"....."4|
|000026a0| 2e 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 34 |.0 | 4|
|000026b0| 22 0d f8 e8 18 f1 22 35 | 2e 30 20 20 20 20 20 20 |"....."5|.0 |
|000026c0| 20 20 20 20 20 20 20 35 | 22 0d f8 f2 18 f1 22 30 | 5|"....."0|
|000026d0| 2e 35 20 20 20 20 20 20 | 20 20 20 20 20 20 20 36 |.5 | 6|
|000026e0| 22 0d f8 fc 18 f1 22 31 | 30 2e 30 20 20 20 20 20 |"....."1|0.0 |
|000026f0| 20 20 20 20 20 20 20 37 | 22 0d f9 06 05 f1 0d f9 | 7|".......|
|00002700| 10 05 e1 0d f9 1a 05 3a | 0d f9 24 0f dd f2 68 65 |.......:|..$...he|
|00002710| 6c 70 5f 70 72 65 63 0d | f9 2e 18 f1 27 22 50 72 |lp_prec.|....'"Pr|
|00002720| 65 63 69 73 69 6f 6e 20 | 6d 6f 64 65 73 3a 22 0d |ecision |modes:".|
|00002730| f9 38 20 f1 27 22 50 72 | 65 63 69 73 69 6f 6e 20 |.8 .'"Pr|ecision |
|00002740| 20 20 20 20 20 20 20 20 | 4c 65 74 74 65 72 22 0d | |Letter".|
|00002750| f9 42 1d f1 22 53 69 6e | 67 6c 65 20 20 20 20 20 |.B.."Sin|gle |
|00002760| 20 20 20 20 20 20 20 20 | 20 20 53 22 0d f9 4c 1d | | S"..L.|
|00002770| f1 22 44 6f 75 62 6c 65 | 20 20 20 20 20 20 20 20 |."Double| |
|00002780| 20 20 20 20 20 20 20 44 | 22 0d f9 56 1d f1 22 45 | D|"..V.."E|
|00002790| 78 74 65 6e 64 65 64 20 | 20 20 20 20 20 20 20 20 |xtended | |
|000027a0| 20 20 20 20 45 22 0d f9 | 60 1d f1 22 50 61 63 6b | E"..|`.."Pack|
|000027b0| 65 64 20 42 43 44 20 20 | 20 20 20 20 20 20 20 20 |ed BCD | |
|000027c0| 20 50 22 0d f9 6a 05 f1 | 0d f9 74 05 e1 0d f9 7e | P"..j..|..t....~|
|000027d0| 0e dd f2 68 65 6c 70 5f | 66 70 65 0d f9 88 0f e3 |...help_|fpe.....|
|000027e0| 49 3d 31 b8 31 30 3a f1 | 3a ed 0d f9 92 33 f1 27 |I=1.10:.|:....3.'|
|000027f0| 22 46 6c 6f 61 74 69 6e | 67 20 50 6f 69 6e 74 20 |"Floatin|g Point |
|00002800| 45 6e 63 6f 64 65 72 20 | 28 43 29 20 54 4a 20 43 |Encoder |(C) TJ C|
|00002810| 68 61 70 70 65 6c 6c 20 | 31 39 38 38 22 0d f9 9c |happell |1988"...|
|00002820| 35 f1 27 22 49 6e 63 6c | 75 64 65 20 46 50 20 49 |5.'"Incl|ude FP I|
|00002830| 6e 73 74 72 75 63 74 69 | 6f 6e 73 20 69 6e 20 74 |nstructi|ons in t|
|00002840| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 77 61 79 |he follo|wing way|
|00002850| 3a 22 0d f9 a6 31 f1 22 | 45 51 55 44 20 46 4e 64 |:"...1."|EQUD FNd|
|00002860| 65 63 6f 64 65 28 22 2b | bd 33 34 2b 22 4d 56 46 |ecode("+|.34+"MVF|
|00002870| 41 4c 45 20 20 46 30 2c | 46 32 22 2b bd 33 34 2b |ALE F0,|F2"+.34+|
|00002880| 22 29 22 0d f9 b0 05 f1 | 0d f9 ba 3c f1 27 22 46 |")".....|...<.'"F|
|00002890| 75 72 74 68 65 72 20 70 | 72 6f 63 65 64 75 72 65 |urther p|rocedure|
|000028a0| 73 20 61 72 65 20 61 76 | 61 69 6c 61 62 6c 65 20 |s are av|ailable |
|000028b0| 66 6f 72 20 65 78 70 6c | 69 63 69 74 20 68 65 6c |for expl|icit hel|
|000028c0| 70 20 3a 22 0d f9 c4 33 | f1 27 22 50 52 4f 43 68 |p :"...3|.'"PROCh|
|000028d0| 65 6c 70 5f 70 72 65 63 | 20 66 6f 72 20 68 65 6c |elp_prec| for hel|
|000028e0| 70 20 6f 6e 20 50 52 45 | 43 49 53 49 4f 4e 20 6f |p on PRE|CISION o|
|000028f0| 70 74 69 6f 6e 73 22 0d | f9 ce 32 f1 22 50 52 4f |ptions".|..2."PRO|
|00002900| 43 68 65 6c 70 5f 72 6f | 75 6e 64 20 66 6f 72 20 |Chelp_ro|und for |
|00002910| 68 65 6c 70 20 6f 6e 20 | 52 4f 55 4e 44 49 4e 47 |help on |ROUNDING|
|00002920| 20 6f 70 74 69 6f 6e 73 | 22 0d f9 d8 32 f1 22 50 | options|"...2."P|
|00002930| 52 4f 43 68 65 6c 70 5f | 63 6f 6e 73 74 20 66 6f |ROChelp_|const fo|
|00002940| 72 20 68 65 6c 70 20 6f | 6e 20 43 4f 4e 53 54 41 |r help o|n CONSTA|
|00002950| 4e 54 20 6f 70 74 69 6f | 6e 73 22 0d f9 e2 43 f1 |NT optio|ns"...C.|
|00002960| 22 50 52 4f 43 68 65 6c | 70 5f 6f 70 63 28 22 2b |"PROChel|p_opc("+|
|00002970| bd 33 34 2b 22 4f 50 43 | 22 2b bd 33 34 2b 22 29 |.34+"OPC|"+.34+")|
|00002980| 20 66 6f 72 20 68 65 6c | 70 20 6f 6e 20 73 70 65 | for hel|p on spe|
|00002990| 63 69 66 69 63 20 4f 50 | 43 4f 44 45 53 22 0d f9 |cific OP|CODES"..|
|000029a0| ec 48 f1 22 4e 2e 42 2e | 20 50 52 4f 43 5f 66 70 |.H."N.B.| PROC_fp|
|000029b0| 5f 69 6e 69 74 20 4d 55 | 53 54 20 62 65 20 63 61 |_init MU|ST be ca|
|000029c0| 6c 6c 65 64 20 62 65 66 | 6f 72 65 20 74 68 69 73 |lled bef|ore this|
|000029d0| 20 68 65 6c 70 20 72 6f | 75 74 69 6e 65 20 69 73 | help ro|utine is|
|000029e0| 20 75 73 65 64 22 0d f9 | f6 4c f1 22 20 20 20 20 | used"..|.L." |
|000029f0| 20 4f 50 43 20 2d 20 61 | 20 33 20 6c 65 74 74 65 | OPC - a| 3 lette|
|00002a00| 72 20 6f 70 63 6f 64 65 | 20 65 2e 67 2e 20 4c 44 |r opcode| e.g. LD|
|00002a10| 46 2c 50 4f 57 2c 43 4d | 45 20 6f 72 20 41 4c 4c |F,POW,CM|E or ALL|
|00002a20| 20 66 6f 72 20 66 75 6c | 6c 20 64 65 74 61 69 6c | for ful|l detail|
|00002a30| 73 22 0d fa 00 4c f1 27 | 27 22 41 6c 73 6f 20 72 |s"...L.'|'"Also r|
|00002a40| 65 66 65 72 20 74 6f 20 | 50 72 6f 67 72 61 6d 6d |efer to |Programm|
|00002a50| 65 72 73 20 52 65 66 65 | 72 65 6e 63 65 20 47 75 |ers Refe|rence Gu|
|00002a60| 69 64 65 20 50 61 72 74 | 32 20 66 6f 72 20 66 75 |ide Part|2 for fu|
|00002a70| 72 74 68 65 72 20 64 65 | 74 61 69 6c 73 22 0d fa |rther de|tails"..|
|00002a80| 0a 05 e1 0d fa 14 05 3a | 0d fa 1e 17 dc 20 4c 44 |.......:|..... LD|
|00002a90| 46 2c 31 2c 30 2c 46 64 | 3d 28 61 64 64 72 29 0d |F,1,0,Fd|=(addr).|
|00002aa0| fa 28 17 dc 20 53 54 46 | 2c 30 2c 30 2c 28 61 64 |.(.. STF|,0,0,(ad|
|00002ab0| 64 72 29 3d 46 64 0d fa | 32 23 dc 20 46 4c 54 2c |dr)=Fd..|2#. FLT,|
|00002ac0| 30 2c 31 2c 46 6e 3a 3d | 52 64 28 6f 72 20 46 6e |0,1,Fn:=|Rd(or Fn|
|00002ad0| 3a 3d 23 76 61 6c 75 65 | 29 0d fa 3c 14 dc 20 46 |:=#value|)..<.. F|
|00002ae0| 49 58 2c 31 2c 32 2c 52 | 64 3a 3d 46 6d 0d fa 46 |IX,1,2,R|d:=Fm..F|
|00002af0| 16 dc 20 57 46 53 2c 32 | 2c 33 2c 46 50 53 52 3a |.. WFS,2|,3,FPSR:|
|00002b00| 3d 52 64 0d fa 50 16 dc | 20 52 46 53 2c 33 2c 33 |=Rd..P..| RFS,3,3|
|00002b10| 2c 52 64 3a 3d 46 50 53 | 52 0d fa 5a 25 dc 20 57 |,Rd:=FPS|R..Z%. W|
|00002b20| 46 43 2c 34 2c 33 2c 46 | 50 43 3a 3d 52 64 20 53 |FC,4,3,F|PC:=Rd S|
|00002b30| 75 70 65 72 76 69 73 6f | 72 20 4f 6e 6c 79 0d fa |uperviso|r Only..|
|00002b40| 64 25 dc 20 52 46 43 2c | 35 2c 33 2c 52 64 3a 3d |d%. RFC,|5,3,Rd:=|
|00002b50| 46 50 43 20 53 75 70 65 | 72 76 69 73 6f 72 20 4f |FPC Supe|rvisor O|
|00002b60| 6e 6c 79 0d fa 6e 19 dc | 20 41 44 46 2c 30 2c 34 |nly..n..| ADF,0,4|
|00002b70| 2c 46 64 3a 3d 46 6e 20 | 2b 20 46 6d 0d fa 78 19 |,Fd:=Fn |+ Fm..x.|
|00002b80| dc 20 4d 55 46 2c 32 2c | 34 2c 46 64 3a 3d 46 6e |. MUF,2,|4,Fd:=Fn|
|00002b90| 20 2a 20 46 6d 0d fa 82 | 19 dc 20 53 55 46 2c 34 | * Fm...|.. SUF,4|
|00002ba0| 2c 34 2c 46 64 3a 3d 46 | 6e 20 2d 20 46 6d 0d fa |,4,Fd:=F|n - Fm..|
|00002bb0| 8c 19 dc 20 52 53 46 2c | 36 2c 34 2c 46 64 3a 3d |... RSF,|6,4,Fd:=|
|00002bc0| 46 6d 20 2d 20 46 6e 0d | fa 96 19 dc 20 44 56 46 |Fm - Fn.|.... DVF|
|00002bd0| 2c 38 2c 34 2c 46 64 3a | 3d 46 6e 20 2f 20 46 6d |,8,4,Fd:|=Fn / Fm|
|00002be0| 0d fa a0 1a dc 20 52 44 | 46 2c 31 30 2c 34 2c 46 |..... RD|F,10,4,F|
|00002bf0| 64 3a 3d 46 6d 20 2f 20 | 46 6e 0d fa aa 28 dc 20 |d:=Fm / |Fn...(. |
|00002c00| 50 4f 57 2c 31 32 2c 34 | 2c 46 64 3a 3d 46 6e 20 |POW,12,4|,Fd:=Fn |
|00002c10| 74 6f 20 74 68 65 20 70 | 6f 77 65 72 20 6f 66 20 |to the p|ower of |
|00002c20| 46 6d 0d fa b4 28 dc 20 | 52 50 57 2c 31 34 2c 34 |Fm...(. |RPW,14,4|
|00002c30| 2c 46 64 3a 3d 46 6d 20 | 74 6f 20 74 68 65 20 70 |,Fd:=Fm |to the p|
|00002c40| 6f 77 65 72 20 6f 66 20 | 46 6e 0d fa be 25 dc 20 |ower of |Fn...%. |
|00002c50| 52 4d 46 2c 31 36 2c 34 | 2c 46 64 3a 3d 72 65 6d |RMF,16,4|,Fd:=rem|
|00002c60| 61 69 6e 64 65 72 20 6f | 66 20 46 6e 2f 46 6d 0d |ainder o|f Fn/Fm.|
|00002c70| fa c8 21 dc 20 46 4d 4c | 2c 31 38 2c 34 2c 46 64 |..!. FML|,18,4,Fd|
|00002c80| 3a 3d 46 6e 20 2a 20 46 | 6d 20 28 66 61 73 74 29 |:=Fn * F|m (fast)|
|00002c90| 0d fa d2 21 dc 20 46 44 | 56 2c 32 30 2c 34 2c 46 |...!. FD|V,20,4,F|
|00002ca0| 64 3a 3d 46 6e 20 2f 20 | 46 6d 20 28 66 61 73 74 |d:=Fn / |Fm (fast|
|00002cb0| 29 0d fa dc 21 dc 20 46 | 52 44 2c 32 32 2c 34 2c |)...!. F|RD,22,4,|
|00002cc0| 46 64 3a 3d 46 6d 20 2f | 20 46 6e 20 28 66 61 73 |Fd:=Fm /| Fn (fas|
|00002cd0| 74 29 0d fa e6 2a dc 20 | 50 4f 4c 2c 32 34 2c 34 |t)...*. |POL,24,4|
|00002ce0| 2c 22 46 64 3a 3d 20 70 | 6f 6c 61 72 20 61 6e 67 |,"Fd:= p|olar ang|
|00002cf0| 6c 65 20 6f 66 20 46 6e | 2c 46 6d 22 0d fa f0 14 |le of Fn|,Fm"....|
|00002d00| dc 20 4d 56 46 2c 31 2c | 35 2c 46 64 3a 3d 46 6d |. MVF,1,|5,Fd:=Fm|
|00002d10| 0d fa fa 15 dc 20 4d 4e | 46 2c 33 2c 35 2c 46 64 |..... MN|F,3,5,Fd|
|00002d20| 3a 3d 2d 46 6d 0d fb 04 | 19 dc 20 41 42 53 2c 35 |:=-Fm...|.. ABS,5|
|00002d30| 2c 35 2c 46 64 3a 3d 41 | 42 53 28 46 6d 29 0d fb |,5,Fd:=A|BS(Fm)..|
|00002d40| 0e 19 dc 20 52 4e 44 2c | 37 2c 35 2c 46 64 3a 3d |... RND,|7,5,Fd:=|
|00002d50| 49 4e 54 28 46 6d 29 0d | fb 18 19 dc 20 53 51 54 |INT(Fm).|.... SQT|
|00002d60| 2c 39 2c 35 2c 46 64 3a | 3d 53 51 52 28 46 6d 29 |,9,5,Fd:|=SQR(Fm)|
|00002d70| 0d fb 22 1a dc 20 4c 4f | 47 2c 31 31 2c 35 2c 46 |..".. LO|G,11,5,F|
|00002d80| 64 3a 3d 4c 4f 47 28 46 | 6d 29 0d fb 2c 19 dc 20 |d:=LOG(F|m)..,.. |
|00002d90| 4c 47 4e 2c 31 33 2c 35 | 2c 46 64 3a 3d 4c 4e 28 |LGN,13,5|,Fd:=LN(|
|00002da0| 46 6d 29 0d fb 36 1a dc | 20 45 58 50 2c 31 35 2c |Fm)..6..| EXP,15,|
|00002db0| 35 2c 46 64 3a 3d 45 58 | 50 28 46 6d 29 0d fb 40 |5,Fd:=EX|P(Fm)..@|
|00002dc0| 1a dc 20 53 49 4e 2c 31 | 37 2c 35 2c 46 64 3a 3d |.. SIN,1|7,5,Fd:=|
|00002dd0| 53 49 4e 28 46 6d 29 0d | fb 4a 1a dc 20 43 4f 53 |SIN(Fm).|.J.. COS|
|00002de0| 2c 31 39 2c 35 2c 46 64 | 3a 3d 43 4f 53 28 46 6d |,19,5,Fd|:=COS(Fm|
|00002df0| 29 0d fb 54 1a dc 20 54 | 41 4e 2c 32 31 2c 35 2c |)..T.. T|AN,21,5,|
|00002e00| 46 64 3a 3d 54 41 4e 28 | 46 6d 29 0d fb 5e 1a dc |Fd:=TAN(|Fm)..^..|
|00002e10| 20 41 53 4e 2c 32 33 2c | 35 2c 46 64 3a 3d 41 53 | ASN,23,|5,Fd:=AS|
|00002e20| 4e 28 46 6d 29 0d fb 68 | 1a dc 20 41 43 53 2c 32 |N(Fm)..h|.. ACS,2|
|00002e30| 35 2c 35 2c 46 64 3a 3d | 41 43 53 28 46 6d 29 0d |5,5,Fd:=|ACS(Fm).|
|00002e40| fb 72 1a dc 20 41 54 4e | 2c 32 37 2c 35 2c 46 64 |.r.. ATN|,27,5,Fd|
|00002e50| 3a 3d 41 54 4e 28 46 6d | 29 0d fb 7c 31 dc 20 43 |:=ATN(Fm|)..|1. C|
|00002e60| 4d 46 2c 36 34 2c 36 2c | 22 43 6f 6d 70 61 72 65 |MF,64,6,|"Compare|
|00002e70| 20 46 6e 20 77 69 74 68 | 20 46 6d 20 28 66 6f 72 | Fn with| Fm (for|
|00002e80| 20 42 45 51 2c 42 4e 45 | 29 22 0d fb 86 39 dc 20 | BEQ,BNE|)"...9. |
|00002e90| 43 4d 45 2c 39 36 2c 36 | 2c 22 43 6f 6d 70 61 72 |CME,96,6|,"Compar|
|00002ea0| 65 20 46 6e 20 77 69 74 | 68 20 46 6d 20 28 66 6f |e Fn wit|h Fm (fo|
|00002eb0| 72 20 42 47 45 2c 42 47 | 54 2c 42 4c 54 2c 42 4c |r BGE,BG|T,BLT,BL|
|00002ec0| 45 29 22 0d fb 90 32 dc | 20 43 4e 46 2c 38 30 2c |E)"...2.| CNF,80,|
|00002ed0| 36 2c 22 43 6f 6d 70 61 | 72 65 20 46 6e 20 77 69 |6,"Compa|re Fn wi|
|00002ee0| 74 68 20 2d 46 6d 20 28 | 66 6f 72 20 42 45 51 2c |th -Fm (|for BEQ,|
|00002ef0| 42 4e 45 29 22 0d fb 9a | 3b dc 20 43 4e 45 2c 31 |BNE)"...|;. CNE,1|
|00002f00| 31 32 2c 36 2c 22 43 6f | 6d 70 61 72 65 20 46 6e |12,6,"Co|mpare Fn|
|00002f10| 20 77 69 74 68 20 2d 46 | 6d 20 28 66 6f 72 20 42 | with -F|m (for B|
|00002f20| 47 45 2c 42 47 54 2c 42 | 4c 54 2c 42 4c 45 29 22 |GE,BGT,B|LT,BLE)"|
|00002f30| 0d fb a4 28 dc 20 54 4a | 43 2c 32 31 33 2c 36 39 |...(. TJ|C,213,69|
|00002f40| 2c 28 43 29 54 4a 20 43 | 68 61 70 70 65 6c 6c 20 |,(C)TJ C|happell |
|00002f50| 53 65 70 20 31 39 38 38 | 0d ff |Sep 1988|.. |
+--------+-------------------------+-------------------------+--------+--------+