From 4da43c40caa92c139385880d2c56c0d633a94462 Mon Sep 17 00:00:00 2001
From: Doug Wegscheid <dwegscheid@sbcglobal.net>
Date: Mon, 23 Oct 2017 18:39:12 -0400
Subject: [PATCH] Add /cgi-bin/blinkenlights/cpu URL to cgibin.c.

---
 cgibin.c | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)

diff --git a/cgibin.c b/cgibin.c
index 4e95def2b..937fcb746 100644
--- a/cgibin.c
+++ b/cgibin.c
@@ -1108,6 +1108,49 @@ void cgibin_xml_rates_info(WEBBLK *webblk)
 }
 #endif /*defined(OPTION_MIPS_COUNTING)*/
 
+void cgibin_blinkenlights_cpu(WEBBLK *webblk)
+{
+    REGS *regs;
+    QWORD   qword;                            /* quadword work area      */
+
+    int cpu, i;
+
+    hprintf(webblk->sock,"Expires: 0\n");
+    hprintf(webblk->sock,"Content-type: text/csv;\n\n");   /* CSV document */
+
+    for (cpu = 0; cpu < MAX_CPU; cpu++) {
+        regs = sysblk.regs[cpu];
+        if (!regs) regs = &sysblk.dummyregs;
+
+        if( regs->arch_mode != ARCH_900 )
+        {
+            copy_psw (regs, qword);
+            hprintf(webblk->sock, "CPU%4.4d,PSW,%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X\n",
+		cpu, 
+                qword[0], qword[1], qword[2], qword[3],
+                qword[4], qword[5], qword[6], qword[7]);
+        }
+        else
+        {
+            copy_psw (regs, qword);
+            hprintf(webblk->sock, "CPU%4.4d,PSW,%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X%2.2X\n",
+		cpu,
+                qword[0], qword[1], qword[2], qword[3],
+                qword[4], qword[5], qword[6], qword[7],
+                qword[8], qword[9], qword[10], qword[11],
+                qword[12], qword[13], qword[14], qword[15]);
+        }
+
+        if(regs->arch_mode != ARCH_900)
+            for (i = 0; i < 16; i++)
+                hprintf(webblk->sock, "CPU%4.4d,GR%2.2d,%8.8X\n", cpu, i, regs->GR_L(i));
+        else
+            for (i = 0; i < 16; i++)
+                hprintf(webblk->sock, "CPU%4.4d,GR%1.1X,%16.16" I64_FMT "X\n", i,
+                    (U64)regs->GR_G(i));
+
+    }
+}
 
 //  cgibin_hwrite: helper function to output HTML
 
@@ -1248,6 +1291,7 @@ CGITAB cgidir[] = {
     { "registers/general", &cgibin_reg_general },
     { "registers/control", &cgibin_reg_control },
     { "registers/psw", &cgibin_psw },
+    { "blinkenlights/cpu", &cgibin_blinkenlights_cpu },
 #if defined(OPTION_MIPS_COUNTING)
     { "xml/rates", &cgibin_xml_rates_info },
 #endif /*defined(OPTION_MIPS_COUNTING)*/