Initial import of mopd-2.5.3. -moj

1 files changed, 315 insertions, 0 deletions

diff --git a/usr.sbin/mopd/common/dl.c b/usr.sbin/mopd/common/dl.c
new file mode 100644
index 00000000000..2900bd34961
--- /dev/null
+++ b/usr.sbin/mopd/common/dl.c
@@ -0,0 +1,315 @@
+/*
+ * Copyright (c) 1993-95 Mats O Jansson.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *	This product includes software developed by Mats O Jansson.
+ * 4. The name of the author may not be used to endorse or promote products
+ *    derived from this software without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+ * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+ * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+ * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+ * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+ * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+ * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+ * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+ * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+ * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ */
+
+#ifndef LINT
+static char rcsid[] = "$Id: dl.c,v 1.1 1996/09/21 13:49:16 maja Exp $";
+#endif
+
+#include "os.h"
+#include "common/get.h"
+#include "common/print.h"
+#include "common/mopdef.h"
+
+void
+mopDumpDL(fd, pkt, trans)
+	FILE	*fd;
+	u_char 	*pkt;
+	int	 trans;
+{
+	int	i,index = 0;
+	long	tmpl;
+	u_char	tmpc,c,program[17],code,*ucp;
+	u_short	len,tmps,moplen;
+
+	len = mopGetLength(pkt, trans);
+
+	switch (trans) {
+	case TRANS_8023:
+		index = 22;
+		moplen = len - 8;
+		break;
+	default:
+		index = 16;
+		moplen = len;
+	}
+	code = mopGetChar(pkt,&index);
+	
+	switch (code) {
+	case MOP_K_CODE_MLT:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Load Number */
+		(void)fprintf(fd,"Load Number  :   %02x\n",tmpc);
+		
+		if (moplen > 6) {
+			tmpl = mopGetLong(pkt,&index);/* Load Address */
+			(void)fprintf(fd,"Load Address : %08x\n",tmpl);
+		}
+		
+		if (moplen > 10) {
+#ifndef SHORT_PRINT
+			for (i = 0; i < (moplen - 10); i++) {
+				if ((i % 16) == 0) {
+					if ((i / 16) == 0) {
+					 	(void)fprintf(fd,
+						       "Image Data   : %04x ",
+							      moplen-10);
+					} else {
+						(void)fprintf(fd,
+						       "                    ");
+				        }
+				}
+				
+				(void)fprintf(fd, "%02x ",
+					      mopGetChar(pkt,&index));
+				if ((i % 16) == 15)
+					(void)fprintf(fd,"\n");
+			}
+			
+			if ((i % 16) != 15)
+				(void)fprintf(fd,"\n");
+#else
+			index = index + moplen - 10;
+#endif
+		}
+		
+		tmpl = mopGetLong(pkt,&index);	/* Load Address */
+		(void)fprintf(fd,"Xfer Address : %08x\n",tmpl);
+		
+		break;
+	case MOP_K_CODE_DCM:
+
+		/* Empty Message */
+
+		break;
+	case MOP_K_CODE_MLD:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Load Number */
+		(void)fprintf(fd,"Load Number  :   %02x\n",tmpc);
+		
+		tmpl = mopGetLong(pkt,&index);	/* Load Address */
+		(void)fprintf(fd,"Load Address : %08x\n",tmpl);
+		
+		if (moplen > 6) {
+#ifndef SHORT_PRINT
+			for (i = 0; i < (moplen - 6); i++) {
+				if ((i % 16) == 0) {
+					if ((i / 16) == 0) {
+						(void)fprintf(fd,
+						       "Image Data   : %04x ",
+							      moplen-6);
+					} else {
+						(void)fprintf(fd,
+						       "                    ");
+					}
+				}
+				(void)fprintf(fd,"%02x ",
+					      mopGetChar(pkt,&index));
+				if ((i % 16) == 15)
+					(void)fprintf(fd,"\n");
+			}
+
+			if ((i % 16) != 15)
+				(void)fprintf(fd,"\n");
+#else
+			index = index + moplen - 6;
+#endif
+		}
+		
+		break;
+	case MOP_K_CODE_ASV:
+		
+		/* Empty Message */
+		
+		break;
+	case MOP_K_CODE_RMD:
+
+		tmpl = mopGetLong(pkt,&index);	/* Memory Address */
+		(void)fprintf(fd,"Mem Address  : %08x\n",tmpl);
+		
+		tmps = mopGetShort(pkt,&index);	/* Count */
+		(void)fprintf(fd,"Count        : %04x (%d)\n",tmps,tmps);
+		
+		break;
+	case MOP_K_CODE_RPR:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Device Type */
+		(void)fprintf(fd, "Device Type  :   %02x ",tmpc);
+		mopPrintDevice(fd, tmpc); (void)fprintf(fd, "\n");
+		
+		tmpc = mopGetChar(pkt,&index);	/* Format Version */
+		(void)fprintf(fd,"Format       :   %02x\n",tmpc);
+		
+		tmpc = mopGetChar(pkt,&index);	/* Program Type */
+		(void)fprintf(fd,"Program Type :   %02x ",tmpc);
+		mopPrintPGTY(fd, tmpc); (void)fprintf(fd, "\n");
+		
+		program[0] = 0;
+		tmpc = mopGetChar(pkt,&index);	/* Software ID Len */
+		for (i = 0; i < tmpc; i++) {
+			program[i] = mopGetChar(pkt,&index);
+			program[i+1] = '\0';
+		}
+		
+		(void)fprintf(fd,"Software     :   %02x '%s'\n",tmpc,program);
+		
+		tmpc = mopGetChar(pkt,&index);	/* Processor */
+		(void)fprintf(fd,"Processor    :   %02x ",tmpc);
+		mopPrintBPTY(fd, tmpc); (void)fprintf(fd, "\n");
+		
+		mopPrintInfo(fd, pkt, &index, moplen, code, trans);
+		
+		break;
+	case MOP_K_CODE_RML:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Load Number */
+		(void)fprintf(fd,"Load Number  :   %02x\n",tmpc);
+		
+		tmpc = mopGetChar(pkt,&index);	/* Error */
+		(void)fprintf(fd,"Error        :   %02x (",tmpc);
+		if ((tmpc == 0)) {
+			(void)fprintf(fd,"no error)\n");
+		} else {
+		  	(void)fprintf(fd,"error)\n");
+		}
+		
+		break;
+	case MOP_K_CODE_RDS:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Device Type */
+		(void)fprintf(fd, "Device Type  :   %02x ",tmpc);
+		mopPrintDevice(fd, tmpc); (void)fprintf(fd, "\n");
+		
+		tmpc = mopGetChar(pkt,&index);	/* Format Version */
+		(void)fprintf(fd,"Format       :   %02x\n",tmpc);
+		
+		tmpl = mopGetLong(pkt,&index);	/* Memory Size */
+		(void)fprintf(fd,"Memory Size  : %08x\n",tmpl);
+		
+		tmpc = mopGetChar(pkt,&index);	/* Bits */
+		(void)fprintf(fd,"Bits         :   %02x\n",tmpc);
+		
+		mopPrintInfo(fd, pkt, &index, moplen, code, trans);
+		
+		break;
+	case MOP_K_CODE_MDD:
+		
+		tmpl = mopGetLong(pkt,&index);	/* Memory Address */
+		(void)fprintf(fd,"Mem Address  : %08x\n",tmpl);
+		
+		if (moplen > 5) {
+#ifndef SHORT_PRINT
+			for (i = 0; i < (moplen - 5); i++) {
+				if ((i % 16) == 0) {
+					if ((i / 16) == 0) {
+						(void)fprintf(fd,
+						       "Image Data   : %04x ",
+							      moplen-5);
+					} else {
+						(void)fprintf(fd,
+						       "                    ");
+				        }
+				}
+				(void)fprintf(fd,"%02x ",
+					      mopGetChar(pkt,&index));
+				if ((i % 16) == 15)
+					(void)fprintf(fd,"\n");
+			}
+			if ((i % 16) != 15)
+				(void)fprintf(fd,"\n");
+#else
+			index = index + moplen - 5;
+#endif
+		}
+		
+		break;
+	case MOP_K_CODE_PLT:
+		
+		tmpc = mopGetChar(pkt,&index);	/* Load Number */
+		(void)fprintf(fd,"Load Number  :   %02x\n",tmpc);
+		
+		tmpc = mopGetChar(pkt,&index);	/* Parameter Type */
+		while (tmpc != MOP_K_PLTP_END) {
+			c = mopGetChar(pkt,&index);	/* Parameter Length */
+			switch(tmpc) {
+			case MOP_K_PLTP_TSN:		/* Target Name */
+				(void)fprintf(fd,"Target Name  :   %02x '",
+					      tmpc);
+				for (i = 0; i < ((int) c); i++) {
+					(void)fprintf(fd,"%c",
+						    mopGetChar(pkt,&index));
+				}
+				(void)fprintf(fd,"'\n");
+				break;
+			case MOP_K_PLTP_TSA:		/* Target Address */
+				(void)fprintf(fd,"Target Addr  :   %02x ",c);
+				for (i = 0; i < ((int) c); i++) {
+					(void)fprintf(fd,"%02x ",
+						    mopGetChar(pkt,&index));
+				}
+				(void)fprintf(fd,"\n");
+				break;
+			case MOP_K_PLTP_HSN:		/* Host Name */
+				(void)fprintf(fd,"Host Name    :   %02x '",
+					      tmpc);
+				for (i = 0; i < ((int) c); i++) {
+					(void)fprintf(fd,"%c",
+						    mopGetChar(pkt,&index));
+				}
+				(void)fprintf(fd,"'\n");
+				break;
+			case MOP_K_PLTP_HSA:		/* Host Address */
+				(void)fprintf(fd,"Host Addr    :   %02x ",c);
+				for (i = 0; i < ((int) c); i++) {
+					(void)fprintf(fd,"%02x ",
+						    mopGetChar(pkt,&index));
+				}
+				(void)fprintf(fd,"\n");
+				break;
+			case MOP_K_PLTP_HST:		/* Host Time */
+				ucp = pkt + index; index = index + 10;
+				(void)fprintf(fd,"Host Time    : ");
+				mopPrintTime(fd, ucp);
+				(void)fprintf(fd,"\n");
+				break;
+			default:
+				break;
+			}
+			tmpc = mopGetChar(pkt,&index);/* Parameter Type */
+		}
+		
+		tmpl = mopGetLong(pkt,&index);	/* Transfer Address */
+		(void)fprintf(fd,"Transfer Addr: %08x\n",tmpl);
+		
+		break;
+	default:
+		break;
+	}
+}
+
+