8255控制LED1—＞LED8轮流点亮

CODE SEGMENT
ASSUME CS:CODE
IOAPT EQU 0FF28H
IOBPT EQU 0FF29H
IOCPT EQU 0FF2AH
IOCONPT EQU 0FF2BH
ORG 1000H
START: CLC
MOV AL,80H
MOV DX,IOCONPT
OUT DX,AL ;设置控制字80H
MOV AL,0FEH
MOV DX,IOAPT
NEXT: OUT DX,AL ;点亮L1
CALL DELAY1
ROL AL,01H ;循环左移
JMP NEXT
DELAY1: PUSH AX ;延时程序
PUSH CX
MOV CX,0030H
DELY2: CALL DELAY2
LOOP DELY2
POP CX
POP AX
RET
DELAY2: PUSH CX
MOV CX,500H
DELA1: LOOP DELA1
POP CX
RET
CODE ENDS
END START