home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1994-08-27 | 4.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '.MATH'
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2e 4d 41 54 48 00 00 3b | 00 3b 20 23 65 6c 6d 6f |.MATH..;|.; #elmo|
|00000010| 72 65 6d 61 74 68 6c 69 | 62 3d 31 30 35 20 20 28 |remathli|b=105 (|
|00000020| 72 65 76 20 62 75 6d 36 | 29 00 3b 00 00 80 0d 20 |rev bum6|).;.... |
|00000030| 70 75 73 68 72 65 67 3a | 80 7e 2e 6c 20 60 31 2c |pushreg:|.~.l `1,|
|00000040| 2d 28 61 37 29 3a 80 02 | 20 80 0d 00 80 0d 20 70 |-(a7):..| ..... p|
|00000050| 75 6c 6c 72 65 67 3a 80 | 7e 2e 6c 20 28 61 37 29 |ullreg:.|~.l (a7)|
|00000060| 2b 2c 60 31 3a 80 02 20 | 80 0d 00 80 0d 20 70 75 |+,`1:.. |..... pu|
|00000070| 73 68 72 65 67 73 3a 80 | 82 2e 6c 20 60 31 2c 2d |shregs:.|..l `1,-|
|00000080| 28 61 37 29 3a 80 02 20 | 80 0d 00 80 0d 20 70 75 |(a7):.. |..... pu|
|00000090| 6c 6c 72 65 67 73 3a 80 | 82 2e 6c 20 28 61 37 29 |llregs:.|..l (a7)|
|000000a0| 2b 2c 60 31 3a 80 02 20 | 80 0d 00 80 0d 20 65 72 |+,`1:.. |..... er|
|000000b0| 72 6f 72 3a 80 7e 2e 6c | 20 23 60 31 2c 64 30 3a |ror:.~.l| #`1,d0:|
|000000c0| 80 ae 23 30 3a 60 31 3a | 80 25 2e 62 20 60 32 2c |..#0:`1:|.%.b `2,|
|000000d0| 30 3a 80 27 3a 80 02 20 | 80 0d 00 00 23 61 75 64 |0:.':.. |....#aud|
|000000e0| 69 6f 76 6f 6c 3d 24 64 | 66 66 30 61 38 00 23 61 |iovol=$d|ff0a8.#a|
|000000f0| 75 64 69 6f 70 65 72 3d | 24 64 66 66 30 61 36 00 |udioper=|$dff0a6.|
|00000100| 00 21 6c 69 62 68 65 61 | 64 65 72 7b 23 65 6c 6d |.!libhea|der{#elm|
|00000110| 6f 72 65 6d 61 74 68 6c | 69 62 2c 30 2c 30 2c 30 |oremathl|ib,0,0,0|
|00000120| 2c 30 7d 00 00 21 61 66 | 75 6e 63 74 69 6f 6e 7b |,0}..!af|unction{|
|00000130| 23 6c 6f 6e 67 7d 00 21 | 61 72 67 73 7b 23 6c 6f |#long}.!|args{#lo|
|00000140| 6e 67 2c 23 6c 6f 6e 67 | 7d 00 21 6c 69 62 73 00 |ng,#long|}.!libs.|
|00000150| 21 73 75 62 73 7b 5f 78 | 6f 72 2c 30 2c 30 7d 00 |!subs{_x|or,0,0}.|
|00000160| 21 6e 61 6d 65 7b 22 58 | 6f 72 22 2c 22 28 65 78 |!name{"X|or","(ex|
|00000170| 70 72 65 73 73 69 6f 6e | 2c 65 78 70 72 65 73 73 |pression|,express|
|00000180| 69 6f 6e 29 20 3b 52 65 | 74 75 72 6e 73 20 45 78 |ion) ;Re|turns Ex|
|00000190| 63 6c 75 73 69 76 65 20 | 4f 52 20 6f 66 20 74 77 |clusive |OR of tw|
|000001a0| 6f 20 65 78 70 72 65 73 | 73 69 6f 6e 73 22 7d 00 |o expres|sions"}.|
|000001b0| 00 00 3b 43 6f 6d 70 61 | 72 69 74 69 76 65 20 66 |..;Compa|ritive f|
|000001c0| 75 6e 63 74 69 6f 6e 73 | 00 00 21 61 66 75 6e 63 |unctions|..!afunc|
|000001d0| 74 69 6f 6e 7b 23 6c 6f | 6e 67 7d 00 21 61 72 67 |tion{#lo|ng}.!arg|
|000001e0| 73 7b 23 6c 6f 6e 67 2c | 23 6c 6f 6e 67 7d 00 21 |s{#long,|#long}.!|
|000001f0| 6c 69 62 73 00 21 73 75 | 62 73 20 7b 5f 62 69 67 |libs.!su|bs {_big|
|00000200| 67 65 72 2c 30 2c 30 7d | 00 21 6e 61 6d 65 20 7b |ger,0,0}|.!name {|
|00000210| 22 4c 61 72 67 65 73 74 | 2e 6c 22 2c 22 28 4c 6f |"Largest|.l","(Lo|
|00000220| 6e 67 20 49 6e 74 65 67 | 65 72 31 2c 4c 6f 6e 67 |ng Integ|er1,Long|
|00000230| 20 49 6e 74 65 67 65 72 | 32 29 22 7d 00 00 21 61 | Integer|2)"}..!a|
|00000240| 66 75 6e 63 74 69 6f 6e | 7b 23 6c 6f 6e 67 7d 00 |function|{#long}.|
|00000250| 21 61 72 67 73 7b 23 6c | 6f 6e 67 2c 23 6c 6f 6e |!args{#l|ong,#lon|
|00000260| 67 7d 00 21 6c 69 62 73 | 00 21 73 75 62 73 20 7b |g}.!libs|.!subs {|
|00000270| 5f 73 6d 61 6c 6c 65 72 | 2c 30 2c 30 7d 00 21 6e |_smaller|,0,0}.!n|
|00000280| 61 6d 65 20 7b 22 53 6d | 61 6c 6c 65 73 74 2e 6c |ame {"Sm|allest.l|
|00000290| 22 2c 22 28 4c 6f 6e 67 | 20 49 6e 74 65 67 65 72 |","(Long| Integer|
|000002a0| 31 2c 4c 6f 6e 67 20 49 | 6e 74 65 67 65 72 32 29 |1,Long I|nteger2)|
|000002b0| 22 7d 00 00 00 21 61 66 | 75 6e 63 74 69 6f 6e 7b |"}...!af|unction{|
|000002c0| 23 71 75 69 63 6b 7d 00 | 21 61 72 67 73 7b 23 71 |#quick}.|!args{#q|
|000002d0| 75 69 63 6b 2c 23 71 75 | 69 63 6b 7d 00 21 6c 69 |uick,#qu|ick}.!li|
|000002e0| 62 73 00 21 73 75 62 73 | 20 7b 5f 62 69 67 67 65 |bs.!subs| {_bigge|
|000002f0| 72 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 20 7b 22 4c |r,0,0}.!|name {"L|
|00000300| 61 72 67 65 73 74 2e 71 | 22 2c 22 28 51 75 69 63 |argest.q|","(Quic|
|00000310| 6b 31 2c 51 75 69 63 6b | 32 29 22 7d 00 00 21 61 |k1,Quick|2)"}..!a|
|00000320| 66 75 6e 63 74 69 6f 6e | 7b 23 71 75 69 63 6b 7d |function|{#quick}|
|00000330| 00 21 61 72 67 73 7b 23 | 71 75 69 63 6b 2c 23 71 |.!args{#|quick,#q|
|00000340| 75 69 63 6b 7d 00 21 6c | 69 62 73 00 21 73 75 62 |uick}.!l|ibs.!sub|
|00000350| 73 20 7b 5f 73 6d 61 6c | 6c 65 72 2c 30 2c 30 7d |s {_smal|ler,0,0}|
|00000360| 00 21 6e 61 6d 65 20 7b | 22 53 6d 61 6c 6c 65 73 |.!name {|"Smalles|
|00000370| 74 2e 71 22 2c 22 28 51 | 75 69 63 6b 31 2c 51 75 |t.q","(Q|uick1,Qu|
|00000380| 69 63 6b 32 29 22 7d 00 | 00 00 21 61 66 75 6e 63 |ick2)"}.|..!afunc|
|00000390| 74 69 6f 6e 7b 23 77 6f | 72 64 7d 00 21 61 72 67 |tion{#wo|rd}.!arg|
|000003a0| 73 7b 23 77 6f 72 64 2c | 23 77 6f 72 64 7d 00 21 |s{#word,|#word}.!|
|000003b0| 6c 69 62 73 00 21 73 75 | 62 73 20 7b 5f 77 62 69 |libs.!su|bs {_wbi|
|000003c0| 67 67 65 72 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |gger,0,0|}.!name |
|000003d0| 7b 22 4c 61 72 67 65 73 | 74 22 2c 22 28 49 6e 74 |{"Larges|t","(Int|
|000003e0| 65 67 65 72 31 2c 49 6e | 74 65 67 65 72 32 29 22 |eger1,In|teger2)"|
|000003f0| 7d 00 00 21 61 66 75 6e | 63 74 69 6f 6e 7b 23 77 |}..!afun|ction{#w|
|00000400| 6f 72 64 7d 00 21 61 72 | 67 73 7b 23 77 6f 72 64 |ord}.!ar|gs{#word|
|00000410| 2c 23 77 6f 72 64 7d 00 | 21 6c 69 62 73 00 21 73 |,#word}.|!libs.!s|
|00000420| 75 62 73 20 7b 5f 77 73 | 6d 61 6c 6c 65 72 2c 30 |ubs {_ws|maller,0|
|00000430| 2c 30 7d 00 21 6e 61 6d | 65 20 7b 22 53 6d 61 6c |,0}.!nam|e {"Smal|
|00000440| 6c 65 73 74 22 2c 22 28 | 49 6e 74 65 67 65 72 31 |lest","(|Integer1|
|00000450| 2c 49 6e 74 65 67 65 72 | 32 29 22 7d 00 00 00 00 |,Integer|2)"}....|
|00000460| 3b 51 75 69 63 6b 20 6d | 61 74 68 20 66 75 6e 63 |;Quick m|ath func|
|00000470| 74 69 6f 6e 73 3a 00 00 | 00 21 61 66 75 6e 63 74 |tions:..|.!afunct|
|00000480| 69 6f 6e 7b 23 6c 6f 6e | 67 7d 00 21 61 72 67 73 |ion{#lon|g}.!args|
|00000490| 7b 23 6c 6f 6e 67 2c 23 | 6c 6f 6e 67 7d 00 21 6c |{#long,#|long}.!l|
|000004a0| 69 62 73 00 21 73 75 62 | 73 20 7b 5f 61 76 67 2c |ibs.!sub|s {_avg,|
|000004b0| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 41 76 67 |0,0}.!na|me {"Avg|
|000004c0| 2e 6c 22 2c 22 28 4c 6f | 6e 67 20 49 6e 74 65 67 |.l","(Lo|ng Integ|
|000004d0| 65 72 20 31 2c 4c 6f 6e | 67 20 49 6e 74 65 67 65 |er 1,Lon|g Intege|
|000004e0| 72 20 32 29 22 7d 00 00 | 21 61 66 75 6e 63 74 69 |r 2)"}..|!afuncti|
|000004f0| 6f 6e 7b 23 71 75 69 63 | 6b 7d 00 21 61 72 67 73 |on{#quic|k}.!args|
|00000500| 7b 23 71 75 69 63 6b 2c | 23 71 75 69 63 6b 7d 00 |{#quick,|#quick}.|
|00000510| 21 6c 69 62 73 00 21 73 | 75 62 73 20 7b 5f 61 76 |!libs.!s|ubs {_av|
|00000520| 67 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 20 7b 22 41 |g,0,0}.!|name {"A|
|00000530| 76 67 2e 71 22 2c 22 28 | 51 75 69 63 6b 31 2c 51 |vg.q","(|Quick1,Q|
|00000540| 75 69 63 6b 32 29 22 7d | 00 00 21 61 66 75 6e 63 |uick2)"}|..!afunc|
|00000550| 74 69 6f 6e 7b 23 77 6f | 72 64 7d 00 21 61 72 67 |tion{#wo|rd}.!arg|
|00000560| 73 7b 23 77 6f 72 64 2c | 23 77 6f 72 64 7d 00 21 |s{#word,|#word}.!|
|00000570| 6c 69 62 73 00 21 73 75 | 62 73 20 7b 5f 77 61 76 |libs.!su|bs {_wav|
|00000580| 67 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 20 7b 22 41 |g,0,0}.!|name {"A|
|00000590| 76 67 22 2c 22 28 49 6e | 74 65 67 65 72 31 2c 49 |vg","(In|teger1,I|
|000005a0| 6e 74 65 67 65 72 32 29 | 22 7d 00 00 00 00 3b 52 |nteger2)|"}....;R|
|000005b0| 65 70 72 6f 64 75 63 69 | 62 6c 65 20 72 61 6e 64 |eproduci|ble rand|
|000005c0| 6f 6d 20 6e 75 6d 62 65 | 72 20 67 65 6e 65 72 61 |om numbe|r genera|
|000005d0| 74 69 6f 6e 3a 00 00 21 | 61 73 74 61 74 65 6d 65 |tion:..!|astateme|
|000005e0| 6e 74 00 21 61 72 67 73 | 7b 23 6c 6f 6e 67 7d 00 |nt.!args|{#long}.|
|000005f0| 21 6c 69 62 73 00 21 73 | 75 62 73 7b 5f 72 61 6e |!libs.!s|ubs{_ran|
|00000600| 64 6f 6d 69 7a 65 2c 30 | 2c 30 7d 00 21 6e 61 6d |domize,0|,0}.!nam|
|00000610| 65 20 7b 22 52 52 61 6e | 64 6f 6d 69 7a 65 22 2c |e {"RRan|domize",|
|00000620| 22 53 65 65 64 22 7d 00 | 00 00 21 61 66 75 6e 63 |"Seed"}.|..!afunc|
|00000630| 74 69 6f 6e 7b 23 6c 6f | 6e 67 7d 00 21 61 72 67 |tion{#lo|ng}.!arg|
|00000640| 73 20 7b 23 6c 6f 6e 67 | 2c 23 6c 6f 6e 67 7d 00 |s {#long|,#long}.|
|00000650| 21 6c 69 62 73 00 21 73 | 75 62 73 7b 5f 72 61 6e |!libs.!s|ubs{_ran|
|00000660| 64 6f 6d 2c 30 2c 30 7d | 00 21 6e 61 6d 65 20 7b |dom,0,0}|.!name {|
|00000670| 22 52 52 6e 64 22 2c 22 | 28 4c 6f 77 2c 48 69 67 |"RRnd","|(Low,Hig|
|00000680| 68 29 22 7d 00 00 00 21 | 61 66 75 6e 63 74 69 6f |h)"}...!|afunctio|
|00000690| 6e 7b 23 6c 6f 6e 67 7d | 00 21 61 72 67 73 7b 23 |n{#long}|.!args{#|
|000006a0| 73 74 72 69 6e 67 7d 00 | 21 6c 69 62 73 00 21 73 |string}.|!libs.!s|
|000006b0| 75 62 73 7b 5f 68 64 65 | 63 2c 30 2c 30 7d 00 21 |ubs{_hde|c,0,0}.!|
|000006c0| 6e 61 6d 65 7b 22 48 65 | 78 23 22 2c 22 28 48 65 |name{"He|x#","(He|
|000006d0| 78 53 74 72 69 6e 67 24 | 29 20 3b 43 6f 6e 76 65 |xString$|) ;Conve|
|000006e0| 72 74 73 20 68 65 78 61 | 64 65 63 69 6d 61 6c 20 |rts hexa|decimal |
|000006f0| 28 69 6e 20 73 74 72 69 | 6e 67 29 20 76 61 6c 75 |(in stri|ng) valu|
|00000700| 65 20 74 6f 20 64 65 63 | 69 6d 61 6c 22 7d 00 00 |e to dec|imal"}..|
|00000710| 00 21 61 66 75 6e 63 74 | 69 6f 6e 7b 23 6c 6f 6e |.!afunct|ion{#lon|
|00000720| 67 7d 00 21 61 72 67 73 | 7b 23 73 74 72 69 6e 67 |g}.!args|{#string|
|00000730| 7d 00 21 6c 69 62 73 00 | 21 73 75 62 73 7b 5f 62 |}.!libs.|!subs{_b|
|00000740| 64 65 63 2c 30 2c 30 7d | 00 21 6e 61 6d 65 7b 22 |dec,0,0}|.!name{"|
|00000750| 42 69 6e 23 22 2c 22 28 | 42 69 6e 53 74 72 69 6e |Bin#","(|BinStrin|
|00000760| 67 24 29 20 3b 43 6f 6e | 76 65 72 74 73 20 62 69 |g$) ;Con|verts bi|
|00000770| 6e 61 72 79 20 76 61 6c | 75 65 20 28 69 6e 20 73 |nary val|ue (in s|
|00000780| 74 72 69 6e 67 29 20 74 | 6f 20 64 65 63 69 6d 61 |tring) t|o decima|
|00000790| 6c 22 7d 00 00 00 00 00 | 00 21 6c 69 62 66 69 6e |l"}.....|.!libfin|
|000007a0| 00 00 00 2e 5f 62 69 67 | 67 65 72 00 80 5c 2e 6c |...._big|ger..\.l|
|000007b0| 20 64 31 2c 64 30 00 80 | 4a 20 62 69 67 67 65 72 | d1,d0..|J bigger|
|000007c0| 65 6e 64 00 80 7e 2e 6c | 20 64 31 2c 64 30 00 62 |end..~.l| d1,d0.b|
|000007d0| 69 67 67 65 72 65 6e 64 | 00 80 94 00 00 2e 5f 73 |iggerend|......_s|
|000007e0| 6d 61 6c 6c 65 72 00 80 | 5c 2e 6c 20 64 30 2c 64 |maller..|\.l d0,d|
|000007f0| 31 00 80 4a 20 73 6d 61 | 6c 6c 65 72 65 6e 64 00 |1..J sma|llerend.|
|00000800| 80 7e 2e 6c 20 64 31 2c | 64 30 00 73 6d 61 6c 6c |.~.l d1,|d0.small|
|00000810| 65 72 65 6e 64 00 80 94 | 00 00 5f 77 62 69 67 67 |erend...|.._wbigg|
|00000820| 65 72 00 80 5c 2e 77 20 | 64 31 2c 64 30 00 80 4a |er..\.w |d1,d0..J|
|00000830| 20 77 62 69 67 67 65 72 | 65 6e 64 00 80 7e 2e 77 | wbigger|end..~.w|
|00000840| 20 64 31 2c 64 30 00 77 | 62 69 67 67 65 72 65 6e | d1,d0.w|biggeren|
|00000850| 64 00 80 94 00 00 5f 77 | 73 6d 61 6c 6c 65 72 00 |d....._w|smaller.|
|00000860| 80 5c 2e 77 20 64 30 2c | 64 31 00 80 4a 20 77 73 |.\.w d0,|d1..J ws|
|00000870| 6d 61 6c 6c 65 72 65 6e | 64 00 80 7e 2e 77 20 64 |malleren|d..~.w d|
|00000880| 31 2c 64 30 00 77 73 6d | 61 6c 6c 65 72 65 6e 64 |1,d0.wsm|allerend|
|00000890| 00 80 94 00 00 00 2e 5f | 61 76 67 00 80 3d 2e 6c |......._|avg..=.l|
|000008a0| 20 64 31 2c 64 30 00 80 | 45 2e 6c 20 23 31 2c 64 | d1,d0..|E.l #1,d|
|000008b0| 30 00 80 94 00 00 5f 77 | 61 76 67 00 80 3d 2e 77 |0....._w|avg..=.w|
|000008c0| 20 64 31 2c 64 30 00 80 | 45 2e 77 20 23 31 2c 64 | d1,d0..|E.w #1,d|
|000008d0| 30 00 80 94 00 00 00 00 | 00 00 00 3b 53 65 74 20 |0.......|...;Set |
|000008e0| 72 61 6e 64 6f 6d 27 73 | 20 73 65 65 64 00 2e 5f |random's| seed.._|
|000008f0| 72 61 6e 64 6f 6d 69 7a | 65 00 80 3d 2e 6c 20 64 |randomiz|e..=.l d|
|00000900| 31 2c 64 30 00 80 82 2e | 6c 20 64 30 2f 64 31 2c |1,d0....|l d0/d1,|
|00000910| 6e 75 6d 72 6e 64 00 00 | 00 00 00 2e 5f 72 72 6e |numrnd..|...._rrn|
|00000920| 64 6c 00 00 21 70 75 73 | 68 72 65 67 73 7b 64 32 |dl..!pus|hregs{d2|
|00000930| 2d 64 33 7d 00 80 82 2e | 6c 20 6e 75 6d 72 6e 64 |-d3}....|l numrnd|
|00000940| 2c 64 30 2f 64 31 20 20 | 20 20 3b 20 20 20 64 30 |,d0/d1 | ; d0|
|00000950| 3d 4c 53 42 27 73 2c 20 | 64 31 3d 4d 53 42 27 73 |=LSB's, |d1=MSB's|
|00000960| 20 6f 66 20 72 61 6e 64 | 6f 6d 20 6e 75 6d 62 65 | of rand|om numbe|
|00000970| 72 00 80 43 2e 62 20 20 | 23 24 30 45 2c 64 30 20 |r..C.b |#$0E,d0 |
|00000980| 20 20 20 20 20 3b 20 20 | 20 65 6e 73 75 72 65 20 | ; | ensure |
|00000990| 75 70 70 65 72 20 35 39 | 20 62 69 74 73 20 61 72 |upper 59| bits ar|
|000009a0| 65 20 61 6e 2e 2e 2e 00 | 80 8b 2e 62 20 20 20 23 |e an....|...b #|
|000009b0| 24 32 30 2c 64 30 20 20 | 20 20 20 20 3b 20 20 20 |$20,d0 | ; |
|000009c0| 2e 2e 2e 6f 64 64 20 62 | 69 6e 61 72 79 20 6e 75 |...odd b|inary nu|
|000009d0| 6d 62 65 72 00 80 7e 2e | 6c 20 20 64 30 2c 64 32 |mber..~.|l d0,d2|
|000009e0| 00 80 7e 2e 6c 20 20 64 | 31 2c 64 33 00 80 3d 2e |..~.l d|1,d3..=.|
|000009f0| 6c 20 20 20 64 32 2c 64 | 32 20 20 20 20 20 20 20 |l d2,d|2 |
|00000a00| 20 3b 20 20 20 61 63 63 | 6f 75 6e 74 73 20 66 6f | ; acc|ounts fo|
|00000a10| 72 20 31 20 6f 66 20 31 | 37 20 6c 65 66 74 20 73 |r 1 of 1|7 left s|
|00000a20| 68 69 66 74 73 00 80 41 | 2e 6c 20 20 64 33 2c 64 |hifts..A|.l d3,d|
|00000a30| 33 20 20 20 20 20 20 20 | 20 3b 20 20 20 5b 64 32 |3 | ; [d2|
|00000a40| 2f 64 33 5d 20 3d 20 52 | 4e 44 2a 32 00 80 3d 2e |/d3] = R|ND*2..=.|
|00000a50| 6c 20 20 20 64 32 2c 64 | 30 00 80 41 2e 6c 20 20 |l d2,d|0..A.l |
|00000a60| 64 33 2c 64 31 20 20 20 | 20 20 20 20 20 3b 20 20 |d3,d1 | ; |
|00000a70| 20 5b 64 30 2f 64 31 5d | 20 3d 20 52 4e 44 2a 33 | [d0/d1]| = RND*3|
|00000a80| 00 80 ac 20 20 20 20 64 | 33 20 20 20 20 20 20 20 |... d|3 |
|00000a90| 20 20 20 20 3b 20 20 20 | 73 68 69 66 74 20 5b 64 | ; |shift [d|
|00000aa0| 32 2f 64 33 5d 20 61 64 | 64 69 74 69 6f 6e 61 6c |2/d3] ad|ditional|
|00000ab0| 20 31 36 20 74 69 6d 65 | 73 00 80 ac 20 20 20 20 | 16 time|s... |
|00000ac0| 64 32 00 80 7e 2e 77 20 | 20 64 32 2c 64 33 00 80 |d2..~.w | d2,d3..|
|00000ad0| 5b 2e 77 20 20 20 64 32 | 00 80 3d 2e 6c 20 20 20 |[.w d2|..=.l |
|00000ae0| 64 32 2c 64 30 20 20 20 | 20 20 20 20 20 3b 20 20 |d2,d0 | ; |
|00000af0| 20 61 64 64 20 74 6f 20 | 5b 64 30 2f 64 31 5d 00 | add to |[d0/d1].|
|00000b00| 80 41 2e 6c 20 20 64 33 | 2c 64 31 00 80 82 2e 6c |.A.l d3|,d1....l|
|00000b10| 20 64 30 2f 64 31 2c 6e | 75 6d 72 6e 64 20 3b 20 | d0/d1,n|umrnd ; |
|00000b20| 20 20 73 61 76 65 20 66 | 6f 72 20 6e 65 78 74 20 | save f|or next |
|00000b30| 74 69 6d 65 20 74 68 72 | 6f 75 67 68 00 80 7e 2e |time thr|ough..~.|
|00000b40| 6c 20 20 64 31 2c 64 30 | 20 20 20 20 20 20 20 20 |l d1,d0| |
|00000b50| 3b 20 20 20 6d 6f 73 74 | 20 72 61 6e 64 6f 6d 20 |; most| random |
|00000b60| 70 61 72 74 20 74 6f 20 | 64 30 00 21 70 75 6c 6c |part to |d0.!pull|
|00000b70| 72 65 67 73 7b 64 32 2d | 64 33 7d 00 80 94 00 00 |regs{d2-|d3}.....|
|00000b80| 2e 5f 72 61 6e 64 6f 6d | 00 21 70 75 73 68 72 65 |._random|.!pushre|
|00000b90| 67 73 7b 64 31 2d 64 33 | 7d 00 80 40 20 23 31 2c |gs{d1-d3|}..@ #1,|
|00000ba0| 64 31 00 80 a7 2e 77 20 | 64 30 2c 64 31 20 20 20 |d1....w |d0,d1 |
|00000bb0| 20 20 20 20 20 20 20 3b | 20 20 20 63 61 6c 63 2e | ;| calc.|
|00000bc0| 20 64 69 66 66 65 72 65 | 6e 63 65 20 66 72 6f 6d | differe|nce from|
|00000bd0| 20 6c 6f 77 20 74 6f 20 | 68 69 67 68 00 00 80 48 | low to |high...H|
|00000be0| 20 20 20 20 20 72 61 6e | 64 6f 6d 32 20 20 20 20 | ran|dom2 |
|00000bf0| 20 20 3b 20 20 20 72 61 | 6e 67 65 20 6f 66 20 30 | ; ra|nge of 0|
|00000c00| 20 72 65 74 75 72 6e 73 | 20 30 20 61 6c 77 61 79 | returns| 0 alway|
|00000c10| 73 00 80 7e 2e 77 20 20 | 64 31 2c 64 32 20 20 20 |s..~.w |d1,d2 |
|00000c20| 20 20 20 20 20 3b 20 20 | 20 73 61 76 65 20 75 70 | ; | save up|
|00000c30| 70 65 72 20 6c 69 6d 69 | 74 00 80 7e 2e 77 20 20 |per limi|t..~.w |
|00000c40| 64 30 2c 64 33 20 20 20 | 20 20 20 20 20 3b 20 20 |d0,d3 | ; |
|00000c50| 20 73 61 76 65 20 64 69 | 66 66 65 72 65 6e 63 65 | save di|fference|
|00000c60| 00 00 80 59 20 20 20 20 | 20 5f 72 72 6e 64 6c 20 |...Y | _rrndl |
|00000c70| 20 20 20 20 20 20 3b 20 | 20 20 67 65 74 20 61 20 | ; | get a |
|00000c80| 6c 6f 6e 67 77 6f 72 64 | 20 72 61 6e 64 6f 6d 20 |longword| random |
|00000c90| 6e 75 6d 62 65 72 00 80 | 5b 2e 77 20 20 20 64 30 |number..|[.w d0|
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 75 | | ; u|
|00000cb0| 73 65 20 75 70 70 65 72 | 20 77 6f 72 64 20 28 69 |se upper| word (i|
|00000cc0| 74 27 73 20 6d 6f 73 74 | 20 72 61 6e 64 6f 6d 29 |t's most| random)|
|00000cd0| 00 80 ac 20 20 20 20 64 | 30 00 80 72 2e 77 20 20 |... d|0..r.w |
|00000ce0| 64 32 2c 64 30 20 20 20 | 20 20 20 20 20 3b 20 20 |d2,d0 | ; |
|00000cf0| 20 64 69 76 69 64 65 20 | 62 79 20 72 61 6e 67 65 | divide |by range|
|00000d00| 2e 2e 2e 00 00 80 5b 2e | 77 20 20 20 64 30 20 20 |......[.|w d0 |
|00000d10| 20 20 20 20 20 20 20 20 | 20 3b 20 20 20 2e 2e 2e | | ; ...|
|00000d20| 61 6e 64 20 75 73 65 20 | 72 65 6d 61 69 6e 64 65 |and use |remainde|
|00000d30| 72 20 66 6f 72 20 74 68 | 65 20 76 61 6c 75 65 00 |r for th|e value.|
|00000d40| 80 ac 20 20 20 20 64 30 | 20 20 20 20 20 20 20 20 |.. d0| |
|00000d50| 20 20 20 3b 20 20 20 72 | 65 73 75 6c 74 20 69 6e | ; r|esult in|
|00000d60| 20 64 30 2e 77 00 00 80 | 3d 2e 77 20 64 33 2c 64 | d0.w...|=.w d3,d|
|00000d70| 30 20 20 20 20 20 20 20 | 20 20 20 3b 20 20 20 61 |0 | ; a|
|00000d80| 64 64 20 64 69 66 66 65 | 72 65 6e 63 65 20 62 61 |dd diffe|rence ba|
|00000d90| 63 6b 20 6f 6e 00 00 72 | 61 6e 64 6f 6d 32 00 21 |ck on..r|andom2.!|
|00000da0| 70 75 6c 6c 72 65 67 73 | 7b 64 31 2d 64 33 7d 00 |pullregs|{d1-d3}.|
|00000db0| 00 80 94 00 00 2e 5f 78 | 6f 72 00 80 73 2e 6c 20 |......_x|or..s.l |
|00000dc0| 64 31 2c 64 30 00 80 94 | 00 00 00 2e 5f 68 64 65 |d1,d0...|...._hde|
|00000dd0| 63 00 00 3b 41 30 3d 50 | 6f 69 6e 74 73 20 74 6f |c..;A0=P|oints to|
|00000de0| 20 63 75 72 72 65 6e 74 | 20 63 68 61 72 20 69 6e | current| char in|
|00000df0| 20 6f 75 72 20 73 74 72 | 69 6e 67 00 3b 44 30 3d | our str|ing.;D0=|
|00000e00| 43 75 72 72 65 6e 74 20 | 64 65 63 69 6d 61 6c 20 |Current |decimal |
|00000e10| 76 61 6c 75 65 00 3b 44 | 31 3d 4e 6f 2e 20 63 68 |value.;D|1=No. ch|
|00000e20| 61 72 61 63 74 65 72 73 | 20 6c 65 66 74 20 74 69 |aracters| left ti|
|00000e30| 6c 6c 20 65 6e 64 20 6f | 66 20 73 74 72 69 6e 67 |ll end o|f string|
|00000e40| 00 3b 44 32 3d 43 75 72 | 72 65 6e 74 20 62 79 74 |.;D2=Cur|rent byt|
|00000e50| 65 00 00 80 7e 2e 6c 20 | 64 30 2c 61 30 00 80 7e |e...~.l |d0,a0..~|
|00000e60| 2e 6c 20 2d 34 28 61 32 | 29 2c 64 31 00 80 5b 2e |.l -4(a2|),d1..[.|
|00000e70| 6c 20 64 30 00 00 3b 73 | 74 72 69 70 20 6c 65 61 |l d0..;s|trip lea|
|00000e80| 64 69 6e 67 20 7a 65 72 | 6f 73 3a 00 68 65 78 73 |ding zer|os:.hexs|
|00000e90| 74 72 69 70 7a 65 72 6f | 3a 00 80 5c 2e 62 20 23 |tripzero|:..\.b #|
|00000ea0| 34 38 2c 28 61 30 29 00 | 80 50 20 68 65 78 32 00 |48,(a0).|.P hex2.|
|00000eb0| 80 40 2e 6c 20 23 31 2c | 61 30 00 80 6f 20 64 31 |.@.l #1,|a0..o d1|
|00000ec0| 2c 68 65 78 73 74 72 69 | 70 7a 65 72 6f 00 80 94 |,hexstri|pzero...|
|00000ed0| 00 00 00 68 65 78 32 3a | 00 80 5b 2e 6c 20 64 32 |...hex2:|..[.l d2|
|00000ee0| 00 00 70 61 72 73 65 68 | 65 78 3a 00 80 7e 2e 62 |..parseh|ex:..~.b|
|00000ef0| 20 28 61 30 29 2b 2c 64 | 32 00 80 59 20 62 79 74 | (a0)+,d|2..Y byt|
|00000f00| 65 74 6f 68 65 78 00 00 | 3b 41 6e 79 20 64 69 67 |etohex..|;Any dig|
|00000f10| 69 74 73 20 77 69 74 68 | 20 62 69 74 20 34 20 28 |its with| bit 4 (|
|00000f20| 31 36 29 20 6d 65 61 6e | 20 53 54 4f 50 21 21 00 |16) mean| STOP!!.|
|00000f30| 80 57 2e 62 20 23 34 2c | 64 32 00 80 48 20 6d 6f |.W.b #4,|d2..H mo|
|00000f40| 72 65 68 65 78 00 80 94 | 00 00 00 6d 6f 72 65 68 |rehex...|...moreh|
|00000f50| 65 78 3a 00 80 b0 2e 6c | 20 64 31 00 80 48 20 68 |ex:....l| d1..H h|
|00000f60| 65 78 33 00 00 80 7c 2e | 6c 20 23 34 2c 64 30 00 |ex3...|.|l #4,d0.|
|00000f70| 00 68 65 78 33 3a 00 00 | 80 3d 2e 6c 20 64 32 2c |.hex3:..|.=.l d2,|
|00000f80| 64 30 00 80 6f 20 64 31 | 2c 70 61 72 73 65 68 65 |d0..o d1|,parsehe|
|00000f90| 78 00 00 68 65 78 72 65 | 74 3a 00 80 94 00 00 62 |x..hexre|t:.....b|
|00000fa0| 79 74 65 74 6f 68 65 78 | 3a 00 80 a7 2e 62 20 23 |ytetohex|:....b #|
|00000fb0| 34 38 2c 64 32 00 00 80 | 5c 2e 62 20 23 39 2c 64 |48,d2...|\.b #9,d|
|00000fc0| 32 00 80 4d 20 68 65 78 | 72 65 74 00 00 3b 55 70 |2..M hex|ret..;Up|
|00000fd0| 70 65 72 63 61 73 65 3f | 00 80 a7 2e 62 20 23 37 |percase?|....b #7|
|00000fe0| 2c 64 32 00 80 5c 2e 62 | 20 23 31 35 2c 64 32 00 |,d2..\.b| #15,d2.|
|00000ff0| 80 4d 20 68 65 78 72 65 | 74 00 00 3b 4c 6f 77 65 |.M hexre|t..;Lowe|
|00001000| 72 63 61 73 65 3f 00 80 | a7 2e 62 20 23 33 32 2c |rcase?..|..b #32,|
|00001010| 64 32 00 80 5c 2e 62 20 | 23 31 35 2c 64 32 00 80 |d2..\.b |#15,d2..|
|00001020| 4d 20 68 65 78 72 65 74 | 00 00 3b 42 61 64 20 64 |M hexret|..;Bad d|
|00001030| 69 67 69 74 3a 20 20 53 | 65 74 20 62 69 74 20 34 |igit: S|et bit 4|
|00001040| 21 00 00 80 7e 2e 62 20 | 23 31 36 2c 64 32 00 00 |!...~.b |#16,d2..|
|00001050| 80 94 00 00 00 2e 5f 62 | 64 65 63 00 3b 41 30 3d |......_b|dec.;A0=|
|00001060| 50 6f 69 6e 74 73 20 74 | 6f 20 63 75 72 72 65 6e |Points t|o curren|
|00001070| 74 20 63 68 61 72 20 69 | 6e 20 6f 75 72 20 73 74 |t char i|n our st|
|00001080| 72 69 6e 67 00 3b 44 30 | 3d 43 75 72 72 65 6e 74 |ring.;D0|=Current|
|00001090| 20 64 65 63 69 6d 61 6c | 20 76 61 6c 75 65 00 3b | decimal| value.;|
|000010a0| 44 31 3d 4e 6f 2e 20 63 | 68 61 72 61 63 74 65 72 |D1=No. c|haracter|
|000010b0| 73 20 6c 65 66 74 20 74 | 69 6c 6c 20 65 6e 64 20 |s left t|ill end |
|000010c0| 6f 66 20 73 74 72 69 6e | 67 00 3b 44 32 3d 43 75 |of strin|g.;D2=Cu|
|000010d0| 72 72 65 6e 74 20 62 79 | 74 65 00 00 80 7e 2e 6c |rrent by|te...~.l|
|000010e0| 20 64 30 2c 61 30 00 80 | 7e 2e 6c 20 2d 34 28 61 | d0,a0..|~.l -4(a|
|000010f0| 32 29 2c 64 31 00 80 5b | 2e 6c 20 64 30 00 00 3b |2),d1..[|.l d0..;|
|00001100| 73 74 72 69 70 20 6c 65 | 61 64 69 6e 67 20 7a 65 |strip le|ading ze|
|00001110| 72 6f 73 3a 00 62 69 6e | 73 74 72 69 70 7a 65 72 |ros:.bin|stripzer|
|00001120| 6f 3a 00 80 5c 2e 62 20 | 23 34 38 2c 28 61 30 29 |o:..\.b |#48,(a0)|
|00001130| 00 80 50 20 62 69 6e 32 | 00 80 40 2e 6c 20 23 31 |..P bin2|..@.l #1|
|00001140| 2c 61 30 00 80 6f 20 64 | 31 2c 62 69 6e 73 74 72 |,a0..o d|1,binstr|
|00001150| 69 70 7a 65 72 6f 00 80 | 94 00 00 00 62 69 6e 32 |ipzero..|....bin2|
|00001160| 3a 00 80 5b 2e 6c 20 64 | 32 00 00 70 61 72 73 65 |:..[.l d|2..parse|
|00001170| 62 69 6e 3a 00 80 7e 2e | 62 20 28 61 30 29 2b 2c |bin:..~.|b (a0)+,|
|00001180| 64 32 00 00 3b 69 73 20 | 69 74 20 61 20 22 31 22 |d2..;is |it a "1"|
|00001190| 3f 00 80 5c 2e 62 20 23 | 34 39 2c 64 32 00 80 50 |?..\.b #|49,d2..P|
|000011a0| 20 62 69 6e 69 73 69 74 | 30 00 80 81 20 23 31 2c | binisit|0... #1,|
|000011b0| 64 32 3a 80 58 20 6d 6f | 72 65 62 69 6e 00 00 62 |d2:.X mo|rebin..b|
|000011c0| 69 6e 69 73 69 74 30 3a | 00 80 5c 2e 62 20 23 34 |inisit0:|..\.b #4|
|000011d0| 38 2c 64 32 00 80 50 20 | 62 69 6e 72 65 74 00 80 |8,d2..P |binret..|
|000011e0| 5b 2e 62 20 64 32 00 80 | 58 20 6d 6f 72 65 62 69 |[.b d2..|X morebi|
|000011f0| 6e 00 80 94 00 00 6d 6f | 72 65 62 69 6e 3a 00 80 |n.....mo|rebin:..|
|00001200| b0 2e 6c 20 64 31 00 80 | 48 20 62 69 6e 33 00 00 |..l d1..|H bin3..|
|00001210| 80 7c 2e 6c 20 23 31 2c | 64 30 00 00 62 69 6e 33 |.|.l #1,|d0..bin3|
|00001220| 3a 00 00 80 3d 2e 6c 20 | 64 32 2c 64 30 00 80 6f |:...=.l |d2,d0..o|
|00001230| 20 64 31 2c 70 61 72 73 | 65 62 69 6e 00 00 62 69 | d1,pars|ebin..bi|
|00001240| 6e 72 65 74 3a 00 80 94 | 00 00 00 00 00 00 00 6e |nret:...|.......n|
|00001250| 75 6d 72 6e 64 3a 00 80 | 26 2e 6c 20 32 00 00 |umrnd:..|&.l 2.. |
+--------+-------------------------+-------------------------+--------+--------+
