Как избавиться от иероглифов? код внутри

include mac.inc ;подключение файла с макросами
stk segment stack
db 256 dup (0)
stk ends
 
common_data segment para common 'data' ;начало общей
;области памяти
buf db 15 DUP (' ') ;буфер для хранения строки
temp dw 0
common_data ends
 
extrn PutChar:far,PutCharEnd:far
code segment ;начало сегмента кода
assume cs:code,es:common_data
main proc
mov ax,common_data
mov es,ax
;вызов внешних процедур
call PutCharEnd
call PutChar
 
push es
pop ds
OutStr buf
 
int 21h
exit:
_Exit ;стандартный выход
main endp ;конец главной процедуры
code ends
end main

include mac.inc ;подключение файла с макросами
stk segment stack
db 256 dup (0)
stk ends
pdata segment para public 'data'
temp1 db ?
temp2 dd ?
temp3 dq ?
 
buffer db 15 DUP (' ') ;буфер для формирования строки
tmpSI dw 0
pdata ends
public PutChar,PutCharEnd
 
code segment ;начало сегмента кода
assume cs:code,ds:pdata
PutChar proc far ;обьявление процедуры
cld
mov si,0
mov buffer[si],'R'
inc si
mov buffer[si],'a'
inc si
mov buffer[si],'b'
inc si
mov buffer[si],'o'
inc si
mov buffer[si],'t'
inc si
mov buffer[si],'a'
inc si
mov buffer[si],'e'
inc si
mov buffer[si],'t'
inc si
mov buffer[si],'!'
inc si
mov tmpSI,si
ret ;возврат из процедуры
PutChar endp ;конец процедуры
PutCharEnd proc far
mov si,tmpSI
mov buffer[si],'$'
ret
PutCharEnd endp
code ends
end