random   db 0

        rdtsc
        mov bx, 6
        div   bx
        inc   dx
        mov [random],dl

    mov ah, 2ch
        int 21h

        xor ax, ax ; чистим ah, точнее весь ax - но надо очистить ah
        mov al,dl

    mov ah, 2ch
       int 21h
       mov ax, dx
       and ax, 0fh

;-----------------------------------------------------------------------------+
; Функция генерации случайного числа в диапозоне [min...max]                  |
;-----------------------------------------------------------------------------+
; На входе   : edi - указатель на [max] значение                    |
; На входе   : edi - указатель на [min] значение                    |
; На выходе  : eax - случайное число                    |
;-----------------------------------------------------------------------------+
_randomrange:
        push    esi edi edx ecx
        mov     ecx,edi
        sub     ecx,esi
        inc     ecx
        call    _random
        xor     edx,edx
        div     ecx
        mov     eax,edx
        add     eax,esi
        pop     ecx edx edi esi
        ret
;->

__RLRandom:
      rdtsc
      mov     cx,ax
      mov     bx,dx
      mul     CS:0x8405
      shl     cx,3
      add     ch,cl
      add     dx,cx
      add     dx,bx
      shl     bx,2
      add     dx,bx
      add     dh,bl
      shl     bx,5
      add     dh,bl
      inc     ax
      adc     dx,0
      xchg    ax,bx
      mov     ax,0x80
      mov     cx,32
   _loop:
      test    dh,0x80
      jne     @f
      shl     bx,1
      rcl     dx,1
      dec     al
      loop   _loop
      xor     al,al
   @@:
      and     dh,0x7F
      retf

для обратного цикла нужно указать шаг -1

code(0x66,0xC1,0xE0,0x10);

if (val == 0) then return "0"; end;

if (val == 0) then return "0";

for j : int = 0, 3 do

for j : int = 0, pos(str1, 0, 17, str2) do

for (j=0; 3; ++) do
for (j=7; 1; --) do

using System;
using System.Collections.Generic;
using System.Windows.Forms;

namespace Tutorial
{
      class Program
      {
          [STAThread]
          static void Main()
          {

          }
      }
}

using DGLE2, DGLE2_types;

        static IEngineCore pEngineCore = null;

          [STAThread]
          static void Main()
          {
              if (Engine.GetEngine("DGLE2.dll", out pEngineCore))
              {
                  Engine.FreeEngine();
              }
              else
                  MessageBox.Show("Couldn't load \"DGLE2.dll\"!", "Tutorial", MessageBoxButtons.OK, MessageBoxIcon.Error);                  
          }