CODE SEGMENT
ASSUME CS:CODE
ADPORT	EQU  0061h

CONTPORT EQU 00DFH
DATAPORT EQU 00DEH
START:	JMP ADCONTORL
DATA1	EQU 0580H
DATA2	EQU 0500H
ADCONTORL:CALL FORMAT
	MOV AX,0H
	MOV DS,AX
	MOV BX,DATA1
	MOV DS:[BX],AL
	ADD BX,01H
	MOV DS:[BX],AL
	ADD BX,01H
	MOV AL,40H
	MOV DS:[BX],AL
	ADD BX,01H
	MOV AL,40H
	MOV DS:[BX],AL
	ADD BX,01H
	MOV AL,6fH
	MOV DS:[BX],AL
	ADD BX,01H
	MOV AL,3fH
	MOV DS:[BX],AL
	ADD BX,01H
	MOV AL,7fH
	MOV DS:[BX],AL
	MOV AL,3fH
	ADD BX,01H
	MOV DS:[BX],AL
ADCON:	MOV AX,00
	MOV DX,ADPORT
	OUT DX,AL
	MOV CX,0500H
DELAY:	LOOP DELAY
	MOV DX,ADPORT
	IN AL,DX
	MOV CL,AL
	CALL CONVERS
	CALL LEDDISP
	JMP ADCON
CONVERS:MOV BH,0H
	AND AL,0FH
	MOV BL,AL
	MOV AL,CS:[BX+DATA2]
	MOV BX,DATA1
	MOV DS:[BX],AL
	INC BX
	PUSH BX
	MOV AL,CL
	MOV CL,04H
	SHR AL,CL
	MOV BL,AL
	MOV BH,0H
	MOV AL,CS:[BX+DATA2]
	POP BX
	MOV DS:[BX],AL
	RET
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,DS:[BX+DATA1]
	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],063FH
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],4F5BH
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],6D66H
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],077DH
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],6F7FH
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],7C77H
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],5E39H
	ADD BX,2
	MOV WORD PTR DS:[BX+0500H],7179H
	RET
CODE ENDS
END  START