home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|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 42 61 73 69 63 4c | 69 62 00 00 ff ff ff ff |.!BasicL|ib......|
|00000070| 45 fd ff ff 6c 6f cd 87 | 00 00 00 00 ff ff ff ff |E...lo..|........|
|00000080| 20 01 00 80 82 21 42 6f | 6f 74 00 00 00 00 00 00 | ....!Bo|ot......|
|00000090| 58 00 00 00 45 eb ff ff | 75 57 25 89 03 00 f4 08 |X...E...|uW%.....|
|000000a0| 58 00 00 00 24 00 00 00 | 82 21 48 65 6c 70 00 00 |X...$...|.!Help..|
|000000b0| 00 00 00 00 dd 0c 00 00 | 43 ff ff ff 6d 3c 7f 35 |........|C...m<.5|
|000000c0| 03 00 bd b4 dd 0c 00 00 | a0 00 00 00 82 21 52 75 |........|.....!Ru|
|000000d0| 6e 00 04 00 00 00 00 00 | 88 00 00 00 43 eb ff ff |n.......|....C...|
|000000e0| ba 4f 7c 35 03 00 8c 68 | 88 00 00 00 a1 0d 00 00 |.O|5...h|........|
|000000f0| 82 21 53 70 72 69 74 65 | 73 00 00 00 e4 03 00 00 |.!Sprite|s.......|
|00000100| 43 f9 ff ff c3 4b 92 29 | 03 00 4b d6 e4 03 00 00 |C....K.)|..K.....|
|00000110| 4d 0e 00 00 82 46 6c 6f | 61 74 41 73 73 00 00 00 |M....Flo|atAss...|
|00000120| e1 3b 00 00 43 fb ff ff | c9 91 7f 35 03 00 ad 55 |.;..C...|...5...U|
|00000130| e1 3b 00 00 55 12 00 00 | 82 46 6c 6f 61 74 43 69 |.;..U...|.FloatCi|
|00000140| 72 63 00 00 54 08 00 00 | 43 fb ff ff 68 c7 7f 35 |rc..T...|C...h..5|
|00000150| 03 00 10 b6 54 08 00 00 | 5a 4e 00 00 00 00 00 00 |....T...|ZN......|
|00000160| c4 00 04 00 00 00 00 00 | 9c 08 00 00 45 ff ff ff |........|....E...|
|00000170| ef f8 86 06 03 0c b9 fa | 70 05 00 00 00 00 00 00 |........|p.......|
|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 00 00 00 00 | 58 00 00 00 45 eb ff ff |ot......|X...E...|
|000001c0| 75 57 25 89 03 00 f4 08 | 49 63 6f 6e 53 70 72 69 |uW%.....|IconSpri|
|000001d0| 74 65 73 20 3c 4f 62 65 | 79 24 44 69 72 3e 2e 21 |tes <Obe|y$Dir>.!|
|000001e0| 53 70 72 69 74 65 73 0a | 7c 52 4d 4c 6f 61 64 20 |Sprites.||RMLoad |
|000001f0| 53 79 73 74 65 6d 3a 4d | 6f 64 75 6c 65 73 2e 46 |System:M|odules.F|
|00000200| 50 45 2a 0a 53 65 74 20 | 42 61 73 69 63 4c 69 62 |PE*.Set |BasicLib|
|00000210| 24 44 69 72 20 3c 4f 62 | 65 79 24 44 69 72 3e 0a |$Dir <Ob|ey$Dir>.|
|00000220| 46 69 6c 65 44 61 74 61 | 82 21 48 65 6c 70 00 00 |FileData|.!Help..|
|00000230| 00 00 00 00 dd 0c 00 00 | 43 ff ff ff 6d 3c 7f 35 |........|C...m<.5|
|00000240| 03 00 bd b4 3e 20 3c 42 | 61 73 69 63 4c 69 62 24 |....> <B|asicLib$|
|00000250| 44 69 72 3e 2e 21 48 65 | 6c 70 0a 0a 20 20 54 68 |Dir>.!He|lp.. Th|
|00000260| 65 20 66 6c 6f 61 74 69 | 6e 67 20 70 6f 69 6e 74 |e floati|ng point|
|00000270| 20 61 73 73 65 6d 62 6c | 65 72 20 46 6c 6f 61 74 | assembl|er Float|
|00000280| 41 73 73 20 67 69 76 65 | 73 20 61 63 63 65 73 73 |Ass give|s access|
|00000290| 20 74 6f 20 66 6c 6f 61 | 74 69 6e 67 2d 70 6f 69 | to floa|ting-poi|
|000002a0| 6e 74 0a 61 73 73 65 6d | 62 6c 65 72 20 6d 6e 65 |nt.assem|bler mne|
|000002b0| 6d 6f 6e 69 63 73 20 66 | 72 6f 6d 20 74 68 65 20 |monics f|rom the |
|000002c0| 42 61 73 69 63 20 61 73 | 73 65 6d 62 6c 65 72 2e |Basic as|sembler.|
|000002d0| 20 49 74 20 73 68 6f 75 | 6c 64 20 62 65 20 69 6e | It shou|ld be in|
|000002e0| 73 74 61 6c 6c 65 64 20 | 77 69 74 68 0a 4c 49 42 |stalled |with.LIB|
|000002f0| 52 41 52 59 20 22 3c 42 | 61 73 69 63 4c 69 62 24 |RARY "<B|asicLib$|
|00000300| 44 69 72 3e 2e 46 6c 6f | 61 74 41 73 73 22 2c 20 |Dir>.Flo|atAss", |
|00000310| 61 6e 64 20 75 73 65 64 | 20 62 79 20 70 75 74 74 |and used| by putt|
|00000320| 69 6e 67 0a 46 4e 66 6c | 6f 61 74 28 22 3c 6f 70 |ing.FNfl|oat("<op|
|00000330| 65 72 61 74 69 6f 6e 3e | 22 29 20 69 6e 74 6f 20 |eration>|") into |
|00000340| 61 6e 20 61 73 73 65 6d | 62 6c 65 72 20 70 72 6f |an assem|bler pro|
|00000350| 67 72 61 6d 2e 20 54 68 | 65 20 66 75 6c 6c 20 73 |gram. Th|e full s|
|00000360| 79 6e 74 61 78 20 69 73 | 0a 73 75 70 70 6f 72 74 |yntax is|.support|
|00000370| 65 64 2c 20 74 6f 67 65 | 74 68 65 72 20 77 69 74 |ed, toge|ther wit|
|00000380| 68 20 74 68 65 20 70 73 | 65 75 64 6f 2d 6f 70 73 |h the ps|eudo-ops|
|00000390| 20 45 51 55 46 53 2c 20 | 45 51 55 46 44 2c 20 45 | EQUFS, |EQUFD, E|
|000003a0| 51 55 46 45 20 61 6e 64 | 20 45 51 55 46 50 20 74 |QUFE and| EQUFP t|
|000003b0| 6f 0a 70 72 6f 64 75 63 | 65 20 66 6c 6f 61 74 69 |o.produc|e floati|
|000003c0| 6e 67 2d 70 6f 69 6e 74 | 20 63 6f 6e 73 74 61 6e |ng-point| constan|
|000003d0| 74 73 20 6f 66 20 74 68 | 65 20 72 65 71 75 69 72 |ts of th|e requir|
|000003e0| 65 64 20 70 72 65 63 69 | 73 69 6f 6e 2e 20 45 51 |ed preci|sion. EQ|
|000003f0| 55 46 44 20 61 6e 64 20 | 45 51 55 46 45 0a 72 65 |UFD and |EQUFE.re|
|00000400| 71 75 69 72 65 20 74 68 | 65 20 66 6c 6f 61 74 69 |quire th|e floati|
|00000410| 6e 67 20 70 6f 69 6e 74 | 20 65 6d 75 6c 61 74 6f |ng point| emulato|
|00000420| 72 20 74 6f 20 62 65 20 | 70 72 65 73 65 6e 74 20 |r to be |present |
|00000430| 61 74 20 61 73 73 65 6d | 62 6c 79 20 74 69 6d 65 |at assem|bly time|
|00000440| 2c 20 61 73 20 42 61 73 | 69 63 0a 64 6f 65 73 6e |, as Bas|ic.doesn|
|00000450| 27 74 20 68 61 76 65 20 | 74 68 65 20 70 72 65 63 |'t have |the prec|
|00000460| 69 73 69 6f 6e 20 72 65 | 71 75 69 72 65 64 20 74 |ision re|quired t|
|00000470| 6f 20 67 65 6e 65 72 61 | 74 65 20 74 68 65 73 65 |o genera|te these|
|00000480| 2e 0a 0a 20 20 54 68 65 | 20 4f 50 54 20 70 73 65 |... The| OPT pse|
|00000490| 75 64 6f 2d 6f 70 65 72 | 61 74 69 6f 6e 20 69 73 |udo-oper|ation is|
|000004a0| 20 61 6c 73 6f 20 73 75 | 70 70 6f 72 74 65 64 3b | also su|pported;|
|000004b0| 20 74 68 69 73 20 6a 75 | 73 74 20 73 65 74 73 20 | this ju|st sets |
|000004c0| 74 68 65 20 67 6c 6f 62 | 61 6c 0a 76 61 72 69 61 |the glob|al.varia|
|000004d0| 62 6c 65 20 5a 25 2e 20 | 4e 6f 74 65 20 74 68 61 |ble Z%. |Note tha|
|000004e0| 74 20 74 68 65 20 69 6e | 69 74 69 61 6c 20 76 61 |t the in|itial va|
|000004f0| 6c 75 65 20 6f 66 20 5a | 25 20 77 69 6c 6c 20 62 |lue of Z|% will b|
|00000500| 65 20 75 6e 70 72 65 64 | 69 63 74 61 62 6c 65 2c |e unpred|ictable,|
|00000510| 20 73 6f 20 79 6f 75 0a | 73 68 6f 75 6c 64 20 61 | so you.|should a|
|00000520| 6c 77 61 79 73 20 73 65 | 74 20 4f 50 54 20 65 78 |lways se|t OPT ex|
|00000530| 70 6c 69 63 69 74 6c 79 | 2e 0a 0a 20 20 41 6e 20 |plicitly|... An |
|00000540| 65 78 61 6d 70 6c 65 20 | 66 69 6c 65 20 46 6c 6f |example |file Flo|
|00000550| 61 74 43 69 72 63 20 69 | 73 20 70 72 6f 76 69 64 |atCirc i|s provid|
|00000560| 65 64 3b 20 69 74 20 6a | 75 73 74 20 64 72 61 77 |ed; it j|ust draw|
|00000570| 73 20 61 20 63 69 72 63 | 6c 65 2e 20 54 68 65 20 |s a circ|le. The |
|00000580| 63 6f 64 65 0a 69 73 6e | 27 74 20 73 75 70 70 6f |code.isn|'t suppo|
|00000590| 73 65 64 20 74 6f 20 62 | 65 20 70 61 72 74 69 63 |sed to b|e partic|
|000005a0| 75 6c 61 72 6c 79 20 65 | 66 66 69 63 69 65 6e 74 |ularly e|fficient|
|000005b0| 2c 20 69 74 20 6a 75 73 | 74 20 73 68 6f 77 73 20 |, it jus|t shows |
|000005c0| 68 6f 77 20 74 6f 20 75 | 73 65 20 74 68 65 0a 66 |how to u|se the.f|
|000005d0| 6c 6f 61 74 69 6e 67 2d | 70 6f 69 6e 74 20 69 6e |loating-|point in|
|000005e0| 74 72 75 63 74 69 6f 6e | 73 2e 0a 0a 20 20 49 74 |truction|s... It|
|000005f0| 27 73 20 65 66 66 65 63 | 74 69 76 65 6c 79 20 69 |'s effec|tively i|
|00000600| 6d 70 6f 73 73 69 62 6c | 65 20 74 6f 20 74 65 73 |mpossibl|e to tes|
|00000610| 74 20 61 6c 6c 20 6f 70 | 74 69 6f 6e 73 20 28 69 |t all op|tions (i|
|00000620| 74 20 77 6f 75 6c 64 20 | 74 61 6b 65 20 61 20 6c |t would |take a l|
|00000630| 6f 74 0a 6c 6f 6e 67 65 | 72 20 74 68 61 6e 20 77 |ot.longe|r than w|
|00000640| 72 69 74 69 6e 67 20 74 | 68 65 20 63 6f 64 65 20 |riting t|he code |
|00000650| 69 6e 20 74 68 65 20 66 | 69 72 73 74 20 70 6c 61 |in the f|irst pla|
|00000660| 63 65 29 2c 20 73 6f 20 | 6e 6f 20 67 75 61 72 61 |ce), so |no guara|
|00000670| 6e 74 65 65 20 69 73 20 | 67 69 76 65 6e 0a 74 68 |ntee is |given.th|
|00000680| 61 74 20 74 68 65 20 63 | 6f 72 72 65 63 74 20 63 |at the c|orrect c|
|00000690| 6f 64 65 20 77 69 6c 6c | 20 61 6c 77 61 79 73 20 |ode will| always |
|000006a0| 62 65 20 61 73 73 65 6d | 62 6c 65 64 2e 20 54 6f |be assem|bled. To|
|000006b0| 20 68 65 6c 70 20 77 69 | 74 68 20 70 72 6f 62 6c | help wi|th probl|
|000006c0| 65 6d 73 2c 20 61 6e 0a | 65 78 74 72 61 20 6f 70 |ems, an.|extra op|
|000006d0| 74 69 6f 6e 20 63 61 6e | 20 62 65 20 65 6e 61 62 |tion can| be enab|
|000006e0| 6c 65 64 20 62 79 20 73 | 65 74 74 69 6e 67 20 62 |led by s|etting b|
|000006f0| 69 74 20 33 20 6f 66 20 | 74 68 65 20 4f 50 54 20 |it 3 of |the OPT |
|00000700| 28 6e 75 6d 62 65 72 73 | 20 38 2d 31 35 29 2c 0a |(numbers| 8-15),.|
|00000710| 77 68 69 63 68 20 77 69 | 6c 6c 20 75 73 65 20 74 |which wi|ll use t|
|00000720| 68 65 20 53 57 49 20 44 | 65 62 75 67 67 65 72 5f |he SWI D|ebugger_|
|00000730| 44 69 73 61 73 73 65 6d | 62 6c 65 20 74 6f 20 64 |Disassem|ble to d|
|00000740| 69 73 61 73 73 65 6d 62 | 6c 65 20 74 68 65 20 63 |isassemb|le the c|
|00000750| 6f 64 65 20 77 68 69 63 | 68 0a 68 61 73 20 62 65 |ode whic|h.has be|
|00000760| 65 6e 20 67 65 6e 65 72 | 61 74 65 64 2c 20 61 6e |en gener|ated, an|
|00000770| 64 20 70 72 69 6e 74 20 | 74 68 69 73 20 69 6e 20 |d print |this in |
|00000780| 74 68 65 20 73 61 6d 65 | 20 66 6f 72 6d 61 74 20 |the same| format |
|00000790| 61 73 20 74 68 65 20 6e | 6f 72 6d 61 6c 20 61 73 |as the n|ormal as|
|000007a0| 73 65 6d 62 6c 79 0a 6c | 69 73 74 69 6e 67 2e 20 |sembly.l|isting. |
|000007b0| 49 74 20 69 73 20 74 68 | 65 72 65 66 6f 72 65 20 |It is th|erefore |
|000007c0| 70 6f 73 73 69 62 6c 65 | 20 74 6f 20 63 6f 6d 70 |possible| to comp|
|000007d0| 61 72 65 20 74 68 65 20 | 6f 75 74 70 75 74 20 77 |are the |output w|
|000007e0| 69 74 68 20 74 68 65 20 | 69 6e 70 75 74 2c 0a 77 |ith the |input,.w|
|000007f0| 68 69 63 68 20 73 68 6f | 75 6c 64 20 68 69 67 68 |hich sho|uld high|
|00000800| 6c 69 67 68 74 20 61 6e | 79 20 70 72 6f 62 6c 65 |light an|y proble|
|00000810| 6d 73 2e 20 54 68 69 73 | 20 66 61 63 69 6c 69 74 |ms. This| facilit|
|00000820| 79 20 64 6f 65 73 20 6e | 6f 74 20 61 70 70 6c 79 |y does n|ot apply|
|00000830| 20 74 6f 0a 63 6f 6e 73 | 74 61 6e 74 73 20 67 65 | to.cons|tants ge|
|00000840| 6e 65 72 61 74 65 64 20 | 77 69 74 68 20 45 51 55 |nerated |with EQU|
|00000850| 46 78 3b 20 68 6f 77 65 | 76 65 72 2c 20 74 68 65 |Fx; howe|ver, the|
|00000860| 20 6d 6f 73 74 20 63 6f | 6d 6d 6f 6e 20 66 6f 72 | most co|mmon for|
|00000870| 6d 61 74 20 68 65 72 65 | 20 69 73 0a 6c 69 6b 65 |mat here| is.like|
|00000880| 6c 79 20 74 6f 20 62 65 | 20 70 61 63 6b 65 64 20 |ly to be| packed |
|00000890| 64 65 63 69 6d 61 6c 2c | 20 61 6e 64 20 74 68 69 |decimal,| and thi|
|000008a0| 73 20 69 73 20 66 61 69 | 72 6c 79 20 65 61 73 79 |s is fai|rly easy|
|000008b0| 20 74 6f 20 64 65 63 6f | 64 65 20 62 79 20 65 79 | to deco|de by ey|
|000008c0| 65 2e 0a 0a 20 20 49 6e | 74 65 72 6e 61 6c 20 76 |e... In|ternal v|
|000008d0| 61 72 69 61 62 6c 65 73 | 20 61 72 65 20 61 6c 6c |ariables| are all|
|000008e0| 20 6c 6f 63 61 6c 2c 20 | 65 78 63 65 70 74 20 66 | local, |except f|
|000008f0| 6f 72 20 5a 25 20 64 65 | 73 63 72 69 62 65 64 20 |or Z% de|scribed |
|00000900| 61 62 6f 76 65 2e 20 4e | 6f 0a 69 6e 74 65 72 6e |above. N|o.intern|
|00000910| 61 6c 20 66 6c 6f 61 74 | 69 6e 67 2d 70 6f 69 6e |al float|ing-poin|
|00000920| 74 20 76 61 72 69 61 62 | 6c 65 73 20 61 72 65 20 |t variab|les are |
|00000930| 75 73 65 64 2c 20 73 6f | 20 65 78 70 72 65 73 73 |used, so| express|
|00000940| 69 6f 6e 73 20 69 6e 76 | 6f 6c 76 69 6e 67 20 74 |ions inv|olving t|
|00000950| 68 65 6d 0a 73 68 6f 75 | 6c 64 20 61 6c 77 61 79 |hem.shou|ld alway|
|00000960| 73 20 65 76 61 6c 75 61 | 74 65 20 63 6f 72 72 65 |s evalua|te corre|
|00000970| 63 74 6c 79 2e 20 54 68 | 65 20 6f 6e 6c 79 20 65 |ctly. Th|e only e|
|00000980| 78 63 65 70 74 69 6f 6e | 20 74 6f 20 74 68 69 73 |xception| to this|
|00000990| 20 69 73 20 74 68 61 74 | 20 50 43 20 61 6e 64 0a | is that| PC and.|
|000009a0| 70 63 20 61 72 65 20 6d | 61 64 65 20 6c 6f 63 61 |pc are m|ade loca|
|000009b0| 6c 20 61 6e 64 20 64 65 | 66 69 6e 65 64 20 74 6f |l and de|fined to|
|000009c0| 20 31 35 20 77 68 69 6c | 65 20 65 76 61 6c 75 61 | 15 whil|e evalua|
|000009d0| 74 69 6e 67 20 72 65 67 | 69 73 74 65 72 20 6e 75 |ting reg|ister nu|
|000009e0| 6d 62 65 72 73 2c 20 61 | 73 0a 74 68 65 73 65 20 |mbers, a|s.these |
|000009f0| 61 72 65 20 6b 6e 6f 77 | 6e 20 69 6e 74 65 72 6e |are know|n intern|
|00000a00| 61 6c 6c 79 20 62 79 20 | 74 68 65 20 6e 6f 72 6d |ally by |the norm|
|00000a10| 61 6c 20 42 61 73 69 63 | 20 61 73 73 65 6d 62 6c |al Basic| assembl|
|00000a20| 65 72 2e 0a 0a 20 20 55 | 6e 66 6f 72 74 75 6e 61 |er... U|nfortuna|
|00000a30| 74 65 6c 79 2c 20 70 72 | 6f 63 65 64 75 72 65 73 |tely, pr|ocedures|
|00000a40| 20 61 6e 64 20 66 75 6e | 63 74 69 6f 6e 73 20 63 | and fun|ctions c|
|00000a50| 61 6e 27 74 20 62 65 20 | 6d 61 64 65 20 6c 6f 63 |an't be |made loc|
|00000a60| 61 6c 20 69 6e 20 42 61 | 73 69 63 2e 20 54 68 65 |al in Ba|sic. The|
|00000a70| 0a 6e 61 6d 65 73 20 75 | 73 65 64 20 69 6e 74 65 |.names u|sed inte|
|00000a80| 72 6e 61 6c 6c 79 20 61 | 72 65 3a 0a 0a 50 52 4f |rnally a|re:..PRO|
|00000a90| 43 73 70 6c 69 74 20 20 | 20 20 50 52 4f 43 6f 70 |Csplit | PROCop|
|00000aa0| 74 20 20 20 20 20 20 20 | 20 50 52 4f 43 65 71 75 |t | PROCequ|
|00000ab0| 66 70 20 20 20 50 52 4f | 43 65 71 75 66 73 20 20 |fp PRO|Cequfs |
|00000ac0| 20 50 52 4f 43 65 71 75 | 66 0a 50 52 4f 43 6f 70 | PROCequ|f.PROCop|
|00000ad0| 63 6f 64 65 20 20 20 50 | 52 4f 43 6d 6e 65 6d 20 |code P|ROCmnem |
|00000ae0| 20 20 20 20 20 20 46 4e | 67 65 74 72 65 67 20 20 | FN|getreg |
|00000af0| 20 20 50 52 4f 43 65 6e | 63 6f 64 65 20 20 50 52 | PROCen|code PR|
|00000b00| 4f 43 72 65 67 73 0a 50 | 52 4f 43 72 65 67 61 64 |OCregs.P|ROCregad|
|00000b10| 64 72 20 20 50 52 4f 43 | 6c 6f 61 64 73 74 6f 72 |dr PROC|loadstor|
|00000b20| 65 20 20 50 52 4f 43 73 | 65 74 61 64 64 72 0a 46 |e PROCs|etaddr.F|
|00000b30| 4e 69 73 6e 75 6d 20 20 | 20 20 20 20 46 4e 69 73 |Nisnum | FNis|
|00000b40| 73 6e 75 6d 20 20 20 20 | 20 20 20 46 4e 69 73 66 |snum | FNisf|
|00000b50| 6e 75 6d 20 20 20 20 46 | 4e 69 73 65 78 70 6e 75 |num F|Nisexpnu|
|00000b60| 6d 20 20 46 4e 74 6f 75 | 70 70 65 72 0a 0a 20 20 |m FNtou|pper.. |
|00000b70| 46 69 6e 61 6c 6c 79 2c | 20 74 68 65 20 73 74 61 |Finally,| the sta|
|00000b80| 6e 64 61 72 64 20 64 69 | 73 63 6c 61 69 6d 65 72 |ndard di|sclaimer|
|00000b90| 2e 20 54 68 69 73 20 63 | 6f 64 65 20 69 73 20 69 |. This c|ode is i|
|00000ba0| 6e 20 74 68 65 20 70 75 | 62 6c 69 63 20 64 6f 6d |n the pu|blic dom|
|00000bb0| 61 69 6e 2c 20 62 75 74 | 20 49 0a 72 65 74 61 69 |ain, but| I.retai|
|00000bc0| 6e 20 63 6f 70 79 72 69 | 67 68 74 2e 20 59 6f 75 |n copyri|ght. You|
|00000bd0| 20 63 61 6e 20 63 6f 70 | 79 20 69 74 20 66 72 65 | can cop|y it fre|
|00000be0| 65 6c 79 2c 20 61 73 20 | 6c 6f 6e 67 20 61 73 20 |ely, as |long as |
|00000bf0| 79 6f 75 20 64 6f 6e 27 | 74 20 73 65 6c 6c 20 69 |you don'|t sell i|
|00000c00| 74 20 66 6f 72 0a 70 72 | 6f 66 69 74 2c 20 61 6e |t for.pr|ofit, an|
|00000c10| 64 20 61 73 20 6c 6f 6e | 67 20 61 73 20 74 68 69 |d as lon|g as thi|
|00000c20| 73 20 66 69 6c 65 20 67 | 6f 65 73 20 77 69 74 68 |s file g|oes with|
|00000c30| 20 69 74 2e 20 49 66 20 | 79 6f 75 20 6d 61 6b 65 | it. If |you make|
|00000c40| 20 61 6e 79 20 63 68 61 | 6e 67 65 73 20 61 64 64 | any cha|nges add|
|00000c50| 20 61 0a 63 6f 6d 6d 65 | 6e 74 20 74 6f 20 74 68 | a.comme|nt to th|
|00000c60| 61 74 20 65 66 66 65 63 | 74 20 69 6e 20 62 6f 74 |at effec|t in bot|
|00000c70| 68 20 74 68 65 20 70 72 | 6f 67 72 61 6d 20 68 65 |h the pr|ogram he|
|00000c80| 61 64 65 72 20 61 6e 64 | 20 69 6e 20 74 68 69 73 |ader and| in this|
|00000c90| 20 66 69 6c 65 2e 20 49 | 20 6d 61 6b 65 0a 6e 6f | file. I| make.no|
|00000ca0| 20 77 61 72 72 61 6e 74 | 79 20 66 6f 72 20 74 68 | warrant|y for th|
|00000cb0| 65 20 70 65 72 66 6f 72 | 6d 61 6e 63 65 20 6f 66 |e perfor|mance of|
|00000cc0| 20 74 68 65 20 70 72 6f | 67 72 61 6d 2c 20 66 69 | the pro|gram, fi|
|00000cd0| 74 6e 65 73 73 20 66 6f | 72 20 61 6e 79 20 70 75 |tness fo|r any pu|
|00000ce0| 72 70 6f 73 65 2c 20 6f | 72 0a 61 62 73 65 6e 63 |rpose, o|r.absenc|
|00000cf0| 65 20 6f 66 20 62 75 67 | 73 2c 20 61 6e 64 20 49 |e of bug|s, and I|
|00000d00| 20 74 61 6b 65 20 6e 6f | 20 72 65 73 70 6f 6e 73 | take no| respons|
|00000d10| 69 62 69 6c 69 74 79 20 | 66 6f 72 20 66 69 6c 65 |ibility |for file|
|00000d20| 73 20 65 72 61 73 65 64 | 2c 20 63 6f 6d 70 75 74 |s erased|, comput|
|00000d30| 65 72 73 0a 62 6c 6f 77 | 6e 20 75 70 2c 20 6e 75 |ers.blow|n up, nu|
|00000d40| 63 6c 65 61 72 20 77 61 | 72 73 20 73 74 61 72 74 |clear wa|rs start|
|00000d50| 65 64 2c 20 6f 72 20 61 | 6e 79 20 6f 74 68 65 72 |ed, or a|ny other|
|00000d60| 20 63 6f 6e 73 65 71 75 | 65 6e 63 65 20 6f 66 20 | consequ|ence of |
|00000d70| 74 68 65 20 75 73 65 20 | 6f 66 20 74 68 65 0a 70 |the use |of the.p|
|00000d80| 72 6f 67 72 61 6d 2e 20 | 42 61 73 69 63 61 6c 6c |rogram. |Basicall|
|00000d90| 79 2c 20 49 27 76 65 20 | 64 6f 6e 65 20 74 68 65 |y, I've |done the|
|00000da0| 20 62 65 73 74 20 49 20 | 63 61 6e 20 74 6f 20 6d | best I |can to m|
|00000db0| 61 6b 65 20 69 74 20 62 | 75 67 20 66 72 65 65 2c |ake it b|ug free,|
|00000dc0| 20 62 75 74 20 62 65 79 | 6f 6e 64 0a 74 68 61 74 | but bey|ond.that|
|00000dd0| 20 28 61 73 20 77 69 74 | 68 20 61 6c 6c 20 50 44 | (as wit|h all PD|
|00000de0| 20 70 72 6f 67 72 61 6d | 73 29 20 79 6f 75 20 73 | program|s) you s|
|00000df0| 68 6f 75 6c 64 20 75 73 | 65 20 69 74 20 77 69 74 |hould us|e it wit|
|00000e00| 68 20 63 61 72 65 2e 0a | 0a 20 20 49 66 20 79 6f |h care..|. If yo|
|00000e10| 75 20 66 69 6e 64 20 74 | 68 65 20 70 72 6f 67 72 |u find t|he progr|
|00000e20| 61 6d 20 75 73 65 66 75 | 6c 20 79 6f 75 20 6d 69 |am usefu|l you mi|
|00000e30| 67 68 74 20 6c 69 6b 65 | 20 74 6f 20 6d 61 6b 65 |ght like| to make|
|00000e40| 20 61 20 64 6f 6e 61 74 | 69 6f 6e 20 74 6f 20 4f | a donat|ion to O|
|00000e50| 78 66 61 6d 0a 2d 20 73 | 61 79 20 a3 35 2e 0a 0a |xfam.- s|ay .5...|
|00000e60| 20 20 49 20 63 61 6e 20 | 62 65 20 63 6f 6e 74 61 | I can |be conta|
|00000e70| 63 74 65 64 20 62 79 20 | 65 2d 6d 61 69 6c 20 6f |cted by |e-mail o|
|00000e80| 6e 20 4a 61 6e 65 74 20 | 28 74 68 65 20 55 4b 20 |n Janet |(the UK |
|00000e90| 61 63 61 64 65 6d 69 63 | 20 6e 65 74 77 6f 72 6b |academic| network|
|00000ea0| 29 20 61 73 0a 53 42 32 | 20 40 20 55 4b 2e 41 43 |) as.SB2| @ UK.AC|
|00000eb0| 2e 52 4c 2e 49 42 2c 20 | 6f 72 20 62 79 20 73 6e |.RL.IB, |or by sn|
|00000ec0| 61 69 6c 20 6d 61 69 6c | 3a 0a 0a 20 20 20 20 20 |ail mail|:.. |
|00000ed0| 20 20 53 74 65 70 68 65 | 6e 20 42 75 72 6b 65 2c | Stephe|n Burke,|
|00000ee0| 0a 20 20 20 63 2f 6f 20 | 37 2c 20 45 67 64 6f 6e |. c/o |7, Egdon|
|00000ef0| 20 44 72 69 76 65 2c 0a | 20 20 20 20 20 20 20 4c | Drive,.| L|
|00000f00| 75 74 6f 6e 2c 0a 20 20 | 20 20 20 20 20 42 65 64 |uton,. | Bed|
|00000f10| 73 0a 20 20 20 20 20 20 | 20 4c 55 32 20 37 41 5a |s. | LU2 7AZ|
|00000f20| 0a 46 69 6c 65 44 61 74 | 61 82 21 52 75 6e 00 04 |.FileDat|a.!Run..|
|00000f30| 00 00 00 00 00 88 00 00 | 00 43 eb ff ff ba 4f 7c |........|.C....O||
|00000f40| 35 03 00 8c 68 49 63 6f | 6e 53 70 72 69 74 65 73 |5...hIco|nSprites|
|00000f50| 20 3c 4f 62 65 79 24 44 | 69 72 3e 2e 21 53 70 72 | <Obey$D|ir>.!Spr|
|00000f60| 69 74 65 73 0a 53 65 74 | 20 42 61 73 69 63 4c 69 |ites.Set| BasicLi|
|00000f70| 62 24 44 69 72 20 3c 4f | 62 65 79 24 44 69 72 3e |b$Dir <O|bey$Dir>|
|00000f80| 0a 52 4d 4c 6f 61 64 20 | 53 79 73 74 65 6d 3a 6d |.RMLoad |System:m|
|00000f90| 6f 64 75 6c 65 73 2e 46 | 50 45 2a 0a 53 65 74 4d |odules.F|PE*.SetM|
|00000fa0| 61 63 72 6f 20 41 6c 69 | 61 73 24 4f 70 65 6e 20 |acro Ali|as$Open |
|00000fb0| 46 69 6c 65 72 5f 4f 70 | 65 6e 44 69 72 20 3c 4f |Filer_Op|enDir <O|
|00000fc0| 62 65 79 24 44 69 72 3e | 0a 4f 70 65 6e 46 69 6c |bey$Dir>|.OpenFil|
|00000fd0| 65 44 61 74 61 82 21 53 | 70 72 69 74 65 73 00 00 |eData.!S|prites..|
|00000fe0| 00 e4 03 00 00 43 f9 ff | ff c3 4b 92 29 03 00 4b |.....C..|..K.)..K|
|00000ff0| d6 02 00 00 00 10 00 00 | 00 e8 03 00 00 d4 02 00 |........|........|
|00001000| 00 21 62 61 73 69 63 6c | 69 62 00 00 00 04 00 00 |.!basicl|ib......|
|00001010| 00 10 00 00 00 00 00 00 | 00 17 00 00 00 2c 00 00 |........|.....,..|
|00001020| 00 80 01 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 77 77 |........|......ww|
|00001040| 77 77 77 77 77 77 77 00 | 00 00 00 00 00 00 00 00 |wwwwwww.|........|
|00001050| 00 00 77 88 88 88 88 88 | 88 88 77 00 00 00 00 00 |..w.....|..w.....|
|00001060| 00 00 00 00 00 00 77 88 | 00 80 00 80 80 88 77 00 |......w.|......w.|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 77 88 88 88 77 77 |........|..w...ww|
|00001080| 77 77 77 77 77 77 77 00 | 00 00 00 00 00 00 77 88 |wwwwwww.|......w.|
|00001090| 88 00 77 88 88 88 88 88 | 88 88 77 00 00 00 00 00 |..w.....|..w.....|
|000010a0| 00 00 77 88 88 88 77 88 | 00 80 00 80 80 88 77 00 |..w...w.|......w.|
|000010b0| 00 00 00 00 00 00 77 88 | 00 80 77 88 88 88 77 77 |......w.|..w...ww|
|000010c0| 77 77 77 77 77 77 77 00 | 00 00 77 88 88 88 77 88 |wwwwwww.|..w...w.|
|000010d0| 88 00 77 88 88 88 88 88 | 88 88 77 00 00 00 77 77 |..w.....|..w...ww|
|000010e0| 77 77 77 88 88 88 77 88 | 00 80 00 80 80 88 77 00 |www...w.|......w.|
|000010f0| 00 00 00 00 00 00 77 88 | 00 80 77 88 88 88 88 88 |......w.|..w.....|
|00001100| 88 88 77 00 00 00 00 00 | 00 00 77 88 88 88 77 88 |..w.....|..w...w.|
|00001110| 88 00 80 08 00 88 77 00 | 00 00 00 00 00 00 77 77 |......w.|......ww|
|00001120| 77 77 77 88 88 88 88 88 | 88 88 77 00 00 00 00 00 |www.....|..w.....|
|00001130| 00 00 00 00 00 00 77 88 | 00 80 00 00 88 88 77 00 |......w.|......w.|
|00001140| 00 00 00 00 00 00 00 00 | 00 00 77 88 88 88 88 88 |........|..w.....|
|00001150| 88 88 77 00 00 00 00 00 | 00 00 00 00 00 00 77 77 |..w.....|......ww|
|00001160| 77 77 77 77 77 77 77 00 | 00 00 00 00 00 00 00 00 |wwwwwww.|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| ff 00 ff ff ff ff ff ff | ff ff ff 00 00 00 00 00 |........|........|
|000011a0| 00 00 00 00 ff 00 ff ff | ff ff ff ff ff ff ff 00 |........|........|
|000011b0| 00 00 00 00 00 00 00 00 | ff 00 ff ff ff ff ff ff |........|........|
|000011c0| ff ff ff 00 00 00 00 00 | 00 00 00 00 ff 00 ff ff |........|........|
|000011d0| ff ff ff ff ff ff ff ff | ff ff ff 00 00 00 00 00 |........|........|
|000011e0| ff 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|000011f0| 00 00 00 00 ff 00 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001200| ff ff ff 00 00 00 00 00 | ff 00 ff ff ff ff ff ff |........|........|
|00001210| ff ff ff ff ff ff ff ff | ff ff ff 00 ff 00 ff ff |........|........|
|00001220| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|00001230| ff 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00001240| ff ff ff 00 ff 00 00 00 | 00 00 ff ff ff ff ff ff |........|........|
|00001250| ff ff ff ff ff ff ff 00 | ff 00 00 00 00 00 ff ff |........|........|
|00001260| ff ff ff ff ff ff ff ff | ff ff ff 00 ff 00 00 00 |........|........|
|00001270| 00 00 ff ff ff ff ff ff | ff ff ff ff ff ff ff 00 |........|........|
|00001280| ff 00 00 00 00 00 00 00 | 00 00 ff ff ff ff ff ff |........|........|
|00001290| ff ff ff 00 ff 00 00 00 | 00 00 00 00 00 00 ff ff |........|........|
|000012a0| ff ff ff ff ff ff ff 00 | ff 00 00 00 00 00 00 00 |........|........|
|000012b0| 00 00 ff ff ff ff ff ff | ff ff ff 00 ff 00 00 00 |........|........|
|000012c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012d0| ff 04 01 00 00 73 6d 21 | 62 61 73 69 63 6c 69 62 |.....sm!|basiclib|
|000012e0| 00 02 00 00 00 08 00 00 | 00 00 00 00 00 07 00 00 |........|........|
|000012f0| 00 2c 00 00 00 98 00 00 | 00 0c 00 00 00 77 77 77 |.,......|.....www|
|00001300| 77 00 00 00 00 00 00 00 | 70 87 80 80 78 07 00 00 |w.......|p...x...|
|00001310| 00 00 00 00 70 87 08 78 | 77 77 77 07 00 00 00 00 |....p..x|www.....|
|00001320| 70 87 80 70 08 08 88 07 | 00 00 00 00 70 77 77 77 |p..p....|....pwww|
|00001330| 88 80 77 77 77 77 00 00 | 70 77 77 77 08 08 87 80 |..wwww..|pwww....|
|00001340| 80 78 00 00 70 00 00 77 | 77 77 87 08 08 78 00 00 |.x..p..w|ww...x..|
|00001350| 70 00 00 00 00 77 87 80 | 80 78 00 00 70 00 00 00 |p....w..|.x..p...|
|00001360| 00 77 77 77 77 77 00 00 | 80 ff ff ff ff 00 00 00 |.wwwww..|........|
|00001370| 00 00 ff ff ff ff ff ff | ff 00 00 00 00 00 ff ff |........|........|
|00001380| ff ff ff ff ff ff ff 0f | 00 00 ff ff ff ff ff ff |........|........|
|00001390| ff ff ff 0f 00 00 ff ff | ff ff ff ff ff ff ff ff |........|........|
|000013a0| ff ff ff ff ff 00 00 f0 | ff ff ff ff ff ff ff ff |........|........|
|000013b0| ff 00 00 f0 ff ff ff ff | ff ff ff ff ff 00 00 00 |........|........|
|000013c0| 00 00 ff ff ff ff ff ff | ff 00 00 00 00 00 ff ff |........|........|
|000013d0| ff ff ff ff ff 46 69 6c | 65 44 61 74 61 82 46 6c |.....Fil|eData.Fl|
|000013e0| 6f 61 74 41 73 73 00 00 | 00 e1 3b 00 00 43 fb ff |oatAss..|..;..C..|
|000013f0| ff c9 91 7f 35 03 00 ad | 55 0d 00 0a 3e f4 20 3e |....5...|U...>. >|
|00001400| 20 3c 42 61 73 69 63 4c | 69 62 24 44 69 72 3e 2e | <BasicL|ib$Dir>.|
|00001410| 46 6c 6f 61 74 41 73 73 | 20 20 20 20 20 20 20 20 |FloatAss| |
|00001420| 20 46 4e 66 6c 6f 61 74 | 28 22 3c 6f 70 65 72 61 | FNfloat|("<opera|
|00001430| 74 69 6f 6e 3e 22 29 0d | 00 14 04 0d 00 1e 1c 46 |tion>").|.......F|
|00001440| 6c 6f 61 74 69 6e 67 20 | 70 6f 69 6e 74 20 61 73 |loating |point as|
|00001450| 73 65 6d 62 6c 65 72 0d | 00 28 04 0d 00 32 24 57 |sembler.|.(...2$W|
|00001460| 72 69 74 74 65 6e 20 62 | 79 20 53 74 65 70 68 65 |ritten b|y Stephe|
|00001470| 6e 20 42 75 72 6b 65 2c | 20 32 2f 36 2f 38 39 0d |n Burke,| 2/6/89.|
|00001480| 00 3c 1c 50 73 65 75 64 | 6f 2d 6f 70 73 20 61 64 |.<.Pseud|o-ops ad|
|00001490| 64 65 64 20 32 32 2f 36 | 2f 39 31 0d 00 46 04 0d |ded 22/6|/91..F..|
|000014a0| 00 50 27 55 73 65 20 a4 | 66 6c 6f 61 74 28 22 4d |.P'Use .|float("M|
|000014b0| 55 46 47 45 45 50 20 46 | 31 2c 46 32 2c 46 33 22 |UFGEEP F|1,F2,F3"|
|000014c0| 29 20 65 74 63 2e 0d 00 | 5a 04 0d 00 64 45 41 6c |) etc...|Z...dEAl|
|000014d0| 73 6f 20 73 75 70 70 6f | 72 74 73 20 74 68 65 20 |so suppo|rts the |
|000014e0| 70 73 65 75 64 6f 2d 6f | 70 65 72 61 74 69 6f 6e |pseudo-o|peration|
|000014f0| 73 20 45 51 55 46 53 2c | 20 45 51 55 46 44 2c 20 |s EQUFS,| EQUFD, |
|00001500| 45 51 55 46 45 20 61 6e | 64 20 45 51 55 46 50 0d |EQUFE an|d EQUFP.|
|00001510| 00 6e 3f 74 6f 20 67 65 | 6e 65 72 61 74 65 20 63 |.n?to ge|nerate c|
|00001520| 6f 6e 73 74 61 6e 74 73 | 20 6f 66 20 74 68 65 20 |onstants| of the |
|00001530| 61 70 70 72 6f 70 72 69 | 61 74 65 20 70 72 65 63 |appropri|ate prec|
|00001540| 69 73 69 6f 6e 2c 20 61 | 6e 64 20 4f 50 54 0d 00 |ision, a|nd OPT..|
|00001550| 78 42 74 6f 20 73 65 74 | 20 74 68 65 20 6f 70 74 |xBto set| the opt|
|00001560| 69 6f 6e 73 2e 20 45 51 | 55 46 44 20 61 6e 64 20 |ions. EQ|UFD and |
|00001570| 45 51 55 46 45 20 72 65 | 71 75 69 72 65 20 74 68 |EQUFE re|quire th|
|00001580| 65 20 66 6c 6f 61 74 69 | 6e 67 2d 70 6f 69 6e 74 |e floati|ng-point|
|00001590| 0d 00 82 45 65 6d 75 6c | 61 74 6f 72 20 74 6f 20 |...Eemul|ator to |
|000015a0| 62 65 20 69 6e 73 74 61 | 6c 6c 65 64 2c 20 61 73 |be insta|lled, as|
|000015b0| 20 74 68 65 79 20 66 69 | 72 73 74 20 61 73 73 65 | they fi|rst asse|
|000015c0| 6d 62 6c 65 20 61 20 70 | 61 63 6b 65 64 20 64 65 |mble a p|acked de|
|000015d0| 63 69 6d 61 6c 0d 00 8c | 42 63 6f 6e 73 74 61 6e |cimal...|Bconstan|
|000015e0| 74 20 61 6e 64 20 74 68 | 65 6e 20 75 73 65 20 61 |t and th|en use a|
|000015f0| 20 73 68 6f 72 74 20 66 | 6c 6f 61 74 69 6e 67 2d | short f|loating-|
|00001600| 70 6f 69 6e 74 20 72 6f | 75 74 69 6e 65 20 74 6f |point ro|utine to|
|00001610| 20 64 6f 20 74 68 65 0d | 00 96 44 72 65 71 75 69 | do the.|..Drequi|
|00001620| 72 65 64 20 63 6f 6e 76 | 65 72 73 69 6f 6e 2e 20 |red conv|ersion. |
|00001630| 42 61 73 69 63 20 63 61 | 6e 27 74 20 62 65 20 75 |Basic ca|n't be u|
|00001640| 73 65 64 2c 20 61 73 20 | 69 74 20 64 6f 65 73 6e |sed, as |it doesn|
|00001650| 27 74 20 68 61 76 65 20 | 74 68 65 0d 00 a0 17 72 |'t have |the....r|
|00001660| 65 71 75 69 72 65 64 20 | 70 72 65 63 69 73 69 6f |equired |precisio|
|00001670| 6e 2e 0d 00 aa 04 0d 00 | b4 16 49 6e 74 65 72 6e |n.......|..Intern|
|00001680| 61 6c 20 72 6f 75 74 69 | 6e 65 73 3a 0d 00 be 04 |al routi|nes:....|
|00001690| 0d 00 c8 31 f2 73 70 6c | 69 74 20 20 20 20 f2 6f |...1.spl|it .o|
|000016a0| 70 74 20 20 20 20 20 20 | 20 20 f2 65 71 75 66 70 |pt | .equfp|
|000016b0| 20 20 20 f2 65 71 75 66 | 73 20 20 20 f2 65 71 75 | .equf|s .equ|
|000016c0| 66 0d 00 d2 33 f2 6f 70 | 63 6f 64 65 20 20 20 f2 |f...3.op|code .|
|000016d0| 6d 6e 65 6d 20 20 20 20 | 20 20 20 a4 67 65 74 72 |mnem | .getr|
|000016e0| 65 67 20 20 20 20 f2 65 | 6e 63 6f 64 65 20 20 f2 |eg .e|ncode .|
|000016f0| 72 65 67 73 0d 00 dc 22 | f2 72 65 67 61 64 64 72 |regs..."|.regaddr|
|00001700| 20 20 f2 6c 6f 61 64 73 | 74 6f 72 65 20 20 f2 73 | .loads|tore .s|
|00001710| 65 74 61 64 64 72 0d 00 | e6 04 0d 00 f0 1d 47 65 |etaddr..|......Ge|
|00001720| 6e 65 72 61 6c 20 70 75 | 72 70 6f 73 65 20 72 6f |neral pu|rpose ro|
|00001730| 75 74 69 6e 65 73 3a 0d | 00 fa 04 0d 01 04 3c a4 |utines:.|......<.|
|00001740| 69 73 6e 75 6d 20 20 20 | 20 20 20 a4 69 73 73 6e |isnum | .issn|
|00001750| 75 6d 20 20 20 20 20 20 | 20 a4 69 73 66 6e 75 6d |um | .isfnum|
|00001760| 20 20 20 20 a4 69 73 65 | 78 70 6e 75 6d 20 20 a4 | .ise|xpnum .|
|00001770| 74 6f 75 70 70 65 72 0d | 01 0e 04 0d 01 18 44 54 |toupper.|......DT|
|00001780| 68 65 20 67 6c 6f 62 61 | 6c 20 73 74 61 74 69 63 |he globa|l static|
|00001790| 20 76 61 72 69 61 62 6c | 65 20 5a 25 20 69 73 20 | variabl|e Z% is |
|000017a0| 75 73 65 64 20 74 6f 20 | 68 6f 6c 64 20 74 68 65 |used to |hold the|
|000017b0| 20 6f 70 74 69 6f 6e 20 | 6e 75 6d 62 65 72 2e 0d | option |number..|
|000017c0| 01 22 04 0d 01 2c 2b 41 | 6c 6c 20 6f 74 68 65 72 |."...,+A|ll other|
|000017d0| 20 69 6e 74 65 72 6e 61 | 6c 20 76 61 72 69 61 62 | interna|l variab|
|000017e0| 6c 65 73 20 61 72 65 20 | 6c 6f 63 61 6c 2e 0d 01 |les are |local...|
|000017f0| 36 3f 41 6c 6c 20 61 72 | 65 20 65 69 74 68 65 72 |6?All ar|e either|
|00001800| 20 69 6e 74 65 67 65 72 | 20 6f 72 20 73 74 72 69 | integer| or stri|
|00001810| 6e 67 2c 20 73 6f 20 65 | 78 70 72 65 73 73 69 6f |ng, so e|xpressio|
|00001820| 6e 73 20 63 6f 6e 74 61 | 69 6e 69 6e 67 0d 01 40 |ns conta|ining..@|
|00001830| 3d 6f 6e 6c 79 20 72 65 | 61 6c 20 76 61 72 69 61 |=only re|al varia|
|00001840| 62 6c 65 73 20 61 72 65 | 20 67 75 61 72 61 6e 74 |bles are| guarant|
|00001850| 65 65 64 20 74 6f 20 65 | 76 61 6c 75 61 74 65 20 |eed to e|valuate |
|00001860| 63 6f 72 72 65 63 74 6c | 79 2e 0d 01 4a 04 0d 01 |correctl|y...J...|
|00001870| 54 47 45 58 43 45 50 54 | 49 4f 4e 3a 20 50 43 20 |TGEXCEPT|ION: PC |
|00001880| 61 6e 64 20 70 63 20 61 | 72 65 20 6d 61 64 65 20 |and pc a|re made |
|00001890| 6c 6f 63 61 6c 20 61 6e | 64 20 65 71 75 61 6c 20 |local an|d equal |
|000018a0| 74 6f 20 31 35 20 77 68 | 65 6e 20 65 76 61 6c 75 |to 15 wh|en evalu|
|000018b0| 61 74 69 6e 67 0d 01 5e | 15 72 65 67 69 73 74 65 |ating..^|.registe|
|000018c0| 72 20 6e 75 6d 62 65 72 | 73 2e 0d 01 68 04 0d 01 |r number|s...h...|
|000018d0| 72 4c 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |rL------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001900| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 01 7c 04 0d 01 |--------|--..|...|
|00001920| 86 13 dd 20 a4 66 6c 6f | 61 74 28 63 6f 64 65 24 |... .flo|at(code$|
|00001930| 29 0d 01 90 04 0d 01 9a | 15 ea 20 4e 25 2c 51 25 |).......|.. N%,Q%|
|00001940| 2c 52 24 28 29 2c 52 25 | 28 29 0d 01 a4 20 ea 20 |,R$(),R%|()... . |
|00001950| 6f 70 63 24 2c 63 63 24 | 2c 70 72 65 63 24 2c 72 |opc$,cc$|,prec$,r|
|00001960| 6f 75 6e 64 24 2c 61 64 | 64 24 0d 01 ae 34 ea 20 |ound$,ad|d$...4. |
|00001970| 77 6f 72 64 25 2c 63 63 | 25 2c 6d 6e 65 6d 25 2c |word%,cc|%,mnem%,|
|00001980| 6d 6f 6e 61 64 25 2c 65 | 25 2c 67 72 6f 75 70 25 |monad%,e|%,group%|
|00001990| 2c 70 72 65 25 2c 77 62 | 25 2c 69 6d 6d 25 0d 01 |,pre%,wb|%,imm%..|
|000019a0| b8 13 ea 20 62 75 66 66 | 25 2c 6c 65 6e 25 2c 40 |... buff|%,len%,@|
|000019b0| 25 0d 01 c2 07 ea 20 85 | 0d 01 cc 11 de 20 52 24 |%..... .|..... R$|
|000019c0| 28 33 29 2c 52 25 28 33 | 29 0d 01 d6 04 0d 01 e0 |(3),R%(3|).......|
|000019d0| 35 e7 20 28 5a 25 20 80 | 20 25 31 30 30 29 20 8c |5. (Z% .| %100) .|
|000019e0| 20 4e 25 20 3d 20 50 25 | 3a 51 25 20 3d 20 4f 25 | N% = P%|:Q% = O%|
|000019f0| 20 8b 20 4e 25 20 3d 20 | 50 25 3a 51 25 20 3d 20 | . N% = |P%:Q% = |
|00001a00| 50 25 0d 01 ea 04 0d 01 | f4 3e f4 20 49 66 20 61 |P%......|.>. If a|
|00001a10| 6e 20 65 72 72 6f 72 20 | 6f 63 63 75 72 73 2c 20 |n error |occurs, |
|00001a20| 70 72 69 6e 74 20 61 20 | 6d 65 73 73 61 67 65 20 |print a |message |
|00001a30| 61 6e 64 20 61 73 73 65 | 6d 62 6c 65 20 61 20 6e |and asse|mble a n|
|00001a40| 6f 2d 6f 70 0d 01 fe 12 | e7 20 28 5a 25 20 80 20 |o-op....|. (Z% . |
|00001a50| 25 31 30 29 20 8c 0d 02 | 08 76 20 20 ee 20 85 20 |%10) ...|.v . . |
|00001a60| ea 20 f1 20 22 45 72 72 | 6f 72 20 69 6e 20 66 6c |. . "Err|or in fl|
|00001a70| 6f 61 74 69 6e 67 20 70 | 6f 69 6e 74 20 61 73 73 |oating p|oint ass|
|00001a80| 65 6d 62 6c 65 72 3a 22 | 27 f6 24 3b 22 20 77 68 |embler:"|'.$;" wh|
|00001a90| 69 6c 65 20 61 73 73 65 | 6d 62 6c 69 6e 67 20 22 |ile asse|mbling "|
|00001aa0| 63 6f 64 65 24 3a 21 51 | 25 20 3d 20 26 45 31 41 |code$:!Q|% = &E1A|
|00001ab0| 30 30 30 30 30 3a 51 25 | 20 2b 3d 20 34 3a f2 73 |00000:Q%| += 4:.s|
|00001ac0| 65 74 61 64 64 72 3a 20 | 3d 20 22 22 0d 02 12 05 |etaddr: |= ""....|
|00001ad0| cc 0d 02 1c 32 20 20 ee | 20 85 20 ea 20 21 51 25 |....2 .| . . !Q%|
|00001ae0| 20 3d 20 26 45 31 41 30 | 30 30 30 30 3a 51 25 20 | = &E1A0|0000:Q% |
|00001af0| 2b 3d 20 34 3a f2 73 65 | 74 61 64 64 72 3a 20 3d |+= 4:.se|taddr: =|
|00001b00| 20 22 22 0d 02 26 05 cd | 0d 02 30 04 0d 02 3a 3c | ""..&..|..0...:<|
|00001b10| f4 20 53 70 6c 69 74 20 | 74 68 65 20 73 74 72 69 |. Split |the stri|
|00001b20| 6e 67 20 69 6e 74 6f 20 | 6f 70 63 6f 64 65 20 61 |ng into |opcode a|
|00001b30| 6e 64 20 75 70 20 74 6f | 20 74 68 72 65 65 20 61 |nd up to| three a|
|00001b40| 72 67 75 6d 65 6e 74 73 | 0d 02 44 19 f2 73 70 6c |rguments|..D..spl|
|00001b50| 69 74 28 63 6f 64 65 24 | 2c 6f 70 63 24 2c 52 24 |it(code$|,opc$,R$|
|00001b60| 29 0d 02 4e 04 0d 02 58 | 20 f4 20 43 68 65 63 6b |)..N...X| . Check|
|00001b70| 20 66 6f 72 20 61 6e 20 | 4f 50 54 20 73 74 61 74 | for an |OPT stat|
|00001b80| 65 6d 65 6e 74 0d 02 62 | 24 e7 20 6f 70 63 24 3d |ement..b|$. opc$=|
|00001b90| 22 4f 50 54 22 20 5a 25 | 20 3d 20 a0 28 52 24 28 |"OPT" Z%| = .(R$(|
|00001ba0| 31 29 29 3a 20 3d 20 22 | 22 0d 02 6c 04 0d 02 76 |1)): = "|"..l...v|
|00001bb0| 1a f4 20 43 68 65 63 6b | 20 66 6f 72 20 70 73 65 |.. Check| for pse|
|00001bc0| 75 64 6f 2d 6f 70 73 0d | 02 80 35 e7 20 c0 6f 70 |udo-ops.|..5. .op|
|00001bd0| 63 24 2c 35 29 3d 22 45 | 51 55 46 50 22 20 8c 20 |c$,5)="E|QUFP" . |
|00001be0| f2 65 71 75 66 70 28 52 | 24 28 31 29 29 3a f2 73 |.equfp(R|$(1)):.s|
|00001bf0| 65 74 61 64 64 72 3a 20 | 3d 20 22 22 0d 02 8a 35 |etaddr: |= ""...5|
|00001c00| e7 20 c0 6f 70 63 24 2c | 35 29 3d 22 45 51 55 46 |. .opc$,|5)="EQUF|
|00001c10| 53 22 20 8c 20 f2 65 71 | 75 66 73 28 52 24 28 31 |S" . .eq|ufs(R$(1|
|00001c20| 29 29 3a f2 73 65 74 61 | 64 64 72 3a 20 3d 20 22 |)):.seta|ddr: = "|
|00001c30| 22 0d 02 94 38 e7 20 c0 | 6f 70 63 24 2c 34 29 3d |"...8. .|opc$,4)=|
|00001c40| 22 45 51 55 46 22 20 8c | 20 f2 65 71 75 66 28 6f |"EQUF" .| .equf(o|
|00001c50| 70 63 24 2c 52 24 28 31 | 29 29 3a f2 73 65 74 61 |pc$,R$(1|)):.seta|
|00001c60| 64 64 72 3a 20 3d 20 22 | 22 0d 02 9e 04 0d 02 a8 |ddr: = "|".......|
|00001c70| 3f f4 20 43 72 61 63 6b | 20 74 68 65 20 6f 70 63 |?. Crack| the opc|
|00001c80| 6f 64 65 20 74 6f 20 67 | 65 74 20 74 68 65 20 63 |ode to g|et the c|
|00001c90| 6f 6e 64 69 74 69 6f 6e | 20 63 6f 64 65 2c 20 70 |ondition| code, p|
|00001ca0| 72 65 63 69 73 69 6f 6e | 20 61 6e 64 0d 02 b2 15 |recision| and....|
|00001cb0| f4 20 72 6f 75 6e 64 69 | 6e 67 20 66 6f 72 6d 61 |. roundi|ng forma|
|00001cc0| 74 0d 02 bc 2b f2 6f 70 | 63 6f 64 65 28 6f 70 63 |t...+.op|code(opc|
|00001cd0| 24 2c 52 24 28 32 29 2c | 63 63 24 2c 70 72 65 63 |$,R$(2),|cc$,prec|
|00001ce0| 24 2c 72 6f 75 6e 64 24 | 2c 65 25 29 0d 02 c6 04 |$,round$|,e%)....|
|00001cf0| 0d 02 d0 43 63 63 25 20 | 3d 20 a7 22 45 51 20 4e |...Ccc% |= ."EQ N|
|00001d00| 45 20 43 53 20 43 43 20 | 4d 49 20 50 4c 20 56 53 |E CS CC |MI PL VS|
|00001d10| 20 56 43 20 48 49 20 4c | 53 20 47 45 20 4c 54 20 | VC HI L|S GE LT |
|00001d20| 47 54 20 4c 45 20 41 4c | 20 4e 56 22 2c 63 63 24 |GT LE AL| NV",cc$|
|00001d30| 29 2d 31 0d 02 da 24 e7 | 20 63 63 25 3c 30 20 85 |)-1...$.| cc%<0 .|
|00001d40| 20 31 2c 22 42 61 64 20 | 63 6f 6e 64 69 74 69 6f | 1,"Bad |conditio|
|00001d50| 6e 20 63 6f 64 65 22 0d | 02 e4 3f f4 20 43 43 20 |n code".|..?. CC |
|00001d60| 69 6e 20 62 69 74 73 20 | 32 38 2d 33 31 2c 20 62 |in bits |28-31, b|
|00001d70| 69 74 73 20 38 2d 31 31 | 20 61 6c 77 61 79 73 20 |its 8-11| always |
|00001d80| 30 30 30 31 20 28 63 6f | 2d 70 72 6f 63 65 73 73 |0001 (co|-process|
|00001d90| 6f 72 20 49 44 29 0d 02 | ee 28 77 6f 72 64 25 20 |or ID)..|.(word% |
|00001da0| 3d 20 28 28 63 63 25 20 | 81 20 33 29 3c 3c 32 38 |= ((cc% |. 3)<<28|
|00001db0| 29 20 84 20 28 25 30 30 | 30 31 3c 3c 38 29 0d 02 |) . (%00|01<<8)..|
|00001dc0| f8 04 0d 03 02 1d f4 20 | 4e 6f 77 20 64 65 63 6f |....... |Now deco|
|00001dd0| 64 65 20 74 68 65 20 6d | 6e 65 6d 6f 6e 69 63 0d |de the m|nemonic.|
|00001de0| 03 0c 26 f2 6d 6e 65 6d | 28 6f 70 63 24 2c 65 25 |..&.mnem|(opc$,e%|
|00001df0| 2c 6d 6e 65 6d 25 2c 6d | 6f 6e 61 64 25 2c 67 72 |,mnem%,m|onad%,gr|
|00001e00| 6f 75 70 25 29 0d 03 16 | 2e 77 6f 72 64 25 20 3d |oup%)...|.word% =|
|00001e10| 20 77 6f 72 64 25 20 84 | 20 28 6d 6e 65 6d 25 3c | word% .| (mnem%<|
|00001e20| 3c 32 30 29 20 84 20 28 | 6d 6f 6e 61 64 25 3c 3c |<20) . (|monad%<<|
|00001e30| 31 35 29 0d 03 20 04 0d | 03 2a 43 f4 20 44 65 61 |15).. ..|.*C. Dea|
|00001e40| 6c 20 77 69 74 68 20 74 | 68 65 20 72 65 67 69 73 |l with t|he regis|
|00001e50| 74 65 72 73 2e 20 47 72 | 6f 75 70 20 31 20 28 6c |ters. Gr|oup 1 (l|
|00001e60| 6f 61 64 2f 73 74 6f 72 | 65 29 20 68 61 76 65 20 |oad/stor|e) have |
|00001e70| 61 64 64 72 65 73 73 65 | 73 2c 0d 03 34 25 f4 20 |addresse|s,..4%. |
|00001e80| 61 6e 64 20 6d 75 73 74 | 20 62 65 20 74 72 65 61 |and must| be trea|
|00001e90| 74 65 64 20 73 65 70 61 | 72 61 74 65 6c 79 2e 0d |ted sepa|rately..|
|00001ea0| 03 3e 04 0d 03 48 10 e7 | 20 67 72 6f 75 70 25 3d |.>...H..| group%=|
|00001eb0| 31 20 8c 0d 03 52 1e 20 | 20 f2 72 65 67 61 64 64 |1 ...R. | .regadd|
|00001ec0| 72 28 52 24 2c 52 25 2c | 70 72 65 25 2c 77 62 25 |r(R$,R%,|pre%,wb%|
|00001ed0| 29 0d 03 5c 29 20 20 f2 | 6c 6f 61 64 73 74 6f 72 |)..\) .|loadstor|
|00001ee0| 65 28 77 6f 72 64 25 2c | 70 72 65 63 24 2c 52 25 |e(word%,|prec$,R%|
|00001ef0| 2c 70 72 65 25 2c 77 62 | 25 29 0d 03 66 05 cc 0d |,pre%,wb|%)..f...|
|00001f00| 03 70 25 20 20 f2 72 65 | 67 73 28 52 24 2c 67 72 |.p% .re|gs(R$,gr|
|00001f10| 6f 75 70 25 2c 6d 6f 6e | 61 64 25 2c 52 25 2c 69 |oup%,mon|ad%,R%,i|
|00001f20| 6d 6d 25 29 0d 03 7a 30 | 20 20 f2 65 6e 63 6f 64 |mm%)..z0| .encod|
|00001f30| 65 28 77 6f 72 64 25 2c | 67 72 6f 75 70 25 2c 70 |e(word%,|group%,p|
|00001f40| 72 65 63 24 2c 72 6f 75 | 6e 64 24 2c 52 25 2c 69 |rec$,rou|nd$,R%,i|
|00001f50| 6d 6d 25 29 0d 03 84 05 | cd 0d 03 8e 04 0d 03 98 |mm%)....|........|
|00001f60| 2d f4 20 4f 70 74 69 6f | 6e 61 6c 6c 79 20 70 72 |-. Optio|nally pr|
|00001f70| 69 6e 74 20 6f 75 74 20 | 74 68 65 20 61 73 73 65 |int out |the asse|
|00001f80| 6d 62 6c 65 64 20 63 6f | 64 65 0d 03 a2 10 e7 20 |mbled co|de..... |
|00001f90| 28 5a 25 20 80 20 31 29 | 20 8c 0d 03 ac 13 20 20 |(Z% . 1)| ..... |
|00001fa0| 40 25 20 3d 20 26 31 30 | 30 30 30 30 38 0d 03 b6 |@% = &10|00008...|
|00001fb0| 11 20 20 61 64 64 24 20 | 3d 20 c3 7e 4e 25 0d 03 |. add$ |= .~N%..|
|00001fc0| c0 23 20 20 61 64 64 24 | 20 3d 20 c4 38 2d a9 28 |.# add$| = .8-.(|
|00001fd0| 61 64 64 24 29 2c 22 30 | 22 29 20 2b 20 61 64 64 |add$),"0|") + add|
|00001fe0| 24 0d 03 ca 23 20 20 f1 | 20 61 64 64 24 3b 22 20 |$...# .| add$;" |
|00001ff0| 22 3b 7e 77 6f 72 64 25 | 3b 89 28 31 31 29 3b 63 |";~word%|;.(11);c|
|00002000| 6f 64 65 24 0d 03 d4 05 | cd 0d 03 de 14 e7 20 28 |ode$....|...... (|
|00002010| 5a 25 20 80 20 25 31 30 | 30 30 29 20 8c 0d 03 e8 |Z% . %10|00) ....|
|00002020| 36 20 20 c8 99 20 22 44 | 65 62 75 67 67 65 72 5f |6 .. "D|ebugger_|
|00002030| 44 69 73 61 73 73 65 6d | 62 6c 65 22 2c 77 6f 72 |Disassem|ble",wor|
|00002040| 64 25 2c 4e 25 20 b8 20 | 2c 62 75 66 66 25 2c 6c |d%,N% . |,buff%,l|
|00002050| 65 6e 25 0d 03 f2 1f 20 | 20 6c 65 6e 25 20 2b 3d |en%.... | len% +=|
|00002060| 20 31 3a 62 75 66 66 25 | 3f 6c 65 6e 25 20 3d 20 | 1:buff%|?len% = |
|00002070| 31 33 0d 03 fc 13 20 20 | 40 25 20 3d 20 26 31 30 |13.... |@% = &10|
|00002080| 30 30 30 30 38 0d 04 06 | 11 20 20 61 64 64 24 20 |00008...|. add$ |
|00002090| 3d 20 c3 7e 4e 25 0d 04 | 10 23 20 20 61 64 64 24 |= .~N%..|.# add$|
|000020a0| 20 3d 20 c4 38 2d a9 28 | 61 64 64 24 29 2c 22 30 | = .8-.(|add$),"0|
|000020b0| 22 29 20 2b 20 61 64 64 | 24 0d 04 1a 24 20 20 f1 |") + add|$...$ .|
|000020c0| 20 61 64 64 24 3b 22 20 | 22 3b 7e 77 6f 72 64 25 | add$;" |";~word%|
|000020d0| 3b 89 28 31 31 29 3b 24 | 62 75 66 66 25 0d 04 2e |;.(11);$|buff%...|
|000020e0| 05 cd 0d 04 38 04 0d 04 | 42 2d f4 20 46 69 6e 61 |....8...|B-. Fina|
|000020f0| 6c 6c 79 2c 20 70 75 74 | 20 74 68 65 20 69 6e 73 |lly, put| the ins|
|00002100| 74 72 75 63 74 69 6f 6e | 20 69 6e 20 6d 65 6d 6f |truction| in memo|
|00002110| 72 79 2e 0d 04 4c 17 21 | 51 25 20 3d 20 77 6f 72 |ry...L.!|Q% = wor|
|00002120| 64 25 3a 51 25 20 2b 3d | 20 34 0d 04 56 04 0d 04 |d%:Q% +=| 4..V...|
|00002130| 60 0c f2 73 65 74 61 64 | 64 72 0d 04 6a 04 0d 04 |`..setad|dr..j...|
|00002140| 74 08 3d 20 22 22 0d 04 | 7e 04 0d 04 88 4d 2d 2d |t.= ""..|~....M--|
|00002150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002180| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002190| 2d 2d 2d 2d 2d 2d 2d 0d | 04 92 04 0d 04 9c 0e dd |-------.|........|
|000021a0| 20 f2 73 65 74 61 64 64 | 72 0d 04 a6 04 0d 04 b0 | .setadd|r.......|
|000021b0| 35 e7 20 28 5a 25 20 80 | 20 25 31 30 30 29 20 8c |5. (Z% .| %100) .|
|000021c0| 20 50 25 20 2b 3d 20 28 | 51 25 20 2d 20 4f 25 29 | P% += (|Q% - O%)|
|000021d0| 3a 4f 25 20 3d 20 51 25 | 20 8b 20 50 25 20 3d 20 |:O% = Q%| . P% = |
|000021e0| 51 25 0d 04 ba 04 0d 04 | c4 05 e1 0d 04 ce 04 0d |Q%......|........|
|000021f0| 04 d8 4d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..M-----|--------|
|00002200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 04 e2 04 |--------|----....|
|00002240| 0d 04 ec 1d dd 20 f2 73 | 70 6c 69 74 28 63 6f 64 |..... .s|plit(cod|
|00002250| 65 24 2c f8 20 6f 70 63 | 24 2c 52 24 29 0d 04 f6 |e$,. opc|$,R$)...|
|00002260| 1a ea 20 49 25 2c 66 6c | 61 67 25 2c 63 68 61 72 |.. I%,fl|ag%,char|
|00002270| 24 2c 74 65 6d 70 24 0d | 05 00 04 0d 05 0a 15 e3 |$,temp$.|........|
|00002280| 20 49 25 3d 31 20 b8 20 | a9 28 63 6f 64 65 24 29 | I%=1 . |.(code$)|
|00002290| 0d 05 14 1a 20 20 63 68 | 61 72 24 20 3d 20 c1 63 |.... ch|ar$ = .c|
|000022a0| 6f 64 65 24 2c 49 25 2c | 31 29 0d 05 1e 10 20 20 |ode$,I%,|1).... |
|000022b0| c8 8e 20 63 68 61 72 24 | 20 ca 0d 05 28 0d 20 20 |.. char$| ...(. |
|000022c0| 20 20 c9 20 22 20 22 0d | 05 32 4d 20 20 20 20 20 | . " ".|.2M |
|000022d0| 20 e7 20 6f 70 63 24 3d | 22 22 20 80 20 74 65 6d | . opc$=|"" . tem|
|000022e0| 70 24 3c 3e 22 22 20 8c | 20 6f 70 63 24 20 3d 20 |p$<>"" .| opc$ = |
|000022f0| a4 74 6f 75 70 70 65 72 | 28 74 65 6d 70 24 29 3a |.toupper|(temp$):|
|00002300| 74 65 6d 70 24 20 3d 20 | 22 22 3a 66 6c 61 67 25 |temp$ = |"":flag%|
|00002310| 20 3d 20 31 0d 05 3c 0d | 20 20 20 20 c9 20 22 2c | = 1..<.| . ",|
|00002320| 22 0d 05 46 1b 20 20 20 | 20 20 20 52 24 28 66 6c |"..F. | R$(fl|
|00002330| 61 67 25 29 20 3d 20 74 | 65 6d 70 24 0d 05 50 1f |ag%) = t|emp$..P.|
|00002340| 20 20 20 20 20 20 74 65 | 6d 70 24 20 3d 20 22 22 | te|mp$ = ""|
|00002350| 3a 66 6c 61 67 25 20 2b | 3d 20 31 0d 05 5a 09 20 |:flag% +|= 1..Z. |
|00002360| 20 20 20 7f 0d 05 64 1f | 20 20 20 20 20 20 74 65 | ...d.| te|
|00002370| 6d 70 24 20 3d 20 74 65 | 6d 70 24 20 2b 20 63 68 |mp$ = te|mp$ + ch|
|00002380| 61 72 24 0d 05 6e 07 20 | 20 cb 0d 05 78 05 ed 0d |ar$..n. | ...x...|
|00002390| 05 82 15 52 24 28 66 6c | 61 67 25 29 20 3d 20 74 |...R$(fl|ag%) = t|
|000023a0| 65 6d 70 24 0d 05 8c 04 | 0d 05 96 05 e1 0d 05 a0 |emp$....|........|
|000023b0| 04 0d 05 aa 4c 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |....L---|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 05 b4 |--------|-----...|
|00002400| 04 0d 05 be 11 dd 20 f2 | 65 71 75 66 70 28 52 31 |...... .|equfp(R1|
|00002410| 24 29 0d 05 c8 3b ea 20 | 6d 61 6e 74 24 2c 65 78 |$)...;. |mant$,ex|
|00002420| 70 24 2c 65 78 70 25 2c | 73 69 67 6e 25 2c 65 73 |p$,exp%,|sign%,es|
|00002430| 69 67 6e 25 2c 74 65 73 | 74 25 2c 70 6f 69 6e 74 |ign%,tes|t%,point|
|00002440| 25 2c 77 6f 72 64 25 2c | 49 25 2c 4a 25 0d 05 d2 |%,word%,|I%,J%...|
|00002450| 04 0d 05 dc 2f f4 20 47 | 65 74 20 76 61 6c 75 65 |..../. G|et value|
|00002460| 20 69 6e 74 6f 20 6d 61 | 6e 74 69 73 73 61 20 2b | into ma|ntissa +|
|00002470| 20 65 78 70 6f 6e 65 6e | 74 20 66 6f 72 6d 61 74 | exponen|t format|
|00002480| 0d 05 e6 49 f4 20 54 68 | 65 20 6d 61 6e 74 69 73 |...I. Th|e mantis|
|00002490| 73 61 20 69 73 20 6b 65 | 70 74 20 61 73 20 61 20 |sa is ke|pt as a |
|000024a0| 73 74 72 69 6e 67 2c 20 | 73 69 6e 63 65 20 69 74 |string, |since it|
|000024b0| 20 63 61 6e 20 65 78 63 | 65 65 64 20 74 68 65 20 | can exc|eed the |
|000024c0| 70 72 65 63 69 73 69 6f | 6e 0d 05 f0 19 f4 20 6f |precisio|n..... o|
|000024d0| 66 20 61 20 42 61 73 69 | 63 20 76 61 72 69 61 62 |f a Basi|c variab|
|000024e0| 6c 65 0d 05 fa 04 0d 06 | 04 14 e7 20 a4 69 73 66 |le......|... .isf|
|000024f0| 6e 75 6d 28 52 31 24 29 | 20 8c 0d 06 0e 1a 20 20 |num(R1$)| ..... |
|00002500| 6d 61 6e 74 24 20 3d 20 | 52 31 24 3a 65 78 70 25 |mant$ = |R1$:exp%|
|00002510| 20 3d 20 30 0d 06 18 05 | cc 0d 06 22 25 20 20 e7 | = 0....|..."% .|
|00002520| 20 ac 20 a4 69 73 65 78 | 70 6e 75 6d 28 52 31 24 | . .isex|pnum(R1$|
|00002530| 2c 6d 61 6e 74 24 2c 65 | 78 70 25 29 20 8c 0d 06 |,mant$,e|xp%) ...|
|00002540| 2c 17 20 20 20 20 52 31 | 24 20 3d 20 c3 28 a0 28 |,. R1|$ = .(.(|
|00002550| 52 31 24 29 29 0d 06 36 | 3a 20 20 20 20 e7 20 ac |R1$))..6|: . .|
|00002560| 20 a4 69 73 65 78 70 6e | 75 6d 28 52 31 24 2c 6d | .isexpn|um(R1$,m|
|00002570| 61 6e 74 24 2c 65 78 70 | 25 29 20 6d 61 6e 74 24 |ant$,exp|%) mant$|
|00002580| 20 3d 20 52 31 24 3a 65 | 78 70 25 20 3d 20 30 0d | = R1$:e|xp% = 0.|
|00002590| 06 40 07 20 20 cd 0d 06 | 4a 05 cd 0d 06 54 2b e7 |.@. ...|J....T+.|
|000025a0| 20 94 28 65 78 70 25 29 | 3e 39 39 39 39 20 85 20 | .(exp%)|>9999 . |
|000025b0| 31 2c 22 45 78 70 6f 6e | 65 6e 74 20 74 6f 6f 20 |1,"Expon|ent too |
|000025c0| 6c 61 72 67 65 22 0d 06 | 5e 04 0d 06 68 22 f4 20 |large"..|^...h". |
|000025d0| 47 65 74 20 74 68 65 20 | 73 69 67 6e 20 6f 66 20 |Get the |sign of |
|000025e0| 74 68 65 20 6d 61 6e 74 | 69 73 73 61 0d 06 72 04 |the mant|issa..r.|
|000025f0| 0d 06 7c 17 73 69 67 6e | 25 20 3d 20 31 3a 74 65 |..|.sign|% = 1:te|
|00002600| 73 74 25 20 3d 20 b9 0d | 06 86 0c c8 95 20 74 65 |st% = ..|..... te|
|00002610| 73 74 25 0d 06 90 14 20 | 20 c8 8e 20 c0 6d 61 6e |st%.... | .. .man|
|00002620| 74 24 2c 31 29 20 ca 0d | 06 9a 20 20 20 20 20 c9 |t$,1) ..|.. .|
|00002630| 20 22 2b 22 20 3a 6d 61 | 6e 74 24 20 3d 20 c1 6d | "+" :ma|nt$ = .m|
|00002640| 61 6e 74 24 2c 32 29 0d | 06 a4 2f 20 20 20 20 c9 |ant$,2).|../ .|
|00002650| 20 22 2d 22 20 3a 6d 61 | 6e 74 24 20 3d 20 c1 6d | "-" :ma|nt$ = .m|
|00002660| 61 6e 74 24 2c 32 29 3a | 73 69 67 6e 25 20 3d 20 |ant$,2):|sign% = |
|00002670| 2d 73 69 67 6e 25 0d 06 | ae 13 20 20 20 20 7f 20 |-sign%..|.. . |
|00002680| 74 65 73 74 25 20 3d 20 | a3 0d 06 b8 07 20 20 cb |test% = |..... .|
|00002690| 0d 06 c2 05 ce 0d 06 cc | 1a 73 69 67 6e 25 20 20 |........|.sign% |
|000026a0| 3d 20 28 31 2d 73 69 67 | 6e 25 29 20 81 20 32 0d |= (1-sig|n%) . 2.|
|000026b0| 06 d6 04 0d 06 e0 35 f4 | 20 46 69 6e 64 20 74 68 |......5.| Find th|
|000026c0| 65 20 64 65 63 69 6d 61 | 6c 20 70 6f 69 6e 74 2c |e decima|l point,|
|000026d0| 20 61 6e 64 20 61 64 6a | 75 73 74 20 74 68 65 20 | and adj|ust the |
|000026e0| 65 78 70 6f 6e 65 6e 74 | 0d 06 ea 04 0d 06 f4 18 |exponent|........|
|000026f0| 70 6f 69 6e 74 25 20 3d | 20 a7 6d 61 6e 74 24 2c |point% =| .mant$,|
|00002700| 22 2e 22 29 0d 06 fe 3a | e7 20 70 6f 69 6e 74 25 |".")...:|. point%|
|00002710| 3e 30 20 6d 61 6e 74 24 | 20 3d 20 c0 6d 61 6e 74 |>0 mant$| = .mant|
|00002720| 24 2c 70 6f 69 6e 74 25 | 2d 31 29 20 2b 20 c1 6d |$,point%|-1) + .m|
|00002730| 61 6e 74 24 2c 70 6f 69 | 6e 74 25 2b 31 29 0d 07 |ant$,poi|nt%+1)..|
|00002740| 08 23 e7 20 70 6f 69 6e | 74 25 3e 32 20 65 78 70 |.#. poin|t%>2 exp|
|00002750| 25 20 2b 3d 20 28 70 6f | 69 6e 74 25 20 2d 20 32 |% += (po|int% - 2|
|00002760| 29 0d 07 12 22 e7 20 70 | 6f 69 6e 74 25 3d 31 20 |)...". p|oint%=1 |
|00002770| 6d 61 6e 74 24 20 3d 20 | 22 30 22 20 2b 20 6d 61 |mant$ = |"0" + ma|
|00002780| 6e 74 24 0d 07 1c 25 e7 | 20 70 6f 69 6e 74 25 3d |nt$...%.| point%=|
|00002790| 30 20 65 78 70 25 20 2b | 3d 20 28 a9 28 6d 61 6e |0 exp% +|= (.(man|
|000027a0| 74 24 29 20 2d 20 31 29 | 0d 07 26 04 0d 07 30 36 |t$) - 1)|..&...06|
|000027b0| f4 20 4e 6f 77 20 73 74 | 72 69 70 20 6c 65 61 64 |. Now st|rip lead|
|000027c0| 69 6e 67 20 7a 65 72 6f | 73 2c 20 61 6e 64 20 61 |ing zero|s, and a|
|000027d0| 64 6a 75 73 74 20 74 68 | 65 20 65 78 70 6f 6e 65 |djust th|e expone|
|000027e0| 6e 74 0d 07 3a 04 0d 07 | 44 0e 70 6f 69 6e 74 25 |nt..:...|D.point%|
|000027f0| 20 3d 20 31 0d 07 4e 1b | c8 95 20 c1 6d 61 6e 74 | = 1..N.|.. .mant|
|00002800| 24 2c 70 6f 69 6e 74 25 | 2c 31 29 3d 22 30 22 0d |$,point%|,1)="0".|
|00002810| 07 58 11 20 20 70 6f 69 | 6e 74 25 20 2b 3d 20 31 |.X. poi|nt% += 1|
|00002820| 0d 07 62 05 ce 0d 07 6c | 3a e7 20 70 6f 69 6e 74 |..b....l|:. point|
|00002830| 25 3e a9 28 6d 61 6e 74 | 24 29 20 21 51 25 20 3d |%>.(mant|$) !Q% =|
|00002840| 20 30 3a 51 25 21 34 20 | 3d 20 30 3a 51 25 21 38 | 0:Q%!4 |= 0:Q%!8|
|00002850| 20 3d 20 30 3a 51 25 20 | 2b 3d 20 31 32 3a e1 0d | = 0:Q% |+= 12:..|
|00002860| 07 76 3a e7 20 70 6f 69 | 6e 74 25 3e 31 20 65 78 |.v:. poi|nt%>1 ex|
|00002870| 70 25 20 2d 3d 20 28 70 | 6f 69 6e 74 25 20 2d 20 |p% -= (p|oint% - |
|00002880| 31 29 3a 6d 61 6e 74 24 | 20 3d 20 c1 6d 61 6e 74 |1):mant$| = .mant|
|00002890| 24 2c 70 6f 69 6e 74 25 | 29 0d 07 80 04 0d 07 8a |$,point%|).......|
|000028a0| 22 f4 20 47 65 74 20 74 | 68 65 20 73 69 67 6e 20 |". Get t|he sign |
|000028b0| 6f 66 20 74 68 65 20 65 | 78 70 6f 6e 65 6e 74 0d |of the e|xponent.|
|000028c0| 07 94 04 0d 07 9e 2b 65 | 73 69 67 6e 25 20 3d 20 |......+e|sign% = |
|000028d0| 2d b4 28 65 78 70 25 29 | 3a e7 20 65 73 69 67 6e |-.(exp%)|:. esign|
|000028e0| 25 3c 30 20 65 73 69 67 | 6e 25 20 3d 20 30 0d 07 |%<0 esig|n% = 0..|
|000028f0| a8 14 65 78 70 25 20 20 | 20 3d 20 94 28 65 78 70 |..exp% | = .(exp|
|00002900| 25 29 0d 07 b2 04 0d 07 | bc 35 f4 20 57 6f 72 6b |%)......|.5. Work|
|00002910| 20 6f 75 74 20 74 68 65 | 20 62 79 74 65 20 70 61 | out the| byte pa|
|00002920| 74 74 65 72 6e 2c 20 61 | 6e 64 20 70 75 74 20 69 |ttern, a|nd put i|
|00002930| 74 20 69 6e 20 6d 65 6d | 6f 72 79 0d 07 c6 04 0d |t in mem|ory.....|
|00002940| 07 d0 12 65 78 70 24 20 | 3d 20 c3 28 65 78 70 25 |...exp$ |= .(exp%|
|00002950| 29 0d 07 da 18 77 6f 72 | 64 25 20 3d 20 28 65 73 |)....wor|d% = (es|
|00002960| 69 67 6e 25 3c 3c 33 30 | 29 0d 07 e4 3a e7 20 a9 |ign%<<30|)...:. .|
|00002970| 28 65 78 70 24 29 3d 34 | 20 77 6f 72 64 25 20 2b |(exp$)=4| word% +|
|00002980| 3d 20 28 bb 28 c0 65 78 | 70 24 2c 31 29 29 3c 3c |= (.(.ex|p$,1))<<|
|00002990| 32 34 29 3a 65 78 70 24 | 20 3d 20 c1 65 78 70 24 |24):exp$| = .exp$|
|000029a0| 2c 32 29 0d 07 ee 3a e7 | 20 a9 28 65 78 70 24 29 |,2)...:.| .(exp$)|
|000029b0| 3d 33 20 77 6f 72 64 25 | 20 2b 3d 20 28 bb 28 c0 |=3 word%| += (.(.|
|000029c0| 65 78 70 24 2c 31 29 29 | 3c 3c 32 30 29 3a 65 78 |exp$,1))|<<20):ex|
|000029d0| 70 24 20 3d 20 c1 65 78 | 70 24 2c 32 29 0d 07 f8 |p$ = .ex|p$,2)...|
|000029e0| 3a e7 20 a9 28 65 78 70 | 24 29 3d 32 20 77 6f 72 |:. .(exp|$)=2 wor|
|000029f0| 64 25 20 2b 3d 20 28 bb | 28 c0 65 78 70 24 2c 31 |d% += (.|(.exp$,1|
|00002a00| 29 29 3c 3c 31 36 29 3a | 65 78 70 24 20 3d 20 c1 |))<<16):|exp$ = .|
|00002a10| 65 78 70 24 2c 32 29 0d | 08 02 04 0d 08 0c 1a 77 |exp$,2).|.......w|
|00002a20| 6f 72 64 25 20 2b 3d 20 | 28 bb 28 65 78 70 24 29 |ord% += |(.(exp$)|
|00002a30| 3c 3c 31 32 29 0d 08 16 | 13 e3 20 49 25 3d 38 20 |<<12)...|.. I%=8 |
|00002a40| b8 20 30 20 88 20 2d 34 | 0d 08 20 40 20 20 e7 20 |. 0 . -4|.. @ . |
|00002a50| a9 28 6d 61 6e 74 24 29 | 3e 30 20 77 6f 72 64 25 |.(mant$)|>0 word%|
|00002a60| 20 2b 3d 20 28 bb 28 c0 | 6d 61 6e 74 24 2c 31 29 | += (.(.|mant$,1)|
|00002a70| 29 3c 3c 49 25 29 3a 6d | 61 6e 74 24 20 3d 20 c1 |)<<I%):m|ant$ = .|
|00002a80| 6d 61 6e 74 24 2c 32 29 | 0d 08 2a 05 ed 0d 08 34 |mant$,2)|..*....4|
|00002a90| 1f 77 6f 72 64 25 20 3d | 20 77 6f 72 64 25 20 84 |.word% =| word% .|
|00002aa0| 20 28 73 69 67 6e 25 3c | 3c 33 31 29 0d 08 3e 0f | (sign%<|<31)..>.|
|00002ab0| 21 51 25 20 3d 20 77 6f | 72 64 25 0d 08 48 04 0d |!Q% = wo|rd%..H..|
|00002ac0| 08 52 12 e3 20 49 25 3d | 34 20 b8 20 38 20 88 20 |.R.. I%=|4 . 8 . |
|00002ad0| 34 0d 08 5c 0f 20 20 77 | 6f 72 64 25 20 3d 20 30 |4..\. w|ord% = 0|
|00002ae0| 0d 08 66 16 20 20 e3 20 | 4a 25 3d 32 38 20 b8 20 |..f. . |J%=28 . |
|00002af0| 30 20 88 20 2d 34 0d 08 | 70 42 20 20 20 20 e7 20 |0 . -4..|pB . |
|00002b00| a9 28 6d 61 6e 74 24 29 | 3e 30 20 77 6f 72 64 25 |.(mant$)|>0 word%|
|00002b10| 20 2b 3d 20 28 bb 28 c0 | 6d 61 6e 74 24 2c 31 29 | += (.(.|mant$,1)|
|00002b20| 29 3c 3c 4a 25 29 3a 6d | 61 6e 74 24 20 3d 20 c1 |)<<J%):m|ant$ = .|
|00002b30| 6d 61 6e 74 24 2c 32 29 | 0d 08 7a 07 20 20 ed 0d |mant$,2)|..z. ..|
|00002b40| 08 84 13 20 20 51 25 21 | 49 25 20 3d 20 77 6f 72 |... Q%!|I% = wor|
|00002b50| 64 25 0d 08 8e 05 ed 0d | 08 98 04 0d 08 a2 0c 51 |d%......|.......Q|
|00002b60| 25 20 2b 3d 20 31 32 0d | 08 ac 04 0d 08 b6 05 e1 |% += 12.|........|
|00002b70| 0d 08 c0 04 0d 08 ca 4c | 2d 2d 2d 2d 2d 2d 2d 2d |.......L|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ba0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bc0| 0d 08 d4 04 0d 08 de 11 | dd 20 f2 65 71 75 66 73 |........|. .equfs|
|00002bd0| 28 52 31 24 29 0d 08 e8 | 16 ea 20 65 78 70 25 2c |(R1$)...|.. exp%,|
|00002be0| 6d 61 6e 74 25 2c 73 69 | 67 6e 25 0d 08 f2 04 0d |mant%,si|gn%.....|
|00002bf0| 08 fc 10 7c 51 25 20 3d | 20 a0 28 52 31 24 29 0d |...|Q% =| .(R1$).|
|00002c00| 09 06 04 0d 09 10 3f 65 | 78 70 25 20 3d 20 51 25 |......?e|xp% = Q%|
|00002c10| 3f 34 3a e7 20 65 78 70 | 25 3d 30 20 84 20 65 78 |?4:. exp|%=0 . ex|
|00002c20| 70 25 3d 32 35 35 20 85 | 20 32 2c 22 43 6f 6e 73 |p%=255 .| 2,"Cons|
|00002c30| 74 61 6e 74 20 6f 75 74 | 20 6f 66 20 72 61 6e 67 |tant out| of rang|
|00002c40| 65 22 0d 09 1a 04 0d 09 | 24 25 6d 61 6e 74 25 20 |e"......|$%mant% |
|00002c50| 3d 20 94 28 21 51 25 29 | 3a 73 69 67 6e 25 20 3d |= .(!Q%)|:sign% =|
|00002c60| 20 51 25 3f 33 20 80 20 | 26 38 30 0d 09 2e 04 0d | Q%?3 . |&80.....|
|00002c70| 09 38 2a 21 51 25 20 3d | 20 28 73 69 67 6e 25 3c |.8*!Q% =| (sign%<|
|00002c80| 3c 32 34 29 20 2b 20 28 | 65 78 70 25 3c 3c 32 33 |<24) + (|exp%<<23|
|00002c90| 29 20 2b 20 6d 61 6e 74 | 25 0d 09 42 04 0d 09 4c |) + mant|%..B...L|
|00002ca0| 05 e1 0d 09 56 04 0d 09 | 60 4c 2d 2d 2d 2d 2d 2d |....V...|`L------|
|00002cb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cf0| 2d 2d 0d 09 6a 04 0d 09 | 74 15 dd 20 f2 65 71 75 |--..j...|t.. .equ|
|00002d00| 66 28 6f 70 63 24 2c 52 | 31 24 29 0d 09 7e 04 0d |f(opc$,R|1$)..~..|
|00002d10| 09 88 0b ea 20 5a 25 2c | 50 25 0d 09 92 04 0d 09 |.... Z%,|P%......|
|00002d20| 9c 1f 50 25 20 3d 20 51 | 25 3a 41 25 20 3d 20 51 |..P% = Q|%:A% = Q|
|00002d30| 25 3a f2 65 71 75 66 70 | 28 52 31 24 29 0d 09 a6 |%:.equfp|(R1$)...|
|00002d40| 04 0d 09 b0 13 c8 8e 20 | c1 6f 70 63 24 2c 35 2c |....... |.opc$,5,|
|00002d50| 31 29 20 ca 0d 09 ba 0b | 20 20 c9 20 22 53 22 0d |1) .....| . "S".|
|00002d60| 09 c4 18 20 20 20 20 5b | 20 20 20 20 20 20 20 20 |... [| |
|00002d70| 4f 50 54 20 20 20 30 0d | 09 ce 1f 20 20 20 20 a4 |OPT 0.|... .|
|00002d80| 66 6c 6f 61 74 28 22 4c | 44 46 50 20 20 46 30 2c |float("L|DFP F0,|
|00002d90| 5b 52 30 5d 22 29 0d 09 | d8 1f 20 20 20 20 a4 66 |[R0]")..|.. .f|
|00002da0| 6c 6f 61 74 28 22 53 54 | 46 53 20 20 46 30 2c 5b |loat("ST|FS F0,[|
|00002db0| 52 30 5d 22 29 0d 09 e2 | 1d 20 20 20 20 20 20 20 |R0]")...|. |
|00002dc0| 20 20 20 20 20 20 4d 4f | 56 20 20 20 50 43 2c 52 | MO|V PC,R|
|00002dd0| 31 34 0d 09 ec 09 20 20 | 20 20 5d 0d 09 f6 13 20 |14.... | ].... |
|00002de0| 20 20 20 51 25 20 3d 20 | 41 25 20 2b 20 34 0d 0a | Q% = |A% + 4..|
|00002df0| 00 0b 20 20 c9 20 22 44 | 22 0d 0a 0a 18 20 20 20 |.. . "D|".... |
|00002e00| 20 5b 20 20 20 20 20 20 | 20 20 4f 50 54 20 20 20 | [ | OPT |
|00002e10| 30 0d 0a 14 1f 20 20 20 | 20 a4 66 6c 6f 61 74 28 |0.... | .float(|
|00002e20| 22 4c 44 46 50 20 20 46 | 30 2c 5b 52 30 5d 22 29 |"LDFP F|0,[R0]")|
|00002e30| 0d 0a 1e 1f 20 20 20 20 | a4 66 6c 6f 61 74 28 22 |.... |.float("|
|00002e40| 53 54 46 44 20 20 46 30 | 2c 5b 52 30 5d 22 29 0d |STFD F0|,[R0]").|
|00002e50| 0a 28 1d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.(. | |
|00002e60| 4d 4f 56 20 20 20 50 43 | 2c 52 31 34 0d 0a 32 09 |MOV PC|,R14..2.|
|00002e70| 20 20 20 20 5d 0d 0a 3c | 13 20 20 20 20 51 25 20 | ]..<|. Q% |
|00002e80| 3d 20 41 25 20 2b 20 38 | 0d 0a 46 0b 20 20 c9 20 |= A% + 8|..F. . |
|00002e90| 22 45 22 0d 0a 50 18 20 | 20 20 20 5b 20 20 20 20 |"E"..P. | [ |
|00002ea0| 20 20 20 20 4f 50 54 20 | 20 20 30 0d 0a 5a 1f 20 | OPT | 0..Z. |
|00002eb0| 20 20 20 a4 66 6c 6f 61 | 74 28 22 4c 44 46 50 20 | .floa|t("LDFP |
|00002ec0| 20 46 30 2c 5b 52 30 5d | 22 29 0d 0a 64 1f 20 20 | F0,[R0]|")..d. |
|00002ed0| 20 20 a4 66 6c 6f 61 74 | 28 22 53 54 46 45 20 20 | .float|("STFE |
|00002ee0| 46 30 2c 5b 52 30 5d 22 | 29 0d 0a 6e 1d 20 20 20 |F0,[R0]"|)..n. |
|00002ef0| 20 20 20 20 20 20 20 20 | 20 20 4d 4f 56 20 20 20 | | MOV |
|00002f00| 50 43 2c 52 31 34 0d 0a | 78 09 20 20 20 20 5d 0d |PC,R14..|x. ].|
|00002f10| 0a 82 14 20 20 20 20 51 | 25 20 3d 20 41 25 20 2b |... Q|% = A% +|
|00002f20| 20 31 32 0d 0a 8c 24 20 | 20 7f 20 85 20 31 2c 22 | 12...$ | . . 1,"|
|00002f30| 4e 6f 20 73 75 63 68 20 | 73 75 66 66 69 78 20 6f |No such |suffix o|
|00002f40| 6e 20 45 51 55 46 22 0d | 0a 96 05 cb 0d 0a a0 04 |n EQUF".|........|
|00002f50| 0d 0a aa 0d d6 20 28 41 | 25 2b 31 32 29 0d 0a b4 |..... (A|%+12)...|
|00002f60| 04 0d 0a be 05 e1 0d 0a | c8 04 0d 0a d2 4c 2d 2d |........|.....L--|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fb0| 2d 2d 2d 2d 2d 2d 0d 0a | dc 04 0d 0a e6 33 dd 20 |------..|.....3. |
|00002fc0| f2 6f 70 63 6f 64 65 28 | 6f 70 63 24 2c 52 32 24 |.opcode(|opc$,R2$|
|00002fd0| 2c f8 20 63 63 24 2c f8 | 20 70 72 65 63 24 2c f8 |,. cc$,.| prec$,.|
|00002fe0| 20 72 6f 75 6e 64 24 2c | f8 20 65 25 29 0d 0a f0 | round$,|. e%)...|
|00002ff0| 15 ea 20 4c 25 3a 4c 25 | 20 3d 20 a9 28 6f 70 63 |.. L%:L%| = .(opc|
|00003000| 24 29 0d 0a fa 04 0d 0b | 04 29 e7 20 c0 6f 70 63 |$)......|.). .opc|
|00003010| 24 2c 34 29 3d 22 43 4d | 46 45 22 20 84 20 c0 6f |$,4)="CM|FE" . .o|
|00003020| 70 63 24 2c 34 29 3d 22 | 43 4e 46 45 22 20 8c 0d |pc$,4)="|CNFE" ..|
|00003030| 0b 0e 1e 20 20 6f 70 63 | 24 20 3d 20 c0 6f 70 63 |... opc|$ = .opc|
|00003040| 24 2c 33 29 2b c1 6f 70 | 63 24 2c 35 29 0d 0b 18 |$,3)+.op|c$,5)...|
|00003050| 0c 20 20 65 25 20 3d 20 | 31 0d 0b 22 05 cc 0d 0b |. e% = |1.."....|
|00003060| 2c 0c 20 20 65 25 20 3d | 20 30 0d 0b 36 05 cd 0d |,. e% =| 0..6...|
|00003070| 0b 40 04 0d 0b 4a 0a c8 | 8e 20 b9 20 ca 0d 0b 54 |.@...J..|. . ...T|
|00003080| 31 20 20 c9 20 4c 25 20 | 3d 20 33 20 3a 63 63 24 |1 . L% |= 3 :cc$|
|00003090| 20 3d 20 22 41 4c 22 3a | 70 72 65 63 24 20 3d 20 | = "AL":|prec$ = |
|000030a0| 22 22 3a 72 6f 75 6e 64 | 24 20 3d 20 22 22 0d 0b |"":round|$ = ""..|
|000030b0| 5e 35 20 20 c9 20 4c 25 | 20 3d 20 34 20 3a 63 63 |^5 . L%| = 4 :cc|
|000030c0| 24 20 3d 20 22 41 4c 22 | 3a 70 72 65 63 24 20 3d |$ = "AL"|:prec$ =|
|000030d0| 20 c2 6f 70 63 24 29 3a | 72 6f 75 6e 64 24 20 3d | .opc$):|round$ =|
|000030e0| 20 22 22 0d 0b 68 40 20 | 20 c9 20 4c 25 20 3d 20 | ""..h@ | . L% = |
|000030f0| 35 20 80 20 52 32 24 20 | 3d 20 22 22 20 3a 63 63 |5 . R2$ |= "" :cc|
|00003100| 24 20 3d 20 c2 6f 70 63 | 24 2c 32 29 3a 70 72 65 |$ = .opc|$,2):pre|
|00003110| 63 24 20 3d 20 22 22 3a | 72 6f 75 6e 64 24 20 3d |c$ = "":|round$ =|
|00003120| 20 22 22 0d 0b 72 3d 20 | 20 c9 20 4c 25 20 3d 20 | ""..r= | . L% = |
|00003130| 35 20 3a 63 63 24 20 3d | 20 22 41 4c 22 3a 70 72 |5 :cc$ =| "AL":pr|
|00003140| 65 63 24 20 3d 20 c1 6f | 70 63 24 2c 34 2c 31 29 |ec$ = .o|pc$,4,1)|
|00003150| 3a 72 6f 75 6e 64 24 20 | 3d 20 c2 6f 70 63 24 29 |:round$ |= .opc$)|
|00003160| 0d 0b 7c 3b 20 20 c9 20 | 4c 25 20 3d 20 36 20 3a |..|; . |L% = 6 :|
|00003170| 63 63 24 20 3d 20 c1 6f | 70 63 24 2c 34 2c 32 29 |cc$ = .o|pc$,4,2)|
|00003180| 3a 70 72 65 63 24 20 3d | 20 c2 6f 70 63 24 29 3a |:prec$ =| .opc$):|
|00003190| 72 6f 75 6e 64 24 20 3d | 20 22 22 0d 0b 86 43 20 |round$ =| ""...C |
|000031a0| 20 c9 20 4c 25 20 3d 20 | 37 20 3a 63 63 24 20 3d | . L% = |7 :cc$ =|
|000031b0| 20 c1 6f 70 63 24 2c 34 | 2c 32 29 3a 70 72 65 63 | .opc$,4|,2):prec|
|000031c0| 24 20 3d 20 c1 6f 70 63 | 24 2c 36 2c 31 29 3a 72 |$ = .opc|$,6,1):r|
|000031d0| 6f 75 6e 64 24 20 3d 20 | c2 6f 70 63 24 29 0d 0b |ound$ = |.opc$)..|
|000031e0| 90 1f 20 20 7f 20 85 20 | 31 2c 22 42 61 64 20 6f |.. . . |1,"Bad o|
|000031f0| 70 63 6f 64 65 20 66 6f | 72 6d 61 74 22 0d 0b 9a |pcode fo|rmat"...|
|00003200| 05 cb 0d 0b a4 04 0d 0b | ae 05 e1 0d 0b b8 04 0d |........|........|
|00003210| 0b c2 4d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..M-----|--------|
|00003220| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 0d 0b cc 04 |--------|----....|
|00003260| 0d 0b d6 2e dd 20 f2 6d | 6e 65 6d 28 6f 70 63 24 |..... .m|nem(opc$|
|00003270| 2c 65 25 2c f8 20 63 6f | 64 65 25 2c f8 20 6d 6f |,e%,. co|de%,. mo|
|00003280| 6e 61 64 25 2c f8 20 67 | 72 6f 75 70 25 29 0d 0b |nad%,. g|roup%)..|
|00003290| e0 04 0d 0b ea 19 6d 6f | 6e 61 64 25 20 3d 20 30 |......mo|nad% = 0|
|000032a0| 3a 67 72 6f 75 70 25 20 | 3d 20 36 0d 0b f4 11 c8 |:group% |= 6.....|
|000032b0| 8e 20 c0 6f 70 63 24 2c | 33 29 20 ca 0d 0b fe 24 |. .opc$,|3) ....$|
|000032c0| 20 20 c9 20 22 4c 44 46 | 22 20 20 3a 63 6f 64 65 | . "LDF|" :code|
|000032d0| 25 20 3d 20 31 3a 67 72 | 6f 75 70 25 20 3d 20 31 |% = 1:gr|oup% = 1|
|000032e0| 0d 0c 08 24 20 20 c9 20 | 22 53 54 46 22 20 20 3a |...$ . |"STF" :|
|000032f0| 63 6f 64 65 25 20 3d 20 | 30 3a 67 72 6f 75 70 25 |code% = |0:group%|
|00003300| 20 3d 20 31 0d 0c 12 28 | 20 20 c9 20 22 46 4c 54 | = 1...(| . "FLT|
|00003310| 22 20 20 3a 63 6f 64 65 | 25 20 3d 20 25 30 30 30 |" :code|% = %000|
|00003320| 30 3a 67 72 6f 75 70 25 | 20 3d 20 32 0d 0c 1c 28 |0:group%| = 2...(|
|00003330| 20 20 c9 20 22 46 49 58 | 22 20 20 3a 63 6f 64 65 | . "FIX|" :code|
|00003340| 25 20 3d 20 25 30 30 30 | 31 3a 67 72 6f 75 70 25 |% = %000|1:group%|
|00003350| 20 3d 20 33 0d 0c 26 28 | 20 20 c9 20 22 57 46 53 | = 3..&(| . "WFS|
|00003360| 22 20 20 3a 63 6f 64 65 | 25 20 3d 20 25 30 30 31 |" :code|% = %001|
|00003370| 30 3a 67 72 6f 75 70 25 | 20 3d 20 34 0d 0c 30 28 |0:group%| = 4..0(|
|00003380| 20 20 c9 20 22 52 46 53 | 22 20 20 3a 63 6f 64 65 | . "RFS|" :code|
|00003390| 25 20 3d 20 25 30 30 31 | 31 3a 67 72 6f 75 70 25 |% = %001|1:group%|
|000033a0| 20 3d 20 34 0d 0c 3a 28 | 20 20 c9 20 22 57 46 43 | = 4..:(| . "WFC|
|000033b0| 22 20 20 3a 63 6f 64 65 | 25 20 3d 20 25 30 31 30 |" :code|% = %010|
|000033c0| 30 3a 67 72 6f 75 70 25 | 20 3d 20 34 0d 0c 44 28 |0:group%| = 4..D(|
|000033d0| 20 20 c9 20 22 52 46 43 | 22 20 20 3a 63 6f 64 65 | . "RFC|" :code|
|000033e0| 25 20 3d 20 25 30 31 30 | 31 3a 67 72 6f 75 70 25 |% = %010|1:group%|
|000033f0| 20 3d 20 34 0d 0c 4e 2e | 20 20 c9 20 22 43 4d 46 | = 4..N.| . "CMF|
|00003400| 22 20 20 3a 63 6f 64 65 | 25 20 3d 20 25 31 30 30 |" :code|% = %100|
|00003410| 31 2b 65 25 3c 3c 32 3a | 67 72 6f 75 70 25 20 3d |1+e%<<2:|group% =|
|00003420| 20 35 0d 0c 58 2e 20 20 | c9 20 22 43 4e 46 22 20 | 5..X. |. "CNF" |
|00003430| 20 3a 63 6f 64 65 25 20 | 3d 20 25 31 30 31 31 2b | :code% |= %1011+|
|00003440| 65 25 3c 3c 32 3a 67 72 | 6f 75 70 25 20 3d 20 35 |e%<<2:gr|oup% = 5|
|00003450| 0d 0c 62 28 20 20 c9 20 | 22 41 44 46 22 20 20 3a |..b( . |"ADF" :|
|00003460| 63 6f 64 65 25 20 3d 20 | 25 30 30 30 30 3a 6d 6f |code% = |%0000:mo|
|00003470| 6e 61 64 25 20 3d 20 30 | 0d 0c 6c 28 20 20 c9 20 |nad% = 0|..l( . |
|00003480| 22 4d 55 46 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"MUF" :|code% = |
|00003490| 25 30 30 30 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%0001:mo|nad% = 0|
|000034a0| 0d 0c 76 28 20 20 c9 20 | 22 53 55 46 22 20 20 3a |..v( . |"SUF" :|
|000034b0| 63 6f 64 65 25 20 3d 20 | 25 30 30 31 30 3a 6d 6f |code% = |%0010:mo|
|000034c0| 6e 61 64 25 20 3d 20 30 | 0d 0c 80 28 20 20 c9 20 |nad% = 0|...( . |
|000034d0| 22 52 53 46 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"RSF" :|code% = |
|000034e0| 25 30 30 31 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%0011:mo|nad% = 0|
|000034f0| 0d 0c 8a 28 20 20 c9 20 | 22 44 56 46 22 20 20 3a |...( . |"DVF" :|
|00003500| 63 6f 64 65 25 20 3d 20 | 25 30 31 30 30 3a 6d 6f |code% = |%0100:mo|
|00003510| 6e 61 64 25 20 3d 20 30 | 0d 0c 94 28 20 20 c9 20 |nad% = 0|...( . |
|00003520| 22 52 44 46 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"RDF" :|code% = |
|00003530| 25 30 31 30 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%0101:mo|nad% = 0|
|00003540| 0d 0c 9e 28 20 20 c9 20 | 22 50 4f 57 22 20 20 3a |...( . |"POW" :|
|00003550| 63 6f 64 65 25 20 3d 20 | 25 30 31 31 30 3a 6d 6f |code% = |%0110:mo|
|00003560| 6e 61 64 25 20 3d 20 30 | 0d 0c a8 28 20 20 c9 20 |nad% = 0|...( . |
|00003570| 22 52 50 57 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"RPW" :|code% = |
|00003580| 25 30 31 31 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%0111:mo|nad% = 0|
|00003590| 0d 0c b2 28 20 20 c9 20 | 22 52 4d 46 22 20 20 3a |...( . |"RMF" :|
|000035a0| 63 6f 64 65 25 20 3d 20 | 25 31 30 30 30 3a 6d 6f |code% = |%1000:mo|
|000035b0| 6e 61 64 25 20 3d 20 30 | 0d 0c bc 28 20 20 c9 20 |nad% = 0|...( . |
|000035c0| 22 46 4d 4c 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"FML" :|code% = |
|000035d0| 25 31 30 30 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%1001:mo|nad% = 0|
|000035e0| 0d 0c c6 28 20 20 c9 20 | 22 46 44 56 22 20 20 3a |...( . |"FDV" :|
|000035f0| 63 6f 64 65 25 20 3d 20 | 25 31 30 31 30 3a 6d 6f |code% = |%1010:mo|
|00003600| 6e 61 64 25 20 3d 20 30 | 0d 0c d0 28 20 20 c9 20 |nad% = 0|...( . |
|00003610| 22 46 52 44 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"FRD" :|code% = |
|00003620| 25 31 30 31 31 3a 6d 6f | 6e 61 64 25 20 3d 20 30 |%1011:mo|nad% = 0|
|00003630| 0d 0c da 28 20 20 c9 20 | 22 50 4f 4c 22 20 20 3a |...( . |"POL" :|
|00003640| 63 6f 64 65 25 20 3d 20 | 25 31 31 30 30 3a 6d 6f |code% = |%1100:mo|
|00003650| 6e 61 64 25 20 3d 20 30 | 0d 0c e4 28 20 20 c9 20 |nad% = 0|...( . |
|00003660| 22 4d 56 46 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"MVF" :|code% = |
|00003670| 25 30 30 30 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%0000:mo|nad% = 1|
|00003680| 0d 0c ee 28 20 20 c9 20 | 22 4d 4e 46 22 20 20 3a |...( . |"MNF" :|
|00003690| 63 6f 64 65 25 20 3d 20 | 25 30 30 30 31 3a 6d 6f |code% = |%0001:mo|
|000036a0| 6e 61 64 25 20 3d 20 31 | 0d 0c f8 28 20 20 c9 20 |nad% = 1|...( . |
|000036b0| 22 41 42 53 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"ABS" :|code% = |
|000036c0| 25 30 30 31 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%0010:mo|nad% = 1|
|000036d0| 0d 0d 02 28 20 20 c9 20 | 22 52 4e 44 22 20 20 3a |...( . |"RND" :|
|000036e0| 63 6f 64 65 25 20 3d 20 | 25 30 30 31 31 3a 6d 6f |code% = |%0011:mo|
|000036f0| 6e 61 64 25 20 3d 20 31 | 0d 0d 0c 28 20 20 c9 20 |nad% = 1|...( . |
|00003700| 22 53 51 54 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"SQT" :|code% = |
|00003710| 25 30 31 30 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%0100:mo|nad% = 1|
|00003720| 0d 0d 16 28 20 20 c9 20 | 22 4c 4f 47 22 20 20 3a |...( . |"LOG" :|
|00003730| 63 6f 64 65 25 20 3d 20 | 25 30 31 30 31 3a 6d 6f |code% = |%0101:mo|
|00003740| 6e 61 64 25 20 3d 20 31 | 0d 0d 20 28 20 20 c9 20 |nad% = 1|.. ( . |
|00003750| 22 4c 47 4e 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"LGN" :|code% = |
|00003760| 25 30 31 31 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%0110:mo|nad% = 1|
|00003770| 0d 0d 2a 28 20 20 c9 20 | 22 45 58 50 22 20 20 3a |..*( . |"EXP" :|
|00003780| 63 6f 64 65 25 20 3d 20 | 25 30 31 31 31 3a 6d 6f |code% = |%0111:mo|
|00003790| 6e 61 64 25 20 3d 20 31 | 0d 0d 34 28 20 20 c9 20 |nad% = 1|..4( . |
|000037a0| 22 53 49 4e 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"SIN" :|code% = |
|000037b0| 25 31 30 30 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%1000:mo|nad% = 1|
|000037c0| 0d 0d 3e 28 20 20 c9 20 | 22 43 4f 53 22 20 20 3a |..>( . |"COS" :|
|000037d0| 63 6f 64 65 25 20 3d 20 | 25 31 30 30 31 3a 6d 6f |code% = |%1001:mo|
|000037e0| 6e 61 64 25 20 3d 20 31 | 0d 0d 48 28 20 20 c9 20 |nad% = 1|..H( . |
|000037f0| 22 54 41 4e 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"TAN" :|code% = |
|00003800| 25 31 30 31 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%1010:mo|nad% = 1|
|00003810| 0d 0d 52 28 20 20 c9 20 | 22 41 53 4e 22 20 20 3a |..R( . |"ASN" :|
|00003820| 63 6f 64 65 25 20 3d 20 | 25 31 30 31 31 3a 6d 6f |code% = |%1011:mo|
|00003830| 6e 61 64 25 20 3d 20 31 | 0d 0d 5c 28 20 20 c9 20 |nad% = 1|..\( . |
|00003840| 22 41 43 53 22 20 20 3a | 63 6f 64 65 25 20 3d 20 |"ACS" :|code% = |
|00003850| 25 31 31 30 30 3a 6d 6f | 6e 61 64 25 20 3d 20 31 |%1100:mo|nad% = 1|
|00003860| 0d 0d 66 28 20 20 c9 20 | 22 41 54 4e 22 20 20 3a |..f( . |"ATN" :|
|00003870| 63 6f 64 65 25 20 3d 20 | 25 31 31 30 31 3a 6d 6f |code% = |%1101:mo|
|00003880| 6e 61 64 25 20 3d 20 31 | 0d 0d 70 1e 20 20 7f 20 |nad% = 1|..p. . |
|00003890| 85 20 31 2c 22 4e 6f 20 | 73 75 63 68 20 6d 6e 65 |. 1,"No |such mne|
|000038a0| 6d 6f 6e 69 63 22 0d 0d | 7a 05 cb 0d 0d 84 04 0d |monic"..|z.......|
|000038b0| 0d 8e 05 e1 0d 0d 98 04 | 0d 0d a2 4d 2d 2d 2d 2d |........|...M----|
|000038c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000038f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003900| 2d 2d 2d 2d 2d 0d 0d ac | 04 0d 0d b6 22 dd 20 f2 |-----...|....". .|
|00003910| 72 65 67 61 64 64 72 28 | 52 24 2c 52 25 2c f8 20 |regaddr(|R$,R%,. |
|00003920| 70 72 65 25 2c f8 20 77 | 62 25 29 0d 0d c0 07 ea |pre%,. w|b%).....|
|00003930| 20 85 0d 0d ca 3a e7 20 | ac 28 5a 25 20 80 20 25 | ....:. |.(Z% . %|
|00003940| 31 30 29 20 8c 20 ee 20 | 85 20 ea 20 e7 20 9f 3c |10) . . |. . . .<|
|00003950| 3e 32 36 20 f7 20 85 3a | 85 20 9f 2c f6 24 20 8b |>26 . .:|. .,.$ .|
|00003960| 20 52 25 28 33 29 20 3d | 20 30 3a e1 0d 0d d4 04 | R%(3) =| 0:.....|
|00003970| 0d 0d de 1c 52 25 28 31 | 29 20 3d 20 a4 67 65 74 |....R%(1|) = .get|
|00003980| 72 65 67 28 52 24 28 31 | 29 2c 31 29 0d 0d e8 10 |reg(R$(1|),1)....|
|00003990| e7 20 52 24 28 33 29 3d | 22 22 20 8c 0d 0d f2 16 |. R$(3)=|"" .....|
|000039a0| 20 20 70 72 65 25 20 3d | 20 31 3a 77 62 25 20 3d | pre% =| 1:wb% =|
|000039b0| 20 30 0d 0d fc 17 20 20 | e7 20 c0 52 24 28 32 29 | 0.... |. .R$(2)|
|000039c0| 2c 31 29 3d 22 5b 22 20 | 8c 0d 0e 06 2f 20 20 20 |,1)="[" |..../ |
|000039d0| 20 52 25 28 32 29 20 3d | 20 a4 67 65 74 72 65 67 | R%(2) =| .getreg|
|000039e0| 28 c1 52 24 28 32 29 2c | 32 2c a9 28 52 24 28 32 |(.R$(2),|2,.(R$(2|
|000039f0| 29 29 2d 32 29 2c 32 29 | 0d 0e 10 11 20 20 20 20 |))-2),2)|.... |
|00003a00| 52 25 28 33 29 20 3d 20 | 30 0d 0e 1a 07 20 20 cc |R%(3) = |0.... .|
|00003a10| 0d 0e 24 12 20 20 20 20 | 52 25 28 32 29 20 3d 20 |..$. |R%(2) = |
|00003a20| 31 35 0d 0e 2e 20 20 20 | 20 20 52 25 28 33 29 20 |15... | R%(3) |
|00003a30| 3d 20 a0 28 52 24 28 32 | 29 2b 22 2d 4e 25 2d 38 |= .(R$(2|)+"-N%-8|
|00003a40| 22 29 0d 0e 38 07 20 20 | cd 0d 0e 42 05 cc 0d 0e |")..8. |...B....|
|00003a50| 4c 29 20 20 e7 20 c0 52 | 24 28 33 29 2c 31 29 20 |L) . .R|$(3),1) |
|00003a60| 3d 20 22 23 22 20 52 24 | 28 33 29 20 3d 20 c1 52 |= "#" R$|(3) = .R|
|00003a70| 24 28 33 29 2c 32 29 0d | 0e 56 15 20 20 e7 20 c2 |$(3),2).|.V. . .|
|00003a80| 52 24 28 32 29 29 3d 22 | 5d 22 20 8c 0d 0e 60 18 |R$(2))="|]" ...`.|
|00003a90| 20 20 20 20 70 72 65 25 | 20 3d 20 30 3a 77 62 25 | pre%| = 0:wb%|
|00003aa0| 20 3d 20 30 0d 0e 6a 2f | 20 20 20 20 52 25 28 32 | = 0..j/| R%(2|
|00003ab0| 29 20 3d 20 a4 67 65 74 | 72 65 67 28 c1 52 24 28 |) = .get|reg(.R$(|
|00003ac0| 32 29 2c 32 2c a9 28 52 | 24 28 32 29 29 2d 31 29 |2),2,.(R|$(2))-1)|
|00003ad0| 2c 32 29 0d 0e 74 18 20 | 20 20 20 52 25 28 33 29 |,2)..t. | R%(3)|
|00003ae0| 20 3d 20 a0 28 52 24 28 | 33 29 29 0d 0e 7e 07 20 | = .(R$(|3))..~. |
|00003af0| 20 cc 0d 0e 88 30 20 20 | 20 20 70 72 65 25 20 3d | ....0 | pre% =|
|00003b00| 20 31 3a e7 20 c2 52 24 | 28 33 29 29 3d 22 21 22 | 1:. .R$|(3))="!"|
|00003b10| 20 77 62 25 20 3d 20 31 | 20 8b 20 77 62 25 20 3d | wb% = 1| . wb% =|
|00003b20| 20 30 0d 0e 92 24 20 20 | 20 20 52 25 28 32 29 20 | 0...$ | R%(2) |
|00003b30| 3d 20 a4 67 65 74 72 65 | 67 28 c1 52 24 28 32 29 |= .getre|g(.R$(2)|
|00003b40| 2c 32 29 2c 32 29 0d 0e | 9c 29 20 20 20 20 52 25 |,2),2)..|.) R%|
|00003b50| 28 33 29 20 3d 20 a0 28 | c0 52 24 28 33 29 2c a9 |(3) = .(|.R$(3),.|
|00003b60| 28 52 24 28 33 29 29 2d | 31 2d 77 62 25 29 29 0d |(R$(3))-|1-wb%)).|
|00003b70| 0e a6 07 20 20 cd 0d 0e | b0 20 20 20 e7 20 52 25 |... ...|. . R%|
|00003b80| 28 32 29 3d 31 35 20 52 | 25 28 33 29 20 3d 20 52 |(2)=15 R|%(3) = R|
|00003b90| 25 28 33 29 2d 38 0d 0e | ba 05 cd 0d 0e c4 2c e7 |%(3)-8..|......,.|
|00003ba0| 20 94 28 52 25 28 33 29 | 29 3e 31 30 32 30 20 85 | .(R%(3)|)>1020 .|
|00003bb0| 20 32 2c 22 42 61 64 20 | 61 64 64 72 65 73 73 20 | 2,"Bad |address |
|00003bc0| 6f 66 66 73 65 74 22 0d | 0e ce 04 0d 0e d8 05 e1 |offset".|........|
|00003bd0| 0d 0e e2 04 0d 0e ec 4d | 2d 2d 2d 2d 2d 2d 2d 2d |.......M|--------|
|00003be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003c20| 2d 0d 0e f6 04 0d 0f 00 | 27 dd 20 f2 72 65 67 73 |-.......|'. .regs|
|00003c30| 28 52 24 2c 67 72 6f 75 | 70 25 2c 6d 6f 6e 61 64 |(R$,grou|p%,monad|
|00003c40| 25 2c 52 25 2c f8 20 69 | 6d 6d 25 29 0d 0f 0a 18 |%,R%,. i|mm%)....|
|00003c50| ea 20 74 79 70 65 25 28 | 29 3a de 20 74 79 70 65 |. type%(|):. type|
|00003c60| 25 28 33 29 0d 0f 14 04 | 0d 0f 1e 40 f4 20 54 79 |%(3)....|...@. Ty|
|00003c70| 70 65 73 20 61 72 65 3a | 20 30 20 2d 20 4e 6f 74 |pes are:| 0 - Not|
|00003c80| 68 69 6e 67 2c 20 31 20 | 2d 20 46 50 20 72 65 67 |hing, 1 |- FP reg|
|00003c90| 69 73 74 65 72 2c 20 32 | 20 2d 20 41 52 4d 20 72 |ister, 2| - ARM r|
|00003ca0| 65 67 69 73 74 65 72 2c | 0d 0f 28 1e f4 20 20 20 |egister,|..(.. |
|00003cb0| 20 20 20 20 20 20 20 20 | 20 33 20 2d 20 49 6d 6d | | 3 - Imm|
|00003cc0| 65 64 69 61 74 65 0d 0f | 32 0a c8 8e 20 b9 20 ca |ediate..|2... . .|
|00003cd0| 0d 0f 3c 47 20 20 c9 20 | 67 72 6f 75 70 25 20 3d |..<G . |group% =|
|00003ce0| 20 32 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 2 | |
|00003cf0| 3a 74 79 70 65 25 28 31 | 29 20 3d 20 31 3a 74 79 |:type%(1|) = 1:ty|
|00003d00| 70 65 25 28 32 29 20 3d | 20 32 3a 74 79 70 65 25 |pe%(2) =| 2:type%|
|00003d10| 28 33 29 20 3d 20 30 0d | 0f 46 47 20 20 c9 20 67 |(3) = 0.|.FG . g|
|00003d20| 72 6f 75 70 25 20 3d 20 | 33 20 20 20 20 20 20 20 |roup% = |3 |
|00003d30| 20 20 20 20 20 20 20 3a | 74 79 70 65 25 28 31 29 | :|type%(1)|
|00003d40| 20 3d 20 32 3a 74 79 70 | 65 25 28 32 29 20 3d 20 | = 2:typ|e%(2) = |
|00003d50| 31 3a 74 79 70 65 25 28 | 33 29 20 3d 20 30 0d 0f |1:type%(|3) = 0..|
|00003d60| 50 47 20 20 c9 20 67 72 | 6f 75 70 25 20 3d 20 34 |PG . gr|oup% = 4|
|00003d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 74 | | :t|
|00003d80| 79 70 65 25 28 31 29 20 | 3d 20 32 3a 74 79 70 65 |ype%(1) |= 2:type|
|00003d90| 25 28 32 29 20 3d 20 30 | 3a 74 79 70 65 25 28 33 |%(2) = 0|:type%(3|
|00003da0| 29 20 3d 20 30 0d 0f 5a | 47 20 20 c9 20 67 72 6f |) = 0..Z|G . gro|
|00003db0| 75 70 25 20 3d 20 35 20 | 20 20 20 20 20 20 20 20 |up% = 5 | |
|00003dc0| 20 20 20 20 20 3a 74 79 | 70 65 25 28 31 29 20 3d | :ty|pe%(1) =|
|00003dd0| 20 31 3a 74 79 70 65 25 | 28 32 29 20 3d 20 33 3a | 1:type%|(2) = 3:|
|00003de0| 74 79 70 65 25 28 33 29 | 20 3d 20 30 0d 0f 64 47 |type%(3)| = 0..dG|
|00003df0| 20 20 c9 20 67 72 6f 75 | 70 25 20 3d 20 36 20 80 | . grou|p% = 6 .|
|00003e00| 20 6d 6f 6e 61 64 25 20 | 3d 20 30 20 3a 74 79 70 | monad% |= 0 :typ|
|00003e10| 65 25 28 31 29 20 3d 20 | 31 3a 74 79 70 65 25 28 |e%(1) = |1:type%(|
|00003e20| 32 29 20 3d 20 31 3a 74 | 79 70 65 25 28 33 29 20 |2) = 1:t|ype%(3) |
|00003e30| 3d 20 33 0d 0f 6e 47 20 | 20 c9 20 67 72 6f 75 70 |= 3..nG | . group|
|00003e40| 25 20 3d 20 36 20 20 20 | 20 20 20 20 20 20 20 20 |% = 6 | |
|00003e50| 20 20 20 3a 74 79 70 65 | 25 28 31 29 20 3d 20 31 | :type|%(1) = 1|
|00003e60| 3a 74 79 70 65 25 28 32 | 29 20 3d 20 33 3a 74 79 |:type%(2|) = 3:ty|
|00003e70| 70 65 25 28 33 29 20 3d | 20 30 0d 0f 78 05 cb 0d |pe%(3) =| 0..x...|
|00003e80| 0f 82 04 0d 0f 8c 0c 69 | 6d 6d 25 20 3d 20 30 0d |.......i|mm% = 0.|
|00003e90| 0f 96 10 e3 20 49 25 20 | 3d 20 31 20 b8 20 33 0d |.... I% |= 1 . 3.|
|00003ea0| 0f a0 15 20 20 e7 20 74 | 79 70 65 25 28 49 25 29 |... . t|ype%(I%)|
|00003eb0| 3d 33 20 8c 0d 0f aa 32 | 20 20 20 20 e7 20 c0 52 |=3 ....2| . .R|
|00003ec0| 24 28 49 25 29 2c 31 29 | 3c 3e 22 23 22 20 74 79 |$(I%),1)|<>"#" ty|
|00003ed0| 70 65 25 28 49 25 29 20 | 3d 20 31 20 8b 20 69 6d |pe%(I%) |= 1 . im|
|00003ee0| 6d 25 20 3d 20 31 0d 0f | b4 07 20 20 cd 0d 0f be |m% = 1..|.. ....|
|00003ef0| 28 20 20 52 25 28 49 25 | 29 20 3d 20 a4 67 65 74 |( R%(I%|) = .get|
|00003f00| 72 65 67 28 52 24 28 49 | 25 29 2c 74 79 70 65 25 |reg(R$(I|%),type%|
|00003f10| 28 49 25 29 29 0d 0f c8 | 05 ed 0d 0f d2 04 0d 0f |(I%))...|........|
|00003f20| dc 05 e1 0d 0f e6 04 0d | 0f f0 4d 2d 2d 2d 2d 2d |........|..M-----|
|00003f30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003f70| 2d 2d 2d 2d 0d 0f fa 04 | 0d 10 04 19 dd 20 a4 67 |----....|..... .g|
|00003f80| 65 74 72 65 67 28 72 65 | 67 24 2c 74 79 70 65 25 |etreg(re|g$,type%|
|00003f90| 29 0d 10 0e 20 ea 20 72 | 65 67 25 2c 50 43 2c 70 |)... . r|eg%,PC,p|
|00003fa0| 63 3a 50 43 20 3d 20 31 | 35 3a 70 63 20 3d 20 31 |c:PC = 1|5:pc = 1|
|00003fb0| 35 0d 10 18 04 0d 10 22 | 0e c8 8e 20 74 79 70 65 |5......"|... type|
|00003fc0| 25 20 ca 0d 10 2c 09 20 | 20 c9 20 30 0d 10 36 2d |% ...,. | . 0..6-|
|00003fd0| 20 20 20 20 e7 20 72 65 | 67 24 3c 3e 22 22 20 85 | . re|g$<>"" .|
|00003fe0| 20 33 2c 22 53 75 70 65 | 72 66 6c 75 6f 75 73 20 | 3,"Supe|rfluous |
|00003ff0| 72 65 67 69 73 74 65 72 | 22 0d 10 40 10 20 20 20 |register|"..@. |
|00004000| 20 72 65 67 25 20 3d 20 | 30 0d 10 4a 09 20 20 c9 | reg% = |0..J. .|
|00004010| 20 31 0d 10 54 28 20 20 | 20 20 e7 20 72 65 67 24 | 1..T( | . reg$|
|00004020| 3d 22 22 20 85 20 33 2c | 22 4d 69 73 73 69 6e 67 |="" . 3,|"Missing|
|00004030| 20 72 65 67 69 73 74 65 | 72 22 0d 10 5e 31 20 20 | registe|r"..^1 |
|00004040| 20 20 e7 20 a4 74 6f 75 | 70 70 65 72 28 c0 72 65 | . .tou|pper(.re|
|00004050| 67 24 29 29 3d 22 46 22 | 20 80 20 a4 69 73 6e 75 |g$))="F"| . .isnu|
|00004060| 6d 28 c2 72 65 67 24 29 | 29 20 8c 0d 10 68 1a 20 |m(.reg$)|) ...h. |
|00004070| 20 20 20 20 20 72 65 67 | 25 20 3d 20 bb 28 c2 72 | reg|% = .(.r|
|00004080| 65 67 24 29 29 0d 10 72 | 09 20 20 20 20 cc 0d 10 |eg$))..r|. ...|
|00004090| 7c 18 20 20 20 20 20 20 | 72 65 67 25 20 3d 20 a0 ||. |reg% = .|
|000040a0| 28 72 65 67 24 29 0d 10 | 86 09 20 20 20 20 cd 0d |(reg$)..|.. ..|
|000040b0| 10 90 2c 20 20 20 20 e7 | 20 72 65 67 25 3c 30 20 |.., .| reg%<0 |
|000040c0| 84 20 72 65 67 25 3e 37 | 20 85 20 33 2c 22 42 61 |. reg%>7| . 3,"Ba|
|000040d0| 64 20 72 65 67 69 73 74 | 65 72 22 0d 10 9a 09 20 |d regist|er".... |
|000040e0| 20 c9 20 32 0d 10 a4 28 | 20 20 20 20 e7 20 72 65 | . 2...(| . re|
|000040f0| 67 24 3d 22 22 20 85 20 | 33 2c 22 4d 69 73 73 69 |g$="" . |3,"Missi|
|00004100| 6e 67 20 72 65 67 69 73 | 74 65 72 22 0d 10 ae 41 |ng regis|ter"...A|
|00004110| 20 20 20 20 e7 20 a9 28 | 72 65 67 24 29 3c 34 20 | . .(|reg$)<4 |
|00004120| 80 20 a4 74 6f 75 70 70 | 65 72 28 c0 72 65 67 24 |. .toupp|er(.reg$|
|00004130| 2c 31 29 29 3d 22 52 22 | 20 80 20 a4 69 73 6e 75 |,1))="R"| . .isnu|
|00004140| 6d 28 c1 72 65 67 24 2c | 32 29 29 20 8c 0d 10 b8 |m(.reg$,|2)) ....|
|00004150| 1c 20 20 20 20 20 20 72 | 65 67 25 20 3d 20 bb 28 |. r|eg% = .(|
|00004160| c1 72 65 67 24 2c 32 29 | 29 0d 10 c2 09 20 20 20 |.reg$,2)|).... |
|00004170| 20 cc 0d 10 cc 18 20 20 | 20 20 20 20 72 65 67 25 | ..... | reg%|
|00004180| 20 3d 20 a0 28 72 65 67 | 24 29 0d 10 d6 09 20 20 | = .(reg|$).... |
|00004190| 20 20 cd 0d 10 e0 2d 20 | 20 20 20 e7 20 72 65 67 | ....- | . reg|
|000041a0| 25 3c 30 20 84 20 72 65 | 67 25 3e 31 35 20 85 20 |%<0 . re|g%>15 . |
|000041b0| 33 2c 22 42 61 64 20 72 | 65 67 69 73 74 65 72 22 |3,"Bad r|egister"|
|000041c0| 0d 10 ea 09 20 20 c9 20 | 33 0d 10 f4 18 20 20 20 |.... . |3.... |
|000041d0| 20 c8 8e 20 a0 28 c1 72 | 65 67 24 2c 32 29 29 20 | .. .(.r|eg$,2)) |
|000041e0| ca 0d 10 fe 1c 20 20 20 | 20 20 20 c9 20 30 20 20 |..... | . 0 |
|000041f0| 20 3a 72 65 67 25 20 3d | 20 25 30 30 30 0d 11 08 | :reg% =| %000...|
|00004200| 1c 20 20 20 20 20 20 c9 | 20 31 20 20 20 3a 72 65 |. .| 1 :re|
|00004210| 67 25 20 3d 20 25 30 30 | 31 0d 11 12 1c 20 20 20 |g% = %00|1.... |
|00004220| 20 20 20 c9 20 32 20 20 | 20 3a 72 65 67 25 20 3d | . 2 | :reg% =|
|00004230| 20 25 30 31 30 0d 11 1c | 1c 20 20 20 20 20 20 c9 | %010...|. .|
|00004240| 20 33 20 20 20 3a 72 65 | 67 25 20 3d 20 25 30 31 | 3 :re|g% = %01|
|00004250| 31 0d 11 26 1c 20 20 20 | 20 20 20 c9 20 34 20 20 |1..&. | . 4 |
|00004260| 20 3a 72 65 67 25 20 3d | 20 25 31 30 30 0d 11 30 | :reg% =| %100..0|
|00004270| 1c 20 20 20 20 20 20 c9 | 20 35 20 20 20 3a 72 65 |. .| 5 :re|
|00004280| 67 25 20 3d 20 25 31 30 | 31 0d 11 3a 1c 20 20 20 |g% = %10|1..:. |
|00004290| 20 20 20 c9 20 30 2e 35 | 20 3a 72 65 67 25 20 3d | . 0.5| :reg% =|
|000042a0| 20 25 31 31 30 0d 11 44 | 1c 20 20 20 20 20 20 c9 | %110..D|. .|
|000042b0| 20 31 30 20 20 3a 72 65 | 67 25 20 3d 20 25 31 31 | 10 :re|g% = %11|
|000042c0| 31 0d 11 4e 28 20 20 20 | 20 20 20 7f 20 85 20 32 |1..N( | . . 2|
|000042d0| 2c 22 42 61 64 20 69 6d | 6d 65 64 69 61 74 65 20 |,"Bad im|mediate |
|000042e0| 63 6f 6e 73 74 61 6e 74 | 22 0d 11 58 09 20 20 20 |constant|"..X. |
|000042f0| 20 cb 0d 11 62 05 cb 0d | 11 6c 04 0d 11 76 0c 20 | ...b...|.l...v. |
|00004300| 3d 20 20 72 65 67 25 0d | 11 80 04 0d 11 8a 4b 2d |= reg%.|......K-|
|00004310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004350| 2d 2d 2d 2d 2d 2d 0d 11 | 94 04 0d 11 9e 2b dd 20 |------..|.....+. |
|00004360| f2 6c 6f 61 64 73 74 6f | 72 65 28 f8 20 77 6f 72 |.loadsto|re(. wor|
|00004370| 64 25 2c 70 72 65 63 24 | 2c 52 25 2c 70 72 65 25 |d%,prec$|,R%,pre%|
|00004380| 2c 77 62 25 29 0d 11 a8 | 0b ea 20 70 72 65 63 25 |,wb%)...|.. prec%|
|00004390| 0d 11 b2 04 0d 11 bc 0e | c8 8e 20 70 72 65 63 24 |........|.. prec$|
|000043a0| 20 ca 0d 11 c6 24 20 20 | c9 20 22 53 22 20 3a 70 | ....$ |. "S" :p|
|000043b0| 72 65 63 25 20 3d 20 28 | 30 3c 3c 32 32 29 2b 28 |rec% = (|0<<22)+(|
|000043c0| 30 3c 3c 31 35 29 0d 11 | d0 24 20 20 c9 20 22 44 |0<<15)..|.$ . "D|
|000043d0| 22 20 3a 70 72 65 63 25 | 20 3d 20 28 30 3c 3c 32 |" :prec%| = (0<<2|
|000043e0| 32 29 2b 28 31 3c 3c 31 | 35 29 0d 11 da 24 20 20 |2)+(1<<1|5)...$ |
|000043f0| c9 20 22 45 22 20 3a 70 | 72 65 63 25 20 3d 20 28 |. "E" :p|rec% = (|
|00004400| 31 3c 3c 32 32 29 2b 28 | 30 3c 3c 31 35 29 0d 11 |1<<22)+(|0<<15)..|
|00004410| e4 24 20 20 c9 20 22 50 | 22 20 3a 70 72 65 63 25 |.$ . "P|" :prec%|
|00004420| 20 3d 20 28 31 3c 3c 32 | 32 29 2b 28 31 3c 3c 31 | = (1<<2|2)+(1<<1|
|00004430| 35 29 0d 11 ee 1b 20 20 | 7f 20 85 20 31 2c 22 42 |5).... |. . 1,"B|
|00004440| 61 64 20 70 72 65 63 69 | 73 69 6f 6e 22 0d 11 f8 |ad preci|sion"...|
|00004450| 05 cb 0d 12 02 04 0d 12 | 0c 3f 77 6f 72 64 25 20 |........|.?word% |
|00004460| 3d 20 77 6f 72 64 25 20 | 84 20 28 25 31 31 30 3c |= word% |. (%110<|
|00004470| 3c 32 35 29 20 84 20 28 | 70 72 65 25 3c 3c 32 34 |<25) . (|pre%<<24|
|00004480| 29 20 84 20 28 77 62 25 | 3c 3c 32 31 29 20 84 20 |) . (wb%|<<21) . |
|00004490| 70 72 65 63 25 0d 12 16 | 2a e7 20 b4 28 52 25 28 |prec%...|*. .(R%(|
|000044a0| 33 29 29 3c 3e 2d 31 20 | 77 6f 72 64 25 20 3d 20 |3))<>-1 |word% = |
|000044b0| 77 6f 72 64 25 20 84 20 | 28 31 3c 3c 32 33 29 0d |word% . |(1<<23).|
|000044c0| 12 20 3e 77 6f 72 64 25 | 20 3d 20 77 6f 72 64 25 |. >word%| = word%|
|000044d0| 20 84 20 28 52 25 28 32 | 29 3c 3c 31 36 29 20 84 | . (R%(2|)<<16) .|
|000044e0| 20 28 52 25 28 31 29 3c | 3c 31 32 29 20 84 20 28 | (R%(1)<|<12) . (|
|000044f0| 94 28 52 25 28 33 29 29 | 20 81 20 34 29 0d 12 2a |.(R%(3))| . 4)..*|
|00004500| 04 0d 12 34 05 e1 0d 12 | 3e 04 0d 12 48 4c 2d 2d |...4....|>...HL--|
|00004510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004550| 2d 2d 2d 2d 2d 2d 0d 12 | 52 04 0d 12 5c 32 dd 20 |------..|R...\2. |
|00004560| f2 65 6e 63 6f 64 65 28 | f8 20 77 6f 72 64 25 2c |.encode(|. word%,|
|00004570| 67 72 6f 75 70 25 2c 70 | 72 65 63 24 2c 72 6f 75 |group%,p|rec$,rou|
|00004580| 6e 64 24 2c 52 25 2c 69 | 6d 6d 25 29 0d 12 66 04 |nd$,R%,i|mm%)..f.|
|00004590| 0d 12 70 11 e7 20 67 72 | 6f 75 70 25 3c 3e 34 20 |..p.. gr|oup%<>4 |
|000045a0| 8c 0d 12 7a 10 20 20 c8 | 8e 20 70 72 65 63 24 20 |...z. .|. prec$ |
|000045b0| ca 0d 12 84 24 20 20 20 | 20 c9 20 22 53 22 3a 70 |....$ | . "S":p|
|000045c0| 72 65 63 25 20 3d 20 28 | 30 3c 3c 31 39 29 2b 28 |rec% = (|0<<19)+(|
|000045d0| 30 3c 3c 37 29 0d 12 8e | 24 20 20 20 20 c9 20 22 |0<<7)...|$ . "|
|000045e0| 44 22 3a 70 72 65 63 25 | 20 3d 20 28 30 3c 3c 31 |D":prec%| = (0<<1|
|000045f0| 39 29 2b 28 31 3c 3c 37 | 29 0d 12 98 24 20 20 20 |9)+(1<<7|)...$ |
|00004600| 20 c9 20 22 45 22 3a 70 | 72 65 63 25 20 3d 20 28 | . "E":p|rec% = (|
|00004610| 31 3c 3c 31 39 29 2b 28 | 30 3c 3c 37 29 0d 12 a2 |1<<19)+(|0<<7)...|
|00004620| 24 20 20 20 20 c9 20 22 | 50 22 3a 70 72 65 63 25 |$ . "|P":prec%|
|00004630| 20 3d 20 28 31 3c 3c 31 | 39 29 2b 28 31 3c 3c 37 | = (1<<1|9)+(1<<7|
|00004640| 29 0d 12 ac 1d 20 20 20 | 20 7f 20 85 20 31 2c 22 |).... | . . 1,"|
|00004650| 42 61 64 20 70 72 65 63 | 69 73 69 6f 6e 22 0d 12 |Bad prec|ision"..|
|00004660| b6 07 20 20 cb 0d 12 c0 | 11 20 20 c8 8e 20 72 6f |.. ....|. .. ro|
|00004670| 75 6e 64 24 20 ca 0d 12 | ca 1b 20 20 20 20 c9 20 |und$ ...|.. . |
|00004680| 22 22 20 20 3a 72 6f 75 | 6e 64 25 20 3d 20 25 30 |"" :rou|nd% = %0|
|00004690| 30 0d 12 d4 1b 20 20 20 | 20 c9 20 22 50 22 20 3a |0.... | . "P" :|
|000046a0| 72 6f 75 6e 64 25 20 3d | 20 25 30 31 0d 12 de 1b |round% =| %01....|
|000046b0| 20 20 20 20 c9 20 22 4d | 22 20 3a 72 6f 75 6e 64 | . "M|" :round|
|000046c0| 25 20 3d 20 25 31 30 0d | 12 e8 1b 20 20 20 20 c9 |% = %10.|... .|
|000046d0| 20 22 5a 22 20 3a 72 6f | 75 6e 64 25 20 3d 20 25 | "Z" :ro|und% = %|
|000046e0| 31 31 0d 12 f2 21 20 20 | 20 20 7f 20 85 20 31 2c |11...! | . . 1,|
|000046f0| 22 42 61 64 20 72 6f 75 | 6e 64 69 6e 67 20 6d 6f |"Bad rou|nding mo|
|00004700| 64 65 22 0d 12 fc 07 20 | 20 cb 0d 13 06 05 cc 0d |de".... | .......|
|00004710| 13 10 0f 20 20 70 72 65 | 63 25 20 3d 20 30 0d 13 |... pre|c% = 0..|
|00004720| 1a 10 20 20 72 6f 75 6e | 64 25 20 3d 20 30 0d 13 |.. roun|d% = 0..|
|00004730| 24 05 cd 0d 13 2e 04 0d | 13 38 41 77 6f 72 64 25 |$.......|.8Aword%|
|00004740| 20 3d 20 77 6f 72 64 25 | 20 84 20 28 25 31 31 31 | = word%| . (%111|
|00004750| 30 3c 3c 32 34 29 20 84 | 20 70 72 65 63 25 20 84 |0<<24) .| prec% .|
|00004760| 20 28 72 6f 75 6e 64 25 | 3c 3c 35 29 20 84 20 28 | (round%|<<5) . (|
|00004770| 69 6d 6d 25 3c 3c 33 29 | 0d 13 42 0a c8 8e 20 b9 |imm%<<3)|..B... .|
|00004780| 20 ca 0d 13 4c 12 20 20 | c9 20 67 72 6f 75 70 25 | ...L. |. group%|
|00004790| 20 3d 20 32 0d 13 56 3a | 20 20 20 20 77 6f 72 64 | = 2..V:| word|
|000047a0| 25 20 3d 20 77 6f 72 64 | 25 20 84 20 28 52 25 28 |% = word|% . (R%(|
|000047b0| 31 29 3c 3c 31 36 29 20 | 84 20 28 52 25 28 32 29 |1)<<16) |. (R%(2)|
|000047c0| 3c 3c 31 32 29 20 84 20 | 28 31 3c 3c 34 29 0d 13 |<<12) . |(1<<4)..|
|000047d0| 60 12 20 20 c9 20 67 72 | 6f 75 70 25 20 3d 20 33 |`. . gr|oup% = 3|
|000047e0| 0d 13 6a 34 20 20 20 20 | 77 6f 72 64 25 20 3d 20 |..j4 |word% = |
|000047f0| 77 6f 72 64 25 20 84 20 | 28 52 25 28 31 29 3c 3c |word% . |(R%(1)<<|
|00004800| 31 32 29 20 84 20 28 31 | 3c 3c 34 29 20 84 20 52 |12) . (1|<<4) . R|
|00004810| 25 28 32 29 0d 13 74 12 | 20 20 c9 20 67 72 6f 75 |%(2)..t.| . grou|
|00004820| 70 25 20 3d 20 34 0d 13 | 7e 2c 20 20 20 20 77 6f |p% = 4..|~, wo|
|00004830| 72 64 25 20 3d 20 77 6f | 72 64 25 20 84 20 28 52 |rd% = wo|rd% . (R|
|00004840| 25 28 31 29 3c 3c 31 32 | 29 20 84 20 28 31 3c 3c |%(1)<<12|) . (1<<|
|00004850| 34 29 0d 13 88 12 20 20 | c9 20 67 72 6f 75 70 25 |4).... |. group%|
|00004860| 20 3d 20 35 0d 13 92 39 | 20 20 20 20 77 6f 72 64 | = 5...9| word|
|00004870| 25 20 3d 20 77 6f 72 64 | 25 20 84 20 28 52 25 28 |% = word|% . (R%(|
|00004880| 31 29 3c 3c 31 36 29 20 | 84 20 28 25 31 31 31 31 |1)<<16) |. (%1111|
|00004890| 3c 3c 31 32 29 20 84 20 | 52 25 28 32 29 0d 13 9c |<<12) . |R%(2)...|
|000048a0| 1f 20 20 c9 20 67 72 6f | 75 70 25 20 3d 20 36 20 |. . gro|up% = 6 |
|000048b0| 80 20 6d 6f 6e 61 64 25 | 20 3d 20 31 0d 13 a6 2b |. monad%| = 1...+|
|000048c0| 20 20 20 20 77 6f 72 64 | 25 20 3d 20 77 6f 72 64 | word|% = word|
|000048d0| 25 20 84 20 28 52 25 28 | 31 29 3c 3c 31 32 29 20 |% . (R%(|1)<<12) |
|000048e0| 84 20 52 25 28 32 29 0d | 13 b0 12 20 20 c9 20 67 |. R%(2).|... . g|
|000048f0| 72 6f 75 70 25 20 3d 20 | 36 0d 13 ba 39 20 20 20 |roup% = |6...9 |
|00004900| 20 77 6f 72 64 25 20 3d | 20 77 6f 72 64 25 20 84 | word% =| word% .|
|00004910| 20 28 52 25 28 32 29 3c | 3c 31 36 29 20 84 20 28 | (R%(2)<|<16) . (|
|00004920| 52 25 28 31 29 3c 3c 31 | 32 29 20 84 20 52 25 28 |R%(1)<<1|2) . R%(|
|00004930| 33 29 0d 13 c4 05 cb 0d | 13 ce 04 0d 13 d8 05 e1 |3)......|........|
|00004940| 0d 13 e2 04 0d 13 ec 4b | 2d 2d 2d 2d 2d 2d 2d 2d |.......K|--------|
|00004950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|00004990| 13 f6 04 0d 14 00 12 dd | 20 a4 69 73 6e 75 6d 28 |........| .isnum(|
|000049a0| 6e 75 6d 24 29 0d 14 0a | 13 ea 20 61 6e 73 25 2c |num$)...|.. ans%,|
|000049b0| 49 25 2c 63 68 61 72 24 | 0d 14 14 04 0d 14 1e 0c |I%,char$|........|
|000049c0| 61 6e 73 25 20 3d 20 b9 | 0d 14 28 14 e3 20 49 25 |ans% = .|..(.. I%|
|000049d0| 3d 31 20 b8 20 a9 28 6e | 75 6d 24 29 0d 14 32 19 |=1 . .(n|um$)..2.|
|000049e0| 20 20 63 68 61 72 24 20 | 3d 20 c1 6e 75 6d 24 2c | char$ |= .num$,|
|000049f0| 49 25 2c 31 29 0d 14 3c | 26 20 20 e7 20 63 68 61 |I%,1)..<|& . cha|
|00004a00| 72 24 3c 22 30 22 20 84 | 20 63 68 61 72 24 3e 22 |r$<"0" .| char$>"|
|00004a10| 39 22 20 61 6e 73 25 20 | 3d 20 a3 0d 14 46 05 ed |9" ans% |= ...F..|
|00004a20| 0d 14 50 04 0d 14 5a 0a | 3d 20 61 6e 73 25 0d 14 |..P...Z.|= ans%..|
|00004a30| 64 04 0d 14 6e 4b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |d...nK--|--------|
|00004a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 14 78 |--------|-----..x|
|00004a80| 04 0d 14 82 13 dd 20 a4 | 69 73 73 6e 75 6d 28 6e |...... .|issnum(n|
|00004a90| 75 6d 24 29 0d 14 8c 15 | ea 20 73 74 61 72 74 25 |um$)....|. start%|
|00004aa0| 2c 49 25 2c 63 68 61 72 | 24 0d 14 96 04 0d 14 a0 |,I%,char|$.......|
|00004ab0| 1f 73 74 61 72 74 25 20 | 3d 20 31 3a 63 68 61 72 |.start% |= 1:char|
|00004ac0| 24 20 3d 20 c0 6e 75 6d | 24 2c 31 29 0d 14 aa 1c |$ = .num|$,1)....|
|00004ad0| c8 95 20 63 68 61 72 24 | 3d 22 2b 22 20 84 20 63 |.. char$|="+" . c|
|00004ae0| 68 61 72 24 3d 22 2d 22 | 0d 14 b4 11 20 20 73 74 |har$="-"|.... st|
|00004af0| 61 72 74 25 20 2b 3d 20 | 31 0d 14 be 1b 20 20 e7 |art% += |1.... .|
|00004b00| 20 73 74 61 72 74 25 3e | a9 28 6e 75 6d 24 29 20 | start%>|.(num$) |
|00004b10| 3a 3d 20 a3 0d 14 c8 1d | 20 20 63 68 61 72 24 20 |:= .....| char$ |
|00004b20| 3d 20 c1 6e 75 6d 24 2c | 73 74 61 72 74 25 2c 31 |= .num$,|start%,1|
|00004b30| 29 0d 14 d2 05 ce 0d 14 | dc 04 0d 14 e6 19 e3 20 |).......|....... |
|00004b40| 49 25 3d 73 74 61 72 74 | 25 20 b8 20 a9 28 6e 75 |I%=start|% . .(nu|
|00004b50| 6d 24 29 0d 14 f0 19 20 | 20 63 68 61 72 24 20 3d |m$).... | char$ =|
|00004b60| 20 c1 6e 75 6d 24 2c 49 | 25 2c 31 29 0d 14 fa 22 | .num$,I|%,1)..."|
|00004b70| 20 20 e7 20 63 68 61 72 | 24 3c 22 30 22 20 84 20 | . char|$<"0" . |
|00004b80| 63 68 61 72 24 3e 22 39 | 22 20 3a 3d 20 a3 0d 15 |char$>"9|" := ...|
|00004b90| 04 05 ed 0d 15 0e 04 0d | 15 18 07 3d 20 b9 0d 15 |........|...= ...|
|00004ba0| 22 04 0d 15 2c 4b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |"...,K--|--------|
|00004bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 15 36 |--------|-----..6|
|00004bf0| 04 0d 15 40 13 dd 20 a4 | 69 73 66 6e 75 6d 28 6e |...@.. .|isfnum(n|
|00004c00| 75 6d 24 29 0d 15 4a 1c | ea 20 73 74 61 72 74 25 |um$)..J.|. start%|
|00004c10| 2c 49 25 2c 70 6f 69 6e | 74 24 2c 63 68 61 72 24 |,I%,poin|t$,char$|
|00004c20| 0d 15 54 04 0d 15 5e 1f | 73 74 61 72 74 25 20 3d |..T...^.|start% =|
|00004c30| 20 31 3a 63 68 61 72 24 | 20 3d 20 c0 6e 75 6d 24 | 1:char$| = .num$|
|00004c40| 2c 31 29 0d 15 68 1c c8 | 95 20 63 68 61 72 24 3d |,1)..h..|. char$=|
|00004c50| 22 2b 22 20 84 20 63 68 | 61 72 24 3d 22 2d 22 0d |"+" . ch|ar$="-".|
|00004c60| 15 72 11 20 20 73 74 61 | 72 74 25 20 2b 3d 20 31 |.r. sta|rt% += 1|
|00004c70| 0d 15 7c 1b 20 20 e7 20 | 73 74 61 72 74 25 3e a9 |..|. . |start%>.|
|00004c80| 28 6e 75 6d 24 29 20 3a | 3d 20 a3 0d 15 86 1d 20 |(num$) :|= ..... |
|00004c90| 20 63 68 61 72 24 20 3d | 20 c1 6e 75 6d 24 2c 73 | char$ =| .num$,s|
|00004ca0| 74 61 72 74 25 2c 31 29 | 0d 15 90 05 ce 0d 15 9a |tart%,1)|........|
|00004cb0| 04 0d 15 a4 0e 70 6f 69 | 6e 74 25 20 3d 20 a3 0d |.....poi|nt% = ..|
|00004cc0| 15 ae 19 e3 20 49 25 3d | 73 74 61 72 74 25 20 b8 |.... I%=|start% .|
|00004cd0| 20 a9 28 6e 75 6d 24 29 | 0d 15 b8 19 20 20 63 68 | .(num$)|.... ch|
|00004ce0| 61 72 24 20 3d 20 c1 6e | 75 6d 24 2c 49 25 2c 31 |ar$ = .n|um$,I%,1|
|00004cf0| 29 0d 15 c2 13 20 20 e7 | 20 63 68 61 72 24 3d 22 |).... .| char$="|
|00004d00| 2e 22 20 8c 0d 15 cc 15 | 20 20 20 20 e7 20 70 6f |." .....| . po|
|00004d10| 69 6e 74 25 20 3a 3d 20 | a3 0d 15 d6 12 20 20 20 |int% := |..... |
|00004d20| 20 70 6f 69 6e 74 25 20 | 3d 20 b9 0d 15 e0 07 20 | point% |= ..... |
|00004d30| 20 cc 0d 15 ea 24 20 20 | 20 20 e7 20 63 68 61 72 | ....$ | . char|
|00004d40| 24 3c 22 30 22 20 84 20 | 63 68 61 72 24 3e 22 39 |$<"0" . |char$>"9|
|00004d50| 22 20 3a 3d 20 a3 0d 15 | f4 07 20 20 cd 0d 15 fe |" := ...|.. ....|
|00004d60| 05 ed 0d 16 08 04 0d 16 | 12 07 3d 20 b9 0d 16 1c |........|..= ....|
|00004d70| 04 0d 16 26 4c 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...&L---|--------|
|00004d80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 0d 16 30 |--------|-----..0|
|00004dc0| 04 0d 16 3a 24 dd 20 a4 | 69 73 65 78 70 6e 75 6d |...:$. .|isexpnum|
|00004dd0| 28 6e 75 6d 24 2c f8 20 | 6d 61 6e 74 24 2c f8 20 |(num$,. |mant$,. |
|00004de0| 65 78 70 25 29 0d 16 44 | 0f ea 20 70 6f 73 25 2c |exp%)..D|.. pos%,|
|00004df0| 65 78 70 24 0d 16 4e 04 | 0d 16 58 17 6d 61 6e 74 |exp$..N.|..X.mant|
|00004e00| 24 20 3d 20 22 22 3a 65 | 78 70 25 20 3d 20 30 0d |$ = "":e|xp% = 0.|
|00004e10| 16 62 04 0d 16 6c 23 70 | 6f 73 25 20 3d 20 a7 6e |.b...l#p|os% = .n|
|00004e20| 75 6d 24 2c 22 45 22 29 | 3a e7 20 70 6f 73 25 3d |um$,"E")|:. pos%=|
|00004e30| 30 20 3a 3d 20 a3 0d 16 | 76 04 0d 16 80 19 6d 61 |0 := ...|v.....ma|
|00004e40| 6e 74 24 20 3d 20 c0 6e | 75 6d 24 2c 70 6f 73 25 |nt$ = .n|um$,pos%|
|00004e50| 2d 31 29 0d 16 8a 19 65 | 78 70 24 20 20 3d 20 c1 |-1)....e|xp$ = .|
|00004e60| 6e 75 6d 24 2c 70 6f 73 | 25 2b 31 29 0d 16 94 2a |num$,pos|%+1)...*|
|00004e70| e7 20 a4 69 73 73 6e 75 | 6d 28 65 78 70 24 29 20 |. .issnu|m(exp$) |
|00004e80| 8c 20 65 78 70 25 20 3d | 20 bb 28 65 78 70 24 29 |. exp% =| .(exp$)|
|00004e90| 20 8b 20 3d 20 a3 0d 16 | 9e 1a e7 20 ac 20 a4 69 | . = ...|... . .i|
|00004ea0| 73 66 6e 75 6d 28 6d 61 | 6e 74 24 29 20 3d 20 a3 |sfnum(ma|nt$) = .|
|00004eb0| 0d 16 a8 04 0d 16 b2 07 | 3d 20 b9 0d 16 bc 04 0d |........|= ......|
|00004ec0| 16 c6 4c 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..L-----|--------|
|00004ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00004f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 16 d0 04 0d |--------|---.....|
|00004f10| 16 da 17 dd 20 a4 74 6f | 75 70 70 65 72 28 73 74 |.... .to|upper(st|
|00004f20| 72 69 6e 67 24 29 0d 16 | e4 0e ea 20 49 25 2c 63 |ring$)..|... I%,c|
|00004f30| 68 61 72 24 0d 16 ee 04 | 0d 16 f8 17 e3 20 49 25 |har$....|..... I%|
|00004f40| 3d 31 20 b8 20 a9 28 73 | 74 72 69 6e 67 24 29 0d |=1 . .(s|tring$).|
|00004f50| 17 02 1c 20 20 63 68 61 | 72 24 20 3d 20 c1 73 74 |... cha|r$ = .st|
|00004f60| 72 69 6e 67 24 2c 49 25 | 2c 31 29 0d 17 0c 3b 20 |ring$,I%|,1)...; |
|00004f70| 20 e7 20 63 68 61 72 24 | 3e 3d 22 61 22 20 80 20 | . char$|>="a" . |
|00004f80| 63 68 61 72 24 3c 3d 22 | 7a 22 20 8c 20 63 68 61 |char$<="|z" . cha|
|00004f90| 72 24 20 3d 20 bd 28 97 | 28 63 68 61 72 24 29 20 |r$ = .(.|(char$) |
|00004fa0| 80 20 26 44 46 29 0d 17 | 16 1c 20 20 c1 73 74 72 |. &DF)..|.. .str|
|00004fb0| 69 6e 67 24 2c 49 25 2c | 31 29 20 3d 20 63 68 61 |ing$,I%,|1) = cha|
|00004fc0| 72 24 0d 17 20 05 ed 0d | 17 2a 04 0d 17 34 0d 3d |r$.. ...|.*...4.=|
|00004fd0| 20 73 74 72 69 6e 67 24 | 0d ff 46 69 6c 65 44 61 | string$|..FileDa|
|00004fe0| 74 61 82 46 6c 6f 61 74 | 43 69 72 63 00 00 54 08 |ta.Float|Circ..T.|
|00004ff0| 00 00 43 fb ff ff 68 c7 | 7f 35 03 00 10 b6 0d 00 |..C...h.|.5......|
|00005000| 0a 1f f4 20 3e 3c 42 61 | 73 69 63 4c 69 62 24 44 |... ><Ba|sicLib$D|
|00005010| 69 72 3e 2e 46 6c 6f 61 | 74 43 69 72 63 0d 00 14 |ir>.Floa|tCirc...|
|00005020| 19 f4 20 46 6c 6f 61 74 | 69 6e 67 20 70 6f 69 6e |.. Float|ing poin|
|00005030| 74 20 64 65 6d 6f 0d 00 | 1e 3b f4 20 44 72 61 77 |t demo..|.;. Draw|
|00005040| 73 20 61 20 63 69 72 63 | 6c 65 2c 20 72 61 64 69 |s a circ|le, radi|
|00005050| 75 73 20 69 6e 20 52 30 | 2c 20 63 65 6e 74 72 65 |us in R0|, centre|
|00005060| 20 78 20 69 6e 20 52 31 | 2c 20 79 20 69 6e 20 52 | x in R1|, y in R|
|00005070| 32 0d 00 28 04 0d 00 32 | 20 c8 9b 20 22 3c 42 61 |2..(...2| .. "<Ba|
|00005080| 73 69 63 4c 69 62 24 44 | 69 72 3e 2e 46 6c 6f 61 |sicLib$D|ir>.Floa|
|00005090| 74 41 73 73 22 0d 00 3c | 04 0d 00 46 12 de 20 63 |tAss"..<|...F.. c|
|000050a0| 69 72 63 6c 65 20 26 31 | 30 30 30 0d 00 50 12 72 |ircle &1|000..P.r|
|000050b0| 61 64 69 75 73 3d 30 3a | 72 73 71 3d 30 0d 00 5a |adius=0:|rsq=0..Z|
|000050c0| 1b 78 70 6c 6f 74 3d 31 | 3a 79 70 6c 6f 74 3d 32 |.xplot=1|:yplot=2|
|000050d0| 3a 78 3d 33 3a 79 3d 34 | 0d 00 64 17 78 63 65 6e |:x=3:y=4|..d.xcen|
|000050e0| 74 72 65 3d 35 3a 79 63 | 65 6e 74 72 65 3d 36 0d |tre=5:yc|entre=6.|
|000050f0| 00 6e 0b 6c 69 6e 6b 3d | 31 34 0d 00 78 04 0d 00 |.n.link=|14..x...|
|00005100| 82 14 e3 20 6f 70 74 25 | 3d 30 20 b8 20 32 20 88 |... opt%|=0 . 2 .|
|00005110| 20 32 0d 00 8c 0d 50 25 | 3d 63 69 72 63 6c 65 0d | 2....P%|=circle.|
|00005120| 00 96 0d 5b 4f 50 54 20 | 6f 70 74 25 0d 00 97 16 |...[OPT |opt%....|
|00005130| a4 66 6c 6f 61 74 28 22 | 4f 50 54 20 6f 70 74 25 |.float("|OPT opt%|
|00005140| 22 29 0d 00 a0 13 43 4d | 50 20 20 20 72 61 64 69 |")....CM|P radi|
|00005150| 75 73 2c 23 30 0d 00 aa | 3e 4d 4f 56 4c 45 20 50 |us,#0...|>MOVLE P|
|00005160| 43 2c 6c 69 6e 6b 20 20 | 20 20 20 20 20 20 20 20 |C,link | |
|00005170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 | | ; r|
|00005180| 65 74 75 72 6e 20 69 66 | 20 72 61 64 69 75 73 20 |eturn if| radius |
|00005190| 2d 76 65 0d 00 b4 34 43 | 4d 50 20 20 20 72 61 64 |-ve...4C|MP rad|
|000051a0| 69 75 73 2c 23 31 32 38 | 30 20 20 20 20 20 20 20 |ius,#128|0 |
|000051b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 6f 72 20 | | ; or |
|000051c0| 3e 3d 20 31 32 38 30 0d | 00 be 11 4d 4f 56 47 45 |>= 1280.|...MOVGE|
|000051d0| 20 50 43 2c 6c 69 6e 6b | 0d 00 c8 04 0d 00 d2 44 | PC,link|.......D|
|000051e0| a4 66 6c 6f 61 74 28 22 | 46 4c 54 53 20 20 72 61 |.float("|FLTS ra|
|000051f0| 64 69 75 73 2c 72 61 64 | 69 75 73 22 29 20 20 20 |dius,rad|ius") |
|00005200| 20 20 20 3b 20 72 61 64 | 69 75 73 20 74 6f 20 46 | ; rad|ius to F|
|00005210| 30 20 28 73 69 6e 67 6c | 65 20 70 72 65 63 2e 29 |0 (singl|e prec.)|
|00005220| 0d 00 dc 42 a4 66 6c 6f | 61 74 28 22 53 51 54 45 |...B.flo|at("SQTE|
|00005230| 20 20 46 31 2c 23 32 2e | 30 22 29 20 20 20 20 20 | F1,#2.|0") |
|00005240| 20 20 20 20 20 20 20 3b | 20 72 6f 6f 74 20 32 20 | ;| root 2 |
|00005250| 69 6e 20 46 31 20 28 65 | 78 74 2e 20 70 72 65 63 |in F1 (e|xt. prec|
|00005260| 2e 29 0d 00 e6 4a a4 66 | 6c 6f 61 74 28 22 44 56 |.)...J.f|loat("DV|
|00005270| 46 45 20 20 46 31 2c 72 | 61 64 69 75 73 2c 46 31 |FE F1,r|adius,F1|
|00005280| 22 29 20 20 20 20 20 20 | 20 3b 20 78 6d 61 78 20 |") | ; xmax |
|00005290| 3d 20 72 61 64 69 75 73 | 2f 72 6f 6f 74 20 32 20 |= radius|/root 2 |
|000052a0| 28 65 78 74 2e 20 70 72 | 65 63 2e 29 0d 00 f0 3c |(ext. pr|ec.)...<|
|000052b0| a4 66 6c 6f 61 74 28 22 | 46 49 58 53 50 20 78 2c |.float("|FIXSP x,|
|000052c0| 46 31 22 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |F1") | |
|000052d0| 20 20 20 3b 20 78 20 3d | 20 78 6d 61 78 20 28 72 | ; x =| xmax (r|
|000052e0| 6f 75 6e 64 20 75 70 29 | 0d 00 fa 46 a4 66 6c 6f |ound up)|...F.flo|
|000052f0| 61 74 28 22 4d 55 46 44 | 20 20 72 73 71 2c 72 61 |at("MUFD| rsq,ra|
|00005300| 64 69 75 73 2c 72 61 64 | 69 75 73 22 29 20 20 3b |dius,rad|ius") ;|
|00005310| 20 72 61 64 69 75 73 5e | 32 20 69 6e 20 46 30 20 | radius^|2 in F0 |
|00005320| 28 64 6f 75 62 6c 65 20 | 70 72 65 63 2e 29 0d 01 |(double |prec.)..|
|00005330| 04 14 4d 4f 56 20 20 20 | 78 63 65 6e 74 72 65 2c |..MOV |xcentre,|
|00005340| 52 31 0d 01 0e 14 4d 4f | 56 20 20 20 79 63 65 6e |R1....MO|V ycen|
|00005350| 74 72 65 2c 52 32 0d 01 | 18 34 4d 4f 56 20 20 20 |tre,R2..|.4MOV |
|00005360| 52 30 2c 23 36 39 20 20 | 20 20 20 20 20 20 20 20 |R0,#69 | |
|00005370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00005380| 70 6c 6f 74 20 70 6f 69 | 6e 74 0d 01 22 04 0d 01 |plot poi|nt.."...|
|00005390| 2c 09 2e 6c 6f 6f 70 0d | 01 36 3f a4 66 6c 6f 61 |,..loop.|.6?.floa|
|000053a0| 74 28 22 46 4c 54 53 20 | 20 46 31 2c 78 22 29 20 |t("FLTS | F1,x") |
|000053b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000053c0| 78 20 74 6f 20 46 31 20 | 28 73 69 6e 67 6c 65 20 |x to F1 |(single |
|000053d0| 70 72 65 63 2e 29 0d 01 | 40 3b a4 66 6c 6f 61 74 |prec.)..|@;.float|
|000053e0| 28 22 4d 55 46 44 20 20 | 46 31 2c 46 31 2c 46 31 |("MUFD |F1,F1,F1|
|000053f0| 22 29 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 78 |") | ; x|
|00005400| 5e 32 20 28 64 6f 75 62 | 6c 65 20 70 72 65 63 2e |^2 (doub|le prec.|
|00005410| 29 0d 01 4a 47 a4 66 6c | 6f 61 74 28 22 53 55 46 |)..JG.fl|oat("SUF|
|00005420| 44 20 20 46 32 2c 72 73 | 71 2c 46 31 22 29 20 20 |D F2,rs|q,F1") |
|00005430| 20 20 20 20 20 20 20 20 | 3b 20 79 5e 32 20 3d 20 | |; y^2 = |
|00005440| 72 5e 32 20 2d 20 78 5e | 32 20 28 64 6f 75 62 6c |r^2 - x^|2 (doubl|
|00005450| 65 20 70 72 65 63 2e 29 | 0d 01 54 37 a4 66 6c 6f |e prec.)|..T7.flo|
|00005460| 61 74 28 22 53 51 54 45 | 20 20 46 32 2c 46 32 22 |at("SQTE| F2,F2"|
|00005470| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |) | ;|
|00005480| 20 79 20 28 65 78 74 2e | 20 70 72 65 63 2e 29 0d | y (ext.| prec.).|
|00005490| 01 5e 45 a4 66 6c 6f 61 | 74 28 22 46 49 58 53 20 |.^E.floa|t("FIXS |
|000054a0| 20 79 2c 46 32 22 29 20 | 20 20 20 20 20 20 20 20 | y,F2") | |
|000054b0| 20 20 20 20 20 20 3b 20 | 79 20 66 72 6f 6d 20 46 | ; |y from F|
|000054c0| 32 20 28 72 6f 75 6e 64 | 20 74 6f 20 6e 65 61 72 |2 (round| to near|
|000054d0| 65 73 74 29 0d 01 68 19 | 41 44 44 20 20 20 78 70 |est)..h.|ADD xp|
|000054e0| 6c 6f 74 2c 78 63 65 6e | 74 72 65 2c 78 0d 01 72 |lot,xcen|tre,x..r|
|000054f0| 41 41 44 44 20 20 20 79 | 70 6c 6f 74 2c 79 63 65 |AADD y|plot,yce|
|00005500| 6e 74 72 65 2c 79 20 20 | 20 20 20 20 20 20 20 20 |ntre,y | |
|00005510| 20 20 20 20 20 3b 20 6f | 66 66 73 65 74 20 74 6f | ; o|ffset to|
|00005520| 20 73 63 72 65 65 6e 20 | 63 65 6e 74 72 65 0d 01 | screen |centre..|
|00005530| 7c 32 53 57 49 20 20 20 | 22 4f 53 5f 50 6c 6f 74 ||2SWI |"OS_Plot|
|00005540| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00005550| 20 20 20 20 20 20 3b 20 | 70 6c 6f 74 20 78 2c 79 | ; |plot x,y|
|00005560| 0d 01 86 19 53 55 42 20 | 20 20 79 70 6c 6f 74 2c |....SUB | yplot,|
|00005570| 79 63 65 6e 74 72 65 2c | 79 0d 01 90 33 53 57 49 |ycentre,|y...3SWI|
|00005580| 20 20 20 22 4f 53 5f 50 | 6c 6f 74 22 20 20 20 20 | "OS_P|lot" |
|00005590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000055a0| 20 3b 20 70 6c 6f 74 20 | 78 2c 2d 79 0d 01 9a 19 | ; plot |x,-y....|
|000055b0| 53 55 42 20 20 20 78 70 | 6c 6f 74 2c 78 63 65 6e |SUB xp|lot,xcen|
|000055c0| 74 72 65 2c 78 0d 01 a4 | 34 53 57 49 20 20 20 22 |tre,x...|4SWI "|
|000055d0| 4f 53 5f 50 6c 6f 74 22 | 20 20 20 20 20 20 20 20 |OS_Plot"| |
|000055e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 70 | | ; p|
|000055f0| 6c 6f 74 20 2d 78 2c 2d | 79 0d 01 ae 19 41 44 44 |lot -x,-|y....ADD|
|00005600| 20 20 20 79 70 6c 6f 74 | 2c 79 63 65 6e 74 72 65 | yplot|,ycentre|
|00005610| 2c 79 0d 01 b8 33 53 57 | 49 20 20 20 22 4f 53 5f |,y...3SW|I "OS_|
|00005620| 50 6c 6f 74 22 20 20 20 | 20 20 20 20 20 20 20 20 |Plot" | |
|00005630| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 6c 6f 74 | | ; plot|
|00005640| 20 2d 78 2c 79 0d 01 c2 | 19 41 44 44 20 20 20 78 | -x,y...|.ADD x|
|00005650| 70 6c 6f 74 2c 78 63 65 | 6e 74 72 65 2c 79 0d 01 |plot,xce|ntre,y..|
|00005660| cc 19 41 44 44 20 20 20 | 79 70 6c 6f 74 2c 79 63 |..ADD |yplot,yc|
|00005670| 65 6e 74 72 65 2c 78 0d | 01 d6 32 53 57 49 20 20 |entre,x.|..2SWI |
|00005680| 20 22 4f 53 5f 50 6c 6f | 74 22 20 20 20 20 20 20 | "OS_Plo|t" |
|00005690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000056a0| 20 70 6c 6f 74 20 79 2c | 78 0d 01 e0 19 53 55 42 | plot y,|x....SUB|
|000056b0| 20 20 20 79 70 6c 6f 74 | 2c 79 63 65 6e 74 72 65 | yplot|,ycentre|
|000056c0| 2c 78 0d 01 ea 33 53 57 | 49 20 20 20 22 4f 53 5f |,x...3SW|I "OS_|
|000056d0| 50 6c 6f 74 22 20 20 20 | 20 20 20 20 20 20 20 20 |Plot" | |
|000056e0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 6c 6f 74 | | ; plot|
|000056f0| 20 79 2c 2d 78 0d 01 f4 | 19 53 55 42 20 20 20 78 | y,-x...|.SUB x|
|00005700| 70 6c 6f 74 2c 78 63 65 | 6e 74 72 65 2c 79 0d 01 |plot,xce|ntre,y..|
|00005710| fe 34 53 57 49 20 20 20 | 22 4f 53 5f 50 6c 6f 74 |.4SWI |"OS_Plot|
|00005720| 22 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |" | |
|00005730| 20 20 20 20 20 20 3b 20 | 70 6c 6f 74 20 2d 79 2c | ; |plot -y,|
|00005740| 2d 78 0d 02 08 19 41 44 | 44 20 20 20 79 70 6c 6f |-x....AD|D yplo|
|00005750| 74 2c 79 63 65 6e 74 72 | 65 2c 78 0d 02 12 33 53 |t,ycentr|e,x...3S|
|00005760| 57 49 20 20 20 22 4f 53 | 5f 50 6c 6f 74 22 20 20 |WI "OS|_Plot" |
|00005770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005780| 20 20 20 3b 20 70 6c 6f | 74 20 2d 79 2c 78 0d 02 | ; plo|t -y,x..|
|00005790| 1c 3d 53 55 42 53 20 20 | 78 2c 78 2c 23 31 20 20 |.=SUBS |x,x,#1 |
|000057a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000057b0| 20 20 20 20 20 20 3b 20 | 78 2d 3d 31 20 28 61 6e | ; |x-=1 (an|
|000057c0| 64 20 73 65 74 20 66 6c | 61 67 29 0d 02 26 0e 42 |d set fl|ag)..&.B|
|000057d0| 4e 45 20 20 20 6c 6f 6f | 70 0d 02 30 3b 4d 4f 56 |NE loo|p..0;MOV|
|000057e0| 20 20 20 50 43 2c 6c 69 | 6e 6b 20 20 20 20 20 20 | PC,li|nk |
|000057f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005800| 20 3b 20 66 69 6e 69 73 | 68 65 64 20 77 68 65 6e | ; finis|hed when|
|00005810| 20 78 3d 30 0d 02 3a 05 | 5d 0d 02 44 05 ed 0d 02 | x=0..:.|]..D....|
|00005820| 4e 04 0d 02 58 05 db 0d | 02 62 18 41 25 3d 34 30 |N...X...|.b.A%=40|
|00005830| 30 3a 42 25 3d 36 34 30 | 3a 43 25 3d 35 31 32 0d |0:B%=640|:C%=512.|
|00005840| 02 6c 0c d6 20 63 69 72 | 63 6c 65 0d 02 76 05 e0 |.l.. cir|cle..v..|
|00005850| 0d ff | |.. | |
+--------+-------------------------+-------------------------+--------+--------+
