Предварительные результаты

зароботатло стабильно только так
с краевого разьёма были взяты сигналы ША ШД и IORQCE
всё кроме ШД буферезировано через HC245
к A0 и A1 на ввшки были заведены А3 и А4 соответственно
все адреса и и IORQ заведены на GAL22v10






Код:
   
                               ______________
                              |     U27      |
                       A0 x---|1           24|---x Vcc                      
                       A1 x---|2           23|---x !cs_pio_0                
                       A2 x---|3           22|---x !cs_pio_1                
                       A3 x---|4           21|---x !cs_pio_2                
                       A4 x---|5           20|---x !spare0                  
                       A5 x---|6           19|---x !spare1                  
                       A6 x---|7           18|---x !IORQ                    
                       A7 x---|8           17|---x A15                      
                       A8 x---|9           16|---x A14                      
                       A9 x---|10          15|---x A13                      
                      A10 x---|11          14|---x A12                      
                      GND x---|12          13|---x A11                      
                              |______________|



Исходник в WINCUPL ? КОТОРыЙ превратился ....
Код:
Name U27 ;
PartNo 27 ;
Date 15.08.2006 ;
Revision 01 ;
Designer Engineer ;
Company osi ;
Assembly None ;
Location earth ;
Device p22v10 ;

/* *************** INPUT PINS *********************/
PIN [1,2,3,4,5,6,7,8,9,10,11,13,14,15,16,17] = [A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15] ; 
PIN 18 = !IORQ ; 
/* *************** OUTPUT PINS *********************/
PIN 23 = !cs_pio_0 ; /* */ 
PIN 22 = !cs_pio_1 ; /* */ 
PIN 21 = !cs_pio_2 ; /* */ 
PIN 20 = !spare0 ; /* */ 
PIN 19 = !spare1 ; /* */ 


FIELD ioaddr = [A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15] ;

ioport_0 = ioaddr:'h'[FF85,FF8D,FF95,FF9D] ;
cs_pio_0  =(!IORQ $ (IORQ)) & ioport_0 ;

ioport_1 = ioaddr:'h'[FFA5,FFAD,FFB5,FFBD] ;
cs_pio_1 = (!IORQ $ (IORQ)) & ioport_1  ;

ioport_2 = ioaddr:'h'[FFC5,FFCD,FFD5,FFDD] ;
cs_pio_2 = (!IORQ $ (IORQ)) & ioport_2   ;