github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-03-01 09:40:56 +00:00
Code Issues Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

1
build/h3text.2016
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

74
build/pdp10-ka/config.202
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

2
src/l/struct.658
View File

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

1
src/syseng/dump.447
View File

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

1
src/system/its.1651
View File

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

15
src/system/salv.317
View File

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

35
src/system/ttytyp.321
View File

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