adqz.a

3000TB51配套实验例程 1八段数码管显示实验 等

;电子琴实验
;连线P1.0---VSIN


	OUTBIT   equ 0e101h
	IN       equ 0e103h
	Pulse    equ 0
	PulseCNT equ 50h
	ToneHigh equ 51h
	ToneLow  equ 52h


                  LJMP  STAR                       
;==========================================================================
MIAN:		 DB  00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H	;........
MIAN1:		 DB  02H, 00H,0D0H	;...
;==========================================================================
INTS1:             MOV   DPTR,#0E100H                
                   MOV   A,#03H                       
                   MOVX  @DPTR,A                     
                   MOV   TMOD,#01H                    
                   MOV   IE,#82H                     
INTS2:             MOV   A,#0FFH                     
                   JZ    INTS2                       
                   LCALL KEY1                       
                   MOV   R4,07H                       
                   MOV   A,R4                         
                   CLR   C                            
                   SUBB  A,#01H                       
                   JC    INTS2                       
                   MOV   A,R4                        
                   SETB  C                            
                   SUBB  A,#07H                       
                   JNC   INTS2                        
                   MOV   A,R4                         
                   ADD   A,ACC                       
                   ADD   A,#0C0H                     
                   MOV   DPL,A                        
                   CLR   A                           
                   ADDC  A,#00H                       
                   MOV   DPH,A                        
                   CLR   A                            
                   MOVC  A,@A+DPTR                    
                   MOV   R2,A                         
                   MOV   A,#01H                       
                   MOVC  A,@A+DPTR                   
                   MOV   R3,A                         
                   MOV   A,R2                         
                   MOV   09H,A                        
                   MOV   08H,#00H                    
                   MOV   0AH,#00H                     
                   MOV   0BH,R3                      
                   MOV   TH0,A                        
                   MOV   TL0,0BH                      
                   SETB  TR0                          
                   MOV   0CH,#0C8H                    
KEY:             MOV   A,0CH                        
                   JNZ   KEY                       
                   CLR   TR0                          
                   SJMP  INTS2                       
KEY1:             MOV   R7,#06H                     
                   MOV   R6,#20H                      
KEY2:             MOV   A,R6                         
                   CPL   A                            
                   MOV   DPTR,#0E101H                 
                   MOVX  @DPTR,A                     
                   MOV   A,R6                         
                   CLR   C                            
                   RRC   A                            
                   MOV   R6,A                        
                   MOV   DPTR,#0E103H                
                   MOVX  A,@DPTR                      
                   CPL   A                            
                   ANL   A,#0FH                      
                   MOV   R5,A                        
                   DEC   R7                           
                   MOV   A,R7                         
                   JZ    KEY3                        
                   MOV   A,R5                         
                   JZ    KEY2                        
KEY3:             MOV   A,R5                         
                   JZ    TONE3                        
                   MOV   A,R7                         
                   ADD   A,ACC                        
                   ADD   A,ACC                        
                   MOV   R7,A                        
                   MOV   A,R5                         
                   JNB   ACC.1,TONE                  
                   INC   R7                          
                   SJMP  TONE2
;==========================                        
TONE:             MOV   A,R5                         
                   JNB   ACC.2,TONE1                 
                   INC   R7                           
                   INC   R7                           
                   SJMP  TONE2                        
TONE1:             MOV   A,R5                         
                   JNB   ACC.3,TONE2                  
                   INC   R7                           
                   INC   R7                           
                   INC   R7                          
TONE2:             MOV   DPTR,#0E101H                 
                   CLR   A                            
                   MOVX  @DPTR,A                      
                   MOV   A,R7                         
                   MOV   DPTR,#00AAH                  
                   MOVC  A,@A+DPTR                    
                   MOV   R7,A                         
                   RET                                
;==========================================================================
TONE3:             MOV   R7,#0FFH                     
                   RET                                
;==========================================================================
Q00AA:		 DB  00H, 01H, 04H, 07H, 0FH, 02H, 05H, 08H	
Q00B2:		 DB  0EH, 03H, 06H, 09H, 0DH, 0CH, 0BH, 0AH	
Q00BA:		 DB  10H, 10H, 10H, 10H, 10H, 10H, 10H, 10H	
Q00C2:		 DB 0FCH, 42H,0FCH,0AEH,0FDH, 0AH,0FDH, 35H	
Q00CA:		 DB 0FDH, 82H,0FDH,0C8H,0FEH, 05H,0C0H,0D0H	
Q00D2:		 DB 0C2H, 8CH, 85H, 09H, 8CH, 85H, 0BH, 8AH	
Q00DA:		 DB 0D2H, 8CH,0A2H, 00H, 92H, 90H,0B2H, 00H	
Q00E2:		 DB  15H, 0CH,0D0H,0D0H, 32H, 90H,0E1H, 01H	
Q00EA:		 DB 0E4H,0F0H, 90H,0E1H, 03H,0E0H,0F4H, 54H	
Q00F2:		 DB  0FH,0FFH, 22H	;.."
;==========================================================================
STAR:             MOV   R0,#7FH                      
                   CLR   A                            
STAR1:             MOV   @R0,A                        
                   DJNZ  R0,STAR1                     
                   MOV   SP,#20H                      
                   LJMP  INTS1                        
;==========================================================================
END