From 06b2a7beb07b660a684e6e863907a73b3df5a398 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Thu, 2 May 2019 11:49:43 +0200
Subject: [PATCH] ASSV4 - Assemble SSV4.

---
 build/misc.tcl    |   4 ++++
 doc/programs.md   |   1 +
 src/imlac/assv4.3 | Bin 0 -> 1881 bytes
 src/sys/ts.mmidas |   1 +
 4 files changed, 6 insertions(+)
 create mode 100644 src/imlac/assv4.3
 create mode 120000 src/sys/ts.mmidas

diff --git a/build/misc.tcl b/build/misc.tcl
index 0643d100..3a00db74 100644
--- a/build/misc.tcl
+++ b/build/misc.tcl
@@ -1202,6 +1202,10 @@ expect ":KILL"
 respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
 expect ":KILL"
 
+# Assemble SSV4.
+respond "*" ":midas imlac; ts assv4_assv4\r"
+expect ":KILL"
+
 # Maze War
 respond "*" ":midas /t sysbin;_imsrc; maze\r"
 respond "with ^C" "MOUSE==1\r\003"
diff --git a/doc/programs.md b/doc/programs.md
index 99c329a1..d44ef391 100644
--- a/doc/programs.md
+++ b/doc/programs.md
@@ -24,6 +24,7 @@
 - ARGUS, alerts you when specified users login or logout.
 - ARPA, gateway from Chaosnet to Arpanet and Internet.
 - AS8748, 8748 assembler.
+- ASSV4, assemble SSV4.
 - ATSIGN CHAOS, Chaosnet support.
 - ATSIGN DEVICE, load device drivers.
 - ATSIGN TARAKA, starts dragons.
diff --git a/src/imlac/assv4.3 b/src/imlac/assv4.3
new file mode 100644
index 0000000000000000000000000000000000000000..c189951af5c6a9275bc4a5a5772537c991fbfd37
GIT binary patch
literal 1881
zcmZ`)+m72f4DG9h{RlRF=q{iJ$!undb>JyvTS?TBCBasLok=qL|9`QEl5=h6$u>z*
z<l#AVG|_5O!?0V3<xbgN$AQ{5QscW$xt6SPnxf|r-PIf$LhnOwRMfQ7{b0N!=cnXX
zl(ML5PCuyGR1bKVI#hq->G53P>F|6Mp_+deF~0h0{sbf5Of`SRTRXhqZ6T(ewI){8
zTr|qsDr|?%PYMzdsILk>@Rty4UlyI;X?*OzEu;*s{Wd>}V(No-oYu?zT*|L_gO#S}
zZ>z7|M($_7x;djECHHD*%o`m9w{`Bn|NQxYWLy`;*PsQ82S&M&n`7*~Ahhjj-IMQW
z@;oVTGZcf4ZymCkTI7BJm)tKFv+pz1$M$2oCX~h0_?Q5b&4#Nm4p7U<Gur#v50Tcf
zznI^<v)M-zlf$O?85}r_aq{VZ@Rg76Px*n|`}zpLQ`X$$@gNG*hMLcyLQ$N3LEzp5
z!N3swIhcQI6Y21L_zQ3+tT5WzzMSgu!P)KG*e#&u!AsdU8^rJc@rGuUJV(H=au4H`
z;AYrHj2}&n3;@yY5zA15amn$-P%7kRusJhMTL5Zon;Jp_WZ!m}8QOyrB_eoR8~$F*
zie=*+_zv_vJ)ye`7Pw+8Eal|PIE-0++<5NbceS(LP-UX^4GsJ@!grz`bFNrU$`=D3
zmR)CBHIV77YL-mbnkFMhT?)Js>S!MmNclndl)l_X{&&g#Yw{GGg#)zSyJ8u2-x;T(
z2On=plki8-ojHq>a+gA6O<fJASSCoCjp_$l^}aiArt!#ScnvRzyYz{woKy%#WJLas
z9CW&4yn)9|P?+MGkJs?&`Gq!l_9xnmH><WCS@XLpQU;Mi%L4mMK-)o=#iq9`o-BK|
zUDH!tk#oG|B2``mqZV;Uh^(&M<IPHHl=~WKWw6(cgM{#EwWQd;l3HVzOz#%cS>TKt
z@1e4&t#4lFQDm)_#SA+F;%N0w(#p-*4xx^A_KB?gG7IkqopuB7Xe<=oz^wjb!4qz^
z#9~v<X$#jW6#fJIamkgHi3{_RZ!J^-f7%d<U+1HVv>Y`!)oCH{i@5ZFQ37{f^M(!|
fOX*V*34S8<=~@H_ktuP?_b{6Zp#kmMi$BEwkf6h*

literal 0
HcmV?d00001

diff --git a/src/sys/ts.mmidas b/src/sys/ts.mmidas
new file mode 120000
index 00000000..7ed1d326
--- /dev/null
+++ b/src/sys/ts.mmidas
@@ -0,0 +1 @@
+sys/ts.midas
\ No newline at end of file