fmq.lst

很实用的单片机例程

A51 MACRO ASSEMBLER  FMQ                                                                  05/28/2005 21:29:23 PAGE     1


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

LOC  OBJ            LINE     SOURCE

                       1     
                       2     
  00B7                 3     SPK     EQU     P3.7                    ; 蜂鸣器所在端口
                       4     
0000                   5             ORG     0000H
0000 8000              6             JMP     START
                       7             
0002                   8     START:
0002 7B00              9             MOV     R3,#00H
0004                  10     NEXT:
0004 EB               11             MOV     A,R3
0005 9000B7           12             MOV     DPTR,#TABLE
0008 93               13             MOVC    A,@A+DPTR
0009 60F7             14             JZ      START
000B FF               15             MOV     R7,A
000C 0B               16             INC     R3
000D EB               17             MOV     A,R3
000E 93               18             MOVC    A,@A+DPTR
000F FA               19             MOV     R2,A
0010 1115             20             ACALL   SONG
0012 0B               21             INC     R3
0013 80EF             22             SJMP    NEXT
                      23     
                      24     
                      25     ;===============================================================================        
                      26     ;===  歌曲播放子程序 ===
0015                  27     SONG:
0015 EA               28             MOV     A,R2                                    ; 取出节拍
0016 23               29             RL      A
0017 7002             30             JNZ     KEEP
0019 7401             31             MOV     A,#01H
001B                  32     KEEP:
001B FA               33             MOV     R2,A
001C                  34     REPEAT:
001C 1121             35             ACALL   EIGHTH
001E DAFC             36             DJNZ    R2,REPEAT
0020 22               37             RET
                      38             
                      39     ;===============================================================================        
                      40     ;===  产生1/8拍延时子程序  ===          
0021                  41     EIGHTH:
0021 EF               42             MOV     A,R7                                    ; 查表取出廷时参