a4_3.asm

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

;///////////////////////////////////////////
;本程序源代码由单片机培训网提供.
;单片机培训网,让更多人学习单片机更容易.
;第一网址----www.mcuedu.com
;第二网址----http://51_train.nease.net
;创办人------刘永忠
;热线电话----[phone]
;[e-mail]
;输入端口的应用
;程序难易等级--------稍难
;///////////////////////////////////////////
	org	0000h						;起始地址
	jmp	main
	org	0030h
main:
	mov	p2,#11111110b		;P20亮
	lcall key
        mov a,34h
cjne a,#00h,tt1			
on:
	mov	p2,#11111001b		
tt1:cjne a,#01h,main		
	jmp	on
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:	                        	                 ;                                            
	lcall delay4ms
   lcall delay4ms          	                 ;调用动态显示子程序                          
     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



							;未按P11,则跳至ON继续保持
	end