bujiajiaotong.txt

//下面是画圆的程序

        ORG 00H
       LJMP STRAT
        ORG 0003H
        LJMP WAIDUAN
       ORG 0BH
        LJMP INT_T0
         ORG 001BH
        LJMP TT2

STRAT:  SETB EA
        SETB EX0
        SETB IT0
        MOV P1,#09H
        


MAIN:   MOV TMOD,#11H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        SETB TR0
        SETB ET0
        MOV A,#00H
        
        MOV TH1,#3CH
        MOV TL1,#0B0H
        SETB TR1
        SETB ET1
      
        

LOOP:   SJMP LOOP
INT_T0:
        MOV TH0,#3CH
        MOV TL0,#0B0H

        INC A
        CJNE A,#20,TAI1
        MOV P1,#0AH   ;NAN LU

TAI1 :   CJNE A,#70,TAI2

         MOV P1,#0AH   ;NAN LU
         CPL P1.1
         LCALL  DELAY2ms
         
         MOV P1,#0AH   ;NAN LU
         CPL P1.1
         LCALL  DELAY2ms
         
          MOV P1,#0AH   ;NAN LU       
         LCALL  DELAY2ms             
         CPL P1.1   
         LCALL  DELAY2ms
          MOV P1,#0AH   ;NAN LU
          LCALL  DELAY2ms

         CPL P1.1   
         LCALL  DELAY2ms
          MOV P1,#0AH   ;NAN LU
          LCALL  DELAY2ms  
      
      
      
         MOV P1,#0CH     ;  NAN HUANG 
         MOV P1,#0CH     ;  NAN HUANG 
     

TAI2:    CJNE A,#100,TAI3
         MOV P1,#11H    ; DONG LU

TAI3:    CJNE A,#140,TAI4
         MOV A,#00
         
        
          MOV P1,#11H    ; DONG LU
         CPL P1.4
         LCALL  DELAY2ms
         
          MOV P1,#11H    ; DONG LU
         CPL P1.4
         LCALL  DELAY2ms
         
          MOV P1,#11H    ; DONG LU     
         LCALL  DELAY2ms             
         CPL P1.4   
         LCALL  DELAY2ms
           MOV P1,#11H    ; DONG LU
          LCALL  DELAY2ms

         CPL P1.4   
         LCALL  DELAY2ms
           MOV P1,#11H    ; DONG LU
          LCALL  DELAY2ms
           
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG



TAI4:    RETI


TT2:
        MOV TH1,#3CH
        MOV TL1,#0B0H
        MOV R4,#00H
        INC R4 
AA:    CJNE R4,#50,BB
      
       MOV P3,#00010000B

BB:    CJNE R4,#100,CC
       
       MOV P3,#00100000B
CC:    CJNE R4,#150,DD
       MOV P3,#01000000B
DD:    CJNE R4,#200,CHU
       MOV P3,#10000000B
       MOV R4,#00H
CHU:RETI          

WAIDUAN:   CLR TR0
           MOV R7,P1
        MOV P1,#09H
          
          
          LCALL  DELAY2ms
          LCALL  DELAY2ms
          LCALL  DELAY2ms
          LCALL  DELAY2ms
          LCALL  DELAY2ms
          MOV P1,#09H
         MOV P1,R7
         SETB TR0
          RETI;

DELAY:
       MOV R1 ,#95 ;
       MOV R2 ,#115
SHAN : DJNZ R1 ,SHAN;

SHAN1: DJNZ R2 ,SHAN;
RETI


DELAY2ms:		MOV R5,#10	      
D1:			MOV R6,#20 
D2:			MOV R7,#248 
			DJNZ R7,$ 
			DJNZ R6,D2 
			DJNZ R5,D1 
			RET