code segment
assume cs:code,ds:code
start:
	        push 	cs
           pop  	ds
      a:	  mov  	dx,230h
        	  In		al,dx
        	  MOV		AH,00H
       	  cmp 	al,0f9h
       	   je ab
       		cmp 	al,0fah
       		je bc
       		cmp		al,0fch
      		je		l
       		jmp		a
       		
    l:    	mov		dx,228h
    		mov		al,00h
         	out		dx,al
         	jmp		a
         			   
	ab:  	mov		cl,02h
			mov 	CH,00H
	d:		mov  	dx,228h
		 	mov		al,00h
	bb:		out		dx,al
	 		call	t1
	 		inc		al
	 		cmp		al,25
	 		jnz		bb
	 		loop	d
	 		jmp		a
			
	t1:		mov		si,10h
	e2:		mov		di,10h
	e1:		dec 	di
			jnz		e1
			dec		si
			jnz		e2
	 		ret
	 		
	 		
	bc:  	mov		cl,02h
			mov 	CH,00H
	c:		mov  	dx,228h
		 	mov		al,00h
	bb2:	out		dx,al
	 		call	t2
	 		inc		al
	 		cmp		al,254
	 		jnz		bb2
	 	 	loop	c
	 		jmp		a

	t2:		mov		si,02h
	ee2:	mov		di,02h
	ee1:	dec 	di
			jnz		ee1
			dec		si
			jnz		ee2
	 		ret
code	ends
		end		start