99 秒程序.txt

共有 45 个程序源码

          ORG  0000H        
          AJMP MAIN
       
          ORG  000BH        
          AJMP WT0          
	  ORG  20H
MAIN:     MOV SP,#40H      
          MOV 20H,#0H      
	  MOV 21H,#0          
	  MOV 22H,#0     
          MOV 23H,#0        
	  MOV 24H,#2      
          MOV TH0,#5         
          MOV TL0,#5   
          MOV TMOD,#02H      
          SETB EA          
          SETB ET0       
          SETB TR0           
    
      
	  MOV 34H,#2        
	  MOV 35H,#0         
	  NOP   	      
 M:	  NOP 
          JNB P3.2,TZ  
          JNB P3.1,DZ 

          
	  ACALL DSP
       
          AJMP M

   
DSP:	  MOV R7,#200   
          MOV R2,#8  
	  MOV DPTR,#TAB    
DSP0:  	  MOV A,35H        
	  MOVC A,@A+DPTR   
RX1:	  MOV P1,A  
          CLR P0.1        
          DJNZ R7,RX1       
          MOV R7,#200     
 	  MOV A,34H      
	  MOVC A,@A+DPTR
          SETB P0.1
RX2:	  MOV P1,A
	  CLR P0.0          
          DJNZ R7,RX2      
           
          SETB P0.0        
          DJNZ R2,DSP0      
	  RET

DL:	MOV R7,#02H
DL1:	MOV R6,#0FFH
DL2:	DJNZ R6,DL2
	DJNZ R7,DL1
	RET

 
TZ:       ACALL DL
     
          JB P3.2,M        
PK:	  JNB P3.2,PK  
                                
          INC 34H               
	  MOV A,34H           
	  CJNE A,#0AH,PK22	
	  MOV 34H,#0   
          INC 35H
          MOV A,35H
          CJNE A,#10,PK22
          MOV 35H,#0         
PK22:     ACALL DSP           
       
          SETB TR0  
      
          AJMP M

DZ:       ACALL DL
     
          JB P3.1,M        
PPK:	  JNB P3.1,PPK  
                              
          DEC 34H               
	  MOV A,34H           
	  JNB ACC.7,PPK22
	  MOV 34H,#9   
          DEC 35H
          MOV A,35H
          JNB ACC.7,PPK22
          MOV 35H,#9        
PPK22:     ACALL DSP           
       
          SETB TR0  
      
          AJMP M

                                    
TAB: DB 60H,7DH,0D0H,58H,4DH
     DB 4AH,42H,7CH,40H,48H


WT0:    PUSH ACC
        PUSH PSW   
        CLR P2.0          
	INC 21H			
	MOV A,21H
	CJNE A,#200,TORETI 	
	MOV 21H,#0
	INC 22H  		
	MOV A,22H
	CJNE A,#20,TORETI  
	MOV 22H,#0	
        CPL P2.6	
	INC 23H      
        MOV A,23H
	CJNE A,#60,TORETI   
        MOV 23H,#0  
        DEC 34H
        MOV A,34H
        JNB ACC.7, TORETI
        CLR P2.4
        MOV A,35H
        JNZ DDZZ	
        CPL P2.2
        
	CLR P2.6 
        AJMP $  
                   
DDZZ:	MOV 34H,#9
        DEC 35H  
TORETI: POP PSW
        POP ACC
        RETI
	END