keyscan_8.asm

单片机汇编例程学习,大量的汇编例程

;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----[phone]
;[e-mail]
;本程序实现每按"b"键一次,按"C"键一次,再按“D”键一次则向上加一功能.
;占用的位资源：20h,21h
;占用的字节资源：30h,31h,32h,33h,34h,r2,r5,r6,r7,a
;按键行列值表示如下：
;----P1.7---P1.6---P1.5---P1.4-------
;----03H----02H----01H----00H----P1.0
;----07H----06H----05H----04H----P1.1
;----0BH----0AH----09H----08H----P1.2
;----0FH----0EH----0DH----0CH----P1.3
;///////////////////////////////////////////
org	0000h
ajmp	main
org	0030h
main:
	mov	dptr,#tab            ;将表头地址送入DPTR                 
	mov   30h,#00h           ;以下四条指令是将显示缓冲单元清零   
	mov   31h,#00h                       
	mov   32h,#00h                       
	mov   33h,#00h                       
	mov	37h,#00h             ;软件计数器,决定延时时间
	clr 20h				     ;B键按下标志位
	clr 21h				     ;c键按下标志位
loop:                                        
	lcall display		             
	lcall	key			     	
	cpl	a			    	 ;
	jz		loop		     ;无键按下跳转
	mov	a,34h                        
	mov 32h,34h			     ;键值存入32H以便显示
	cjne	a,#0bh,tt2;                  
	setb 20h				 ;标志B键已经按下
	tt2:cjne	a,#0ch,tt3           
   	jnb 20h,loop			 ;                    
	setb 21h			     ;标志C键已经按下
	tt3:cjne   a,#0dh,loop               
   	jnb 21h,loop                              
	clr	20h                  
	clr	21h                  
tt5:lcall	incdigit                     
	ljmp	loop                         
                                             
incdigit:                                    
	inc	30h                   ;将30H单元中的数加一                               
	mov	a,30h                 ;将30H单元的值送入ACC                              
	cjne	a,#10,incdelay    ;ACC中的值与10不相等跳转                           
	mov	30h,#00h	          ;ACC中的值与10相等,把30H单元的值清零               
	inc	31h                   ;31H单元向上加一                                   
	mov	a,31h                 ;将31H单元的值送入ACC	                           
	cjne	a,#6,incdelay     ;ACC中的值与6不相等跳转                            
	mov	31h,#00h		      ;将31H单元清零	                                   	
incdelay:	                             
	ret
		
	
display:
		mov  p2,#0ffh        ;将P2口置高电平                               
		mov r7,#100          ;软件计数器赋值                               
dd1:                                                                                      
		mov a,30h            ;将显示缓冲区30H中的值送入ACC                 
		movc a,@a+dptr       ;查表取要显示的数并把查表的结果送入ACC        
		mov p0,a             ;将要显示的数送入P0口                         
		clr p2.0             ;开个位显示单元                               
		lcall delay100us     ;延时100US                                    
		setb p2.0            ;关个位显示单                                 
                                                                                           
		mov a,31h            ;将显示缓冲区别31H中的值送入A                 
		movc a,@a+dptr       ;查表取要显示的数并把查表的结果送入ACC        
		mov p0,a             ;将要显示的数送入P0口                         
		clr p2.1             ;开十位显示单元                               
		lcall delay100us     ;延时100US                                    
		setb p2.1            ;关十位显示单元                               
                                                                                       
		mov a,32h             ;将显示缓冲区32H中的值送入ACC                
		movc a,@a+dptr        ;查表取要显示的数并把查表的结果送入ACC       
		mov p0,a              ;将要显示的数送入P0口                        
		clr p2.2              ;开百位显示单元                              
		lcall delay100us      ;延时100US                                   
		setb p2.2             ;关百位显示单元                              
                                                                                       
		mov a,33h             ;将显示缓冲区33H中的值送入ACC                
		movc a,@a+dptr        ;查表取要显示的数并把查表的结果送入ACC       
		mov p0,a              ;将要显示的数送入P0口                        
		clr p2.3              ;开千位显示单元                              
		lcall delay100us      ;延时100US                                   
		setb p2.3             ;关千位显示单元                              
		djnz r7,dd1           ;R7不等于0返回至DD1处                        
		ret                   ;R7等于0子程序返回                           
	
KEY: LCALL KS				  ;调用检测按键子程序                         
     JNZ K1                   ;有键按下继续                               
	  ljmp	key_exit          ;无键按下退出KEY子程序                      
K1:  LCALL delay4ms           ;返回继续检测有无按键按下                   
     LCALL delay4ms                                                                       
     LCALL KS                 ;有键按下继续延时去抖动                     
     JNZ K2                   ;再一次调用检测按键程序                     
	  ljmp	key_exit          ;无键按下退出KEY子程序                      
K2:	MOV R2,#0EFH              ;将扫描值送入 R2暂存                        
     MOV R4,#00H              ;将第一列的列值00H送入R4暂存,R4用于存放列   
K3:	MOV P1,R2                 ;将R2的值送入P1口                           
L6:	JB P1.0,L1                ;P1.0等于1跳转到L1                          
     MOV A,#00H               ;将第一行的行值00H送入ACC                   
     AJMP LK                  ;跳转到键值处理程序                         
L1:	JB P1.1,L2                ;P1.1等于1跳转到L2                          
     MOV A,#04H               ;将第二行的行值04H送入ACC                   
     AJMP LK                  ;跳转到键值理程序进行键值处理               
L2: JB P1.2,L3                ;P1.2等于1跳转到L3                          
     MOV A,#08H               ;将第三行的行值08H送入ACC                   
     AJMP LK                  ;跳转到键值处理程序                         
L3:	JB P1.3,NEXT              ;P1.3等于1跳转到NEXT处                      
     MOV A,#0cH               ;将第四行的行值0CH送入ACC                   
LK:	ADD A,R4                  ;行值与列值相加后的键值送入A                
		mov	34h,a             ;将A中的值送入34h暂存                       
     RET                      ;有键按下立即返回                           
                			      
                                              
NEXT:                                         
    INC  R4                   ;将列值加一                                 
    MOV A,R2                  ;将R2的值送入A                              
    JNB ACC.7,key_exit        ;扫描完成跳至KEY处进行下一回合的扫描        
    RL A                      ;扫描未完成将A中的值右移一位进行下一列的扫描
    MOV R2,A                  ;将ACC的值送入R2暂存                        
    AJMP K3                   ;跳转到K3继续                               
key_exit:                                                                                 
	mov a,#0ffh               ;无键按下则将A赋成0FFH。                    
	ret                                                                       
                                                                                          
KS:	MOV P1,#0FH               ;将P1口高四位置0低四位值1                   
     MOV A,P1                 ;读P1口                                     
     XRL A,#0FH               ;将A中的值与A中的值相异或                   
     RET                      ;子程序返回                                 
delay4ms:				      ;4ms
    MOV R5,#08H
L7:	MOV R6,#0FAH
L8:	DJNZ R6,L8
    DJNZ R5,L7
    RET

delay100us:
	mov r5,#50
	djnz	r5,$
	ret

tab:	db	0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0a1h,86h,8eh
end