patch-2.3.99-pre8 linux/arch/s390/kernel/cpcmd.c
Next file: linux/arch/s390/kernel/cpcmd.h
Previous file: linux/arch/s390/kernel/bitmap.S
Back to the patch index
Back to the overall index
- Lines: 46
- Date:
Fri May 12 11:41:44 2000
- Orig file:
v2.3.99-pre7/linux/arch/s390/kernel/cpcmd.c
- Orig date:
Wed Dec 31 16:00:00 1969
diff -u --recursive --new-file v2.3.99-pre7/linux/arch/s390/kernel/cpcmd.c linux/arch/s390/kernel/cpcmd.c
@@ -0,0 +1,45 @@
+/*
+ * arch/s390/kernel/cpcmd.c
+ *
+ * S390 version
+ * Copyright (C) 1999,2000 IBM Deutschland Entwicklung GmbH, IBM Corporation
+ * Author(s): Martin Schwidefsky ([email protected]),
+ */
+
+#include <linux/stddef.h>
+#include <linux/kernel.h>
+#include <asm/string.h>
+#include <asm/ebcdic.h>
+
+void cpcmd(char *cmd, char *response, int rlen)
+{
+ const int mask = 0x40000000L;
+ char obuffer[128];
+ int olen;
+
+ olen = strlen(cmd);
+ strcpy(obuffer, cmd);
+ ASCEBC(obuffer,olen);
+
+ if (response != NULL && rlen > 0) {
+ asm volatile ("LRA 2,0(0,%0)\n\t"
+ "LR 4,%1\n\t"
+ "O 4,%4\n\t"
+ "LRA 3,0(0,%2)\n\t"
+ "LR 5,%3\n\t"
+ ".long 0x83240008 # Diagnose 83\n\t"
+ : /* no output */
+ : "a" (obuffer), "d" (olen),
+ "a" (response), "d" (rlen), "m" (mask)
+ : "2", "3", "4", "5" );
+ EBCASC(response, rlen);
+ } else {
+ asm volatile ("LRA 2,0(0,%0)\n\t"
+ "LR 3,%1\n\t"
+ ".long 0x83230008 # Diagnose 83\n\t"
+ : /* no output */
+ : "a" (obuffer), "d" (olen)
+ : "2", "3" );
+ }
+}
+
FUNET's LINUX-ADM group, [email protected]
TCL-scripts by Sam Shen (who was at: [email protected])