CODE 	SEGMENT					
ASSUME CS:CODE
         ORG		100H
START:  MOV 	BL,00H 
         MOV 	DX,04A0H
         MOV 	AL,10010010B		
         OUT 	DX,AL
         MOV  	DX,04b0H			
         IN    	AL,DX
         OUT   	DX,AL
         MOV   	DX,04b0H
         MOV   	AL,BL
         OUT   	DX,AL				
       	CALL  	DELAY10 			
LLL:    MOV   	AL,00100001B
     	MOV   	DX,04b0H
        OUT   	DX,AL        		
        CALL  	DELAY10				
         MOV  	CX,0005H			
TTT:    MOV   	DX,04b0H
         MOV   	AL,01H
         OUT   	DX,AL       		
         CALL  	DELAY1
         OUT   	DX,AL          		                       
         CALL  	DELAY1
         LOOP  	TTT
         MOV   	AL,12H
         OUT   	DX,AL
         CALL  	DELAY10
         MOV   	AL,02H
         OUT   	DX,AL           
         MOV   	CX,0008H
GGG:    MOV   	DX,04b0H
         MOV   	AL,06H      
         OUT   	DX,AL
         CALL  	DELAY1
         LOOP  	GGG
         JMP   	LLL
DELAY1  PROC 	NEAR		
         PUSH 	CX
         MOV  	CX,8000H 
CCC:    LOOP 	CCC
         POP  	CX
         RET
DELAY1  ENDP
DELAY10 PROC 	NEAR	
         PUSH 	AX
         PUSH 	CX
         MOV  	CX,0030
UUU:    CALL 	DELAY1
         LOOP 	UUU
         POP  	CX
         POP  	AX
         RET
DELAY10  ENDP 
CODE ENDS
END     START
