(..............................)
mov ex, 20
xor di,di
mov ax, INIT
Next_Numb: call Random
сmp ax,16383
mov dl,0
jbe Store
cmp ax,32767
mov dl,1
jbe Store
cmp ax,49151
mov dl,2
Jbe Store
Inc dl
Store: mov BUF[di],dl
inc di
loop Next_Numb
int 20h
;
;
Random proc
push cx
mov cx,261
mol cx
pop cx
ret
Random endp