.CHARSET 1251 .OPT 0 ; Шум-0. Программа генератора акустических помех ; Белый шум ; Версия 1.0 ; R20 - флаг готовности случайных данных и окончания генерации ; RD - максимальная длительность CX 50 MA 10 MB MD ; Установка прерывания 1 PP M 9148 ; Сброс прерываний .NUML ZVUK ENT 1 PP M 9131 PP M 9152 ; Окончание звукового сигнала PP M 9130 ; Разрешение прерываний A1: RMA RMB PP M 9052 1 P M 20 K RAN 3200 * 300 + K INT MA K RAN RMD * 1 + K INT MB A2: P RM 20 F X=0 A2 GOTO A1 ZVUK: CX P M 20 PP RTN .END