UPPER_MASK = 80000000h ;MININT
LOWER_MASK = 7FFFFFFFh ;MAXINT

; RAND.N=624,RAND.M=397

macro randinit i
{
  MT0= i and 0FFFFFFFFh
  TMP=(MT0 xor (MT0 shr 30))*1812433253+1
  rept 624 K \{
    MT\#K = TMP and 0FFFFFFFFh
    TMP = (MT\#K xor (MT\#K shr 30))*1812433253+K+1
  \}
  MTi=0
}

macro rand
{  local mag0,mag1

   mag0=0
   mag1=9908B0dfh
   if MTi >=624
     if MTi = 625
       randinit 5489
     end if
     rept 228 KK:0 \{ ;rept N-M+1
       rept 1 KKP1:KK+1 \\{ Y = MT\#KK and UPPER_MASK or MT\\#KKP1 and LOWER_MASK \\}
       rept 1 KKPM:KK+397 \\{ MT\#KK=MT\\#KKPM xor (Y shr 1) or (mag0*((Y+1) and 1)+mag1*(Y and 1)) \\}
     \}
     rept 396 KK:228 \{ ;rept M-1
       rept 1 KKP1:KK+1 \\{ Y = MT\#KK and UPPER_MASK or MT\\#KKP1 and LOWER_MASK \\}
       rept 1 KKPMMN:KK-227 \\{ MT\#KK=MT\\#KKPMMN or (Y shr 1) xor (mag0*((Y+1) and 1)+mag1*(Y and 1)) \\}
     \}
     Y = MT623 and UPPER_MASK or MT0 and LOWER_MASK
     rept 1 MM1:396 \{ MT623 = MT\#MM1 xor (Y shr 1) xor (mag0*((Y+1) and 1)+mag1*(Y and 1)) \}
     MTi=0
   end if
   rept 625 K:0 \{
     if K=MTi
       Y = MT\#K
     end if
   \}
   MTi=MTi+1
   Y = Y xor (Y shr 11)
   Y = Y xor ((Y shl 7) and 9D2C5680h)
   Y = Y xor ((Y shl 15) and 0efc60000h)
   Y = Y xor (Y shr 18)
}
    

dd 'd',rand,7,rand ;launch rand macro and dd Y value, if launched first time do macro randinit with parameter %t too
somelabel dd rand ;launch rand macro and dd Y value
    

macro dd [stuff] {
  local found_rand
  forward
  found_rand equ
  match =rand,stuff \{
    rand
    dd Y
    found_rand equ 1
  \}
  match ,found_rand \{
    dd stuff
  \}
}
struc dd [stuff] {
  common
  label . dword at $
  dd stuff
}