源程序.asm

pt2272与2262完全仿真程序

           SETB  C                            
           SUBB  A,26H                        
           JC    L0117                        
           MOV   A,2CH                        
           ADD   A,ACC                        
           MOV   2CH,A                        
           SETB  21H.3                        
           RET                                
L0117:     CLR   21H.2                        
           RET                                
L0118:     CLR   21H.2                        
           RET                                
L0119:     PUSH  ACC                          
           PUSH  PSW                          
           MOV   PSW,#00H                     
           PUSH  07H                          
           MOV   R7,#32H                      
L0120:     DEC   R7                           
           MOV   A,R7                         
           JZ    L0122                        
L0121:     DEC   0CH                          
           MOV   A,0CH                        
           JZ    L0120                        
           SJMP  L0121                        
L0122:     JB    P3.2,L0124                   
           MOV   A,25H                        
           CJNE  A,#02H,L0123                 
           JB    21H.5,L0123                  
           SETB  21H.5                        
           SJMP  L0124                        
L0123:     INC   25H                          
           MOV   A,25H                        
           CJNE  A,#03H,L0124                 
           MOV   25H,#00H                     
L0124:     POP   07H                          
           POP   PSW                          
           POP   ACC                          
           RETI                               
           JB    2AH.2,L0130                  
           ORL   45H,#49H                     
           ANL   A,@R0                        
           ORL   A,00H                        
           JB    29H.7,L0133                  
           JB    24H.0,L0127                  
           JB    24H.0,L0125                  
L0125:     JB    24H.0,L0135                  
           ORL   A,4EH                        
           ORL   A,#20H                       
           JB    20H.0,L0136                  
           ORL   41H,#4EH                     
           ORL   A,#41H                       
           ANL   A,#41H                       
           NOP                                
           ANL   54H,#4FH                     
           JNC   L0126                        
L0126:     JB    28H.7,Q066C                  
           JB    20H.0,L0141                  
L0127:     INC   R0                           
L0128:     MOV   R7,#04H                      
           MOV   R0,#3BH                      
           MOV   A,#88H                       
L0129:     MOV   @R0,A                        
           INC   R0                           
           DJNZ  R7,L0129                     
           MOV   R7,#0CH                      
           MOV   A,#33H                       
           ADD   A,R4                         
           MOV   R0,A                         
           MOV   @R0,#0EEH                    
           ACALL L0076                        
           MOV   R7,30H                       
           MOV   A,#01H                       
L0130:     MOV   R0,07H                       
           INC   R0                           
           SJMP  L0132                        
L0131:     CLR   C                            
           RLC   A                            
L0132:     DJNZ  R0,L0131                     
           MOV   R7,A                         
           ACALL L0154                        
           ACALL L0090                        
           INC   R4                           
L0133:     CJNE  R4,#0CH,L0128                
           RET                                
L0134:     MOV   2BH,#0AAH                    
           CLR   21H.2                        
           CLR   21H.0                        
           MOV   C,P1.0                       
           MOV   21H.1,C                      
           CLR   21H.3                        
L0135:     CLR   A                            
           MOV   2DH,A                        
           SETB  P1.0                         
           SETB  P1.4                         
L0136:     MOV   30H,A                        
           CLR   21H.4                        
           SETB  21H.5                        
           CLR   21H.6                        
           MOV   TMOD,#01H                    
           MOV   TH0,A                        
           MOV   TL0,A                        
           SETB  IT0                          
           SETB  EX0                          
           SETB  EA                           
           RET                                
L0137:     MOV   A,32H                        
           CLR   C                            
           SUBB  A,#0FH                       
           JNC   L0138                        
           INC   32H                          
           SJMP  L0141                        
L0138:     MOV   A,32H                        
           CLR   C                            
           SUBB  A,#4EH                       
           JNC   L0139                        
           MOV   32H,#4EH                     
           SJMP  L0141                        
L0139:     MOV   A,32H                        
           CLR   C                            
           SUBB  A,#4FH                       
           JNC   L0140                        
           MOV   32H,#4FH                     
           SJMP  L0141                        
L0140:     CLR   A                            
           MOV   32H,A                        
L0141:     MOV   R7,32H                       
           AJMP  L0171                        
L0142:     JB    21H.6,L0143                  
           AJMP  Q061F                        
L0143:     MOV   3FH,#02H                     
           LCALL L0144                        
           MOV   3FH,#03H                     
           LCALL L0144                        
           MOV   3FH,#04H                     
           CLR   A                            
           MOV   40H,A                        
           MOV   41H,A                        
           ACALL Q061F                        
           RET                                
L0144:     CLR   A                            
           MOV   40H,A                        
           MOV   41H,A                        
           ACALL Q061F                        
           RET                                
L0145:     ANL   A,#03H                       
           MOV   R6,A                         
           MOV   A,#33H                       
           ADD   A,R7                         
           MOV   R0,A                         
           MOV   @R0,06H                      
           INC   R7                           
           RET                                
L0146:     MOV   R6,2EH                       
           MOV   R7,2FH                       
           MOV   R4,#00H                      
           MOV   R5,#64H                      
           AJMP  L0036                        
L0147:     ADD   A,2FH                        
           MOV   2FH,A                        
           CLR   A                            
           ADDC  A,2EH                        
           MOV   2EH,A                        
           RET                                
L0148:     MOV   09H,R3                       
           MOV   0AH,R2                       
           MOV   0BH,R1                       
           CLR   A                            
           MOV   R6,A                         
L0149:     MOV   R3,09H                       
           MOV   R2,0AH                       
           MOV   R1,0BH                       
           MOV   DPL,R6                       
           MOV   DPH,#00H                     
           ACALL L0032                        
           MOV   R7,A                         
           JZ    L0150                        
           ACALL L0168                        
           INC   R6                           
           SJMP  L0149                        
L0150:     RET                                
L0151:     MOV   A,P3                         
           ANL   A,#0FH                       
           MOV   R5,A                         
           CPL   A                            
           JZ    L0152                        
           MOV   R7,#96H                      
           ACALL L0154                        
L0152:     MOV   A,R5                         
           CPL   A                            
           JZ    L0153                        
           MOV   R7,05H                       
           RET                                
L0153:     MOV   R7,#00H                      
           RET                                
L0154:     MOV   R6,07H                       
L0155:     MOV   R7,06H                       
           DEC   R6                           
           MOV   A,R7                         
           JZ    L0157                        
L0156:     DEC   09H                          
           MOV   A,09H                        
           JZ    L0155                        
           SJMP  L0156                        
L0157:     RET                                
L0158:     MOV   R6,#88H                      
           CJNE  R7,#88H,L0159                
           MOV   R6,#8EH                      
           SJMP  L0160                        
L0159:     CJNE  R7,#8EH,L0160                
           MOV   R6,#0EEH                     
L0160:     MOV   R7,06H                       
           RET                                
L0161:     MOV   R6,#0EEH                     
           CJNE  R7,#0EEH,L0162               
           MOV   R6,#8EH                      
           SJMP  L0163                        
L0162:     CJNE  R7,#8EH,L0163                
           MOV   R6,#88H                      
L0163:     MOV   R7,06H                       
           RET                                
L0164:     CLR   P1.7                         
           CLR   P1.5                         
           SETB  P1.6                         
           MOV   P2,#0FFH                     
           SETB  P1.7                         
           JB    P2.7,L0164                   
           CLR   P1.7                         
           RET                                
L0165:     ACALL L0164                        
           CLR   P1.5                         
           CLR   P1.6                         
           MOV   P2,#01H                      
           SETB  P1.7                         
           CLR   P1.7                         
           RET                                
L0166:     MOV   R7,#06H                      
           ACALL L0167                        
           MOV   R7,#0EH                      
           ACALL L0167                        
           MOV   R7,#38H                      
           ACALL L0167                        
           AJMP  L0165                        
L0167:     ACALL L0164                        
           CLR   P1.5                         
           CLR   P1.6                         
           MOV   P2,R7                        
           SETB  P1.7                         
           CLR   P1.7                         
           RET                                
L0168:     ACALL L0164                        
           SETB  P1.5                         
           CLR   P1.6                         
           MOV   P2,R7                        
           SETB  P1.7                         
           CLR   P1.7                         
           RET                                
L0169:     MOV   R0,#7FH                      
           CLR   A                            
L0170:     MOV   @R0,A                        
           DJNZ  R0,L0170                     
           MOV   SP,#45H                      
           LJMP  L0015                        
L0171:     MOV   A,R7                         
           ADD   A,#80H                       
           MOV   R7,A                         
           AJMP  L0167                        
L0172:     AJMP  L0168