  Name            l_ba1xx;
  Partno          xxxxx;
  Date            29/06/89;
  Revision        02;
  Designer        Stempel;
  Company         LPR;
  Device          p2018;
  Assembly        Lance board;
  Format          j;
  Location        XXXXX;

  /* PAL fuer LANCE Anpassung an 68000  */                                                                                             
  /* Allowable Target Device Types:  P2018, G20V8, G2018 */
  
  /** Pins **/

  Pin 1           =  A1            ;  /*  I   Adressleitung  */
  Pin 2           =  A2            ;  /*  I   Adressleitung  */
  Pin 3           =  A3            ;  /*  I   Adressleitung  */
  Pin 4           =  !HOLD         ;  /*  I   LANCE  Busanforderung */
  Pin 5           =  !DTACK        ;  /*  I   Data  Acknowledge */
  Pin 6           =  !LANCE_CS     ;  /*  I   Chip select fr LANCE Ports */
  Pin 7           =  !ADDR_CS      ;  /*  I   Chip select fr EAP */
  Pin 8           =  FC2           ;  /*  I   Function  Code  2  */
  Pin 9           =  FCl           ;  /*  I   Function  Code  1  */
  Pin 10          =  FCO           ;  /*  I   Function  Code  0  */
  Pin 11          =  !BG           ;  /*  I   Bus  Grant */
  Pin 13          =  !AS           ;  /*  I   Adress Strobe  */
  Pin 14          =  !RESET        ;  /*  I   Reset          */
  Pin 15          =  !VPA          ;  /*  Z/O Valid  Peripheral  Adress      */
  Pin 16          =  !LS           ;  /*  O   Chip select fr LANCE (slave)  */
  Pin 17          =  !HOLDA        ;  /*  O   HOLDA  ==  BGACK.OE          */
  Pin 18          =  !BGACK        ;  /*  I/O Bus  Grant  Acknowledge     */
  Pin 19          =  !DAS          ;  /*  I   LANCE  Data  Strobe          */
  Pin 20          =  !LDS          ;  /*  I   Lower  Data  Strobe          */
  Pin 21          =  !UDS          ;  /*  I   Upper  Data  Strobe          */         
  Pin 22          =  !BR           ;  /*  Z/O Bus  Request                 */
  Pin 23          =  !INT          ;  /*  I   LANCE Interruptanforderung   */

  /*   Logic  Equations        */

  DAS = UDS & LDS & LS;
  DAS.OE = !HOLDA;

  BR = 'b'1;
  BR.OE = !BGACK & HOLD;

  HOLDA  =  ( HOLD & BG & !AS # HOLDA & HOLD )  & !LS & !RESET;

  BGACK = 'b'1;
  BGACK.OE = HOLDA;

  LS = ( LANCE_CS & AS # LS & !DTACK ) & !HOLDA & !RESET;
  LS.OE = 'b'1;
                  
  VPA.OE = FCO & FC1 & FC2 & A1 & !A2 & A3 & INT & AS;
  VPA = 'b'1;

                         
