39 lines
565 B
NASM
39 lines
565 B
NASM
model tiny,stdcall
|
|
p586
|
|
locals
|
|
jumps
|
|
codeseg
|
|
option procalign:byte
|
|
|
|
include "..\include\mem.h"
|
|
|
|
org 0h
|
|
|
|
header exe <"CE",1,0,0,offset exports,,,>
|
|
|
|
exporting
|
|
declare random
|
|
declare randomize
|
|
ende
|
|
|
|
randseed dw 1234h
|
|
|
|
PROC random FAR
|
|
USES dx
|
|
mov ax,[cs:randseed]
|
|
mov dx,8405h
|
|
mul dx
|
|
inc ax
|
|
mov [cs:randseed],ax
|
|
mov ax,dx
|
|
ret
|
|
endp random
|
|
|
|
PROC randomize FAR
|
|
USES ax,cx,dx
|
|
mov ah,0
|
|
int 1ah
|
|
mov [cs:randseed],dx
|
|
ret
|
|
endp randomize
|