FreeCalypso > hg > freecalypso-tools

comparison 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
comparison
equal deleted inserted replaced
819:7b24c192a1e1 820:03457a66d860
1 /*
2 * Commands for exercising the Calypso buzzer in PWT mode.
3 */
4
5 #include <sys/types.h>
6 #include <strings.h>
7 #include "types.h"
8
9 extern u_long strtoul();
10
11 #define ASIC_CONF_REG (*(volatile u16 *) 0xFFFEF008)
12 #define PWT_MODE_MASK 0x0020
13
14 #define PWT_FRC_REG (*(volatile u8 *) 0xFFFE8800)
15 #define PWT_VCR_REG (*(volatile u8 *) 0xFFFE8801)
16 #define PWT_GCR_REG (*(volatile u8 *) 0xFFFE8802)
17
18 void
19 cmd_pwt(argbulk)
20 char *argbulk;
21 {
22 char *argv[2];
23
24 if (parse_args(argbulk, 1, 1, argv, 0) < 0)
25 return;
26 if (!strcmp(argv[0], "on")) {
27 ASIC_CONF_REG |= PWT_MODE_MASK;
28 PWT_GCR_REG = 0x01;
29 } else if (!strcmp(argv[0], "off")) {
30 ASIC_CONF_REG &= ~PWT_MODE_MASK;
31 PWT_GCR_REG = 0;
32 } else
33 printf("ERROR: \"on\" or \"off\" argument expected\n");
34 }
35
36 void
37 cmd_buzpwt(argbulk)
38 char *argbulk;
39 {
40 char *argv[3];
41 u32 note, vol;
42 int c;
43
44 if (parse_args(argbulk, 1, 2, argv, 0) < 0)
45 return;
46 note = strtoul(argv[0], 0, 0);
47 if (note > 47) {
48 printf("ERROR: note argument out of range\n");
49 return;
50 }
51 if (argv[1]) {
52 vol = strtoul(argv[1], 0, 0);
53 if (vol > 63) {
54 printf("ERROR: volume argument out of range\n");
55 return;
56 }
57 } else
58 vol = 63;
59 PWT_FRC_REG = note;
60 PWT_VCR_REG = (vol << 1) | 1;
61 for (;;) {
62 c = serial_in_poll();
63 if (c >= 0)
64 break;
65 }
66 PWT_VCR_REG = 0;
67 }