keyscan_4.asm

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

;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----[phone]
;[e-mail]
;本程序实现按住"B"键不动则每秒钟向上加一功能.
;按键行列值表示如下：
;----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               			;将30显示单元清零                   
	mov   31h,#00h               			;将30显示单元清零                   
	mov   32h,#00h               			;将30显示单元清零                   
	mov   33h,#00h               			;将30显示单元清零                   
	mov	37h,#00h             			;软件计数器,决定延时时间.           
loop:                                			                                    
	lcall display		    ;			;调用显示程序                       
	lcall	key						;调用键盘描程序                     
	cpl	a                    			;将A的值取反                        
	jz		loop         			;无键键按下则返回                   
	mov	a,34h                			;有键按下将键值送入ACC              
	cjne	a,#0bh,loop          			;若C键未按下则返回到LOOP处          
	lcall	incdigit             			;若C键按下则调用向上加一子程序      
	ljmp	loop                 			;加一完成后返回LOOP处不断的循环     
incdigit:                            			                                    
	inc	30h                  			;有键按下将键值送入ACC 
	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:	                     			;此延时子程序决定显示增加的快慢
	lcall display
	inc	37h
	mov	a,37h
	cjne	a,#20,incdelay
	mov	37h,#00h
	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暂存                        
K4:							
     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