三、单片机第三次实验课——P1 口输入、输出实验
（1）P1 口作输出口，接八只发光二极管，编写程序，使发光二极管循环点亮。（采用软件延时的方法）
ORG 0000H
MOV A,#00000001B
MOV P1,A
LCALL DELAY
LOOP:
RL A
MOV P1,A
LCALL DELAY
SJMP LOOP
DELAY:
MOV R0,#0AH
DELAY1:
MOV R1,#00H
DELAY2:
MOV R2,#0C3H
DJNZ R2,$
DJNZ R1,DELAY2
DJNZ R0,DELAY1
RET
END
注：我所用单片机晶振频率为40MHZ，如果所使用单片机晶振频率不同需自己计算机器周期及循环次数，不然延时过短会导致现象观察不到。
（2）P1 作输入口，将开关的状态反映在发光二极管上。
都接P1，第四位接开关，高四位接LED灯
1）P1整体操作（汇编）
ORG 0000H
AJMP START
START:
ORL P1,#00FH
MOV A,P1
SWAP A
ANL A,#0F0H
MOV P1,A
SJMP START
END
2）对每一位操作（汇编）
ORG 0000H
CLR P1.4
CLR P1.5
CLR P1.6
CLR P1.7
AGA:
SETB P1.0
JB P1.0,LIG0
SETB P1.4
BACK1:
SETB P1.1
JB P1.1,LIG1
SETB P1.5
BACK2:
SETB P1.2
JB P1.2,LIG2
SETB P1.6
BACK3:
SETB P1.3
JB P1.3,LIG3
SETB P1.7
SJMP AGA
LIG0:
CLR P1.4
SJMP BACK1
LIG1:
CLR P1.5
SJMP BACK2
LIG2:
CLR P1.6
SJMP BACK3
LIG3:
CLR P1.7
SJMP AGA
END
注：对每一位操作读取前之前要先用SETB指令为读取做准备。
3）C语言
#include<reg52.h>
#include<absacc.h>
main(){
while(1)
XBYTE[0x8700]=P1;
}