Updates for GAL logic

This commit is contained in:
Philip Smart
2023-05-10 09:58:35 +01:00
parent ac7565c097
commit 9f1a79b02b
4 changed files with 1371 additions and 0 deletions

67
CUPL/SFD700.PLD vendored Normal file
View File

@@ -0,0 +1,67 @@
Name SFD700 ;
PartNo GAL26CV12 ;
Date 24/04/2023 ;
Revision 01 ;
Designer Philip Smart ;
Company engineers@work ;
Assembly SFD700 ;
Location ;
Device g26cv12 ;
/* *************** CONSTANTS ********************** */
$DEFINE ON 'b'1
$DEFINE OFF 'b'0
/* *************** INPUT PINS ********************* */
PIN 1 = A0 ; /* Address bus A0 */
PIN 2 = A1 ; /* A1 */
PIN 3 = A2 ; /* A2 */
PIN 4 = A3 ; /* A3 */
PIN 5 = A4 ; /* A4 */
PIN 6 = A5 ; /* A5 */
PIN 8 = A6 ; /* A6 */
PIN 9 = A7 ; /* A7 */
PIN 10 = A12 ; /* A12 */
PIN 11 = A13 ; /* A13 */
PIN 12 = A14 ; /* A14 */
PIN 13 = A15 ; /* A15 */
PIN 14 = !MREQn ; /* Z80 MREQ active low */
PIN 15 = !IORQn ; /* Z80 IORQ active low */
PIN 16 = !WRn ; /* Z80 WR active low */
PIN 17 = !RDn ; /* Z80 RD active low */
PIN 28 = RESET ; /* System Reset active high */
/* *************** OUTPUT PINS ******************** */
PIN 22 = !BUSENn ; /* BUS direction, low = read into Z80, high = write to card. */
PIN 20 = !IOBUSDIRn ; /* I/O BUS direction, low = read into Z80, high = write to FD IC's */
PIN 27 = !FDCn ; /* WD1773 Chip Select active low I/O - Address 0xD8 .. 0xDB */
PIN 26 = !DRIVEn ; /* Disk Drive Select active low - Address 0xDC */
PIN 25 = !DDENn ; /* Drive Density select active low - Address 0xDE */
PIN 24 = !FDCRESETn ; /* Peripheral Reset active low */
PIN 23 = !SIDEn ; /* Disk Head Select active low - Address 0xDD */
PIN 19 = !INTEN ; /* Interrupt enable. */
PIN 18 = !ROMn ; /* ROM Select. */
/* Decoder equations. */
FIELD IOADDR = [A7..0] ; /* Address lines considered for I/O devices. */
FIELD HIADDR = [A15..12] ; /* Address lines considered for ROM device. */
WD1773SELR = IORQn & RDn & IOADDR:[D8..DB] ; /* FDC select. */
WD1773SELW = IORQn & WRn & IOADDR:[D8..DB] ; /* FDC select. */
SIDESEL = IORQn & WRn & IOADDR:[DD..DD] ; /* Drive side select. */
DRIVESEL = IORQn & WRn & IOADDR:[DC..DC] ; /* Drive number select. */
DDENSEL = IORQn & WRn & IOADDR:[DE..DE] ; /* Drive Double Density select. */
ROMSEL = MREQn & RDn & HIADDR:[F000..F7FF] ; /* Rom Select. */
DRAMENSEL = IORQn & WRn & IOADDR:[E1];
/* Assign output pins based on equations. */
IOBUSDIRn = WD1773SELR ;
BUSENn = ROMSEL # WD1773SELR # WD1773SELW #
SIDESEL # DRIVESEL # DDENSEL ;
FDCRESETn = RESET ;
FDCn = WD1773SELR # WD1773SELW ;
SIDEn = SIDESEL ;
DRIVEn = DRIVESEL ;
DDENn = DDENSEL ;
ROMn = ROMSEL ;
INTEN.sp = DRAMENSEL ;
INTEN.ar = RESET ;