mirror of https://git.ia64.cc/perso/cos2000v1.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
565 B
38 lines
565 B
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
|
|
|