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

Make MC great again.

Browse Source
This commit is contained in:
Lars Brinkhoff
2019-09-01 20:59:13 +02:00
parent 0d731cd1fa
commit 299dfd277e
7 changed files with 36 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
build/misc.tcl
View File

@@ -1624,7 +1624,7 @@ respond "*" ":palx gt40;_gt40;gtlem\r"
expect ":KILL"
# KL10 front end debugger. Put it in the same directory as the
# "MX" IOELEV.
# "MC" IOELEV.
respond "*" ":palx sysbin;_syseng; klrug\r"
expect ":KILL"
# 11STNK expects a copy in the . directory.
@@ -1678,9 +1678,9 @@ respond "*" ":palx dsk0:.;_system;ioelev\r"
respond "MACHINE NAME =" "AI\r"
expect ":KILL"
# The KL10 console "MX" IOELEV.
# The KL10 console "MC" IOELEV.
respond "*" ":palx .; cons11_system;ioelev\r"
respond "MACHINE NAME =" "MX\r"
respond "MACHINE NAME =" "MC\r"
expect ":KILL"
respond "*" ":11stnk\r"
respond "*" "D"
@@ -1694,11 +1694,11 @@ respond "*" ":pcnvrt .temp.; ioelev bin\r"
expect ":KILL"
move_to_klfe ".temp.; ioelev a11"
# The KL10 "MX-DL" IOELEV. Put in same directory as KLRUG BIN.
# The KL10 "MC-DL" IOELEV. Put in same directory as KLRUG BIN.
# TS BOOT11 stuffs it over DL10 in timesharing. TS 11BOOT makes a
# @ BOOT11 to stuff out of timesharing.
respond "*" ":palx sysbin;_system;ioelev\r"
respond "MACHINE NAME =" "MX\r"
respond "MACHINE NAME =" "MC\r"
expect ":KILL"
# MINITS

14
build/pdp10-kl/config.202
View File

@@ -415,8 +415,8 @@ DEFSYM PMCSHM==0 ;NO CACHE BIT
DEFSYM PMUNSD==160000 ;UNUSED BITS
] ;DM
IFE MCOND MX,[
DEFOPT KL10P==1 ;MX IS WHAT WE CALL THE KL10 NOW
IFE MCOND MC,[
DEFOPT KL10P==1 ;MC IS THE RIGHFUL NAME FOR THE KL10
DEFOPT MAXJ==120. ;MAX NUMBER OF JOBS ALLOWED
DEFOPT SWBLK==1 ;1 => SWAP BLOCKING, 0 => PRIVILEGED USER
DEFOPT SWPWSP==0 ;NO WORKING-SET SWAP SCHEDULER
@@ -473,11 +473,11 @@ DEFSYM PMAGEM==160000 ;3 BIT AGE
DEFSYM PMUNSD==0 ;NO UNUSED BITS
DEFINE ITSIRP BODY
IRPS ITS,,[MX]
IRPS ITS,,[MC]
BODY
TERMIN
TERMIN
] ;MX
] ;MC
IFE MCOND KL,[
DEFOPT KA10P==1
@@ -610,7 +610,7 @@ TERMIN
TERMIN
] ;AI
IFE MCOND MC,[
IFE MCOND MCKS,[
DEFOPT KS10P==1 ;MC is now a KS10.
DEFOPT MAXJ==60. ;Max number of jobs allowed
@@ -671,7 +671,7 @@ IRPS ITS,,[AI MC]
BODY
TERMIN
TERMIN
] ;MC
] ;MCKS
IFE MCOND ML,[
DEFOPT KS10P==1 ;ML is now a KS10.
@@ -1299,7 +1299,7 @@ IFN IMPP,IFNDEF IMPUS, .ERR IMPUS must be defined as ARPAnet host #
IFN IMPP,IFNDEF IMPUS3,.ERR IMPUS3 must be defined as ARPAnet host #
;IFN IMPP,DEFOPT NM%IMP==<IPMASK IMPUS3> ; Define default netmask
DEFOPT DMIMP==0 ;1= Has DM IMP interface
DEFOPT KAIMP==0 ;1= Has AI-KA/ML-KA/MX-KL IMP interface
DEFOPT KAIMP==0 ;1= Has AI-KA/ML-KA/MC-KL IMP interface
DEFOPT KSIMP==0 ;1= Has KS10 UNIBUS ACC LH-DH IMP interface
DEFOPT SSIMP==0 ;1= Has "Simulated Simple IMP", similar to KSIMP
IFN IMPP,IFE DMIMP+KAIMP+KSIMP+SSIMP,.ERR IMPP requires an interface type

6
src/kshack/nsalv.261
View File

@@ -195,7 +195,7 @@ PRINTX /Which machine? /
GWHOST==RHOST
];AI
IFCE MCHN,MC,[
IFCE MCHN,MCKS,[
;;; The new Mail Computer KS10.
KS10P==1
NDRIVE==1 ;# physical units
@@ -211,7 +211,7 @@ PRINTX /Which machine? /
LHOST==3131 ;Local chaos host address (MC)
RHOST==3130 ;Remote chaos host (AI)
GWHOST==RHOST
];MC
];MCKS
IFCE MCHN,ML,[
;;; The Math Lab KS10.
@@ -377,7 +377,7 @@ PRINTX /Which machine? /
GWHOST==RHOST
];KSRM80
IFCE MCHN,MCKL,[
IFCE MCHN,MC,[
;;; The Macsyma Consortium machine.
KL10P==1
SA=105*2000 ; MC-KL system is big, need to push SALV higher.

8
src/syseng/dump.446
View File

@@ -44,7 +44,7 @@ TERMIN
]
NEWCOD==1 ; Assume a KS unless otherwise informed
IFE MCOND MX, NEWCOD==0 ;Use old code on MX KL only (running old ITS)
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
@@ -61,7 +61,7 @@ TERMIN
;AND EVEN THEN YOU SHOULD BE CAREFUL
MAXTAP==3000. ;MAXIMUM TAPE NUMBER +1
IFE MCOND AI, MAXTAP==4000. ;EVEN THOUGH I'M NOT RJL
IFE MCOND MX, MAXTAP==5000. ; I'm not RJL either... -Alan
IFE MCOND MC, MAXTAP==5000. ; I'm not RJL either... -Alan
TPINFL==10. ;NUMBER OF WORDS OF INFO PER TAPE
SUBTTL I/O CHANNEL, UUO DEFINITIONS
@@ -3879,14 +3879,14 @@ IFE MCOND AI,[
SIXBIT /SHAREM/
]
IFE MCOND MC,[ ; (The KS)
IFE MCOND MCKS,[ ; (The KS)
SIXBIT /ANBB/
SIXBIT /DUPSYS/
SIXBIT /KSC/
SIXBIT /LSPMAI/
]
IFE MCOND MX,[ ; (The KL)
IFE MCOND MC,[ ; (The KL)
SIXBIT /.DOVR./
SIXBIT /.KLFE./
SIXBIT /KLDCP/

26
src/system/ioelev.433
View File

@@ -63,7 +63,7 @@ BODY
VERSION==%FNAM2
.IFM MX-DL ;MX'S DL-10 PDP11
.IFM MC-DL ;MC'S DL-10 PDP11
.MACRO MCONDX MCHN
.IF IDN MCHN,MX
.ENDM MCONDX
@@ -71,7 +71,7 @@ VERSION==%FNAM2
.ENDC
.ENDM FUBAR
.MACRO MNAME BODY
.IRP MCHN,<MX>
.IRP MCHN,<MC>
BODY
.ENDM
.ENDM MNAME
@@ -94,19 +94,19 @@ T300P==1 ;TRIDENT T-300 AND 2561 CONTROLLER
CHAOSP==2 ;HAS TWO CHAOS NET INTERFACES
CHSBTB=0 ;CHAOSNET INTERFACE IS NEW, DOESN'T GET HUNG ANY MORE
CHAD0==440 ;CHAOSNET ADDRESS OF THIS PDP11 ITSELF
DLCADR==1440 ;CHAOSNET ADDRESS OF PDP10 CONNECTED VIA DL10 (MX)
DLCADR==1440 ;CHAOSNET ADDRESS OF PDP10 CONNECTED VIA DL10 (MC)
CHAD1==3040 ;SECOND INTERFACE
CHADD==440 ;The DOVER protocol translator only works for this address
TEN11P==0 ;NO TEN-11 INTERFACE
ETHERP==0 ;NO ETHERNET
FTPULS==0 ;INITIALLY, MX DOES NOT GENERATE TEST PACKETS
FTPULS==0 ;INITIALLY, MC DOES NOT GENERATE TEST PACKETS
FTGARB==1 ;SAVE LAST GARBAGE PACKET RECEIVED
MAXBSZ==250. ;MAXIMUM TYPEOUT BUFFER SIZE
.MACRO ASPIRP BODY ;DEFINE LINE NUMBERS WITH AUTOSPEED
.ENDM ASPIRP
.ENDC ;MX-DL
.ENDC ;MC-DL
.IFM MX ;MX CONSOLE 11
.IFM MC ;MC CONSOLE 11
DL10P==0 ;DOES NOT HAVE DL10
DTE20P==1 ;HAS DTE20
NODDT==0 ;HAS DDT AND KLDCP
@@ -136,7 +136,7 @@ TKS==177560
TKB==177562
TPS==177564
TPB==177566
.ENDC ;MX
.ENDC ;MC
.IFM AI ;AI'S CHAOS-ETHER-GATEWAY PDP11
@@ -1127,7 +1127,7 @@ T AUTOSP: ;IF NON-ZERO, LINE GOES INTO AUTOSPEED WHEN DIALED UP
.ENDR
.IIF NE .-AUTOSP-NLTTY, .ERROR BARF AT AUTOSP
.IFM MX
.IFM MC
M2LMAP: ;MAP FROM DM11-BB CHANNEL NUMBERS TO TTY INDICES
2*1 ;0 T01
0 ;1 NONE
@@ -1161,7 +1161,7 @@ M2LMAP: ;MAP FROM DM11-BB CHANNEL NUMBERS TO TTY INDICES
2*36 ;35 T36
2*37 ;36 T37
2*40 ;37 T40
.ENDC ;MX
.ENDC ;MC
.IIF NE NDMS, .IIF NE .-M2LMAP-<40*NDMS>, .ERROR Too few M2LMAP entries for DM11s.
@@ -1333,8 +1333,8 @@ CHSIBF: .BLKW PKMAX*CHAOSP ;INPUT BUFFER FOR PACKETS IN FROM CHAOS HDWR
;FOR NOW, JUST THE NAME OF THE MACHINE.
HSTNAM:
.ENDC ;CHAOSP ;FUCK A DOG, PALX!
.IFM MX-DL
.ASCII \MX-IO/11\
.IFM MC-DL
.ASCII \MC-IO/11\
.ENDC
.IFM AI
.ASCII \AI-CHAOS-11\
@@ -1443,7 +1443,7 @@ SBNADR: ;ADDRESS OF CONNECTION TO THIS SUBNET
0 ;0 USED FOR UNKNOWN SUBNETS. WHEN IN DOUBT, BROADCAST.
0 ;1 9TH FLOOR CABLE
0 ;2 (NOT CURRENTLY USED)
440 ;3 MX, ASSUME VIA MX-IO-11
440 ;3 MC, ASSUME VIA MC-IO-11
426 ;4 AI, ASSUME VIA AI-CHAOS-11
.IREPT NSUBNT-5, 0 ; WHEN IN DOUBT, BROADCAST
@@ -1472,7 +1472,7 @@ T11SBN==T11ADR/400 ;SUBNET PDP10 ON OTHER END OF TEN11 IS ON
.ENDC ;TEN11P
.ENDC ;CHAOSP
.IFM MX-DL
.IFM MC-DL
CBLCST=11. ;CABLE CONNECTION COSTS 11.
.ENDC
.IFM AI

4
src/system/its.1648
View File

@@ -14,9 +14,9 @@ IF1 [ PRINTX \MACHINE NAME = \
; AIKA AI LAB KA10 (R.I.P.)
; MLKA MATHLAB KA10 (R.I.P.)
; DM DYNAMIC MODELING KA10 (R.I.P.)
; MC Mail Computer KS10
; MCKS Mail Computer KS10
; AI AI Lab KS10
; MX The ex-MC KL10
; MC Macsyma Consortium KL10
; ML Math Lab KS10
; MD Mostly Development KS10
; SI Stacken ITS KS10

4
src/system/ttytyp.320
View File

@@ -266,7 +266,7 @@ MCONDX DM,{ ;;; DM
;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE
;CHARACTERS MAY BE PRESENT IN THEM.
MCONDX MX,{ ;;; MX
MCONDX MC,{ ;;; MC
TTDLA36 0,TT=%TTLCL,HOR=110. ;T00 System Console
TTDPRT 1,SPEED=1200,TY=%TYDIL+%TYMDM ;T01 Vadic Dialup
;253-6045
@@ -362,7 +362,7 @@ MCONDX AI,{ ;;; AI
;THAT APPEAR ON THE FOLLOWING LINES. ALSO NOTE THAT LOWER CASE
;CHARACTERS MAY BE PRESENT IN THEM.
MCONDX MC,{ ;;; MC
MCONDX MCKS,{ ;;; MCKS
TTDLA36 0,SPEED=1200,HOR=132.,TT=%TTLCL ;T00 System Console
TTDPRT 1,SPEED=2400,TY=%TYDIL ;T01 Dialup
;258-7585