proteus8086 8255开关控制流水灯

CODESEGMENT

ASSUMECS:CODE
START:

JMPTZ0

TZ0:
AD DB 80H
MOV AH,00FAH
MOV AL,0001H
MOV BX,01H
MOV DX,94H
IN AL,DX
TEST AL,01H
JZ HUA
IN AL,DX
TEST AL,02H
JZ HUA1
IN AL,DX
TEST AL,04H
JZ HUA2
IN AL,DX
TEST AL,08H
JZ HUA3
MOV AL,01H
JMP TZ0

HUA:
MOV DX,00H
OUT DX,AL
MOV CX,9F20H
LOOP $
ROL AL,1
TEST AL,1000B
JZ TZ0
JMP HUA

HUA1:
MOV AL,AD
OUT DX,AL
MOV CX,9F20H
LOOP $
ROR AL,1

MOV AD,AL
TEST AL,00000001B
JZ TZ0
JMP HUA1
HUA2:
MOV DX,00H
MOV AL,18H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,24H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,42H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,81H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,18H
OUT DX,AL
MOV CX,9FFFH
LOOP $
DEC BX
CMP BX,00F9H
JZ TZ0
JMP HUA2
HUA3:
MOV DX,00H
MOV AL,81H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,42H
OUT DX,AL
MOV CX,9FFFH
LOOP $
MOV AL,24H
OUT DX,AL
MOV CX,9FFFH
LOOP $

MOV AL,18H
OUT DX,AL
MOV CX,9FFFH
LOOP $
DEC BX
CMP BX,00F9H
JZ TZ0
JMP HUA3
CODEENDS
ENDSTART