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

📄 hong.lst

📁 红外线发射程序 可以利用c51单片机 和红外线发射管简单元件就可以无线传播了
💻 LST
📖 第 1 页 / 共 2 页
字号:
A51 MACRO ASSEMBLER  HONG                                                                 10/09/2007 19:26:15 PAGE     1


MACRO ASSEMBLER A51 V7.10
OBJECT MODULE PLACED IN hong.OBJ
ASSEMBLER INVOKED BY: C:\Keil\C51\BIN\A51.EXE hong.asm SET(SMALL) DEBUG EP

LOC  OBJ            LINE     SOURCE

  0054                 1     count1  data     054H
  0053                 2     count2  data     053H
  0033                 3     flag    data     033H
  0032                 4     iraddr1   data    032H
  0030                 5     iraddr2   data    030H
  0031                 6     endcount1 data   031h
  00E1                 7     endcount2 data  0e1h
  0000                 8     op        equ     20H.0
0000 020234            9       LJMP    begai
0003 00               10           NOP      
0004 00               11         NOP      
0005 00               12           NOP      
0006 00               13           NOP      
0007 00               14           NOP      
0008 00               15           NOP      
0009 00               16            NOP      
000A 00               17          NOP      
000B 020038           18         LJMP     timeint
000E E4               19     main:           CLR      A
000F F554             20                MOV      count1,A
0011 F553             21                MOV      count2,A
0013 F533             22                MOV      flag,A
0015 C200             23                CLR      op
0017 C2B4             24                CLR      P3.4
0019 D2AF             25                SETB     EA
001B 758911           26                MOV      TMOD,#0x11
001E D2A9             27                SETB     ET0
0020 758CFF           28                MOV      TH0,#0xFF
0023 758AE8           29                MOV      TL0,#0xE8
0026 753203           30                MOV      iraddr1,#0x03
0029 7530FC           31                MOV      iraddr2,#0xFC
002C D28C             32                SETB     TR0
002E 120217           33     main1:     LCALL    delay
0031 7F53             34                MOV      R7,#count2
0033 12005E           35                LCALL    sendirdata
0036 80F6             36                SJMP    main1
                      37                using  0 
0038                  38     timeint:    
                      39                
0038 C0E0             40               PUSH     ACC
003A C0D0             41               PUSH     PSW
003C 758CFF           42               MOV      TH0,#0xFF
003F 758AE6           43               MOV      TL0,#0xE6
0042 0553             44               INC       count2
                      45     
0044 E553             46               MOV      A,count2
0046 7002             47               JNZ      INTER11
0048 0554             48               INC      count1
004A E533             49     INTER11:  MOV      A,flag
004C B40104           50               CJNE     A,#0x01,INTER22
004F B200             51               CPL      op
0051 8002             52               SJMP     INTER33
0053 C200             53     INTER22:CLR        op
0055 A200             54     INTER33:MOV        C,op
0057 92B4             55               MOV      P3.4,C
0059 D0D0             56               POP      PSW
005B D0E0             57               POP      ACC
005D 32               58     RETI
A51 MACRO ASSEMBLER  HONG                                                                 10/09/2007 19:26:15 PAGE     2

                      59     
                      60     
005E                  61     sendirdata:
005E AE07             62              MOV      R6,0x07
0060 753100           63              MOV      endcount1,#0x00
0063 75E1E1           64              MOV      endcount2,#0xE1
0066 753301           65              MOV      flag,#0x01
0069 E4               66              CLR      A
006A F554             67              MOV      count1,A
006C F553             68              MOV      count2,A
006E C3               69     ir2:     CLR      C
006F E553             70              MOV      A,count2
0071 95E1             71              SUBB     A,endcount2
0073 E554             72              MOV      A,count1
0075 9531             73              SUBB      A,endcount1
0077 40F5             74              JC       ir2
0079 753100           75              MOV      endcount1,#0x00
007C 75E175           76              MOV      endcount2,#0x75
007F E4               77               CLR      A
0080 F533             78               MOV      flag,A
0082 F554             79              MOV      count1,A
0084 F553             80              MOV      count2,A
0086 C3               81     ir1:     CLR      C
0087 E553             82              MOV      A,count2
0089 95E1             83              SUBB     A,endcount2
008B E554             84              MOV      A,count1
008D 9531             85              SUBB     A,endcount1
008F 40F5             86              JC       ir1
0091 AE32             87              MOV      R6,iraddr1
0093 E4               88              CLR      A
0094 FD               89              MOV      R5,A
0095 FC               90              MOV      R4,A
0096 753100           91     ir8:     MOV      endcount1,#0x00
0099 75E130           92              MOV      endcount2,#iraddr2
009C 753301           93              MOV      flag,#0x01
009F E4               94              CLR      A
00A0 F554             95              MOV      count1,A
00A2 F553             96              MOV      count2,A
00A4 C3               97     ir3:     CLR      C
00A5 E553             98              MOV      A,count2
00A7 95E1             99              SUBB     A,endcount2
00A9 E554            100              MOV      A,count1
00AB 9531            101             SUBB     A,endcount1
00AD 40F5            102              JC       ir3
00AF EE              103              MOV      A,R6
00B0 A2E7            104              MOV      C,0xE0.7
00B2 13              105              RRC      A
00B3 25E0            106              ADD      A,ACC
00B5 FB              107              MOV      R3,A
00B6 C3              108              CLR      C
00B7 EE              109              MOV      A,R6
00B8 9B              110              SUBB     A,R3
00B9 6008            111              JZ       ir4
00BB 753100          112              MOV      endcount1,#0x00
00BE 75E129          113              MOV      endcount2,#0x29
00C1 8006            114              SJMP     ir5
00C3 753100          115     ir4:     MOV      endcount1,#0x00
00C6 75E10F          116              MOV      endcount2,#0x0F
00C9 E4              117     ir5:         CLR      A
00CA F533            118              MOV      flag,A
00CC F554            119              MOV      count1,A
00CE F553            120              MOV      count2,A
00D0 C3              121     ir6:        CLR      C
00D1 E553            122              MOV      A,count2
00D3 95E1            123              SUBB     A,endcount2
00D5 E554            124              MOV      A,count1
A51 MACRO ASSEMBLER  HONG                                                                 10/09/2007 19:26:15 PAGE     3

00D7 9531            125              SUBB     A,endcount1
00D9 40F5            126              JC       ir6
00DB EE              127              MOV      A,R6
00DC A2E7            128              MOV      C,0xE0.7
00DE 13              129              RRC      A
00DF FE              130              MOV      R6,A
00E0 0D              131              INC      R5
00E1 BD0001          132              CJNE     R5,#0x00,ir7
00E4 0C              133              INC      R4
00E5 ED              134     ir7:        MOV      A,R5
00E6 6433            135             XRL      A,#flag
00E8 4C              136             ORL      A,R4
00E9 70AB            137             JNZ      ir8
00EB AE30            138             MOV      R6,iraddr2
00ED E4              139             CLR      A
00EE FC              140             MOV      R4,A
00EF FD              141             MOV      R5,A
00F0 753100          142     ir13:   MOV      endcount1,#0x00
00F3 75E130          143             MOV      endcount2,#iraddr2
00F6 753301          144             MOV      flag,#0x01
00F9 E4              145             CLR      A
00FA F554            146             MOV      count1,A
00FC F553            147             MOV      count2,A
00FE C3              148     ir9:         CLR      C
00FF E553            149             MOV      A,count2
0101 95E1            150             SUBB     A,endcount2
0103 E554            151             MOV      A,count1
0105 9531            152             SUBB     A,endcount1
0107 40F5            153             JC       ir9
0109 EE              154             MOV      A,R6
010A A2E7            155             MOV      C,0xE0.7
010C 13              156             RRC      A
010D 25E0            157             ADD      A,ACC
010F FB              158             MOV      R3,A
0110 C3              159             CLR      C
0111 EE              160             MOV      A,R6
0112 9B              161             SUBB     A,R3
0113 6008            162             JZ       ir10
0115 753100          163             MOV      endcount1,#0x00
0118 75E129          164             MOV      endcount2,#0x29
011B 8006            165             SJMP     ir11
011D 753100          166     ir10:   MOV      endcount1,#0x00
0120 75E10F          167             MOV   endcount2,#0x0F
0123 E4              168     ir11:         CLR      A
0124 F533            169              MOV      flag,A
0126 F554            170             MOV      count1,A
0128 F553            171             MOV      count2,A
012A C3              172     ir12:          CLR      C
012B E553            173              MOV      A,count2
012D 95E1            174              SUBB     A,endcount2
012F E554            175              MOV      A,count1
0131 9531            176              SUBB     A,endcount1
0133 40F5            177                JC       ir12
0135 EE              178               MOV      A,R6
0136 A2E7            179                MOV      C,0xE0.7
0138 13              180                RRC      A
0139 FE              181            MOV      R6,A
013A 0D              182            INC      R5
013B BD0001          183            CJNE     R5,#0x00,ir14
013E 0C              184            INC      R4
013F ED              185     ir14:          MOV      A,R5
0140 6433            186            XRL      A,#flag
0142 4C              187             ORL      A,R4
0143 70AB            188              JNZ      ir13
0145 AE07            189         MOV      R6,0x07
0147 E4              190           CLR      A      
A51 MACRO ASSEMBLER  HONG                                                                 10/09/2007 19:26:15 PAGE     4

0148 FC              191           MOV      R4,A
0149 FD              192          MOV      R5,A
014A 753100          193     ir20:     MOV      endcount1,#0x00
014D 75E130          194           MOV      endcount2,#iraddr2
0150 753301          195           MOV      flag,#0x01
0153 E4              196           CLR      A
0154 F554            197          MOV      count1,A
0156 F553            198          MOV      count2,A
0158 C3              199     ir15:       CLR      C
0159 E553            200        MOV      A,count2
015B 95E1            201         SUBB     A,endcount2

⌨️ 快捷键说明

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