Page 111 -
P. 111
實驗 9-4 跑馬燈(16 位元)實驗
功能：MCS-51 之埠 1、埠 2 控制 16 個 LED，每次只有一個 LED 亮，每隔 0.5 秒依序
由左而右點亮一個 LED。
開關設定：無
程式：
P1BUF EQU 08H
P2BUF EQU 09H
ORG 00H
JMP START
ORG 30H
START：
MOV SP,#60H
MOV P1BUF,#00000001B
MOV P2BUF,#00000000B
$1：
CALL DISPLAY
CALL RL
CALL DELAY_0.5S
JMP $1
DELAY_0.5S：
MOV R7,#05
$3：
MOV R6,#200
$2：
MOV R5,#248
NOP
$1：
DJNZ R5,$1
DJNZ R6,$2
DJNZ R7,$3
RET
RL：
MOV A,P1BUF
RLC A
MOV A,P2BUF
RLC A
MOV P2BUF,A
MOV A,P1BUF
RLC A
