Ошибка при компиляции

@Borkot · Регистрация: 05.05.2012

Author24 — интернет-сервис помощи студентам

Пытаюсь скомпилить в MASM этот код не компилиться.
Пытался записать все это через Hiew тоже ошибка.Код взят здесь http://www.cracklab.ru/pro/asm/11.php
(Программа воспроизведение звука через Бипер)

Assembler

TITLE   SOUND   (COM) Процедура для генерации звука
SOUNSG  SEGMENT PARA 'Code'
        ASSUME  CS:SOUNG,DS:SOUNG,SS:SOUNG
        ORG     100H
BEGIN:  JMP     SHORT MAIN
; -------------------------------------------------------
DURTION DW      1000            ;Время звучания
TONE    DW      256H            ;Высота (частота) звука
; -------------------------------------------------------
MAIN    PROC    NEAR
        IN      AL,61H          ;Получить и сохранить
        PUSH    AX              ; данные порта
        CLI                     ;Запретить прерывания
        CALL    B10SPKR         ;Произвести звук
        POP     AX              ;Восстановить значение
        OUT     61H,AL          ; порта
        STI                     ;Разрешить прерывания
        RET
MAIN    ENDP
 
B10SPKR PROC    NEAR
B20:    MOV     DX,DURTION      ;Установить время звучания
B30:
        AND     AL,11111100B    ;Очистить биты 0 и 1
        OUT     61H,AL          ;Передать на динамик
        MOV     CX,TONE         ;Установить частоту
B40:
        LOOP    B40             ;Задержка времени
        OR      AL,00000010B    ;Установить бит 1
        OUT     61H,AL          ;Передать на динамик
        MOV     CX,TONE         ;становить частоту
B50:
        LOOP    B50             ;Задержка времени
        DEC     DX              ;Уменьшить время звучания
        JNZ     B30             ;Продолжать?
        SHL     DURTION,1       ; нет - увеличить время,
        SHR     TONE,1          ; сократить частоту
        JNZ     B20             ;Нулевая частота?
        RET                     ; да - выйти
B10SPKR ENDP
 
SOUNSG  ENDS
        END     BEGIN

@Мотороллер · 04.02.2014, 11:59

какая ошибка?

Добавлено через 50 секунд
MAIN PROC NEAR
я бы это заменил на MAIN: и соответственно выкинул бы MAIN ENDP

@Borkot · 04.02.2014, 12:23 **[ТС]**

в консоли пишу С:\masm32\bin\link16.exe /TINY Beep.asm(Полный путь)
fatal error L1101 invalid object module
Object ofset:1 Record type 54

Добавлено через 14 минут
Я смотрю синтаксис написание на MASM вот такой :

Assembler

includelib \masm32\lib\shell32.lib
includelib \masm32\lib\kernel32.lib
includelib \masm32\lib\user32.inc
 
    .386
    .model    flat
    .const
URL    db    'http://mail.ru'
    .code
_start:
    xor    ebx,ebx
    push    ebx        ; dlya ispolnimih failov - sposob pokaza
    push    ebx        ; rabochii katalog
    push    ebx        ; komandnaya stroka
    push    offset URL    ; imya faila s putem
    push    ebx        ; operaciya open ili print (esli NULL - open)
    push    ebx        ; identificator okna, kotoroe poluchit soobsheniya
    call    ShellExecute      ; ShellExecute (NULL, NULL, url, NULL, NULL, NULL)
    push    ebx        ; kod vihoda
    call    ExitProcess    ; ExitProcess(0)
    end    _start

А в примере выше нет этого Ни модели памяти ни для серии процессоров(.386)

@Black Fregat · 04.02.2014, 12:26

Вы пытаетесь сразу линкером обработать ассемблерный файл. Это неправильно.
Сначала ассемблером нужно сделать из него объектный, потом уже линковать.

@Мотороллер · 04.02.2014, 13:22

masm asm_file.asm
link16 asm_file.obj

Добавлено через 46 секунд
+ ключи. какие - хз. с масмом под дос не работал. заюзай тасм - проще. для тасма так: tasm asm_file.asm tlink /t asm_file.obj

@Mikl___ · 04.02.2014, 13:37

судя по "org 100h" должен быть COM-файл, под DOS из masm32 это выглядит так
С:\masm32\bin\ml /AT /c Beep.asm
С:\masm32\bin\link16 /T Beep.obj,,,,,

@Borkot · 04.02.2014, 14:19 **[ТС]**

Сообщение от Mikl___

С:\masm32\bin\link16 /T Beep.obj,,,,,

А что означают запятые в конце строки Beep.obj,,,,,
Для чего это нужно.То прочитав help masm32 такого не нашел

@Borkot · 04.02.2014, 14:35 **[ТС]**

Ошибка, я так подозреваю что с синтаксисом где то ошибки,просто просматривая примеры из масм32 они не такие.Спасибо всем,что откликнулись.

Charles Kludge · 04.02.2014, 15:20

Дык:

Assembler

TITLE   SOUND   (COM) Процедура для генерации звука
.model tiny
.code
        ORG     100H
; -------------------------------------------------------
MAIN:
        IN      AL,61H          ;Получить и сохранить
        PUSH    AX              ; данные порта
        CLI                     ;Запретить прерывания
        CALL    B10SPKR         ;Произвести звук
        POP     AX              ;Восстановить значение
        OUT     61H,AL          ; порта
        STI                     ;Разрешить прерывания
        RET
 
B10SPKR: 
B20:    MOV     DX,DURTION      ;Установить время звучания
B30:
        AND     AL,11111100B    ;Очистить биты 0 и 1
        OUT     61H,AL          ;Передать на динамик
        MOV     CX,TONE         ;Установить частоту
B40:
        LOOP    B40             ;Задержка времени
        OR      AL,00000010B    ;Установить бит 1
        OUT     61H,AL          ;Передать на динамик
        MOV     CX,TONE         ;становить частоту
B50:
        LOOP    B50             ;Задержка времени
        DEC     DX              ;Уменьшить время звучания
        JNZ     B30             ;Продолжать?
        SHL     DURTION,1       ; нет - увеличить время,
        SHR     TONE,1          ; сократить частоту
        JNZ     B20             ;Нулевая частота?
        RET                     ; да - выйти
; -------------------------------------------------------
 
DURTION DW      1000            ;Время звучания
TONE    DW      256H            ;Высота (частота) звука
 
        END     MAIN

Компилится как сказал Mikl___.

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

@Мотороллер 435 / 246 / 43 Регистрация: 05.08.2013 Сообщений: 1,670
	04.02.2014, 11:59	2
	какая ошибка? Добавлено через 50 секунд MAIN PROC NEAR я бы это заменил на MAIN: и соответственно выкинул бы MAIN ENDP 0

@Black Fregat Фрилансер 3709 / 2081 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	04.02.2014, 12:26	4
	Вы пытаетесь сразу линкером обработать ассемблерный файл. Это неправильно. Сначала ассемблером нужно сделать из него объектный, потом уже линковать. 1

@Мотороллер 435 / 246 / 43 Регистрация: 05.08.2013 Сообщений: 1,670
	04.02.2014, 13:22	5
	masm asm_file.asm link16 asm_file.obj Добавлено через 46 секунд + ключи. какие - хз. с масмом под дос не работал. заюзай тасм - проще. для тасма так: tasm asm_file.asm tlink /t asm_file.obj 1

@Mikl___ Ушел с форума 16341 / 7660 / 1076 Регистрация: 11.11.2010 Сообщений: 13,706
	04.02.2014, 13:37	6
	судя по "org 100h" должен быть COM-файл, под DOS из masm32 это выглядит так С:\masm32\bin\ml /AT /c Beep.asm С:\masm32\bin\link16 /T Beep.obj,,,,, 1

@Borkot 4 / 4 / 2 Регистрация: 05.05.2012 Сообщений: 201 Записей в блоге: 1
	04.02.2014, 14:19 [ТС]	7
	Сообщение от Mikl___ С:\masm32\bin\link16 /T Beep.obj,,,,, А что означают запятые в конце строки Beep.obj,,,,, Для чего это нужно.То прочитав help masm32 такого не нашел 0

@Borkot 4 / 4 / 2 Регистрация: 05.05.2012 Сообщений: 201 Записей в блоге: 1
	04.02.2014, 14:35 [ТС]	8
	Ошибка, я так подозреваю что с синтаксисом где то ошибки,просто просматривая примеры из масм32 они не такие.Спасибо всем,что откликнулись. Миниатюры 0

	04.02.2014, 15:20