=>
;RETURN AN UNSIGNED PSEUDO-RANDOM 32-BIT INTEGER ;IN DX:AX, IN THE RANGE 0 - FFFFFFFFH DX AND AX ARE REGESTERS .CODE ;BEGIN CODE SECTION _LongRandom PROC FAR, C
MOV EAX,3434DH ;MOVE 3434D HEX INTO EAX 32-BIT REGESTER
MUL SEED ;MULTIPLY SEED
XOR EDX,EDX
ADD EAX, 269EC3H
MOV SEED, EAX ;SAVE THE SEED FOR THE NEXT CALL
SHLD EDX,EAX,16 ;COPY HIGH 16 BITS OF EAX TO DX
RET
_LongRandom ENDP
END
