mirror of https://git.ia64.cc/perso/cos2000v1.git
Nicolas Hordé
17 years ago
2 changed files with 39 additions and 1 deletions
@ -0,0 +1,38 @@
|
||||
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 |
Loading…
Reference in new issue