2.asm

单片机实验程序-13种-17.4M-pdf.zip

                   MOV 	 @R0,A       ;放回前一地址单元
                   MOV	 A,R3        ;取回R3中暂存数据
                   INC	 R0          ;指向当前地址单元
                   SWAP	 A           ;A中数据高四位与低四位交换
                   ANL 	 A,#0FH      ;高四位变0
                   MOV	 @R0,A       ;数据放入当削地址单元中
                   RET                  ;子程序返回
   ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           清零程序                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;对计时单元复零用
             CLR0: CLR 		A           ;清累加器
                   MOV 		@R0,A       ;清当前地址单元
                   DEC 		R0          ;指向前一地址
                   MOV 		@R0,A       ;前一地址单元清0
                   RET                      ;子程序返回
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           时钟调整程序              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;当调时按键按下时进入此程序
           SETMM:  cLR  	ET0            ;关定时器T0中断
                   CLR  	TR0            ;关闭定时器T0
                   LCALL  	DL1S           ;调用1秒延时程序
                   JB  		P3.7,CLOSEDIS  ;键按下时间小于1秒，关闭显示（省电）
                   MOV  	R2,#06H        ;进入调时状态，赋闪烁定时初值
                   SETB 	ET1            ;允许T1中断
                   SETB 	TR1            ;开启定时器T1
            SET2:  JNB 		P3.7,SET1      ;P3.7口为0（键未释放），等待
                   SETB  	00H            ;键释放，分调整闪烁标志置1
            SET4:  JB  		P3.7,SET3      ;等待键按下
                   LCALL   	DL05S          ;有键按下，延时0.5秒
                   JNB    	P3.7,SETHH     ;按下时间大于0.5秒转调小时状态
                   MOV 		R0,#77H        ;按下时间小于0.5秒加1分钟操作
                   LCALL 	ADD1           ;调用加1子程序
                   MOV 		A,R3           ;取调整单元数据
                   CLR 		C              ;清进位标志
                   CJNE 	A,#60H,HHH     ;调整单元数据与60比较
              HHH: JC 		SET4           ;调整单元数据小于60转SET4循环
                   LCALL 	CLR0           ;调整单元数据大于或等于60时清0
                   CLR 		C              ;清进位标志
                   AJMP  	SET4           ;跳转到SET4循环
        CLOSEDIS:  SETB 	 ET0           ;省电（LED不显示）状态。开T0中断
                   SETB 	 TR0           ;开启T0定时器（开时钟）
        CLOSE:     JB   	 P3.7,CLOSE    ;无按键按下，等待。
                   LCALL	 DISPLAY       ;有键按下，调显示子程序延时削抖
                   JB    	P3.7,CLOSE     ;是干扰返回CLOSE等待
        WAITH:     JNB   	P3.7,WAITH     ;等待键释放
                   LJMP  	START1         ;返回主程序（LED数据显示亮）
           SETHH:  CLR  	 00H           ;分闪烁标志清除（进入调小时状态）
          SETHH1:  JNB 		P3.7,SET5      ;等待键释放
                   SETB         01H            ;小时调整标志置1
            SET6:  JB  		P3.7,SET7      ;等待按键按下
                   LCALL   	DL05S          ;有键按下延时0.5秒
                   JNB    	P3.7,SETOUT    ;按下时间大于0.5秒退出时间调整
                   MOV		 R0,#79H       ;按下时间小于0.5秒加1小时操作
                   LCALL 	 ADD1            ;调加1子程序
                   MOV		 A,R3            ;
                   CLR 		C                ;
                   CJNE 	A,#24H,HOUU      ;计时单元数据与24比较
            HOUU:  JC 		SET6             ;小于24转SET6循环
                   LCALL 	CLR0             ;大于或等于24时清0操作
                   AJMP  	SET6             ;跳转到SET6循环
           SETOUT: JNB   	P3.7,SETOUT1     ;调时退出程序。等待键释放
                   LCALL 	DISPLAY          ;延时削抖
                   JNB   	P3.7,SETOUT      ;是抖动，返回SETOUT再等待
                   CLR   	01H              ;清调小时标志
                   CLR   	00H              ;清调分标志
                   CLR   	02H              ;清闪烁标志
                   CLR   	TR1              ;关闭定时器T1
                   CLR   	ET1              ;关定时器T1中断
                   SETB  	TR0              ;开启定时器T0
                   SETB  	ET0              ;开定时器T0中断（计时开始）
                   LJMP 	START1           ;跳回主程序
            SET1:  LCALL    DISPLAY          ;键释放等待时调用显示程序（调分）
                   AJMP     SET2             ;防止键按下时无时钟显示
            SET3:  LCALL    DISPLAY          ;等待调分按键时时钟显示用
                   AJMP     SET4
            SET5:  LCALL    DISPLAY          ;键释放等待时调用显示程序（调小时）
                   AJMP     SETHH1           ;防止键按下时无时钟显示
            SET7:  LCALL    DISPLAY          ;等待调小时按键时时钟显示用
                   AJMP     SET6
         SETOUT1:  LCALL    DISPLAY          ;退出时钟调整时键释放等待
                    AJMP    SETOUT           ;防止键按下时无时钟显示
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           显示程序                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; 显示数据在70H-75H单元内，用六位LED共阳数码管显示，P1口输出段码数据，P3口作
; 扫描控制，每个LED数码管亮1MS时间再逐位循环。
          DISPLAY: MOV 		R1,#70H       ;指向显示数据首址
                   MOV 		R5,#0FEH      ;扫描控制字初值
             PLAY: MOV 		A,R5          ;扫描字放入A
                   MOV 		P3,A          ;从P3口输出
                   MOV 		A,@R1         ;取显示数据到A
                   MOV 		DPTR,#TAB     ;取段码表地址
                   MOVC		A,@A+DPTR     ;查显示数据对应段码
                   MOV 		P1,A          ;段码放入P1口
                   LCALL 	DL1MS         ;显示1MS
                   INC 		R1            ;指向下一地址
                   MOV 		A,R5            ;扫描控制字放入A
                   JNB 		ACC.5,ENDOUT    ;ACC.5=0时一次显示结束
                   RL 		A               ;A中数据循环左移
                   MOV 		R5,A            ;放回R5内
                   AJMP 	PLAY            ;跳回PLAY循环
           ENDOUT: SETB 	P3.5            ;一次显示结束，P3口复位
                   MOV 		 P1,#0FFH       ;P1口复位
                   RET                      ;子程序返回
             TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H,0FFH
;共阳段码表          "0""1""2" "3""4""5""6""7" "8""9""不亮"
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;           延时程序                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;1MS延时程序，LED显示程序用
             DL1MS: MOV 	R6,#14H
             DL1:   MOV 	R7,#19H
             DL2:   DJNZ 	R7,DL2
                    DJNZ 	R6,DL1
                    RET
;20MS延时程序，采用调用显示子程序以改善LED的显示闪烁现象
           DS20MS: ACALL 	 DISPLAY
                   ACALL	 DISPLAY
                   ACALL	 DISPLAY
                   RET
;延时程序，用作按键时间的长短判断
           DL1S:   LCALL      DL05S
                   LCALL      DL05S
                   RET
          DL05S:   MOV        R3,#20H      ;8毫秒*32=0.196秒
          DL05S1:  LCALL      DISPLAY
                   DJNZ       R3,DL05S1
                   RET
;
                   END                     ;程序结束