From 919f7c6f5ac5ceb66b6e104e150a6e609f339626 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sat, 16 Jan 2021 19:39:24 +0100
Subject: [PATCH] Add TT2500 emulator.

---
 Makefile                              |  6 +++-
 build/pdp10-ka/run                    |  1 +
 build/pdp10-ka/start                  |  6 ++++
 build/pdp10-ka/tt2500.simh            |  5 +++
 build/pdp10-ka/tvdis.ascii            | 52 +++++++++++++++++++++++++++
 src/system/{ttytyp.321 => ttytyp.322} |  2 +-
 6 files changed, 70 insertions(+), 2 deletions(-)
 create mode 100644 build/pdp10-ka/tt2500.simh
 create mode 100644 build/pdp10-ka/tvdis.ascii
 rename src/system/{ttytyp.321 => ttytyp.322} (99%)

diff --git a/Makefile b/Makefile
index 397e9c98..d662e070 100644
--- a/Makefile
+++ b/Makefile
@@ -76,6 +76,7 @@ DATAPOINT=tools/vt05/dp3300
 VT52=tools/vt05/vt52
 TEK=tools/tek4010/tek4010
 SIMH_IMLAC=tools/sim-h/BIN/imlac $(OUT)/ssv22.iml
+TT2500=tools/sim-h/BIN/tt2500
 
 H3TEXT=$(shell cd build; ls h3text.*)
 DDT=$(shell cd src; ls sysen1/ddt.* syseng/lsrtns.* syseng/msgs.* syseng/datime.* syseng/ntsddt.*)
@@ -122,7 +123,7 @@ out/pdp10-ka/stamp/its: $(OUT)/rp03.2 $(OUT)/rp03.3
 	$(MKDIR) $(OUT)/stamp
 	$(TOUCH) $@
 
-out/pdp10-ka/stamp/emulators: $(GT40) $(TV11) $(PDP6) $(DATAPOINT) $(VT52) $(TEK) $(SIMH_IMLAC)
+out/pdp10-ka/stamp/emulators: $(GT40) $(TV11) $(PDP6) $(DATAPOINT) $(VT52) $(TEK) $(SIMH_IMLAC) $(TT2500)
 	$(MKDIR) $(OUT)/stamp
 	$(TOUCH) $@
 
@@ -333,6 +334,9 @@ tools/sim-h/BIN/pdp11:
 tools/sim-h/BIN/imlac:
 	$(MAKE) -C tools/sim-h imlac
 
+$(TT2500):
+	$(MAKE) -C tools/sim-h tt2500
+
 check-dirs: Makefile
 	mkdir -p $(OUT)/check
 	echo $(SRC) | tr ' ' '\n' | sort > $(OUT)/check/src1
diff --git a/build/pdp10-ka/run b/build/pdp10-ka/run
index 6f108f01..1c6d30b3 100644
--- a/build/pdp10-ka/run
+++ b/build/pdp10-ka/run
@@ -23,6 +23,7 @@ at tk 10000 speed=300
 # 10001 reserved for GE bagbiters, hah.
 set dpk enabled
 at dpk 10002 speed=4800
+at dpk line=8,10015 speed=4800
 at dpk line=11,10019 speed=4800
 at dpk line=15,10020 speed=4800
 set mty enabled
diff --git a/build/pdp10-ka/start b/build/pdp10-ka/start
index 60a9d9db..9f78fc68 100755
--- a/build/pdp10-ka/start
+++ b/build/pdp10-ka/start
@@ -67,6 +67,11 @@ simh_imlac() {
     started "Imlac" "$!"
 }
 
+tt2500() {
+    (sleep 2; tools/simh/BIN/tt2500 build/pdp10-ka/tt2500.simh >tt2500.log 2>&1) &
+    started "TT2500" "$!"
+}
+
 help() {
     cat <<EOF
 This start script takes several command line arguments:
@@ -76,6 +81,7 @@ type340 - Enable the Type 340 display.
 gt40 - Start a GT40 emulator.
 imlac - Start an Imlac PDS-1 emulator.
 simh_imlac - Start the SIMH Imlac PDS-1 emulator.
+tt2500 - Start a TT2500 emulator.
 tv11 - Start a TV-11 emulator.
 tvcon - Start a TV display.
 datapoint - Start a Datapoint 3300 emulator.
diff --git a/build/pdp10-ka/tt2500.simh b/build/pdp10-ka/tt2500.simh
new file mode 100644
index 00000000..4f312ddd
--- /dev/null
+++ b/build/pdp10-ka/tt2500.simh
@@ -0,0 +1,5 @@
+at uart 12345,connect=localhost:10015
+load build/pdp10-ka/tvdis.ascii
+reset
+dep rom 0
+c
diff --git a/build/pdp10-ka/tvdis.ascii b/build/pdp10-ka/tvdis.ascii
new file mode 100644
index 00000000..92cdcfcd
--- /dev/null
+++ b/build/pdp10-ka/tvdis.ascii
@@ -0,0 +1,52 @@
+April 18/77
+
+LOGO@@DA@@D@E@BJE@AE@@DN@CL@KOLD@IA@KOLO@IA@GHH@D@AJGHD@D@AJKHCFGI@@D@AJGLME@LLCKGOKJ@DNAN@@GH@@D@AO@L@@GKH@@D@E@@CO@CFE@H@J@COO@BB@GIEDA@@@E@AOGFM@GKH@@HO@D@AOD@AOD@AOE@BJAAL@AAL@AAL@GMMD@@ED@CL@K@BJGHLCD@AJKGOJ@HI@@LF@BJ@@A@D@D@AJE@A@KGOH@HI@@HI@BLF@@H@HJH@CBLF@D@AJ 
+
+display code
+
+
+
+ZAN@@A@@@@A@EAND@ZBq`J`C@`HBq`@bP@bPK_xE@PD@ZAA@Bh@@q`@bPK_zD@ZGcCK@j@O@@ATGwTAG@AG@AG@E@jD@_D@_D@_@cpGn@G[PE@_A@@GeT@H`@O?@`J@Me@@?@PEGn@@p@D@_G`@Ax@JANK_{@sCGsUD@ZGd@K`YD@ZGa@D@ZGb@@dPK?O@dPK?D@O@@ANE@UnMh
+ZAN@@A@A@@A@E@jGp`GqaGZ@EADEHYEBzEHYEBmEHYEBmEHYDANEAM@p@Gp~Gp?GpiGpjGpoGprGpqGpsGpp@p`Gpw@@pGpt@H@@AxGpu@H@@C?GpQGpPDIfDDUDBgDHWG`sA@@K@DG`qA@@K?xECY@`PGps@op@@@BGBA@@BgQAxG???K`BGaBEArGajAA@J@UK`XGci@cKw`q
+ZAN@@A@B@@A@@Hb@@_@`sGpi@aPGqjK_^@I`G@@AxAE@@K@BDDhEAeGcuBs`GsuEAe@qAGqjDJxEAeAxB@@QK`HAxB@@[K@IGqi@H@@@CGpjEAe@H@???GpjEAeDI?EAeGW@Gn@ECFECNDCNECFG`r@p`GprG`o@p`@I@Eh@DGeGpo@p`GpqDBgEHnG`s@ip@@@@p`GpsG`T]bv
+ZAN@@A@C@@A@@H`@C?Ba@G``GaaGn@G`tA@@J?_G`V@H`@C?GptGn@G`tA@@J_WGpTA@@A@@A@@@I@???GqtGn@@O@@AxDDUGvqGb@Gc@BW`GauAqGJ@BDCyEC_DD\GawAA@K}{@O@@Co@w`BH@K}vDCyECkA~fA@GAbGA@JAaZA@JAbGA@G@@@A`OGP@Gn@EEwEFMGn@EDzqWi
+ZAN@@A@D@@A@EDhEFQEDrEDKEEpEFUGn@EEmGn@Gn@EDrA`KGR@EDVEDtED`EANED]EDdGn@Gn@DGU@L@@C?GeD@vFDE?EGR@p@DGWGpvEHW@H`@@AGpwEHW@H`@@AGppEHWDG_A@@J`CGau@`qEDp@hp@AxGpuEHWA@@Gj@Gar@aEJ_e@H@@@GED]DG_A@@J`JDD?DEGGpe]^w
+ZAN@@A@E@@A@@hv@BtDFNG`e@x@@@@EHW@`p@x@@@AGpSA@@Gl@@cu@sEG_`EEREHWG`Q@H`@G?GpQG`P@H`@G?GpPG`pA@@KBzDGU@H@@A@GasAxA@A@J`DGau@aPGgAEEkDHW@`PJ?uDGREELDG_@`vEFNDG_Gd@DFcAA@KbbGe@EFGDG_@lp@C?DFcAA@KbZ@mp@C?G`Q?uI
+ZAN@@A@F@@A@@H`@G?GaP@Ia@G?@t@@uA@dI@eI@H@@D@DEGEGmDG_DGcGf@EGmDG_GaoDF{EEnGpeDGUGavGqlGpvG`eDG_GarDF{G`ADD{G`lGpvEGSGau@qGBW`Gn@Gre@J@??qGrSA@@J`F@x@@@@DFs@yA@@@Gn@@rB@br@aaH@B@bpCq`N?zGn@A@@J@LDFg@bF@HbwvT
+ZAN@@A@G@@A@@O?@Ia@@?@aF@`q@I`@G?GbeGn@@x@@@@DFgDF~@yA@@@@x@@@@Gn@G`vGpUGn@@H@@@GGav@IaA??@H`@@G@`C@`qEGS@`K@ps@prGn@@I@@EhA@@J`B@`qEGe@pAJ?~@`qGn@GaF@H@@AZ@q@J@G@q@J@I@q@J@K@q@J@MEGxDHI@dp@eqGn@DHI@dq@u@{re
+ZAN@@A@H@@A@Gn@DHI@t@@uAGn@DHI@tA@epGn@@ap@hq@MZA@@BL@@xA@NtA@@BM@G`DGaE@tD@uEGn@MXiGn@GaxG`SGpd@H@??]GpSBQ`Gm@G`@@`HGm@G`BN?yGm@G`@GqxGaaG`dGpSG``EHWG`gGpRGsbGvcGwdGt|Gu}G`?A@@K@IDLkG`r@`D@H`@@A@hp@@@Gp{?Dw
+ZAN@@A@I@@A@DLkG`~A@@K`D@`PGp~K@DDI\@H@@oHGpxGcbGfcGd|Ge}GgdGaaG``EHW@I@Oo?EI^@H@@@HGp~@I@N??EI^@I@No?G`v@H`NO?@@p@@a@@pGpvEGS@I@@??@L@@Pv@O@@@@BaW@dPJ?}Gqy@wGGwz@K@@BBBaC@K@@@@Gs{GwgGw~Gm@GpRGm@DI\EHW@JbOEm
+ZAN@@A@J@@A@@A?AxB@@_J`FAxB@A?K``DKGDJ|EHWAxB@@GK`[@bEJ@L@bOJ`V@bOGR@EJjEI\ELMEJgEJlEKYELIEJg@bOJ`J@bOGR@EJ|EKQEK?EK^EJjEKIEJgEKhEHWDIVEHWDKBEHWG`z@H`@@G@x@@@G@J@@@@DKGDJ|@`PJ?|EHW@Jb@A?DJGEHWGezAxE@AGK`ApRA
+ZAN@@A@K@@A@DL_EHWGezAE@K`ADLeEHWGr{EHWDLk@uEGuz@M@@oHGuyDLkEHWDLk@uEGuz@M@@?\GuyDLkEHWDLk@uEGuzDLkEHWDLkDKp@L@@@d@uq@tE@dPDMBDLkEHWDLkDKp@L@@??@tADMBDLkEHWGezGay@uq@auGezAeAGS`Gn@BAC@Kc@C?Bqc@mu@@BGn@DLkMC`
+ZAN@@A@L@@A@GayAxA@oHK`C@iq??\GqyDLkEHWGayAxA@?\K~ZDLkGayAxA@?\K@GDML@I@@?\@L@@@cDMBEL]Gay@iq@@dGqyDLkEHWDLkGez@u`GuzDLkEHWDLkGez@ePGuzDLkEHWGayGezGg{@uq@auBAC@LcO|@@Kc@C?Gez@eAJ@D@TGGs{BaDGn@@gH@SG@dHGt{lab
+ZAN@@A@M@@A@BaCGn@@O@@@@Gt?BqgDHW@dPJ?|@tDGt?Gn@@I@@ol@O@@oHGw?BQcDHWBwcAxAA@@K_z@p@Gp?Gn@@@@@H{@Qw@Zr@cm@lg@ua@~YAGPAPEAXyAalAj\AsJA{wBD`BMGBUlB^MBfkBoFBw^B?rCHCCPOCXWC`\Ch[CpWCxMC??DGlDOSDVvD^SDejDl{DtGzVE
+ZAN@@A@N@@@vD{MEBLEIFEOyEVeE]KEciEjAEpREv\E|^FBYFHLFMxFS\FXxF^MFcYFh]FmXFrKFvvF{YF?rGDCGHKGLJGP@GSnGWRGZmG]~GaFGdEGf{GigGlIGnbGpqGrwGtrGvdGxMGykG{@G|JG}KG~BG~oG?RG?kG?zG??@@@PHf
+
+FINI 
+HERE COMES THE FONT
+
+ZAN@@BO@@@B@@@@@@@@@@@@@@@@@@@@@@@@@O??O??O??O??O??O??O??O??@@@@@@@@@IafIRH@Ab@@@@@@@@@@@@DPxGaDDQDDAx@@@@@@@@@@@@A@@DPh@BB@@@@@@@@@@@@@@@Ox@@HB@@@@@@@@@@@@@@@@@@@@@D@|DAx@@|@@@@@@@@@C`PDQDDQDBC~@A`@@@@@@^el
+ZAN@@BOB@@B@@@@L@@A@`A`PDHd@BB@@@@@@@@@Jk~Jk~Jk~Jk~@C~@@@@@@@@@@@@D@xDPxDQD@@x@@@@@@@@@C`PIITA@PA@P@@P@@@@@@@@@A@@A@PAC~OxP@@@@@@@@@@@@@G?HW}JVuHF}@C?@@@@@@@@@@@@IIlFrR@@@@@@@@@@@@@@@C`@@HDDH~DQB@@x@@@@@@NQm
+ZAN@@BOD@@B@@@@@@@D@~HB@Cy@@@@@@@@@@@@@@@@@Sx@HBO`D@@@@@@@@@@@@C@@HQHHRDHRD@@@@@@@@@@@@HP@HRDHRDCAH@@@@@@@@@@@@HRDGbDDaHCAH@@p@@@@@@@@@@S|@PD@Q|@PD@C|@@@@@@@@@JkjNzjCx`Jh@JRd@Cj@@@@@@@@@DHdDK?@@d@@@@@@@@@FDU
+ZAN@@BOF@@B@@@@A@@D@`DC~A@`@@@@@@@@@@@@A@@@PH@S~A@H@@@@@@@@@@@@@H@OxDOxPHA@@@@@@@@@@@@@II|JJzHjzIJz@A|@@@@@@@@@@pBL@p@pp@@B@C~@@@@@@@@@FB@@XXF@X@B@@C~@@@@@@@@@@@@@A~@A~@A~@@@@@@@@@@@@@@@HH@BaD@@P@@@@@@@@@rSZ
+ZAN@@BOH@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@A`XA`XA`X@@XA`X@@@@@@@@@Fql@AH@@@@@@@@@@@@@@@@@@B`hBc~B`hBc~@@h@@@@@@@@@GpPIBRAI|GrR@@P@@@@@@@@@JKb@cdB@PHiN@BN@@@@@@@@@D`pCAHHiPHRJ@Az@@@@@@@@@C`XB@p@@@@@@@@@@@@@@@LmX
+ZAN@@BOJ@@B@@@@@`DB@PB@`@`P@@D@@@@@@@@@A@`@PH@PDA@H@@`@@@@@@@@@IH@CaTCc~IIT@@@@@@@@@@@@A@@A@PAC~A@P@@@@@@@@@@@@@@@@@@@@@C`@A`x@@p@@@@@@@@@@@@@A~@@@@@@@@@@@@@@@@@@@@@@@@C`@@@x@@@@@@@@@@HB@`DB@PHA@@B@@@@@@@xfj
+ZAN@@BOL@@B@@@@DH|DiFFIRDIB@@|@@@@@@@@@A`H@`h@`H@`H@@~@@@@@@@@@DH|@IB@`DB@P@A~@@@@@@@@@DH|@HB@H\DHB@@|@@@@@@@@@@pDBPTGyD@PD@@D@@@@@@@@@DA~DA@@I|DHB@@|@@@@@@@@@DH|DA@DI|DIB@@|@@@@@@@@@@I~@PBA@HD@`@A@@@@@@@]{L
+ZAN@@BON@@B@@@@DH|DIBDH|DIB@@|@@@@@@@@@DH|DIB@H~DHB@@|@@@@@@@@@@@@@@@C`xC`@@@x@@@@@@@@@@@@@@@C`xC`@A`x@@p@@@@@@@H@C@LCC@@HL@@@@@@@@@@@@@@@Gx@Gx@@@@@@@@@@@@@@@@H@@Aa`A`FHA`@@@@@@@@@@@@DH|@QBA@HA`@@@X@@@@@@TB@
+ZAN@@BOP@@B@@@@DPxJjRJjjDBV@@|@@@@@@@@@BPXDIBDI~DIB@AB@@@@@@@@@DI|DIBDI|DIB@A|@@@@@@@@@DH|DABDA@DIB@@|@@@@@@@@@DQxDIBDIBDQB@Ax@@@@@@@@@DA~DA@DAxDA@@A~@@@@@@@@@DA~DA@DAxDA@@A@@@@@@@@@@DH|DA@DINDIB@@|@@@@@@ax@
+ZAN@@BOR@@B@@@@DIBDIBDI~DIB@AB@@@@@@@@@AA|A@PA@PA@P@A|@@@@@@@@@@HN@HB@HBDIB@@|@@@@@@@@@DQBEAHEA`DQH@AB@@@@@@@@@DA@DA@DA@DA@@A~@@@@@@@@@LZBIJjHJBHJB@BB@@@@@@@@@DIBEIbDYJDIB@AB@@@@@@@@@DH|DIBDIBDIB@@|@@@@@@l]l
+ZAN@@BOT@@B@@@@DI|DIBDA|DA@@A@@@@@@@@@@DH|DIBEIBDQJ@@z@@@@@@@@@DI|DIBDa|DID@AB@@@@@@@@@DH|DA@@H|DHB@@|@@@@@@@@@AC~A@PA@PA@P@@P@@@@@@@@@DIBDIBDIBDIB@@|@@@@@@@@@DIBDIBDIBBPd@@X@@@@@@@@@HJBHJBIJRJjj@AD@@@@@@ikB
+ZAN@@BOV@@B@@@@DIBBQBBPXDIB@AB@@@@@@@@@HJBBaDA@PA@P@@P@@@@@@@@@@I~@`DA@|D@`@A~@@@@@@@@@B@|B@`B@`B@`@@|@@@@@@@@@HB@BA@@`P@HD@@B@@@@@@@@@@P|@PD@PD@PD@@|@@@@@@@@@B`PHID@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@C~@@@r|H
+ZAN@@BOX@@B@@@@ApX@PL@@@@@@@@@@@@@@@@@@@@@@@@DH|DIB@@}@@@@@@@@@DA@DA@DI|DIB@A|@@@@@@@@@@@@@@@D@|DA@@@|@@@@@@@@@@HB@HBDH~DIB@@~@@@@@@@@@@@@@@@DH|DA~@@|@@@@@@@@@BH\B@`BAxB@`@@`@@@@@@@@@@@@@@@DPzDQD@`xDH|CqBdAM
+ZAN@@BOZ@@B@@@@DA@DA@DI|DIB@AB@@@@@@@@@A`@@@X@`X@`H@@\@@@@@@@@@@p@@@L@PL@PDBPDA`d@@@@@@DA@DQ@GAHDQH@AB@@@@@@@@@AApA@PA@PA@P@A|@@@@@@@@@@@@@@@MJlIJR@BR@@@@@@@@@@@@@@@FI\DIB@AB@@@@@@@@@@@@@@@DH|DIB@@|@@@@@@XDN
+ZAN@@BO\@@B@@@@@@@@@@DI|DIBDA|DA@@A@@@@@@@@@@DH~DIB@H~@HB@@C@@@@@@@@@FI\DA@@A@@@@@@@@@@@@@@@@D@~@H|@A|@@@@@@@@@@@@A@PAA|AHP@@L@@@@@@@@@@@@@@@DIBDYB@@z@@@@@@@@@@@@@@@DIBBPd@@X@@@@@@@@@@@@@@@IJREQT@@h@@@@@@hl}
+ZAN@@BO^@@B@@@@@@@@@@BQBBPX@AB@@@@@@@@@@@@@@@DIBBPd@`XB@P@A@@@@@@@@@@@Q~B@X@A~@@@@@@@@@@`F@`H@`p@`H@@F@@@@@@@@@A@PA@PA@PA@PA@PA@P@@@@@@AA`A@PA@LA@P@A`@@@@@@@@@II`@@L@@@@@@@@@@@@@@@N@@NB@HB@B`xC`h@x@@hJ@@N_xD
+
+FINI 
+
+and now to get out and start up
+
+ZAN@@@
+
+
+
diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.322
similarity index 99%
rename from src/system/ttytyp.321
rename to src/system/ttytyp.322
index 4e032179..0448f2a7 100644
--- a/src/system/ttytyp.321
+++ b/src/system/ttytyp.322
@@ -175,7 +175,7 @@ MCONDX KA,{				;;; KA
 	TTDAAA 26,SPEED=4800		;T26 Datapoint port 6
 	TTDAAA 27,SPEED=4800		;T27 Datapoint port 7
 	TTDAAA 30,SPEED=4800		;T30 Datapoint port 8
-	TTDAAA 31,SPEED=4800		;T31 Datapoint port 9
+	TTDDPT 31,SPEED=4800,VER=30.	;T31 TT2500 port 9
 	TTDAAA 32,SPEED=4800		;T32 Datapoint port 10
 	TTDAAA 33,SPEED=4800		;T33 Datapoint port 11
 	TTDGT40 34,SPEED=4800		;T34 GT40, port 12