75 lines
2.0 KiB
Plaintext
75 lines
2.0 KiB
Plaintext
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)
|