a09.asm

由8051组成的单片机系统通常情况下

;“验证式”实验九  P1口输入输出实验
;文件名：MCS51\A09.ASM
         ORG 0000H
         SETB P1.3      ;为输入，置1。
  DD1:   JB P1.3,DD     ;测试开关状态。
         CLR P1.2       ; 熄灭
  DD2:   CALL DELY
         SJMP DD1
  DD:    SETB P1.2      ; 点亮
         SJMP DD2

  DELY:  MOV R6,#00H    ;延时
  DELY1: MOV R7,#00H
  DELY2: DJNZ R7,DELY2
         DJNZ R6,DELY1
         RET