View difference between Paste ID: HvwABs9g and wqeqZuCS

-'//asm
+
 
   const iLen = TestLen
 
-  const iAT = asc("A") xor asc("T")
+
-  const iCG = asc("C") xor asc("G")
+
     mov esi, [dna]    'input
     lea edi, [pOut]   'output
     mov ecx, iLen     'length
     sub edi, 4
-    mov ecx, iLen     'length
+
       mov edx, [esi]      'read 4 chars
-      mov al, [esi]   'read char
+      add esi, 4          'point to next char
-      add esi, 1      'point to next char
+      mov eax, edx        'make a copy of those 4 chars
-      test al, 2      'char & 2?
+      and edx, 0x02020202 'isolate bit 1... (2)
-      mov dl, iAT     'dl = iAT (if true)
+      xor edx, 0x02020202 'invert so... 2 = CG , 0 = AT
-      je 1f           'skip if true
+      lea ebx, [edx*8]    'ebx = N*8
-      mov dl, iCG     'dl = iCG (if false)
+      shr edx, 1          'edx = N\2
-      1:
+      add edx, ebx        'edx = N*8+N\2
-      xor al, dl      'char ^ dl
+      or edx, &h04040404  'edx ^ 4 (21 or 4)
-      mov [edi], al   'store char
+      add edi, 4          'point to next out char
-      add edi, 1      'point to next out char
+      xor eax, edx        'chars ^ edx
-      sub ecx, 1      'decrement counter
+      sub ecx, 4          'decrement counter
-    jnz 0b
+      mov [edi], eax      'store char
     jnz 0b
   end asm
-end function
+
 end function