mirror of
https://github.com/PDP-10/its.git
synced 2026-03-20 16:38:16 +00:00
first go at trying to build TF directly from git source
This commit is contained in:
Landon Rodgers
@@ -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 : :
|
||||
|
||||
@@ -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"
|
||||
|
||||
@@ -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==<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 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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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!
|
||||
|
||||
|
||||
|
||||
@@ -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))]
|
||||
|
||||
@@ -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.
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user