Make SST assemble.

build/misc.tcl

@@ -1120,6 +1120,10 @@ expect ":KILL"
 respond "*" ":midas sys2; ts tvedit_sysen2; tvedit\r"
 expect ":KILL"
 
+# SST
+respond "*" ":midas imlac;_sst21\r"
+expect ":KILL"
+
 # Maze War
 respond "*" ":midas /t sysbin;_imsrc; maze\r"
 respond "with ^C" "MOUSE==1\r\003"

src/imlac/sst21.5

@@ -1108,7 +1108,7 @@ SRIGHT:	0
 	 ISZ SRIGHT		;  no skip if its a bracket
 	JMP @SRIGHT		;  skips if its anything else
 
-SUBTTL MUDDLE Front, Back, and Up
+;SUBTTL MUDDLE Front, Back, and Up
 
 ; move to front
 MF:	0
@@ -2381,10 +2381,10 @@ TEMPNT:	0
 TMASK:	0		; current mask for macros
 TMP:	0
 
-INFORM START OF FIRST CONSTANTS
+;INFORM START OF FIRST CONSTANTS
 	VARIAB
 	CONSTA
-INFORM END OF FIRST CONSTANTS
+;INFORM END OF FIRST CONSTANTS
 
 ; *** NO CONSTANTS CREATED FROM HERE ON ***
 
@@ -2686,7 +2686,7 @@ FNYTAB:	DJMS H010
 	.INSRT IMSRC;SSVCHR >
 .CRFON
 
-INFORM LAST CHAR
+;INFORM LAST CHAR
 
 DCRLF:	DJMS D015
 	DJMS D012
@@ -2732,7 +2732,7 @@ LZERO:	DJMS D060, ? DJMS D061, ? DJMS D062, ? DJMS D063
 	DJMS D174, ? DJMS D175, ? DJMS D176, ? DJMS DFORM
 
 
-INFORM START OF DLIST
+;INFORM START OF DLIST
 
 DORIG:	DADR
 	DHVS 1
@@ -2794,7 +2794,7 @@ DEND:	DJMP DLINES
 
 DOVERP:	
 
-INFORM HIGHEST USED
+;INFORM HIGHEST USED
 
 	END GO101
 

src/imsrc/ssv.chars

@@ -14,6 +14,7 @@ D033:	INC E,D3M2 ; ALTMODE
 	INC BM20,BM1M3  
 	INC B0M2,B1M3  
 	INC F,F  
+IFN 0,[
 DCURT:	DNOP
 	INC E,D0M3
 	INC D0M1,B30
@@ -22,6 +23,7 @@ DFORM:	INC E,D0M1
 	INC B0M3,B30
 	INC B30,B03
 	INC R,R
+]
 DWAIT:	INC E,P	; 40 MICROSECOND WAIT
 	INC P,P
 	INC P,P
@@ -563,9 +565,31 @@ D176:	INC  E,D13 ; NOT BAR
 	INC  D03,D02 
 	INC  B30,B20 
 	INC  B0M3,F 
-,BM10 
-	INC  F,F  
-D176:	INC  E,D13 ; NOT BAR 
-	INC  D03,D02 
-	INC  B30,B20 
-	INC  B0M
+
+D001:
+D002:
+D003:
+D004:
+D005:
+D006:
+D007:
+D013:
+D014:
+D016:
+D017:
+D020:
+D021:
+D022:
+D023:
+D024:
+D025:
+D026:
+D027:
+D030:
+D031:
+D032:
+D032:
+D034:
+D035:
+D036:
+D037:

src/imsrc/ssvchr.999

@@ -0,0 +1 @@
+imsrc/ssv.chars