xt kb

Ответ от Undifined divicis[гуру]
приатач
Саня Семенов
Просветленный
(40414)
TITLE PROG_9
;Программ вычисления полинома
;и вывода результата
.MODEL tiny
.STACK 256
.Data
Y_ASCII DB 7 DUP(?) ;переменная для хранения
;символов ASCII
SIGN DB (?) ;переменная для хранения
;знака числа
rand_a db 255
rand_m db 255
seed db -1
.CODE
START: MOV AX, @DATA ;Иницинировать сегментные
MOV DS, AX ;сегментный регистр
;*********************************************************************************************************
; Процедура rand
; возвращает в ЕАХ случайное положительное 32-битное число
; (от 0 до 231-2)
;
; /|
; || X(j)=(ax(i) + c)mod M ||
; |/////////////////////////
push dx
mov al,seed ; считать последнее
; случайное число
test AL,AL ; проверить его, если это -1,
js fetch_seed ; функция еще ни разу не