.186             
seg_a		segment byte public
		assume  cs:seg_a, ds:seg_a
		org     100h



start:  	mov cx,len
		mov bx,offset text
		mov ah,02

count:		mov dl,ds:[bx]
		mov dh,ds:[bx+len]
		inc bx
		rcr dh,1
		rcr dl,cl
		int 21h
		loop count

		int 20h

text		db 71h,0d4h,62h,20h,18h,0dh,0a5h,0b3h,1h,8ch,82h
		db 8ah,31h,19h,48h,06h,0f3h,0e1h,0a8h,0ceh,6eh
cf		db 0,0,0,0,0,1,1,0,1,1,0,0,0,1,0,1,0,0,1,0,0
len		equ 21


		     
seg_a           ends
		end     start