Программа как сделать com file?

[ChestIotVaga]

подскажите как сделать этот код в com файл пробовал .model tiny пишет segment relocate помогите решить проблему очень надо.
.model compact
; Сегмент стека
s_seg segment
db 128 dup(?)
s_seg ends

; Сегмент данных
d_seg segment
str_prompt db 'Enter string: $'
str_result db 13,10,'Chars: $'
tab db 256 dup(0) ; массив всех возможных символов
d_seg ends

; Сегмент сода
c_seg segment 'code'
; привязываем метки к адресам сегментов
assume ds_seg, ss:s_seg, cs:c_seg
main:
; устанавливаем сегмент стека
mov ax, s_seg
mov ss, ax
; устанавливаем сегмент данных
mov ax, d_seg
mov ds, ax


; печатем приглашение
mov ah, 09h
lea dx, str_prompt
int 21h

xor bx, bx
@1: ; читаем символ
mov ah, 01h
int 21h
; проверяем конец строки
cmp al, 13
je @2
; отмечаем в таблице
mov bl, al
mov tab[bx], 1
jmp @1

; печатем результат
@2: mov ah, 09h
lea dx, str_result
int 21h

mov cx, 256
xor bx, bx
@3: ; проверяем отметку в таблице
cmp tab[bx], 1
jne @4
; печатаем символ
mov ah, 02h
mov dl, bl
int 21h
; сдвигаемся по таблице
@4: inc bx
loop @3

; выход из программы
mov ax, 4C00h
int 21h
c_seg ends

end main

[macomics]

Форматируйте код используя теги [CODE][/CODE]. Иначе ответа можете не дождаться.
В COM файле не может быть сегментов, а модель tiny предполагает расположение всей программы в пределах одного сегмента.

.model tiny
;.model compact
; Сегмент стека
;s_seg segment
;			db 128 dup(?)
;s_seg ends

	jmp	main
; Сегмент данных
;d_seg segment
str_prompt		db 'Enter string: $'
str_result		db 13,10,'Chars: $'
tab			db 256 dup(0) ; массив всех возможных символов
;d_seg ends

; Сегмент сода
;c_seg segment 'code'
; привязываем метки к адресам сегментов
;assume ds:d_seg, ss:s_seg, cs:c_seg
main:
; устанавливаем сегмент стека
;	mov	ax, s_seg
;	mov	ss, ax
; устанавливаем сегмент данных
;	mov	ax, d_seg
;	mov	ds, ax


; печатем приглашение
	mov	ah, 09h
	lea	dx, str_prompt
	int	21h

	xor	bx, bx
  @1: ; читаем символ
	mov	ah, 01h
	int	21h
; проверяем конец строки
	cmp	al, 13
	je	@2
; отмечаем в таблице
	mov	bl, al
	mov	tab[bx], 1
	jmp	@1

; печатем результат
  @2:
	mov	ah, 09h
	lea	dx, str_result
	int	21h

	mov	cx, 256
	xor	bx, bx
  @3: ; проверяем отметку в таблице
	cmp	tab[bx], 1
	jne	@4
; печатаем символ
	mov	ah, 02h
	mov	dl, bl
	int	21h
; сдвигаемся по таблице
  @4:
	inc	bx
	loop	@3

; выход из программы
	mov	ax, 4C00h
	int	21h
;c_seg ends

;end main