Jump to content

    
Sign in to follow this  
11111

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

Recommended Posts

Прога управления ! :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:

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this