[11111 0]

Прога управления ! :a14:

При 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

:w00t:

[11111 0]

algoritm!!!

te.rar

Изменено 28 ноября, 2006 пользователем 11111