8255.asm

MCS-51单片机实验 39个实用实验和源码

;FOR    EAT598
;---------------------------------------------------------
D8255   EQU     0F22BH          ;8255命令口地址
D8255A  EQU     0F228H          ;8255 PA口地址
D8255B  EQU     0F229H          ;8255 PB口地址
D8255C  EQU     0F22AH          ;8255 PC口地址
;---------------------------------------------------------
        ORG     0000H
        LJMP    START
        ORG     0100H
START:
        LCALL   DELAY           ;延时
        MOV     DPTR,#D8255
        MOV     A,#82H          ;置8255状态
                                ;方式0，PA，PC口输出，PB口输入
        MOVX    @DPTR,A
ROTATE:
        MOV     DPTR,#D8255B
        MOVX    A,@DPTR         ;读开关状态
        MOV     DPTR,#D8255C
        MOVX    @DPTR,A         ;点亮对应的LED
        SJMP    ROTATE

DELAY:  MOV     R0,#0H          ;延时子程序
DELAY1: MOV     R1,#0H
        DJNZ    R1,$
        DJNZ    R0,DELAY1
        RET
        END