51单片机简易电梯控制程序.docVIP

51单片机简易电梯控制程序 ORG 00H N1 EQU 0020H ;系统初始化 ORG 0030H MOV R0,#8 MOV R7,#0 MOV N1,#0 START: MOV R2,#15 CALL XS ;显示数据 JNB P3.5,$ ;检测急停键是否弹起 CALL XIAODOU JNB P3.5,$ CALL XINCEN CALL ANJ JMP START XINCEN: ;扫描急停键 JB P3.5,B0 CALL XIAODOU JB P3.5,B0 CALL XIAODOU JB P3.5,B0 CALL XIAODOU JB P3.5,B0 CALL XIAODOU JB P3.5,B0 SETB P0.7 ;关闭输出 SETB P0.5 MOV N1,#0 ;清空指令代码 MOV R2,#0 JMP START ;返回开始 RET B0: JB P0.3,B1 ;扫描一楼行程，获取楼层信号 CALL XIAODOU JB P0.3,B1 CALL XIAODOU JB P0.3,B1 CALL XIAODOU JB P0.3,B1 CALL XIAODOU JB P0.3,B1 MOV R0,#1 ;载入1层代码1，2表示1层半，3表示2层，4表示2层半，5表示3层，6表示3层半，7表示4层 MOV R7,#1 CALL XS ;显示数据 RET B1: JB P0.2,B2 ;扫描2楼行程，获取楼层信号 CALL XIAODOU JB P0.2,B2 CALL XIAODOU JB P0.2,B2 CALL XIAODOU JB P0.2,B2 CALL XIAODOU JB P0.2,B2 MOV R0,#3 ;载入2层代码 MOV R7,#2 CALL XS RET B2: JB P0.1,B3 ;扫描3楼行程，获取楼层信号 CALL XIAODOU JB P0.1,B3 CALL XIAODOU JB P0.1,B3 CALL XIAODOU JB P0.1,B3 CALL XIAODOU JB P0.1,B3 MOV R0,#5 ;载入3层代码 MOV R7,#3 CALL XS RET B3: JB P0.0,ANJ ;扫描4楼行程，获取楼层信号 CALL XIAODOU JB P0.0,ANJ CALL XIAODOU JB P0.0,ANJ CALL XIAODOU JB P0.0,ANJ CALL XIAODOU JB P0.0,ANJ MOV R0,#7 ;载入4层代码 MOV R7,#4 CALL XS RET ANJ: JB P2.0,C1 ;扫描按键，获取目的层 CALL XIAODOU JB P2.0,C1 CALL XIAODOU JB P2.0,C1 CALL XIAODOU JB P2.0,C1 CALL XIAODOU JNB P