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:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user