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

📄 tuner.lst

📁 一个带收音的功放程序, VFD显示驱动用一个非常实用的方法, 稍加修改即可换成不同的VFD, 功放芯片用M61538
💻 LST
📖 第 1 页 / 共 5 页
字号:

000A 750002      E     MOV     ucRadioControl,#02H
                                           ; SOURCE LINE # 129
000D         ?C0159:
000D 75008C      E     MOV     ucRadioControl+01H,#08CH
                                           ; SOURCE LINE # 130
0010 750017      E     MOV     ucRadioControl+02H,#017H
                                           ; SOURCE LINE # 131
0013         ?C0021:
                                           ; SOURCE LINE # 132
0013 7B00              MOV     R3,#00H
0015 7A00        E     MOV     R2,#HIGH ucRadioControl
0017 7900        E     MOV     R1,#LOW ucRadioControl
0019 7D03              MOV     R5,#03H
001B 7F29              MOV     R7,#029H
001D 020000      R     LJMP    _SendString_ToTuner
             ; FUNCTION RadioInit (END)

             ; FUNCTION RadioMute (BEGIN)
                                           ; SOURCE LINE # 139
                                           ; SOURCE LINE # 140
                                           ; SOURCE LINE # 141
0000 E500        E     MOV     A,FM_AM_Select
0002 B40105            CJNE    A,#01H,?C0023
                                           ; SOURCE LINE # 142
                                           ; SOURCE LINE # 144
0005 7500D2      E     MOV     ucRadioControl,#0D2H
                                           ; SOURCE LINE # 145
                                           ; SOURCE LINE # 146
                                           ; SOURCE LINE # 147
0008 8003              SJMP    ?C0160
000A         ?C0023:
                                           ; SOURCE LINE # 149
                                           ; SOURCE LINE # 151
000A 750012      E     MOV     ucRadioControl,#012H
                                           ; SOURCE LINE # 152
000D         ?C0160:
000D 75008C      E     MOV     ucRadioControl+01H,#08CH
                                           ; SOURCE LINE # 153
0010 750017      E     MOV     ucRadioControl+02H,#017H
                                           ; SOURCE LINE # 154
0013         ?C0024:
                                           ; SOURCE LINE # 155
0013 7B00              MOV     R3,#00H
0015 7A00        E     MOV     R2,#HIGH ucRadioControl
0017 7900        E     MOV     R1,#LOW ucRadioControl
0019 7D03              MOV     R5,#03H
001B 7F29              MOV     R7,#029H
001D 020000      R     LJMP    _SendString_ToTuner
             ; FUNCTION RadioMute (END)

             ; FUNCTION SetRadioMono (BEGIN)
                                           ; SOURCE LINE # 162
                                           ; SOURCE LINE # 163
                                           ; SOURCE LINE # 164
0000 E500        E     MOV     A,FM_AM_Select
0002 B4010E            CJNE    A,#01H,?C0027
                                           ; SOURCE LINE # 165
                                           ; SOURCE LINE # 167
0005 750042      E     MOV     ucRadioControl,#042H
                                           ; SOURCE LINE # 168
0008 75008C      E     MOV     ucRadioControl+01H,#08CH
                                           ; SOURCE LINE # 169
C51 COMPILER V7.20   TUNER                                                                 07/16/2005 13:42:41 PAGE 19  

000B 750017      E     MOV     ucRadioControl+02H,#017H
                                           ; SOURCE LINE # 170
000E 7F29              MOV     R7,#029H
0010 120000      R     LCALL   L?0169
                                           ; SOURCE LINE # 171
                                           ; SOURCE LINE # 172
0013         ?C0027:
0013 22                RET     
             ; FUNCTION SetRadioMono (END)

             ; FUNCTION RadioOpen (BEGIN)
                                           ; SOURCE LINE # 177
                                           ; SOURCE LINE # 178
                                           ; SOURCE LINE # 179
0000 E500        E     MOV     A,Mono_Stereo_Select
0002 7003              JNZ     ?C0028
                                           ; SOURCE LINE # 180
0004 020000      R     LJMP    SetRadioMono
0007         ?C0028:
                                           ; SOURCE LINE # 182
0007 120000      R     LCALL   RadioInit
                                           ; SOURCE LINE # 183
000A         ?C0030:
000A 22                RET     
             ; FUNCTION RadioOpen (END)

             ; FUNCTION L?0167 (BEGIN)
0000         L?0168:
0000 AF00        E     MOV     R7,Current_Freq+01H
0002 AE00        E     MOV     R6,Current_Freq
             ; FUNCTION _RadioFreq (BEGIN)
                                           ; SOURCE LINE # 189
;---- Variable 'uiFreq' assigned to Register 'R6/R7' ----
                                           ; SOURCE LINE # 190
                                           ; SOURCE LINE # 191
0004 E500        E     MOV     A,FM_AM_Select
0006 B40105            CJNE    A,#01H,?C0031
                                           ; SOURCE LINE # 192
                                           ; SOURCE LINE # 195
0009 75002A      E     MOV     ucRadioControl+02H,#02AH
                                           ; SOURCE LINE # 196
000C 8011              SJMP    ?C0032
000E         ?C0031:
                                           ; SOURCE LINE # 198
                                           ; SOURCE LINE # 200
000E 750098      E     MOV     ucRadioControl+02H,#098H
                                           ; SOURCE LINE # 201
0011 EF                MOV     A,R7
0012 C4                SWAP    A
0013 F8                MOV     R0,A
0014 540F              ANL     A,#0FH
0016 C8                XCH     A,R0
0017 68                XRL     A,R0
0018 FF                MOV     R7,A
0019 EE                MOV     A,R6
001A C4                SWAP    A
001B 54F0              ANL     A,#0F0H
001D 48                ORL     A,R0
001E FE                MOV     R6,A
                                           ; SOURCE LINE # 202
001F         ?C0032:
                                           ; SOURCE LINE # 203
C51 COMPILER V7.20   TUNER                                                                 07/16/2005 13:42:41 PAGE 20  

001F EF                MOV     A,R7
0020 F500        E     MOV     ucRadioControl,A
                                           ; SOURCE LINE # 204
0022 EE                MOV     A,R6
0023 F500        E     MOV     ucRadioControl+01H,A
                                           ; SOURCE LINE # 205
0025 7F28              MOV     R7,#028H
0027 120000      R     LCALL   L?0169
                                           ; SOURCE LINE # 206
002A 7F3C              MOV     R7,#03CH
002C 120000      E     LCALL   _DelayX1ms
                                           ; SOURCE LINE # 209
002F 430004      E     ORL     ucRadioControl+02H,#04H
                                           ; SOURCE LINE # 210
0032 7B00              MOV     R3,#00H
0034 7A00        E     MOV     R2,#HIGH ucRadioControl
0036 7900        E     MOV     R1,#LOW ucRadioControl
0038 7D03              MOV     R5,#03H
003A 7F28              MOV     R7,#028H
003C 020000      R     LJMP    _SendString_ToTuner
             ; FUNCTION _RadioFreq (END)

             ; FUNCTION RadioCountIF (BEGIN)
                                           ; SOURCE LINE # 219
                                           ; SOURCE LINE # 220
                                           ; SOURCE LINE # 222
0000 7B00              MOV     R3,#00H
0002 7A00        E     MOV     R2,#HIGH ucRadioControl
0004 7900        E     MOV     R1,#LOW ucRadioControl
0006 7D03              MOV     R5,#03H
0008 7F2A              MOV     R7,#02AH
000A 120000      R     LCALL   _ReadString_FromTuner
                                           ; SOURCE LINE # 225
000D E500        E     MOV     A,ucRadioControl
000F 5480              ANL     A,#080H
0011 FF                MOV     R7,A
0012 F500        E     MOV     Mono_Stereo_Select,A
                                           ; SOURCE LINE # 226
0014 6005              JZ      ?C0034
                                           ; SOURCE LINE # 227
0016 750001      E     MOV     Mono_Stereo_Select,#01H
0019 8003              SJMP    ?C0035
001B         ?C0034:
                                           ; SOURCE LINE # 229
001B E4                CLR     A
001C F500        E     MOV     Mono_Stereo_Select,A
001E         ?C0035:
                                           ; SOURCE LINE # 230
001E EF                MOV     A,R7
001F C4                SWAP    A
0020 13                RRC     A
0021 13                RRC     A
0022 13                RRC     A
0023 5401              ANL     A,#01H
0025 F500        E     MOV     Mono_Stereo_Select,A
                                           ; SOURCE LINE # 232
0027 E500        E     MOV     A,ucRadioControl+01H
0029 75F010            MOV     B,#010H
002C A4                MUL     AB
002D FF                MOV     R7,A
002E E500        E     MOV     A,ucRadioControl+02H
0030 C4                SWAP    A
C51 COMPILER V7.20   TUNER                                                                 07/16/2005 13:42:41 PAGE 21  

0031 540F              ANL     A,#0FH
0033 2F                ADD     A,R7
0034 FD                MOV     R5,A
0035 E4                CLR     A
0036 35F0              ADDC    A,B
0038 FC                MOV     R4,A
0039 E500        E     MOV     A,ucRadioControl
003B 7F00              MOV     R7,#00H
003D C4                SWAP    A
003E 54F0              ANL     A,#0F0H
0040 FE                MOV     R6,A
0041 EF                MOV     A,R7
0042 2D                ADD     A,R5
0043 F500        E     MOV     uiIFCount+01H,A
0045 EC                MOV     A,R4
0046 3E                ADDC    A,R6
0047 F500        E     MOV     uiIFCount,A
                                           ; SOURCE LINE # 234
0049 22                RET     
             ; FUNCTION RadioCountIF (END)

             ; FUNCTION RadioLock (BEGIN)
                                           ; SOURCE LINE # 241
                                           ; SOURCE LINE # 242
                                           ; SOURCE LINE # 243
0000 E500        E     MOV     A,Wait_Lock_40ms
0002 C3                CLR     C
0003 9406              SUBB    A,#06H
0005 5003              JNC     ?C0037
                                           ; SOURCE LINE # 244
0007 7FFF              MOV     R7,#0FFH
0009 22                RET     
000A         ?C0037:
                                           ; SOURCE LINE # 246
                                           ; SOURCE LINE # 247
000A E4                CLR     A
000B F500        E     MOV     Wait_Lock_40ms,A
                                           ; SOURCE LINE # 248
000D 120000      R     LCALL   RadioCountIF
                                           ; SOURCE LINE # 249
0010 E500        E     MOV     A,FM_AM_Select
0012 B40119            CJNE    A,#01H,?C0040
                                           ; SOURCE LINE # 250
                                           ; SOURCE LINE # 252
0015 C3                CLR     C
0016 E500        E     MOV     A,uiIFCount+01H
0018 9496              SUBB    A,#096H
001A E500        E     MOV     A,uiIFCount
001C 9453              SUBB    A,#053H
001E 4027              JC      ?C0042
0020 D3                SETB    C
0021 E500        E     MOV     A,uiIFCount+01H
0023 949A              SUBB    A,#09AH
0025 E500        E     MOV     A,uiIFCount
0027 9453              SUBB    A,#053H
0029 501C              JNC     ?C0042
                                           ; SOURCE LINE # 253
                                           ; SOURCE LINE # 254
002B 7F01              MOV     R7,#01H
002D 22                RET     
                                           ; SOURCE LINE # 255
            

⌨️ 快捷键说明

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