;功能：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