github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-11 23:53:12 +00:00
Code Issues Releases Wiki Activity

BC ITS - SDF Boot Camp KA10.

Browse Source
This commit is contained in:
Lars Brinkhoff 2023-10-16 19:44:11 +02:00
parent 1b182621b1
commit be8ed5d999
12 changed files with 265 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build/h3text.2018
View File

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

32
build/mchn/BC/boot Normal file
View File

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

25
build/mchn/BC/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
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

30
build/mchn/BC/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=" "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"
}

56
build/mchn/BC/run Normal file
View File

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

76
build/pdp10-ka/config.202
View File

@ -440,6 +440,82 @@ 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
DEFINE ITSIRP BODY
IRPS ITS,,[DB]
BODY
TERMIN
TERMIN
] ;BC
IFE MCOND TT,[ ;Temporary Testing KA10
DEFOPT KA10P==1 ;HAS KA PROCESSOR
DEFOPT MAXJ==60. ;MAX NUMBER OF JOBS ALLOWED

2
src/l/struct.659
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,TT,PT]
MRA [ITS,AI,ML,MC,MD,MX,DB,KA,KL,HX,BC,TT,PT]
MRA EXPERIMENTAL
MRA .LISP.
] ;END OF IFN ITS

4
src/sysen1/pword.2664
View File

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

1
src/syseng/dump.448
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 BC, NEWCOD==0
IFE MCOND TT, NEWCOD==0
IFE MCOND PT, NEWCOD==0

2
src/sysnet/telser.174
View File

@ -903,6 +903,8 @@ CHTELE: SETOM NEWTEL ;NEW TELNET IS DEFAULT
MOVEI A,[ASCIZ/DB-ITS/]
CAIN C,(SIXBIT/PT/)
MOVEI A,[ASCIZ/PiDP-10 ITS/]
CAIN C,(SIXBIT/BC/)
MOVEI A,[ASCIZ/SDF Boot Camp ITS/]
HRLI A,440700
MOVEM A,GREET
.SUSET [.SMASK,,[%PIIOC]]

15
src/system/salv.317
View File

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

21
src/system/ttytyp.322
View File

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