Перевод из TASM в MASM

.model small
 .data
sAny db 'Press any
key$'
string1 db '12345 школьник пошел в школу. Там были другие школьники',0
string2 db 100 dup (?)
str1 db 'школьник'
len_str1 equ $-str1
str2 db 'студент'
len_str2 equ $-str2
 
 .code
 .startup  ;данное макро настраивает сегмент SS и DS (посмотрите в листинге - параметр /la)
 mov ax, @DATA ;надо еще и ES
 mov es, ax
 
 lea si, string1
 call PrintString ;выведем исходную строку
 
 call ChangeStrin
 g ;заменим школьника на студента
 
 lea si, string2
 call PrintString ;выведем результат
 
 lea dx, sAny ;Press any key
 mov ah, 9
 int 21h
 
 mov ah,0
 int 16h  ;ждем нажатия на клавишу
 
 mov ax, 4c00h
 int 21h
 
PrintString proc  ;выводим строку
 lodsb
 cmp al, 0  ;0 - признак конца
 je PS_ret
 int 29h  ;выводит символ из al
 jmp PrintString
PS_ret:
 mov al, 0dh  ;в конце - перевод строки
 int 29h
 mov al, 0ah
 int 29h
 ret
PrintString endp
 
ChangeString proc  ;замена
школьника на студента
 lea si, string1 ;исходная строка
 lea di, string2 ;результат
CS_loop:
 cmp byte ptr [si], 0;конец строки
 je CS_ret
 push di  ;сравним строки [si] и [di]='школьник'
 push si
 lea di, str1
 mov cx, len_str1 ;длина
 repe cmpsb  ;сравниваем ds:si es:di
 pop si
 pop di
 jz InsertStudent ;равно - пишем 'студент'
 movsb   ;не равно - просто копируем байт
 
 jmp CS_loop  ;на следующий байт исходной строки
InsertStudent:
 add si, len_str1 ;обойдем 'школьник'
 push si  ;сохраним адрес
 lea si, str2 ;копируем 'студент'
 mov cx, len_str2 ;длина
 rep movsb
 pop si  ;si - адрес байта за школьником
 jmp CS_loop
CS_ret:
 ret
ChangeString endp
 
 end