Проверьте прогу пл3... Опции

[11111]

Прога управления !
При 1 на П1.6 -> 1 на П1.0 с 10 сек задержкой
При 1 на П1.7 -> 1 на П1.1 и П1.2 и проверка П1.7 на 1. Если в течении 2 сек 0 то выполнять дальше
При нажатии кнопки на П1.5 -> Изменение от 0 до 8 т.е. П012 от 000 до 111






R7 .EQU 7 ;АДРЕСА РЕГИСТРОВ R0-R7
R6 .EQU 6
R5 .EQU 5
R4 .EQU 4
R3 .EQU 3
R2 .EQU 2
R1 .EQU 1
R0 .EQU 0
ACC .EQU 0E0H ;АДРЕС АККУМУЛЯТОРА
B .EQU 0F0H ;АДРЕС РЕГИСТРА В
PSW .EQU 0D0H ;АДРЕС РЕГИСТРА (СЛОВА) СОСТОЯНИЯ
SP .EQU 81H ;АДРЕС УКАЗАТЕЛЯ СТЕКА
DPL .EQU 82H ;АДРЕС МЛАДШЕЙ ПОЛОВИНЫ DPTR
DPH .EQU 83H ;АДРЕС СТАРШЕЙ ПОЛОВИНЫ DPTR
P0 .EQU 80H ;АДРЕС РЕГИСТРА ПОРТА Р0
P1 .EQU 90H ;АДРЕС РЕГИСТРА ПОРТА Р1
P2 .EQU 0A0H ;АДРЕС РЕГИСТРА ПОРТА Р2
P3 .EQU 0B0H ;АДРЕС РЕГИСТРА ПОРТА Р3
B.0 .EQU 0F0H ;АДРЕСА ОТДЕЛЬНЫХ БИТОВ РЕГИСТРА В
B.1 .EQU 0F1H
B.2 .EQU 0F2H
B.3 .EQU 0F3H
B.4 .EQU 0F4H
B.5 .EQU 0F5H
B.6 .EQU 0F6H
B.7 .EQU 0F7H
ACC.0 .EQU 0E0H ;АДРЕСА ОТДЕЛЬНЫХ БИТОВ АККУМУЛЯТОРА
ACC.1 .EQU 0E1H
ACC.2 .EQU 0E2H
ACC.3 .EQU 0E3H
ACC.4 .EQU 0E4H
ACC.5 .EQU 0E5H
ACC.6 .EQU 0E6H
ACC.7 .EQU 0E7H
PSW.0 .EQU 0D0H ;АДРЕСА ОТДЕЛЬНЫХ БИТОВ РЕГИСТРА PSW
PSW.1 .EQU 0D1H
PSW.2 .EQU 0D2H
PSW.3 .EQU 0D3H
PSW.4 .EQU 0D4H
PSW.5 .EQU 0D5H
PSW.6 .EQU 0D6H
PSW.7 .EQU 0D7H
P0.0 .EQU 080H ;АДРЕСА ОТДЕЛЬНЫХ ЛИНИЙ ПОРТА Р0
P0.1 .EQU 081H
P0.2 .EQU 082H
P0.3 .EQU 083H
P0.4 .EQU 084H
P0.5 .EQU 085H
P0.6 .EQU 086H
P0.7 .EQU 087H
P1.0 .EQU 090H ;АДРЕСА ОТДЕЛЬНЫХ ЛИНИЙ ПОРТА Р1
P1.1 .EQU 091H
P1.2 .EQU 092H
P1.3 .EQU 093H
P1.4 .EQU 094H
P1.5 .EQU 095H
P1.6 .EQU 096H
P1.7 .EQU 097H
P2.0 .EQU 0A0H ;АДРЕСА ОТДЕЛЬНЫХ ЛИНИЙ ПОРТА Р2
P2.1 .EQU 0A1H
P2.2 .EQU 0A2H
P2.3 .EQU 0A3H
P2.4 .EQU 0A4H
P2.5 .EQU 0A5H
P2.6 .EQU 0A6H
P2.7 .EQU 0A7H
P3.0 .EQU 0B0H ;АДРЕСА ОТДЕЛЬНЫХ ЛИНИЙ ПОРТА Р3
P3.1 .EQU 0B1H
P3.2 .EQU 0B2H
P3.3 .EQU 0B3H
P3.4 .EQU 0B4H
P3.5 .EQU 0B5H
P3.6 .EQU 0B6H
P3.7 .EQU 0B7H
;
;
.ORG 0 ;НИЖЕСЛЕДУЮЩАЯ КОМАНДА С АДРЕСА 0
;
MOV P1,#00000000B
MOV R0,#00000000B
L1:
MOV A,P1
ANL A,#01000000B
JZ L2
CLR P1.1
CLR P1.2
SETB P1.0
LCALL DELL2000
LCALL DELL2000
LCALL DELL2000
LCALL DELL2000
LCALL DELL2000
CLR P1.0
L2:
MOV A,P1
ANL A,#10000000B
JZ L3
LCALL BLINKER
LJMP L2
L3:
MOV A,P1
ANL A,#00100000B
JZ L1
MOV A,R0
MOV P1,A
INC R0
ANL R0,#00000111B
LJMP L1
;
;
DELL2000:
MOV R4,#25
DELL2000A:
LCALL DELL100
DJNZ R4,DELL2000A
RET
DELL100:
MOV R7,#200
DLY1:
MOV R6,#250
DJNZ R6,$
DJNZ R7,DLY1
RET
;
;
BLINKER:
MOV R5,#30
BL0:
MOV A,P1
ANL A,#10000000B
JZ BL1
CLR P1.0
SETB P1.1
SETB P1.2
LCALL DELL100
MOV R5,#30
DJNZ R5,BL0
BL1:
CLR P1.0
CLR P1.1
CLR P1.2
LCALL DELL100
DJNZ R5,BL0
RET
.END

[11111]

algoritm!!!

Сообщение отредактировал 11111 - Nov 28 2006, 20:29

Прикрепленные файлы

 te.rar ( 16.62 килобайт ) Кол-во скачиваний: 28