实验三(2).hex

单片机只是别人的东西

;功能：I/O引脚输入/输出实验

ORG 0000H
LJMP MAIN

ORG 0050H
MAIN:
                          ;将0E0H-0FFH，共计32字节作为堆栈区
     MOV DPTR, #8000H     ;关闭蜂鸣器
     MOV A, #0FFH
     MOVX @DPTR, A

;I/O引脚输出实验
CLR P1.2             ;P1.2引脚置为低电平，使T201导通，给LED200供电。
MOV R7, #8
MOV A, #0FEH         ;逐一点亮LED200数码各笔段。
LOOP1:
    MOV P0, A
    RL A
    ;LCALL SRELAY
    DJNZ R7, LOOP1
    NOP
    MOV R7, #16         ;在LED数码管上依次显示0-F。
    MOV R6, #0          ;显示数码寄存器，这里从0开始显示。
    MOV DPTR, #LEDTAB   ;0-F字模表首地址送DPTR
LOOP2:
    MOV A, R6
    MOVC A, @A+DPTR
    MOV P0, A
    ;LCALL SRELAY
    INC R6          ;数码寄存器+1，显示下一数码
    DJNZ R7, LOOP2
    SJMP $          ;动态停机

LEDTAB:                 ;八段LED共阳数码管字模
;数码  0     1     2     3     4     5    6    7
DB     0C0H, 0F9H, 0A4H, 0B0H, 99H, 92H, 82H, 0F8H

;数码  8     9     A     B     C     D     E     F
DB     80H,  90H,  88H, 83H,  0C6H, 0A1H, 86H, 8EH

PROC SRELAY
SRELAY:
    MOV R2,#8
SLOOP1:
    MOV R3,#0
SLOOP2:
    MOV R4,#0
    DJNZ R4,$
    DJNZ R3,SLOOP2
    DJNZ R2,SLOOP1
    RET
END