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

📄 tea5767.lis

📁 用TEA5767 自己动手制作的收音机。效果很好
💻 LIS
📖 第 1 页 / 共 2 页
字号:
 00D6 2901              movw R4,R18
 00D8 241A              sub R2,R20
 00DA 350A              sbc R3,R21
 00DC 460A              sbc R4,R22
 00DE 570A              sbc R5,R23
 00E0 40E0              ldi R20,0
 00E2 50E8              ldi R21,128
 00E4 60E0              ldi R22,0
 00E6 70E0              ldi R23,0
 00E8 7A93              st -y,R23
 00EA 6A93              st -y,R22
 00EC 5A93              st -y,R21
 00EE 4A93              st -y,R20
 00F0 8101              movw R16,R2
 00F2 9201              movw R18,R4
 00F4 0E940000          xcall div32s
 00F8 10930A00          sts _N+1,R17
 00FC 00930900          sts _N,R16
 0100                   .dbline 39
 0100           ;               PORTC|=BIT(PA2); 
 0100 AA9A              sbi 0x15,2
 0102                   .dbline 40
 0102           ;               inputbyte(N>>8);
 0102 012F              mov R16,R17
 0104 1127              clr R17
 0106 07FD              sbrc R16,7
 0108 1095              com R17
 010A 84DF              xcall _inputbyte
 010C                   .dbline 41
 010C           ;               inputbyte(N);
 010C 00910900          lds R16,_N
 0110 81DF              xcall _inputbyte
 0112                   .dbline 42
 0112           ;               inputbyte(0xa0);
 0112 00EA              ldi R16,160
 0114 7FDF              xcall _inputbyte
 0116                   .dbline 43
 0116           ;               inputbyte(0x13);
 0116 03E1              ldi R16,19
 0118 7DDF              xcall _inputbyte
 011A                   .dbline 44
 011A           ;               inputbyte(0x00);
 011A 0027              clr R16
 011C 7BDF              xcall _inputbyte
 011E                   .dbline 45
 011E           ;               PORTC&=~BIT(PA2);
 011E AA98              cbi 0x15,2
 0120                   .dbline 46
 0120           ;               delay();
 0120 6FDF              xcall _delay
 0122                   .dbline 48
 0122           ;               
 0122           ;               }
 0122 6EC0              xjmp L15
 0124           L14:
 0124                   .dbline 49
 0124           ;               else if(!(PINA&0x10)){
 0124 CC99              sbic 0x19,4
 0126 6CC0              rjmp L18
 0128                   .dbline 49
 0128                   .dbline 50
 0128           ;               radio-=100000;
 0128 40EA              ldi R20,160
 012A 56E8              ldi R21,134
 012C 61E0              ldi R22,1
 012E 70E0              ldi R23,0
 0130 40900700          lds R4,_radio+2
 0134 50900800          lds R5,_radio+2+1
 0138 20900500          lds R2,_radio
 013C 30900600          lds R3,_radio+1
 0140 241A              sub R2,R20
 0142 350A              sbc R3,R21
 0144 460A              sbc R4,R22
 0146 570A              sbc R5,R23
 0148 30920600          sts _radio+1,R3
 014C 20920500          sts _radio,R2
 0150 50920800          sts _radio+2+1,R5
 0154 40920700          sts _radio+2,R4
 0158                   .dbline 51
 0158           ;               if (radio<87000000)
 0158 40EC              ldi R20,192
 015A 53E8              ldi R21,131
 015C 6FE2              ldi R22,47
 015E 75E0              ldi R23,5
 0160 2416              cp R2,R20
 0162 3506              cpc R3,R21
 0164 4606              cpc R4,R22
 0166 5706              cpc R5,R23
 0168 64F4              brge L20
 016A                   .dbline 52
 016A           ;               radio=108000000;
 016A 40E0              ldi R20,0
 016C 53EF              ldi R21,243
 016E 6FE6              ldi R22,111
 0170 76E0              ldi R23,6
 0172 50930600          sts _radio+1,R21
 0176 40930500          sts _radio,R20
 017A 70930800          sts _radio+2+1,R23
 017E 60930700          sts _radio+2,R22
 0182           L20:
 0182                   .dbline 53
 0182           ;               N=(long)((radio-225000)*4)/32768;
 0182 40900700          lds R4,_radio+2
 0186 50900800          lds R5,_radio+2+1
 018A 20900500          lds R2,_radio
 018E 30900600          lds R3,_radio+1
 0192 44E0              ldi R20,4
 0194 50E0              ldi R21,0
 0196 60E0              ldi R22,0
 0198 70E0              ldi R23,0
 019A 5A92              st -y,R5
 019C 4A92              st -y,R4
 019E 3A92              st -y,R3
 01A0 2A92              st -y,R2
 01A2 8A01              movw R16,R20
 01A4 9B01              movw R18,R22
 01A6 0E940000          xcall empy32s
 01AA 40EA              ldi R20,160
 01AC 5BEB              ldi R21,187
 01AE 6DE0              ldi R22,13
 01B0 70E0              ldi R23,0
 01B2 1801              movw R2,R16
 01B4 2901              movw R4,R18
 01B6 241A              sub R2,R20
 01B8 350A              sbc R3,R21
 01BA 460A              sbc R4,R22
 01BC 570A              sbc R5,R23
 01BE 40E0              ldi R20,0
 01C0 50E8              ldi R21,128
 01C2 60E0              ldi R22,0
 01C4 70E0              ldi R23,0
 01C6 7A93              st -y,R23
 01C8 6A93              st -y,R22
 01CA 5A93              st -y,R21
 01CC 4A93              st -y,R20
 01CE 8101              movw R16,R2
 01D0 9201              movw R18,R4
 01D2 0E940000          xcall div32s
 01D6 10930A00          sts _N+1,R17
 01DA 00930900          sts _N,R16
 01DE                   .dbline 54
 01DE           ;               PORTC|=BIT(PA2); 
 01DE AA9A              sbi 0x15,2
 01E0                   .dbline 55
 01E0           ;               inputbyte(N>>8);
 01E0 012F              mov R16,R17
 01E2 1127              clr R17
 01E4 07FD              sbrc R16,7
 01E6 1095              com R17
 01E8 15DF              xcall _inputbyte
 01EA                   .dbline 56
 01EA           ;               inputbyte(N);
 01EA 00910900          lds R16,_N
 01EE 12DF              xcall _inputbyte
 01F0                   .dbline 57
 01F0           ;               inputbyte(0xa0);
 01F0 00EA              ldi R16,160
 01F2 10DF              xcall _inputbyte
 01F4                   .dbline 58
 01F4           ;               inputbyte(0x13);
 01F4 03E1              ldi R16,19
 01F6 0EDF              xcall _inputbyte
 01F8                   .dbline 59
 01F8           ;               inputbyte(0x00);
 01F8 0027              clr R16
 01FA 0CDF              xcall _inputbyte
 01FC                   .dbline 60
 01FC           ;               PORTC&=~BIT(PA2);
 01FC AA98              cbi 0x15,2
 01FE                   .dbline 61
 01FE           ;               delay();
 01FE 00DF              xcall _delay
 0200                   .dbline 62
 0200           ;               }
 0200           L18:
 0200           L15:
 0200                   .dbline -2
 0200           L13:
 0200 0E940000          xcall pop_gset2
 0204                   .dbline 0 ; func end
 0204 0895              ret
 0206                   .dbend
 0206                   .dbfunc e main _main fV
 0206           ;              i -> R20
                        .even
 0206           _main::
 0206                   .dbline -1
 0206                   .dbline 68
 0206           ;               
 0206           ;               
 0206           ; }
 0206           ; 
 0206           ; void main()
 0206           ; {
 0206                   .dbline 69
 0206           ; uchar i=0;
 0206 4427              clr R20
 0208                   .dbline 70
 0208           ; DDRC=0xff;
 0208 8FEF              ldi R24,255
 020A 84BB              out 0x14,R24
 020C                   .dbline 71
 020C           ; DDRA=0x00;
 020C 2224              clr R2
 020E 2ABA              out 0x1a,R2
 0210                   .dbline 72
 0210           ; PORTA=0xff;
 0210 8BBB              out 0x1b,R24
 0212                   .dbline 73
 0212           ; delay();
 0212 F6DE              xcall _delay
 0214                   .dbline 75
 0214           ; //PORTC|=BIT(PA3); 
 0214           ; PORTC|=BIT(PA4); 
 0214 AC9A              sbi 0x15,4
 0216 01C0              xjmp L24
 0218           L23:
 0218                   .dbline 77
 0218                   .dbline 78
 0218 14DF              xcall _GetKey
 021A                   .dbline 79
 021A           L24:
 021A                   .dbline 76
 021A FECF              xjmp L23
 021C           X0:
 021C                   .dbline -2
 021C           L22:
 021C                   .dbline 0 ; func end
 021C 0895              ret
 021E                   .dbsym r i 20 c
 021E                   .dbend

⌨️ 快捷键说明

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