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 00000000..c189951a
Binary files /dev/null and b/src/imlac/assv4.3 differ
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