1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-28 21:01:16 +00:00

Add TT ITS: KA10, eight DC-10 disks.

This commit is contained in:
Lars Brinkhoff
2018-09-10 07:44:44 +02:00
parent 2e19c93314
commit d9b0319722
11 changed files with 285 additions and 1 deletions

View File

@@ -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 : :

30
build/mchn/TT/boot Normal file
View File

@@ -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

25
build/mchn/TT/init Normal file
View File

@@ -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

30
build/mchn/TT/mchn.tcl Normal file
View File

@@ -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"
}

72
build/mchn/TT/run Normal file
View File

@@ -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

View File

@@ -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==<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==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