/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Mops 2.5 / Mops source.sit / Mops source / Asm Source / hashDic

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 68 61 73 68 44 69 | 63 00 00 00 00 00 00 00 |..hashDi|c.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|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 54 45 58 54 4d 53 45 | 54 01 00 00 00 00 00 00 |.TEXTMSE|T.......|
|00000050| 00 00 00 00 00 07 77 00 | 00 01 1e a9 f1 a8 f0 a9 |......w.|........|
|00000060| f1 a8 f0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 9a c3 00 00 |........|........|
|00000080| 5c 20 48 61 73 68 44 69 | 63 20 63 6c 61 73 73 2e |\ HashDi|c class.|
|00000090| 20 20 41 20 64 69 63 74 | 69 6f 6e 61 72 79 20 66 |  A dict|ionary f|
|000000a0| 6f 72 20 74 68 65 20 61 | 73 73 65 6d 62 6c 65 72 |or the a|ssembler|
|000000b0| 2e 0d 0d 3a 20 53 45 54 | 5f 4f 42 4a 45 43 54 5f |...: SET|_OBJECT_|
|000000c0| 43 4c 41 53 53 09 5c 20 | 28 20 5e 63 6c 61 73 73 |CLASS.\ |( ^class|
|000000d0| 20 5e 6f 62 6a 20 2d 2d | 20 29 0d 09 36 20 2d 20 | ^obj --| )..6 - |
|000000e0| 20 72 65 6c 6f 63 21 20 | 20 3b 0d 0d 3a 20 4f 42 | reloc! | ;..: OB|
|000000f0| 4a 4d 4f 56 45 20 20 7b | 20 5e 6f 62 6a 20 61 64 |JMOVE  {| ^obj ad|
|00000100| 64 72 20 5c 20 5e 63 6c | 20 2d 2d 20 7d 0d 09 5e |dr \ ^cl| -- }..^|
|00000110| 6f 62 6a 20 3e 63 6c 61 | 73 73 43 66 61 20 20 2d |obj >cla|ssCfa  -|
|00000120| 3e 20 5e 63 6c 0d 09 5e | 6f 62 6a 20 20 6f 62 6a |> ^cl..^|obj  obj|
|00000130| 3e 09 09 09 5c 20 73 6f | 75 72 63 65 0d 09 61 64 |>...\ so|urce..ad|
|00000140| 64 72 09 09 09 09 5c 20 | 64 65 73 74 0d 09 5e 6f |dr....\ |dest..^o|
|00000150| 62 6a 20 20 6c 65 6e 67 | 74 68 3a 20 6f 62 6a 65 |bj  leng|th: obje|
|00000160| 63 74 20 20 38 20 2b 09 | 5c 20 6c 65 6e 67 74 68 |ct  8 +.|\ length|
|00000170| 0d 09 63 6d 6f 76 65 0d | 09 5e 63 6c 20 20 61 64 |..cmove.|.^cl  ad|
|00000180| 64 72 20 32 2b 20 20 72 | 65 6c 6f 63 21 20 20 3b |dr 2+  r|eloc!  ;|
|00000190| 0d 0d 0d 3a 63 6c 61 73 | 73 09 57 41 52 52 41 59 |...:clas|s.WARRAY|
|000001a0| 09 73 75 70 65 72 7b 20 | 69 6e 64 65 78 65 64 2d |.super{ |indexed-|
|000001b0| 6f 62 6a 20 7d 20 20 32 | 20 69 6e 64 65 78 65 64 |obj }  2| indexed|
|000001c0| 0d 0d 3a 6d 20 20 41 54 | 3a 09 09 5c 20 28 20 69 |..:m  AT|:..\ ( i|
|000001d0| 6e 64 65 78 20 2d 2d 20 | 6e 20 29 0d 09 69 6e 6c |ndex -- |n )..inl|
|000001e0| 69 6e 65 7b 20 69 78 20 | 77 40 7d 0d 09 5e 65 6c |ine{ ix |w@}..^el|
|000001f0| 65 6d 32 20 20 77 40 20 | 20 3b 6d 0d 0d 3a 6d 20 |em2  w@ | ;m..:m |
|00000200| 20 54 4f 3a 09 09 5c 20 | 28 20 6e 20 69 6e 64 65 | TO:..\ |( n inde|
|00000210| 78 20 2d 2d 20 29 0d 09 | 69 6e 6c 69 6e 65 7b 20 |x -- )..|inline{ |
|00000220| 69 78 20 77 21 7d 0d 09 | 5e 65 6c 65 6d 32 20 20 |ix w!}..|^elem2  |
|00000230| 77 21 20 20 3b 6d 0d 0d | 3a 6d 20 20 2b 54 4f 3a |w!  ;m..|:m  +TO:|
|00000240| 09 5c 20 28 20 6e 20 69 | 6e 64 65 78 20 2d 2d 20 |.\ ( n i|ndex -- |
|00000250| 29 0d 09 69 6e 6c 69 6e | 65 7b 20 69 78 20 77 2b |)..inlin|e{ ix w+|
|00000260| 21 7d 0d 09 5e 65 6c 65 | 6d 32 20 20 77 2b 21 20 |!}..^ele|m2  w+! |
|00000270| 20 3b 6d 0d 0d 3a 6d 20 | 2d 54 4f 3a 09 09 5c 20 | ;m..:m |-TO:..\ |
|00000280| 28 20 6e 20 69 6e 64 65 | 78 20 2d 2d 20 29 0d 09 |( n inde|x -- )..|
|00000290| 69 6e 6c 69 6e 65 7b 20 | 69 78 20 77 2d 21 7d 0d |inline{ |ix w-!}.|
|000002a0| 09 5e 65 6c 65 6d 32 20 | 20 77 2d 21 20 20 3b 6d |.^elem2 | w-!  ;m|
|000002b0| 0d 0d 3a 6d 20 5e 45 4c | 45 4d 3a 09 5c 20 28 20 |..:m ^EL|EM:.\ ( |
|000002c0| 69 6e 64 65 78 20 2d 2d | 20 61 64 64 72 20 29 0d |index --| addr ).|
|000002d0| 09 69 6e 6c 69 6e 65 7b | 20 69 78 7d 0d 09 5e 65 |.inline{| ix}..^e|
|000002e0| 6c 65 6d 32 20 20 3b 6d | 0d 0d 3a 6d 20 46 49 4c |lem2  ;m|..:m FIL|
|000002f0| 4c 3a 09 5c 20 28 20 76 | 61 6c 75 65 20 2d 2d 20 |L:.\ ( v|alue -- |
|00000300| 29 20 20 46 69 6c 6c 73 | 20 61 6c 6c 20 65 6c 65 |)  Fills| all ele|
|00000310| 6d 65 6e 74 73 20 77 69 | 74 68 20 76 61 6c 75 65 |ments wi|th value|
|00000320| 2e 0d 09 69 64 78 62 61 | 73 65 20 20 6c 69 6d 69 |...idxba|se  limi|
|00000330| 74 20 32 2a 20 20 62 6f | 75 6e 64 73 0d 09 3f 44 |t 2*  bo|unds..?D|
|00000340| 4f 20 20 64 75 70 20 20 | 69 20 77 21 20 20 32 20 |O  dup  |i w!  2 |
|00000350| 2b 4c 4f 4f 50 20 20 64 | 72 6f 70 20 20 3b 6d 0d |+LOOP  d|rop  ;m.|
|00000360| 0d 3a 6d 20 43 4c 41 53 | 53 49 4e 49 54 3a 0d 09 |.:m CLAS|SINIT:..|
|00000370| 30 20 20 66 69 6c 6c 3a | 20 73 65 6c 66 20 20 3b |0  fill:| self  ;|
|00000380| 6d 0d 0d 3b 63 6c 61 73 | 73 0d 0d 0d 20 20 20 20 |m..;clas|s...    |
|00000390| 30 09 76 61 6c 75 65 09 | 5e 4c 49 4e 4b 0d 20 20 |0.value.|^LINK.  |
|000003a0| 20 20 30 09 76 61 6c 75 | 65 09 48 53 48 0d 0d 3a |  0.valu|e.HSH..:|
|000003b0| 63 6c 61 73 73 20 48 41 | 53 48 44 49 43 09 73 75 |class HA|SHDIC.su|
|000003c0| 70 65 72 7b 20 77 41 72 | 72 61 79 20 7d 0d 0d 72 |per{ wAr|ray }..r|
|000003d0| 65 63 6f 72 64 0d 7b 09 | 75 69 6e 74 09 4d 41 53 |ecord.{.|uint.MAS|
|000003e0| 4b 0d 09 64 69 63 61 64 | 64 72 09 53 54 52 54 0d |K..dicad|dr.STRT.|
|000003f0| 09 64 69 63 61 64 64 72 | 09 50 4f 53 0d 09 64 69 |.dicaddr|.POS..di|
|00000400| 63 61 64 64 72 09 4c 49 | 4d 0d 7d 0d 0d 3a 6d 20 |caddr.LI|M.}..:m |
|00000410| 53 45 54 4d 41 53 4b 3a | 09 70 75 74 3a 20 6d 61 |SETMASK:|.put: ma|
|00000420| 73 6b 20 20 3b 6d 0d 0d | 3a 6d 20 53 54 52 54 3a |sk  ;m..|:m STRT:|
|00000430| 09 09 67 65 74 3a 20 73 | 74 72 74 20 20 3b 6d 0d |..get: s|trt  ;m.|
|00000440| 3a 6d 20 50 4f 53 3a 09 | 09 67 65 74 3a 20 70 6f |:m POS:.|.get: po|
|00000450| 73 20 20 20 3b 6d 0d 0d | 3a 6d 20 41 4c 4c 4f 54 |s   ;m..|:m ALLOT|
|00000460| 3a 09 09 5c 20 28 20 73 | 70 61 63 65 20 2d 2d 20 |:..\ ( s|pace -- |
|00000470| 29 0d 09 68 65 72 65 20 | 20 64 75 70 20 20 70 75 |)..here | dup  pu|
|00000480| 74 3a 20 73 74 72 74 20 | 20 70 75 74 3a 20 70 6f |t: strt | put: po|
|00000490| 73 0d 09 73 70 61 63 65 | 20 72 65 73 65 72 76 65 |s..space| reserve|
|000004a0| 0d 09 68 65 72 65 20 20 | 70 75 74 3a 20 6c 69 6d |..here  |put: lim|
|000004b0| 20 20 3b 6d 0d 0d 3a 6d | 20 51 55 45 52 59 3a 20 |  ;m..:m| QUERY: |
|000004c0| 20 7b 20 73 74 72 4f 62 | 6a 20 2d 2d 20 5e 6f 62 | { strOb|j -- ^ob|
|000004d0| 6a 20 54 20 20 7c 20 2d | 2d 20 46 20 7d 0d 0d 09 |j T  | -|- F }...|
|000004e0| 67 65 74 3a 20 73 74 72 | 4f 62 6a 20 73 74 72 32 |get: str|Obj str2|
|000004f0| 35 35 20 68 61 73 68 20 | 20 64 75 70 20 2d 3e 20 |55 hash | dup -> |
|00000500| 68 73 68 0d 09 67 65 74 | 3a 20 6d 61 73 6b 20 20 |hsh..get|: mask  |
|00000510| 61 6e 64 20 20 5e 65 6c | 65 6d 3a 20 73 65 6c 66 |and  ^el|em: self|
|00000520| 20 20 2d 3e 20 5e 6c 69 | 6e 6b 0d 09 42 45 47 49 |  -> ^li|nk..BEGI|
|00000530| 4e 0d 09 09 5e 6c 69 6e | 6b 20 77 40 20 4e 49 46 |N...^lin|k w@ NIF|
|00000540| 20 20 28 20 6e 6f 74 20 | 66 6f 75 6e 64 20 29 20 |  ( not |found ) |
|00000550| 20 66 61 6c 73 65 20 20 | 45 58 49 54 20 20 54 48 | false  |EXIT  TH|
|00000560| 45 4e 0d 09 09 5e 6c 69 | 6e 6b 20 57 64 69 73 70 |EN...^li|nk Wdisp|
|00000570| 6c 61 63 65 20 20 64 75 | 70 20 2d 3e 20 5e 6c 69 |lace  du|p -> ^li|
|00000580| 6e 6b 0d 09 09 32 2b 20 | 40 20 20 68 73 68 20 3d |nk...2+ |@  hsh =|
|00000590| 0d 09 09 49 46 20 20 28 | 20 66 6f 75 6e 64 20 29 |...IF  (| found )|
|000005a0| 20 20 5e 6c 69 6e 6b 20 | 36 20 2b 20 3e 6f 62 6a |  ^link |6 + >obj|
|000005b0| 20 20 74 72 75 65 20 20 | 45 58 49 54 20 20 54 48 |  true  |EXIT  TH|
|000005c0| 45 4e 0d 09 41 47 41 49 | 4e 20 20 3b 6d 0d 0d 0d |EN..AGAI|N  ;m...|
|000005d0| 3a 6d 20 45 4e 54 45 52 | 3a 20 20 7b 20 5e 6f 62 |:m ENTER|:  { ^ob|
|000005e0| 6a 20 73 74 72 4f 62 6a | 20 5c 20 70 6f 73 6e 20 |j strObj| \ posn |
|000005f0| 6c 65 6e 20 2d 2d 20 62 | 20 7d 0d 09 73 74 72 4f |len -- b| }..strO|
|00000600| 62 6a 20 20 71 75 65 72 | 79 3a 20 73 65 6c 66 0d |bj  quer|y: self.|
|00000610| 09 49 46 20 20 28 20 69 | 6e 20 61 6c 72 65 61 64 |.IF  ( i|n alread|
|00000620| 79 20 2d 20 72 65 70 6c | 61 63 65 20 6f 6c 64 20 |y - repl|ace old |
|00000630| 76 61 6c 75 65 20 77 69 | 74 68 20 6e 65 77 20 61 |value wi|th new a|
|00000640| 6e 64 20 72 65 74 75 72 | 6e 20 66 61 6c 73 65 20 |nd retur|n false |
|00000650| 29 0d 09 09 64 72 6f 70 | 20 20 20 5e 6f 62 6a 20 |)...drop|   ^obj |
|00000660| 20 5e 6c 69 6e 6b 20 36 | 20 2b 20 20 6f 62 6a 6d | ^link 6| +  objm|
|00000670| 6f 76 65 0d 09 09 66 61 | 6c 73 65 20 20 45 58 49 |ove...fa|lse  EXI|
|00000680| 54 0d 09 45 4c 53 45 0d | 09 09 67 65 74 3a 20 70 |T..ELSE.|..get: p|
|00000690| 6f 73 20 20 2d 3e 20 70 | 6f 73 6e 0d 09 09 5e 6f |os  -> p|osn...^o|
|000006a0| 62 6a 20 6c 65 6e 67 74 | 68 3a 20 6f 62 6a 65 63 |bj lengt|h: objec|
|000006b0| 74 20 38 20 2b 20 20 2d | 3e 20 6c 65 6e 0d 09 09 |t 8 +  -|> len...|
|000006c0| 70 6f 73 6e 20 6c 65 6e | 20 2b 20 20 67 65 74 3a |posn len| +  get:|
|000006d0| 20 6c 69 6d 20 20 3e 20 | 20 61 62 6f 72 74 22 20 | lim  > | abort" |
|000006e0| 68 61 73 68 44 69 63 20 | 6f 76 65 72 66 6c 6f 77 |hashDic |overflow|
|000006f0| 22 0d 09 09 70 6f 73 6e | 20 5e 6c 69 6e 6b 20 57 |"...posn| ^link W|
|00000700| 64 69 73 70 6c 21 0d 09 | 09 30 20 70 6f 73 6e 20 |displ!..|.0 posn |
|00000710| 77 21 09 09 32 20 2b 2b | 3e 20 70 6f 73 6e 0d 09 |w!..2 ++|> posn..|
|00000720| 09 68 73 68 20 70 6f 73 | 6e 20 21 09 09 34 20 2b |.hsh pos|n !..4 +|
|00000730| 2b 3e 20 70 6f 73 6e 0d | 09 09 5e 6f 62 6a 20 70 |+> posn.|..^obj p|
|00000740| 6f 73 6e 20 6f 62 6a 6d | 6f 76 65 09 6c 65 6e 20 |osn objm|ove.len |
|00000750| 2b 2b 3e 20 70 6f 73 6e | 0d 09 09 70 6f 73 6e 20 |++> posn|...posn |
|00000760| 70 75 74 3a 20 70 6f 73 | 20 20 74 72 75 65 0d 09 |put: pos|  true..|
|00000770| 54 48 45 4e 20 20 3b 6d | 0d 0d 3a 6d 20 44 55 4d |THEN  ;m|..:m DUM|
|00000780| 50 3a 0d 09 5e 62 61 73 | 65 0d 09 67 65 74 3a 20 |P:..^bas|e..get: |
|00000790| 6c 69 6d 20 20 5e 62 61 | 73 65 20 2d 0d 09 64 75 |lim  ^ba|se -..du|
|000007a0| 6d 70 20 20 3b 6d 0d 3b | 63 6c 61 73 73 0d 0d 65 |mp  ;m.;|class..e|
|000007b0| 6e 64 6c 6f 61 64 0d 0d | 5c 20 54 45 53 54 3a 0d |ndload..|\ TEST:.|
|000007c0| 09 73 74 72 69 6e 67 20 | 73 0d 09 31 36 20 68 61 |.string |s..16 ha|
|000007d0| 73 68 44 69 63 20 64 64 | 09 31 35 20 73 65 74 4d |shDic dd|.15 setM|
|000007e0| 61 73 6b 3a 20 64 64 20 | 20 32 30 30 20 61 6c 6c |ask: dd | 200 all|
|000007f0| 6f 74 3a 20 64 64 0d 00 | 00 00 00 00 00 00 00 00 |ot: dd..|........|
|00000800| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000810| 2d 35 35 35 32 09 6b 6f | 6e 73 74 61 6e 74 09 67 |-5552.ko|nstant.g|
|00000820| 65 73 74 61 6c 74 44 75 | 70 53 65 6c 65 63 74 6f |estaltDu|pSelecto|
|00000830| 07 68 61 73 68 44 69 63 | 02 00 00 00 50 61 72 74 |.hashDic|....Part|
|00000840| 53 49 54 78 00 00 00 00 | 00 00 00 00 00 01 83 88 |SITx....|........|
|00000850| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 ab 06 23 2e 00 00 | 00 00 00 00 01 1e 69 6f |....#...|......io|
|00000880| 6e 45 72 72 09 5c 20 67 | 65 73 74 61 6c 74 20 66 |nErr.\ g|estalt f|
|00000890| 75 6e 63 74 69 6f 6e 20 | 70 74 72 20 77 61 73 6e |unction |ptr wasn|
|000008a0| 27 74 20 69 6e 20 73 79 | 73 68 65 61 70 20 0d 2d |'t in sy|sheap .-|
|000008b0| 35 36 39 36 09 6b 6f 6e | 73 74 61 6e 74 09 6b 48 |5696.kon|stant.kH|
|000008c0| 4d 48 65 6c 70 49 44 09 | 5c 20 49 44 20 6f 66 20 |MHelpID.|\ ID of |
|000008d0| 76 61 72 69 6f 75 73 20 | 48 65 6c 70 20 4d 67 72 |various |Help Mgr|
|000008e0| 20 70 61 63 6b 61 67 65 | 20 72 65 73 6f 75 72 63 | package| resourc|
|000008f0| 65 73 20 28 69 6e 20 50 | 61 63 6b 31 34 20 72 61 |es (in P|ack14 ra|
|00000900| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00000910| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00000920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+