pp.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,#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 
         MOV P1,#0CH     ;  NAN HUANG 
         MOV P1,#0CH     ;  NAN HUANG 
         MOV P1,#0CH     ;  NAN HUANG 
         MOV P1,#0CH     ;  NAN HUANG 
         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,#10
         
        
          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
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG
          MOV P1,#21H    ;DONG HUANG


TAI4:    RETI


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

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

SHAN1: DJNZ R2 ,SHAN;
RETI


DELAY2ms:		MOV R5,#10	      ;?óê±×ó3ìDò￡??óê±0.2?? 
D1:			MOV R6,#20 
D2:			MOV R7,#248 
			DJNZ R7,$ 
			DJNZ R6,D2 
			DJNZ R5,D1 
			RET