(c) S.Popov, Usinsk, Komi, 1999
e-mail: spopov@usinsk.ru



    "" LPT1
   =========================
    1.02  15.12.1999

ணࠬ ਥ஢  ࠡ  
Win-3.1,  Win-95/98.

祭.
-----------
ணࠬ     ,  
  ࠧࠡ⪮ , 
ࠢ塞 १ ࠫ  LPT1



⪠ ଠ.
-------------------
ணࠬ  ஫஢ 
ﭨ ⮢ 378h, 379h, 37Ah
 ⤥ ⠬.
 ⠪  ᮧ 
⥩訥 
 ࠢ ⠬ 
 ⭮ ०.


ᠭ   ᮧ ⬮.
---------------------------------------
 ⮣, ⮡ ᮧ  
 㧨 騩,
㦭 ६    
"" ணࠬ   ࠢ 
맢 ᯫ뢠饥 .
   㭪
" ।஢".
 ࠭   
  ⬠.
, ᯮ ᯫ뢠饥   
ࠢ  ,
 ࠭  ( )
  ,  㧨  ᪠
㣮.


 "࠭"  ᪥   筮
⥪⮢ 䠩 (ASCII).
⮬,    ᮧ ⠪,
   । ⨯ 
Notepad.exe, Lexicon.exe  .


 ᮧ ⬮ 㦭 ,  :
............................................
 ப  ப, 稭騥   ᨬ 
       * 
.
.., ᨬ *  ᯮ짮 
  ਥ.

-६ 믮 ⬠  ஡ 
᫥  ࠢ ( ப) .
.., ⨬ :
*਩ 1
  SetPins(1,2,3);
  SendImpuls(1,320)
loop (#1,48)
  SendImpuls(2,320)
  GetPin(4)
#1




 :
==========

, 㪠  ६ প 
 ⥫쭮 (஬  DelayTime)
 ⭮⥫ .७ (  
). 
 㦭   ⥬.
㥬 ࢠ 祭 :  50 ... 500.


YesInvers378=0   
     ஢      378h
YesInvers378=1   
   ࠧ襭 ஢      
378h

YesInvers37A=0   
    ஢      37Ah
YesInvers37A=1   
   ࠧ襭 ஢      
37Ah

SetPins(1,2,3...)
   ⠭  Pin`  1
ReSetPins(1,2,3...)
   ⠭  Pin`  0

SendImpuls(NumPin,DelayImpuls)
   ᫠    Pin`   
⥫쭮

SendNumber(Number,NumPinNum,NumPinStrob,
                   CountBitInNumber,Delay)
   ᫠   ᫮ Number  ᭮ 
    ⮬ :
      -  뫠  Pin`  NumPinNum
      -  ஡  Pin` NumPinStrob
      - Delay । ⥫쭮 ᮢ ஡
      - Delay । ⥫쭮 ᮢ ஡
      - CountBitInNumber । "ࠧ 뫪" 
        
Delay(DelayPause)
   ᤥ প  ⥫쭮 
   ( ᫮ , ४㥬 
    祭 : 50 ... 500)

DelayTime(DelayPause)
   ᤥ প  ⥫쭮  ᥪ.
   ( । 55 ... 65000)

GetPin(NumPin)
    祭  Pin 
   (⠭ 祭 ⮬᪨    
     㠫樨)

WaitPin(NumPin,WaitValue,WaitTime)
   ,  祭   Pin` 
    ਬ  祭 (WaitValue) 1  0.
   WaitTime - 祭  -(ᥪ)

STOP
   ⠭   쭥襩 
    짮⥫

CLEARBUF
     㠫樨 ⠭ 

Loop(NameLabel,Count)
   ࣠ 横,  :
       NameLabel -  ⪨,  横 
                         (ਬ, #1 , #22) 
       Count -        - 横

ப, 稭  ᨬ # - ⪠  Loop.
ਬ, #99   #1  #10   ..
 ப  ⪮  祣   .
ᨬ ࠧ ⪨ : 8 ᨬ,  ᨬ #.
 ⢥  ⪨  ᯮ짮 䠢⭮-஢ ᨬ.


 !!!
  ᨨ ணࠬ  
横 (LOOP)  ⨬.

⨬ :
----------
Loop(#1, ...)
  ...
#1

Loop(#2, ...)
  ...
#2

 ⨬ :
-------------
#1
  ...
Loop(#1, ...)




ਬ ⬠ :
..................
* ⠭ ० ஢    378h
YesInvers378=1   
*  ० ஢    37Ah
YesInvers37A=0

* ⠭ Pin` 3,4,7   1
SetPins(3,4,7,9)
* ⠭ Pin` 2,5,6   0
ReSetPins(2,5,6,8)

* প  320
Delay(320)

* ᫠   Pin` 3 ⥫쭮 320
SendImpuls(3,320)

* প  320
Delay(320)

* ᫮( ⠬)
SendNumber(4097,8,2, 16,320)

* ᫠   Pin` 4 ⥫쭮 320
SendImpuls(4,320)

* 1 ᥪ㭤
DelayTime(1000)

* 1   11 Pin` ( 祭 1 ᥪ㭤)
WaitPin(11,1,1000)

* প  320
Delay(320)

* 砫 横. - 横 = 48
Loop(#1,48)

  * ᫠   Pin` 3 ⥫쭮 320
  SendImpuls(2,320)

  * প  320
  Delay(320)

  *  祭 Pin` 7 
  GetPin(10)

*  横  ⪥  #1
#1
  

