源程序.asm

pt2272与2262完全仿真程序

L0038:     MOV   A,R7                         
           ADD   A,R7                         
           MOV   R7,A                         
           MOV   A,R6                         
           RLC   A                            
           MOV   R6,A                         
           MOV   A,R4                         
           RLC   A                            
           MOV   R4,A                         
           MOV   A,R6                         
           SUBB  A,R5                         
           MOV   A,R4                         
           SUBB  A,R0                         
           JC    L0039                        
           MOV   R4,A                         
           MOV   A,R6                         
           SUBB  A,R5                         
           MOV   R6,A                         
           INC   R7                           
L0039:     DJNZ  B,L0038                      
           CLR   A                            
           XCH   A,R6                         
           MOV   R5,A                         
           RET                                
L0040:     MOV   A,R5                         
           MOV   R0,A                         
           MOV   B,A                          
           MOV   A,R6                         
           DIV   AB                           
           JB    OV,L0044                     
           MOV   R6,A                         
           MOV   R5,B                         
           MOV   B,#08H                       
L0041:     MOV   A,R7                         
           ADD   A,R7                         
           MOV   R7,A                         
           MOV   A,R5                         
           RLC   A                            
           MOV   R5,A                         
           JC    L0042                        
           SUBB  A,R0                         
           JNC   L0043                        
           DJNZ  B,L0041                      
           RET                                
L0042:     CLR   C                            
           SUBB  A,R0                         
L0043:     MOV   R5,A                         
           INC   R7                           
           DJNZ  B,L0041                      
L0044:     RET                                
L0045:     MOV   R7,#88H                      
           ACALL L0046                        
           MOV   R7,#88H                      
L0046:     MOV   20H,R7                       
           MOV   C,20H.7                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0047:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0048                        
           NOP                                
           NOP                                
           SJMP  L0047                        
L0048:     MOV   C,20H.6                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0049:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0050                        
           NOP                                
           NOP                                
           SJMP  L0049                        
L0050:     MOV   C,20H.5                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0051:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0052                        
           NOP                                
           NOP                                
           SJMP  L0051                        
L0052:     MOV   C,20H.4                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0053:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0054                        
           NOP                                
           NOP                                
           SJMP  L0053                        
L0054:     MOV   C,20H.3                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0055:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0056                        
           NOP                                
           NOP                                
           SJMP  L0055                        
L0056:     MOV   C,20H.2                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0057:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0058                        
           NOP                                
           NOP                                
           SJMP  L0057                        
L0058:     MOV   C,20H.1                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0059:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0060                        
           NOP                                
           NOP                                
           SJMP  L0059                        
L0060:     MOV   C,20H.0                      
           MOV   P1.4,C                       
           MOV   R7,31H                       
L0061:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0062                        
           NOP                                
           NOP                                
           SJMP  L0061                        
L0062:     RET                                
L0063:     MOV   R7,#04H                      
           MOV   R0,#33H                      
           CLR   A                            
L0064:     MOV   @R0,A                        
           INC   R0                           
           DJNZ  R7,L0064                     
           MOV   R7,#04H                      
L0065:     CLR   C                            
           MOV   A,#07H                       
           SUBB  A,R7                         
           ADD   A,ACC                        
           MOV   R6,A                         
           MOV   A,2AH                        
           MOV   R0,06H                       
           INC   R0                           
           SJMP  L0067                        
L0066:     CLR   C                            
           RRC   A                            
L0067:     DJNZ  R0,L0066                     
           ACALL L0145                        
           CJNE  R7,#08H,L0065                
           MOV   R7,#08H                      
L0068:     CLR   C                            
           MOV   A,#0BH                       
           SUBB  A,R7                         
           ADD   A,ACC                        
           MOV   R6,A                         
           MOV   A,2BH                        
           MOV   R0,06H                       
           INC   R0                           
           SJMP  L0070                        
L0069:     CLR   C                            
           RRC   A                            
L0070:     DJNZ  R0,L0069                     
           ACALL L0145                        
           CJNE  R7,#0CH,L0068                
           CLR   A                            
           MOV   R7,A                         
L0071:     MOV   A,#33H                       
           ADD   A,R7                         
           MOV   R0,A                         
           MOV   A,@R0                        
           JZ    L0073                        
           ADD   A,#0FDH                      
           JZ    L0072                        
           ADD   A,#02H                       
           JNZ   L0074                        
           MOV   @R0,#8EH                     
           SJMP  L0075                        
L0072:     MOV   @R0,#0EEH                    
           SJMP  L0075                        
L0073:     MOV   @R0,#88H                     
           SJMP  L0075                        
L0074:     CLR   21H.2                        
           CLR   21H.0                        
L0075:     INC   R7                           
           CJNE  R7,#0CH,L0071                
           ACALL L0146                        
           MOV   3FH,R7                       
           ACALL L0146                        
           MOV   R7,05H                       
           MOV   A,R7                         
           MOV   B,#0AH                       
           DIV   AB                           
           MOV   40H,A                        
           MOV   A,R7                         
           MOV   B,#0AH                       
           DIV   AB                           
           MOV   41H,B                        
           RET                                
L0076:     CLR   A                            
           MOV   2EH,A                        
           MOV   2FH,A                        
           MOV   R6,3FH                       
L0077:     MOV   R7,06H                       
           DEC   R6                           
           MOV   A,R7                         
           JZ    L0078                        
           MOV   A,#64H                       
           ACALL L0147                        
           SJMP  L0077                        
L0078:     MOV   A,40H                        
           MOV   B,#0AH                       
           MUL   AB                           
           ADD   A,41H                        
           ACALL L0147                        
           MOV   A,2FH                        
           MOV   R6,2EH                       
           MOV   R0,#03H                      
L0079:     XCH   A,R6                         
           CLR   C                            
           RRC   A                            
           XCH   A,R6                         
           RRC   A                            
           DJNZ  R0,L0079                     
           MOV   31H,A                        
           CLR   A                            
           MOV   R6,A                         
L0080:     MOV   R7,42H                       
           ACALL L0046                        
           MOV   R7,43H                       
           ACALL L0046                        
           MOV   R7,44H                       
           ACALL L0046                        
           MOV   R7,45H                       
           ACALL L0046                        
           LCALL L0045                        
           LCALL L0045                        
           MOV   R7,37H                       
           ACALL L0046                        
           MOV   R7,38H                       
           ACALL L0046                        
           MOV   R7,39H                       
           ACALL L0046                        
           MOV   R7,3AH                       
           ACALL L0046                        
           MOV   R7,3BH                       
           ACALL L0046                        
           MOV   R7,3CH                       
           ACALL L0046                        
           MOV   R7,3DH                       
           ACALL L0046                        
           MOV   R7,3EH                       
           ACALL L0046                        
           INC   R6                           
           CJNE  R6,#04H,L0080                
           SETB  P1.0                         
           SETB  P1.4                         
           RET                                
L0081:     CLR   21H.7                        
           JNB   21H.3,L0087                  
           CLR   A                            
           MOV   TH0,A                        
           MOV   TL0,A                        
           INC   2DH                          
           CLR   21H.3                        
           MOV   A,2DH                        
           ADD   A,#0F0H                      
           JZ    L0082                        
           ADD   A,#0F8H                      
           JZ    L0083                        
           ADD   A,#0F8H