M50462遥控器解码.doc

/* 1---00h;2---10h;3---08h;4---18h;5---04h;6---14h;7---0ch;8---1ch; */ /* 9---80h;0---90h;1+---88h;2+---98h;pd+---50h;pd_---48h;ld+---0cch; */ /* ld_---0dch;yl+---44h;yl_---54h;sd+---0c4h;sd_---0d4h;BZ---0D0h; */ /* TV/AV---5CH;PX---D8H;--.-- ---0D0H;CLK---0E8H;*/ /* TIME---0F8H;ON.T---0E4H;SEL---0F4H;INC---0ECH; */ M50462遥控器解码程序 [日期:2008-05-24 ] [来源:东哥单片机学习网() 作者:佚名] [字体：大 中 小] (投递新闻) 来源：网上转载　　　作者：不详 /************** YTREM.PLM ********************/ /* 遥控器按键代码表(熊猫 M50462/CL54L2) */ /* 1---00h;2---10h;3---08h;4---18h;5---04h;6---14h;7---0ch;8---1ch; */ /* 9---80h;0---90h;1+---88h;2+---98h;pd+---50h;pd_---48h;ld+---0cch; */ /* ld_---0dch;yl+---44h;yl_---54h;sd+---0c4h;sd_---0d4h;BZ---0D0h; */ /* TV/AV---5CH;PX---D8H;--.-- ---0D0H;CLK---0E8H;*/ /* TIME---0F8H;ON.T---0E4H;SEL---0F4H;INC---0ECH; */ start:do; $include(reg51.dcl) declare (data1,data2,key,DAT) byte at (30h); declare (ah,al,NUMBER,jihao,bjihao) byte; declare Ale literally p17,da literally p15,clk literally p16; DECLARE ACO(11) BYTE CONSTANT (0EDH,28H,0DCH,7CH,39H,75H,0F5H,2CH, 0FDH,7DH,02H); DISPLAY: PROCEDURE(NUM); DECLARE (K,NUM,N) BYTE; N=NUM; N=N MOD 10; N=ACO(N); DO K=0 TO 7; N=SCR(N,1); DA=CY; CLK=0; call time(1); CLK=1; END; N=NUM; N=N/10; N=ACO(N); DO K=0 TO 7; N=SCR(N,1); DA=CY; CLK=0; call time(1); CLK=1; END; ALE=0; call time(2); ALE=1; END DISPLAY; YTNUMBER: procedure(kk); declare (kk,relay) byte; if kk=02 then DO; NUMBER=NUMBER+1; IF NUMBER4 THEN NUMBER=1; END; if kk=01 then DO; NUMBER=NUMBER-1; IF NUMBER=0 THEN NUMBER=4; END; CALL DISPLAY(NUMBER); KEY=0; data2=0; END YTNUMBER; recieve: procedure interrupt 4 using 1; declare (k,ask) byte; disable; if data2=0e2h and dat0 then do; ri=0; jihao=sbuf; if jihao=bjihao then do; data2=0; p32=1; do k=1 to 2; if k=1 then sbuf=dat; if k=2 then sbuf=number;