Import xscope bits into keithp.com CVS

1 files changed, 950 insertions, 0 deletions

diff --git a/printnas.c b/printnas.c
new file mode 100644
index 0000000..4ee29cc
--- /dev/null
+++ b/printnas.c
@@ -0,0 +1,950 @@
+/* ************************************************** *
+ *						      *
+ *  Request, Reply, Event, Error Printing	      *
+ *						      *
+ *	James Peterson, 1988			      *
+ *	(c) Copyright MCC, 1988 		      *
+ *						      *
+ * ************************************************** */
+
+#include "scope.h"
+#include "nas.h"
+
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+/*
+  In printing the contents of the fields of the X11 packets, some
+  fields are of obvious value, and others are of lesser value.  To
+  control the amount of output, we generate our output according
+  to the level of Verbose-ness that was selected by the user.
+
+  NasVerbose = 0 ==  Headers only, time and request/reply/... names.
+
+  NasVerbose = 1 ==  Very useful content fields.
+
+  NasVerbose = 2 ==  Almost everything.
+
+  NasVerbose = 3 ==  Every single bit and byte.
+
+*/
+
+/*
+  To aid in making the choice between level 1 and level 2, we
+  define the following define, which does not print relatively
+  unimportant fields.
+*/
+
+#define printfield(a,b,c,d,e) if (NasVerbose > 1) PrintField(a,b,c,d,e)
+
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+PrintAudioSetUpMessage(buf)
+     unsigned char *buf;
+{
+  short   n;
+  short   d;
+
+  enterprocedure("PrintSetUpMessage");
+  if (NasVerbose < 1)
+    return;
+  SetIndentLevel(PRINTCLIENT);
+  PrintField(buf, 0, 1, BYTEMODE, "byte-order");
+  PrintField(buf, 2, 2, CARD16, "major-version");
+  PrintField(buf, 4, 2, CARD16, "minor-version");
+  printfield(buf, 6, 2, DVALUE2(n), "length of name");
+  n = IShort(&buf[6]);
+  printfield(buf, 8, 2, DVALUE2(d), "length of data");
+  d = IShort(&buf[8]);
+  PrintString8(&buf[12], (long)n, "authorization-protocol-name");
+  PrintString8(&buf[pad((long)(12+n))], (long)d, "authorization-protocol-data");
+}
+
+PrintAudioSetUpReply(buf)
+     unsigned char *buf;
+{
+  enterprocedure("PrintSetUpReply");
+  SetIndentLevel(PRINTSERVER);
+  if (IByte(&buf[0]))
+    PrintSuccessfulAudioSetUpReply(buf);
+  else
+    PrintFailedAudioSetUpReply(buf);
+}
+
+PrintFailedAudioSetUpReply(buf)
+     unsigned char *buf;
+{
+  short   n;
+
+  PrintField(buf, 0, 1, 0, "SetUp Failed");
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 1, 1, DVALUE1(n), "length of reason in bytes");
+  n = IByte(&buf[1]);
+  PrintField(buf, 2, 2, CARD16, "major-version");
+  PrintField(buf, 4, 2, CARD16, "minor-version");
+  printfield(buf, 6, 2, DVALUE2((n + p) / 4), "length of data");
+  PrintString8(&buf[8], (long)n, "reason");
+}
+
+PrintSuccessfulAudioSetUpReply(buf)
+     unsigned char *buf;
+{
+  short   v;
+  short   n;
+  short   m;
+
+  if (NasVerbose < 1)
+    return;
+  PrintField(buf, 2, 2, CARD16, "protocol-major-version");
+  PrintField(buf, 4, 2, CARD16, "protocol-minor-version");
+  printfield(buf, 6, 2, DVALUE2(8 + 2*n + (v + p + m) / 4), "length of data");
+  PrintField(buf, 8, 4, CARD32, "release-number");
+  PrintField(buf, 12, 4, CARD32, "resource-id-base");
+  PrintField(buf, 16, 4, CARD32, "resource-id-mask");
+  PrintField(buf, 20, 2, CARD16, "min-sample-rate");
+  PrintField(buf, 22, 2, CARD16, "max-sample-rate");
+  printfield(buf, 24, 2, DVALUE2(v), "length of vendor");
+  v = IShort(&buf[24]);
+  printfield(buf, 26, 2, CARD16, "maximum-request-length");
+  printfield(buf, 28, 1, CARD8, "max-tracks");
+  m = IByte(&buf[28]);
+  printfield(buf, 29, 1, DVALUE1(n), "number of audio formats");
+  n = IByte(&buf[29]);
+  PrintField(buf, 30, 1, CARD8, "number of element-types");
+  PrintField(buf, 31, 1, CARD8, "number of wave-forms");
+  PrintField(buf, 32, 1, CARD8, "number of actions");
+  PrintField(buf, 33, 1, CARD8, "number of devices");
+  PrintField(buf, 34, 1, CARD8, "number of buckets");
+  PrintField(buf, 35, 1, CARD8, "number of radios");
+  PrintString8(&buf[36], (long)v, "vendor");
+}
+
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+extern char *REQUESTHEADER;
+extern char *EVENTHEADER;
+extern char *ERRORHEADER;
+extern char *REPLYHEADER;
+
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+/* Error Printing procedures */
+
+AudioRequestError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Request */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioValueError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Value */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 4, 4, INT32, "bad value");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioMatchError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Match */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioAccessError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Access */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioAllocError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Alloc */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioIDChoiceError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* IDChoice */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 4, 4, CARD32, "bad resource id");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioLengthError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Length */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+AudioImplementationError(buf)
+     unsigned char *buf;
+{
+  PrintField(buf, 1, 1, ERROR, ERRORHEADER) /* Implementation */ ;
+  if (NasVerbose < 1)
+    return;
+  printfield(buf, 2, 2, CARD16, "sequence number");
+  PrintField(buf, 8, 2, CARD16, "minor opcode");
+  PrintField(buf, 10, 1, CARD8, "major opcode");
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+/* Event Printing procedures */
+
+AudioElementNotify (buf)
+    unsigned char *buf;
+{
+    PrintField(buf, 0, 1, NASEVENT, EVENTHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 1, 1, CARD8, "detail");
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    PrintField(buf, 4, 4, TIMESTAMP, "time");
+    PrintField(buf, 8, 4, CARD32, "flow");
+    printfield(buf, 12, 2, CARD16, "element num");
+    printfield(buf, 14, 2, CARD16, "kind");
+    printfield(buf, 16, 2, CARD16, "prev state");
+    printfield(buf, 18, 2, CARD16, "cur state");
+    printfield(buf, 20, 2, CARD16, "reason");
+    printfield(buf, 24, 4, CARD32, "num bytes");
+}
+
+AudioGrabNotify (buf)
+    unsigned char *buf;
+{
+}
+
+AudioMonitorNotify (buf)
+    unsigned char *buf;
+{
+    PrintField(buf, 0, 1, NASEVENT, EVENTHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 1, 1, CARD8, "detail");
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    PrintField(buf, 4, 4, TIMESTAMP, "time");
+    PrintField(buf, 8, 4, CARD32, "flow");
+    printfield(buf, 12, 2, CARD16, "element num");
+    printfield(buf, 14, 1, CARD8, "format");
+    printfield(buf, 15, 1, CARD8, "num tracks");
+    printfield(buf, 16, 2, CARD16, "count");
+    printfield(buf, 18, 2, CARD16, "num fields");
+    PrintField(buf, 20, 4, CARD32, "data");
+    PrintField(buf, 24, 4, CARD32, "date1");
+    PrintField(buf, 28, 4, CARD32, "data2");
+}
+
+AudioBucketNotify (buf)
+    unsigned char *buf;
+{
+}
+
+AudioDeviceNotify (buf)
+    unsigned char *buf;
+{
+}
+
+/* ************************************************************ */
+/*								*/
+/*								*/
+/* ************************************************************ */
+
+/* Request and Reply Printing procedures */
+
+UnknownAudioReply(buf)
+    unsigned char *buf;
+{
+  long n;
+  
+  PrintField(RBf, 0, 1, NASREPLY, REPLYHEADER);
+  PrintField(buf, 1, 1, CARD8, "data");
+  printfield (buf, 2, 2, CARD16, "sequence number");
+  printfield (buf, 4, 4, DVALUE4(n), "reply length");
+  n = ILong (&buf[4]) + 6;
+  (void) PrintList (&buf[8], n, CARD32, "data");
+}
+
+AudioListDevices (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER) /* ListDevices */;
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListDevicesReply(buf)
+    unsigned char *buf;
+{
+    long	n;
+    PrintField(RBf, 0, 1, REPLY, REPLYHEADER) /* GetWindowAttributes */ ;
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, CARD32, "reply length");
+    printfield(buf, 8, 4, CARD32, "num devices");
+    n = ILong(&buf[8]);
+}
+
+static
+AuString (buf)
+    unsigned char *buf;
+{
+    long    n;
+    
+    printfield(buf, 0, 1, CARD8, "type");
+    printfield(buf, 4, 4, CARD32, "length");
+    n = ILong(&buf[8]);
+    PrintString8(&buf[8], n, "string");
+    return 8 + pad(n);
+}
+
+static
+AuDeviceAttributes (buf)
+    unsigned char *buf;
+{
+    int	l;
+    printfield(buf, 0, 4, CARD32, "value mask");
+    printfield(buf, 4, 4, CARD32, "changable mask");
+    printfield(buf, 8, 4, CARD32, "id");
+    printfield(buf, 12, 1, CARD8, "kind");
+    printfield(buf, 13, 1, CARD8, "use");
+    printfield(buf, 14, 1, CARD8, "format");
+    printfield(buf, 15, 1, CARD8, "num tracks");
+    printfield(buf, 16, 4, CARD32, "access");
+    l = 20 + AuString(&buf[20]);
+}
+
+AudioGetDeviceAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetDeviceAttributesReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+    AuDeviceAttributes (&buf[32]);
+}
+
+AudioSetDeviceAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+    printfield(buf, 4, 4, CARD32, "device");    
+    AuDeviceAttributes (&buf[8]);
+}
+
+AudioCreateBucket (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioDestroyBucket (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListBuckets (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListBucketsReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioGetBucketAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetBucketAttributesReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetBucketAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioCreateRadio (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioDestroyRadio (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListRadios (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListRadiosReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioGetRadioAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetRadioAttributesReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetRadioAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioCreateFlow (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioDestroyFlow (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetFlowAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetFlowAttributesReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetFlowAttributes (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetElements (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetElementsReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetElements (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetElementStates (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioElementState (buf)
+    unsigned char   *buf;
+{
+    printfield(buf, 0, 4, CARD32, "flow");
+    printfield(buf, 4, 1, CARD8, "element number");
+    printfield(buf, 5, 1, CARD8, "state");
+}
+
+AudioGetElementStatesReply (buf)
+    unsigned char   *buf;
+{
+    int	    n, i;
+    int	    o;
+    
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+    n = ILong(&buf[8]);
+    o = 32;
+    for (i = 0; i < n; i++)
+    {
+	AudioElementState (buf+o);
+	o += 8;
+    }
+}
+
+AudioSetElementStates (buf)
+    unsigned char   *buf;
+{
+    int	nstates, i;
+    int	o;
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+    printfield(buf, 4, 4, CARD32, "number states");
+    nstates = ILong(&buf[4]);
+    o = 8;
+    for (i = 0; i < nstates; i++)
+    {
+	AudioElementState (buf+o);
+	o += 8;
+    }
+}
+
+AudioGetElementParameters (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetElementParametersReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetElementParameters (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioWriteElement (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+    printfield(buf, 4, 4, CARD32, "flow");
+    printfield(buf, 8, 4, CARD32, "num bytes");
+    printfield(buf, 12, 1, CARD8, "state");
+}
+
+AudioReadElement (buf)
+    unsigned char   *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioReadElementReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioGrabComponent (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioUngrabComponent (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioSendEvent (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetAllowedUsers (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetAllowedUsersReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetAllowedUsers (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListExtensions (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioListExtensionsReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioQueryExtension (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioQueryExtensionReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioGetCloseDownMode (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetCloseDownModeReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioSetCloseDownMode (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioKillClient (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetServerTime (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}
+
+AudioGetServerTimeReply (buf)
+    unsigned char   *buf;
+{
+    PrintField (RBf, 0, 1, NASREPLY, REPLYHEADER);
+    if (NasVerbose < 1)
+	return;
+    printfield(buf, 2, 2, CARD16, "sequence number");
+    printfield(buf, 4, 4, DVALUE4((n + p) / 4), "reply length");
+}
+
+AudioNoOperation (buf)
+    unsigned char *buf;
+{
+    PrintField (buf, 0, 1, NASREQUEST, REQUESTHEADER);
+    if (NasVerbose < 1)
+	return;
+    if (NasVerbose > 1)
+	PrintField(SBf, 0, 4, CARD32, "sequence number");
+    printfield(buf, 2, 2, DVALUE2(8 + n), "request length");
+}