Установка генератора СЧ

Главная / ЭКВМ / Программы для ЭКВМ / Служебные программы и утилиты

Программа предназначена для инициализации встроенного в ЭКВМ генератора случайных чисел (ГСЧ) неопределённым значением, которое зависит от реакции пользователя.

После запуска программа выводит в строку комментариев сообщение "Ждите...", затем три сообщения с просьбой нажать определённую цифровую клавишу. После этого выводится сообщение "Нажмите С/П для выхода" - программа требует принудительного останова. После выхода из программы ГСЧ устанавливается в некоторое достаточно случайное состояние.

Программа "Установка генератора СЧ"

	0	1	2	3	4	5	6	7	8	9
000	Cx	3	П 0	0	0	7	8	PP П	90	26
010	K ЭКР	4	0	0	K СЧ	×	1	0	0	+
020	PP П	90	50	K СЧ	PP ИП	90	50	F x=0	23	0
030	0	8	8	PP П	90	26	K СЧ	1	0	×
040	K [x]	4	8	+	PP П	90	25	K ЭКР	K СЧ	PP ИП
050	90	29	K NOT	F x≠0	48	K СЧ	6	5	5	3
060	6	×	PP П	90	46	F L0	03	0	1	0
070	6	PP П	90	26	K ЭКР	K СЧ	БП	75	0Ah	86h
080	A4h	A8h	E2h	A5h	2Eh	2Eh	2Eh	00h	0Ah	8Dh
090	A0h	A6h	ACh	A8h	E2h	A5h	20h	AAh	ABh	A0h
100	A2h	A8h	E8h	E3h	20h	00h	0Ah	8Dh	A0h	A6h
110	ACh	A8h	E2h	A5h	20h	91h	2Fh	8Fh	20h	A4h
120	ABh	EFh	20h	A2h	EBh	E5h	AEh	A4h	A0h	00h

Контрольная сумма ADD 29832, контрольная сумма XOR 206, при условии, что остальные байты содержат 0FFh.

Текст программы для кросс-компилятора

.CHARSET 1251
; Файл ustgsch - инициализация генератора СЧ случайным начальным значением
.ORG 0
	CX 3 M0

A0:	.NUM T0
	PP M 9026	; вывести строку	
	K SCR

	400 K RAN * 100 +
	PP M 9050	; Ждать около 3 сек (от 1 до 5)

A1:	K RAN
	PP RM 9050
	F X=0 A1
	
	.NUM T1
	PP M 9026
	K RAN 10 * K INT 48 +
	PP M 9025	; вывести символ 0-9
	K SCR

A2:	K RAN
	PP RM 9029
	K NOT
	F X!=0 A2
	K RAN
	65536 *
	PP M 9046	; инициализация ГСЧ

	FL0 A0

	.NUM T2
	PP M 9026	; вывести строку	
	K SCR

A3:	K RAN
	GOTO A3		; бесконечный цикл

T0:	.TEXT "\nЖдите...\0"
T1:	.TEXT "\nНажмите клавишу \0"
T2:	.TEXT "\nНажмите С/П для выхода\0"

.END

НПП "СЕМИКО" (383) 271-01-25 (многоканальный)