1
0
mirror of https://github.com/PDP-10/its.git synced 2026-01-27 12:42:10 +00:00

Make MC great again.

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

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

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

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