FreeCalypso > hg > freecalypso-tools

annotate target-utils/buzplayer/pwt.c @ 820:03457a66d860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
buzplayer: add basic support for PWT
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 30 May 2021 03:39:58 +0000
parents
children 16bee7b6bd6b
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
820
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * Commands for exercising the Calypso buzzer in PWT mode.
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 */
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 #include <sys/types.h>
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 #include <strings.h>
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 #include "types.h"
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 extern u_long strtoul();
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 #define ASIC_CONF_REG (*(volatile u16 *) 0xFFFEF008)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 #define PWT_MODE_MASK 0x0020
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 #define PWT_FRC_REG (*(volatile u8 *) 0xFFFE8800)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 #define PWT_VCR_REG (*(volatile u8 *) 0xFFFE8801)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 #define PWT_GCR_REG (*(volatile u8 *) 0xFFFE8802)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 void
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 cmd_pwt(argbulk)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 char *argbulk;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 char *argv[2];
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24 if (parse_args(argbulk, 1, 1, argv, 0) < 0)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 return;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 if (!strcmp(argv[0], "on")) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 ASIC_CONF_REG |= PWT_MODE_MASK;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28 PWT_GCR_REG = 0x01;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 } else if (!strcmp(argv[0], "off")) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
30 ASIC_CONF_REG &= ~PWT_MODE_MASK;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
31 PWT_GCR_REG = 0;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
32 } else
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
33 printf("ERROR: \"on\" or \"off\" argument expected\n");
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
34 }
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
35
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
36 void
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
37 cmd_buzpwt(argbulk)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
38 char *argbulk;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
39 {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
40 char *argv[3];
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
41 u32 note, vol;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
42 int c;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
43
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
44 if (parse_args(argbulk, 1, 2, argv, 0) < 0)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
45 return;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
46 note = strtoul(argv[0], 0, 0);
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
47 if (note > 47) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
48 printf("ERROR: note argument out of range\n");
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
49 return;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
50 }
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
51 if (argv[1]) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
52 vol = strtoul(argv[1], 0, 0);
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
53 if (vol > 63) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
54 printf("ERROR: volume argument out of range\n");
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
55 return;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
56 }
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
57 } else
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
58 vol = 63;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
59 PWT_FRC_REG = note;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
60 PWT_VCR_REG = (vol << 1) | 1;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
61 for (;;) {
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
62 c = serial_in_poll();
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
63 if (c >= 0)
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
64 break;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
65 }
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
66 PWT_VCR_REG = 0;
03457a66d860 buzplayer: add basic support for PWT
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
67 }