From 299dfd277ed2840b4321bab74c680bdb83812f88 Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Sun, 1 Sep 2019 20:59:13 +0200 Subject: [PATCH] Make MC great again. --- build/misc.tcl | 10 +++++----- build/pdp10-kl/config.202 | 14 +++++++------- src/kshack/nsalv.261 | 6 +++--- src/syseng/dump.446 | 8 ++++---- src/system/ioelev.433 | 26 +++++++++++++------------- src/system/its.1648 | 4 ++-- src/system/ttytyp.320 | 4 ++-- 7 files changed, 36 insertions(+), 36 deletions(-) diff --git a/build/misc.tcl b/build/misc.tcl index 265f9f8b..fcbd4129 100644 --- a/build/misc.tcl +++ b/build/misc.tcl @@ -1624,7 +1624,7 @@ respond "*" ":palx gt40;_gt40;gtlem\r" expect ":KILL" # KL10 front end debugger. Put it in the same directory as the -# "MX" IOELEV. +# "MC" IOELEV. respond "*" ":palx sysbin;_syseng; klrug\r" expect ":KILL" # 11STNK expects a copy in the . directory. @@ -1678,9 +1678,9 @@ respond "*" ":palx dsk0:.;_system;ioelev\r" respond "MACHINE NAME =" "AI\r" expect ":KILL" -# The KL10 console "MX" IOELEV. +# The KL10 console "MC" IOELEV. respond "*" ":palx .; cons11_system;ioelev\r" -respond "MACHINE NAME =" "MX\r" +respond "MACHINE NAME =" "MC\r" expect ":KILL" respond "*" ":11stnk\r" respond "*" "D" @@ -1694,11 +1694,11 @@ respond "*" ":pcnvrt .temp.; ioelev bin\r" expect ":KILL" move_to_klfe ".temp.; ioelev a11" -# The KL10 "MX-DL" IOELEV. Put in same directory as KLRUG BIN. +# The KL10 "MC-DL" IOELEV. Put in same directory as KLRUG BIN. # TS BOOT11 stuffs it over DL10 in timesharing. TS 11BOOT makes a # @ BOOT11 to stuff out of timesharing. respond "*" ":palx sysbin;_system;ioelev\r" -respond "MACHINE NAME =" "MX\r" +respond "MACHINE NAME =" "MC\r" expect ":KILL" # MINITS diff --git a/build/pdp10-kl/config.202 b/build/pdp10-kl/config.202 index 96de871f..61641ee5 100644 --- a/build/pdp10-kl/config.202 +++ b/build/pdp10-kl/config.202 @@ -415,8 +415,8 @@ DEFSYM PMCSHM==0 ;NO CACHE BIT DEFSYM PMUNSD==160000 ;UNUSED BITS ] ;DM -IFE MCOND MX,[ -DEFOPT KL10P==1 ;MX IS WHAT WE CALL THE KL10 NOW +IFE MCOND MC,[ +DEFOPT KL10P==1 ;MC IS THE RIGHFUL NAME FOR THE KL10 DEFOPT MAXJ==120. ;MAX NUMBER OF JOBS ALLOWED DEFOPT SWBLK==1 ;1 => SWAP BLOCKING, 0 => PRIVILEGED USER DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER @@ -473,11 +473,11 @@ DEFSYM PMAGEM==160000 ;3 BIT AGE DEFSYM PMUNSD==0 ;NO UNUSED BITS DEFINE ITSIRP BODY -IRPS ITS,,[MX] +IRPS ITS,,[MC] BODY TERMIN TERMIN -] ;MX +] ;MC IFE MCOND KL,[ DEFOPT KA10P==1 @@ -610,7 +610,7 @@ TERMIN TERMIN ] ;AI -IFE MCOND MC,[ +IFE MCOND MCKS,[ DEFOPT KS10P==1 ;MC is now a KS10. DEFOPT MAXJ==60. ;Max number of jobs allowed @@ -671,7 +671,7 @@ IRPS ITS,,[AI MC] BODY TERMIN TERMIN -] ;MC +] ;MCKS IFE MCOND ML,[ DEFOPT KS10P==1 ;ML is now a KS10. @@ -1299,7 +1299,7 @@ IFN IMPP,IFNDEF IMPUS, .ERR IMPUS must be defined as ARPAnet host # IFN IMPP,IFNDEF IMPUS3,.ERR IMPUS3 must be defined as ARPAnet host # ;IFN IMPP,DEFOPT NM%IMP== ; Define default netmask DEFOPT DMIMP==0 ;1= Has DM IMP interface -DEFOPT KAIMP==0 ;1= Has AI-KA/ML-KA/MX-KL IMP interface +DEFOPT KAIMP==0 ;1= Has AI-KA/ML-KA/MC-KL IMP interface DEFOPT KSIMP==0 ;1= Has KS10 UNIBUS ACC LH-DH IMP interface DEFOPT SSIMP==0 ;1= Has "Simulated Simple IMP", similar to KSIMP IFN IMPP,IFE DMIMP+KAIMP+KSIMP+SSIMP,.ERR IMPP requires an interface type diff --git a/src/kshack/nsalv.261 b/src/kshack/nsalv.261 index 7cb62cae..5b25c6ce 100755 --- a/src/kshack/nsalv.261 +++ b/src/kshack/nsalv.261 @@ -195,7 +195,7 @@ PRINTX /Which machine? / GWHOST==RHOST ];AI - IFCE MCHN,MC,[ + IFCE MCHN,MCKS,[ ;;; The new Mail Computer KS10. KS10P==1 NDRIVE==1 ;# physical units @@ -211,7 +211,7 @@ PRINTX /Which machine? / LHOST==3131 ;Local chaos host address (MC) RHOST==3130 ;Remote chaos host (AI) GWHOST==RHOST - ];MC + ];MCKS IFCE MCHN,ML,[ ;;; The Math Lab KS10. @@ -377,7 +377,7 @@ PRINTX /Which machine? / GWHOST==RHOST ];KSRM80 - IFCE MCHN,MCKL,[ + IFCE MCHN,MC,[ ;;; The Macsyma Consortium machine. KL10P==1 SA=105*2000 ; MC-KL system is big, need to push SALV higher. diff --git a/src/syseng/dump.446 b/src/syseng/dump.446 index a007fa1d..7e066e8e 100644 --- a/src/syseng/dump.446 +++ b/src/syseng/dump.446 @@ -44,7 +44,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 MC, NEWCOD==0 ;Use old code on MC KL only (running old ITS) IFE MCOND KA, NEWCOD==0 ;Use old code on KA and KL too IFE MCOND KL, NEWCOD==0 @@ -61,7 +61,7 @@ TERMIN ;AND EVEN THEN YOU SHOULD BE CAREFUL MAXTAP==3000. ;MAXIMUM TAPE NUMBER +1 IFE MCOND AI, MAXTAP==4000. ;EVEN THOUGH I'M NOT RJL -IFE MCOND MX, MAXTAP==5000. ; I'm not RJL either... -Alan +IFE MCOND MC, MAXTAP==5000. ; I'm not RJL either... -Alan TPINFL==10. ;NUMBER OF WORDS OF INFO PER TAPE SUBTTL I/O CHANNEL, UUO DEFINITIONS @@ -3879,14 +3879,14 @@ IFE MCOND AI,[ SIXBIT /SHAREM/ ] -IFE MCOND MC,[ ; (The KS) +IFE MCOND MCKS,[ ; (The KS) SIXBIT /ANBB/ SIXBIT /DUPSYS/ SIXBIT /KSC/ SIXBIT /LSPMAI/ ] -IFE MCOND MX,[ ; (The KL) +IFE MCOND MC,[ ; (The KL) SIXBIT /.DOVR./ SIXBIT /.KLFE./ SIXBIT /KLDCP/ diff --git a/src/system/ioelev.433 b/src/system/ioelev.433 index 179a008c..62490c33 100755 --- a/src/system/ioelev.433 +++ b/src/system/ioelev.433 @@ -63,7 +63,7 @@ BODY VERSION==%FNAM2 -.IFM MX-DL ;MX'S DL-10 PDP11 +.IFM MC-DL ;MC'S DL-10 PDP11 .MACRO MCONDX MCHN .IF IDN MCHN,MX .ENDM MCONDX @@ -71,7 +71,7 @@ VERSION==%FNAM2 .ENDC .ENDM FUBAR .MACRO MNAME BODY -.IRP MCHN, +.IRP MCHN, BODY .ENDM .ENDM MNAME @@ -94,19 +94,19 @@ T300P==1 ;TRIDENT T-300 AND 2561 CONTROLLER CHAOSP==2 ;HAS TWO CHAOS NET INTERFACES CHSBTB=0 ;CHAOSNET INTERFACE IS NEW, DOESN'T GET HUNG ANY MORE CHAD0==440 ;CHAOSNET ADDRESS OF THIS PDP11 ITSELF -DLCADR==1440 ;CHAOSNET ADDRESS OF PDP10 CONNECTED VIA DL10 (MX) +DLCADR==1440 ;CHAOSNET ADDRESS OF PDP10 CONNECTED VIA DL10 (MC) CHAD1==3040 ;SECOND INTERFACE CHADD==440 ;The DOVER protocol translator only works for this address TEN11P==0 ;NO TEN-11 INTERFACE ETHERP==0 ;NO ETHERNET -FTPULS==0 ;INITIALLY, MX DOES NOT GENERATE TEST PACKETS +FTPULS==0 ;INITIALLY, MC DOES NOT GENERATE TEST PACKETS FTGARB==1 ;SAVE LAST GARBAGE PACKET RECEIVED MAXBSZ==250. ;MAXIMUM TYPEOUT BUFFER SIZE .MACRO ASPIRP BODY ;DEFINE LINE NUMBERS WITH AUTOSPEED .ENDM ASPIRP -.ENDC ;MX-DL +.ENDC ;MC-DL -.IFM MX ;MX CONSOLE 11 +.IFM MC ;MC CONSOLE 11 DL10P==0 ;DOES NOT HAVE DL10 DTE20P==1 ;HAS DTE20 NODDT==0 ;HAS DDT AND KLDCP @@ -136,7 +136,7 @@ TKS==177560 TKB==177562 TPS==177564 TPB==177566 -.ENDC ;MX +.ENDC ;MC .IFM AI ;AI'S CHAOS-ETHER-GATEWAY PDP11 @@ -1127,7 +1127,7 @@ T AUTOSP: ;IF NON-ZERO, LINE GOES INTO AUTOSPEED WHEN DIALED UP .ENDR .IIF NE .-AUTOSP-NLTTY, .ERROR BARF AT AUTOSP -.IFM MX +.IFM MC M2LMAP: ;MAP FROM DM11-BB CHANNEL NUMBERS TO TTY INDICES 2*1 ;0 T01 0 ;1 NONE @@ -1161,7 +1161,7 @@ M2LMAP: ;MAP FROM DM11-BB CHANNEL NUMBERS TO TTY INDICES 2*36 ;35 T36 2*37 ;36 T37 2*40 ;37 T40 -.ENDC ;MX +.ENDC ;MC .IIF NE NDMS, .IIF NE .-M2LMAP-<40*NDMS>, .ERROR Too few M2LMAP entries for DM11s. @@ -1333,8 +1333,8 @@ CHSIBF: .BLKW PKMAX*CHAOSP ;INPUT BUFFER FOR PACKETS IN FROM CHAOS HDWR ;FOR NOW, JUST THE NAME OF THE MACHINE. HSTNAM: .ENDC ;CHAOSP ;FUCK A DOG, PALX! -.IFM MX-DL - .ASCII \MX-IO/11\ +.IFM MC-DL + .ASCII \MC-IO/11\ .ENDC .IFM AI .ASCII \AI-CHAOS-11\ @@ -1443,7 +1443,7 @@ SBNADR: ;ADDRESS OF CONNECTION TO THIS SUBNET 0 ;0 USED FOR UNKNOWN SUBNETS. WHEN IN DOUBT, BROADCAST. 0 ;1 9TH FLOOR CABLE 0 ;2 (NOT CURRENTLY USED) - 440 ;3 MX, ASSUME VIA MX-IO-11 + 440 ;3 MC, ASSUME VIA MC-IO-11 426 ;4 AI, ASSUME VIA AI-CHAOS-11 .IREPT NSUBNT-5, 0 ; WHEN IN DOUBT, BROADCAST @@ -1472,7 +1472,7 @@ T11SBN==T11ADR/400 ;SUBNET PDP10 ON OTHER END OF TEN11 IS ON .ENDC ;TEN11P .ENDC ;CHAOSP -.IFM MX-DL +.IFM MC-DL CBLCST=11. ;CABLE CONNECTION COSTS 11. .ENDC .IFM AI diff --git a/src/system/its.1648 b/src/system/its.1648 index ef763a93..005f6437 100644 --- a/src/system/its.1648 +++ b/src/system/its.1648 @@ -14,9 +14,9 @@ IF1 [ PRINTX \MACHINE NAME = \ ; AIKA AI LAB KA10 (R.I.P.) ; MLKA MATHLAB KA10 (R.I.P.) ; DM DYNAMIC MODELING KA10 (R.I.P.) -; MC Mail Computer KS10 +; MCKS Mail Computer KS10 ; AI AI Lab KS10 -; MX The ex-MC KL10 +; MC Macsyma Consortium KL10 ; ML Math Lab KS10 ; MD Mostly Development KS10 ; SI Stacken ITS KS10 diff --git a/src/system/ttytyp.320 b/src/system/ttytyp.320 index 8481e11b..7efd1e00 100644 --- a/src/system/ttytyp.320 +++ b/src/system/ttytyp.320 @@ -266,7 +266,7 @@ MCONDX DM,{ ;;; DM ;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE ;CHARACTERS MAY BE PRESENT IN THEM. -MCONDX MX,{ ;;; MX +MCONDX MC,{ ;;; MC TTDLA36 0,TT=%TTLCL,HOR=110. ;T00 System Console TTDPRT 1,SPEED=1200,TY=%TYDIL+%TYMDM ;T01 Vadic Dialup ;253-6045 @@ -362,7 +362,7 @@ MCONDX AI,{ ;;; AI ;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE ;CHARACTERS MAY BE PRESENT IN THEM. -MCONDX MC,{ ;;; MC +MCONDX MCKS,{ ;;; MCKS TTDLA36 0,SPEED=1200,HOR=132.,TT=%TTLCL ;T00 System Console TTDPRT 1,SPEED=2400,TY=%TYDIL ;T01 Dialup ;258-7585