at89c2051.asm

AT89C2051做控制电路定时器,可做电动车充电器充电时间控制,电饭锅等

;     AT89C2051＋74LS47电子计时器.hex
;      IC Body: MCS-51  
;      Date: 2008-9-8

                   ORG   0000H
Q0000:             LJMP  Q0575                        
;==========================================================================
Q0003:		 DB  00H, 00H, 00H, 00H, 00H, 00H, 00H, 00H	
Q000B:		 DB  02H, 02H, 0CH	;...
;==========================================================================
Q000E:             MOV   R3,#00H                      
                   MOV   R2,#00H                      
                   MOV   R1,#08H                      
                   MOV   13H,#02H                     
                   MOV   R5,#20H                      
                   MOV   R7,#0A0H                     
                   LCALL Q02F9                        
                   MOV   R7,#0FFH                     
                   LCALL Q056E                        
                   MOV   R3,#00H                   
                   MOV   R2,#00H                      
                   MOV   R1,#0AH                    
                   MOV   13H,#02H                     
                   MOV   R5,#40H                      
                   MOV   R7,#0A0H                     
                   LCALL Q02F9                        
                   MOV   R7,#0FFH                     
                   LCALL Q056E                        
                   MOV   R3,#00H                      
                   MOV   R2,#00H                      
                   MOV   R1,#0CH                      
                   MOV   13H,#02H                     
                   MOV   R5,#60H                      
                   MOV   R7,#0A0H                     
                   LCALL Q02F9                       
                   CLR   A                            
                   MOV   R7,A                         
Q004A:             MOV   A,#0AH                      
                   ADD   A,R7                         
                   MOV   R0,A                        
                   MOV   A,@R0                        
                   MOV   R6,A                         
                   MOV   A,#08H                      
                   ADD   A,R7                        
                   MOV   R0,A                       
                   MOV   A,@R0                       
                   CJNE  A,06H,Q005C                  
                   INC   R7                           
                   CJNE  R7,#02H,Q004A                
Q005C:             CJNE  R7,#02H,Q0063                
                   SETB  20H.4                        
                   SJMP  Q0065                       
Q0063:             CLR   20H.4                        
Q0065:             CLR   A                            
                   MOV   R7,A                         
Q0067:             MOV   A,#0CH                      
                   ADD   A,R7                         
                   MOV   R0,A                        
                   MOV   A,@R0                       
                   MOV   R6,A                         
                   MOV   A,#0AH                       
                   ADD   A,R7                        
                   MOV   R0,A                        
                   MOV   A,@R0                        
                   CJNE  A,06H,Q0079                  
                   INC   R7                           
                   CJNE  R7,#02H,Q0067                
Q0079:             CJNE  R7,#02H,Q0080                
                   SETB  20H.5                        
                   SJMP  Q0082                        
Q0080:             CLR   20H.5                        
Q0082:             CLR   A                            
                   MOV   R7,A                         
Q0084:             MOV   A,#0CH                       
                   ADD   A,R7                         
                   MOV   R0,A                        
                   MOV   A,@R0                        
                   MOV   R6,A                         
                   MOV   A,#08H                       
                   ADD   A,R7                         
                   MOV   R0,A                         
                   MOV   A,@R0                        
                   CJNE  A,06H,Q0096                  
                   INC   R7                           
                   CJNE  R7,#02H,Q0084                
Q0096:             CJNE  R7,#02H,Q009D                
                   SETB  20H.6                       
                   SJMP  Q009F                       
Q009D:             CLR   20H.6                        
Q009F:             JB    20H.4,Q00A5                  
                   JNB   20H.6,Q00AD                  
Q00A5:             MOV   16H,08H                      
                   MOV   17H,09H                      
                   SJMP  Q00BF                        
Q00AD:             JNB   20H.5,Q00B8                  
                   MOV   16H,0AH                      
                   MOV   17H,0BH                      
                   SJMP  Q00BF                        
Q00B8:             CLR   EA                           
                   CLR   A                           
                   MOV   17H,A                       
                   MOV   16H,A                        
Q00BF:             MOV   A,16H                        
                   SETB  C                           
                   SUBB  A,#63H                       
                   JNC   Q00CC                       
                   MOV   A,16H                        
                   SUBB  A,#3BH                      
                   JC    Q00D3                        
Q00CC:             CLR   A                            
                   MOV   17H,A                        
                   MOV   16H,A                        
                   CLR   EA                           
Q00D3:             MOV   A,16H                        
                   JNZ   Q00DD                       
                   MOV   A,17H                        
                   JNZ   Q00DD                       
                   CLR   EA                          
Q00DD:             SETB  20H.1                        
                   RET                                
;==========================================================================
Q00E0:             CJNE  R3,#01H,Q00EF               
                   MOV   A,DPL                        
                   ADD   A,R1                         
                   MOV   DPL,A                       
                   MOV   A,DPH                       
                   ADDC  A,R2                         
                   MOV   DPH,A                       
                   MOVX  A,@DPTR                     
                   RET                                
;==========================================================================
Q00EF:             JNC   Q00F7                       
                   MOV   A,R1                         
                   ADD   A,DPL                        
                   MOV   R0,A                         
                   MOV   A,@R0                        
                   RET                               
;==========================================================================
Q00F7:             CJNE  R3,#0FEH,Q0100               
                   MOV   A,R1                        
                   ADD   A,DPL                        
                   MOV   R0,A                         
                   MOVX  A,@R0                       
                   RET                               
;==========================================================================
Q0100:             MOV   A,DPL                        
                   ADD   A,R1                         
                   MOV   DPL,A                        
                   MOV   A,DPH                        
                   ADDC  A,R2                        
                   MOV   DPH,A                        
                   CLR   A                            
                   MOVC  A,@A+DPTR                    
                   RET                               
;==========================================================================
Q010D:             MOV   R0,A                         
                   CJNE  R3,#01H,Q011E               
                   MOV   A,DPL                        
                   ADD   A,R1                        
                   MOV   DPL,A                        
                   MOV   A,DPH                        
                   ADDC  A,R2                         
                   MOV   DPH,A                        
                   MOV   A,R0                        
                   MOVX  @DPTR,A                      
                   RET                               
;==========================================================================
Q011E:             JNC   Q0126                       
                   MOV   A,R1                        
                   ADD   A,DPL                        
                   XCH   A,R0                         
                   MOV   @R0,A                       
                   RET                                
;==========================================================================
Q0126:             CJNE  R3,#0FEH,Q012E               
                   MOV   A,R1                         
                   ADD   A,DPL                        
                   XCH   A,R0                        
                   MOVX  @R0,A                        
Q012E:             RET                               
;==========================================================================
Q012F:		 DB 0BCH, 00H, 0BH,0BEH, 00H, 29H,0EFH, 8DH	
Q0137:		 DB 0F0H, 84H,0FFH,0ADH,0F0H, 22H,0E4H,0CCH	
Q013F:		 DB 0F8H, 75H,0F0H, 08H,0EFH, 2FH,0FFH,0EEH	
Q0147:		 DB  33H,0FEH,0ECH, 33H,0FCH,0EEH, 9DH,0ECH	
Q014F:		 DB  98H, 40H, 05H,0FCH,0EEH, 9DH,0FEH, 0FH	
Q0157:		 DB 0D5H,0F0H,0E9H,0E4H,0CEH,0FDH, 22H,0EDH	
Q015F:		 DB 0F8H,0F5H,0F0H,0EEH, 84H, 20H,0D2H, 1CH	
Q0167:		 DB 0FEH,0ADH,0F0H, 75H,0F0H, 08H,0EFH, 2FH	
Q016F:		 DB 0FFH,0EDH, 33H,0FDH, 40H, 07H, 98H, 50H	
Q0177:		 DB  06H,0D5H,0F0H,0F2H, 22H,0C3H, 98H,0FDH	
Q017F:		 DB  0FH,0D5H,0F0H,0EAH, 22H	
;==========================================================================
Q0184:             MOV   A,15H                        
                   ADD   A,#0FEH                     
                   JZ    Q019D                        
                   DEC   A                            
                   JZ    Q01C1                       
                   DEC   A                           
                   JZ    Q01E4                       
                   ADD   A,#03H                       
                   JNZ   Q0205                       
                   CPL   EA                          
                   JNB   EA,Q0208                     
                   SETB  20H.2                        
                   SJMP  Q0208                        
Q019D:             SETB  EA                          
                   JNB   20H.0,Q01BA                  
                   MOV   A,14H                        
                   CJNE  A,#01H,Q01AC                 
                   MOV   14H,#02H                     
                   SJMP  Q01B3                        
Q01AC:             CLR   A                            
                   MOV   14H,A                        
                   CLR   20H.0                        
                   CLR   EA                           
Q01B3:             CLR   A                            
                   MOV   1CH,A                        
                   MOV   1DH,A                        
                   SJMP  Q0208                        
Q01BA:             SETB  20H.0                        
                   MOV   14H,#01H                     
                   SJMP  Q0208                        
Q01C1:             MOV   A,14H                        
                   CJNE  A,#01H,Q01D4                 
                   MOV   A,16H                        
                   CJNE  A,#63H,Q01D0                 
                   CLR   A                            
                   MOV   16H,A                        
                   SJMP  Q01E0                        
Q01D0:             INC   16H                          
                   SJMP  Q01E0                        
Q01D4:             MOV   A,17H