file9.asm

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

;声光报警实验
;在程序发出声音的同时，用灯光指示输出结果
;起到加强报警效果的作用

      org 00h
      jmp main
      org 030h
main: mov p2,#255      ;灭掉数码管
      mov p0,#00h      ;输出禁止
      cpl p1.1         ;输出结果，将P1.0取反
      cpl p1.0         ;同上
      lcall delay      ;开始延时
      lcall delay
      lcall delay
      lcall delay
      lcall beep
         
         
     jmp main

;*******   这是蜂鸣器报警程序，控制蜂鸣器发出声音
beep: mov c,p1.0          ;取得p1.0的状态，保持当p1.0指示灯亮的时候发出声音
      mov p3.7,c          ;这里为蜂鸣器接口，如果 输出 ‘1’，蜂鸣器发出声音，否则不发音
      ret                       ;子程序返回

; **********  该定时子程序总定时时间250ms 
delay:push psw            ; 将 psw 压入堆栈
      clr psw.3           ;
	  clr psw.4           ; 重新设置 psw
	  mov r0,#2           ; 定时参数1 
	  mov r1,#250         ; 定时参数2 
	  mov r2,#1           ; 定时参数3
  dl1:djnz r0,dl1         ; 一级循环
      mov r0,#250         
  dl2:djnz r1,dl1         ; 二级循环
      mov r0,#240         ;
      mov r1,#248         ; 三级循环
  dl3:djnz r2,dl1         ; 
	  nop                       ; 
	  pop psw             ;弹出 psw 
      ret                 ;返回
;***************     定时程序结束
     end