CODE SEGMENT
ASSUME CS:CODE
ORG 1000H
START:MOV DX,73H
MOV AL,80H
OUT DX,AL
MOV DX,71H
MOV AL,1110B
OUT DX,AL
MOV DX,72H
MOV AL,01111001B
OUT DX,AL
CALL DELAYED1
MOV BX,5H
L1:
MOV DX,71H
MOV AL,1110B
OUT DX,AL
MOV DX,72H
MOV AL,10111010B
OUT DX,AL
CALL DELAYED2
MOV DX,71H
MOV AL,1110B
OUT DX,AL
MOV DX,72H
MOV AL,11111011B
OUT DX,AL
CALL DELAYED2
DEC BX
JNZ L1
MOV DX,71H
MOV AL,0011B
OUT DX,AL
MOV DX,72H
MOV AL,11001111B
OUT DX,AL
CALL DELAYED1
MOV BX,5H
L2:
MOV DX,71H