流水灯显示实验

流水灯显示实验。编写程序，使 8255 的 A 口和 B 口均为输出，数据灯 D7～ D0 由左向右，每次仅亮一个灯，循环显示，D15～D8 与 D7～D0 正相反，由右向左， 每次仅点亮一个灯，循环显示。

 

PA8255 EQU 0640H
PB8255 EQU 0642H
PC8255 EQU 0644H
CTL EQU 0646H
.MODEL TINY
.CODE
MOV DX,CTL
MOV AL,10000000B
OUT DX,AL
MOV BL,01H
MOV BH,80H
AB:MOV DX,PA8255
MOV AL,BL
OUT DX,AL
MOV DX,PB8255
MOV AL,BH
OUT DX,AL
CALL DELAY
ROL BH,1
ROR BL,1
MOV AH,01H
INT 16H
JZ AB
.EXIT 0
DELAY:PUSH CX
MOV SI,2
MOV CX,000H
AC:LOOP $
DEC SI
JNZ AC
POP CX
RET
END