diff --git a/build/misc.tcl b/build/misc.tcl index 4313acb6..4b40944c 100644 --- a/build/misc.tcl +++ b/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" diff --git a/src/imlac/sst21.1 b/src/imlac/sst21.5 similarity index 99% rename from src/imlac/sst21.1 rename to src/imlac/sst21.5 index e86d0c62..ed09f323 100644 --- a/src/imlac/sst21.1 +++ b/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 \ No newline at end of file diff --git a/src/imsrc/ssv.chars b/src/imsrc/ssv.chars index 3affb165..1476afd3 100644 --- a/src/imsrc/ssv.chars +++ b/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                                                \ No newline at end of file + +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: diff --git a/src/imsrc/ssvchr.999 b/src/imsrc/ssvchr.999 new file mode 120000 index 00000000..4cc69bbf --- /dev/null +++ b/src/imsrc/ssvchr.999 @@ -0,0 +1 @@ +imsrc/ssv.chars \ No newline at end of file