keyscan_1.asm

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

;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----[phone]
;[e-mail]
;本程序实现铵键的移位显示功能
;按键行列值表示如下：
;----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                          ;将30H个位显示缓冲单元清零        
	mov   31h,#00h                          ;将31H十位显示缓冲单元清零        
	mov   32h,#00h                          ;将32H百位显示缓冲单元清零        
	mov   33h,#00h                          ;将33H千位显示缓冲单元清零        
loop:                                               
	lcall display		                    ;调用显示程序           
	lcall	key		                    ;调用键盘描程序         
	cpl	a                                   ;将A的值取反           
	jz		loop                        ;无键键按下则返回      
	mov	33h,32h                             ;将32H显示单元的内容送入33H
	mov 	32h,31h                             ;将31H显示单元的内容送入32H
	mov 	31h,30h                             ;将30H单元的内容送入31H
	mov	a,34h                               ;将键值送入ACC
	mov	30h,a                               ;将ACC的值送入30H
	ljmp	loop                                ;返回主程序循环
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                                     ;将第二行的行值送入ACC                    
     AJMP LK                                        ;跳转到键值理程序进行键值处理             
L2: JB P1.2,L3                                      ;P1.2等于1跳转到L3                        
     MOV A,#08H                                     ;将第三行的行值送入ACC                    
     AJMP LK                                        ;跳转到键值处理程序                       
L3:	JB P1.3,NEXT                                ;P1.3等于1跳转到NEXT处                    
     MOV A,#0cH                                     ;将第四行的行值送入ACC                    
LK:	ADD A,R4                                    ;行值与列值相加后的键值送入A              
		mov	34h,a                       ;将A中的值送入34h暂存
K4:	;LCALL delay4ms                             ;
		lcall display                       ;调用动态显示子程序
     LCALL KS                                       ;
     JNZ 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:                                          ;100US延时程序
			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