From d9b0319722e37b63eff77c93c3e4ab8450e2dfbb Mon Sep 17 00:00:00 2001 From: Lars Brinkhoff Date: Mon, 10 Sep 2018 07:44:44 +0200 Subject: [PATCH] Add TT ITS: KA10, eight DC-10 disks. --- build/h3text.2016 | 1 + build/mchn/TT/boot | 30 ++++++++++++++++ build/mchn/TT/init | 25 +++++++++++++ build/mchn/TT/mchn.tcl | 30 ++++++++++++++++ build/mchn/TT/run | 72 +++++++++++++++++++++++++++++++++++++ build/pdp10-ka/config.202 | 74 +++++++++++++++++++++++++++++++++++++++ src/l/struct.658 | 2 +- src/syseng/dump.447 | 1 + src/system/its.1651 | 1 + src/system/salv.317 | 15 ++++++++ src/system/ttytyp.321 | 35 ++++++++++++++++++ 11 files changed, 285 insertions(+), 1 deletion(-) create mode 100644 build/mchn/TT/boot create mode 100644 build/mchn/TT/init create mode 100644 build/mchn/TT/mchn.tcl create mode 100644 build/mchn/TT/run diff --git a/build/h3text.2016 b/build/h3text.2016 index f5944c69..4ff6f48f 100644 --- a/build/h3text.2016 +++ b/build/h3text.2016 @@ -161,4 +161,5 @@ HOST : CHAOS 3123, CHAOS 4403 : BRIDGE.AMS.Chaosnet.NET, BR.AMS.Chaosnet.NET : U HOST : CHAOS 4404 : FILECOMPUTER.AMS.Chaosnet.NET, FC.AMS.Chaosnet.NET, FS.AMS.Chaosnet.NET : UNIX : UNIX : : HOST : CHAOS 3037 : PUMA.NoCrew.ORG, PUMA : PDP-11 : MINITS : : HOST : CHAOS 3116 : PREP.NoCrew.ORG, PREP : VAX : UNIX : : +HOST : 10.2.3.4 : TT : PDP-10 : ITS : : \ No newline at end of file diff --git a/build/mchn/TT/boot b/build/mchn/TT/boot new file mode 100644 index 00000000..66b05177 --- /dev/null +++ b/build/mchn/TT/boot @@ -0,0 +1,30 @@ +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 +at ptr out/pdp10-ka/dskdmp.rim +at mta0 out/pdp10-ka/sources.tape +set mta mpx=7 +set mta type=b +set ai enabled +at ai0 out/pdp10-ka/dc10.0 +at ai1 out/pdp10-ka/dc10.1 +at ai2 out/pdp10-ka/dc10.2 +at ai3 out/pdp10-ka/dc10.3 +at ai4 out/pdp10-ka/dc10.4 +at ai5 out/pdp10-ka/dc10.5 +at ai6 out/pdp10-ka/dc10.6 +at ai7 out/pdp10-ka/dc10.7 +b ptr diff --git a/build/mchn/TT/init b/build/mchn/TT/init new file mode 100644 index 00000000..79da46f4 --- /dev/null +++ b/build/mchn/TT/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 +set ai enabled +at ai0 out/pdp10-ka/dc10.0 +at ai1 out/pdp10-ka/dc10.1 +at ai2 out/pdp10-ka/dc10.2 +at ai3 out/pdp10-ka/dc10.3 +at ai4 out/pdp10-ka/dc10.4 +at ai5 out/pdp10-ka/dc10.5 +at ai6 out/pdp10-ka/dc10.6 +at ai7 out/pdp10-ka/dc10.7 +b mta0 diff --git a/build/mchn/TT/mchn.tcl b/build/mchn/TT/mchn.tcl new file mode 100644 index 00000000..1a1007f0 --- /dev/null +++ b/build/mchn/TT/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=" "Y\r" + respond "NUDSL=" "500.\r" + respond "KS10P=" "N\r" + respond "KL10P=" "N\r" +} + +proc peek_switches {} { + respond "with ^C" "340P==1\r\003" +} + +proc mark_packs {} { + mark_pack "0" "0" "0" + mark_pack "1" "1" "1" + mark_pack "2" "2" "2" + mark_pack "3" "3" "3" + mark_pack "4" "4" "4" + mark_pack "5" "5" "5" + mark_pack "6" "6" "6" + mark_pack "7" "7" "7" +} diff --git a/build/mchn/TT/run b/build/mchn/TT/run new file mode 100644 index 00000000..e89d512a --- /dev/null +++ b/build/mchn/TT/run @@ -0,0 +1,72 @@ +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 dpy enabled +set dk disabled +set stk enabled +set tk enabled +at tk 10000 speed=300 +# 10001 reserved for GE bagbiters, hah. +# 10002 Datapoint kludge +set mty enabled +at mty 10003 speed=50000 +at mty line=10,10015;notelnet speed=50000 +at mty line=11,10019 speed=4800 +at mty line=12,10016;notelnet speed=50000 +at mty line=13,10017 speed=9600 +at mty line=14,10018 speed=9600 +at mty line=15,10020 speed=4800 +set ten11 enabled +at ten11 10011 +#set auxcpu enabled +#at auxcpu 10006 +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 +at ptr out/pdp10-ka/dskdmp.rim +set ai enabled +at ai0 out/pdp10-ka/dc10.0 +at ai1 out/pdp10-ka/dc10.1 +at ai2 out/pdp10-ka/dc10.2 +at ai3 out/pdp10-ka/dc10.3 +at ai4 out/pdp10-ka/dc10.4 +at ai5 out/pdp10-ka/dc10.5 +at ai6 out/pdp10-ka/dc10.6 +at ai7 out/pdp10-ka/dc10.7 +set mta mpx=7 +set mta type=b +set dt mpx=6 +set imp mpx=4 +set wcnsls enabled joystick cscope +set ocnsls enabled +set imx enabled mpx=3 +set imx channel=2;unit0;axis0;negate +set imx channel=3;unit0;axis1 +set imx channel=10;unit0;axis3;negate +set imx channel=5;unit1;axis0;negate +set imx channel=6;unit1;axis1 +set imx channel=30;unit1;axis3;negate +set imx channel=70;unit2;axis0 +set imx channel=71;unit2;axis1;negate +set imx channel=73;unit2;axis3 +set imx channel=77;unit3;axis0 +set imx channel=76;unit3;axis1;negate +set imx channel=74;unit3;axis3 +b ptr diff --git a/build/pdp10-ka/config.202 b/build/pdp10-ka/config.202 index 09a768ff..cadb2a43 100644 --- a/build/pdp10-ka/config.202 +++ b/build/pdp10-ka/config.202 @@ -438,6 +438,80 @@ TERMIN TERMIN ] ;HX +IFE MCOND TT,[ ;Temporary Testing 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 DC10P==1 ;HAS SYSTEMS CONCEPTS DISK CONTROL +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==1 ;HAS NEW LPT (ODEC) +DEFOPT TPLP==1 ;PSEUDO LPT +DEFOPT PTRP==1 ;HAS PAPER TAPE +DEFOPT PTPP==1 ; And punch works. +DEFOPT MTYP==1 ;HAS MORTON MULTIPLEX BOX +DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK + +DEFOPT NETP==1 ; Has net connection +DEFOPT IMPP==1 ; Has IMP interface +DEFOPT KAIMP==1 +DEFOPT IMPUS==306 ; ARPA net host number +DEFOPT IMPUS3== ; 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==0 ;CHAOS NET +DEFOPT MYCHAD==3114 ;CHAOS NET ADDRESS +DEFOPT NINDX==30. ;NUMBER OF INDICES +DEFOPT CH10P==0 ;CHAOS NET VIA PDP-10 I/O BUS, NOT FRONT-END + +DEFOPT NOTYS==1 ;# KA-10 CONSOLE 0 TTYS +DEFOPT TK10P==1 ;HAS TK10 TTY SCANNER +DEFOPT NNTYS==16. ;# TTYS ON KNIGHT KLUDGE +;DEFOPT NNVTTS==0 ;# NOVA TTYS (used to have?) +DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX +DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S) +DEFOPT MSPP==1 ;HAS MESSAGE SLURPER + +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==10. ; # 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 + +DEFINE ITSIRP BODY +IRPS ITS,,[DB] +BODY +TERMIN +TERMIN +] ;TT + IFE MCOND DM,[ DEFOPT KA10P==1 ;DM HAS KA10 PROCESSOR DEFOPT MAXJ==63. ;MAX NUMBER OF JOBS ALLOWED diff --git a/src/l/struct.658 b/src/l/struct.658 index 50f11ba4..9e307870 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,KA,KL,HX] + MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL,HX,TT] MRA EXPERIMENTAL MRA .LISP. ] ;END OF IFN ITS diff --git a/src/syseng/dump.447 b/src/syseng/dump.447 index 1b5a96d6..76f5cab0 100644 --- a/src/syseng/dump.447 +++ b/src/syseng/dump.447 @@ -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 TT, NEWCOD==0 DEFINE SYSCAL OP,ARGS .CALL [SETZ ? SIXBIT/OP/ ? ARGS ((SETZ))] diff --git a/src/system/its.1651 b/src/system/its.1651 index 36b2bb82..a029c199 100644 --- a/src/system/its.1651 +++ b/src/system/its.1651 @@ -26,6 +26,7 @@ IF1 [ PRINTX \MACHINE NAME = \ ; NX Non-eXistent KS10 (KLH10) ; DB KS10 DistriBution ; KA Generic KA10 +; TT Temporary Testing KA10 ;THE FILE "CONFIG" HAS ASSEMBLY SWITCHES AS A FUNCTION OF MACHINE. .TTYMAC A diff --git a/src/system/salv.317 b/src/system/salv.317 index 4252527e..bfeb107e 100644 --- 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,TT,[ + FIRSPK==0 + LASTPK==7 + NUDSL==500. + DC10P==1 + RP10P==0 + RH10P==0 + T300P==0 + KL10P==0 + OLPTP==0 + NLPTP==0 + TTLPTP==0 + TCMXH==55. + LIGHTS==4 ;PI + ];TT IFCE MCHN,DM,[ FIRSPK==17. LASTPK==21. diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.321 index 4e032179..f220b69d 100644 --- a/src/system/ttytyp.321 +++ b/src/system/ttytyp.321 @@ -250,6 +250,41 @@ MCONDX HX,{ ;;; HX 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 + TTDAAA 2,SPEED=9600 ;T02 + TTDAAA 3,SPEED=9600 ;T03 + TTDAAA 4,SPEED=9600 ;T04 + TTDAAA 5,SPEED=9600 ;T05 + TTDAAA 6,SPEED=9600 ;T06 + TTDAAA 7,SPEED=9600 ;T07 + TTDAAA 10,SPEED=9600 ;T10 + TTDAAA 11,SPEED=9600 ;T11 + TTDAAA 12,SPEED=9600 ;T12 + TTDAAA 13,SPEED=9600 ;T13 + TTDAAA 14,SPEED=9600 ;T14 + TTDAAA 15,SPEED=9600 ;T15 + TTDAAA 16,SPEED=9600 ;T16 + TTDAAA 17,SPEED=9600 ;T17 + TTDAAA 20,SPEED=9600 ;T20 + TTDAAA 21,SPEED=9600 ;T21 + TTDAAA 22,SPEED=9600 ;T22 + TTDAAA 23,SPEED=9600 ;T23 + TTDAAA 24,SPEED=9600 ;T24 + TTDAAA 25,SPEED=9600 ;T25 + TTDAAA 26,SPEED=9600 ;T26 + TTDAAA 27,SPEED=9600 ;T27 + TTDAAA 30,SPEED=9600 ;T30 + TTDAAA 31,SPEED=9600 ;T31 + TTDAAA 32,SPEED=9600 ;T32 + TTDAAA 33,SPEED=9600 ;T33 + TTDGT40 34,SPEED=4800 ;T34 GT40, port 12 + TTDOIM 35,SPEED=50000 ;T35 Imlac, port 13 + TTDTEK 36,SPEED=9600 ;T36 Tektronix, port 14 + TTDVT 37,SPEED=9600 ;T37 VT52, port 15 + TTDDPT 40,SPEED=4800 ;T40 Datapoint port 16 +.ENDC ;} ;NOTE: SEE COMMENT AT FRONT OF FILE FOR CONSTRAINTS ON THE COMMENTS ;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE