|
|
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
|
|
