diff --git a/build/h3text.2016 b/build/h3text.2016 index aec89940..28202dbe 100644 --- a/build/h3text.2016 +++ b/build/h3text.2016 @@ -128,7 +128,7 @@ HOST : 10.3.0.6 : ML.MIT.EDU, MIT-ML, ML : PDP-10 : ITS : : HOST : 10.3.0.54 : MC.MIT.EDU, MIT-MC, MC : PDP-10 : ITS : : ;;; DistriBution ITS and generic KA -HOST : %CHAOS%%IP% : %HOSTNAME%, DB, KA, KL : PDP-10 : ITS : : +HOST : %CHAOS%%IP% : %HOSTNAME%, DB, TF : PDP-10 : ITS : : ;;; Global ITS and Lispm network HOST : CHAOS 5460, 54.174.143.211 : ES-ITS.SWENSON.ORG, ES : PDP-10 : ITS : : diff --git a/build/ka10/include.tcl b/build/ka10/include.tcl index 72bffc53..147ddb63 100644 --- a/build/ka10/include.tcl +++ b/build/ka10/include.tcl @@ -48,7 +48,7 @@ proc frontend_bootstrap {} { } proc its_switches {} { - respond "MACHINE NAME =" "KA\r" + respond "MACHINE NAME =" "TF\r" } proc make_ntsddt {} { @@ -68,7 +68,7 @@ proc make_ntsddt {} { proc make_salv {} { respond "*" ":midas dsk0:.;_system;salv\r" respond "time-sharing?" "n\r" - respond "machine?" "KA\r" + respond "machine?" "TF\r" expect ":KILL" } @@ -91,7 +91,7 @@ proc make_dskdmp {} { } proc dump_switches {} { - respond "WHICH MACHINE?" "KA\r" + respond "WHICH MACHINE?" "TF\r" } proc peek_switches {} { @@ -152,7 +152,7 @@ proc bootable_tapes {} { create_tape "$out/magdmp.tape" type ":magfrm\r" - respond "?" "KA\r" + respond "?" "TF\r" respond "?" "Y" respond "_" "W" respond "FROM" ".; @ DDT\r" diff --git a/build/pdp10-ka/config.202 b/build/pdp10-ka/config.202 index 2c88f0e6..8313aef7 100644 --- a/build/pdp10-ka/config.202 +++ b/build/pdp10-ka/config.202 @@ -280,6 +280,87 @@ BODY TERMIN TERMIN ] ;KA + +IFE MCOND TF,[ ;Generic 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==4 ;# DISK UNITS +DEFOPT NTUTBL==1 ;TUTS ARE ONE BLOCK LONG +DEFSYM NUDSL==250. ;# 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==1 ;HAS NEW LPT (ODEC) +DEFOPT TPLP==1 ;PSEUDO LPT +DEFOPT PTRP==1 ;HAS PAPER TAPE +DEFOPT PTPP==1 ; And punch works. +DEFOPT PDCLKP==1 ;"DeCoriolis" CLOCK +DEFOPT 340P==1 ;HAS 340 DISPLAY +DEFOPT STKP==1 ;Has Stanford keyboard + +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 MTYP==1 ;HAS MORTON MULTIPLEX BOX +DEFOPT NMTYS==16. ;# TTYS ON MORTON BOX +DEFOPT DPKPP==1 ;DATA POINT KLUDGE (TTY mux) +DEFOPT NDPTYS==16. ;# TTYS ON DATAPOINT KLUDGE +DEFOPT NSTTYS==8 ;# STY'S (PSEUDO-TTY'S) + +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 PDP6P==1 ;HAS PDP6 +DEFSYM PDP6BM==3000000 ;BASE ADR OF PDP6 MEM AS SEEN FROM 10 +DEFSYM LPDP6M==16. ;LENGTH OF PDP6 MEM IN PAGES + +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 +] ;TF IFE MCOND EX,[ ;Generic KA10 DEFOPT KA10P==1 ;HAS KA PROCESSOR DEFOPT MAXJ==60. ;MAX NUMBER OF JOBS ALLOWED diff --git a/conf/network b/conf/network index e2f5e182..219d0461 100644 --- a/conf/network +++ b/conf/network @@ -1,10 +1,10 @@ # Network configuration for ITS. Note: for now, the two-letter ITS # name is hardcoded to DB, which is short for DistriBution. -HOSTNAME=DB-ITS.EXAMPLE.COM -IP=192.168.1.100 +HOSTNAME=TF.SHAMELESSWEEB.PARTY +IP=192.168.2.110 GW=192.168.0.45 NETMASK=255,255,255,248 -CHAOS=no #Or octal Chaosnet address +CHAOS=6316 #Or octal Chaosnet address CHAFRIENDS=chip=3150/no.nocrew.org \ chip=3143/up.update.uu.se \ chip=7100/sj.gewt.net diff --git a/src/l/*lisp.154 b/src/l/*lisp.154 index 3ed79b52..258ce17c 100644 --- a/src/l/*lisp.154 +++ b/src/l/*lisp.154 @@ -15489,7 +15489,7 @@ IFN ITS,[ .VALUE SETZ A, ;CONVERT TO ATOMIC SYMBOL HLRZS TT - IRP X,,[AI,ML,MC,MD,MX,DB,KA,KL] + IRP X,,[AI,ML,MC,MD,MX,DB,KA,KL,TF] CAIN TT,(SIXBIT \X\) MOVEI A,Q!X TERMIN diff --git a/src/sysen1/pword.2663 b/src/sysen1/pword.2663 index 2f0c488f..846452e7 100644 --- a/src/sysen1/pword.2663 +++ b/src/sysen1/pword.2663 @@ -9825,6 +9825,11 @@ bltspc: syscal sstatu,[val x ? val x ? val x ? val x ? val x blt x,spcend-1 ; all of them to the bitter end setom dm.flg ret ] + camn x,[sixbit /TF/] ;TF? + jrst [move x,[dmspec,,tsspec] ;yes, use DM's specs + blt x,spcend-1 ; all of them to the bitter end + setom dm.flg + ret ] .lose ; Unknown machine! diff --git a/src/syseng/dump.446 b/src/syseng/dump.446 index 7e066e8e..b30b1389 100644 --- a/src/syseng/dump.446 +++ b/src/syseng/dump.446 @@ -47,6 +47,7 @@ NEWCOD==1 ; Assume a KS unless otherwise informed 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 TF, NEWCOD==0 DEFINE SYSCAL OP,ARGS .CALL [SETZ ? SIXBIT/OP/ ? ARGS ((SETZ))] diff --git a/src/system/salv.316 b/src/system/salv.316 index c9c2e26b..bedc6cc1 100644 --- a/src/system/salv.316 +++ b/src/system/salv.316 @@ -127,6 +127,21 @@ PRINTX /Which machine? / TCMXH==55. LIGHTS==4 ;PI ];KA + IFCE MCHN,TF,[ + FIRSPK==0 + LASTPK==3 + NUDSL==250. + DC10P==0 + RP10P==1 + RH10P==0 + T300P==0 + KL10P==0 + OLPTP==0 + NLPTP==0 ;rest in pieces + TTLPTP==0 + TCMXH==55. + LIGHTS==4 ;PI + ];TF IFCE MCHN,DM,[ FIRSPK==17. LASTPK==21. diff --git a/src/system/ttytyp.321 b/src/system/ttytyp.321 index d262e897..8d23d780 100644 --- a/src/system/ttytyp.321 +++ b/src/system/ttytyp.321 @@ -201,6 +201,58 @@ MCONDX KA,{ ;;; KA TTDAAA 60,SPEED=50000 ;T60 Morton port 16 .ENDC ;} +MCONDX TF,{ ;;; TF + TTDLA36 0,TT=%TTLCL+%TT340,HOR=80.,SPEED=110 ;T00 System Console + TTDAAA 1,SPEED=300,TT=%TT340 ;T01 TK10 port 1 + TTDAAA 2,SPEED=300 ;T02 TK10 port 2 + TTDAAA 3,SPEED=300 ;T03 TK10 port 3 + TTDAAA 4,SPEED=300 ;T04 TK10 port 4 + TTDAAA 5,SPEED=300 ;T05 TK10 port 5 + TTDAAA 6,SPEED=300 ;T06 TK10 port 6 + TTDAAA 7,SPEED=300 ;T07 TK10 port 7 + TTDAAA 10,SPEED=300 ;T10 TK10 port 8 + TTDAAA 11,SPEED=300 ;T11 TK10 port 9 + TTDAAA 12,SPEED=300 ;T12 TK10 port 10 + TTDAAA 13,SPEED=300 ;T13 TK10 port 11 + TTDAAA 14,SPEED=300 ;T14 TK10 port 12 + TTDAAA 15,SPEED=300 ;T15 TK10 port 13 + TTDAAA 16,SPEED=300 ;T16 TK10 port 14 + TTDAAA 17,SPEED=300 ;T17 TK10 port 15 + TTDAAA 20,SPEED=300 ;T20 TK10 port 16 + TTDAAA 21,SPEED=4800 ;T21 Datapoint port 1 + TTDAAA 22,SPEED=4800 ;T22 Datapoint port 2 + TTDAAA 23,SPEED=4800 ;T23 Datapoint port 3 + TTDAAA 24,SPEED=4800 ;T24 Datapoint port 4 + TTDAAA 25,SPEED=4800 ;T25 Datapoint port 5 + TTDAAA 26,SPEED=4800 ;T26 Datapoint port 6 + TTDAAA 27,SPEED=4800 ;T27 Datapoint port 7 + TTDAAA 30,SPEED=4800 ;T30 Datapoint port 8 + TTDAAA 31,SPEED=4800 ;T31 Datapoint port 9 + TTDAAA 32,SPEED=4800 ;T32 Datapoint port 10 + TTDAAA 33,SPEED=4800 ;T33 Datapoint port 11 + TTDAAA 34,SPEED=4800 ;T34 Datapoint port 12 + TTDAAA 35,SPEED=4800 ;T35 Datapoint port 13 + TTDAAA 36,SPEED=4800 ;T36 Datapoint port 14 + TTDAAA 37,SPEED=4800 ;T37 Datapoint port 15 + TTDAAA 40,SPEED=4800 ;T40 Datapoint port 16 + TTDAAA 41,SPEED=50000 ;T41 Morton port 1 + TTDAAA 42,SPEED=50000 ;T42 Morton port 2 + TTDAAA 43,SPEED=50000 ;T43 Morton port 3 + TTDAAA 44,SPEED=50000 ;T44 Morton port 4 + TTDAAA 45,SPEED=50000 ;T45 Morton port 5 + TTDAAA 46,SPEED=50000 ;T46 Morton port 6 + TTDAAA 47,SPEED=50000 ;T47 Morton port 7 + TTDAAA 50,SPEED=50000 ;T50 Morton port 8 + TTDAAA 51,SPEED=50000 ;T51 Morton port 9 + TTDAAA 52,SPEED=50000 ;T52 Morton port 10 + TTDAAA 53,SPEED=50000 ;T53 Morton port 11 + TTDAAA 54,SPEED=50000 ;T54 Morton port 12 + TTDAAA 55,SPEED=50000 ;T55 Morton port 13 + TTDAAA 56,SPEED=50000 ;T56 Morton port 14 + TTDAAA 57,SPEED=50000 ;T57 Morton port 15 + TTDAAA 60,SPEED=50000 ;T60 Morton port 16 +.ENDC ;} + MCONDX EX,{ ;;; EX TTDLA36 0,TT=%TTLCL+%TT340,HOR=80.,SPEED=110 ;T00 System Console TTDAAA 1,SPEED=9600,TT=%TT340 ;T01