Paste: locals and no-locals
Author: | yuuki |
Mode: | factor |
Date: | Tue, 23 Jun 2009 05:11:19 |
Plain Text |
: (greater) ( keyl l keyi i -- keyl/keyi l/i )
[ pick over after=? ] dip swap
[ 2drop ] [ [ 2drop ] 2dip ] if ;
:: (greater)2 ( keyl l keyi i -- keyl/keyi l/i )
keyl keyi after=? [ keyl l ] [ keyi i ] if ;
Author: | yuuki |
Mode: | assembly-x86 |
Date: | Tue, 23 Jun 2009 05:13:34 |
Plain Text |
(greater)
06cc54d0: 6810000000 push dword 0x10
06cc54d5: 68d054cc06 push dword 0x6cc54d0
06cc54da: 83ec04 sub esp, 0x4
06cc54dd: 83c704 add edi, 0x4
06cc54e0: 83c604 add esi, 0x4
06cc54e3: 8b56fc mov edx, [esi-0x4]
06cc54e6: 8b4ef0 mov ecx, [esi-0x10]
06cc54e9: 8b46f8 mov eax, [esi-0x8]
06cc54ec: 8906 mov [esi], eax
06cc54ee: 894efc mov [esi-0x4], ecx
06cc54f1: 8917 mov [edi], edx
06cc54f3: e878c50300 call 0x6d01a70
06cc54f8: 83ef04 sub edi, 0x4
06cc54fb: 8b5704 mov edx, [edi+0x4]
06cc54fe: 8b0e mov ecx, [esi]
06cc5500: 8916 mov [esi], edx
06cc5502: 83f905 cmp ecx, 0x5
06cc5505: 0f8407000000 jz dword 0x6cc5512
06cc550b: 83ee08 sub esi, 0x8
06cc550e: 83c40c add esp, 0xc
06cc5511: c3 ret
06cc5512: 83ee08 sub esi, 0x8
06cc5515: 8b5604 mov edx, [esi+0x4]
06cc5518: 8b4e08 mov ecx, [esi+0x8]
06cc551b: 890e mov [esi], ecx
06cc551d: 8956fc mov [esi-0x4], edx
06cc5520: 83c40c add esp, 0xc
06cc5523: c3 ret
(greater)2
06d4c4f0: 6810000000 push dword 0x10
06d4c4f5: 68f0c4d406 push dword 0x6d4c4f0
06d4c4fa: 83ec04 sub esp, 0x4
06d4c4fd: 83c710 add edi, 0x10
06d4c500: 83ee08 sub esi, 0x8
06d4c503: 8b56fc mov edx, [esi-0x4]
06d4c506: 8b0e mov ecx, [esi]
06d4c508: 8b4604 mov eax, [esi+0x4]
06d4c50b: 8b5e08 mov ebx, [esi+0x8]
06d4c50e: 891f mov [edi], ebx
06d4c510: 8906 mov [esi], eax
06d4c512: 8957f4 mov [edi-0xc], edx
06d4c515: 8947fc mov [edi-0x4], eax
06d4c518: 894ff8 mov [edi-0x8], ecx
06d4c51b: e83050fbff call 0x6d01550
06d4c520: 83ef10 sub edi, 0x10
06d4c523: 83c60c add esi, 0xc
06d4c526: 8b5704 mov edx, [edi+0x4]
06d4c529: 8b4f08 mov ecx, [edi+0x8]
06d4c52c: 8b470c mov eax, [edi+0xc]
06d4c52f: 8b5f10 mov ebx, [edi+0x10]
06d4c532: 8b6ef4 mov ebp, [esi-0xc]
06d4c535: 8946fc mov [esi-0x4], eax
06d4c538: 894ef8 mov [esi-0x8], ecx
06d4c53b: 891e mov [esi], ebx
06d4c53d: 8956f4 mov [esi-0xc], edx
06d4c540: 83fd05 cmp ebp, 0x5
06d4c543: 0f8407000000 jz dword 0x6d4c550
06d4c549: 83ee08 sub esi, 0x8
06d4c54c: 83c40c add esp, 0xc
06d4c54f: c3 ret
06d4c550: 83ee08 sub esi, 0x8
06d4c553: 8b5604 mov edx, [esi+0x4]
06d4c556: 8b4e08 mov ecx, [esi+0x8]
06d4c559: 890e mov [esi], ecx
06d4c55b: 8956fc mov [esi-0x4], edx
06d4c55e: 83c40c add esp, 0xc
06d4c561: c3 ret
New Annotation