⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 1.ls1

📁 本设计采用ATMEL公司的AT89S52单片机和红外遥控技术实现近距离无线通信的软硬件系统。为了使受控设备识别信号
💻 LS1
📖 第 1 页 / 共 5 页
字号:
                     667                             ; SOURCE LINE # 151
003A 300004   F      668             JNB     c?647,?C0052
                     669     ;         sendh(0x9f);
                     670                             ; SOURCE LINE # 152
003D 7F9F            671             MOV     R7,#09FH
003F 8002            672             SJMP    ?C0089
0041                 673     ?C0052:
                     674     ;        else
                     675     ;        sendh(0x4f);
                     676                             ; SOURCE LINE # 154
0041 7F4F            677             MOV     R7,#04FH
0043                 678     ?C0089:
0043 120000   F      679             LCALL   _sendh
0046                 680     ?C0053:
                     681     ;         delay(0x0082);                                         //发送数据位
                     682                             ; SOURCE LINE # 155
0046 120000   F      683             LCALL   L?0092
                     684     ;          datayuan=datayuan<<1;
                     685                             ; SOURCE LINE # 156
0049 E500     F      686             MOV     A,datayuan
004B 25E0            687             ADD     A,ACC
004D F500     F      688             MOV     datayuan,A
                     689     ;       }                 
                     690                             ; SOURCE LINE # 157
004F 0D              691             INC     R5
0050 BD08E3          692             CJNE    R5,#08H,?C0049
0053                 693     ?C0050:
                     694     ; 
                     695     ;        for(i=0;i<8;i++)
                     696                             ; SOURCE LINE # 159
0053 E4              697             CLR     A
0054 FD              698             MOV     R5,A
0055                 699     ?C0054:
                     700     ;       {
                     701                             ; SOURCE LINE # 160
                     702     ;           c=datafan7;
                     703                             ; SOURCE LINE # 161
0055 A200     F      704             MOV     C,datafan7
0057 9200     F      705             MOV     c?647,C
                     706     ;           if(c==1)
                     707                             ; SOURCE LINE # 162
0059 300004   F      708             JNB     c?647,?C0057
                     709     ;           sendh(0x9f);
                     710                             ; SOURCE LINE # 163
005C 7F9F            711             MOV     R7,#09FH
005E 8002            712             SJMP    ?C0090
0060                 713     ?C0057:
                     714     ;                 else
                     715     ;           sendh(0x4f);
                     716                             ; SOURCE LINE # 165
0060 7F4F            717             MOV     R7,#04FH
A51 MACRO ASSEMBLER  1                                                                    06/10/2007 20:32:48 PAGE    12

0062                 718     ?C0090:
0062 120000   F      719             LCALL   _sendh
0065                 720     ?C0058:
                     721     ;           delay(0x0082);
                     722                             ; SOURCE LINE # 166
0065 120000   F      723             LCALL   L?0093
                     724     ;                 datafan=datafan<<1;
                     725                             ; SOURCE LINE # 167
0068 E500     F      726             MOV     A,datafan
006A 25E0            727             ADD     A,ACC
006C F500     F      728             MOV     datafan,A
                     729     ;          }                                      //发送数据反码
                     730                             ; SOURCE LINE # 168
006E 0D              731             INC     R5
006F BD08E3          732             CJNE    R5,#08H,?C0054
0072                 733     ?C0055:
                     734     ;         sendh(0x4f);   
                     735                             ; SOURCE LINE # 169
0072 7F4F            736             MOV     R7,#04FH
0074 120000   F      737             LCALL   _sendh
                     738     ;         sendport=0;                      //发送结束位
                     739                             ; SOURCE LINE # 170
0077 C2B0            740             CLR     sendport
                     741     ;      }
                     742                             ; SOURCE LINE # 171
0079 22              743             RET     
                     744     ; END OF _send
                     745     
                     746     ; 
                     747     ;       /*=========初始化==========*/ 
                     748     ; 
                     749     ;         void  original()
                     750     
----                 751             RSEG  ?PR?original?1
0000                 752     original:
                     753                             ; SOURCE LINE # 175
                     754     ;         {
                     755                             ; SOURCE LINE # 176
                     756     ;               undisplay();    //关显示
                     757                             ; SOURCE LINE # 177
0000 020000   F      758             LJMP    undisplay
                     759     ; END OF original
                     760     
                     761     ;                 }
                     762     ; 
                     763     ;       /*==========键盘扫描函数==========*/
                     764     ; 
                     765     ;          kbscan()
                     766     
----                 767             RSEG  ?PR?kbscan?1
0000                 768     kbscan:
                     769             USING   0
                     770                             ; SOURCE LINE # 182
                     771     ;         {
                     772                             ; SOURCE LINE # 183
                     773     ;            if(m==0)
                     774                             ; SOURCE LINE # 184
0000 20000E   F      775             JB      m,?C0061
                     776     ;           {      
                     777                             ; SOURCE LINE # 185
                     778     ;            key=kbscan1();   //键盘取值函数1
                     779                             ; SOURCE LINE # 186
0003 120000   F      780             LCALL   kbscan1
0006 8F00     F      781             MOV     key,R7
                     782     ;                  if(key==0x01)
                     783                             ; SOURCE LINE # 187
A51 MACRO ASSEMBLER  1                                                                    06/10/2007 20:32:48 PAGE    13

0008 E500     F      784             MOV     A,key
000A B40113          785             CJNE    A,#01H,?C0063
                     786     ;                 {  
                     787                             ; SOURCE LINE # 188
                     788     ;                   m=1;
                     789                             ; SOURCE LINE # 189
000D D200     F      790             SETB    m
                     791     ;                       key=0x00;
                     792                             ; SOURCE LINE # 190
                     793     ;                   }
                     794                             ; SOURCE LINE # 191
                     795     ;                 }
                     796                             ; SOURCE LINE # 192
000F 800C            797             SJMP    ?C0091
0011                 798     ?C0061:
                     799     ;                else
                     800     ;                {
                     801                             ; SOURCE LINE # 194
                     802     ;                   key=kbscan2();   //键盘取值函数2
                     803                             ; SOURCE LINE # 195
0011 120000   F      804             LCALL   kbscan2
0014 8F00     F      805             MOV     key,R7
                     806     ;                   if(key==0x02)
                     807                             ; SOURCE LINE # 196
0016 E500     F      808             MOV     A,key
0018 B40205          809             CJNE    A,#02H,?C0063
                     810     ;              { 
                     811                             ; SOURCE LINE # 197
                     812     ;                    m=0;
                     813                             ; SOURCE LINE # 198
001B C200     F      814             CLR     m
                     815     ;                    key=0x00;
                     816                             ; SOURCE LINE # 199
001D                 817     ?C0091:
001D E4              818             CLR     A
001E F500     F      819             MOV     key,A
                     820     ;                       }
                     821                             ; SOURCE LINE # 200
                     822     ;                 }
                     823                             ; SOURCE LINE # 201
0020                 824     ?C0063:
                     825     ;                       return key;
                     826                             ; SOURCE LINE # 202
0020 AF00     F      827             MOV     R7,key
0022 7E00            828             MOV     R6,#00H
                     829     ;                 }
                     830                             ; SOURCE LINE # 203
0024                 831     ?C0065:
0024 22              832             RET     
                     833     ; END OF kbscan
                     834     
                     835     ; 
                     836     ; 
                     837     ;      /*========取发送数据==========*/
                     838     ;         uchar qudata()
                     839     
----                 840             RSEG  ?PR?qudata?1
0000                 841     qudata:
                     842             USING   0
                     843                             ; SOURCE LINE # 207
                     844     ;         {
                     845                             ; SOURCE LINE # 208
                     846     ;            uchar  y;
                     847     ;                  switch(key)
                     848                             ; SOURCE LINE # 210
0000 E500     F      849             MOV     A,key
A51 MACRO ASSEMBLER  1                                                                    06/10/2007 20:32:48 PAGE    14

0002 120000   F      850             LCALL   ?C?CCASE
0005 0000     F      851             DW      ?C0067
0007 06              852             DB      06H
0008 0000     F      853             DW      ?C0073
000A 07              854             DB      07H
000B 0000     F      855             DW      ?C0078
000D 39              856             DB      039H
000E 0000     F      857             DW      ?C0069
0010 4F              858             DB      04FH
0011 0000     F      859             DW      ?C0068
0013 5B              860             DB      05BH
0014 0000     F      861             DW      ?C0079
0016 5E              862             DB      05EH
0017 0000     F      863             DW      ?C0070
0019 66              864             DB      066H
001A 0000     F      865             DW      ?C0071
001C 6D              866             DB      06DH
001D 0000     F      867             DW      ?C0075
001F 6F              868             DB      06FH
0020 0000     F      869             DW      ?C0076
0022 77              870             DB      077H
0023 0000     F      871             DW      ?C0080
0025 79              872             DB      079H
0026 0000     F      873             DW      ?C0077
0028 7C              874             DB      07CH
0029 0000     F      875             DW      ?C0072
002B 7D              876             DB      07DH
002C 0000     F      877             DW      ?C0074
002E 7F              878             DB      07FH
002F 0000            879             DW      00H
0031 0000     F      880             DW      ?C0066
                     881     ;                     {
                     882                             ; SOURCE LINE # 211
                     883     ;              case 0x06:y=0x01;break;
                     884                             ; SOURCE LINE # 212
0033                 885     ?C0067:
0033 750001   F      886             MOV     y?949,#01H
0036 803F            887             SJMP    ?C0066
                     888     ;                  case 0x5b:y=0x02;break;
                     889                             ; SOURCE LINE # 213
0038                 890     ?C0068:
0038 750002   F      891             MOV     y?949,#02H
003B 803A            892             SJMP    ?C0066

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -