Page 153 -

第十四章 並列式 I/O 介面(8255)

實驗 14-1 8255 讀取、顯示編碼器實驗
功能：8255 讀取兩個編碼器，使用 12 個 LED 以 BCD 碼顯示編碼器值。
程式：

VALUE REG 23H

BCD_BUFFER2 REG 22H

BCD_BUFFER1 REG 21H

BCD_BUFFER0 REG 20H

PA_8255 EQU 8020H

PB_8255 EQU 8021H

PC_8255 EQU 8022H

CON_8255 EQU 8023
；

ORG 0H

JMP START

ORG 30H

START：

MOV SP,#60H

CALL INITIAL

$1：

CALL READ_ENCODER

CALL HEX_CONVERT_BCD

CALL DISPLAY_ENCODER

JMP $1

INITIAL：

MOV DPTR,#CON_8255

MOV A,#10000010B

MOVX @DPTR,A

RET
READ_ENCODER：

MOV DPTR,#PB_8255

MOVX A,@DPTR

CPL A

MOV VALUE,A

RET
HEX_CONVERT_BCD：

MOV A,VALUE

MOV B,#100