M50462 红外遥控芯片汇编程序 M50462遥控

sydz

各种用M50462芯片遥控


芯片

1. /************** YTREM.PLM  ********************/
   
2. /* 遥控器按键代码表(熊猫 M50462/CL54L2) */
   
3. /* 1---00h;2---10h;3---08h;4---18h;5---04h;6---14h;7---0ch;8---1ch; */
   
4. /* 9---80h;0---90h;1+---88h;2+---98h;pd+---50h;pd_---48h;ld+---0cch; */
   
5. /* ld_---0dch;yl+---44h;yl_---54h;sd+---0c4h;sd_---0d4h;BZ---0D0h; */
   
6. /* TV/AV---5CH;PX---D8H;-->.<-- ---0D0H;CLK---0E8H;*/
   
7. /* TIME---0F8H;ON.T---0E4H;SEL---0F4H;INC---0ECH;  */
   
8. start:do;
   
9. $include(reg51.dcl)
   
10.   declare (data1,data2,key,DAT) byte at (30h);
    
11.   declare (ah,al,NUMBER,jihao,bjihao) byte;
    
12.   declare Ale literally 'p17',da literally 'p15',clk literally 'p16';
    
13.   DECLARE ACO(11) BYTE CONSTANT (0EDH,28H,0DCH,7CH,39H,75H,0F5H,2CH,
    
14.      0FDH,7DH,02H);
    
15.    
    
16. DISPLAY: PROCEDURE(NUM);
    
17.   DECLARE (K,NUM,N) BYTE;
    
18.   N=NUM;
    
19.   N=N MOD 10;
    
20.   N=ACO(N);
    
21.       DO K=0 TO 7;
    
22.   N=SCR(N,1);
    
23.   DA=CY;
    
24.   CLK=0;
    
25.    call time(1);
    
26.   CLK=1;
    
27.       END;
    
28.   N=NUM;
    
29.   N=N/10;
    
30.   N=ACO(N);
    
31.       DO K=0 TO 7;
    
32.   N=SCR(N,1);
    
33.   DA=CY;
    
34.   CLK=0;
    
35.    call time(1);
    
36.   CLK=1;
    
37.       END;
    
38.       ALE=0;
    
39.        call time(2);
    
40.       ALE=1;  
    
41. 
    
42. END DISPLAY;
    
43. 
    
44. YTNUMBER: procedure(kk);
    
45.   declare (kk,relay) byte;
    
46.   if kk=02 then
    
47.      DO;
    
48. NUMBER=NUMBER+1;
    
49. IF NUMBER>4 THEN NUMBER=1;
    
50.      END;
    
51. 
    
52.   if kk=01 then
    
53.      DO;
    
54. NUMBER=NUMBER-1;
    
55. IF NUMBER=0 THEN NUMBER=4;
    
56.      END;
    
57.    CALL DISPLAY(NUMBER);
    
58.    KEY=0; data2=0;
    
59. END YTNUMBER;
    
60. 
    
61. recieve: procedure interrupt 4 using 1;
    
62.   declare (k,ask) byte;
    
63.   disable;
    
64.   if data2=0e2h and dat<>0 then
    
65.   do;
    
66.     ri=0;
    
67.     jihao=sbuf;
    
68.     if jihao=bjihao then
    
69.     do;  
    
70.       data2=0;
    
71.       p32=1;
    
72.       do k=1 to 2;
    
73.   if k=1 then sbuf=dat;
    
74.   if k=2 then sbuf=number;
    
75.   do while ti=0;
    
76.   end;
    
77.   ti=0;
    
78.   call time(1);
    
79.       end;
    
80.      
    
81.     p32=0;
    
82.       do while ri=0;
    
83.       end;
    
84.       ri=0;
    
85.       ask=sbuf;
    
86.       if ask=0ffh then
    
87.       do;
    
88.       ;
    
89.       end;      
    
90. 
    
91.   /*    data1=0ffh;dat=0;  */
    
92.     end;
    
93.   end;
    
94.   enable;
    
95. end recieve;
    
96. 
    
97. rem:procedure interrupt 2;
    
98.     declare k byte;
    
99.     disable;
    
100. /*  if data2=0e2h then goto int0end; */
     
101.     k=16;
     
102. loop1:
     
103.     call time(2);
     
104.     do while p33=0;
     
105.     end;
     
106.     th0=0;
     
107.     tl0=0;
     
108.     tr0=1;
     
109.     call time(2);
     
110.     do while p33=1;
     
111.     end;
     
112.     tr0=0;
     
113.     ah=th0;
     
114.     al=tl0;
     
115.     if ah>=4 then cy=1;  /* 11.0592Mhz */
     
116.     else cy=0;
     
117.     data1=scl(data1,1);
     
118.     k=k-1;
     
119.     if k=8 then data2=data1;
     
120.     if k<>0 then goto loop1;
     
121. if data2=0e2h then
     
122.     do;
     
123.    IF DATA1=54H THEN do;KEY=01;dat=0;end; /* YTNUMBER DEC KEY */
     
124.    IF DATA1=44H THEN do;KEY=02;dat=0;end; /* YTNUMBER ADD KEY */
     
125.      
     
126.       IF DATA1=00H THEN DAT=1;
     
127.       IF DATA1=10H THEN DAT=2;
     
128.       IF DATA1=08H THEN DAT=3;
     
129.       IF DATA1=18H THEN DAT=4;
     
130.       IF DATA1=04H THEN DAT=5;
     
131.       IF DATA1=14H THEN DAT=6;
     
132.       IF DATA1=0CH THEN DAT=7;
     
133.       IF DATA1=1CH THEN DAT=8;
     
134.       IF DATA1=80H THEN DAT=9;
     
135.       IF DATA1=90H THEN DAT=10;
     
136.       IF DATA1=88H THEN DAT=11;
     
137.       IF DATA1=98H THEN DAT=12;
     
138.       IF DATA1=50H THEN DAT=13;
     
139.       IF DATA1=48H THEN DAT=14;
     
140.       IF DATA1=40H THEN DAT=15;
     
141.       IF DATA1=4CH THEN DAT=16;
     
142.       IF DATA1=5CH THEN DAT=17;
     
143.       IF DATA1=0D8H THEN DAT=18;
     
144.       IF DATA1=0D0H THEN DAT=19;
     
145.       IF DATA1=0E8H THEN DAT=20;
     
146.       IF DATA1=0F8H THEN DAT=21;
     
147.       IF DATA1=0E4H THEN DAT=22;
     
148.       IF DATA1=0F4H THEN DAT=23;
     
149.       IF DATA1=0ECH THEN DAT=24;
     
150. /*            P34=0;CALL TIME(250);P34=1;  */
     
151.     end;
     
152. int0end:   
     
153.   ip=0;
     
154.   DO K=0 TO 3;  /* important value  */
     
155.      CALL TIME(250);
     
156.   END;
     
157.   enable;                                
     
158. end rem;
     
159. 
     
160. main$program:
     
161. data1=0;data2=0;dat=0;
     
162. p32=0;   /*  set recieve mode  */
     
163. clk=1;Ale=1;
     
164. p33=1;NUMBER=1;KEY=0;
     
165. scon=50h;
     
166. pcon=00h;
     
167. tmod=21h;
     
168. tl1=0fdh;       /* 9600 baud rate for 11.0592Mhz */
     
169. th1=0fdh;
     
170. th0=0;
     
171. tl0=0;
     
172. tr1=1;
     
173. es=1;
     
174. ex1=1;
     
175. bjihao=1;
     
176. enable;
     
177. call DISPLAY(NUMBER);
     
178. 
     
179. DO WHILE 1=1;
     
180. IF KEY=01 OR KEY=02 THEN
     
181. DO;
     
182.    CALL YTNUMBER(KEY);            
     
183. END;
     
184. 
     
185. end start;

复制代码