port1 (1).asm

(大杂烩)proteus仿真MCS51一百例

          ORG       00H
LOOP:     MOV       A,  #0FEH		;赋初值
          MOV       R2, #8			;设计数值
OUTPUT:   MOV       P1, A			;送P1口输出
          RL        A				;数据移位
          ACALL     DELAY
          DJNZ      R2, OUTPUT
          LJMP      LOOP
DELAY:    MOV       R6, #0			;延时子程序
          MOV       R7, #0
DELAYLOOP:
          DJNZ      R6, DELAYLOOP
          DJNZ      R7, DELAYLOOP
          RET
          END