三．程序清单及程序流程框图
                ORG  0000H             
                LJMP MAIN
        MAIN:  MOV  R0,#30H
                MOV  R2,#10H
                CLR  A
          A1:    MOV  @R0,A
                  INC  R0
                INC    A
                DJNZ R2,A1
                MOV  R0,#30H
                MOV  R1,#40H
                MOV  R2,#10H
          A2:  MOV  A, @R0
                MOV  @R1,A
                INC  R0
                INC  R1
                DJNZ  R2, A2
                MOV  R1,#40H
                MOV  DPTR ,#4800H
                MOV  R2,  #10H
          A3:  MOV  A,@R1
                MOVX  @DPTR ,A
                INC  R1
                INC  DPTR
                DJNZ  R2,A3
                MOV  SP,#60H
                MOV  R2,#10H
                MOV  DPTR ,#4800H
                PUSH  DPL
                PUSH  DPH
                MOV  DPTR,#5800H
                MOV  R3,DPL
                MOV  R4,DPH
          A4:  POP  DPH
                  POP  DPL
                MOVX  A,@DPTR
                INC      DPTR
                PUSH  DPL
                PUSH  DPH
                MOV  DPL,R3
                MOV  DPH,R4
                MOVX  @DPTR,A
while循环语句的程序流程图                INC  DPTR                   
                MOV  R3,DPL
                MOV  R4,DPH
                DJNZ  R2,A4
                MOV  R0,#50H
                MOV  DPTR,#5800H
                MOV  R2,#10H
        A5:    MOVX  A,@DPTR
                MOV  @R0,A
                INC    R0
                INC    DPTR
                DJNZ  R2,A5
POP  DPH
                  POP  DPL
        HERE:  LJMP HERE
                END                 
三．实验电路
四．程序清单及流程图
程序一
ORG    0000H
        LJMP MAIN
        ORG  000BH
        LJMP IPTO       
MAIN:  MOV    SP,        #30H
        MOV    TMOD,    #01H
        CLR    00H
        SETB  EA
        SETB      ET0
        MOV  TH0,        #3CH
        MOV    TL0,        #0B0H
        MOV    R1,        #14H
        SETB    TR0
        MOV  A,        #0feH
        MOV  P1,        A
NT:    JNB      00H,        NT
        RL        A
        MOV    P1,        A
        CLR    00H
        LJMP    NT
IPTO:  MOV    TH0,    #3CH
MOV    TL0,        #0B0H
        DJNZ    R1,        TIO
        MOV    R1,        #14H
        SETB    00H
  TIO: RETI
        END
程序二只需将程序一中“RL    A”改为“RR      A”即可实现其功能。
程序三
ORG    0000H     
        LJMP    MAIN
        ORG      000BH
        LJMP    IPTO       
MAIN:  MOV    SP,        #30H
        MOV    TMOD,    #01H
        CLR    00H
        SETB    EA
        SETB  ET0
        MOV    TH0,    #3CH
        MOV    TL0,        #0B0H
        MOV    R2,        #0AH
        MOV    R1,        #02H
        SETB  TR0
        MOV  A,        #0feH
        MOV  P1,        A
    NT: SETB  P3.0
NT0:JNB        01H,        NT0
      CLR        P3.0
      CLR        01H
NT1:JNB    00H,        NT1
      CLR        01H
      RL        A
      MOV    P1,        A
      CLR        00H
      LJMP    NT
IPTO:MOV        TH0,    #3CH
      MOV    TL0,        #0B0H
      DJNZ        R2,        TIO
      MOV    R2,        #0AH
      SETB    01H
      DJNZ    R1,        TIO
      MOV    R1,        #02H
      SETB    00H
  TIO: RETI
        END
                     
程序四（思考题程序）
ORG    0000H             
        LJMP    MAIN
        ORG      000BH
        LJMP    IPTO       

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。