源程序.asm

pt2272与2262完全仿真程序

L0001:     LJMP  L0169                        
           AJMP  L0119                        
L0002:     MOV   R7,#40H                      
           ACALL L0171                        
           MOV   R3,#0FFH                     
           MOV   R2,#06H                      
           MOV   R1,#0CH                      
           ACALL L0148                        
           SETB  21H.5                        
           LCALL L0014                        
           CLR   A                            
           MOV   32H,A                        
           MOV   P3,#0FFH                     
           MOV   R7,32H                       
           ACALL L0171                        
L0003:     MOV   A,25H                        
           XRL   A,#02H                       
           JZ    L0004                        
           AJMP  L0013                        
L0004:     ACALL L0151                        
           MOV   08H,R7                       
           MOV   A,08H                        
           JZ    L0003                        
           MOV   A,08H                        
           CJNE  A,#0EH,L0005                 
           ACALL L0137                        
           SJMP  L0003                        
L0005:     MOV   A,08H                        
           CJNE  A,#0DH,L0006                 
           ACALL L0104                        
           SJMP  L0003                        
L0006:     MOV   A,08H                        
           CJNE  A,#07H,L0003                 
           CLR   21H.5                        
L0007:     JNB   21H.5,L0008                  
           AJMP  L0012                        
L0008:     MOV   R7,#4AH                      
           ACALL L0171                        
           MOV   R3,#0FFH                     
           MOV   R2,#06H                      
           MOV   R1,#1AH                      
           ACALL L0148                        
           JB    21H.4,L0010                  
           MOV   R7,3AH                       
           ACALL L0158                        
           MOV   3AH,R7                       
           MOV   A,3AH                        
           XRL   A,#88H                       
           JNZ   L0009                        
           MOV   R7,39H                       
           ACALL L0158                        
           MOV   39H,R7                       
           MOV   A,39H                        
           XRL   A,#88H                       
           JNZ   L0009                        
           MOV   R7,38H                       
           ACALL L0158                        
           MOV   38H,R7                       
           MOV   A,38H                        
           XRL   A,#88H                       
           JNZ   L0009                        
           MOV   R7,37H                       
           ACALL L0158                        
           MOV   37H,R7                       
           MOV   A,37H                        
           XRL   A,#88H                       
           JNZ   L0009                        
           MOV   R7,36H                       
           ACALL L0158                        
           MOV   36H,R7                       
           MOV   A,36H                        
           CJNE  A,#88H,L0009                 
           MOV   R7,35H                       
           ACALL L0158                        
           MOV   35H,R7                       
           MOV   A,35H                        
           CJNE  A,#88H,L0009                 
           MOV   R7,34H                       
           ACALL L0158                        
           MOV   34H,R7                       
           MOV   A,34H                        
           CJNE  A,#88H,L0009                 
           MOV   R7,33H                       
           ACALL L0158                        
           MOV   33H,R7                       
L0009:     ACALL L0142                        
           SJMP  L0007                        
L0010:     MOV   R7,3AH                       
           ACALL L0161                        
           MOV   3AH,R7                       
           MOV   A,3AH                        
           XRL   A,#0EEH                      
           JNZ   L0011                        
           MOV   R7,39H                       
           ACALL L0161                        
           MOV   39H,R7                       
           MOV   A,39H                        
           XRL   A,#0EEH                      
           JNZ   L0011                        
           MOV   R7,38H                       
           ACALL L0161                        
           MOV   38H,R7                       
           MOV   A,38H                        
           XRL   A,#0EEH                      
           JNZ   L0011                        
           MOV   R7,37H                       
           ACALL L0161                        
           MOV   37H,R7                       
           MOV   A,37H                        
           XRL   A,#0EEH                      
           JNZ   L0011                        
           MOV   R7,36H                       
           ACALL L0161                        
           MOV   36H,R7                       
           MOV   A,36H                        
           CJNE  A,#0EEH,L0011                
           MOV   R7,35H                       
           ACALL L0161                        
           MOV   35H,R7                       
           MOV   A,35H                        
           CJNE  A,#0EEH,L0011                
           MOV   R7,34H                       
           ACALL L0161                        
           MOV   34H,R7                       
           MOV   A,34H                        
           CJNE  A,#0EEH,L0011                
           MOV   R7,33H                       
           ACALL L0161                        
           MOV   33H,R7                       
L0011:     ACALL L0142                        
           AJMP  L0007                        
L0012:     LCALL L0014                        
           AJMP  L0003                        
L0013:     RET                                
L0014:     MOV   R7,#4AH                      
           ACALL L0171                        
           MOV   R3,#0FFH                     
           MOV   R2,#06H                      
           MOV   R1,#15H                      
           ACALL L0148                        
           RET                                
L0015:     ACALL L0134                        
           ACALL L0166                        
           MOV   R7,#04H                      
           MOV   R0,#33H                      
           MOV   A,#88H                       
L0016:     MOV   @R0,A                        
           INC   R0                           
           DJNZ  R7,L0016                     
           MOV   R7,#04H                      
           MOV   R0,#37H                      
           MOV   A,#8EH                       
L0017:     MOV   @R0,A                        
           INC   R0                           
           DJNZ  R7,L0017                     
           MOV   R7,#03H                      
           MOV   R0,#3CH                      
           MOV   A,#88H                       
L0018:     MOV   @R0,A                        
           INC   R0                           
           DJNZ  R7,L0018                     
           MOV   3BH,#0EEH                    
           CLR   A                            
           MOV   R7,A                         
L0019:     MOV   A,#3FH                       
           ADD   A,R7                         
           MOV   R0,A                         
           MOV   @R0,#03H                     
           MOV   A,#43H                       
           ADD   A,R7                         
           MOV   R0,A                         
           CLR   A                            
           MOV   @R0,A                        
           INC   R7                           
           CJNE  R7,#03H,L0019                
           MOV   42H,#80H                     
           MOV   25H,#01H                     
           ACALL L0090                        
L0020:     MOV   A,25H                        
           JNZ   L0030                        
           MOV   R7,#40H                      
           ACALL L0171                        
           MOV   R3,#0FFH                     
           MOV   R2,#05H                      
           MOV   R1,#0F1H                     
           ACALL L0148                        
L0021:     JB    21H.0,L0026                  
           MOV   A,25H                        
           JNZ   L0026                        
L0022:     JB    21H.2,L0023                  
           ACALL L0098                        
           MOV   A,25H                        
           JZ    L0022                        
L0023:     MOV   C,21H.1                      
           JNB   P1.0,L0024                   
           CPL   C                            
L0024:     JNC   L0021                        
           MOV   C,P1.0                       
           MOV   21H.1,C                      
           JNB   21H.1,L0025                  
           SETB  TR0                          
           ACALL L0081                        
           SJMP  L0021                        
L0025:     ACALL L0115                        
           SJMP  L0021                        
L0026:     JNB   21H.0,L0027                  
           ACALL L0063                        
L0027:     ACALL L0090                        
           MOV   R7,#40H                      
           ACALL L0171                        
           MOV   R3,#0FFH                     
           MOV   R2,#05H                      
           MOV   R1,#0FAH                     
           ACALL L0148                        
L0028:     JNB   P3.3,L0029                   
           MOV   A,25H                        
           JZ    L0028                        
L0029:     ACALL L0134                        
           SJMP  L0020                        
L0030:     MOV   A,25H                        
           CJNE  A,#01H,L0031                 
           ACALL L0110                        
           SJMP  L0020                        
L0031:     ACALL L0002                        
           SJMP  L0020                        
L0032:     CJNE  R3,#01H,L0033                
           MOV   A,DPL                        
           ADD   A,R1                         
           MOV   DPL,A                        
           MOV   A,DPH                        
           ADDC  A,R2                         
           MOV   DPH,A                        
           MOVX  A,@DPTR                      
           RET                                
L0033:     JNC   L0034                        
           MOV   A,R1                         
           ADD   A,DPL                        
           MOV   R0,A                         
           MOV   A,@R0                        
           RET                                
L0034:     CJNE  R3,#0FEH,L0035               
           MOV   A,R1                         
           ADD   A,DPL                        
           MOV   R0,A                         
           MOVX  A,@R0                        
           RET                                
L0035:     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                                
L0036:     CJNE  R4,#00H,L0037                
           CJNE  R6,#00H,L0040                
           MOV   A,R7                         
           MOV   B,R5                         
           DIV   AB                           
           MOV   R7,A                         
           MOV   R5,B                         
           RET                                
L0037:     CLR   A                            
           XCH   A,R4                         
           MOV   R0,A                         
           MOV   B,#08H