11111 0 28 ноября, 2006 Опубликовано 28 ноября, 2006 · Жалоба Прога управления ! :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 28 ноября, 2006 Опубликовано 28 ноября, 2006 (изменено) · Жалоба algoritm!!! te.rar Изменено 28 ноября, 2006 пользователем 11111 Цитата Поделиться сообщением Ссылка на сообщение Поделиться на другие сайты Поделиться