(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
  

