FreeCalypso > hg > fc-magnetite

comparison src/aci2/aci/ati_audio.c @ 287:d85305a74518

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
aci2 AT@SPKR command: added query operation
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 27 Aug 2017 03:27:45 +0000
parents 3edeadec6804
children dd3374eac8a3
comparison
equal deleted inserted replaced
286:840113655bbf 287:d85305a74518
73 /* AT@SPKR - turn loudspeaker amplifier on or off */ 73 /* AT@SPKR - turn loudspeaker amplifier on or off */
74 GLOBAL T_ATI_RSLT atAtSPKR ( char *cl, UBYTE srcId ) 74 GLOBAL T_ATI_RSLT atAtSPKR ( char *cl, UBYTE srcId )
75 { 75 {
76 int state; 76 int state;
77 77
78 TRACE_FUNCTION("atAtSPKR()");
79
78 cl = parse(cl, "D", &state); 80 cl = parse(cl, "D", &state);
79 if (!cl) 81 if (!cl)
80 return (ATI_FAIL); 82 return (ATI_FAIL);
81 if (state) 83 if (state)
82 AI_SetBit(1); 84 AI_SetBit(1);
83 else 85 else
84 AI_ResetBit(1); 86 AI_ResetBit(1);
87 return (ATI_CMPL);
88 }
89
90 GLOBAL T_ATI_RSLT queatAtSPKR (char *cl, UBYTE srcId)
91 {
92 char *me="@SPKR: ";
93 int state;
94
95 TRACE_FUNCTION("queatAtSPKR()");
96
97 state = AI_ReadBit(1);
98 sprintf(g_sa, "%s%d", me, state);
99
100 io_sendMessage(srcId, g_sa, ATI_NORMAL_OUTPUT);
101
85 return (ATI_CMPL); 102 return (ATI_CMPL);
86 } 103 }
87 #endif 104 #endif
88 105
89 /* AT@SND - emit sound through Condat API */ 106 /* AT@SND - emit sound through Condat API */