MOV A,P1 ; Ввод данных с линий порта 1
ANL A,#00011000B ; Маскирование для выделения бит 3 и 4
RL A ; Сдвиг аккумулятора влево
ANL P3,#11001111B ; Сброс линий 4 и 5 порта 3
ORL Р3,А ; Вывод данных в порт. При этом все линии, кроме 4 и 5 не
; меняют своего состояния
Воспроизведение звука через динамик, подключенный к P3.5.
SOUND EQU P3.5 ; Описание контакта Р3.5:
LOOP: SETB SOUND ; Установка бита порта
MOV R0,#80H ; Задержка
DJNZ R0,$
CLR SOUND ; Сброс бита порта
MOV R0,#80H
DJNZ R0,$ ; Задержка
JMP LOOP
|