Microcode for the TT2500.

The assembler will recieve a GC-OVERFLOW interrupt.  Other TT2500
files set the GC-OVERFLOW variable to a dummy function, which seems to
appease the interrupt.

Since the TVDIS code was written before backquote was introduced to
Maclisp, it uses comma characters without quoting.  To accomodate this
a call to SETSYNTAX overrides the new syntax for comma.

Makefile

@@ -29,7 +29,7 @@ SRC = syseng sysen1 sysen2 sysen3 sysnet kshack dragon channa	\
       moon teach ken lmio1 llogo a2deh chsgtv clib sys3 lmio turnip \
       mits_s rab stan_k bs cstacy kp dcp2 -pics- victor imlac rjl mb bh \
       lars drnil radia gjd maint bolio cent shrdlu vis cbf digest prs jsf \
-      decus bsg muds54 hello rrs 2500
+      decus bsg muds54 hello rrs 2500 minsky
 DOC = info _info_ sysdoc sysnet syshst kshack _teco_ emacs emacs1 c kcc \
       chprog sail draw wl pc tj6 share _glpr_ _xgpr_ inquir mudman system \
       xfont maxout ucode moon acount alan channa fonts games graphs humor \

build/lisp.tcl

@@ -846,6 +846,19 @@ respond "_" "2500;zap\r"
 respond "_" "\032"
 type ":kill\r"
 
+# 2500 microcode
+respond "*" ":cwd minsky\r"
+respond "*" "lisp\013"
+respond "Alloc?" "n\r"
+respond "*" "(setq gc-overflow '(lambda (x) t))"
+respond "T)" "(setsyntax '/, 'a '/,)"
+respond "T" "(load \"minsky;tvdis\")"
+respond "T" "(load \"2500;zap\")"
+respond_load "(array im fixnum 4096)"
+respond "IM" "(zap tvdis)"
+respond "FINISH)" "(quit)"
+expect ":KILL"
+
 # TEACH;TS XLISP
 
 respond "*" ":complr\r"

build/timestamps.txt

@@ -1337,6 +1337,7 @@ midas/midas.bugs 198706130710.45
 midas/-read-.-this- 197603220513.44
 midas/xjsys.5 197809290102.22
 minits/-how-t.21 198606232322.38
+minsky/tvdis.3 197602270042.17
 mits_s/3com.3 198302161308.38
 mits_s/boot11.1 198207030003.01
 mits_s/camac.1 198207030003.37