LISTING FOR LOGIC DESCRIPTION FILE: audio_casette_card.pld           Page 1

CUPL(WM): Universal Compiler for Programmable Logic
Version 5.0a Serial# MW-10400000
Copyright (c) 1983, 1998 Logical Devices, Inc.
Created Sat Oct 17 12:42:37 2026

  1:Name     acc;
  2:PartNo   00;
  3:Date     2026-10-11;
  4:Revision 01;
  5:Designer Joppe Blondel;
  6:Company  unknown;
  7:Assembly unknown;
  8:Location unknown;
  9:Device   g22v10;
 10:
 11:/* Constants */
 12:ar = 'b'0;
 13:sp = 'b'0;
 14:
 15:/* Pin assignments */
 16:/*   inputs */
 17:PIN 1 = CLK;
 18:PIN 2 = A1;
 19:PIN 3 = A2;
 20:PIN 4 = IOSELN;
 21:PIN 5 = RDN;
 22:PIN 6 = A0;
 23:PIN 7 = COMP;
 24:PIN 8 = WRN;
 25:/*   outputs */
 26:PIN 14 = D0;
 27:PIN 15 = SNWEN;
 28:PIN 16 = AYBDIR;
 29:PIN 17 = AYBC1;
 30:PIN 22 = COUT;
 31:
 32:/* Read reg0 */
 33:/*   places comparator output on D0 when reading addr0 */
 34:D0 = COMP;
 35:D0.OE = !IOSELN & !RDN & WRN & !A0 & !A1 & !A2;
 36:
 37:/* Write reg0 */
 38:/*   writes D0 to casette output port */
 39:/*   during a write COUT.D=D0 otherwise COUT.D = COUT */
 40:COUT.D = (!IOSELN & RDN & !WRN & !A0 & !A1 & !A2 & D0) #
 41:         ((IOSELN # !RDN # WRN # A0 # A1 # A2) & COUT);
 42:COUT.ar = ar;
 43:COUT.sp = sp;
 44:
 45:/* Write to SN76489 at addr 1 */
 46:SNWEN = !(!IOSELN & RDN & !WRN & A0 & !A1 & !A2);
 47:
 48:/* AY-3-8910 access at addr 2 (data) addr 3 (adress) */
 49:AYDATAREAD = !IOSELN & !RDN & WRN & !A0 & A1 & !A2;
 50:AYDATAWRITE = !IOSELN & RDN & !WRN & !A0 & A1 & !A2;
 51:AYADDRWRITE = !IOSELN & RDN & !WRN & A0 & A1 & !A2;
 52:AYBDIR = AYDATAWRITE # AYADDRWRITE;
 53:AYBC1 = AYDATAREAD # AYADDRWRITE;

LISTING FOR LOGIC DESCRIPTION FILE: audio_casette_card.pld           Page 2

CUPL(WM): Universal Compiler for Programmable Logic
Version 5.0a Serial# MW-10400000
Copyright (c) 1983, 1998 Logical Devices, Inc.
Created Sat Oct 17 12:42:37 2026

 54:



Jedec Fuse Checksum       (5c1a)
Jedec Transmit Checksum   (46c6)