at89c2051.asm

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

                   MOV   0BH,R2                       
                   MOV   0CH,R1                       
                   LCALL Q053F                        
                   LCALL Q03B8                        
                   JB    21H.0,Q040B                  
                   CLR   C                            
                   RET                                
;==========================================================================
Q040B:             MOV   R7,05H                       
                   LCALL Q03B8                        
                   JB    21H.0,Q0415                  
                   CLR   C                            
                   RET                                
;==========================================================================
Q0415:             CLR   A                            
                   MOV   R5,A                         
Q0417:             MOV   A,R5                         
                   CLR   C                            
                   SUBB  A,0DH                        
                   JNC   Q0437                        
                   MOV   R3,0AH                       
                   MOV   R2,0BH                       
                   MOV   R1,0CH                       
                   MOV   DPL,R5                       
                   MOV   DPH,#00H                     
                   LCALL Q00E0                        
                   MOV   R7,A                         
                   LCALL Q03B8                        
                   JB    21H.0,Q0434                  
                   CLR   C                            
                   RET                                
;==========================================================================
Q0434:             INC   R5                           
                   SJMP  Q0417                        
Q0437:             LCALL Q0555                        
                   SETB  C                            
                   RET                                
;==========================================================================
Q043C:             JNB   20H.2,Q047A                  
                   MOV   R3,#00H                      
                   MOV   R2,#00H                      
                   MOV   R1,#16H                      
                   MOV   0DH,#02H                     
                   MOV   R5,#20H                      
                   MOV   R7,#0A0H                     
                   LCALL Q03FA                        
                   LCALL Q0567                        
                   MOV   R3,#00H                      
                   MOV   R2,#00H                      
                   MOV   R1,#16H                      
                   MOV   0DH,#02H                     
                   MOV   R5,#40H                      
                   MOV   R7,#0A0H                     
                   LCALL Q03FA                        
                   LCALL Q0567                        
                   MOV   R3,#00H                      
                   MOV   R2,#00H                      
                   MOV   R1,#16H                      
                   MOV   0DH,#02H                     
                   MOV   R5,#60H                      
                   MOV   R7,#0A0H                     
                   LCALL Q03FA                        
                   LCALL Q0567                        
                   CLR   20H.2                        
Q047A:             RET                                
;==========================================================================
Q047B:             JNB   20H.1,Q04A2                  
                   MOV   A,16H                        
                   MOV   B,#0AH                      
                   DIV   AB                           
                   MOV   18H,A                        
                   MOV   A,16H                        
                   MOV   B,#0AH                       
                   DIV   AB                           
                   MOV   19H,B                        
                   MOV   A,17H                        
                   MOV   B,#0AH                       
                   DIV   AB                           
                   MOV   1AH,A                        
                   MOV   A,17H                        
                   MOV   B,#0AH                       
                   DIV   AB                           
                   MOV   1BH,B                        
                   CLR   20H.1                        
Q04A2:             RET                                
;==========================================================================
Q04A3:             CLR   A                            
                   MOV   R7,A                         
                   SETB  P3.0                         
                   MOV   R6,A                         
Q04A8:             NOP                                
                   CLR   P3.1                         
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                               
                   NOP                                
                   SETB  P3.1                         
                   NOP                                
                   NOP                                
                   MOV   A,R7                         
                   ADD   A,ACC                        
                   MOV   R7,A                         
                   JNB   P3.0,Q04BE                   
                   ORL   07H,#01H                     
Q04BE:             NOP                                
                   NOP                                
                   INC   R6                           
                   CJNE  R6,#08H,Q04A8                
                   CLR   P3.1                         
                   NOP                                
                   NOP                                
                   RET                                
;==========================================================================
Q04C9:             MOV   A,16H                        
                   JNZ   Q04D5                        
                   MOV   A,17H                        
                   JNZ   Q04D5                        
                   SETB  P3.7                         
                   SJMP  Q04D7                        
Q04D5:             CLR   P3.7                         
Q04D7:             MOV   A,16H                        
                   SETB  C                            
                   SUBB  A,#63H                       
                   JNC   Q04E4                        
                   MOV   A,17H                        
                   SUBB  A,#3BH                       
                   JC    Q04EB                        
Q04E4:             SETB  20H.1                        
                   CLR   A                            
                   MOV   17H,A                        
                   MOV   16H,A                        
Q04EB:             RET                                
;==========================================================================
Q04EC:             MOV   R7,#0FFH                     
Q04EE:             MOV   R6,07H                       
                   DEC   R7                           
                   MOV   A,R6                         
                   JNZ   Q04EE                        
                   CLR   20H.0                        
                   CLR   20H.1                        
                   CLR   A                            
                   MOV   1CH,A                        
                   MOV   1DH,A                        
                   MOV   TMOD,#11H                    
                   MOV   TH0,#46H                     
                   MOV   TL0,#30H                     
                   SETB  EA                           
                   SETB  ET0                          
                   SETB  TR0                          
                   RET                                
;==========================================================================
Q050D:             LCALL Q04EC                        
                   LCALL Q000E                        
Q0513:             LCALL Q047B                        
                   LCALL Q043C                        
                   LCALL Q028B                        
                   LCALL Q0367                        
                   LCALL Q0184                        
                   LCALL Q04C9                        
                   SJMP  Q0513                        
Q0527:             JB    20H.7,Q052E                  
                   CLR   P3.0                         
                   SJMP  Q0530                        
Q052E:             SETB  P3.0                         
Q0530:             NOP                                
                   NOP                                
                   NOP                                
                   SETB  P3.1                         
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   CLR   P3.1                         
                   NOP                                
                   NOP                                
                   RET                                
;==========================================================================
Q053F:             SETB  P3.0                         
                   NOP                                
                   SETB  P3.1                         
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   CLR   P3.0                         
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   CLR   P3.1                         
                   NOP                                
                   NOP                                
                   RET                                
;==========================================================================
Q0555:             CLR   P3.0                         
                   NOP                                
                   NOP                                
                   SETB  P3.1                         
                   NOP                                
                   NOP                                
                   NOP                               
                   NOP                                
                   NOP                                
                   SETB  P3.0                         
                   NOP                                
                   NOP                                
                   NOP                                
                   NOP                                
                   RET                                
;==========================================================================
Q0567:             MOV   R7,#0FFH                     
                   LCALL Q056E                        
                   MOV   R7,#0FFH                     
Q056E:             MOV   R6,07H                       
                   DEC   R7                           
                   MOV   A,R6                         
                   JNZ   Q056E                        
                   RET                                
;==========================================================================
Q0575:             MOV   R0,#7FH                      
                   CLR   A                            
Q0578:             MOV   @R0,A                        
                   DJNZ  R0,Q0578                     
                   MOV   SP,#21H                      
                   LJMP  Q050D                        
;==========================================================================
                   END