Page 155 -

實驗 14-2 8255 控制喇叭發單音實驗
功能：8255 PC.4 控制喇叭 ON/OFF，發出 DO、RE、MI…HDO。
開關設定：SW1-2OFF，VR6 聲音大小控制
程式：

TONE1 REG 30H

TONE2 REG 31H

PA_8255 EQU 8020H

PB_8255 EQU 8021H

PC_8255 EQU 8022H

CON_8255 EQU 8023H

;

ORG 00H

JMP START

ORG 1BH

JMP ON_OFF_SPEAK

ORG 30H

START：

MOV SP,#60H

CALL INITIAL

$2：

MOV DPTR,#TONE_TAB

$1：

CALL READ_ENCODER

JC $2

CALL DELAY_0.5S

JMP $1

INITIAL：

MOV DPTR,#CON_8255

MOV A,#10000000B

MOVX @DPTR,A

MOV DPTR,#PC_8255

MOV A,#0

MOVX @DPTR,A

MOV TMOD,#10001000B

MOV IE,#10001000B

SETB TR1

RET
SONG_PARAMETER：

CLR A