From 1fc04421600a06592477bf24de7b9176188da879 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 14 Jul 2018 17:02:26 +0200
Subject: [PATCH] SYSTEM GEN - Low level DECtape formatting.

This is a standalone program using the PDP-6 Microtape device.

The source code has been fixed to assemble with the current version of
MIDAS.  Double !s are needed to get the concatenation right.  Also,
garbage at the end was removed.
---
 build/misc.tcl        |   9 +++++++++
 doc/programs.md       |   1 +
 src/syseng/system.gen | Bin 4926 -> 2342 bytes
 3 files changed, 10 insertions(+)

diff --git a/build/misc.tcl b/build/misc.tcl
index a703200c..e35e2086 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -19,6 +19,15 @@ respond "*" ":midas sys1;ts salv_system;salv\r"
 respond "time-sharing?" "y\r"
 expect ":KILL"
 
+# system gen
+respond "*" ":midas /t dsk0:.;@ sysgen_syseng; system gen\r"
+respond "with ^C" "PI==4\r"
+respond "\n" "TTY==120\r"
+respond "\n" "DC==200\r"
+respond "\n" "UTC==210\r"
+respond "\n" "UTS==214\r\003"
+expect ":KILL"
+
 respond "*" ":midas sys3;ts syslod_sysen1;syslod\r"
 expect ":KILL"
 
diff --git a/doc/programs.md b/doc/programs.md
index 21d2cea6..09cf301c 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -211,6 +211,7 @@
 - SYSCHK, check up on system job.
 - SYSLOD, system load histogram.
 - SYSMSG, displays system messages.
+- SYSTEM GEN, low level DECtape formatting.
 - RABBIT, Scheme compiler.
 - TAGS, generate tags table for sources.
 - TALK/WHO/WHOJ/WHOM/USERS, list users.
diff --git a/src/syseng/system.gen b/src/syseng/system.gen
index 638b35b93427a9327e852e2319681e84ce925567..39c8bec7534df331eb956bb73659ea6e9058cb9f 100644
GIT binary patch
delta 10
Rcmdm|woGV3-NxD#8~_>P1c?9u

literal 4926
zcmeHI-EQJW6kaJ;jOaT|??5{c|A8g6R2tg@an{&g+gU;oQu`LY??s=hZ`4QVcg}c>
zNq1GLw@Z`|=KRlhzH_F_yTZu!)OO||J6#*OH>GKGS2aQ$bXru|HjLw7Erj0sBHIQc
z*@hzBMxx%XL}qq*X=G8gt^6W(Rki&hI@28T(y1B)8=1IcUhXP+Qg7lU&&khk7iWFz
z^rX|zQVaGKc~htIRjISS2zF<&I=|w$Gg7x{p3BGA$3_3`r$=?RhE$gL^wbo&^kemL
zhWh5eEPN6*EP{Z}t?BfEOqNTWmdovO`O)vQU;4`We_|>Uv)@e8s;uNXT&-4~=$cb6
zc<E9Vcwyvwf-KrM`O>wJcsM^dZ6_)INE7v9L|}0RdqfC)7on0_s%*SN_0{AuQ9<l^
zOEICN)ao32@$h>Qrp)}!Bq?+!CT;b+hdqg`c`j4s`yM)2eBKNJW^ni7IS09j-q%H+
zQE(4R&l_}%r&c6$=8UIS3x6bY_4@HjOnRRigT6k7#07{w)N0FjE;k~yjWQ#5?Ch?k
zLTE4I#Y3^2BvrWa7%~n(=CE^hT3mrv@NWPEv>iQyhWl>Y9IXCFn}czm!_bBJMxW8C
zao<GoQro5x1jH|$m(<YVUdbRs5@y@(m_2D+yf+0idqrcujujAF6o4&o9n2j))9O%*
zV{?N`s!)*gBi6&1z&4;9Yp(o{#_R`-;TXms40;$DgUEBB^3f9NIy#x|bWSs&xlEb>
zq8A%f)eb_MOFKkfJPtezQA<O#z)TLn6_w6RGfU=<Qo2f>OIR%zKoZDUmuTb?#yI__
z$7(Gm+1p`AbdFbXxV9hBK+z!qpdYNM$vznaRyz;YOsn-8Lx$qVQe4QViE!>EyE~ij
zbYeO}E98(@!}lwT0j4blkZ-!@arc}$#M(UOwYedxE%b^h7|ZsvbS_Zv_PMRWV{#L=
z6PpPZGVkLkpnW;4=P>r;HA%3dBeaH}i8BZDJw@7B09I)2_ujy+I=9~W)JJ#Sg>J#^
z9n&ZLE)#iW4OFyT@MF-&Ueab7hRRMTTH*&Ztz52sS*cjgSm(-*&;#7f&g^wPUn>ex
z5G^(y&xCo89a&MUXI)dy`DxKPPoUkoye)$OBL!}7-eZGjjb{Iw3CPeUut9KzelZ6D
zCBFtaYGy(Iz=7r*J<H2I->7{*yhqF{0mgECXY*MN0>EX{tGe!_5>pf-UXJEJf^Lte
zOLxqeS|KJarv4_G!v1TjPG)L>x*Jm)-N{g$Axi-f$*guQF7%azLA=CsUKGqY;0n>`
zk`p`zl9En;!_S|;fB5kJZ~8EOc=+4<^{+qfA9oDyJh+d+eHGj{;e8X{H{pE~{s^1!
EA2_j#tpET3