30路遙控開關(guān),按0-30個鍵分別點亮p0.0-p3.5的燈,32鍵全滅

org00h
ORG30H
MOVP1,#0FFH
MOVP2,#0FFH

MOVP3,#0FFH
START:


JBP3.7,$;等待遙控信號出現(xiàn)
SB:
MOVR4,#8;8毫秒為高電平錯誤
SBA:
MOVR5,#250
SBB:
JBP3.7,SXB1
DJNZR5,SBB
DJNZR4,SBA
MOVR4,#2
JMPSBC
SXB1:
MOVR5,#5
SXB2:;去掉20US的尖峰干擾信號
JNBP3.7,SBB
DJNZR5,SXB2
JMPSTART
SBC:
MOVR5,#250
SB1:
JBP3.7,SB2;2MS內(nèi)不為高電平錯誤（監(jiān)測9MS的低電平引導碼）
DJNZR5,SB1
DJNZR4,SBC
JMPSTART
SB2:;去掉20US的尖峰干擾信號
MOVR5,#5
SB2_A:
JNBP3.7,SB1
DJNZR5,SB2_A
MOVR4,#3
SB2_1:
MOVR5,#250
SB3:;監(jiān)測4.5MS高電平，如3MS內(nèi)出現(xiàn)低電平錯誤
JNBP3.7,SXC
DJNZR5,SB3
DJNZR4,SB2_1
MOVR4,#2
JMPSB3_1
SXC:;去掉20US的尖峰干擾信號
MOVR5,#5
SXC1:
JBP3.7,SB3
DJNZR5,SXC1
JMPSTART
SB3_1:;監(jiān)測4.5MS高電平，如5MS內(nèi)不為低電平錯誤
MOVR5,#250
SB3_2:
JNBP3.7,SB4
DJNZR5,SB3_2
DJNZR4,SB3_1
JMPSTART
SB4:;去掉20US的尖峰干擾信號
MOVR5,#5
SB4_1:
JBP3.7,SB3_2
DJNZR5,SB4_1
MOVR1,#1AH;設(shè)定1AH為起始RAM區(qū)
MOVR2,#4
PP:MOVR3,#8
JJJJ:
MOVR5,#250
JJJJ2:;1MS內(nèi)不為低電平錯誤
JBP3.7,JJJJ3
DJNZR5,JJJJ2
JMPSTART
JJJJ3:
LCALLYS1;高電平開始后用882微秒的時間尺去判斷信號此時的高低電平狀態(tài)
MOVC,P3.7;將P3.7引腳此時的電平狀態(tài)0或1存入C中
JNCUUU;如果為0就跳轉(zhuǎn)到UUU
MOVR5,#250
JJJJ4:
JNBP3.7,UUU
NOP
DJNZR5,JJJJ4
JMPSTART
UUU:MOVA,@R1;將R1中地址的給A
RRCA;將C中的值0或1移入A中的最低位
MOV@R1,A;將A中的數(shù)暫時存放在R1中
DJNZR3,JJJJ;接收地址碼的高8位
INCR1;對R1中的值加1，換成下一個RAM
DJNZR2,PP;接收完16位地址碼和8位數(shù)據(jù)碼和8位數(shù)據(jù)反碼，存放在1AH/1BH/1CH/1DH的RAM中
;以下對代碼是否正確和定義進行識別
MOVA,1AH;比較高8位地址碼
XRLA,#00000000B;判斷1AH的值是否等于00000000，相等的話A為0
JNZEXIT;如果不相等說明解碼失敗退出解碼程序
MOVA,1BH;比較低8位地址
XRLA,#11111111B;再判斷高8位地址是否正確
JNZEXIT;如果不相等說明解碼失敗退出解碼程序
LCALLYS3
MOVA,1CH;比較數(shù)據(jù)碼和數(shù)據(jù)反碼是否正確?
CPLA
XRLA,1DH;將1CH的值取反后和1DH比較不同則無效丟棄，核對數(shù)據(jù)是否準確
JNZEXIT;如果不相等說明解碼失敗退出解碼程序
LCALLYS3
AJMPBIJIAO
;判斷在118毫秒內(nèi)是否有連發(fā)碼
AA:MOVR1,#25
XX:ACALLYS2
JNBP3.7,HH;跳轉(zhuǎn)到判斷連發(fā)代碼是否正確的程序段
DJNZR1,XX
EXIT:;對所有端口清零

AJMPSTART
;連發(fā)碼判斷程序段-----------
HH:MOVR6,#4
S:ACALLYS1;調(diào)用882微秒延時子程序
JBP3.7,EXIT;延時882微秒后判斷P3.7腳是否出現(xiàn)高電平如果有就退出解碼程序
DJNZR6,S;重復4次，目的是確認連發(fā)碼的低電平信號波形
JNBP3.7,$;等待高電?
LCALLYS3
AJMPAA

BIJIAO:MOVA,1CH;按鍵數(shù)值判斷執(zhí)
CJNEA,#10h,TT1
clrp0.0
TT1:CJNEA,#03h,T2
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.1
T2:CJNEA,#01h,T3
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.2
T3:CJNEA,#06h,T4
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.3
T4:CJNEA,#09h,T5
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.4
T5:CJNEA,#1dh,T6
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.5
T6:CJNEA,#1fh,T7
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.6
T7:CJNEA,#0dh,T8
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp0.7
T8:CJNEA,#19h,t9
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.0
T9:CJNEA,#1bh,t10
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.1
T10:CJNEA,#11h,t11
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.2
T11:CJNEA,#15h,t12
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.3
T12:CJNEA,#17h,t13
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.4
T13:CJNEA,#12h,t14
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.5
T14:CJNEA,#16h,t15
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.6
T15:CJNEA,#4ch,t16
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp1.7
T16:CJNEA,#40h,t17
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.0
T17:CJNEA,#48h,t18
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.1
T18:CJNEA,#04h,t19
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.2
T19:CJNEA,#00h,t20
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.3
T20:CJNEA,#02h,t21
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.4
T21:CJNEA,#05h,t22
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.5
T22:CJNEA,#54h,t23
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.6
T23:CJNEA,#4dh,t24
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp2.7
T24:CJNEA,#0ah,t25
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.0
T25:CJNEA,#1eh,t26
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.1
T26:CJNEA,#0eh,t27
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.2
T27:CJNEA,#1ah,t28
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.3
T28:CJNEA,#1ch,t29
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.4
T29:CJNEA,#14h,t31
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

clrp3.5
T31:CJNEA,#0ch,t32
MOVp0,#0ffh
MOVp1,#0ffh
MOVp2,#0ffh
MOVp3,#0ffh

t32:AJMPAA
YS1:MOVR4,#20;延時子程序1，精確延時882微秒
D1:MOVR5,#20
DJNZR5,$
DJNZR4,D1
RET
YS2:MOVR4,#10;延時子程序2，精確延時4740微秒
D2:MOVR5,#235
DJNZR5,$
DJNZR4,D2
RET
YS3:MOVR4,#2;延時程序3，精確延時1000微秒
D3:MOVR5,#248
DJNZR5,$
DJNZR4,D3
RET
END