Merge branch 'master' into ejs/gunner

2026-05-07 16:34:35 +00:00 · 2023-11-08 08:29:08 -08:00
parent 8e5c05c6e4 2ae3c584ab
commit d79cda73f0
16 changed files with 564 additions and 4 deletions
--- a/build/h3text.2018
+++ b/build/h3text.2018
@@ -34,8 +34,9 @@ HOST : CHAOS 177001 : BRIDGE, LOCAL-TIME-SERVER : UNIX : UNIX : :
 ;;; Generated by build script.
 HOST : CHAOS 177002, %IP% : %HOSTNAME%, DB : PDP-10 : ITS : :

-;; Hactrn public ITS.
+;; SDF public ITS machines.
 HOST : 205.166.94.7 : HACTRN.ORG, HX : PDP-10 : ITS : :
+HOST : CHAOS 177003 : BC : PDP-10 : ITS : :

 ;;; Global ITS and Lispm network
 HOST : CHAOS 5460, 54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : :
--- a/build/mchn/BC/boot
+++ b/build/mchn/BC/boot
@@ -0,0 +1,32 @@
+set console wru=034
+set cpu its
+set cpu 1024k
+set cpu mpx
+set rpa dis
+set rpb dis
+set tua dis
+set fha dis
+set dpb dis
+set lpt dis
+set cr dis
+set dc disable
+set dtc dis
+set dk dis
+set pd ena
+set pd on
+set ch enabled
+set ch node=177003
+at ptr out/pdp10-ka/dskdmp.rim
+at mta0 out/pdp10-ka/sources.tape
+set mta mpx=7
+set mta type=b
+at dpa0 out/pdp10-ka/rp03.2
+at dpa1 out/pdp10-ka/rp03.3
+at dpa2 out/pdp10-ka/rp03.0
+at dpa3 out/pdp10-ka/rp03.1
+at dpa4 out/pdp10-ka/rp03.4
+at dpa5 out/pdp10-ka/rp03.5
+at dpa6 out/pdp10-ka/rp03.6
+at dpa7 out/pdp10-ka/rp03.7
+set dpa noheaders
+b ptr
--- a/build/mchn/BC/custom.tcl
+++ b/build/mchn/BC/custom.tcl
@@ -0,0 +1,3 @@
+# get rid of links to daemons that don't run correctly
+respond "*" ":delete dragon;hourly digest\r"
+respond "*" ":delete dragon;hourly gcbulk\r"
--- a/build/mchn/BC/init
+++ b/build/mchn/BC/init
@@ -0,0 +1,25 @@
+set console wru=034
+set cpu its
+set cpu 512k
+set rpa dis
+set rpb dis
+set tua dis
+set fha dis
+set dpb dis
+set lpt dis
+set cr dis
+set dc disable
+set dtc dis
+set dk dis
+at mta0 out/pdp10-ka/magdmp2.tap
+at mta5 out/pdp10-ka/reboot.tape
+at dpa0 out/pdp10-ka/rp03.2
+at dpa1 out/pdp10-ka/rp03.3
+at dpa2 out/pdp10-ka/rp03.0
+at dpa3 out/pdp10-ka/rp03.1
+at dpa4 out/pdp10-ka/rp03.4
+at dpa5 out/pdp10-ka/rp03.5
+at dpa6 out/pdp10-ka/rp03.6
+at dpa7 out/pdp10-ka/rp03.7
+set dpa headers
+b mta0
--- a/build/mchn/BC/mchn.tcl
+++ b/build/mchn/BC/mchn.tcl
@@ -0,0 +1,30 @@
+proc dskdmp_switches {hriflg} {
+    expect "Configuration"
+    respond "?" "ASK\r"
+    respond "HRIFLG=" "$hriflg\r"
+    respond "BOOTSW=" "N\r"
+    respond "R11R6P=" "N\r"
+    respond "R11R7P=" "N\r"
+    respond "RM03P=" "N\r"
+    respond "RM80P=" "N\r"
+    respond "RH10P=" "N\r"
+    respond "DC10P=" "N\r"
+    respond "NUDSL=" "500.\r"
+    respond "KS10P=" "N\r"
+    respond "KL10P=" "N\r"
+}
+
+proc peek_switches {} {
+    respond "with ^C" "340P==0\r\003"
+}
+
+proc mark_packs {} {
+    mark_pack "0" "2" "2"
+    mark_pack "1" "3" "3"
+    mark_pack "2" "0" "0"
+    mark_pack "3" "1" "1"
+    mark_pack "4" "4" "4"
+    mark_pack "5" "5" "5"
+    mark_pack "6" "6" "6"
+    mark_pack "7" "7" "7"
+}
--- a/build/mchn/BC/run
+++ b/build/mchn/BC/run
@@ -0,0 +1,56 @@
+set console wru=034
+set cpu its
+set cpu 1024k
+set cpu idle
+set cpu mpx
+set rpa dis
+set rpb dis
+set tua dis
+set fha dis
+set dpb dis
+set lpt dis
+set cr dis
+set dc disable
+set dtc dis
+set dk dis
+set pd enabled
+set pd on
+set dk disabled
+set tk enabled
+at -u tk 20000 speed=300
+set dpk enabled
+at -u dpk 20002 speed=4800
+at -u dpk line=11,20019 speed=4800
+at -u dpk line=15,20020 speed=4800
+set mty enabled
+at -u mty 20003 speed=50000
+at -u mty line=9,20018 speed=9600
+at -u mty line=8,20017 speed=9600
+at -u mty line=7,20016;notelnet speed=50000
+set ten11 enabled
+at ten11 20011
+set imp enabled
+set imp mac=e2:6c:84:1d:34:a3
+set imp ip=192.168.2.101/24
+set imp gw=172.31.1.100
+set imp host=10.3.0.6
+at imp tap:tap0
+set ch enabled
+set ch node=177003
+set ch peer=localhost:44041
+att ch 44043
+at ptr out/pdp10-ka/dskdmp.rim
+at dpa0 out/pdp10-ka/rp03.2
+at dpa1 out/pdp10-ka/rp03.3
+at dpa2 out/pdp10-ka/rp03.0
+at dpa3 out/pdp10-ka/rp03.1
+at dpa4 out/pdp10-ka/rp03.4
+at dpa5 out/pdp10-ka/rp03.5
+at dpa6 out/pdp10-ka/rp03.6
+at dpa7 out/pdp10-ka/rp03.7
+set mta mpx=7
+set mta type=b
+set dt mpx=6
+set imp mpx=4
+set dpa noheaders
+b ptr
--- a/build/mchn/HX/custom.tcl
+++ b/build/mchn/HX/custom.tcl
@@ -1,2 +1,11 @@
 #Gun down users that are idle and not logged in.
 respond "*" ":link dragon; hourly gunner, cstacy; gunner bin\r"
+
+#Run a weekly unattended incremental dump.
+respond "*" ":midas dragon; weekly backup_lars; backup\r"
+respond "HOST NAME =" "177001\r"
+expect ":KILL"
+
+# get rid of links to daemons that don't run correctly
+respond "*" ":delete dragon;hourly digest\r"
+respond "*" ":delete dragon;hourly gcbulk\r"
--- a/build/mchn/TT/custom.tcl
+++ b/build/mchn/TT/custom.tcl
@@ -5,3 +5,12 @@ expect ":KILL"

 #Gun down users that are idle and not logged in.
 respond "*" ":link dragon; hourly gunner, cstacy; gunner bin\r"
+
+#Run a weekly unattended incremental dump.
+respond "*" ":midas dragon; weekly backup_lars; backup\r"
+respond "HOST NAME =" "3036\r"
+expect ":KILL"
+
+# get rid of links to daemons that don't run correctly
+respond "*" ":delete dragon;hourly digest\r"
+respond "*" ":delete dragon;hourly gcbulk\r"
--- a/build/pdp10-ka/config.202
+++ b/build/pdp10-ka/config.202
@@ -417,7 +417,9 @@ DEFOPT NOTYS==1		;# KA-10 CONSOLE 0 TTYS
 DEFOPT MTYP==1		;HAS MORTON MULTIPLEX BOX
 DEFOPT NMTYS==16.	;# TTYS ON MORTON BOX
 DEFOPT NSTTYS==16.	;# STY'S (PSEUDO-TTY'S)
+
 DEFOPT MSPP==1		;HAS MESSAGE SLURPER
+DEFOPT DEMON==1		;HAS DEMON ROUTINES

 DEFOPT TEN11P==1	;Rubin 10-11 interface
 IFDEF TEN11P,IFN TEN11P,DEFSYM T11CPA==3776000	;ADRS OF TEN-11 CONTROL PAGE
@@ -433,13 +435,93 @@ DEFSYM PMAGEM==16000	;3 BIT AGE
 DEFSYM PMCSHM==0	;NO CACHE BIT
 DEFSYM PMUNSD==160000	;UNUSED BITS

+DEFOPT TZONE==0.	; HX uses GMT time
+
 DEFINE ITSIRP BODY
-IRPS ITS,,[DB]
+IRPS ITS,,[HX BC]
 BODY
 TERMIN
 TERMIN
 ] ;HX

+IFE MCOND BC,[		;Boot Camp KA10
+DEFOPT KA10P==1		;HAS KA PROCESSOR
+DEFOPT MAXJ==60.	;MAX NUMBER OF JOBS ALLOWED
+DEFOPT SWBLK==1		;1 => SWAP BLOCKING, 0 => PRIV USER
+DEFOPT SWPWSP==0	;NO WORKING-SET SWAP SCHEDULER
+DEFOPT PAGPRE==1	; Page-in preemption
+DEFOPT SCHBLN==10.	;NUMBER OF RUNNABLE JOBS TO REMEMBER
+
+DEFOPT NQCHN==30.	;NUMBER 2314 CHNLS
+DEFOPT NQS==8		;# DISK UNITS
+DEFOPT NTUTBL==1	;TUTS ARE ONE BLOCK LONG
+DEFSYM NUDSL==500.	;# USER DIRECTORIES ON DISK
+DEFOPT RP10P==1		;HAS DEC RP10 DISK CONTROL (RP02)
+DEFOPT QRDCMP==1	;SOFTWARE READ-COMPARE
+DEFOPT DMDSK==1		;USES DM DISK FORMAT
+DEFOPT QRSRVP==1	;HAS RESERVED DISK PACKS (SECONDARY PACK)
+DEFOPT QAUTHP==1	;KEEPS TRACK OF FILE AUTHORS
+
+DEFOPT C1MXP==1         ;CHANNEL 1 MPX FEATURE
+DEFOPT NEWDTP==1	;HAS NEW DECTAPE CONTROLLER
+DEFOPT NUNITS==2	; Number of utape units (R.I.P.)
+DEFOPT NMTCS==1		;NUMBER OF MAG TAPE UNITS
+DEFOPT TM10B==1		;DF10-BASED CONTROLLER
+DEFOPT NLPTP==0		;HAS NEW LPT (ODEC)
+DEFOPT TPLP==0		;PSEUDO LPT
+DEFOPT PTRP==1		;HAS PAPER TAPE
+DEFOPT PTPP==1		; And punch works.
+DEFOPT PDCLKP==1	;"DeCoriolis" CLOCK
+DEFOPT 340P==0		;HAS 340 DISPLAY
+DEFOPT STKP==0		;Has Stanford keyboard
+DEFOPT IMXP==0		;HAS IMX (INPUT MULTIPLEXOR)
+
+DEFOPT NETP==1		; Has net connection
+DEFOPT IMPP==1		; Has IMP interface
+DEFOPT KAIMP==1
+DEFOPT IMPUS==306	; ARPA net host number
+DEFOPT IMPUS3==<IPADDR 10,3,0,6>	; Internet host number
+DEFOPT NCPP==0		; Flush NCP code
+DEFOPT NNETCH==20.	; # NCP net channels
+DEFOPT INETP==1		; Include Internet code
+DEFOPT TCPP==1		; Include TCP code
+DEFOPT XBL==20.		; # TCP network channels
+DEFOPT CHAOSP==1	;CHAOS NET
+DEFOPT MYCHAD==177003	;CHAOS NET ADDRESS
+DEFOPT NINDX==50.	;NUMBER OF INDICES
+DEFOPT CH10P==1		;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END
+
+DEFOPT NOTYS==1		;# KA-10 CONSOLE 0 TTYS
+DEFOPT MTYP==1		;HAS MORTON MULTIPLEX BOX
+DEFOPT NMTYS==16.	;# TTYS ON MORTON BOX
+DEFOPT NSTTYS==16.	;# STY'S (PSEUDO-TTY'S)
+
+DEFOPT MSPP==1		;HAS MESSAGE SLURPER
+DEFOPT DEMON==1		;HAS DEMON ROUTINES
+
+DEFOPT TEN11P==1	;Rubin 10-11 interface
+IFDEF TEN11P,IFN TEN11P,DEFSYM T11CPA==3776000	;ADRS OF TEN-11 CONTROL PAGE
+DEFOPT TT11NM==0	; # of 10-11 PDP11 that handles TV TTYs.
+DEFOPT N11TYS==16.	; # PDP11 TV TTYS
+DEFOPT MXVBN==40	; Max video bfr # for assignment purposes.
+
+DEFOPT TSYSM==768.	;TOTAL PDP10 1K MEM BLOCKS
+DEFOPT NMMP==4		;# EXEC PAGES FOR MMP TABLE (# VIR PGS/512.)
+
+DEFSYM PMRCM==1777	;10 BIT REAL CORE ADR
+DEFSYM PMAGEM==16000	;3 BIT AGE
+DEFSYM PMCSHM==0	;NO CACHE BIT
+DEFSYM PMUNSD==160000	;UNUSED BITS
+
+DEFOPT TZONE==0.	; BC uses GMT time
+
+DEFINE ITSIRP BODY
+IRPS ITS,,[BC HX]
+BODY
+TERMIN
+TERMIN
+] ;BC
+
 IFE MCOND TT,[		;Temporary Testing KA10
 DEFOPT KA10P==1		;HAS KA PROCESSOR
 DEFOPT MAXJ==60.	;MAX NUMBER OF JOBS ALLOWED
@@ -508,7 +590,7 @@ DEFSYM PMCSHM==0	;NO CACHE BIT
 DEFSYM PMUNSD==160000	;UNUSED BITS

 DEFINE ITSIRP BODY
-IRPS ITS,,[DB]
+IRPS ITS,,[TT UP EX]
 BODY
 TERMIN
 TERMIN
--- a/src/l/struct.659
+++ b/src/l/struct.659
@@ -715,7 +715,7 @@ PG$		MRA PAGING
 		MRA PPN
 20$ 		MRA PS
 IFN ITS,[
-		MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL,HX,TT,PT]
+		MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL,HX,BC,TT,PT]
 		MRA EXPERIMENTAL
 		MRA .LISP.
 ]	;END OF IFN ITS
--- a/src/lars/backup.23
+++ b/src/lars/backup.23
@@ -0,0 +1,266 @@
+	TITLE BACKUP AUTOMATICALLY
+
+;This program runs DUMP as an inferior job, and sends it commands
+;to make an automated backup.
+
+IF1 [
+PRINTX /RTAPE SERVER HOST NAME = /
+.TTYMAC ZZZ
+DEFINE SERVER
+ASCIZ/ZZZ/
+TERMIN
+TERMIN
+]
+
+A==1
+B==A+1
+C==3
+D==4
+P==17
+
+CLOC==1		;Core link channel for DUMP output.
+CLIC==2		;Core link channel for input to DUMP.
+LOGC==3		;Log channel.  DUMP output is written here.
+DSKC==4		;Disk file channel for TS DUMP.
+USRC==5		;Inferior job channel.
+
+PDLLEN=100
+
+DEFINE SYSCAL A,B
+	.CALL [SETZ ? SIXBIT/A/ ? B ((SETZ))]
+TERMIN
+
+DEFINE LOOK [ZZZ
+	MOVEI A,ZZZ
+	PUSHJ P,LOOK1
+TERMIN
+
+DEFINE SEND [ZZZ
+	MOVEI A,ZZZ
+	PUSHJ P,SEND1
+TERMIN
+
+LOC 42
+	TSINT
+
+LOC 100
+GO:	MOVE P,[-PDLLEN,,PDL]
+
+	;Open two core links for DUMP TTY: input/output.
+	SYSCAL OPEN,[[.UAI,,CLOC] ? CLODEV ? CLOFN1 ? CLOFN2 ? CLODIR]
+	 .LOSE %LSFIL
+	SYSCAL OPEN,[[.UAO,,CLIC] ? CLIDEV ? CLIFN1 ? CLIFN2 ? CLIDIR]
+	 .LOSE %LSFIL
+
+	;Delete the old log file.  Then open it for writing.
+	SYSCAL DELETE,[LOGDEV ? LOGFN1 ? LOGFN2 ? LOGDIR]
+	 JFCL
+	SYSCAL OPEN,[[.UAO,,LOGC] ? LOGDEV ? LOGFN1 ? LOGFN2 ? LOGDIR]
+	 .LOSE %LSFIL
+
+	;Make an inferior job.
+	.OPEN USRC,[.BIO,,'USR ? 0 ? SIXBIT /DUMP/]
+	 .LOSE %LSSYS
+	.RESET USRC,
+	.USET USRC,[.RINTB,,INFBIT']	;Inferior interrupt bit.
+	.SUSET [.SMSK2,,INFBIT]		;Subscribe to those interrupts.
+
+	;Translate inferior TTY: input and output to the core links.
+	SYSCAL TRANAD,[[1,,USRC] ? TTYTRA ? CLITRA]
+	 .LOSE %LSSYS
+	SYSCAL TRANAD,[[2,,USRC] ? TTYTRA ? CLOTRA]
+	 .LOSE %LSSYS
+
+	;Load inferior from TS DUMP.
+	SYSCAL OPEN,[[.UII,,DSKC] ? DMPDEV ? DMPFN1 ? DMPFN2 ? DMPDIR]
+	 .LOSE %LSFIL
+	SYSCAL LOAD,[MOVEI USRC ? MOVEI DSKC]
+	 .LOSE %LSSYS
+	.IOT DSKC,A			;Get start address.
+	HRRZS A
+	.USET USRC,[.SUPC,,A]
+	.USET USRC,[.SUSTP,,[0]]	;Start inferior.
+	.CLOSE DSKC,
+
+	;Convert today's date to an ASCII string.
+	.RDATE A,
+	MOVE C,[440700,,DATE]
+LOOP2:	LDB D,[360600,,A]
+	ADDI D,40
+	IDPB D,C
+	LSH A,6
+	JUMPN A,LOOP2
+	IDPB A,C
+
+	PUSHJ P,TAPES			;Figure out highest tape number.
+	AOS TAPE			;Add one to it.
+	PUSHJ P,MOUNT			;Mount remote tape.
+	PUSHJ P,DUMPI			;Incremental backup.
+	PUSHJ P,QUIT
+
+HANG:	JFCL				;Wait for DUMP to finish.
+	 .HANG
+	JRST HANG
+
+TAPES:	SETZM TAPE
+	LOOK PROMPT			;Send the TAPES command,
+	SEND [ASCIZ /TAPESî/]
+	LOOK [ASCIZ /LIST DEV =/]
+	SEND CR
+TAPES1:	PUSHJ P,INPUT
+	CAIE D,^J			;Look for a new line.
+	 JRST TAPES1
+	MOVEI A,6
+	MOVEI B,0
+TAPES2:	PUSHJ P,INPUT			;Parse a decimal number.
+	CAIN D,^M
+	 POPJ P,			;Empty line means end of list.
+	CAIN D,40
+	 SKIPA D,[0]
+	  SUBI D,"0
+	IMULI B,10.
+	ADD B,D
+	SOJG A,TAPES2
+	CAMLE B,TAPE			;Save the largest tape number.
+	 MOVEM B,TAPE
+	JRST TAPES1
+
+MOUNT:	LOOK PROMPT			;Send the REMOTE command,
+	SEND [ASCIZ /REMOTEî/]		;and answer the questions.
+	LOOK [ASCIZ /HOST=/]
+	SEND HOST
+	SEND CR
+	LOOK [ASCIZ /DRIVE=/]
+	PUSHJ P,DRIVE
+	LOOK [ASCIZ /READ-ONLY? /]
+	SEND [ASCIZ /N/]
+	POPJ P,
+
+DUMPI:	LOOK PROMPT			;Send DUMP I command.
+	SEND [ASCIZ /DUMP Iî/]
+	LOOK [ASCIZ /TAPE NO=/]
+	PUSHJ P,TAPENO
+	SEND CR
+	LOOK [ASCIZ /E-O-T/]
+	POPJ P,
+
+DUMPF:	LOOK PROMPT			;Send DUMP F command.
+	SEND [ASCIZ /DUMP F LINKSî/]
+	LOOK [ASCIZ /TAPE NO=/]
+	PUSHJ P,TAPENO
+	LOOK PROMPT			;Send REWIND and ICHECK commands.
+	SEND [ASCIZ /REWINDî/]
+	LOOK PROMPT
+	SEND [ASCIZ /ICHECKî/]
+	LOOK [ASCIZ /E-O-T/]
+	POPJ P,
+
+QUIT:	LOOK PROMPT			;Send QUIT command.
+	SEND [ASCIZ /QUITî/]
+	POPJ P,
+
+SEND1:	HRLI A,440700			;Send a string to inferior.
+SEND2:	ILDB B,A
+	JUMPE B,WAIT
+	.IOT CLIC,B			;Send to inferior.
+	.IOT LOGC,B			;And a copy for the log.
+	JRST SEND2
+
+WAIT:	MOVEI A,30.			;Give DUMP a little time to consume
+	.SLEEP A,			;input and respond with some output.
+	POPJ P,
+
+LOOK1:	HRLI A,440700			;Look for a string from inferior.
+	MOVE B,A
+	ILDB C,B
+LOOK2:	PUSHJ P,INPUT			;Get output from DUMP.
+	CAIE C,(D)			;Match the input string?
+	 JRST [ MOVE B,A		;No, start over from the beginning.
+		ILDB C,B
+		CAIE C,(D)
+		 JRST LOOK2
+		JRST .+1 ]
+	ILDB C,B			;Yes, advance to next character.
+	JUMPE C,WAIT			;All done!
+	JRST LOOK2
+
+INPUT:	.IOT CLOC,D			;Get output from DUMP.
+	JUMPL D,INPUT1
+	.IOT LOGC,D			;Copy to the log.
+	POPJ P,
+INPUT1:	SYSCAL OPEN,[[.UAI,,CLOC] ? CLODEV ? CLOFN1 ? CLOFN2 ? CLODIR]
+	 .LOSE %LSFIL			;Saw end of file, try reopen.
+	JRST INPUT
+
+DRIVE:	SEND [ASCIZ /i/]		;Send tape file name as the
+	SEND DATE			;remote drive.
+	SEND [ASCIZ /-/]
+	PUSHJ P,TAPENO
+	SEND [ASCIZ /.dumpî/]
+	POPJ P,
+
+TAPENO:	MOVE A,TAPE			;Send tape number.
+	JRST DECIM
+
+DECIM:	IDIVI A,10.			;Send a decimal number.
+	JUMPE A,DECIM1
+	PUSH P,B
+	PUSHJ P,DECIM
+	POP P,B
+DECIM1:	ADDI B,"0
+	LSH B,29.
+	SEND B
+	POPJ P,
+
+TSINT:	0
+	0
+	PUSH P,A
+	MOVE A,TSINT
+	JUMPL A,INFINT			;Inferior interrupt?
+	.VALUE [ASCIZ /A[/]
+DISMIS:	POP P,A
+	.DISMIS TSINT+1
+
+INFINT:	.USET USRC,[.RPIRQC,,A]		;Get inferior interrupt
+	TRNN A,%PIBRK			;Inferior requesting to be killed?
+	 JRST DISMIS
+	.UCLOSE USRC,			;Oblige.
+	.LOGOUT 1,
+
+PROMPT:	ASCIZ /
+_/
+CR:	ASCIZ /î/
+
+PDL:	BLOCK PDLLEN
+
+HOST:	SERVER
+	BLOCK 10			;For patching the host name.
+TAPE:	0
+DATE:	BLOCK 3
+
+TTYTRA:	-1,,.+1
+	SIXBIT /TTY/
+
+CLITRA:	-4,,.+1
+CLIDEV:	SIXBIT /CLO/
+CLIFN1:	SIXBIT /DUMP/
+CLIFN2:	SIXBIT /TYI/
+CLIDIR:	SIXBIT /BACKUP/
+
+CLOTRA:	-4,,.+1
+CLODEV:	SIXBIT /CLO/
+CLOFN1:	SIXBIT /DUMP/
+CLOFN2:	SIXBIT /TYO/
+CLODIR:	SIXBIT /BACKUP/
+
+LOGDEV:	SIXBIT /DSK/
+LOGFN1:	SIXBIT /BACKUP/
+LOGFN2:	SIXBIT /LOG/
+LOGDIR:	SIXBIT /DRAGON/
+
+DMPDEV:	SIXBIT /DSK/
+DMPFN1:	SIXBIT /TS/
+DMPFN2:	SIXBIT /DUMP/
+DMPDIR:	SIXBIT /SYS/
+
+END GO
--- a/src/sysen1/pword.2664
+++ b/src/sysen1/pword.2664
@@ -9855,6 +9855,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 /BC/]	   ;is it BC?
+	  jrst [move x,[mdspec,,tsspec]	 ;yes, so use MD's specs
+	        blt x,spcend-1	   ;  all of them, to the end
+		ret ]
 	;; unknown machine, default to MD
 	move x,[mdspec,,tsspec]
 	blt x,spcend-1
--- a/src/syseng/dump.448
+++ b/src/syseng/dump.448
@@ -48,6 +48,7 @@ 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
 IFE MCOND HX, NEWCOD==0
+IFE MCOND BC, NEWCOD==0
 IFE MCOND TT, NEWCOD==0
 IFE MCOND PT, NEWCOD==0

--- a/src/sysnet/telser.174
+++ b/src/sysnet/telser.174
@@ -901,8 +901,14 @@ CHTELE:	SETOM NEWTEL		;NEW TELNET IS DEFAULT
 	 MOVEI A,[ASCIZ/MIT Mailinglist Central PDP-10/]
 	CAIN C,(SIXBIT/DB/)
 	 MOVEI A,[ASCIZ/DB-ITS/]
+	CAIN C,(SIXBIT/TT/)
+	 MOVEI A,[ASCIZ/Temporary Testing PDP-10/]
 	CAIN C,(SIXBIT/PT/)
 	 MOVEI A,[ASCIZ/PiDP-10 ITS/]
+	CAIN C,(SIXBIT/HX/)
+	 MOVEI A,[ASCIZ/SDF hactrn.org ITS/]
+	CAIN C,(SIXBIT/BC/)
+	 MOVEI A,[ASCIZ/SDF Boot Camp ITS/]
 	HRLI A,440700
 	MOVEM A,GREET
 	.SUSET [.SMASK,,[%PIIOC]]
--- a/src/system/salv.317
+++ b/src/system/salv.317
@@ -143,6 +143,21 @@ PRINTX /Which machine? /
 	TCMXH==55.
 	LIGHTS==4	;PI
 	];HX
+ IFCE MCHN,BC,[
+	FIRSPK==0
+	LASTPK==7
+	NUDSL==500.
+	DC10P==0
+	RP10P==1
+	RH10P==0
+	T300P==0
+	KL10P==0
+	OLPTP==0
+	NLPTP==0
+	TTLPTP==0
+	TCMXH==55.
+	LIGHTS==4	;PI
+	];BC
 IFCE MCHN,TT,[
 	FIRSPK==0
 	LASTPK==7
--- a/src/system/ttytyp.322
+++ b/src/system/ttytyp.322
@@ -250,6 +250,27 @@ MCONDX HX,{				;;; HX
 	TTDAAA 17,SPEED=50000		;T17 Morton port 15
 	TTDAAA 20,SPEED=50000		;T20 Morton port 16
 .ENDC ;}
+
+MCONDX BC,{				;;; BC
+	TTDLA36 0,TT=%TTLCL+%TT340,HOR=80.,SPEED=110	;T00 System Console
+	TTDAAA 1,SPEED=50000		;T01 Morton port 1
+	TTDAAA 2,SPEED=50000		;T02 Morton port 2
+	TTDAAA 3,SPEED=50000		;T03 Morton port 3
+	TTDAAA 4,SPEED=50000		;T04 Morton port 4
+	TTDAAA 5,SPEED=50000		;T05 Morton port 5
+	TTDAAA 6,SPEED=50000		;T06 Morton port 6
+	TTDAAA 7,SPEED=50000		;T07 Morton port 7
+	TTDAAA 10,SPEED=50000		;T10 Morton port 8
+	TTDAAA 11,SPEED=50000		;T11 Morton port 9
+	TTDAAA 12,SPEED=50000		;T12 Morton port 10
+	TTDAAA 13,SPEED=50000		;T13 Morton port 11
+	TTDAAA 14,SPEED=50000		;T14 Morton port 12
+	TTDAAA 15,SPEED=50000		;T15 Morton port 13
+	TTDAAA 16,SPEED=50000		;T16 Morton port 14
+	TTDAAA 17,SPEED=50000		;T17 Morton port 15
+	TTDAAA 20,SPEED=50000		;T20 Morton port 16
+.ENDC ;}
+
 MCONDX TT,{				;;; TT
 	TTDLA36 0,TT=%TTLCL+%TT340,HOR=80.,SPEED=110	;T00 System Console
 	TTDAAA 1,SPEED=9600,TT=%TT340	;T01