CODE SEGMENT
ASSUME CS:CODE
DAPORT	EQU 0070H
CONTPORT EQU 00DFH
DATAPORT EQU 00DEH
DATA	EQU 0500H
START:	JMP DACONTORL
DACONTORL:CALL FORMAT
	CALL LEDDISP
	MOV DX,DAPORT
	MOV AL,00H
DACON1: OUT DX,AL
	MOV CX,0400H
DACON2: LOOP DACON2
	NOT AL
	JMP DACON1
LEDDISP:MOV AL,90H
	MOV DX,CONTPORT
	OUT DX,AL
	MOV BYTE PTR DS:[0600H],00
LED1:	CMP BYTE PTR DS:[0600H],07H
	JA  LED2
	MOV BL,DS:[0600H]
	MOV BH,0H
	MOV AL,CS:[BX+DATA]
	MOV DX,DATAPORT
	OUT DX,AL
	ADD BYTE PTR DS:[0600H],01H
	JNZ LED1
LED2:	RET
FORMAT: MOV BX,0
	MOV WORD PTR DS:[BX+0500H],4006H
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],4040H
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],4F5BH
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],3F7FH
	ADD BX,2
	RET
CODE ENDS
END  START