From e1f80890d4826bb1f960377f56d1b0ced9fbdece Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Wed, 20 Dec 2017 13:23:34 +0100 Subject: [PATCH] Add ITS machine called KA. --- build/h3text.2014 | 3 ++- src/l/*lisp.154 | 2 +- src/l/struct.658 | 2 +- src/sysen1/pword.2661 | 4 ++++ src/syseng/dump.444 | 1 + src/syseng/magfrm.17 | 3 ++- src/system/its.1648 | 2 ++ src/system/salv.313 | 15 +++++++++++++++ src/system/ttytyp.317 | 4 ++++ 9 files changed, 32 insertions(+), 4 deletions(-) diff --git a/build/h3text.2014 b/build/h3text.2014 index 0c6a963e..0c64a8b6 100644 --- a/build/h3text.2014 +++ b/build/h3text.2014 @@ -127,8 +127,9 @@ HOST : 10.2.0.6 : AI.MIT.EDU, MIT-AI, AI : PDP-10 : ITS : : HOST : 10.3.0.6 : ML.MIT.EDU, MIT-ML, ML : PDP-10 : ITS : : HOST : 10.3.0.54 : MC.MIT.EDU, MIT-MC, MC : PDP-10 : ITS : : -;;; DistruBution ITS +;;; DistruBution ITS and generic KA HOST : %CHAOS%%IP% : %HOSTNAME%, DB : PDP-10 : ITS : : +HOST : %CHAOS%%IP% : %HOSTNAME%, KA : PDP-10 : ITS : : ;;; Global ITS network 2017 HOST : 54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : : diff --git a/src/l/*lisp.154 b/src/l/*lisp.154 index 39643eac..1b6b4910 100644 --- a/src/l/*lisp.154 +++ b/src/l/*lisp.154 @@ -15489,7 +15489,7 @@ IFN ITS,[ .VALUE SETZ A, ;CONVERT TO ATOMIC SYMBOL HLRZS TT - IRP X,,[AI,ML,MC,MD,MX,DB] + IRP X,,[AI,ML,MC,MD,MX,DB,KA] CAIN TT,(SIXBIT \X\) MOVEI A,Q!X TERMIN diff --git a/src/l/struct.658 b/src/l/struct.658 index 01f613dd..9bc0147c 100644 --- a/src/l/struct.658 +++ b/src/l/struct.658 @@ -715,7 +715,7 @@ PG$ MRA PAGING MRA PPN 20$ MRA PS IFN ITS,[ - MRA [ITS,AI,ML,MC,MD,MX,DB] + MRA [ITS,AI,ML,MC,MD,MX,DB,KA] MRA EXPERIMENTAL MRA .LISP. ] ;END OF IFN ITS diff --git a/src/sysen1/pword.2661 b/src/sysen1/pword.2661 index 2ad87ffc..b996c160 100644 --- a/src/sysen1/pword.2661 +++ b/src/sysen1/pword.2661 @@ -9811,6 +9811,10 @@ bltspc: syscal sstatu,[val x ? val x ? val x ? val x ? val x jrst [move x,[mdspec,,tsspec] ;yes, so use MD's specs blt x,spcend-1 ; all of them, to the end ret ] + camn x,[sixbit /KA/] ;is it KA? + jrst [move x,[mdspec,,tsspec] ;yes, so use MD's specs + blt x,spcend-1 ; all of them, to the end + ret ] camn x,[sixbit /DM/] ;DM-P? jrst [move x,[dmspec,,tsspec] ;yes, use DM's specs blt x,spcend-1 ; all of them to the bitter end diff --git a/src/syseng/dump.444 b/src/syseng/dump.444 index 4323e7b4..f3fb1999 100644 --- a/src/syseng/dump.444 +++ b/src/syseng/dump.444 @@ -45,6 +45,7 @@ TERMIN NEWCOD==1 ; Assume a KS unless otherwise informed IFE MCOND MX, NEWCOD==0 ;Use old code on MX KL only (running old ITS) +IFE MCOND KA, NEWCOD==0 ;Use old code on KA too DEFINE SYSCAL OP,ARGS .CALL [SETZ ? SIXBIT/OP/ ? ARGS ((SETZ))] diff --git a/src/syseng/magfrm.17 b/src/syseng/magfrm.17 index eb99a5f9..9e011682 100755 --- a/src/syseng/magfrm.17 +++ b/src/syseng/magfrm.17 @@ -58,6 +58,7 @@ AIMCHN::SIXBIT/AI/ MLMCHN::SIXBIT/ML/ DMMCHN::SIXBIT/DM/ MCMCHN::SIXBIT/MC/ +KAMCHN::SIXBIT/KA/ LMCHNTB:: OFFSET 0 GO: MOVE P,[-LPDL-1,,PDL-1] @@ -638,7 +639,7 @@ MGDBIN: 6,,(SIXBIT /DSK/) SIXBIT /MAGDMP/ SIXBIT /BIN/ -MDBFN2: IRPS X,,[AI ML DM MC] +MDBFN2: IRPS X,,[AI ML DM MC KA] SIXBIT/BIN.!X/ TERMIN diff --git a/src/system/its.1648 b/src/system/its.1648 index 680eebbe..e1289983 100644 --- a/src/system/its.1648 +++ b/src/system/its.1648 @@ -24,6 +24,8 @@ IF1 [ PRINTX \MACHINE NAME = \ ; PM PandaMonium KS10 ; DX DigeX KS10 ; NX Non-eXistent KS10 (KLH10) +; DB KS10 DistriBution +; KA Generic KA10 ;THE FILE "CONFIG" HAS ASSEMBLY SWITCHES AS A FUNCTION OF MACHINE. .TTYMAC A diff --git a/src/system/salv.313 b/src/system/salv.313 index 844ec123..ceca7a44 100644 --- a/src/system/salv.313 +++ b/src/system/salv.313 @@ -112,6 +112,21 @@ PRINTX /Which machine? / TCMXH==55. LIGHTS==4 ;PI ];ML + IFCE MCHN,KA,[ + FIRSPK==2 + LASTPK==3 + NUDSL==250. + DC10P==0 + RP10P==1 + RH10P==0 + T300P==0 + KL10P==0 + OLPTP==0 + NLPTP==0 ;rest in pieces + TTLPTP==0 + TCMXH==55. + LIGHTS==4 ;PI + ];KA IFCE MCHN,DM,[ FIRSPK==17. LASTPK==21. diff --git a/src/system/ttytyp.317 b/src/system/ttytyp.317 index 293d6ccd..a66b1bf0 100644 --- a/src/system/ttytyp.317 +++ b/src/system/ttytyp.317 @@ -149,6 +149,10 @@ MCONDX MLKA,{ ;;; ML-KA TTDC100 33 ;T33 317 Burke x3546 .ENDC ;} +MCONDX KA,{ ;;; KA + TTDLA36 0,TT=%TTLCL,HOR=80.,SPEED=110 ;T00 System Console +.ENDC ;} + ;NOTE: SEE COMMENT AT FRONT OF FILE FOR CONSTRAINTS ON THE COMMENTS ;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE ;CHARACTERS MAY BE PRESENT IN THEM.