file8.asm

单片机学习系统附的实验源代码

   musich       equ 40h                       ;音乐定时高位数据
   musicl       equ 41h                       ;音乐定时低位数据
   musicstart   equ 42h                       ;音乐开始首地址
   beep         bit p3.7                      ;蜂鸣器定义

;  ************************   预定义结束   *******************

   org 00h                              ;程序开始
   jmp main                             ;跳转到主程序

   org 1bh                              ;定时器T1中断入口地址
   jmp timer_1                           ;定时器服务程序

   org 030h                             ;主程序代码开始
   main:mov sp,#30h                     ;设置堆栈
        lcall music                     ;调用音乐程序
        jmp main                        ;重新开始

musdelay:mov r0,#20                     ;短时间延时
     d:  djnz r0,d                      ;延时时间 20 uS
          ret                           ;返回
; ************  定时器 服务程序 *******************8
timer_1:    clr tr1                      ;停止定时器工作
           mov th1,musich               ;重新设置定时初值
           mov tl1,musicl               ;
           cpl beep                     ;从蜂鸣器输出声音
           setb tr1                     ;开始定时工作
            reti                        ;中断返回
;****************************************************
;************ 音乐播放程序 ********************* 
music:          mov tmod,#10h           ;设置定时器T1工作方式1
                setb ea                 ;总的中断
                setb et1                ;定时器T1中断允许
                mov musicstart,#00h     ;音乐开始地址
                mov musich,#0ffh        ;音乐定时常数高位
                mov musicl,#0ffh        ;音乐定时常数低位
                
   loopm:       mov dptr,#mu_tab        ;得到音符表头
                mov a,musicstart        ;开始查表
                movc a,@a+dptr          ;获得音乐数据
                jz musend               ;结束符 00H，返回
                rl a                    ;A*2
                mov b,a                 ;暂存地址
                mov dptr,#mustab        ;获得音符表头
                movc a,@a+dptr          ;根据音乐数据查得定时常数
                mov musich,a            ;保存定时常数高位
                mov th1,a               ;设置定时器高位常数
                mov a,b                 ;开始找低位数据
                inc a                   ;指向下一个数据
                mov dptr,#mustab        ;得到音符表头
                movc a,@a+dptr          ;查得低位数据
                mov musicl,a            ;保存数据
                mov tl1,a               ;设置定时低位常数
                setb tr1                ;定时器T1开始工作

	        mov dptr,#mu_tab        ;得到音乐表
                inc musicstart          ;指向下一个单元（音符节拍）
                mov a,musicstart        ;开始查找
                movc a,@a+dptr          ;找到数据
                lcall delay1            ;根据参数延时，发出持续音乐
                inc  musicstart         ;指向下一个音
                clr tr1                 ;停止发声
                lcall delay
	jmp loopm                       ;重复，直到遇到结束符号 00H.

musend:         clr tr1                 ;乐曲播放完毕，关闭定时器
                clr ea                  ;禁止中断
                clr et1                 ;关闭定时器T1中断
                clr beep                ;禁止蜂鸣器
                mov a,#20
                lcall delay1
               ret
;*********************
;************ 节拍发生器 ，产生音乐节拍 *********************************
delay1:            mov r0,#00h                    ;节拍发生器，用来发生节拍
                   mov r1,#00h                    ;
                   mov r2,a                       ;这是节拍发生器的参数，当它为8
          dlay1:djnz r0,dlay1                     ;表示1拍
                    mov r0,#00h
                    djnz r1,dlay1
                    mov r0,#00h
                    mov r1,#00h
                    djnz r2,dlay1
                    ret
; ————————————————————
; ********  延时 产生休止符  *****************

delay:           mov r0,#00h                    ;延时 10ms
                 mov r1,#100
          dlay:  djnz r0,dlay
                 mov r0,#100
                 djnz r1,dlay
                 ret
;  ************************
;  ************************曲谱编码，这是定义的曲谱表，对应如下  **************************************************                 
	        ;        1 低音 DO     2 低音 RE       3  低音ME       4 低音 FA      5 低音 SO      6 低音LA      7 低音SI   
mustab:      db 'h','j', 0f8h,8bh,    0f9h,5bh,      0fah,14h,        0fah,0ch,      0fbh,03h,      0fbh,8fh,      0fch,0bh

                        ; 8 中音 DO    9 中音 RE       0ah 中音ME  0bh 中音 FA   0ch 中音 SO  0dh 中音LA  0eh 中音SI         
	   db  0fch,43h,    0fch,0abh,       0fdh,08h,      0fdh,33h,      0fdh,81h,      0fdh,0c7h,   0feh,05h

	        ; 0fh 高音 DO 10h 高音 RE 11h 高音ME  12h 高音 FA   13h 高音 SO   14h 高音LA  15h 高音SI         
	   db  0feh,21h,   0feh,55h,       0feh,84h,      0fdh,99h,       0feh,0c0h,     0feh,0e3h,   0ffh,02h

;以下为音乐乐谱代码，前两位表示曲谱，后一位表示节拍
;8为 1 拍，4 ->半拍

mu_tab:      db  6,4,8,4,10,4,1,4,9,8,8,4,7,4,10,8,9,8,6,16
             db  8,4,10,4,12,4,12,4,13,8,12,4,11,4,10,16
             db  00h
   end