STACK   SEGMENT PARA STACK 'STACK'
        DB 256 DUP(0)
STACK   ENDS

CODE    SEGMENT PARA PUBLIC 'CODE'
        ASSUME  CS:CODE

START:  MOV AX,0
        MOV DX,2C0H
        OUT DX,AL  
        
     LA:MOV DX,2C1H
        IN  AL,DX
        CMP AL,0
        JZ  LA
        
        MOV DX,2C0H
        IN  AL,DX
       
        CALL DISPLAY
	    CALL DELAY

    	MOV AH,1
	    INT 16H
	  
	    JZ  START
	 
	    MOV AH,4CH
	    INT 21H

DISPLAY PROC NEAR
        MOV CH,AL
        MOV CL,4
        SAR AL,CL
        AND AL,0FH
        OR  AL,30H
        CMP AL,3AH
        JC  L1
        ADD AL,07H
L1:     CALL DISCHAR 

        MOV AL,CH
        AND AL,0FH
        OR  AL,30H
        CMP AL,3AH
        JC  L2
        ADD AL,07H
L2:     CALL DISCHAR

        MOV AL,0DH
        CALL DISCHAR
        MOV AL,0AH
        CALL DISCHAR
        RET
DISPLAY ENDP

DISCHAR PROC NEAR
        PUSH BX
        MOV BX,0
        MOV AH,0EH
        INT 10H
        POP BX
        RET
DISCHAR ENDP

DELAY   PROC NEAR
        PUSH CX
        MOV  CX,000FH
LP:     DEC  CX
        JNZ  LP
        POP  CX
        RET
DELAY   ENDP

CODE    ENDS
        END START