新建 文本文档.txt

七段数码管 单片机实验中的七段数码管的实验 C 语言程序和汇编程序

 ORG 0000H
       AJMP MAIN
       ORG 0013H
       LJMP EX1SON
       ORG 0030H
MAIN:
       MOV P1,#0FFH
       MOV P3,#0FFH
       MOV IE,#10000100B
       CLR IT1
     
 LOOP1: JB P3.4,$
       MOV P1,#0FEH
       ACALL DELAY1
       MOV R3,#6
LOOP2:
       MOV A,P1
       RL A
       MOV P1,A
       ACALL DELAY1
       DJNZ R3,LOOP2
       SJMP LOOP1
EX1SON:
       CPL P1.7
       ACALL DELAY2
       CPL P1.7
       ACALL DELAY2
       JNB P3.3,EX1SON
       RETI
DELAY1:
       MOV R0,#0FFH
DL1:MOV R1,#0AH
DL2:MOV R2,#18H
DL3:NOP
       NOP
       DJNZ R2,DL3
       DJNZ R1,DL2
       DJNZ R0,DL1
       RET
DELAY2:
       MOV R0,#1
DL4:MOV R1,#0AH
DL5:MOV R2,#18H
DL6:NOP
       NOP
       DJNZ R2,DL6
       DJNZ R1,DL5
       DJNZ R0,DL4
       RET

END