jiatong.txt

//下面是画圆的程序

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

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

MAIN:   MOV TMOD,#01H
        MOV TH0,#3CH
        MOV TL0,#0B0H
        SETB TR0
        SETB ET0
        MOV A,#00H
        
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,#0CH     ;  NAN HUANG
         
         
         
   
         LCALL  DELAY
         CPL P1.2
         LCALL  DELAY
         SETB P1.2
         LCALL  DELAY

 
         CPL P1.2
         LCALL  DELAY
         SETB P1.2
         LCALL  DELAY
 
 
         CPL P1.2
         LCALL  DELAY
         
         SETB P1.2
         LCALL  DELAY
      
 
         CPL P1.2
         LCALL  DELAY
         
          SETB P1.2
         LCALL  DELAY
      
 
         CPL P1.2
         LCALL  DELAY


   
         

         
         
         
         
              
TAI2:    CJNE A,#90,TAI3
         MOV P1,#11H    ; DONG LU
         
TAI3:    CJNE A,#140,TAI4
         CLR A
         MOV P1,#21H    ;DONG HUANG
         
         
         
         LCALL  DELAY
         CPL P1.5
         LCALL  DELAY
         SETB P1.5
         LCALL  DELAY

 
         CPL P1.5
         LCALL  DELAY
         SETB P1.5
         LCALL  DELAY
 
 
         CPL P1.5
         LCALL  DELAY
         
         SETB P1.5
         LCALL  DELAY
      
 
         CPL P1.5
         LCALL  DELAY
         
          SETB P1.5
         LCALL  DELAY
      
 
         CPL P1.5
         LCALL  DELAY

         
         
                      
TAI4:    RETI


WAIDUAN:  MOV P1,#09H
          CLR TR0
         MOV R1 ,#255 ;
         MOV R2 ,#255
         MOV R3 ,#255
HERE : DJNZ R1 ,HERE;

HERE1: DJNZ R2 ,HERE1;
        DJNZ R3 ,HERE;
         SETB TR0
          RETI;
          
DELAY:
       MOV R1 ,#95 ;
       MOV R2 ,#215
SHAN : DJNZ R1 ,SHAN;

SHAN1: DJNZ R2 ,SHAN;
RETI