     襬  । ⨫  ࠭஢   ( 5.5),
ॠ騥  ਮ᪮  প  ᥪ㭤   ८।
㭪権 >, <  EXPECT   १,  १᪮  -  㢥祭  ࠧ
䬥᪮ ⥪    - 䬥⨪  饩 窮.
      VSPOMO.FRL ᮧ ᠭ  㬥樨   ਮ᪮  
ᯮᮡ (.ਨ  VSPOMO.ASM).
     ⨫ DELAY ॠ ⠭ ࠧ. 襭      

 use vspomo.frl
 use music.frl \  ᪩ ⠢
 : nota ( freq -> ) sound 500 delay nosound ;
 : akkord 500 nota 600 nota 750 nota 1000 nota ;
 akkord
.  ॠ樨 (  ⥫묨 ﬨ -   ᠬ  )    
ᥬ  ணࠬ,  ࠭᫨஢   ࠭஬      ૠ
(࡮-᪠).
      ᠥ 㭪権 >, <  EXPECT,   㡥,   ࠭
ਮ  ⠥,    -20000>20000  (..  ࠧ  ਭ  
⥫쭮 ᫮)    ७祭   ⨯  fs.com<prog.frt
 ப ᮯ஢   ⮩ ப (..    0Dh,    0h
ਭ    ਧ    ப).    १  㭪樨  >    <
 䫠 ७ ᫥ ⠭,  EXPECT  ᨬ  0A.
  vspomo.*  ८।  㭪権:  㭪権 '>'    '<'
     १,   㭪樨 EXPECT -  ਮ᪨  
 㭪  祭  室  ᫥  cmp al,0Ah  (⮣  뫮  
筮      ॡ          ⢥        
࠭᫨஢ )  ⥫  浪 ࠣ⮢.
      ᠥ 䬥⨪  饩  窮,    砫    ⥫
ॠ   ࠧ.  (    室      
뢠 ᮬ: ⢨⥫쭮,  壠᪮     ᮡ
,   ,  ⢨⥫ ᫠ 室  ᠬ  㫨஢
- ਬ, ࠧ    㭤⠫  ⠭  (=6.626-27*ᥪ,
=2.99810/ᥪ, ...) 稭   ࠧ୮. 筮  
  뢠  ᮬ   ⥫쭮   ᯮ짮      6-⭮
।⠢ ⢨⥫ ᥫ - ⭮, ⥬,  ࠡ⠫   設,
 뫨 ⮫쪮 4-  8-⭮ ।⠢,  ᭮뢠    ,  
⠫  -  ).    ᭨,    ॠ     ᫮
⢨⥫  ᥫ    ࡮-᪠    ஬.      ⮬
⥫쭮 ᯮ짮 ᥣ ⨬ 㭪権 (⠭    ..)
⠫ ᭮,  룮 ᠤ ᠭ  ᪠ १,  襭
 ஬ ⢫    १  뢠          믮
ॡ㥬 樨. (筮,  㡮,  -ᮢ᪨,    ࠡ⠥.  ஬
⮣,    室  ᯥ稢  ࠡ  ࠧ        ࠭ࠬ
(㬥஢ ᯮᮡ  ⮪ 㭪権   १᪨  
,  ᠭ   㤮  -  ⮬  DELAY  ॠ  ⮫쪮  
ਮ᪮   ).      १᪮    ࠭    ⥫쭮
ॡ 㢥 ࠧ 䬥᪮ ⥪ - .).
     뫮 ᭥,  ᪠᪨ १ ᨬ  ᫠  㪠
ࠬ஢   ⥪ ᮤন ॣ஢ (AX...BP); FG, CS    IP  
⮬  㦥  ᥭ  㤠    뢠.         १   
⠭. 䨪 ࠬ஢ - ⮫쪮  ᬥ襭  ⭮⥫쭮
㪠⥫ ⥪, ..᫥  ࠬ  (⨯  word,    ᫥)
⮦⢫  ॣ஬ BP  .. - ᨬ   ࠬ஢. ..,
᫨ ॣ஢  墠⠥,  । १ ⥫ ࠬ
१ ⥪, 室 ⮫쪮 ,  ᫮ intr    १    
⥪ ,   ਮ -  ᮡ⢥  ६  ⨯  word,  ⠪  
 १   ਬ୮ ⠪ :
 procedure larionov(
  p1,p2:pointer;
  f1,f2:word; { 䨪⨢.ࠬ;  १    }
  fg,cs,ip,ax,bx,cx,dx,si,di,ds,es,bp:word
 ); interrupt;
      ⠪ ,   ७  ६  楤  ࠡ⪨
뢠 ࠧ  ⥪ , ..,  ࠭  ࠧ  ࠧ - ᫨
室, ⮡  ࠭﫨,      ணࠬ.
     ࡮-᪠ ᠬ ᯮ  뢠  (ਬ,    ஬  3Fh),
⮬  室   墠祭  뢠  (ᥩ
 51h) 室 ஢,   蠥      ࠡᯮᮡ.  (
樮묨 楫ﬨ 墠뢠 ⠪ 뢠 52h).
     樨 ࠡ: ᨬ  ࠡ稩 ⠫   室
 ࠭樨  䠩 ࡮-᪠ ( ᯮ짮  5.5),  
-࠭஢   믮塞 :
 tpc arifmyet
 rem ४. /$N-  ., .ARIFMYET.PAS
 arifmyet
 fs<arifdemo.frt
 forthall<arifdemo.f
(fs.com  -    ;  ᫨      ,         ᮧ:
forth fs.frt).
     ணࠬ  १᪮     ⮫쪮  ᫮  
ᥫ - ᭮ ᨫ  ।祭    ७  ⥪.  ணࠬ  
ਮ᪮  ᮤন ࠪ᪨   㭪権   ࠡ  
⢨⥫묨 ᫠ (    ⥭ 䥩  
஭    !)      ⠪  宦   ⭮襭   
ࠢ୮ ⥬஢  (2^(i/12))   ࠧ  ᫠    楯
஡ ( -  ,    ⮤ 宦 
ਡ ⢨⥫ ᥫ 樮묨).
      䬥᪨ ⨫   ⨬.  易
 ⥬, ,  ᮮ⢥⢨   ﬨ,  ᫨    訡,  .客殢
( 饭, ᫨ 訡),   ।    ணࠬ    ⠪  (
ன  ⪨ - 猪 -  ࠢ,   
樨 -  DX,    A   ᤥ  ᪠,    ),  
⬠  ਣ  樨  ࠡᯮᮡ    䨪樨  
ᮮ⢥⢨  ᠬ 짮⥫  (  ⮬    ⠪  䨪  
⥩  ᬥ⢮୮ ).
     饭   १    ⥬  १  砫      
ࠢ   (⨯筠   ᨬ⮬⨪    -    ᠭ,    ᠬந
१㧪, ० - 䥪  .. - ந  ࠧ  ࠧ).
 ᭨,  ᫮,    ண  맢  ᫮  ,  ଠ쭮
믮    (⠢      dump,    㡥,    ᢮
᭮ ࠡ १ 믮 ࠢ쭮),   ⠤ 室    ᫮
 ᮪ ஢ ࠢ . ⠢ ᥭ  ᥫ
 ⥪ ⮢    ᫥騬  뢠,    㢨,    ⥪
⮢ .
         ࠧ稥  ᨭ⠪  ᫮      १  
ਮ: 
 registers regs
 0 regs ax ! 16 regs intr
 ਮ  १  
 0 ax ! 16 intr
( १ AX,  BX    .  -    ६,      ਮ  -  ᫮,
믮騥    ᨢ-⮢  ॣ஢).    ARIFMYET.PAS  
樮묨 楫ﬨ ⠢ ⠪ ࠡ稪 뢠 52, 諥騩
ᨬ   -  ଠ쭮 ࠡ⠥   ਮ,   १.
     ᯥਬ (.) ,  ⥪ ⮢    騬
  䬥᪨ ⥪. ⪨ ࠢ  ࠭ 1- 饭
 ॣ BP (稪 ⥪ ⮢),  ⮡  ࠧ      
䬥᪮ ⥪,    १⮢  -  祢,  BP  ⮬
। ୮. ⮬ 뫮 襭 ।      室  ࠡ
ணࠬ 짮⥫.    좮  ᫥騬  ࠧ.  襬
䨪⨢ ᫮ 筮  ( 䤥.  ZSUV). 襬  ⮪
㦭  ᮪  (  १᪮  ࠭      稢  
lodsw/jmp ax,  ਮ᪮ -  jmp word ptr  ds:[105h],  ᥬ㥬,
뢠  16-   襬     ᫮,  ஥    '!'  
'c!'  祭 ணࠬ  ࢮ    ᫮    16-筮  ,
稭    (  ࠭          8XXXX  -
ᥣ CALL).    ਮ  ४  ⠪  ࠢ  
ਧ (. 㬥  ਮ᪮ ),   筮      -
  ஢. ᫨  ᫮,      -  ,    "
"   訬 ⮬ ᫮    ।  -  ਬ,
xor ax,ax= 33 C0  C033 !  ६ ⫠  ४  ᫥騩
ਥ.  ⫠  ⠢塞    FB  (ࠧ  뢠)  
 EBFE (⪨ 室  ᠬ ᥡ)      ⪠.  ।
᪮ ⫠  ணࠬ  ᪠  ணࠬ  PEPORES  (Peek  Poke
Resident,  - Graeme  Scott).    ⫠  ணࠬ  ᠥ,
⨢㥬  PEPORES:  ᫨    ଠ쭮,  CS:IP  㪠뢠      EBFE.
ᬮॢ ॣ   EBFE  9090 ( 2   nop),    .
᫨  ॡ     ⠭      ⮬      ,   ४
᫥⥫쭮 EBFE9090 <-> 9090EBFE. (  室 ⠪
१ ᥬ -UTIL .ᯥ᪮).  ᫥  ⫠    
㡨ࠥ. (᪨  ᥭ ᥫ  ⥪ ⮢     祭
᫥ 饭  뢠  樨  ⥪ ⮢ 
᫥  ⮣,        ⮣  ਥ  뫮   ᭥   ᯮ
䬥᪮ ⥪    ⥪  ⮢    祭  ᢨ⥫⢠  
᫥ ࠧ訬 䬥᪨ ⥪. ,    ਮ  ᥣ
⥪  ᮢ  ᥣ⮬   , 䬥᪨ ⥪ ᯮ
  ⥪  ⮢  (ࠦ  訥     ,   ⮣   ⥪
ࠧ⠥ ),    ࠭  ࠪ᪨  ⭮).  
2- ᫮ ⠢ 1-,   1- ᤢ ⥪, ᫥ 祣 
த ࠡ.
     筮, ᬮ७ ॠ 䬥⨪ ⨢  몠 
ᮧ  ᮡ  த   ணࠬ,         冷
짮⥫ ᯮ짮 ⢮ 権 . , 
८।    䬥᪨  ⢨,  ⮡       ஧
९ 뫨  ⥪ ⮢  뤠 ⨪,    冷
짮⥫  , 祬 ᫥騩  ਬ.      ᮧ
⠡  㥬  ᪠      ᫮    浪  ⮢
ࠧ  (ਬ, ⮢ 㪢  ᠬ쭮  ୮    
 祪    ணࠬ 祭 㪥 ৥).  ᪠  諮
   ⨯
 v('a','.-'); v('b','-...');
(ਠ  뭥ᥭ  ᬠਢ  ଠ樨    ⤥  䠩  
  㦥  -  த⢥  ଠ  뢠  ࠧᠭ    
䠩).   , ᯮ ᫮ WORD (/ EXPECT),   
⨯
 v a .- b -...
 v m -- n -.
 -  ७ 䨪  楤  ᥭ    ⠡,  ᪮,
祪  묨  䮢.   ᠥ 䨪᭮ ,    
 ਢ몠 -   筮  ࠧ  浪  ᫮    ⢥
몠.  ਬ,    ᪮    "    ਡ  "  -  砫
뢠 1-  㬥,  ⥬  ,  ⥬  2-  㬥  -    
⥬᪮ : +, -.   ﯮ᪮: "- - 㢠", "-
- 娪" -   :   +    - (!!!).  ᢥ ⮩   
  : a b =  c d =  and . ᭮,   ᪮ -  "add
 to ", "substract    from  "  -  冷          몠
ணࠬ஢:   ᯥ,  ᨬ 樨 -  1- ,   
 1- 㬥 - । 2-: (PLUS  ), (MINUS  ).
      祭    ஢  ࠭஢      
ਢ祭   ⮬    ࠡ  ᠭ ࠭஢.
     .. 1994,1,17.

