.Model Tiny
.386

.Data
Buf dd 1h,2h,3h,4h,5h
msg db 'Amount of successive ports: $'
.Code
org 100h

Start:
	mov ax,@Data
	mov ds,ax

	mov ecx,5
	mov ebx,offset buf
m:
	mov eax,[ebx]
	shrd [ebx],eax,231
	add ebx,4
	loop m

	mov ah,09h
	mov dx,offset msg
	int 21h


	int 11h
	shl ah,4
	shr ah,5
	add ah,48
	mov dl,ah
	mov ah,2
	int 21h

	mov ah,1
	int 21h
	mov ax,4c00h
	int 21h 
	ret
end Start