longrand.asm

此为本书配套光盘.本书主要内容包括：微型计算机基础知识、IBM-PC微型计算机系统概述、汇编语言程序设计基本方法、三大结构程序设计、子程序设计、汇编语言程序设计等内容。

; LongRandom procedure module      (longrand.asm)

.model large
.386
Public _LongRandom
.data
seed  dd 12345678h

; Return an unsigned pseudo-random 32-bit integer
; in DX:AX,in the range 0 - FFFFFFFFh.

.code
_LongRandom  proc far, C 
      mov   eax, 214013
      mul  seed
      xor   edx,edx
      add   eax, 2531011
      mov   seed, eax    ; save the seed for the next call
      shld  edx,eax,16   ; copy upper 16 bits of EAX to DX
      ret
_LongRandom  endp
end