Page 162 -

實驗 14-4 8255 控制印表機實驗
功能：8255 模式 0 使用 BUSY 及 STB 信號線控制印表機，列印兩列字串。
程式：

PA_8255 EQU 8020H

PB_8255 EQU 8021H

PC_8255 EQU 8022H

CON_8255 EQU 8023H

ORG 0H

JMP START

ORG 30H

START：

MOV SP,#60H

CALL INITIAL

MOV DPTR,#STRING1

CALL PRINT

MOV DPTR,#STRING2

CALL PRINT

JMP $

INITIAL：

MOV DPTR,#CON_8255

MOV A,#10000001B

MOVX @DPTR,A

MOV A,#00001111B

MOVX @DPTR,A

RET

PRINT：

CALL SENT_DATA

JC $E

CALL SENT_STROBE

CALL CHECK_BUSY

JMP PRINT

$E：

RET
CHECK_BUSY：

PUSH DPL

PUSH DPH

MOV DPTR,#PC_8255

BUSY:

MOVX A,@DPTR