code	segment
	assume cs:code
	main proc far
	push ds
	xor ax,ax
	push ax
	mov cx,5

	
	
	
	xor bx,bx
l1:	mov ah,1
	int 21h
	cmp al,0dh
	je l2
	cmp al,30h
	jb l1
	cmp al,31h
	ja l1
	sub al,30h
	shl bx,1
	add bl,al
	
	jmp l1
	 
l2:	mov dl,0dh
	mov ah,2
	int 21h
	mov dl,0ah
	mov ah,2
	int 21h
	rol bx,1
	mov dl,bl
	and dl,1
	add dl,30h
	mov ah,2
	int 21h	

	
l3:	push cx
	mov cl,3
	rol bx,cl
	mov dl,bl
	and dl,111B
	add dl,30h
	mov ah,2
	int 21h
	pop cx
	loop l3
	ret
main endp
code ends
end