Ассемблер

[VadEr]

Почему не работает?

program Project3;
{$APPTYPE CONSOLE}
const
  speaker =  $61; //Порт управления динамиком
  timer =  $42; //Порт управления таймером
	delay1 =  $500;
	delay2 =  $0D000;
begin
asm
    in   al, speaker
    push ax
    or   al, 00000011b
    out  speaker, al
@L2: mov  al, 60
    out  timer, al
    mov  cx, delay1
@L3: push cx
    mov  cx, delay2
@L3a:loop @L3a
    pop  cx
    loop @L3
    sub  al,1
    jnz  @L2
    pop  ax
    and  al,11111100b
end;
readln
end.

[Serge_Bliznykov]

{$APPTYPE CONSOLE}

А Вы что, в Delphi гоняете код?!
Тогда и правильно, что не работает!
Кто ж обычной виндузячей программе даст доступ к портам?!!

Данный пример будет работать только в DOS.

[veniside]

> Данный пример будет работать только в DOS

Ошибаетесь ) Пример прекрасно работает в 95/98 винде. Прекрасно в том смысле, что гудит как паровоз, хотя и содержит как минимум 2 ошибки в коде, но гудит!

Я понимаю, что 95/98 это как бы уныло, но это не ДОС )
А под NT (т.е. начиная с NT 4.0 и выше), да, работать не будет (и слава богу, мне пришлось виртуальную машину перегрузить, чтобы вырубить звук ))

[Serge_Bliznykov]

Ошибаетесь

ладно. согласен.

Я понимаю, что 95/98 это как бы уныло, но это не ДОС )

А Вы зря Win 3.x не вспомнили...
Там тоже будет работать!

Данный пример будет работать только в DOS.

я имел в виду будет работать не обязательно в чистом MS DOS, но в Win 3.x/ Win 9x - которые, по сути, надстройки над DOS, и, должно работать в эмуляторах (например, DosBox) и всяческих виртуалках.

[veniside]

> которые, по сути, надстройки над DOS

не, ну так не честно ) никто не запрещал мелкомягким в 95 винде зарубить привилегированные инструкции, как это сделано в NT. То, что они этого не сделали, не превращает винду в ДОС. Точно так же, если скомпилить ядро NT так, чтобы привилегированные инструкции не рубились на корню (или запихнуть этот код в драйвер), код будет работать. Что, опять же, не превращает NT в надстройку над ДОС.

[Serge_Bliznykov]

никто не запрещал мелкомягким в 95 винде зарубить привилегированные инструкции, как это сделано в NT. То, что они этого не сделали, не превращает винду в ДОС.

Вы, вероятно, не поняли, что я имел в виду.
Дело в том, что Windows 9.x является прямым наследником Win 3.x и не является полноценной ОС. Т.е. грузится загрузчик (читай - загрузчик DOS - а потом, грузится WIN.COM (почитать на википедии про Win.com)

veniside, я что-то потерял нить беседы, объясните мне лучше, а что мы собственно обсуждаем? операционные системы фирмы Microsoft или почему из программы Win32 нет доступа к портам ввода вывода? Или как сделать, чтобы вышеуказанная программа работала?

[veniside]

Сходу ответить на вопрос "где заканчивается ДОС и начинается виндовс" я сейчас не могу, поэтому временно можно считать вопрос спора (каков бы он ни был) закрытым )

[VadEr]

Все понятно господа, так видимо будет правильнее (думаю, что eax в восстановлении не нуждается)

asm
        in   al, speaker
        push ax
        or   al, 00000011b
        out  speaker, al
@L1: mov  al, 60
        out  timer, al
        mov  cx, delay1
@L2: push cx
        mov  cx, delay2
@L3: loop @L3
        pop  cx
        loop @L2
        sub  al,1
        jnz  @L1
        and  al,11111100b
        out  timer, al
        pop  ax
        out  speaker, al
end;

Чтобы в XP/W7 работала, совсем возможности нет?

[Serge_Bliznykov]

Чтобы в XP/W7 работала, совсем возможности нет?

компилируйте DOS компилятором (например, TurboPascal), получите DOS-ское приложение.
тогда, при запуске его винда будет грузить виртуальную DOS машину (NTVDM.exe - NT virtual DOS machine)
в ней должно работать.
правда, не исключаю вероятности, что под Windows Seven возможны проблемы.

Но, в этом случае поставьте программку DosBox - она достаточно простая и качественно эмулирует DOS (идут даже старые игрушки, с графикой и музыкой )