8155.asm

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

;FOR    EAT598
;---------------------------------------------------------
P8155   EQU     0F100H          ;8155命令口地址
P8155A  EQU     0F101H          ;8155 PA口地址
P8155B  EQU     0F102H          ;8155 PB口地址
P8155C  EQU     0F103H          ;8155 PC口地址
;---------------------------------------------------------
        ORG     0000H
        LJMP    START
        ORG     0100H
START:
        LCALL   DELAY           ;延时
        MOV     DPTR,#P8155
        MOV     A,#02H          ;置8155状态
                                ;PA口输入,PB口输出
        MOVX    @DPTR,A
ROTATE:
        MOV     DPTR,#P8155A
        MOVX    A,@DPTR         ;读开关状态
        MOV     DPTR,#P8155B
        MOVX    @DPTR,A         ;点亮对应的LED
        SJMP    ROTATE

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