changge.lst

Keil C51 开发的基于89C51的音乐程序

A51 MACRO ASSEMBLER  CHANGGE                                                              03/23/2006 08:50:45 PAGE     1


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

LOC  OBJ            LINE     SOURCE

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