Различия

Показаны различия между двумя версиями страницы.

--- pro_spk:воспроизведение_мелодий_через_встроенный_динамик_компьютера_pc-speaker_в_gnu_linux [2019/01/21 20:56] – dwadmin
+++ pro_spk:воспроизведение_мелодий_через_встроенный_динамик_компьютера_pc-speaker_в_gnu_linux [2019/01/23 14:20] – dwadmin
@@ Строка 9: / Строка 9: @@
     Program for playing melodys on PC-Speaker.
     For GNU/Linux 64 bit version. Root priveleges needed.
+    Version: 2.
     Written on FreePascal.
     Copyright (C) 2019  Artyomov Alexander
@@ Строка 28: / Строка 29: @@
 {$MODE OBJFPC}
 {$ASMMODE INTEL}
+{$CODEPAGE UTF8}
 uses SysUtils,X86;
-procedure spkon;
+procedure spkon; assembler;
-begin
+asm
- asm
         push    rax
         in      al, 61h
@@ Строка 39: / Строка 40: @@
         out     61h, al
         pop     rax
- end;
 end;
-procedure spkoff;
+procedure spkoff; assembler;
-begin
+asm
- asm
         push    rax
         in      al, 61h
@@ Строка 50: / Строка 49: @@
         out     61h, al
         pop     rax
- end;
 end;
-procedure spk(b : word );
+procedure spk(b : word);
 var hb, lb : byte;
-begin; hb := hi (b); lb := lo (b);
+begin
+hb := hi(b); lb := lo(b);
  asm
         push    rax