/ APDL Public Domain 1 / APDL_PD1A.iso / program / assembler / fp_prog

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | 44 01 00 00 a4 01 00 00 |Archive.|D.......|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 46 50 5f 50 72 6f | 67 00 00 00 ff ff ff ff |.!FP_Pro|g.......|
|00000070| 44 fd ff ff 2a b8 f3 8b | 08 00 00 00 ff ff ff ff |D...*...|........|
|00000080| 20 01 00 80 82 21 42 6f | 6f 74 00 00 c0 4b 01 00 | ....!Bo|ot...K..|
|00000090| 3d 00 00 00 42 eb ff ff | be 5f 96 e0 03 00 79 fb |=...B...|._....y.|
|000000a0| 3d 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |=...$...|.!Help..|
|000000b0| c0 4b 01 00 30 04 00 00 | 44 ff ff ff 58 94 b0 bc |.K..0...|D...X...|
|000000c0| 03 00 4f 6e 30 04 00 00 | 85 00 00 00 82 21 52 75 |..On0...|.....!Ru|
|000000d0| 6e 00 04 00 c0 4b 01 00 | 50 00 00 00 41 eb ff ff |n....K..|P...A...|
|000000e0| 62 6e 55 fe 83 00 30 9d | 50 00 00 00 d9 04 00 00 |bnU...0.|P.......|
|000000f0| 82 21 52 75 6e 49 6d 61 | 67 65 00 00 e7 06 00 00 |.!RunIma|ge......|
|00000100| 41 fb ff ff ee 08 56 fe | 83 00 e2 55 e7 06 00 00 |A.....V.|...U....|
|00000110| 4d 05 00 00 82 46 50 45 | 76 31 30 00 c0 4b 01 00 |M....FPE|v10..K..|
|00000120| 5a 2f 00 00 41 fb ff ff | 51 15 55 fe 83 00 c8 fc |Z/..A...|Q.U.....|
|00000130| 5a 2f 00 00 58 0c 00 00 | 82 54 65 6d 70 6c 61 74 |Z/..X...|.Templat|
|00000140| 65 73 00 00 02 02 00 00 | 42 ec ff ff 93 1b 5f 01 |es......|B....._.|
|00000150| 83 00 92 87 02 02 00 00 | d6 3b 00 00 00 69 6c 65 |........|.;...ile|
|00000160| 73 00 04 00 c0 4b 01 00 | f7 00 00 00 00 00 00 00 |s....K..|........|
|00000170| 00 00 00 00 02 00 00 00 | 09 32 2e 30 90 1e 28 31 |........|.2.0..(1|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| b0 01 00 00 46 69 6c 65 | 44 61 74 61 82 21 42 6f |....File|Data.!Bo|
|000001b0| 6f 74 00 00 c0 4b 01 00 | 3d 00 00 00 42 eb ff ff |ot...K..|=...B...|
|000001c0| be 5f 96 e0 03 00 79 fb | 7c 20 54 68 69 73 20 66 |._....y.|| This f|
|000001d0| 69 6c 65 20 68 61 73 20 | 62 65 65 6e 20 69 6e 6e |ile has |been inn|
|000001e0| 6f 63 75 6c 61 74 65 64 | 20 61 67 61 69 6e 73 74 |oculated| against|
|000001f0| 20 74 68 65 20 45 78 74 | 65 6e 64 20 56 69 72 75 | the Ext|end Viru|
|00000200| 73 0a 7c 7c ff 46 69 6c | 65 44 61 74 61 82 21 48 |s.||.Fil|eData.!H|
|00000210| 65 6c 70 00 00 c0 4b 01 | 00 30 04 00 00 44 ff ff |elp...K.|.0...D..|
|00000220| ff 58 94 b0 bc 03 00 4f | 6e 46 6c 6f 61 74 69 6e |.X.....O|nFloatin|
|00000230| 67 2d 50 6f 69 6e 74 20 | 49 6e 73 74 72 75 63 74 |g-Point |Instruct|
|00000240| 69 6f 6e 20 53 65 74 20 | 4c 69 62 72 61 72 79 0a |ion Set |Library.|
|00000250| 62 79 20 54 4a 20 43 68 | 61 70 70 65 6c 6c 0a 0a |by TJ Ch|appell..|
|00000260| 52 75 6e 6e 69 6e 67 20 | 74 68 69 73 20 61 70 70 |Running |this app|
|00000270| 6c 69 63 61 74 69 6f 6e | 2c 20 65 69 74 68 65 72 |lication|, either|
|00000280| 20 66 72 6f 6d 20 74 68 | 65 20 6d 65 6e 75 20 6f | from th|e menu o|
|00000290| 72 20 62 79 20 64 6f 75 | 62 6c 65 2d 63 6c 69 63 |r by dou|ble-clic|
|000002a0| 6b 69 6e 67 20 6f 6e 0a | 21 46 50 5f 50 72 6f 67 |king on.|!FP_Prog|
|000002b0| 2c 20 77 69 6c 6c 20 70 | 72 6f 64 75 63 65 20 61 |, will p|roduce a|
|000002c0| 20 64 69 61 6c 6f 67 75 | 65 20 62 6f 78 20 63 6f | dialogu|e box co|
|000002d0| 6e 74 61 69 6e 69 6e 67 | 20 61 20 66 69 6c 65 20 |ntaining| a file |
|000002e0| 69 63 6f 6e 20 66 6f 72 | 20 74 68 65 20 42 61 73 |icon for| the Bas|
|000002f0| 69 63 0a 70 72 6f 67 72 | 61 6d 20 46 50 45 76 31 |ic.progr|am FPEv1|
|00000300| 30 2e 20 54 68 65 20 70 | 72 6f 67 72 61 6d 20 69 |0. The p|rogram i|
|00000310| 73 20 62 61 73 69 63 61 | 6c 6c 79 20 61 20 63 6f |s basica|lly a co|
|00000320| 6c 6c 65 63 74 69 6f 6e | 20 6f 66 20 66 75 6e 63 |llection| of func|
|00000330| 74 69 6f 6e 73 20 61 6e | 64 0a 70 72 6f 63 65 64 |tions an|d.proced|
|00000340| 75 72 65 73 20 74 6f 20 | 61 64 64 20 74 68 65 20 |ures to |add the |
|00000350| 66 6c 6f 61 74 69 6e 67 | 2d 70 6f 69 6e 74 20 69 |floating|-point i|
|00000360| 6e 73 74 72 75 63 74 69 | 6f 6e 20 73 65 74 20 74 |nstructi|on set t|
|00000370| 6f 20 74 68 65 20 42 61 | 73 69 63 20 61 73 73 65 |o the Ba|sic asse|
|00000380| 6d 62 6c 65 72 2e 0a 0a | 54 6f 20 75 73 65 20 74 |mbler...|To use t|
|00000390| 68 65 20 66 75 6e 63 74 | 69 6f 6e 73 2c 20 61 64 |he funct|ions, ad|
|000003a0| 64 20 46 50 45 76 31 30 | 20 74 6f 20 74 68 65 20 |d FPEv10| to the |
|000003b0| 65 6e 64 20 6f 66 20 79 | 6f 75 72 20 70 72 6f 67 |end of y|our prog|
|000003c0| 72 61 6d 2e 20 43 61 6c | 6c 0a 50 52 4f 43 5f 66 |ram. Cal|l.PROC_f|
|000003d0| 70 5f 69 6e 69 74 20 61 | 74 20 74 68 65 20 73 74 |p_init a|t the st|
|000003e0| 61 72 74 20 6f 66 20 79 | 6f 75 72 20 70 72 6f 67 |art of y|our prog|
|000003f0| 72 61 6d 2e 20 54 6f 20 | 69 6e 63 6c 75 64 65 20 |ram. To |include |
|00000400| 61 20 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |a floati|ng point|
|00000410| 0a 69 6e 73 74 72 75 63 | 74 69 6f 6e 20 69 6e 20 |.instruc|tion in |
|00000420| 74 68 65 20 61 73 73 65 | 6d 62 6c 79 20 6c 61 6e |the asse|mbly lan|
|00000430| 67 75 61 67 65 20 73 65 | 63 74 69 6f 6e 2c 20 75 |guage se|ction, u|
|00000440| 73 65 20 61 20 6c 69 6e | 65 20 6f 66 20 74 68 65 |se a lin|e of the|
|00000450| 20 66 6f 72 6d 3a 20 45 | 51 55 44 0a 46 4e 64 65 | form: E|QUD.FNde|
|00000460| 63 6f 64 65 28 22 4c 44 | 46 41 4c 45 20 66 6c 6f |code("LD|FALE flo|
|00000470| 61 74 2c 5b 61 64 64 72 | 65 73 73 5d 22 29 20 4e |at,[addr|ess]") N|
|00000480| 6f 74 65 20 74 68 61 74 | 20 74 68 65 20 63 6f 6e |ote that| the con|
|00000490| 64 69 74 69 6f 6e 20 63 | 6f 64 65 20 69 73 20 72 |dition c|ode is r|
|000004a0| 65 71 75 69 72 65 64 0a | 65 76 65 6e 20 69 66 20 |equired.|even if |
|000004b0| 69 74 20 69 73 20 27 41 | 4c 27 2e 0a 0a 46 6f 72 |it is 'A|L'...For|
|000004c0| 20 6d 6f 72 65 20 69 6e | 66 6f 72 6d 61 74 69 6f | more in|formatio|
|000004d0| 6e 2c 20 6c 6f 61 64 20 | 46 50 45 76 31 30 20 61 |n, load |FPEv10 a|
|000004e0| 6e 64 20 74 79 70 65 3a | 0a 0a 50 52 4f 43 68 65 |nd type:|..PROChe|
|000004f0| 6c 70 5f 66 70 65 20 66 | 6f 72 20 68 65 6c 70 20 |lp_fpe f|or help |
|00000500| 6f 6e 20 74 68 65 20 70 | 72 6f 67 72 61 6d 0a 0a |on the p|rogram..|
|00000510| 50 52 4f 43 68 65 6c 70 | 5f 70 72 65 63 20 66 6f |PROChelp|_prec fo|
|00000520| 72 20 68 65 6c 70 20 6f | 6e 20 50 52 45 43 49 53 |r help o|n PRECIS|
|00000530| 49 4f 4e 20 6f 70 74 69 | 6f 6e 73 0a 0a 50 52 4f |ION opti|ons..PRO|
|00000540| 43 68 65 6c 70 5f 72 6f | 75 6e 64 20 66 6f 72 20 |Chelp_ro|und for |
|00000550| 68 65 6c 70 20 6f 6e 20 | 52 4f 55 4e 44 49 4e 47 |help on |ROUNDING|
|00000560| 20 6f 70 74 69 6f 6e 73 | 0a 0a 50 52 4f 43 68 65 | options|..PROChe|
|00000570| 6c 70 5f 63 6f 6e 73 74 | 20 66 6f 72 20 68 65 6c |lp_const| for hel|
|00000580| 70 20 6f 6e 20 43 4f 4e | 53 54 41 4e 54 20 6f 70 |p on CON|STANT op|
|00000590| 74 69 6f 6e 73 0a 0a 50 | 52 4f 43 68 65 6c 70 5f |tions..P|ROChelp_|
|000005a0| 6f 70 63 28 22 4f 50 43 | 22 29 20 66 6f 72 20 68 |opc("OPC|") for h|
|000005b0| 65 6c 70 20 6f 6e 20 73 | 70 65 63 69 66 69 63 20 |elp on s|pecific |
|000005c0| 4f 50 43 4f 44 45 53 2c | 20 77 68 65 72 65 20 4f |OPCODES,| where O|
|000005d0| 50 43 20 69 73 20 61 20 | 33 20 6c 65 74 74 65 72 |PC is a |3 letter|
|000005e0| 0a 6f 70 63 6f 64 65 2c | 20 65 2e 67 2e 20 4c 44 |.opcode,| e.g. LD|
|000005f0| 46 2c 50 4f 57 2c 43 4d | 45 20 28 6f 72 20 41 4c |F,POW,CM|E (or AL|
|00000600| 4c 20 66 6f 72 20 66 75 | 6c 6c 20 64 65 74 61 69 |L for fu|ll detai|
|00000610| 6c 73 29 2e 20 4e 6f 74 | 65 3a 20 50 52 4f 43 5f |ls). Not|e: PROC_|
|00000620| 66 70 5f 69 6e 69 74 20 | 4d 55 53 54 0a 62 65 20 |fp_init |MUST.be |
|00000630| 63 61 6c 6c 65 64 20 62 | 65 66 6f 72 65 20 74 68 |called b|efore th|
|00000640| 69 73 20 68 65 6c 70 20 | 72 6f 75 74 69 6e 65 20 |is help |routine |
|00000650| 69 73 20 75 73 65 64 2e | 0a 46 69 6c 65 44 61 74 |is used.|.FileDat|
|00000660| 61 82 21 52 75 6e 00 04 | 00 c0 4b 01 00 50 00 00 |a.!Run..|..K..P..|
|00000670| 00 41 eb ff ff 62 6e 55 | fe 03 00 30 9d 53 65 74 |.A...bnU|...0.Set|
|00000680| 20 46 50 45 76 31 30 24 | 44 69 72 20 3c 4f 62 65 | FPEv10$|Dir <Obe|
|00000690| 79 24 44 69 72 3e 0a 57 | 69 6d 70 53 6c 6f 74 20 |y$Dir>.W|impSlot |
|000006a0| 2d 6d 69 6e 20 33 32 4b | 20 2d 6d 61 78 20 33 32 |-min 32K| -max 32|
|000006b0| 4b 0a 52 75 6e 20 3c 46 | 50 45 76 31 30 24 44 69 |K.Run <F|PEv10$Di|
|000006c0| 72 3e 2e 21 52 75 6e 49 | 6d 61 67 65 0a 46 69 6c |r>.!RunI|mage.Fil|
|000006d0| 65 44 61 74 61 82 21 52 | 75 6e 49 6d 61 67 65 00 |eData.!R|unImage.|
|000006e0| 00 e7 06 00 00 41 fb ff | ff ee 08 56 fe 03 00 e2 |.....A..|...V....|
|000006f0| 55 0d 00 0a 10 f4 20 3e | 21 52 75 6e 49 6d 61 67 |U..... >|!RunImag|
|00000700| 65 0d 00 14 12 6e 61 6d | 65 24 3d 22 46 50 45 76 |e....nam|e$="FPEv|
|00000710| 31 30 22 0d 00 1e 18 64 | 69 72 24 3d 22 3c 46 50 |10"....d|ir$="<FP|
|00000720| 45 76 31 30 24 44 69 72 | 3e 2e 22 0d 00 28 0e 74 |Ev10$Dir|>."..(.t|
|00000730| 79 70 65 25 3d 26 46 46 | 42 0d 00 32 13 66 69 6c |ype%=&FF|B..2.fil|
|00000740| 65 73 69 7a 65 25 3d 31 | 32 31 32 32 0d 00 3c 11 |esize%=1|2122..<.|
|00000750| 62 75 66 66 73 69 7a 65 | 25 3d 33 30 33 0d 00 46 |buffsize|%=303..F|
|00000760| 36 de 20 62 6b 25 20 35 | 35 30 2c 62 75 66 66 25 |6. bk% 5|50,buff%|
|00000770| 20 62 75 66 66 73 69 7a | 65 25 2c 66 69 6c 65 25 | buffsiz|e%,file%|
|00000780| 20 66 69 6c 65 73 69 7a | 65 25 2c 6e 61 6d 65 25 | filesiz|e%,name%|
|00000790| 20 31 32 0d 00 50 1c 62 | 75 66 66 65 6e 64 25 3d | 12..P.b|uffend%=|
|000007a0| 62 75 66 66 25 2b 62 75 | 66 66 73 69 7a 65 25 0d |buff%+bu|ffsize%.|
|000007b0| 00 5a 1c 66 69 6c 65 65 | 6e 64 25 3d 66 69 6c 65 |.Z.filee|nd%=file|
|000007c0| 25 2b 66 69 6c 65 73 69 | 7a 65 25 0d 00 64 37 c8 |%+filesi|ze%..d7.|
|000007d0| 99 20 22 57 69 6d 70 5f | 49 6e 69 74 69 61 6c 69 |. "Wimp_|Initiali|
|000007e0| 73 65 22 2c 32 30 30 2c | 26 34 42 35 33 34 31 35 |se",200,|&4B53415|
|000007f0| 34 2c 22 4d 61 6b 69 6e | 67 20 42 61 63 6b 75 70 |4,"Makin|g Backup|
|00000800| 73 22 0d 00 6e 2c c8 99 | 20 22 57 69 6d 70 5f 4f |s"..n,..| "Wimp_O|
|00000810| 70 65 6e 54 65 6d 70 6c | 61 74 65 22 2c 2c 64 69 |penTempl|ate",,di|
|00000820| 72 24 2b 22 54 65 6d 70 | 6c 61 74 65 73 22 0d 00 |r$+"Temp|lates"..|
|00000830| 78 13 24 6e 61 6d 65 25 | 3d 22 57 69 6e 64 6f 77 |x.$name%|="Window|
|00000840| 22 0d 00 82 3b c8 99 20 | 22 57 69 6d 70 5f 4c 6f |"...;.. |"Wimp_Lo|
|00000850| 61 64 54 65 6d 70 6c 61 | 74 65 22 2c 2c 62 6b 25 |adTempla|te",,bk%|
|00000860| 2b 34 2c 62 75 66 66 25 | 2c 62 75 66 66 65 6e 64 |+4,buff%|,buffend|
|00000870| 25 2c 2d 31 2c 6e 61 6d | 65 25 2c 30 0d 00 8c 1b |%,-1,nam|e%,0....|
|00000880| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|00000890| 6d 70 6c 61 74 65 22 0d | 00 96 0d 62 6b 25 21 32 |mplate".|...bk%!2|
|000008a0| 38 3d 2d 31 0d 00 a0 28 | c8 99 20 22 57 69 6d 70 |8=-1...(|.. "Wimp|
|000008b0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000008c0| 62 6b 25 2b 34 20 b8 20 | 68 61 6e 25 0d 00 aa 27 |bk%+4 . |han%...'|
|000008d0| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 32 35 35 |.. "OS_F|ile",255|
|000008e0| 2c 64 69 72 24 2b 6e 61 | 6d 65 24 2c 66 69 6c 65 |,dir$+na|me$,file|
|000008f0| 25 2c 30 0d 00 b4 0d 21 | 62 6b 25 3d 68 61 6e 25 |%,0....!|bk%=han%|
|00000900| 0d 00 be 1d c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...... "|Wimp_Ope|
|00000910| 6e 57 69 6e 64 6f 77 22 | 2c 2c 62 6b 25 0d 00 c8 |nWindow"|,,bk%...|
|00000920| 0b 71 75 69 74 25 3d a3 | 0d 00 d2 05 f5 0d 00 dc |.quit%=.|........|
|00000930| 28 20 c8 99 20 22 57 69 | 6d 70 5f 50 6f 6c 6c 22 |( .. "Wi|mp_Poll"|
|00000940| 2c 26 38 31 39 33 32 2c | 62 6b 25 20 b8 20 72 65 |,&81932,|bk% . re|
|00000950| 61 73 6f 6e 25 0d 00 e6 | 11 20 c8 8e 20 72 65 61 |ason%...|. .. rea|
|00000960| 73 6f 6e 25 20 ca 0d 00 | f0 23 20 c9 20 32 3a 20 |son% ...|.# . 2: |
|00000970| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00000980| 64 6f 77 22 2c 2c 62 6b | 25 0d 00 fa 09 20 c9 20 |dow",,bk|%.... . |
|00000990| 33 3a 0d 01 04 20 20 20 | c8 99 20 22 57 69 6d 70 |3:...   |.. "Wimp|
|000009a0| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 2c 62 |_CloseWi|ndow",,b|
|000009b0| 6b 25 0d 01 0e 0d 20 20 | 71 75 69 74 25 3d b9 0d |k%....  |quit%=..|
|000009c0| 01 18 15 20 c9 20 36 3a | 20 f2 73 74 61 72 74 5f |... . 6:| .start_|
|000009d0| 64 72 61 67 0d 01 22 13 | 20 c9 20 37 3a 20 f2 65 |drag..".| . 7: .e|
|000009e0| 6e 64 5f 64 72 61 67 0d | 01 2c 16 20 c9 20 31 37 |nd_drag.|.,. . 17|
|000009f0| 2c 31 38 3a 20 f2 72 65 | 63 65 69 76 65 0d 01 36 |,18: .re|ceive..6|
|00000a00| 06 20 cb 0d 01 40 0b fd | 20 71 75 69 74 25 0d 01 |. ...@..| quit%..|
|00000a10| 4a 17 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |J... "Wi|mp_Close|
|00000a20| 44 6f 77 6e 22 0d 01 54 | 05 e0 0d 01 5e 05 3a 0d |Down"..T|....^.:.|
|00000a30| 01 68 11 dd 20 f2 73 74 | 61 72 74 5f 64 72 61 67 |.h.. .st|art_drag|
|00000a40| 0d 01 72 17 ea 20 6f 78 | 25 2c 6f 79 25 2c 63 6f |..r.. ox|%,oy%,co|
|00000a50| 6c 25 2c 72 6f 77 25 0d | 01 7c 2e e7 20 62 6b 25 |l%,row%.|.|.. bk%|
|00000a60| 21 31 32 3d 68 61 6e 25 | 20 80 20 62 6b 25 21 31 |!12=han%| . bk%!1|
|00000a70| 36 3d 30 20 80 20 28 62 | 6b 25 21 38 20 80 20 26 |6=0 . (b|k%!8 . &|
|00000a80| 35 30 29 20 8c 0d 01 86 | 2d 20 62 6b 25 21 30 3d |50) ....|- bk%!0=|
|00000a90| 68 61 6e 25 3a c8 99 20 | 22 57 69 6d 70 5f 47 65 |han%:.. |"Wimp_Ge|
|00000aa0| 74 57 69 6e 64 6f 77 53 | 74 61 74 65 22 2c 2c 62 |tWindowS|tate",,b|
|00000ab0| 6b 25 0d 01 90 15 20 6f | 78 25 3d 62 6b 25 21 34 |k%.... o|x%=bk%!4|
|00000ac0| 2d 62 6b 25 21 32 30 0d | 01 9a 16 20 6f 79 25 3d |-bk%!20.|... oy%=|
|00000ad0| 62 6b 25 21 31 36 2d 62 | 6b 25 21 32 34 0d 01 a4 |bk%!16-b|k%!24...|
|00000ae0| 28 20 62 6b 25 21 34 3d | 30 3a c8 99 20 22 57 69 |( bk%!4=|0:.. "Wi|
|00000af0| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00000b00| 2c 2c 62 6b 25 0d 01 ae | 0c 20 62 6b 25 21 34 3d |,,bk%...|. bk%!4=|
|00000b10| 35 0d 01 b8 1b 20 62 6b | 25 21 38 2b 3d 6f 78 25 |5.... bk|%!8+=ox%|
|00000b20| 3a 62 6b 25 21 31 32 2b | 3d 6f 79 25 0d 01 c2 1c |:bk%!12+|=oy%....|
|00000b30| 20 62 6b 25 21 31 36 2b | 3d 6f 78 25 3a 62 6b 25 | bk%!16+|=ox%:bk%|
|00000b40| 21 32 30 2b 3d 6f 79 25 | 0d 01 cc 16 20 62 6b 25 |!20+=oy%|.... bk%|
|00000b50| 21 32 34 3d 30 3a 62 6b | 25 21 32 38 3d 30 0d 01 |!24=0:bk|%!28=0..|
|00000b60| d6 2b 20 c8 99 20 22 4f | 53 5f 52 65 61 64 4d 6f |.+ .. "O|S_ReadMo|
|00000b70| 64 65 56 61 72 69 61 62 | 6c 65 22 2c 2d 31 2c 31 |deVariab|le",-1,1|
|00000b80| 20 b8 20 2c 2c 63 6f 6c | 25 0d 01 e0 16 20 62 6b | . ,,col|%.... bk|
|00000b90| 25 21 33 32 3d 63 6f 6c | 25 2a 31 36 2b 31 36 0d |%!32=col|%*16+16.|
|00000ba0| 01 ea 2b 20 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d |..+ .. "|OS_ReadM|
|00000bb0| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 2d 31 2c |odeVaria|ble",-1,|
|00000bc0| 32 20 b8 20 2c 2c 72 6f | 77 25 0d 01 f4 16 20 62 |2 . ,,ro|w%.... b|
|00000bd0| 6b 25 21 33 36 3d 72 6f | 77 25 2a 33 32 2b 33 32 |k%!36=ro|w%*32+32|
|00000be0| 0d 01 fe 1b 20 c8 99 20 | 22 57 69 6d 70 5f 44 72 |.... .. |"Wimp_Dr|
|00000bf0| 61 67 42 6f 78 22 2c 2c | 62 6b 25 0d 02 08 05 cd |agBox",,|bk%.....|
|00000c00| 0d 02 12 05 e1 0d 02 1c | 05 3a 0d 02 26 0f dd 20 |........|.:..&.. |
|00000c10| f2 65 6e 64 5f 64 72 61 | 67 0d 02 30 21 c8 99 20 |.end_dra|g..0!.. |
|00000c20| 22 57 69 6d 70 5f 47 65 | 74 50 6f 69 6e 74 65 72 |"Wimp_Ge|tPointer|
|00000c30| 49 6e 66 6f 22 2c 2c 62 | 6b 25 0d 02 3a 1f 62 6b |Info",,b|k%..:.bk|
|00000c40| 25 21 32 30 3d 62 6b 25 | 21 31 32 3a 62 6b 25 21 |%!20=bk%|!12:bk%!|
|00000c50| 32 34 3d 62 6b 25 21 31 | 36 0d 02 44 1d 62 6b 25 |24=bk%!1|6..D.bk%|
|00000c60| 21 32 38 3d 62 6b 25 21 | 30 3a 62 6b 25 21 33 32 |!28=bk%!|0:bk%!32|
|00000c70| 3d 62 6b 25 21 34 0d 02 | 4e 14 62 6b 25 21 33 36 |=bk%!4..|N.bk%!36|
|00000c80| 3d 66 69 6c 65 73 69 7a | 65 25 0d 02 58 10 62 6b |=filesiz|e%..X.bk|
|00000c90| 25 21 34 30 3d 74 79 70 | 65 25 0d 02 62 18 24 28 |%!40=typ|e%..b.$(|
|00000ca0| 62 6b 25 2b 34 34 29 3d | 6e 61 6d 65 24 2b bd 28 |bk%+44)=|name$+.(|
|00000cb0| 30 29 0d 02 6c 1f 62 6b | 25 21 30 3d 28 34 34 2b |0)..l.bk|%!0=(44+|
|00000cc0| a9 28 6e 61 6d 65 24 29 | 2b 34 29 20 80 20 26 46 |.(name$)|+4) . &F|
|00000cd0| 43 0d 02 76 0c 62 6b 25 | 21 31 32 3d 30 0d 02 80 |C..v.bk%|!12=0...|
|00000ce0| 0c 62 6b 25 21 31 36 3d | 31 0d 02 8a 2e c8 99 20 |.bk%!16=|1...... |
|00000cf0| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00000d00| 65 22 2c 31 37 2c 62 6b | 25 2c 62 6b 25 21 32 30 |e",17,bk|%,bk%!20|
|00000d10| 2c 62 6b 25 21 32 34 0d | 02 94 05 e1 0d 02 9e 05 |,bk%!24.|........|
|00000d20| 3a 0d 02 a8 0e dd 20 f2 | 72 65 63 65 69 76 65 0d |:..... .|receive.|
|00000d30| 02 b2 0f c8 8e 20 62 6b | 25 21 31 36 20 ca 0d 02 |..... bk|%!16 ...|
|00000d40| bc 10 c9 20 30 3a 20 71 | 75 69 74 25 3d b9 0d 02 |... 0: q|uit%=...|
|00000d50| c6 08 c9 20 32 3a 0d 02 | d0 31 20 c8 99 20 22 4f |... 2:..|.1 .. "O|
|00000d60| 53 5f 46 69 6c 65 22 2c | 31 30 2c 62 6b 25 2b 34 |S_File",|10,bk%+4|
|00000d70| 34 2c 74 79 70 65 25 2c | 2c 66 69 6c 65 25 2c 66 |4,type%,|,file%,f|
|00000d80| 69 6c 65 65 6e 64 25 0d | 02 da 45 20 62 6b 25 21 |ileend%.|..E bk%!|
|00000d90| 38 3d 62 6b 25 21 31 32 | 3a 62 6b 25 21 31 36 3d |8=bk%!12|:bk%!16=|
|00000da0| 33 3a c8 99 20 22 57 69 | 6d 70 5f 53 65 6e 64 4d |3:.. "Wi|mp_SendM|
|00000db0| 65 73 73 61 67 65 22 2c | 31 37 2c 62 6b 25 2c 62 |essage",|17,bk%,b|
|00000dc0| 6b 25 21 32 30 2c 62 6b | 25 21 32 34 0d 02 e4 05 |k%!20,bk|%!24....|
|00000dd0| cb 0d 02 ee 05 e1 0d ff | 46 69 6c 65 44 61 74 61 |........|FileData|
|00000de0| 82 46 50 45 76 31 30 00 | c0 4b 01 00 5a 2f 00 00 |.FPEv10.|.K..Z/..|
|00000df0| 41 fb ff ff 51 15 55 fe | 03 00 c8 fc 0d ea 60 23 |A...Q.U.|......`#|
|00000e00| f4 20 3e 46 50 45 76 31 | 30 20 50 52 4f 43 68 65 |. >FPEv1|0 PROChe|
|00000e10| 6c 70 5f 66 70 65 20 66 | 6f 72 20 68 65 6c 70 0d |lp_fpe f|or help.|
|00000e20| ea 6a 24 f4 20 28 43 29 | 20 54 4a 20 43 68 61 70 |.j$. (C)| TJ Chap|
|00000e30| 70 65 6c 6c 20 53 65 70 | 74 65 6d 62 65 72 20 31 |pell Sep|tember 1|
|00000e40| 39 38 38 0d ea 74 05 f4 | 0d ea 7e 34 f1 27 22 46 |988..t..|..~4.'"F|
|00000e50| 6c 6f 61 74 69 6e 67 20 | 50 6f 69 6e 74 20 45 6e |loating |Point En|
|00000e60| 63 6f 64 65 72 20 28 43 | 29 20 54 4a 20 43 68 61 |coder (C|) TJ Cha|
|00000e70| 70 70 65 6c 6c 20 31 39 | 38 38 22 27 0d ea 88 05 |ppell 19|88"'....|
|00000e80| e0 0d ea 92 05 3a 0d ea | 9c 0e dd f2 5f 66 70 5f |.....:..|...._fp_|
|00000e90| 69 6e 69 74 0d ea a6 37 | f1 27 22 46 50 20 45 6e |init...7|.'"FP En|
|00000ea0| 63 6f 64 65 72 20 49 6e | 69 74 69 61 6c 69 73 69 |coder In|itialisi|
|00000eb0| 6e 67 20 28 56 65 72 73 | 69 6f 6e 20 31 2e 30 20 |ng (Vers|ion 1.0 |
|00000ec0| 32 34 2d 53 65 70 2d 38 | 38 29 22 0d ea b0 0a 6e |24-Sep-8|8)"....n|
|00000ed0| 75 6d 3d 35 30 0d ea ba | 30 de 20 6f 70 63 24 28 |um=50...|0. opc$(|
|00000ee0| 6e 75 6d 29 2c 6f 70 63 | 76 28 6e 75 6d 29 2c 74 |num),opc|v(num),t|
|00000ef0| 79 70 65 76 28 6e 75 6d | 29 2c 75 73 61 67 65 24 |ypev(num|),usage$|
|00000f00| 28 6e 75 6d 29 0d ea c4 | 12 43 6f 5f 70 72 6f 63 |(num)...|.Co_proc|
|00000f10| 65 73 73 6f 72 3d 31 0d | ea ce 09 73 75 62 3d 30 |essor=1.|...sub=0|
|00000f20| 0d ea d8 05 f5 0d ea e2 | 30 f3 20 6f 70 63 24 28 |........|0. opc$(|
|00000f30| 73 75 62 29 2c 6f 70 63 | 76 28 73 75 62 29 2c 74 |sub),opc|v(sub),t|
|00000f40| 79 70 65 76 28 73 75 62 | 29 2c 75 73 61 67 65 24 |ypev(sub|),usage$|
|00000f50| 28 73 75 62 29 0d ea ec | 0a 73 75 62 2b 3d 31 0d |(sub)...|.sub+=1.|
|00000f60| ea f6 17 fd 20 6f 70 63 | 24 28 73 75 62 2d 31 29 |.... opc|$(sub-1)|
|00000f70| 3d 22 54 4a 43 22 0d eb | 00 0f 66 70 65 72 72 3d |="TJC"..|..fperr=|
|00000f80| 32 31 33 36 39 0d eb 0a | 05 e1 0d eb 14 05 3a 0d |21369...|......:.|
|00000f90| eb 1e 44 dd a4 64 61 74 | 61 5f 74 72 61 6e 28 43 |..D..dat|a_tran(C|
|00000fa0| 6f 6e 64 2c 70 72 65 70 | 6f 73 2c 70 6f 73 6e 65 |ond,prep|os,posne|
|00000fb0| 67 2c 70 72 65 63 2c 77 | 72 69 74 65 62 6b 2c 6c |g,prec,w|ritebk,l|
|00000fc0| 6f 61 64 73 74 6f 72 65 | 2c 52 6e 2c 46 64 2c 6f |oadstore|,Rn,Fd,o|
|00000fd0| 66 66 29 0d eb 28 12 62 | 32 38 33 31 3d 43 6f 6e |ff)..(.b|2831=Con|
|00000fe0| 64 3c 3c 32 38 0d eb 32 | 1c 62 32 34 32 37 3d 28 |d<<28..2|.b2427=(|
|00000ff0| 70 72 65 70 6f 73 2b 25 | 31 31 30 30 29 3c 3c 32 |prepos+%|1100)<<2|
|00001000| 34 0d eb 3c 12 62 32 33 | 3d 70 6f 73 6e 65 67 3c |4..<.b23|=posneg<|
|00001010| 3c 32 33 0d eb 46 1d 62 | 32 32 3d 28 28 70 72 65 |<23..F.b|22=((pre|
|00001020| 63 20 80 20 25 31 30 29 | 3e 3e 31 29 3c 3c 32 32 |c . %10)|>>1)<<22|
|00001030| 0d eb 50 13 62 32 31 3d | 77 72 69 74 65 62 6b 3c |..P.b21=|writebk<|
|00001040| 3c 32 31 0d eb 5a 15 62 | 32 30 3d 6c 6f 61 64 73 |<21..Z.b|20=loads|
|00001050| 74 6f 72 65 3c 3c 32 30 | 0d eb 64 10 62 31 36 31 |tore<<20|..d.b161|
|00001060| 39 3d 52 6e 3c 3c 31 36 | 0d eb 6e 16 62 31 35 3d |9=Rn<<16|..n.b15=|
|00001070| 28 70 72 65 63 20 80 20 | 31 29 3c 3c 31 35 0d eb |(prec . |1)<<15..|
|00001080| 78 10 62 31 32 31 34 3d | 46 64 3c 3c 31 32 0d eb |x.b1214=|Fd<<12..|
|00001090| 82 18 62 38 31 31 3d 43 | 6f 5f 70 72 6f 63 65 73 |..b811=C|o_proces|
|000010a0| 73 6f 72 3c 3c 38 0d eb | 8c 0b 62 30 37 3d 6f 66 |sor<<8..|..b07=of|
|000010b0| 66 0d eb 96 3e 76 61 6c | 75 65 3d 62 32 38 33 31 |f...>val|ue=b2831|
|000010c0| 2b 62 32 34 32 37 2b 62 | 32 33 2b 62 32 32 2b 62 |+b2427+b|23+b22+b|
|000010d0| 32 31 2b 62 32 30 2b 62 | 31 36 31 39 2b 62 31 35 |21+b20+b|1619+b15|
|000010e0| 2b 62 31 32 31 34 2b 62 | 38 31 31 2b 62 30 37 0d |+b1214+b|811+b07.|
|000010f0| eb a0 0a 3d 76 61 6c 75 | 65 0d eb aa 05 3a 0d eb |...=valu|e....:..|
|00001100| b4 2d dd a4 72 65 67 69 | 5f 74 72 61 6e 28 43 6f |.-..regi|_tran(Co|
|00001110| 6e 64 2c 61 62 63 2c 4c | 53 2c 65 66 2c 67 68 2c |nd,abc,L|S,ef,gh,|
|00001120| 46 6d 2c 46 6e 2c 52 64 | 2c 69 29 0d eb be 12 62 |Fm,Fn,Rd|,i)....b|
|00001130| 32 38 33 31 3d 43 6f 6e | 64 3c 3c 32 38 0d eb c8 |2831=Con|d<<28...|
|00001140| 13 62 32 34 32 37 3d 25 | 31 31 31 30 3c 3c 32 34 |.b2427=%|1110<<24|
|00001150| 0d eb d2 11 62 32 31 32 | 33 3d 61 62 63 3c 3c 32 |....b212|3=abc<<2|
|00001160| 31 0d eb dc 0e 62 32 30 | 3d 4c 53 3c 3c 32 30 0d |1....b20|=LS<<20.|
|00001170| eb e6 1b 62 31 39 3d 28 | 28 65 66 20 80 20 25 31 |...b19=(|(ef . %1|
|00001180| 30 29 3e 3e 31 29 3c 3c | 31 39 0d eb f0 10 62 31 |0)>>1)<<|19....b1|
|00001190| 36 31 38 3d 46 6e 3c 3c | 31 36 0d eb fa 10 62 31 |618=Fn<<|16....b1|
|000011a0| 32 31 35 3d 52 64 3c 3c | 31 32 0d ec 04 18 62 38 |215=Rd<<|12....b8|
|000011b0| 31 31 3d 43 6f 5f 70 72 | 6f 63 65 73 73 6f 72 3c |11=Co_pr|ocessor<|
|000011c0| 3c 38 0d ec 0e 12 62 37 | 3d 28 65 66 20 80 20 31 |<8....b7|=(ef . 1|
|000011d0| 29 3c 3c 37 0d ec 18 0d | 62 35 36 3d 67 68 3c 3c |)<<7....|b56=gh<<|
|000011e0| 35 0d ec 22 0b 62 34 3d | 31 3c 3c 34 0d ec 2c 0b |5..".b4=|1<<4..,.|
|000011f0| 62 33 3d 69 3c 3c 33 0d | ec 36 0a 62 30 32 3d 46 |b3=i<<3.|.6.b02=F|
|00001200| 6d 0d ec 40 45 76 61 6c | 75 65 3d 62 32 38 33 31 |m..@Eval|ue=b2831|
|00001210| 2b 62 32 34 32 37 2b 62 | 32 31 32 33 2b 62 32 30 |+b2427+b|2123+b20|
|00001220| 2b 62 31 39 2b 62 31 36 | 31 38 2b 62 31 32 31 35 |+b19+b16|18+b1215|
|00001230| 2b 62 38 31 31 2b 62 37 | 2b 62 35 36 2b 62 34 2b |+b811+b7|+b56+b4+|
|00001240| 62 33 2b 62 30 32 0d ec | 4a 0a 3d 76 61 6c 75 65 |b3+b02..|J.=value|
|00001250| 0d ec 54 05 3a 0d ec 5e | 2c dd a4 64 61 74 61 5f |..T.:..^|,..data_|
|00001260| 6f 70 74 6e 28 43 6f 6e | 64 2c 61 62 63 64 6a 2c |optn(Con|d,abcdj,|
|00001270| 65 66 2c 67 68 2c 69 2c | 46 6d 2c 46 6e 2c 46 64 |ef,gh,i,|Fm,Fn,Fd|
|00001280| 29 0d ec 68 12 62 32 38 | 33 31 3d 43 6f 6e 64 3c |)..h.b28|31=Cond<|
|00001290| 3c 32 38 0d ec 72 13 62 | 32 34 32 37 3d 25 31 31 |<28..r.b|2427=%11|
|000012a0| 31 30 3c 3c 32 34 0d ec | 7c 23 62 32 30 32 33 3d |10<<24..||#b2023=|
|000012b0| 28 28 61 62 63 64 6a 20 | 80 20 25 31 31 31 31 30 |((abcdj |. %11110|
|000012c0| 29 3e 3e 31 29 3c 3c 32 | 30 0d ec 86 1b 62 31 39 |)>>1)<<2|0....b19|
|000012d0| 3d 28 28 65 66 20 80 20 | 25 31 30 29 3e 3e 31 29 |=((ef . |%10)>>1)|
|000012e0| 3c 3c 31 39 0d ec 90 10 | 62 31 36 31 38 3d 46 6e |<<19....|b1618=Fn|
|000012f0| 3c 3c 31 36 0d ec 9a 17 | 62 31 35 3d 28 61 62 63 |<<16....|b15=(abc|
|00001300| 64 6a 20 80 20 31 29 3c | 3c 31 35 0d ec a4 10 62 |dj . 1)<|<15....b|
|00001310| 31 32 31 34 3d 46 64 3c | 3c 31 32 0d ec ae 18 62 |1214=Fd<|<12....b|
|00001320| 38 31 31 3d 43 6f 5f 70 | 72 6f 63 65 73 73 6f 72 |811=Co_p|rocessor|
|00001330| 3c 3c 38 0d ec b8 12 62 | 37 3d 28 65 66 20 80 20 |<<8....b|7=(ef . |
|00001340| 31 29 3c 3c 37 0d ec c2 | 0d 62 35 36 3d 67 68 3c |1)<<7...|.b56=gh<|
|00001350| 3c 35 0d ec cc 0b 62 34 | 3d 30 3c 3c 34 0d ec d6 |<5....b4|=0<<4...|
|00001360| 0b 62 33 3d 69 3c 3c 33 | 0d ec e0 0a 62 30 32 3d |.b3=i<<3|....b02=|
|00001370| 46 6d 0d ec ea 45 76 61 | 6c 75 65 3d 62 32 38 33 |Fm...Eva|lue=b283|
|00001380| 31 2b 62 32 34 32 37 2b | 62 32 30 32 33 2b 62 31 |1+b2427+|b2023+b1|
|00001390| 39 2b 62 31 36 31 38 2b | 62 31 35 2b 62 31 32 31 |9+b1618+|b15+b121|
|000013a0| 34 2b 62 38 31 31 2b 62 | 37 2b 62 35 36 2b 62 34 |4+b811+b|7+b56+b4|
|000013b0| 2b 62 33 2b 62 30 32 0d | ec f4 0a 3d 76 61 6c 75 |+b3+b02.|...=valu|
|000013c0| 65 0d ec fe 05 3a 0d ed | 08 25 dd a4 73 74 61 74 |e....:..|.%..stat|
|000013d0| 5f 74 72 61 6e 28 43 6f | 6e 64 2c 61 62 63 65 66 |_tran(Co|nd,abcef|
|000013e0| 67 68 2c 69 2c 46 6d 2c | 46 6e 29 0d ed 12 12 62 |gh,i,Fm,|Fn)....b|
|000013f0| 32 38 33 31 3d 43 6f 6e | 64 3c 3c 32 38 0d ed 1c |2831=Con|d<<28...|
|00001400| 13 62 32 34 32 37 3d 25 | 31 31 31 30 3c 3c 32 34 |.b2427=%|1110<<24|
|00001410| 0d ed 26 27 62 32 31 32 | 33 3d 28 28 61 62 63 65 |..&'b212|3=((abce|
|00001420| 66 67 68 20 80 20 25 31 | 31 31 30 30 30 30 29 3e |fgh . %1|110000)>|
|00001430| 3e 34 29 3c 3c 32 31 0d | ed 30 0d 62 32 30 3d 31 |>4)<<21.|.0.b20=1|
|00001440| 3c 3c 32 30 0d ed 3a 25 | 62 31 39 3d 28 28 61 62 |<<20..:%|b19=((ab|
|00001450| 63 65 66 67 68 20 80 20 | 25 30 30 30 31 30 30 30 |cefgh . |%0001000|
|00001460| 29 3e 3e 33 29 3c 3c 31 | 39 0d ed 44 10 62 31 36 |)>>3)<<1|9..D.b16|
|00001470| 31 38 3d 46 6e 3c 3c 31 | 36 0d ed 4e 13 62 31 32 |18=Fn<<1|6..N.b12|
|00001480| 31 35 3d 25 31 31 31 31 | 3c 3c 31 32 0d ed 58 18 |15=%1111|<<12..X.|
|00001490| 62 38 31 31 3d 43 6f 5f | 70 72 6f 63 65 73 73 6f |b811=Co_|processo|
|000014a0| 72 3c 3c 38 0d ed 62 1f | 62 35 37 3d 28 61 62 63 |r<<8..b.|b57=(abc|
|000014b0| 65 66 67 68 20 80 20 25 | 30 30 30 30 31 31 31 29 |efgh . %|0000111)|
|000014c0| 3c 3c 35 0d ed 6c 0b 62 | 34 3d 31 3c 3c 34 0d ed |<<5..l.b|4=1<<4..|
|000014d0| 76 0b 62 33 3d 69 3c 3c | 33 0d ed 80 0a 62 30 32 |v.b3=i<<|3....b02|
|000014e0| 3d 46 6d 0d ed 8a 42 76 | 61 6c 75 65 3d 62 32 38 |=Fm...Bv|alue=b28|
|000014f0| 33 31 2b 62 32 34 32 37 | 2b 62 32 31 32 33 2b 62 |31+b2427|+b2123+b|
|00001500| 32 30 2b 62 31 39 2b 62 | 31 36 31 38 2b 62 31 32 |20+b19+b|1618+b12|
|00001510| 31 35 2b 62 38 31 31 2b | 62 35 37 2b 62 34 2b 62 |15+b811+|b57+b4+b|
|00001520| 33 2b 62 30 32 0d ed 94 | 0a 3d 76 61 6c 75 65 0d |3+b02...|.=value.|
|00001530| ed 9e 05 3a 0d ed a8 05 | 3a 0d ed b2 10 dd a4 6f |...:....|:......o|
|00001540| 70 63 6f 64 65 28 6f 24 | 29 0d ed bc 09 73 75 62 |pcode(o$|)....sub|
|00001550| 3d 30 0d ed c6 05 f5 0d | ed d0 33 63 68 6b 24 3d |=0......|..3chk$=|
|00001560| 6f 70 63 24 28 73 75 62 | 29 3a 72 65 74 75 72 6e |opc$(sub|):return|
|00001570| 3d 6f 70 63 76 28 73 75 | 62 29 3a 74 79 70 65 3d |=opcv(su|b):type=|
|00001580| 74 79 70 65 76 28 73 75 | 62 29 0d ed da 0a 73 75 |typev(su|b)....su|
|00001590| 62 2b 3d 31 0d ed e4 1a | fd 20 63 68 6b 24 3d 6f |b+=1....|. chk$=o|
|000015a0| 24 20 84 20 63 68 6b 24 | 3d 22 54 4a 43 22 0d ed |$ . chk$|="TJC"..|
|000015b0| ee 41 e7 20 63 68 6b 24 | 3d 22 54 4a 43 22 20 8c |.A. chk$|="TJC" .|
|000015c0| 20 85 20 66 70 65 72 72 | 2c 22 55 6e 6b 6e 6f 77 | . fperr|,"Unknow|
|000015d0| 6e 20 4f 70 63 6f 64 65 | 20 20 3a 22 2b 6f 72 69 |n Opcode|  :"+ori|
|000015e0| 67 69 6e 61 6c 24 2b 22 | 20 3d 20 22 2b 6f 24 0d |ginal$+"| = "+o$.|
|000015f0| ed f8 0b 3d 72 65 74 75 | 72 6e 0d ee 02 05 3a 0d |...=retu|rn....:.|
|00001600| ee 0c 0e dd a4 74 79 70 | 65 28 6f 24 29 0d ee 16 |.....typ|e(o$)...|
|00001610| 09 73 75 62 3d 30 0d ee | 20 05 f5 0d ee 2a 33 63 |.sub=0..| ....*3c|
|00001620| 68 6b 24 3d 6f 70 63 24 | 28 73 75 62 29 3a 72 65 |hk$=opc$|(sub):re|
|00001630| 74 75 72 6e 3d 6f 70 63 | 76 28 73 75 62 29 3a 74 |turn=opc|v(sub):t|
|00001640| 79 70 65 3d 74 79 70 65 | 76 28 73 75 62 29 0d ee |ype=type|v(sub)..|
|00001650| 34 0a 73 75 62 2b 3d 31 | 0d ee 3e 1a fd 20 63 68 |4.sub+=1|..>.. ch|
|00001660| 6b 24 3d 6f 24 20 84 20 | 63 68 6b 24 3d 22 54 4a |k$=o$ . |chk$="TJ|
|00001670| 43 22 0d ee 48 41 e7 20 | 63 68 6b 24 3d 22 54 4a |C"..HA. |chk$="TJ|
|00001680| 43 22 20 8c 20 85 20 66 | 70 65 72 72 2c 22 55 6e |C" . . f|perr,"Un|
|00001690| 6b 6e 6f 77 6e 20 4f 70 | 63 6f 64 65 20 20 3a 22 |known Op|code  :"|
|000016a0| 2b 6f 72 69 67 69 6e 61 | 6c 24 2b 22 20 3d 20 22 |+origina|l$+" = "|
|000016b0| 2b 6f 24 0d ee 52 09 3d | 74 79 70 65 0d ee 5c 05 |+o$..R.=|type..\.|
|000016c0| 3a 0d ee 66 0e dd a4 63 | 6f 6e 64 28 63 24 29 0d |:..f...c|ond(c$).|
|000016d0| ee 70 31 63 6f 6d 70 61 | 72 65 24 3d 22 7e 7e 45 |.p1compa|re$="~~E|
|000016e0| 51 4e 45 43 53 43 43 4d | 49 50 4c 56 53 56 43 48 |QNECSCCM|IPLVSVCH|
|000016f0| 49 4c 53 47 45 4c 54 47 | 54 4c 45 41 4c 4e 56 22 |ILSGELTG|TLEALNV"|
|00001700| 0d ee 7a 19 70 6c 61 63 | 65 3d a7 63 6f 6d 70 61 |..z.plac|e=.compa|
|00001710| 72 65 24 2c 63 24 29 81 | 32 0d ee 84 41 e7 20 70 |re$,c$).|2...A. p|
|00001720| 6c 61 63 65 3d 30 20 8c | 20 85 20 66 70 65 72 72 |lace=0 .| . fperr|
|00001730| 2c 22 55 6e 6b 6e 6f 77 | 6e 20 43 4f 4e 44 49 54 |,"Unknow|n CONDIT|
|00001740| 49 4f 4e 20 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ION  :"+|original|
|00001750| 24 2b 22 20 3d 20 22 2b | 63 24 0d ee 8e 0c 3d 70 |$+" = "+|c$....=p|
|00001760| 6c 61 63 65 2d 31 0d ee | 98 05 3a 0d ee a2 0f dd |lace-1..|..:.....|
|00001770| a4 72 6f 75 6e 64 28 72 | 24 29 0d ee ac 11 e7 20 |.round(r|$)..... |
|00001780| a9 72 24 3d 30 20 8c 20 | 3a 3d 30 0d ee b6 15 70 |.r$=0 . |:=0....p|
|00001790| 6c 61 63 65 3d a7 22 20 | 50 4d 5a 22 2c 72 24 29 |lace=." |PMZ",r$)|
|000017a0| 0d ee c0 4a e7 20 70 6c | 61 63 65 3d 30 20 8c 20 |...J. pl|ace=0 . |
|000017b0| 85 20 66 70 65 72 72 2c | 22 55 6e 6b 6e 6f 77 6e |. fperr,|"Unknown|
|000017c0| 20 72 6f 75 6e 64 69 6e | 67 20 70 61 72 61 6d 65 | roundin|g parame|
|000017d0| 74 65 72 20 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ter  :"+|original|
|000017e0| 24 2b 22 20 3d 20 22 2b | 72 24 0d ee ca 0c 3d 70 |$+" = "+|r$....=p|
|000017f0| 6c 61 63 65 2d 31 0d ee | d4 05 3a 0d ee de 0e dd |lace-1..|..:.....|
|00001800| a4 70 72 65 63 28 70 24 | 29 0d ee e8 15 70 6c 61 |.prec(p$|)....pla|
|00001810| 63 65 3d a7 22 53 44 45 | 50 22 2c 70 24 29 0d ee |ce=."SDE|P",p$)..|
|00001820| f2 4b e7 20 70 6c 61 63 | 65 3d 30 20 8c 20 85 20 |.K. plac|e=0 . . |
|00001830| 66 70 65 72 72 2c 22 55 | 6e 6b 6e 6f 77 6e 20 70 |fperr,"U|nknown p|
|00001840| 72 65 63 69 73 69 6f 6e | 20 70 61 72 61 6d 65 74 |recision| paramet|
|00001850| 65 72 20 20 3a 22 2b 6f | 72 69 67 69 6e 61 6c 24 |er  :"+o|riginal$|
|00001860| 2b 22 20 3d 20 22 2b 70 | 24 0d ee fc 0c 3d 70 6c |+" = "+p|$....=pl|
|00001870| 61 63 65 2d 31 0d ef 06 | 05 3a 0d ef 10 10 dd f2 |ace-1...|.:......|
|00001880| 63 68 65 63 6b 5f 69 6e | 73 74 0d ef 1a 0e de 20 |check_in|st..... |
|00001890| 62 6c 6f 63 6b 20 32 30 | 0d ef 24 1a 24 62 6c 6f |block 20|..$.$blo|
|000018a0| 63 6b 3d 22 46 50 45 6d | 75 6c 61 74 6f 72 22 2b |ck="FPEm|ulator"+|
|000018b0| bd 30 0d ef 2e 23 c8 99 | 20 22 4f 53 5f 4d 6f 64 |.0...#..| "OS_Mod|
|000018c0| 75 6c 65 22 2c 31 38 2c | 62 6c 6f 63 6b 20 b8 20 |ule",18,|block . |
|000018d0| 41 25 2c 42 25 0d ef 38 | 05 e1 0d ef 42 05 3a 0d |A%,B%..8|....B.:.|
|000018e0| ef 4c 16 dd a4 73 74 72 | 69 70 28 70 61 73 73 32 |.L...str|ip(pass2|
|000018f0| 24 2c 6e 6f 29 0d ef 56 | 1a 3d c2 70 61 73 73 32 |$,no)..V|.=.pass2|
|00001900| 24 2c a9 28 70 61 73 73 | 32 24 29 2d 6e 6f 29 0d |$,.(pass|2$)-no).|
|00001910| ef 60 05 3a 0d ef 6a 15 | dd a4 64 65 63 6f 64 65 |.`.:..j.|..decode|
|00001920| 28 70 61 73 73 65 64 24 | 29 0d ef 74 15 6f 72 69 |(passed$|)..t.ori|
|00001930| 67 69 6e 61 6c 24 3d 70 | 61 73 73 65 64 24 0d ef |ginal$=p|assed$..|
|00001940| 7e 0b 77 72 69 74 65 3d | 30 0d ef 88 1a 70 70 3d |~.write=|0....pp=|
|00001950| 30 3a 77 62 3d 30 3a 6f | 66 66 73 65 74 3d 30 3a |0:wb=0:o|ffset=0:|
|00001960| 69 3d 30 0d ef 92 4b 74 | 65 73 74 24 3d 22 25 30 |i=0...Kt|est$="%0|
|00001970| 31 32 33 34 35 36 37 38 | 39 41 42 43 44 45 46 47 |12345678|9ABCDEFG|
|00001980| 48 49 4a 4b 4c 4d 4e 4f | 50 51 52 53 54 55 56 57 |HIJKLMNO|PQRSTUVW|
|00001990| 58 59 5a 61 62 63 64 65 | 66 67 68 69 6a 6b 6c 6d |XYZabcde|fghijklm|
|000019a0| 6e 6f 70 71 72 73 74 75 | 76 77 78 79 7a 22 0d ef |nopqrstu|vwxyz"..|
|000019b0| 9c 1c 6f 70 63 3d a4 6f | 70 63 6f 64 65 28 c0 70 |..opc=.o|pcode(.p|
|000019c0| 61 73 73 65 64 24 2c 33 | 29 29 0d ef a6 35 74 79 |assed$,3|))...5ty|
|000019d0| 70 65 3d a4 74 79 70 65 | 28 c0 70 61 73 73 65 64 |pe=.type|(.passed|
|000019e0| 24 2c 33 29 29 3a 70 61 | 73 73 65 64 24 3d a4 73 |$,3)):pa|ssed$=.s|
|000019f0| 74 72 69 70 28 70 61 73 | 73 65 64 24 2c 33 29 0d |trip(pas|sed$,3).|
|00001a00| ef b0 35 63 6f 6e 64 3d | a4 63 6f 6e 64 28 c0 70 |..5cond=|.cond(.p|
|00001a10| 61 73 73 65 64 24 2c 32 | 29 29 3a 70 61 73 73 65 |assed$,2|)):passe|
|00001a20| 64 24 3d a4 73 74 72 69 | 70 28 70 61 73 73 65 64 |d$=.stri|p(passed|
|00001a30| 24 2c 32 29 0d ef ba 3f | ee 20 28 74 79 70 65 2b |$,2)...?|. (type+|
|00001a40| 31 29 20 f2 74 79 70 65 | 30 2c f2 74 79 70 65 31 |1) .type|0,.type1|
|00001a50| 2c f2 74 79 70 65 32 2c | f2 74 79 70 65 33 2c f2 |,.type2,|.type3,.|
|00001a60| 74 79 70 65 34 2c f2 74 | 79 70 65 35 2c f2 74 79 |type4,.t|ype5,.ty|
|00001a70| 70 65 36 0d ef c4 0a 3d | 77 72 69 74 65 0d ef ce |pe6....=|write...|
|00001a80| 05 3a 0d ef d8 13 dd a4 | 67 65 74 46 6e 28 70 61 |.:......|getFn(pa|
|00001a90| 73 73 33 24 29 0d ef e2 | 0a 46 6e 24 3d 22 22 0d |ss3$)...|.Fn$="".|
|00001aa0| ef ec 29 c8 95 20 a7 74 | 65 73 74 24 2c c0 70 61 |..).. .t|est$,.pa|
|00001ab0| 73 73 33 24 2c 31 29 29 | 3e 30 20 80 20 a9 28 70 |ss3$,1))|>0 . .(p|
|00001ac0| 61 73 73 33 24 29 3e 30 | 0d ef f6 13 46 6e 24 2b |ass3$)>0|....Fn$+|
|00001ad0| 3d c0 70 61 73 73 33 24 | 2c 31 29 0d f0 00 1b 70 |=.pass3$|,1)....p|
|00001ae0| 61 73 73 33 24 3d a4 73 | 74 72 69 70 28 70 61 73 |ass3$=.s|trip(pas|
|00001af0| 73 33 24 2c 31 29 0d f0 | 0a 05 ce 0d f0 14 0e 6c |s3$,1)..|.......l|
|00001b00| 66 6e 3d a9 28 46 6e 24 | 29 0d f0 1e 34 e7 20 46 |fn=.(Fn$|)...4. F|
|00001b10| 6e 24 3d 22 22 20 8c 20 | 85 20 66 70 65 72 72 2c |n$="" . |. fperr,|
|00001b20| 22 42 61 64 20 46 50 20 | 72 65 67 69 73 74 65 72 |"Bad FP |register|
|00001b30| 20 3a 22 2b 6f 72 69 67 | 69 6e 61 6c 24 0d f0 28 | :"+orig|inal$..(|
|00001b40| 25 e7 20 c0 46 6e 24 2c | 31 29 3d 22 46 22 20 8c |%. .Fn$,|1)="F" .|
|00001b50| 20 46 6e 24 3d a4 73 74 | 72 69 70 28 46 6e 24 2c | Fn$=.st|rip(Fn$,|
|00001b60| 31 29 0d f0 32 38 e7 20 | a0 28 46 6e 24 29 3e 37 |1)..28. |.(Fn$)>7|
|00001b70| 20 8c 20 85 20 66 70 65 | 72 72 2c 22 46 50 20 72 | . . fpe|rr,"FP r|
|00001b80| 65 67 69 73 74 65 72 20 | 72 61 6e 67 65 20 3a 22 |egister |range :"|
|00001b90| 2b 6f 72 69 67 69 6e 61 | 6c 24 0d f0 3c 13 3d a0 |+origina|l$..<.=.|
|00001ba0| 28 46 6e 24 29 2b 32 35 | 36 2a 6c 66 6e 0d f0 46 |(Fn$)+25|6*lfn..F|
|00001bb0| 05 3a 0d f0 50 18 dd a4 | 73 74 72 69 70 73 70 61 |.:..P...|stripspa|
|00001bc0| 63 65 28 70 61 73 73 34 | 24 29 0d f0 5a 23 c8 95 |ce(pass4|$)..Z#..|
|00001bd0| 20 c0 70 61 73 73 34 24 | 2c 31 29 3d 22 20 22 20 | .pass4$|,1)=" " |
|00001be0| 80 20 a9 28 70 61 73 73 | 34 24 29 3e 30 0d f0 64 |. .(pass|4$)>0..d|
|00001bf0| 1b 70 61 73 73 34 24 3d | a4 73 74 72 69 70 28 70 |.pass4$=|.strip(p|
|00001c00| 61 73 73 34 24 2c 31 29 | 0d f0 6e 05 ce 0d f0 78 |ass4$,1)|..n....x|
|00001c10| 0b 3d 70 61 73 73 34 24 | 0d f0 82 05 3a 0d f0 8c |.=pass4$|....:...|
|00001c20| 13 dd a4 67 65 74 52 6e | 28 70 61 73 73 35 24 29 |...getRn|(pass5$)|
|00001c30| 0d f0 96 0a 52 6e 24 3d | 22 22 0d f0 a0 29 c8 95 |....Rn$=|""...)..|
|00001c40| 20 a7 74 65 73 74 24 2c | c0 70 61 73 73 35 24 2c | .test$,|.pass5$,|
|00001c50| 31 29 29 3e 30 20 80 20 | a9 28 70 61 73 73 35 24 |1))>0 . |.(pass5$|
|00001c60| 29 3e 30 0d f0 aa 13 52 | 6e 24 2b 3d c0 70 61 73 |)>0....R|n$+=.pas|
|00001c70| 73 35 24 2c 31 29 0d f0 | b4 1b 70 61 73 73 35 24 |s5$,1)..|..pass5$|
|00001c80| 3d a4 73 74 72 69 70 28 | 70 61 73 73 35 24 2c 31 |=.strip(|pass5$,1|
|00001c90| 29 0d f0 be 05 ce 0d f0 | c8 0e 6c 72 6e 3d a9 28 |).......|..lrn=.(|
|00001ca0| 52 6e 24 29 0d f0 d2 25 | e7 20 c0 52 6e 24 2c 31 |Rn$)...%|. .Rn$,1|
|00001cb0| 29 3d 22 52 22 20 8c 20 | 52 6e 24 3d a4 73 74 72 |)="R" . |Rn$=.str|
|00001cc0| 69 70 28 52 6e 24 2c 31 | 29 0d f0 dc 35 e7 20 52 |ip(Rn$,1|)...5. R|
|00001cd0| 6e 24 3d 22 22 20 8c 20 | 85 20 66 70 65 72 72 2c |n$="" . |. fperr,|
|00001ce0| 22 42 61 64 20 41 52 4d | 20 72 65 67 69 73 74 65 |"Bad ARM| registe|
|00001cf0| 72 20 3a 22 2b 6f 72 69 | 67 69 6e 61 6c 24 0d f0 |r :"+ori|ginal$..|
|00001d00| e6 3a e7 20 a0 28 52 6e | 24 29 3e 31 35 20 8c 20 |.:. .(Rn|$)>15 . |
|00001d10| 85 20 66 70 65 72 72 2c | 22 41 52 4d 20 72 65 67 |. fperr,|"ARM reg|
|00001d20| 69 73 74 65 72 20 72 61 | 6e 67 65 20 3a 22 2b 6f |ister ra|nge :"+o|
|00001d30| 72 69 67 69 6e 61 6c 24 | 0d f0 f0 13 3d a0 28 52 |riginal$|....=.(R|
|00001d40| 6e 24 29 2b 32 35 36 2a | 6c 72 6e 0d f0 fa 05 3a |n$)+256*|lrn....:|
|00001d50| 0d f1 04 0b dd f2 74 79 | 70 65 30 0d f1 0e 0d 6e |......ty|pe0....n|
|00001d60| 6f 66 66 73 65 74 3d 31 | 0d f1 18 20 70 61 73 73 |offset=1|... pass|
|00001d70| 65 64 24 3d a4 73 74 72 | 69 70 73 70 61 63 65 28 |ed$=.str|ipspace(|
|00001d80| 70 61 73 73 65 64 24 29 | 0d f1 22 34 70 72 65 3d |passed$)|.."4pre=|
|00001d90| a4 70 72 65 63 28 c0 70 | 61 73 73 65 64 24 2c 31 |.prec(.p|assed$,1|
|00001da0| 29 29 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |)):passe|d$=.stri|
|00001db0| 70 28 70 61 73 73 65 64 | 24 2c 31 29 0d f1 2c 20 |p(passed|$,1).., |
|00001dc0| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00001dd0| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f1 36 18 |ace(pass|ed$)..6.|
|00001de0| 64 61 74 61 3d a4 67 65 | 74 46 6e 28 70 61 73 73 |data=.ge|tFn(pass|
|00001df0| 65 64 24 29 0d f1 40 10 | 46 64 3d 64 61 74 61 20 |ed$)..@.|Fd=data |
|00001e00| 83 32 35 36 0d f1 4a 25 | 70 61 73 73 65 64 24 3d |.256..J%|passed$=|
|00001e10| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 64 |.strip(p|assed$,d|
|00001e20| 61 74 61 20 81 32 35 36 | 29 0d f1 54 20 70 61 73 |ata .256|)..T pas|
|00001e30| 73 65 64 24 3d a4 73 74 | 72 69 70 73 70 61 63 65 |sed$=.st|ripspace|
|00001e40| 28 70 61 73 73 65 64 24 | 29 0d f1 5e 38 e7 20 c0 |(passed$|)..^8. .|
|00001e50| 70 61 73 73 65 64 24 2c | 31 29 3c 3e 22 2c 22 20 |passed$,|1)<>"," |
|00001e60| 8c 20 85 20 66 70 65 72 | 72 2c 22 4d 69 73 73 69 |. . fper|r,"Missi|
|00001e70| 6e 67 20 2c 20 3a 22 2b | 6f 72 69 67 69 6e 61 6c |ng , :"+|original|
|00001e80| 24 0d f1 68 1d 70 61 73 | 73 65 64 24 3d a4 73 74 |$..h.pas|sed$=.st|
|00001e90| 72 69 70 28 70 61 73 73 | 65 64 24 2c 31 29 0d f1 |rip(pass|ed$,1)..|
|00001ea0| 72 20 70 61 73 73 65 64 | 24 3d a4 73 74 72 69 70 |r passed|$=.strip|
|00001eb0| 73 70 61 63 65 28 70 61 | 73 73 65 64 24 29 0d f1 |space(pa|ssed$)..|
|00001ec0| 7c 38 e7 20 c0 70 61 73 | 73 65 64 24 2c 31 29 3c ||8. .pas|sed$,1)<|
|00001ed0| 3e 22 5b 22 20 8c 20 85 | 20 66 70 65 72 72 2c 22 |>"[" . .| fperr,"|
|00001ee0| 4d 69 73 73 69 6e 67 20 | 5b 20 3a 22 2b 6f 72 69 |Missing |[ :"+ori|
|00001ef0| 67 69 6e 61 6c 24 0d f1 | 86 1d 70 61 73 73 65 64 |ginal$..|..passed|
|00001f00| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|00001f10| 2c 31 29 0d f1 90 20 70 | 61 73 73 65 64 24 3d a4 |,1)... p|assed$=.|
|00001f20| 73 74 72 69 70 73 70 61 | 63 65 28 70 61 73 73 65 |stripspa|ce(passe|
|00001f30| 64 24 29 0d f1 9a 18 64 | 61 74 61 3d a4 67 65 74 |d$)....d|ata=.get|
|00001f40| 52 6e 28 70 61 73 73 65 | 64 24 29 0d f1 a4 10 52 |Rn(passe|d$)....R|
|00001f50| 6e 3d 64 61 74 61 20 83 | 32 35 36 0d f1 ae 25 70 |n=data .|256...%p|
|00001f60| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 28 70 61 |assed$=.|strip(pa|
|00001f70| 73 73 65 64 24 2c 64 61 | 74 61 20 81 32 35 36 29 |ssed$,da|ta .256)|
|00001f80| 0d f1 b8 14 c8 8e 20 c0 | 70 61 73 73 65 64 24 2c |...... .|passed$,|
|00001f90| 32 29 20 ca 0d f1 c2 4f | c9 20 22 5d 2c 22 3a 70 |2) ....O|. "],":p|
|00001fa0| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 28 70 61 |assed$=.|strip(pa|
|00001fb0| 73 73 65 64 24 2c 32 29 | 3a 64 61 74 61 3d a4 66 |ssed$,2)|:data=.f|
|00001fc0| 69 6e 64 6f 66 66 73 65 | 74 28 70 61 73 73 65 64 |indoffse|t(passed|
|00001fd0| 24 29 3a 6f 66 66 73 65 | 74 3d 64 61 74 61 20 83 |$):offse|t=data .|
|00001fe0| 32 35 36 0d f1 cc a3 c9 | 20 22 2c 23 22 3a 70 61 |256.....| ",#":pa|
|00001ff0| 73 73 65 64 24 3d a4 73 | 74 72 69 70 28 70 61 73 |ssed$=.s|trip(pas|
|00002000| 73 65 64 24 2c 32 29 3a | 64 61 74 61 3d a4 66 69 |sed$,2):|data=.fi|
|00002010| 6e 64 6f 66 66 73 65 74 | 28 70 61 73 73 65 64 24 |ndoffset|(passed$|
|00002020| 29 3a 6f 66 66 73 65 74 | 3d 64 61 74 61 20 83 32 |):offset|=data .2|
|00002030| 35 36 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |56:passe|d$=.stri|
|00002040| 70 28 70 61 73 73 65 64 | 24 2c 64 61 74 61 20 81 |p(passed|$,data .|
|00002050| 32 35 36 29 3a 70 70 3d | 31 3a f2 62 72 61 63 6b |256):pp=|1:.brack|
|00002060| 65 74 3a f2 70 6c 69 6e | 67 3a e7 20 6e 6f 66 66 |et:.plin|g:. noff|
|00002070| 73 65 74 3d b9 20 8c 20 | 6f 66 66 73 65 74 3d 2d |set=. . |offset=-|
|00002080| 6f 66 66 73 65 74 0d f1 | d6 09 c9 20 22 5d 22 0d |offset..|... "]".|
|00002090| f1 e0 2e 7f 20 85 20 66 | 70 65 72 72 2c 22 42 61 |.... . f|perr,"Ba|
|000020a0| 64 20 61 64 64 72 65 73 | 73 20 73 79 6e 74 61 78 |d addres|s syntax|
|000020b0| 20 3a 22 2b 6f 72 69 67 | 69 6e 61 6c 24 0d f1 ea | :"+orig|inal$...|
|000020c0| 05 cb 0d f1 f4 14 6f 66 | 66 73 65 74 3d 6f 66 66 |......of|fset=off|
|000020d0| 73 65 74 20 81 34 0d f1 | fe 3d 77 72 69 74 65 3d |set .4..|.=write=|
|000020e0| a4 64 61 74 61 5f 74 72 | 61 6e 28 63 6f 6e 64 2c |.data_tr|an(cond,|
|000020f0| 70 70 2c 6e 6f 66 66 73 | 65 74 2c 70 72 65 2c 77 |pp,noffs|et,pre,w|
|00002100| 62 2c 6f 70 63 2c 52 6e | 2c 46 64 2c 6f 66 66 73 |b,opc,Rn|,Fd,offs|
|00002110| 65 74 29 0d f2 08 05 e1 | 0d f2 12 05 3a 0d f2 1c |et).....|....:...|
|00002120| 18 dd a4 66 69 6e 64 6f | 66 66 73 65 74 28 70 61 |...findo|ffset(pa|
|00002130| 73 73 36 24 29 0d f2 26 | 0b 6f 66 66 24 3d 22 22 |ss6$)..&|.off$=""|
|00002140| 0d f2 30 2e e7 20 c0 70 | 61 73 73 36 24 2c 31 29 |..0.. .p|ass6$,1)|
|00002150| 3d 22 23 22 20 8c 20 70 | 61 73 73 36 24 3d a4 73 |="#" . p|ass6$=.s|
|00002160| 74 72 69 70 28 70 61 73 | 73 36 24 2c 31 29 0d f2 |trip(pas|s6$,1)..|
|00002170| 3a 2d c8 95 20 a7 22 2d | 22 2b 74 65 73 74 24 2c |:-.. ."-|"+test$,|
|00002180| c0 70 61 73 73 36 24 2c | 31 29 29 3e 30 20 80 20 |.pass6$,|1))>0 . |
|00002190| a9 28 70 61 73 73 36 24 | 29 3e 30 0d f2 44 14 6f |.(pass6$|)>0..D.o|
|000021a0| 66 66 24 2b 3d c0 70 61 | 73 73 36 24 2c 31 29 0d |ff$+=.pa|ss6$,1).|
|000021b0| f2 4e 1b 70 61 73 73 36 | 24 3d a4 73 74 72 69 70 |.N.pass6|$=.strip|
|000021c0| 28 70 61 73 73 36 24 2c | 31 29 0d f2 58 05 ce 0d |(pass6$,|1)..X...|
|000021d0| f2 62 0f 6c 6f 66 3d a9 | 28 6f 66 66 24 29 0d f2 |.b.lof=.|(off$)..|
|000021e0| 6c 30 e7 20 6f 66 66 24 | 3d 22 22 20 8c 20 85 20 |l0. off$|="" . . |
|000021f0| 66 70 65 72 72 2c 22 42 | 61 64 20 6f 66 66 73 65 |fperr,"B|ad offse|
|00002200| 74 20 3a 22 2b 6f 72 69 | 67 69 6e 61 6c 24 0d f2 |t :"+ori|ginal$..|
|00002210| 76 39 e7 20 94 28 a0 28 | 6f 66 66 24 29 29 3e 32 |v9. .(.(|off$))>2|
|00002220| 35 35 20 8c 20 85 20 66 | 70 65 72 72 2c 22 4f 66 |55 . . f|perr,"Of|
|00002230| 66 73 65 74 20 72 61 6e | 67 65 20 3a 22 2b 6f 72 |fset ran|ge :"+or|
|00002240| 69 67 69 6e 61 6c 24 0d | f2 80 1e e7 20 b4 28 a0 |iginal$.|.... .(.|
|00002250| 28 6f 66 66 24 29 29 3d | b9 20 8c 20 6e 6f 66 66 |(off$))=|. . noff|
|00002260| 73 65 74 3d 30 0d f2 8a | 17 3d 94 28 a0 28 6f 66 |set=0...|.=.(.(of|
|00002270| 66 24 29 29 2b 32 35 36 | 2a 6c 6f 66 0d f2 94 05 |f$))+256|*lof....|
|00002280| 3a 0d f2 9e 0d dd f2 62 | 72 61 63 6b 65 74 0d f2 |:......b|racket..|
|00002290| a8 20 70 61 73 73 65 64 | 24 3d a4 73 74 72 69 70 |. passed|$=.strip|
|000022a0| 73 70 61 63 65 28 70 61 | 73 73 65 64 24 29 0d f2 |space(pa|ssed$)..|
|000022b0| b2 38 e7 20 c0 70 61 73 | 73 65 64 24 2c 31 29 3c |.8. .pas|sed$,1)<|
|000022c0| 3e 22 5d 22 20 8c 20 85 | 20 66 70 65 72 72 2c 22 |>"]" . .| fperr,"|
|000022d0| 4d 69 73 73 69 6e 67 20 | 5d 20 3a 22 2b 6f 72 69 |Missing |] :"+ori|
|000022e0| 67 69 6e 61 6c 24 0d f2 | bc 1d 70 61 73 73 65 64 |ginal$..|..passed|
|000022f0| 24 3d a4 73 74 72 69 70 | 28 70 61 73 73 65 64 24 |$=.strip|(passed$|
|00002300| 2c 31 29 0d f2 c6 05 e1 | 0d f2 d0 05 3a 0d f2 da |,1).....|....:...|
|00002310| 0b dd f2 70 6c 69 6e 67 | 0d f2 e4 20 70 61 73 73 |...pling|... pass|
|00002320| 65 64 24 3d a4 73 74 72 | 69 70 73 70 61 63 65 28 |ed$=.str|ipspace(|
|00002330| 70 61 73 73 65 64 24 29 | 0d f2 ee 1c e7 20 c0 70 |passed$)|..... .p|
|00002340| 61 73 73 65 64 24 2c 31 | 29 3d 22 21 22 20 8c 20 |assed$,1|)="!" . |
|00002350| 77 62 3d 31 0d f2 f8 1d | 70 61 73 73 65 64 24 3d |wb=1....|passed$=|
|00002360| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 31 |.strip(p|assed$,1|
|00002370| 29 0d f3 02 05 e1 0d f3 | 0c 05 3a 0d f3 16 0b dd |).......|..:.....|
|00002380| f2 74 79 70 65 31 0d f3 | 20 07 69 3d 30 0d f3 2a |.type1..| .i=0..*|
|00002390| 20 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 | passed$|=.strips|
|000023a0| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 0d f3 34 |pace(pas|sed$)..4|
|000023b0| 34 70 72 65 3d a4 70 72 | 65 63 28 c0 70 61 73 73 |4pre=.pr|ec(.pass|
|000023c0| 65 64 24 2c 31 29 29 3a | 70 61 73 73 65 64 24 3d |ed$,1)):|passed$=|
|000023d0| a4 73 74 72 69 70 28 70 | 61 73 73 65 64 24 2c 31 |.strip(p|assed$,1|
|000023e0| 29 0d f3 3e 3a 72 6f 75 | 6e 64 3d a4 72 6f 75 6e |)..>:rou|nd=.roun|
|000023f0| 64 28 c0 70 61 73 73 65 | 64 24 2c 31 29 29 3a 70 |d(.passe|d$,1)):p|
|00002400| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 73 70 61 |assed$=.|stripspa|
|00002410| 63 65 28 70 61 73 73 65 | 64 24 29 0d f3 48 18 64 |ce(passe|d$)..H.d|
|00002420| 61 74 61 3d a4 67 65 74 | 46 6e 28 70 61 73 73 65 |ata=.get|Fn(passe|
|00002430| 64 24 29 0d f3 52 10 46 | 6e 3d 64 61 74 61 20 83 |d$)..R.F|n=data .|
|00002440| 32 35 36 0d f3 5c 25 70 | 61 73 73 65 64 24 3d a4 |256..\%p|assed$=.|
|00002450| 73 74 72 69 70 28 70 61 | 73 73 65 64 24 2c 64 61 |strip(pa|ssed$,da|
|00002460| 74 61 20 81 32 35 36 29 | 0d f3 66 20 70 61 73 73 |ta .256)|..f pass|
|00002470| 65 64 24 3d a4 73 74 72 | 69 70 73 70 61 63 65 28 |ed$=.str|ipspace(|
|00002480| 70 61 73 73 65 64 24 29 | 0d f3 70 38 e7 20 c0 70 |passed$)|..p8. .p|
|00002490| 61 73 73 65 64 24 2c 31 | 29 3c 3e 22 2c 22 20 8c |assed$,1|)<>"," .|
|000024a0| 20 85 20 66 70 65 72 72 | 2c 22 4d 69 73 73 69 6e | . fperr|,"Missin|
|000024b0| 67 20 2c 20 3a 22 2b 6f | 72 69 67 69 6e 61 6c 24 |g , :"+o|riginal$|
|000024c0| 0d f3 7a 1d 70 61 73 73 | 65 64 24 3d a4 73 74 72 |..z.pass|ed$=.str|
|000024d0| 69 70 28 70 61 73 73 65 | 64 24 2c 31 29 0d f3 84 |ip(passe|d$,1)...|
|000024e0| 20 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 | passed$|=.strips|
|000024f0| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 0d f3 8e |pace(pas|sed$)...|
|00002500| 35 e7 20 c0 70 61 73 73 | 65 64 24 2c 31 29 3d 22 |5. .pass|ed$,1)="|
|00002510| 23 22 20 8c 20 69 3d 31 | 3a 70 61 73 73 65 64 24 |#" . i=1|:passed$|
|00002520| 3d a4 73 74 72 69 70 28 | 70 61 73 73 65 64 24 2c |=.strip(|passed$,|
|00002530| 31 29 0d f3 98 18 64 61 | 74 61 3d a4 67 65 74 52 |1)....da|ta=.getR|
|00002540| 6e 28 70 61 73 73 65 64 | 24 29 0d f3 a2 10 52 64 |n(passed|$)....Rd|
|00002550| 3d 64 61 74 61 20 83 32 | 35 36 0d f3 ac 18 61 62 |=data .2|56....ab|
|00002560| 63 3d 28 6f 70 63 20 80 | 20 25 31 31 31 30 29 3e |c=(opc .| %1110)>|
|00002570| 3e 31 0d f3 b6 0e 6c 73 | 3d 6f 70 63 20 80 20 31 |>1....ls|=opc . 1|
|00002580| 0d f3 c0 35 77 72 69 74 | 65 3d a4 72 65 67 69 5f |...5writ|e=.regi_|
|00002590| 74 72 61 6e 28 63 6f 6e | 64 2c 61 62 63 2c 6c 73 |tran(con|d,abc,ls|
|000025a0| 2c 70 72 65 2c 72 6f 75 | 6e 64 2c 30 2c 46 6e 2c |,pre,rou|nd,0,Fn,|
|000025b0| 52 64 2c 69 29 0d f3 ca | 05 e1 0d f3 d4 05 3a 0d |Rd,i)...|......:.|
|000025c0| f3 de 0b dd f2 74 79 70 | 65 32 0d f3 e8 07 69 3d |.....typ|e2....i=|
|000025d0| 30 0d f3 f2 20 70 61 73 | 73 65 64 24 3d a4 73 74 |0... pas|sed$=.st|
|000025e0| 72 69 70 73 70 61 63 65 | 28 70 61 73 73 65 64 24 |ripspace|(passed$|
|000025f0| 29 0d f3 fc 34 70 72 65 | 3d a4 70 72 65 63 28 c0 |)...4pre|=.prec(.|
|00002600| 70 61 73 73 65 64 24 2c | 31 29 29 3a 70 61 73 73 |passed$,|1)):pass|
|00002610| 65 64 24 3d a4 73 74 72 | 69 70 28 70 61 73 73 65 |ed$=.str|ip(passe|
|00002620| 64 24 2c 31 29 0d f4 06 | 37 72 6f 75 6e 64 3d a4 |d$,1)...|7round=.|
|00002630| 72 6f 75 6e 64 28 c0 70 | 61 73 73 65 64 24 2c 31 |round(.p|assed$,1|
|00002640| 29 29 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |)):passe|d$=.stri|
|00002650| 70 28 70 61 73 73 65 64 | 24 2c 31 29 0d f4 10 35 |p(passed|$,1)...5|
|00002660| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00002670| 61 63 65 28 70 61 73 73 | 65 64 24 29 3a 64 61 74 |ace(pass|ed$):dat|
|00002680| 61 3d a4 67 65 74 52 6e | 28 70 61 73 73 65 64 24 |a=.getRn|(passed$|
|00002690| 29 0d f4 1a 11 52 64 3d | 64 61 74 61 20 83 20 32 |)....Rd=|data . 2|
|000026a0| 35 36 0d f4 24 25 70 61 | 73 73 65 64 24 3d a4 73 |56..$%pa|ssed$=.s|
|000026b0| 74 72 69 70 28 70 61 73 | 73 65 64 24 2c 64 61 74 |trip(pas|sed$,dat|
|000026c0| 61 20 81 32 35 36 29 0d | f4 2e 20 70 61 73 73 65 |a .256).|.. passe|
|000026d0| 64 24 3d a4 73 74 72 69 | 70 73 70 61 63 65 28 70 |d$=.stri|pspace(p|
|000026e0| 61 73 73 65 64 24 29 0d | f4 38 38 e7 20 c0 70 61 |assed$).|.88. .pa|
|000026f0| 73 73 65 64 24 2c 31 29 | 3c 3e 22 2c 22 20 8c 20 |ssed$,1)|<>"," . |
|00002700| 85 20 66 70 65 72 72 2c | 22 4d 69 73 73 69 6e 67 |. fperr,|"Missing|
|00002710| 20 2c 20 3a 22 2b 6f 72 | 69 67 69 6e 61 6c 24 0d | , :"+or|iginal$.|
|00002720| f4 42 1d 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |.B.passe|d$=.stri|
|00002730| 70 28 70 61 73 73 65 64 | 24 2c 31 29 0d f4 4c 20 |p(passed|$,1)..L |
|00002740| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00002750| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f4 56 18 |ace(pass|ed$)..V.|
|00002760| 64 61 74 61 3d a4 67 65 | 74 46 6e 28 70 61 73 73 |data=.ge|tFn(pass|
|00002770| 65 64 24 29 0d f4 60 10 | 46 6e 3d 64 61 74 61 20 |ed$)..`.|Fn=data |
|00002780| 83 32 35 36 0d f4 6a 18 | 61 62 63 3d 28 6f 70 63 |.256..j.|abc=(opc|
|00002790| 20 80 20 25 31 31 31 30 | 29 3e 3e 31 0d f4 74 0e | . %1110|)>>1..t.|
|000027a0| 6c 73 3d 6f 70 63 20 80 | 20 31 0d f4 7e 35 77 72 |ls=opc .| 1..~5wr|
|000027b0| 69 74 65 3d a4 72 65 67 | 69 5f 74 72 61 6e 28 63 |ite=.reg|i_tran(c|
|000027c0| 6f 6e 64 2c 61 62 63 2c | 6c 73 2c 70 72 65 2c 72 |ond,abc,|ls,pre,r|
|000027d0| 6f 75 6e 64 2c 46 6e 2c | 30 2c 52 64 2c 69 29 0d |ound,Fn,|0,Rd,i).|
|000027e0| f4 88 05 e1 0d f4 92 05 | 3a 0d f4 9c 0b dd f2 74 |........|:......t|
|000027f0| 79 70 65 33 0d f4 a6 07 | 69 3d 30 0d f4 b0 20 70 |ype3....|i=0... p|
|00002800| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 73 70 61 |assed$=.|stripspa|
|00002810| 63 65 28 70 61 73 73 65 | 64 24 29 0d f4 ba 34 70 |ce(passe|d$)...4p|
|00002820| 72 65 3d a4 70 72 65 63 | 28 c0 70 61 73 73 65 64 |re=.prec|(.passed|
|00002830| 24 2c 31 29 29 3a 70 61 | 73 73 65 64 24 3d a4 73 |$,1)):pa|ssed$=.s|
|00002840| 74 72 69 70 28 70 61 73 | 73 65 64 24 2c 31 29 0d |trip(pas|sed$,1).|
|00002850| f4 c4 37 72 6f 75 6e 64 | 3d a4 72 6f 75 6e 64 28 |..7round|=.round(|
|00002860| c0 70 61 73 73 65 64 24 | 2c 31 29 29 3a 70 61 73 |.passed$|,1)):pas|
|00002870| 73 65 64 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |sed$=.st|rip(pass|
|00002880| 65 64 24 2c 31 29 0d f4 | ce 35 70 61 73 73 65 64 |ed$,1)..|.5passed|
|00002890| 24 3d a4 73 74 72 69 70 | 73 70 61 63 65 28 70 61 |$=.strip|space(pa|
|000028a0| 73 73 65 64 24 29 3a 64 | 61 74 61 3d a4 67 65 74 |ssed$):d|ata=.get|
|000028b0| 52 6e 28 70 61 73 73 65 | 64 24 29 0d f4 d8 11 52 |Rn(passe|d$)....R|
|000028c0| 64 3d 64 61 74 61 20 83 | 20 32 35 36 0d f4 e2 18 |d=data .| 256....|
|000028d0| 61 62 63 3d 28 6f 70 63 | 20 80 20 25 31 31 31 30 |abc=(opc| . %1110|
|000028e0| 29 3e 3e 31 0d f4 ec 0e | 6c 73 3d 6f 70 63 20 80 |)>>1....|ls=opc .|
|000028f0| 20 31 0d f4 f6 34 77 72 | 69 74 65 3d a4 72 65 67 | 1...4wr|ite=.reg|
|00002900| 69 5f 74 72 61 6e 28 63 | 6f 6e 64 2c 61 62 63 2c |i_tran(c|ond,abc,|
|00002910| 6c 73 2c 70 72 65 2c 72 | 6f 75 6e 64 2c 30 2c 30 |ls,pre,r|ound,0,0|
|00002920| 2c 52 64 2c 69 29 0d f5 | 00 05 e1 0d f5 0a 05 3a |,Rd,i)..|.......:|
|00002930| 0d f5 14 0b dd f2 74 79 | 70 65 34 0d f5 1e 07 69 |......ty|pe4....i|
|00002940| 3d 30 0d f5 28 20 70 61 | 73 73 65 64 24 3d a4 73 |=0..( pa|ssed$=.s|
|00002950| 74 72 69 70 73 70 61 63 | 65 28 70 61 73 73 65 64 |tripspac|e(passed|
|00002960| 24 29 0d f5 32 34 70 72 | 65 3d a4 70 72 65 63 28 |$)..24pr|e=.prec(|
|00002970| c0 70 61 73 73 65 64 24 | 2c 31 29 29 3a 70 61 73 |.passed$|,1)):pas|
|00002980| 73 65 64 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |sed$=.st|rip(pass|
|00002990| 65 64 24 2c 31 29 0d f5 | 3c 37 72 6f 75 6e 64 3d |ed$,1)..|<7round=|
|000029a0| a4 72 6f 75 6e 64 28 c0 | 70 61 73 73 65 64 24 2c |.round(.|passed$,|
|000029b0| 31 29 29 3a 70 61 73 73 | 65 64 24 3d a4 73 74 72 |1)):pass|ed$=.str|
|000029c0| 69 70 28 70 61 73 73 65 | 64 24 2c 31 29 0d f5 46 |ip(passe|d$,1)..F|
|000029d0| 35 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 73 |5passed$|=.strips|
|000029e0| 70 61 63 65 28 70 61 73 | 73 65 64 24 29 3a 64 61 |pace(pas|sed$):da|
|000029f0| 74 61 3d a4 67 65 74 46 | 6e 28 70 61 73 73 65 64 |ta=.getF|n(passed|
|00002a00| 24 29 0d f5 50 33 46 64 | 3d 64 61 74 61 20 83 20 |$)..P3Fd|=data . |
|00002a10| 32 35 36 3a 70 61 73 73 | 65 64 24 3d a4 73 74 72 |256:pass|ed$=.str|
|00002a20| 69 70 28 70 61 73 73 65 | 64 24 2c 64 61 74 61 20 |ip(passe|d$,data |
|00002a30| 81 32 35 36 29 0d f5 5a | 20 70 61 73 73 65 64 24 |.256)..Z| passed$|
|00002a40| 3d a4 73 74 72 69 70 73 | 70 61 63 65 28 70 61 73 |=.strips|pace(pas|
|00002a50| 73 65 64 24 29 0d f5 64 | 38 e7 20 c0 70 61 73 73 |sed$)..d|8. .pass|
|00002a60| 65 64 24 2c 31 29 3c 3e | 22 2c 22 20 8c 20 85 20 |ed$,1)<>|"," . . |
|00002a70| 66 70 65 72 72 2c 22 4d | 69 73 73 69 6e 67 20 2c |fperr,"M|issing ,|
|00002a80| 20 3a 22 2b 6f 72 69 67 | 69 6e 61 6c 24 0d f5 6e | :"+orig|inal$..n|
|00002a90| 3a 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 28 |:passed$|=.strip(|
|00002aa0| 70 61 73 73 65 64 24 2c | 31 29 3a 70 61 73 73 65 |passed$,|1):passe|
|00002ab0| 64 24 3d a4 73 74 72 69 | 70 73 70 61 63 65 28 70 |d$=.stri|pspace(p|
|00002ac0| 61 73 73 65 64 24 29 0d | f5 78 26 64 61 74 61 3d |assed$).|.x&data=|
|00002ad0| a4 67 65 74 46 6e 28 70 | 61 73 73 65 64 24 29 3a |.getFn(p|assed$):|
|00002ae0| 46 6e 3d 64 61 74 61 20 | 83 20 32 35 36 0d f5 82 |Fn=data |. 256...|
|00002af0| 25 70 61 73 73 65 64 24 | 3d a4 73 74 72 69 70 28 |%passed$|=.strip(|
|00002b00| 70 61 73 73 65 64 24 2c | 64 61 74 61 20 81 32 35 |passed$,|data .25|
|00002b10| 36 29 0d f5 8c 20 70 61 | 73 73 65 64 24 3d a4 73 |6)... pa|ssed$=.s|
|00002b20| 74 72 69 70 73 70 61 63 | 65 28 70 61 73 73 65 64 |tripspac|e(passed|
|00002b30| 24 29 0d f5 96 38 e7 20 | c0 70 61 73 73 65 64 24 |$)...8. |.passed$|
|00002b40| 2c 31 29 3c 3e 22 2c 22 | 20 8c 20 85 20 66 70 65 |,1)<>","| . . fpe|
|00002b50| 72 72 2c 22 4d 69 73 73 | 69 6e 67 20 2c 20 3a 22 |rr,"Miss|ing , :"|
|00002b60| 2b 6f 72 69 67 69 6e 61 | 6c 24 0d f5 a0 3a 70 61 |+origina|l$...:pa|
|00002b70| 73 73 65 64 24 3d a4 73 | 74 72 69 70 28 70 61 73 |ssed$=.s|trip(pas|
|00002b80| 73 65 64 24 2c 31 29 3a | 70 61 73 73 65 64 24 3d |sed$,1):|passed$=|
|00002b90| a4 73 74 72 69 70 73 70 | 61 63 65 28 70 61 73 73 |.stripsp|ace(pass|
|00002ba0| 65 64 24 29 0d f5 aa 35 | e7 20 c0 70 61 73 73 65 |ed$)...5|. .passe|
|00002bb0| 64 24 2c 31 29 3d 22 23 | 22 20 8c 20 69 3d 31 3a |d$,1)="#|" . i=1:|
|00002bc0| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 28 70 |passed$=|.strip(p|
|00002bd0| 61 73 73 65 64 24 2c 31 | 29 0d f5 b4 35 70 61 73 |assed$,1|)...5pas|
|00002be0| 73 65 64 24 3d a4 73 74 | 72 69 70 73 70 61 63 65 |sed$=.st|ripspace|
|00002bf0| 28 70 61 73 73 65 64 24 | 29 3a 64 61 74 61 3d a4 |(passed$|):data=.|
|00002c00| 67 65 74 46 6e 28 70 61 | 73 73 65 64 24 29 0d f5 |getFn(pa|ssed$)..|
|00002c10| be 11 46 6d 3d 64 61 74 | 61 20 83 20 32 35 36 0d |..Fm=dat|a . 256.|
|00002c20| f5 c8 33 77 72 69 74 65 | 3d a4 64 61 74 61 5f 6f |..3write|=.data_o|
|00002c30| 70 74 6e 28 63 6f 6e 64 | 2c 6f 70 63 2c 70 72 65 |ptn(cond|,opc,pre|
|00002c40| 2c 72 6f 75 6e 64 2c 69 | 2c 46 6d 2c 46 6e 2c 46 |,round,i|,Fm,Fn,F|
|00002c50| 64 29 0d f5 d2 05 e1 0d | f5 dc 05 3a 0d f5 e6 0b |d)......|...:....|
|00002c60| dd f2 74 79 70 65 35 0d | f5 f0 07 69 3d 30 0d f5 |..type5.|...i=0..|
|00002c70| fa 20 70 61 73 73 65 64 | 24 3d a4 73 74 72 69 70 |. passed|$=.strip|
|00002c80| 73 70 61 63 65 28 70 61 | 73 73 65 64 24 29 0d f6 |space(pa|ssed$)..|
|00002c90| 04 34 70 72 65 3d a4 70 | 72 65 63 28 c0 70 61 73 |.4pre=.p|rec(.pas|
|00002ca0| 73 65 64 24 2c 31 29 29 | 3a 70 61 73 73 65 64 24 |sed$,1))|:passed$|
|00002cb0| 3d a4 73 74 72 69 70 28 | 70 61 73 73 65 64 24 2c |=.strip(|passed$,|
|00002cc0| 31 29 0d f6 0e 37 72 6f | 75 6e 64 3d a4 72 6f 75 |1)...7ro|und=.rou|
|00002cd0| 6e 64 28 c0 70 61 73 73 | 65 64 24 2c 31 29 29 3a |nd(.pass|ed$,1)):|
|00002ce0| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 28 70 |passed$=|.strip(p|
|00002cf0| 61 73 73 65 64 24 2c 31 | 29 0d f6 18 35 70 61 73 |assed$,1|)...5pas|
|00002d00| 73 65 64 24 3d a4 73 74 | 72 69 70 73 70 61 63 65 |sed$=.st|ripspace|
|00002d10| 28 70 61 73 73 65 64 24 | 29 3a 64 61 74 61 3d a4 |(passed$|):data=.|
|00002d20| 67 65 74 46 6e 28 70 61 | 73 73 65 64 24 29 0d f6 |getFn(pa|ssed$)..|
|00002d30| 22 33 46 64 3d 64 61 74 | 61 20 83 20 32 35 36 3a |"3Fd=dat|a . 256:|
|00002d40| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 28 70 |passed$=|.strip(p|
|00002d50| 61 73 73 65 64 24 2c 64 | 61 74 61 20 81 32 35 36 |assed$,d|ata .256|
|00002d60| 29 0d f6 2c 20 70 61 73 | 73 65 64 24 3d a4 73 74 |).., pas|sed$=.st|
|00002d70| 72 69 70 73 70 61 63 65 | 28 70 61 73 73 65 64 24 |ripspace|(passed$|
|00002d80| 29 0d f6 36 38 e7 20 c0 | 70 61 73 73 65 64 24 2c |)..68. .|passed$,|
|00002d90| 31 29 3c 3e 22 2c 22 20 | 8c 20 85 20 66 70 65 72 |1)<>"," |. . fper|
|00002da0| 72 2c 22 4d 69 73 73 69 | 6e 67 20 2c 20 3a 22 2b |r,"Missi|ng , :"+|
|00002db0| 6f 72 69 67 69 6e 61 6c | 24 0d f6 40 3a 70 61 73 |original|$..@:pas|
|00002dc0| 73 65 64 24 3d a4 73 74 | 72 69 70 28 70 61 73 73 |sed$=.st|rip(pass|
|00002dd0| 65 64 24 2c 31 29 3a 70 | 61 73 73 65 64 24 3d a4 |ed$,1):p|assed$=.|
|00002de0| 73 74 72 69 70 73 70 61 | 63 65 28 70 61 73 73 65 |stripspa|ce(passe|
|00002df0| 64 24 29 0d f6 4a 35 e7 | 20 c0 70 61 73 73 65 64 |d$)..J5.| .passed|
|00002e00| 24 2c 31 29 3d 22 23 22 | 20 8c 20 69 3d 31 3a 70 |$,1)="#"| . i=1:p|
|00002e10| 61 73 73 65 64 24 3d a4 | 73 74 72 69 70 28 70 61 |assed$=.|strip(pa|
|00002e20| 73 73 65 64 24 2c 31 29 | 0d f6 54 35 70 61 73 73 |ssed$,1)|..T5pass|
|00002e30| 65 64 24 3d a4 73 74 72 | 69 70 73 70 61 63 65 28 |ed$=.str|ipspace(|
|00002e40| 70 61 73 73 65 64 24 29 | 3a 64 61 74 61 3d a4 67 |passed$)|:data=.g|
|00002e50| 65 74 46 6e 28 70 61 73 | 73 65 64 24 29 0d f6 5e |etFn(pas|sed$)..^|
|00002e60| 11 46 6d 3d 64 61 74 61 | 20 83 20 32 35 36 0d f6 |.Fm=data| . 256..|
|00002e70| 68 32 77 72 69 74 65 3d | a4 64 61 74 61 5f 6f 70 |h2write=|.data_op|
|00002e80| 74 6e 28 63 6f 6e 64 2c | 6f 70 63 2c 70 72 65 2c |tn(cond,|opc,pre,|
|00002e90| 72 6f 75 6e 64 2c 69 2c | 46 6d 2c 30 2c 46 64 29 |round,i,|Fm,0,Fd)|
|00002ea0| 0d f6 72 05 e1 0d f6 7c | 05 3a 0d f6 86 0b dd f2 |..r....||.:......|
|00002eb0| 74 79 70 65 36 0d f6 90 | 07 69 3d 30 0d f6 9a 20 |type6...|.i=0... |
|00002ec0| 70 61 73 73 65 64 24 3d | a4 73 74 72 69 70 73 70 |passed$=|.stripsp|
|00002ed0| 61 63 65 28 70 61 73 73 | 65 64 24 29 0d f6 a4 18 |ace(pass|ed$)....|
|00002ee0| 64 61 74 61 3d a4 67 65 | 74 46 6e 28 70 61 73 73 |data=.ge|tFn(pass|
|00002ef0| 65 64 24 29 0d f6 ae 33 | 46 6e 3d 64 61 74 61 20 |ed$)...3|Fn=data |
|00002f00| 83 20 32 35 36 3a 70 61 | 73 73 65 64 24 3d a4 73 |. 256:pa|ssed$=.s|
|00002f10| 74 72 69 70 28 70 61 73 | 73 65 64 24 2c 64 61 74 |trip(pas|sed$,dat|
|00002f20| 61 20 81 32 35 36 29 0d | f6 b8 20 70 61 73 73 65 |a .256).|.. passe|
|00002f30| 64 24 3d a4 73 74 72 69 | 70 73 70 61 63 65 28 70 |d$=.stri|pspace(p|
|00002f40| 61 73 73 65 64 24 29 0d | f6 c2 38 e7 20 c0 70 61 |assed$).|..8. .pa|
|00002f50| 73 73 65 64 24 2c 31 29 | 3c 3e 22 2c 22 20 8c 20 |ssed$,1)|<>"," . |
|00002f60| 85 20 66 70 65 72 72 2c | 22 4d 69 73 73 69 6e 67 |. fperr,|"Missing|
|00002f70| 20 2c 20 3a 22 2b 6f 72 | 69 67 69 6e 61 6c 24 0d | , :"+or|iginal$.|
|00002f80| f6 cc 3a 70 61 73 73 65 | 64 24 3d a4 73 74 72 69 |..:passe|d$=.stri|
|00002f90| 70 28 70 61 73 73 65 64 | 24 2c 31 29 3a 70 61 73 |p(passed|$,1):pas|
|00002fa0| 73 65 64 24 3d a4 73 74 | 72 69 70 73 70 61 63 65 |sed$=.st|ripspace|
|00002fb0| 28 70 61 73 73 65 64 24 | 29 0d f6 d6 35 e7 20 c0 |(passed$|)...5. .|
|00002fc0| 70 61 73 73 65 64 24 2c | 31 29 3d 22 23 22 20 8c |passed$,|1)="#" .|
|00002fd0| 20 69 3d 31 3a 70 61 73 | 73 65 64 24 3d a4 73 74 | i=1:pas|sed$=.st|
|00002fe0| 72 69 70 28 70 61 73 73 | 65 64 24 2c 31 29 0d f6 |rip(pass|ed$,1)..|
|00002ff0| e0 18 64 61 74 61 3d a4 | 67 65 74 46 6e 28 70 61 |..data=.|getFn(pa|
|00003000| 73 73 65 64 24 29 0d f6 | ea 11 46 6d 3d 64 61 74 |ssed$)..|..Fm=dat|
|00003010| 61 20 83 20 32 35 36 0d | f6 f4 26 77 72 69 74 65 |a . 256.|..&write|
|00003020| 3d a4 73 74 61 74 5f 74 | 72 61 6e 28 63 6f 6e 64 |=.stat_t|ran(cond|
|00003030| 2c 6f 70 63 2c 69 2c 46 | 6d 2c 46 6e 29 0d f6 fe |,opc,i,F|m,Fn)...|
|00003040| 05 e1 0d f7 08 05 3a 0d | f7 12 1a dd f2 68 65 6c |......:.|.....hel|
|00003050| 70 32 28 76 6f 70 63 6f | 64 65 2c 76 74 79 70 65 |p2(vopco|de,vtype|
|00003060| 29 0d f7 1c 1e f1 27 22 | 4f 50 43 4f 44 45 20 3a |).....'"|OPCODE :|
|00003070| 22 3b 6f 70 63 24 28 76 | 6f 70 63 6f 64 65 29 0d |";opc$(v|opcode).|
|00003080| f7 26 16 f1 22 4f 70 63 | 6f 64 65 20 66 6f 72 6d |.&.."Opc|ode form|
|00003090| 61 74 3a 22 3b 0d f7 30 | 0e c8 8e 20 76 74 79 70 |at:";..0|... vtyp|
|000030a0| 65 20 ca 0d f7 3a 4a c9 | 20 30 3a f1 22 6f 70 63 |e ...:J.| 0:."opc|
|000030b0| 3c 63 6f 6e 64 3e 70 72 | 65 63 20 46 64 2c 61 64 |<cond>pr|ec Fd,ad|
|000030c0| 64 72 20 77 68 65 72 65 | 20 61 64 64 72 20 69 73 |dr where| addr is|
|000030d0| 20 5b 52 6e 5d 3c 2c 23 | 6f 66 66 3e 20 4f 52 20 | [Rn]<,#|off> OR |
|000030e0| 5b 52 6e 2c 23 6f 66 66 | 5d 3c 21 3e 22 0d f7 44 |[Rn,#off|]<!>"..D|
|000030f0| 30 c9 20 31 3a f1 22 46 | 4c 54 3c 63 6f 6e 64 3e |0. 1:."F|LT<cond>|
|00003100| 70 72 65 63 3c 72 6f 75 | 6e 64 3e 20 46 6e 2c 28 |prec<rou|nd> Fn,(|
|00003110| 52 64 20 7c 20 23 76 61 | 6c 75 65 29 22 0d f7 4e |Rd | #va|lue)"..N|
|00003120| 25 c9 20 32 3a f1 22 46 | 49 58 3c 63 6f 6e 64 3e |%. 2:."F|IX<cond>|
|00003130| 70 72 65 63 3c 72 6f 75 | 6e 64 3e 20 52 64 2c 46 |prec<rou|nd> Rd,F|
|00003140| 6d 22 0d f7 58 17 c9 20 | 33 3a f1 22 6f 70 63 3c |m"..X.. |3:."opc<|
|00003150| 63 6f 6e 64 3e 20 52 64 | 22 0d f7 62 33 c9 20 34 |cond> Rd|"..b3. 4|
|00003160| 3a f1 22 6f 70 63 3c 63 | 6f 6e 64 3e 70 72 65 63 |:."opc<c|ond>prec|
|00003170| 3c 72 6f 75 6e 64 3e 20 | 46 64 2c 46 6e 2c 28 46 |<round> |Fd,Fn,(F|
|00003180| 6d 20 7c 20 23 76 61 6c | 75 65 29 22 0d f7 6c 30 |m | #val|ue)"..l0|
|00003190| c9 20 35 3a f1 22 6f 70 | 63 3c 63 6f 6e 64 3e 70 |. 5:."op|c<cond>p|
|000031a0| 72 65 63 3c 72 6f 75 6e | 64 3e 20 46 64 2c 28 46 |rec<roun|d> Fd,(F|
|000031b0| 6d 20 7c 20 23 76 61 6c | 75 65 29 22 0d f7 76 1a |m | #val|ue)"..v.|
|000031c0| c9 20 36 3a f1 22 6f 70 | 63 3c 63 6f 6e 64 3e 20 |. 6:."op|c<cond> |
|000031d0| 46 6e 2c 46 6d 22 0d f7 | 80 05 cb 0d f7 8a 27 f1 |Fn,Fm"..|......'.|
|000031e0| 22 53 70 65 63 69 66 69 | 63 20 75 73 61 67 65 20 |"Specifi|c usage |
|000031f0| 3a 22 3b 75 73 61 67 65 | 24 28 76 6f 70 63 6f 64 |:";usage|$(vopcod|
|00003200| 65 29 0d f7 94 05 e1 0d | f7 9e 05 3a 0d f7 a8 17 |e)......|...:....|
|00003210| dd f2 68 65 6c 70 5f 6f | 70 63 28 6f 70 63 6f 64 |..help_o|pc(opcod|
|00003220| 65 24 29 0d f7 b2 1e f1 | 22 48 65 6c 70 20 6f 6e |e$).....|"Help on|
|00003230| 20 4f 50 43 4f 44 45 3a | 22 3b 6f 70 63 6f 64 65 | OPCODE:|";opcode|
|00003240| 24 0d f7 bc 13 73 75 62 | 3d 2d 31 3a f5 3a 73 75 |$....sub|=-1:.:su|
|00003250| 62 2b 3d 31 0d f7 c6 22 | 63 68 6b 24 3d 6f 70 63 |b+=1..."|chk$=opc|
|00003260| 24 28 73 75 62 29 3a 74 | 79 70 65 3d 74 79 70 65 |$(sub):t|ype=type|
|00003270| 76 28 73 75 62 29 0d f7 | d0 26 e7 20 6f 70 63 6f |v(sub)..|.&. opco|
|00003280| 64 65 24 3d 22 41 4c 4c | 22 20 8c 20 f2 68 65 6c |de$="ALL|" . .hel|
|00003290| 70 32 28 73 75 62 2c 74 | 79 70 65 29 0d f7 da 1f |p2(sub,t|ype)....|
|000032a0| fd 20 63 68 6b 24 3d 6f | 70 63 6f 64 65 24 20 84 |. chk$=o|pcode$ .|
|000032b0| 20 63 68 6b 24 3d 22 54 | 4a 43 22 0d f7 e4 16 e7 | chk$="T|JC".....|
|000032c0| 20 6f 70 63 6f 64 65 24 | 3c 3e 22 41 4c 4c 22 20 | opcode$|<>"ALL" |
|000032d0| 8c 0d f7 ee 34 e7 20 63 | 68 6b 24 3d 22 54 4a 43 |....4. c|hk$="TJC|
|000032e0| 22 20 8c 20 85 20 66 70 | 65 72 72 2c 22 55 6e 6b |" . . fp|err,"Unk|
|000032f0| 6e 6f 77 6e 20 4f 70 63 | 6f 64 65 20 22 2b 6f 70 |nown Opc|ode "+op|
|00003300| 63 6f 64 65 24 0d f7 f8 | 14 f2 68 65 6c 70 32 28 |code$...|..help2(|
|00003310| 73 75 62 2c 74 79 70 65 | 29 0d f8 02 05 cd 0d f8 |sub,type|).......|
|00003320| 0c 05 e1 0d f8 16 05 3a | 0d f8 20 0d dd f2 6c 69 |.......:|.. ...li|
|00003330| 73 74 61 6c 6c 0d f8 2a | 13 73 75 62 3d 2d 31 3a |stall..*|.sub=-1:|
|00003340| f5 3a 73 75 62 2b 3d 31 | 0d f8 34 10 dd f2 68 65 |.:sub+=1|..4...he|
|00003350| 6c 70 5f 72 6f 75 6e 64 | 0d f8 3e 17 f1 27 22 52 |lp_round|..>..'"R|
|00003360| 6f 75 6e 64 69 6e 67 20 | 6d 6f 64 65 73 3a 22 0d |ounding |modes:".|
|00003370| f8 48 1c f1 27 22 4d 6f | 64 65 20 20 20 20 20 20 |.H..'"Mo|de      |
|00003380| 20 20 20 20 4c 65 74 74 | 65 72 22 0d f8 52 0e f1 |    Lett|er"..R..|
|00003390| 22 4e 65 61 72 65 73 74 | 22 0d f8 5c 19 f1 22 50 |"Nearest|"..\.."P|
|000033a0| 6c 75 73 20 69 6e 66 69 | 6e 69 74 79 20 20 20 20 |lus infi|nity    |
|000033b0| 50 22 0d f8 66 19 f1 22 | 4d 69 6e 75 73 20 69 6e |P"..f.."|Minus in|
|000033c0| 66 69 6e 69 74 79 20 20 | 20 4d 22 0d f8 70 19 f1 |finity  | M"..p..|
|000033d0| 22 5a 65 72 6f 20 20 20 | 20 20 20 20 20 20 20 20 |"Zero   |        |
|000033e0| 20 20 5a 22 0d f8 7a 05 | f1 0d f8 84 05 e1 0d f8 |  Z"..z.|........|
|000033f0| 8e 05 3a 0d f8 98 10 dd | f2 68 65 6c 70 5f 63 6f |..:.....|.help_co|
|00003400| 6e 73 74 0d f8 a2 16 f1 | 27 22 46 6d 20 63 6f 6e |nst.....|'"Fm con|
|00003410| 73 74 61 6e 74 73 20 3a | 22 0d f8 ac 1c f1 27 22 |stants :|".....'"|
|00003420| 56 61 6c 75 65 20 20 20 | 20 20 20 20 46 6d 20 56 |Value   |    Fm V|
|00003430| 61 6c 75 65 22 0d f8 b6 | 18 f1 22 30 2e 30 20 20 |alue"...|.."0.0  |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 30 22 0d f8 c0 |        |   0"...|
|00003450| 18 f1 22 31 2e 30 20 20 | 20 20 20 20 20 20 20 20 |.."1.0  |        |
|00003460| 20 20 20 31 22 0d f8 ca | 18 f1 22 32 2e 30 20 20 |   1"...|.."2.0  |
|00003470| 20 20 20 20 20 20 20 20 | 20 20 20 32 22 0d f8 d4 |        |   2"...|
|00003480| 18 f1 22 33 2e 30 20 20 | 20 20 20 20 20 20 20 20 |.."3.0  |        |
|00003490| 20 20 20 33 22 0d f8 de | 18 f1 22 34 2e 30 20 20 |   3"...|.."4.0  |
|000034a0| 20 20 20 20 20 20 20 20 | 20 20 20 34 22 0d f8 e8 |        |   4"...|
|000034b0| 18 f1 22 35 2e 30 20 20 | 20 20 20 20 20 20 20 20 |.."5.0  |        |
|000034c0| 20 20 20 35 22 0d f8 f2 | 18 f1 22 30 2e 35 20 20 |   5"...|.."0.5  |
|000034d0| 20 20 20 20 20 20 20 20 | 20 20 20 36 22 0d f8 fc |        |   6"...|
|000034e0| 18 f1 22 31 30 2e 30 20 | 20 20 20 20 20 20 20 20 |.."10.0 |        |
|000034f0| 20 20 20 37 22 0d f9 06 | 05 f1 0d f9 10 05 e1 0d |   7"...|........|
|00003500| f9 1a 05 3a 0d f9 24 0f | dd f2 68 65 6c 70 5f 70 |...:..$.|..help_p|
|00003510| 72 65 63 0d f9 2e 18 f1 | 27 22 50 72 65 63 69 73 |rec.....|'"Precis|
|00003520| 69 6f 6e 20 6d 6f 64 65 | 73 3a 22 0d f9 38 20 f1 |ion mode|s:"..8 .|
|00003530| 27 22 50 72 65 63 69 73 | 69 6f 6e 20 20 20 20 20 |'"Precis|ion     |
|00003540| 20 20 20 20 4c 65 74 74 | 65 72 22 0d f9 42 1d f1 |    Lett|er"..B..|
|00003550| 22 53 69 6e 67 6c 65 20 | 20 20 20 20 20 20 20 20 |"Single |        |
|00003560| 20 20 20 20 20 20 53 22 | 0d f9 4c 1d f1 22 44 6f |      S"|..L.."Do|
|00003570| 75 62 6c 65 20 20 20 20 | 20 20 20 20 20 20 20 20 |uble    |        |
|00003580| 20 20 20 44 22 0d f9 56 | 1d f1 22 45 78 74 65 6e |   D"..V|.."Exten|
|00003590| 64 65 64 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ded     |        |
|000035a0| 45 22 0d f9 60 1d f1 22 | 50 61 63 6b 65 64 20 42 |E"..`.."|Packed B|
|000035b0| 43 44 20 20 20 20 20 20 | 20 20 20 20 20 50 22 0d |CD      |     P".|
|000035c0| f9 6a 05 f1 0d f9 74 05 | e1 0d f9 7e 0e dd f2 68 |.j....t.|...~...h|
|000035d0| 65 6c 70 5f 66 70 65 0d | f9 88 0f e3 49 3d 31 b8 |elp_fpe.|....I=1.|
|000035e0| 31 30 3a f1 3a ed 0d f9 | 92 33 f1 27 22 46 6c 6f |10:.:...|.3.'"Flo|
|000035f0| 61 74 69 6e 67 20 50 6f | 69 6e 74 20 45 6e 63 6f |ating Po|int Enco|
|00003600| 64 65 72 20 28 43 29 20 | 54 4a 20 43 68 61 70 70 |der (C) |TJ Chapp|
|00003610| 65 6c 6c 20 31 39 38 38 | 22 0d f9 9c 35 f1 27 22 |ell 1988|"...5.'"|
|00003620| 49 6e 63 6c 75 64 65 20 | 46 50 20 49 6e 73 74 72 |Include |FP Instr|
|00003630| 75 63 74 69 6f 6e 73 20 | 69 6e 20 74 68 65 20 66 |uctions |in the f|
|00003640| 6f 6c 6c 6f 77 69 6e 67 | 20 77 61 79 3a 22 0d f9 |ollowing| way:"..|
|00003650| a6 31 f1 22 45 51 55 44 | 20 46 4e 64 65 63 6f 64 |.1."EQUD| FNdecod|
|00003660| 65 28 22 2b bd 33 34 2b | 22 4d 56 46 41 4c 45 20 |e("+.34+|"MVFALE |
|00003670| 20 46 30 2c 46 32 22 2b | bd 33 34 2b 22 29 22 0d | F0,F2"+|.34+")".|
|00003680| f9 b0 05 f1 0d f9 ba 3c | f1 27 22 46 75 72 74 68 |.......<|.'"Furth|
|00003690| 65 72 20 70 72 6f 63 65 | 64 75 72 65 73 20 61 72 |er proce|dures ar|
|000036a0| 65 20 61 76 61 69 6c 61 | 62 6c 65 20 66 6f 72 20 |e availa|ble for |
|000036b0| 65 78 70 6c 69 63 69 74 | 20 68 65 6c 70 20 3a 22 |explicit| help :"|
|000036c0| 0d f9 c4 33 f1 27 22 50 | 52 4f 43 68 65 6c 70 5f |...3.'"P|ROChelp_|
|000036d0| 70 72 65 63 20 66 6f 72 | 20 68 65 6c 70 20 6f 6e |prec for| help on|
|000036e0| 20 50 52 45 43 49 53 49 | 4f 4e 20 6f 70 74 69 6f | PRECISI|ON optio|
|000036f0| 6e 73 22 0d f9 ce 32 f1 | 22 50 52 4f 43 68 65 6c |ns"...2.|"PROChel|
|00003700| 70 5f 72 6f 75 6e 64 20 | 66 6f 72 20 68 65 6c 70 |p_round |for help|
|00003710| 20 6f 6e 20 52 4f 55 4e | 44 49 4e 47 20 6f 70 74 | on ROUN|DING opt|
|00003720| 69 6f 6e 73 22 0d f9 d8 | 32 f1 22 50 52 4f 43 68 |ions"...|2."PROCh|
|00003730| 65 6c 70 5f 63 6f 6e 73 | 74 20 66 6f 72 20 68 65 |elp_cons|t for he|
|00003740| 6c 70 20 6f 6e 20 43 4f | 4e 53 54 41 4e 54 20 6f |lp on CO|NSTANT o|
|00003750| 70 74 69 6f 6e 73 22 0d | f9 e2 43 f1 22 50 52 4f |ptions".|..C."PRO|
|00003760| 43 68 65 6c 70 5f 6f 70 | 63 28 22 2b bd 33 34 2b |Chelp_op|c("+.34+|
|00003770| 22 4f 50 43 22 2b bd 33 | 34 2b 22 29 20 66 6f 72 |"OPC"+.3|4+") for|
|00003780| 20 68 65 6c 70 20 6f 6e | 20 73 70 65 63 69 66 69 | help on| specifi|
|00003790| 63 20 4f 50 43 4f 44 45 | 53 22 0d f9 ec 48 f1 22 |c OPCODE|S"...H."|
|000037a0| 4e 2e 42 2e 20 50 52 4f | 43 5f 66 70 5f 69 6e 69 |N.B. PRO|C_fp_ini|
|000037b0| 74 20 4d 55 53 54 20 62 | 65 20 63 61 6c 6c 65 64 |t MUST b|e called|
|000037c0| 20 62 65 66 6f 72 65 20 | 74 68 69 73 20 68 65 6c | before |this hel|
|000037d0| 70 20 72 6f 75 74 69 6e | 65 20 69 73 20 75 73 65 |p routin|e is use|
|000037e0| 64 22 0d f9 f6 4c f1 22 | 20 20 20 20 20 4f 50 43 |d"...L."|     OPC|
|000037f0| 20 2d 20 61 20 33 20 6c | 65 74 74 65 72 20 6f 70 | - a 3 l|etter op|
|00003800| 63 6f 64 65 20 65 2e 67 | 2e 20 4c 44 46 2c 50 4f |code e.g|. LDF,PO|
|00003810| 57 2c 43 4d 45 20 6f 72 | 20 41 4c 4c 20 66 6f 72 |W,CME or| ALL for|
|00003820| 20 66 75 6c 6c 20 64 65 | 74 61 69 6c 73 22 0d fa | full de|tails"..|
|00003830| 00 4c f1 27 27 22 41 6c | 73 6f 20 72 65 66 65 72 |.L.''"Al|so refer|
|00003840| 20 74 6f 20 50 72 6f 67 | 72 61 6d 6d 65 72 73 20 | to Prog|rammers |
|00003850| 52 65 66 65 72 65 6e 63 | 65 20 47 75 69 64 65 20 |Referenc|e Guide |
|00003860| 50 61 72 74 32 20 66 6f | 72 20 66 75 72 74 68 65 |Part2 fo|r furthe|
|00003870| 72 20 64 65 74 61 69 6c | 73 22 0d fa 0a 05 e1 0d |r detail|s"......|
|00003880| fa 14 05 3a 0d fa 1e 17 | dc 20 4c 44 46 2c 31 2c |...:....|. LDF,1,|
|00003890| 30 2c 46 64 3d 28 61 64 | 64 72 29 0d fa 28 17 dc |0,Fd=(ad|dr)..(..|
|000038a0| 20 53 54 46 2c 30 2c 30 | 2c 28 61 64 64 72 29 3d | STF,0,0|,(addr)=|
|000038b0| 46 64 0d fa 32 23 dc 20 | 46 4c 54 2c 30 2c 31 2c |Fd..2#. |FLT,0,1,|
|000038c0| 46 6e 3a 3d 52 64 28 6f | 72 20 46 6e 3a 3d 23 76 |Fn:=Rd(o|r Fn:=#v|
|000038d0| 61 6c 75 65 29 0d fa 3c | 14 dc 20 46 49 58 2c 31 |alue)..<|.. FIX,1|
|000038e0| 2c 32 2c 52 64 3a 3d 46 | 6d 0d fa 46 16 dc 20 57 |,2,Rd:=F|m..F.. W|
|000038f0| 46 53 2c 32 2c 33 2c 46 | 50 53 52 3a 3d 52 64 0d |FS,2,3,F|PSR:=Rd.|
|00003900| fa 50 16 dc 20 52 46 53 | 2c 33 2c 33 2c 52 64 3a |.P.. RFS|,3,3,Rd:|
|00003910| 3d 46 50 53 52 0d fa 5a | 25 dc 20 57 46 43 2c 34 |=FPSR..Z|%. WFC,4|
|00003920| 2c 33 2c 46 50 43 3a 3d | 52 64 20 53 75 70 65 72 |,3,FPC:=|Rd Super|
|00003930| 76 69 73 6f 72 20 4f 6e | 6c 79 0d fa 64 25 dc 20 |visor On|ly..d%. |
|00003940| 52 46 43 2c 35 2c 33 2c | 52 64 3a 3d 46 50 43 20 |RFC,5,3,|Rd:=FPC |
|00003950| 53 75 70 65 72 76 69 73 | 6f 72 20 4f 6e 6c 79 0d |Supervis|or Only.|
|00003960| fa 6e 19 dc 20 41 44 46 | 2c 30 2c 34 2c 46 64 3a |.n.. ADF|,0,4,Fd:|
|00003970| 3d 46 6e 20 2b 20 46 6d | 0d fa 78 19 dc 20 4d 55 |=Fn + Fm|..x.. MU|
|00003980| 46 2c 32 2c 34 2c 46 64 | 3a 3d 46 6e 20 2a 20 46 |F,2,4,Fd|:=Fn * F|
|00003990| 6d 0d fa 82 19 dc 20 53 | 55 46 2c 34 2c 34 2c 46 |m..... S|UF,4,4,F|
|000039a0| 64 3a 3d 46 6e 20 2d 20 | 46 6d 0d fa 8c 19 dc 20 |d:=Fn - |Fm..... |
|000039b0| 52 53 46 2c 36 2c 34 2c | 46 64 3a 3d 46 6d 20 2d |RSF,6,4,|Fd:=Fm -|
|000039c0| 20 46 6e 0d fa 96 19 dc | 20 44 56 46 2c 38 2c 34 | Fn.....| DVF,8,4|
|000039d0| 2c 46 64 3a 3d 46 6e 20 | 2f 20 46 6d 0d fa a0 1a |,Fd:=Fn |/ Fm....|
|000039e0| dc 20 52 44 46 2c 31 30 | 2c 34 2c 46 64 3a 3d 46 |. RDF,10|,4,Fd:=F|
|000039f0| 6d 20 2f 20 46 6e 0d fa | aa 28 dc 20 50 4f 57 2c |m / Fn..|.(. POW,|
|00003a00| 31 32 2c 34 2c 46 64 3a | 3d 46 6e 20 74 6f 20 74 |12,4,Fd:|=Fn to t|
|00003a10| 68 65 20 70 6f 77 65 72 | 20 6f 66 20 46 6d 0d fa |he power| of Fm..|
|00003a20| b4 28 dc 20 52 50 57 2c | 31 34 2c 34 2c 46 64 3a |.(. RPW,|14,4,Fd:|
|00003a30| 3d 46 6d 20 74 6f 20 74 | 68 65 20 70 6f 77 65 72 |=Fm to t|he power|
|00003a40| 20 6f 66 20 46 6e 0d fa | be 25 dc 20 52 4d 46 2c | of Fn..|.%. RMF,|
|00003a50| 31 36 2c 34 2c 46 64 3a | 3d 72 65 6d 61 69 6e 64 |16,4,Fd:|=remaind|
|00003a60| 65 72 20 6f 66 20 46 6e | 2f 46 6d 0d fa c8 21 dc |er of Fn|/Fm...!.|
|00003a70| 20 46 4d 4c 2c 31 38 2c | 34 2c 46 64 3a 3d 46 6e | FML,18,|4,Fd:=Fn|
|00003a80| 20 2a 20 46 6d 20 28 66 | 61 73 74 29 0d fa d2 21 | * Fm (f|ast)...!|
|00003a90| dc 20 46 44 56 2c 32 30 | 2c 34 2c 46 64 3a 3d 46 |. FDV,20|,4,Fd:=F|
|00003aa0| 6e 20 2f 20 46 6d 20 28 | 66 61 73 74 29 0d fa dc |n / Fm (|fast)...|
|00003ab0| 21 dc 20 46 52 44 2c 32 | 32 2c 34 2c 46 64 3a 3d |!. FRD,2|2,4,Fd:=|
|00003ac0| 46 6d 20 2f 20 46 6e 20 | 28 66 61 73 74 29 0d fa |Fm / Fn |(fast)..|
|00003ad0| e6 2a dc 20 50 4f 4c 2c | 32 34 2c 34 2c 22 46 64 |.*. POL,|24,4,"Fd|
|00003ae0| 3a 3d 20 70 6f 6c 61 72 | 20 61 6e 67 6c 65 20 6f |:= polar| angle o|
|00003af0| 66 20 46 6e 2c 46 6d 22 | 0d fa f0 14 dc 20 4d 56 |f Fn,Fm"|..... MV|
|00003b00| 46 2c 31 2c 35 2c 46 64 | 3a 3d 46 6d 0d fa fa 15 |F,1,5,Fd|:=Fm....|
|00003b10| dc 20 4d 4e 46 2c 33 2c | 35 2c 46 64 3a 3d 2d 46 |. MNF,3,|5,Fd:=-F|
|00003b20| 6d 0d fb 04 19 dc 20 41 | 42 53 2c 35 2c 35 2c 46 |m..... A|BS,5,5,F|
|00003b30| 64 3a 3d 41 42 53 28 46 | 6d 29 0d fb 0e 19 dc 20 |d:=ABS(F|m)..... |
|00003b40| 52 4e 44 2c 37 2c 35 2c | 46 64 3a 3d 49 4e 54 28 |RND,7,5,|Fd:=INT(|
|00003b50| 46 6d 29 0d fb 18 19 dc | 20 53 51 54 2c 39 2c 35 |Fm).....| SQT,9,5|
|00003b60| 2c 46 64 3a 3d 53 51 52 | 28 46 6d 29 0d fb 22 1a |,Fd:=SQR|(Fm)..".|
|00003b70| dc 20 4c 4f 47 2c 31 31 | 2c 35 2c 46 64 3a 3d 4c |. LOG,11|,5,Fd:=L|
|00003b80| 4f 47 28 46 6d 29 0d fb | 2c 19 dc 20 4c 47 4e 2c |OG(Fm)..|,.. LGN,|
|00003b90| 31 33 2c 35 2c 46 64 3a | 3d 4c 4e 28 46 6d 29 0d |13,5,Fd:|=LN(Fm).|
|00003ba0| fb 36 1a dc 20 45 58 50 | 2c 31 35 2c 35 2c 46 64 |.6.. EXP|,15,5,Fd|
|00003bb0| 3a 3d 45 58 50 28 46 6d | 29 0d fb 40 1a dc 20 53 |:=EXP(Fm|)..@.. S|
|00003bc0| 49 4e 2c 31 37 2c 35 2c | 46 64 3a 3d 53 49 4e 28 |IN,17,5,|Fd:=SIN(|
|00003bd0| 46 6d 29 0d fb 4a 1a dc | 20 43 4f 53 2c 31 39 2c |Fm)..J..| COS,19,|
|00003be0| 35 2c 46 64 3a 3d 43 4f | 53 28 46 6d 29 0d fb 54 |5,Fd:=CO|S(Fm)..T|
|00003bf0| 1a dc 20 54 41 4e 2c 32 | 31 2c 35 2c 46 64 3a 3d |.. TAN,2|1,5,Fd:=|
|00003c00| 54 41 4e 28 46 6d 29 0d | fb 5e 1a dc 20 41 53 4e |TAN(Fm).|.^.. ASN|
|00003c10| 2c 32 33 2c 35 2c 46 64 | 3a 3d 41 53 4e 28 46 6d |,23,5,Fd|:=ASN(Fm|
|00003c20| 29 0d fb 68 1a dc 20 41 | 43 53 2c 32 35 2c 35 2c |)..h.. A|CS,25,5,|
|00003c30| 46 64 3a 3d 41 43 53 28 | 46 6d 29 0d fb 72 1a dc |Fd:=ACS(|Fm)..r..|
|00003c40| 20 41 54 4e 2c 32 37 2c | 35 2c 46 64 3a 3d 41 54 | ATN,27,|5,Fd:=AT|
|00003c50| 4e 28 46 6d 29 0d fb 7c | 31 dc 20 43 4d 46 2c 36 |N(Fm)..||1. CMF,6|
|00003c60| 34 2c 36 2c 22 43 6f 6d | 70 61 72 65 20 46 6e 20 |4,6,"Com|pare Fn |
|00003c70| 77 69 74 68 20 46 6d 20 | 28 66 6f 72 20 42 45 51 |with Fm |(for BEQ|
|00003c80| 2c 42 4e 45 29 22 0d fb | 86 39 dc 20 43 4d 45 2c |,BNE)"..|.9. CME,|
|00003c90| 39 36 2c 36 2c 22 43 6f | 6d 70 61 72 65 20 46 6e |96,6,"Co|mpare Fn|
|00003ca0| 20 77 69 74 68 20 46 6d | 20 28 66 6f 72 20 42 47 | with Fm| (for BG|
|00003cb0| 45 2c 42 47 54 2c 42 4c | 54 2c 42 4c 45 29 22 0d |E,BGT,BL|T,BLE)".|
|00003cc0| fb 90 32 dc 20 43 4e 46 | 2c 38 30 2c 36 2c 22 43 |..2. CNF|,80,6,"C|
|00003cd0| 6f 6d 70 61 72 65 20 46 | 6e 20 77 69 74 68 20 2d |ompare F|n with -|
|00003ce0| 46 6d 20 28 66 6f 72 20 | 42 45 51 2c 42 4e 45 29 |Fm (for |BEQ,BNE)|
|00003cf0| 22 0d fb 9a 3b dc 20 43 | 4e 45 2c 31 31 32 2c 36 |"...;. C|NE,112,6|
|00003d00| 2c 22 43 6f 6d 70 61 72 | 65 20 46 6e 20 77 69 74 |,"Compar|e Fn wit|
|00003d10| 68 20 2d 46 6d 20 28 66 | 6f 72 20 42 47 45 2c 42 |h -Fm (f|or BGE,B|
|00003d20| 47 54 2c 42 4c 54 2c 42 | 4c 45 29 22 0d fb a4 28 |GT,BLT,B|LE)"...(|
|00003d30| dc 20 54 4a 43 2c 32 31 | 33 2c 36 39 2c 28 43 29 |. TJC,21|3,69,(C)|
|00003d40| 54 4a 20 43 68 61 70 70 | 65 6c 6c 20 53 65 70 20 |TJ Chapp|ell Sep |
|00003d50| 31 39 38 38 0d ff 46 69 | 6c 65 44 61 74 61 82 54 |1988..Fi|leData.T|
|00003d60| 65 6d 70 6c 61 74 65 73 | 00 00 02 02 00 00 42 ec |emplates|......B.|
|00003d70| ff ff 93 1b 5f 01 03 00 | 92 87 ff ff ff ff 00 00 |...._...|........|
|00003d80| 00 00 00 00 00 00 00 00 | 00 00 2c 00 00 00 d6 01 |........|..,.....|
|00003d90| 00 00 01 00 00 00 57 69 | 6e 64 6f 77 0d 00 00 00 |......Wi|ndow....|
|00003da0| 00 00 00 00 00 00 2a 01 | 00 00 c0 00 00 00 e6 03 |......*.|........|
|00003db0| 00 00 50 02 00 00 00 00 | 00 00 00 00 00 00 4c 07 |..P.....|......L.|
|00003dc0| 00 00 12 00 07 87 07 02 | 07 00 03 01 0c 00 00 00 |........|........|
|00003dd0| 00 00 70 fe ff ff bc 02 | 00 00 00 00 00 00 3d 01 |..p.....|......=.|
|00003de0| 00 00 00 00 00 00 01 00 | 00 00 00 00 00 00 18 01 |........|........|
|00003df0| 00 00 ff ff ff ff 20 00 | 00 00 06 00 00 00 03 01 |...... .|........|
|00003e00| 00 00 80 fe ff ff b9 01 | 00 00 ec fe ff ff 0b 61 |........|.......a|
|00003e10| 00 07 2f 01 00 00 36 01 | 00 00 0c 00 00 00 1a 00 |../...6.|........|
|00003e20| 00 00 d8 ff ff ff 6a 02 | 00 00 00 00 00 00 11 01 |......j.|........|
|00003e30| 00 c7 40 01 00 00 ff ff | ff ff 2d 00 00 00 1a 00 |..@.....|..-.....|
|00003e40| 00 00 b0 ff ff ff b6 03 | 00 00 d8 ff ff ff 11 01 |........|........|
|00003e50| 00 c7 63 01 00 00 ff ff | ff ff 3a 00 00 00 18 00 |..c.....|..:.....|
|00003e60| 00 00 78 ff ff ff 68 02 | 00 00 a0 ff ff ff 11 01 |..x...h.|........|
|00003e70| 00 c7 89 01 00 00 ff ff | ff ff 24 00 00 00 1a 00 |........|..$.....|
|00003e80| 00 00 50 ff ff ff 86 02 | 00 00 78 ff ff ff 11 01 |..P.....|..x.....|
|00003e90| 00 c7 ab 01 00 00 ff ff | ff ff 27 00 00 00 1c 00 |........|..'.....|
|00003ea0| 00 00 28 ff ff ff fa 00 | 00 00 50 ff ff ff 11 01 |..(.....|..P.....|
|00003eb0| 00 c7 d2 01 00 00 ff ff | ff ff 25 00 00 00 46 6c |........|..%...Fl|
|00003ec0| 6f 61 74 69 6e 67 20 50 | 6f 69 6e 74 20 4c 69 62 |oating P|oint Lib|
|00003ed0| 72 61 72 79 0d 46 50 45 | 76 31 30 0d 73 66 69 6c |rary.FPE|v10.sfil|
|00003ee0| 65 5f 66 66 62 0d 54 68 | 69 73 20 75 74 69 6c 69 |e_ffb.Th|is utili|
|00003ef0| 74 79 20 73 68 6f 75 6c | 64 20 62 65 20 63 6f 70 |ty shoul|d be cop|
|00003f00| 69 65 64 20 74 6f 20 61 | 0d 73 75 69 74 61 62 6c |ied to a|.suitabl|
|00003f10| 65 20 64 69 72 65 63 74 | 6f 72 79 20 6f 6e 20 79 |e direct|ory on y|
|00003f20| 6f 75 72 20 77 6f 72 6b | 20 64 69 73 63 2e 0d 54 |our work| disc..T|
|00003f30| 6f 20 64 6f 20 74 68 69 | 73 2c 20 6f 70 65 6e 20 |o do thi|s, open |
|00003f40| 61 20 76 69 65 77 65 72 | 20 66 6f 72 20 74 68 65 |a viewer| for the|
|00003f50| 0d 64 69 72 65 63 74 6f | 72 79 2c 20 61 6e 64 20 |.directo|ry, and |
|00003f60| 64 72 61 67 20 74 68 65 | 20 66 69 6c 65 20 69 63 |drag the| file ic|
|00003f70| 6f 6e 20 69 6e 74 6f 0d | 69 74 2e 0d             |on into.|it..    |
+--------+-------------------------+-------------------------+--------+--------+