51单片机实现电梯仿真及其程序 -

标题: 51单片机实现电梯仿真及其程序 [打印本页]

作者: henanda 时间: 2020-2-3 16:58
标题: 51单片机实现电梯仿真及其程序

51单片机实现电梯仿真及其程序

      ORG 0000H
      SJMP MAIN
      ORG 0003H ；INT0中断向量
      SJMP INTT0
      ORG 0030H
MAIN:
      CLR IT0 ; IT0=0时，INT0低态动作
      SETB EX0 ；中断INT0开关，EX0=1起用INT0中断功能
      SETB EA    ；中断总开关 EA=1可启用所有中断
      MOV 40H,#1
      MOV R0,#1
   ; MOV R1,#1
LOOP: ACALL DISPLAY1
      SJMP LOOP

INTT0: CLR EA    ;
      PUSH PSW
      PUSH ACC ；将ACC的内容存到堆站
      JNB P1.0,S1
      JNB P1.1,S2
      JNB P1.2,S3
      JNB P1.3,S4
      JNB P1.4,S5
      JNB P1.5,S6
      JNB P1.6,S7
      JNB P1.7,S8
RETUP:  POP ACC
      POP PSW
      ;CLR IT0
      ;SETB EX0
      SETB EA
      RETI

S1:    MOV R0,#1
      ACALL DISPLAY
      AJMP RETUP

S2:    MOV R0,#2
      ACALL DISPLAY
      AJMP RETUP

S3:    MOV R0,#3
      ACALL DISPLAY
      AJMP RETUP

S4:    MOV R0,#4
      ACALL DISPLAY
      AJMP RETUP

S5:    MOV R0,#5
      ACALL DISPLAY
      AJMP RETUP

S6:    MOV R0,#6
      ACALL DISPLAY
      AJMP RETUP

S7:    MOV R0,#7
      ACALL DISPLAY
      AJMP RETUP

S8:    MOV R0,#8
      ACALL DISPLAY
      AJMP RETUP

DISPLAY:
      MOV 30H,40H
      MOV 40H,R0
      MOV R0,30H

DISPLAY1:
      MOV P2,#00H
      CLR P3.0
      CLR P3.1
      MOV DPTR,#TAB
LOOP11: MOV A,R0
      MOV 42H,A
      MOVC A,@A+DPTR
      MOV P2,A
      SETB P3.1
      CALL DELAY
      CLR P3.1
      MOV A,42H
      CJNE A,40H,QQ
      RET

QQ:    JNC QQ1 ;若CY=0就眺到QQ1
      INC R0    ；将R0加1
      SJMP LOOP11
QQ1: DEC R0    ；将R0减1
      SJMP LOOP11

TAB: DB 0C0H,0F9H,0A4H,0B0H,99H,92H,82H,0F8H,80H,90H

DELAY:  MOV R7,#250
DEL1: MOV R6,#250
DEL2: MOV R5,#4
DEL3: DJNZ R5,DEL3
      DJNZ R6,DEL2
      DJNZ R7,DEL1
      RET
      END

1.jpg (98.19 KB, 下载次数: 132)

2.jpg (10.25 KB, 下载次数: 134)

电梯程序仿真电路.rar

30.12 KB, 下载次数: 17, 下载积分: 黑币 -5

作者: yxy147852 时间: 2021-5-23 20:26
谢谢，收益良多

欢迎光临 (http://www.51hei.com/bbs/)