Ошибка при линковке "fatal bad object file record in module near module file offset 0x0000032D"

.486
.MODEL FLAT, STDCALL
 
EXTRN  GetStdHandle@4:NEAR
EXTRN  WriteConsoleA@20:NEAR
 
EXTRN  CharToOemA@8:NEAR
EXTRN  ReadConsoleA@20:NEAR
 
EXTRN  ExitProcess@4:NEAR ; функция выхода из программы
 
EXTRN  lstrlenA@4:NEAR ; функция определения длины строки
EXTRN  wsprintfA:NEAR; т.к. число параметров функции не фиксировано, 
            ; используется соглашение, согласно которому очищает стек 
            ; вызывающая процедура
 
; сегмент данных
.DATA
    stdout dd ? ; четырёхбайтовый дескриптор вывода
    stdin dd ?  ; четырёхбайтовый дескриптор ввода
    
    prompt db "Введите строку: ",13,10,0
    resfmt db "У %d символов одинаковые соседи",13,10,0
    res    db 128 dup (?) ; Сюда запишется отформатированная предыдущая строка
        
    ptr1   dd ? ;
    ptr2   dd ? ;
    last   dd ? ;
    result dd ? ;
        
    tmp dd ? ; четыре байта под всякий мусор
        
    str_ db 128 dup (?) ; обрабатываемая строка
    strl dd ?           ; длина этой строки
     
; сегмент кода 
.CODE
    business proc far
        ; ptr1 - предшествующий сосед обрабатываемого символа
        ; ptr1 = str_
        mov ptr1, offset str_
        ; ptr2 - последующий сосед обрабатываемого символа
        mov ptr2, offset str_
        add ptr2, 2
        ; last = (str_ - 1), т.к. с ним надо будет постоянно сравнивать ptr2
        mov last, offset str_
        mov eax, last
        add eax, strl
        mov last, eax
        dec last
        ; result - сколько символов у которых равные соседи
        mov result, 0
        
        ; if (strl > 1)
        cmp strl, 2
        ; {
        jl else_if2
            ; while (true) {
            loop1:
                ; if (ptr2 > last) break;
                mov eax, last
                cmp ptr2, eax
                jg endloop1
                                
                ; if (*ptr1 == *ptr2)
                mov eax, dword ptr [ptr1]
                movsx ebx, byte ptr [eax]
                mov ecx, dword ptr [ptr2]
                movsx edx, byte ptr [ecx]
                cmp ebx, edx
                ; {
                jne endif1
                    ; result++
                    inc result
                ; }
                endif1:
                
                ; ptr1++
                inc ptr1
                ; ptr2++
                inc ptr2
                
                ; это цикл!
                jmp loop1
            ; }
            endloop1:
            
            ; Соседи первого символа
            ; ptr1 = str_ + strl - 1
            mov ptr1, offset str_
            mov eax, ptr1
            add eax, strl
            mov ptr1, eax
            dec ptr1
            ; ptr2 = str_ + 1
            mov ptr2, offset str_
            inc ptr2
            ; if (*ptr1 == *ptr2)
            mov eax, dword ptr [ptr1]
            movsx ebx, byte ptr [eax]
            mov ecx, dword ptr [ptr2]
            movsx edx, byte ptr [ecx]
            cmp ebx, edx
            ; {
            jne endif3
                ; result++
                inc result
            ; }
            endif3:
            
            ; Соседи второго символа
            ; ptr1 = str_ + strl - 2
            mov ptr1, offset str_
            mov eax, ptr1
            add eax, strl
            mov ptr1, eax
            sub ptr1, 2
            ; ptr2 = str_
            mov ptr2, offset str_
            ; if (*ptr1 == *ptr2)
            mov eax, dword ptr [ptr1]
            movsx ebx, byte ptr [eax]
            mov ecx, dword ptr [ptr2]
            movsx edx, byte ptr [ecx]
            cmp ebx, edx
            ; {
            jne endif4
                ; result++
                inc result
            ; }
            endif4:
        ; }
        jmp endif2
        ; else {
        else_if2:
            ; result = 1
            mov result, 1
        ; }
        endif2:
        
        ret
    business endp
 
    START: ; метка точки входа (завершается двоеточием)
    
    ; перекодируем приглашение
    PUSH OFFSET prompt
    PUSH OFFSET prompt
    CALL CharToOemA@8
    
    ; перекодируем результат
    PUSH OFFSET resfmt
    PUSH OFFSET resfmt
    CALL CharToOemA@8
    
    ; дескриптор ввода
    PUSH -10
    CALL GetStdHandle@4 ; в eax будет дескриптор ввода
    MOV stdin, eax
    
    ; дескриптор вывода
    PUSH -11
    CALL GetStdHandle@4 ; в eax будет дескриптор вывода
    MOV stdout, eax
    
    ; вывод приглашения
    PUSH OFFSET prompt
    CALL lstrlenA@4 ; в eax будет длина строки
    
    PUSH 0              ; конец параметров
    PUSH OFFSET tmp     ; длина выведенной строки (не нужна)
    PUSH EAX            ; длина выводимой строки (после предыдущего шага лежит в eax)
    PUSH OFFSET prompt  ; выводимая строка
    PUSH stdout         ; куда выводить
    CALL WriteConsoleA@20
    
    ; ввод строки
    PUSH 0           ; конец параметров
    PUSH OFFSET strl ; длина считанной строки
    PUSH 200         ; максимальная длина считываемой строки
    PUSH OFFSET str_ ; куда читать
    PUSH stdin       ; откуда читать
    CALL ReadConsoleA@20 
    
    push offset str_
    call lstrlenA@4
    mov strl, eax
    sub strl, 2
    
    ; вызов процедуры
    call business
    
    ; формирование результата
    push result
    push offset resfmt
    push offset res
    call wsprintfA
    
    ; вывод результата
    push offset res
    call lstrlenA@4
    PUSH 0
    PUSH OFFSET tmp
    PUSH eax
    PUSH OFFSET res
    PUSH stdout
    CALL WriteConsoleA@20
    
    ; небольшая задержка
    MOV ECX,03FFFFFFFH ; помещение в регистр ECX – счетчик цикла –
    ; большого значения
    L1:
    LOOP L1 ; цикл без тела
    ; выход из программы 
    PUSH 0 ; параметр: код выхода
    CALL ExitProcess@4
    END START