home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s199 / 1.img / TTLLOAD.ABL < prev    next >
Encoding:
Text File  |  1986-02-04  |  777 b   |  31 lines
  1. module TTLload
  2. title 'TTL load example
  3. Brenda French     FutureNet - Data I/O   21 Nov 1985'
  4.  
  5.     TTL59    device    'F82S159';
  6.  
  7.     C,L,H,X,Z    = .C.,0,1,.X.,.Z.;
  8.  
  9.     Clk,J_IN,K_IN,LOAD,Ena,F0    pin 1,2,3,4,11,12;
  10.     LA,M0,K0            node 27,29,37;
  11.  
  12. equations
  13.  
  14.      enable  F0  = !Ena;    " Enable controlled by pin 11
  15.            M0  = 0;     " fuse open - fixed at JK
  16.  
  17.         !F0 := J_IN;
  18.           K0  = K_IN;
  19.           LA  = LOAD;
  20.  
  21. test_vectors    
  22.        ([Clk,Ena,J_IN,K_IN,LOAD,F0] -> F0)
  23.     [ C , L ,  1 ,  0 ,  0 , X] ->  0 ; "Set
  24.     [ C , L ,  0 ,  1 ,  0 , X] ->  1 ; "Reset
  25.     [ C , L ,  1 ,  1 ,  0 , X] ->  0 ; "Toggle
  26.     [ C , L ,  1 ,  1 ,  0 , X] ->  1 ; "Toggle
  27.     [ C , H ,  0 ,  0 ,  1 , 0] ->  X ; "Load
  28.     [ 0 , L ,  0 ,  0 ,  0 , X] ->  0 ; "Test
  29.     [ C , L ,  1 ,  1 ,  0 , X] ->  1 ; "Toggle
  30. end 
  31.