mirror of
https://github.com/PDP-10/its.git
synced 2026-01-27 12:42:10 +00:00
Add new ITS named "KL", which is a KA10 with RH10.
The reason for this confusion is that it is intended in the future to become a KL10.
This commit is contained in:
@@ -160,6 +160,24 @@ PRINTX /Which machine? /
|
||||
NDRIVE==6 ;8 DOESN'T FIT IN 128K
|
||||
NUNITS==6
|
||||
];KL
|
||||
IFCE MCHN,KL,[
|
||||
;SA==105*2000 ; MC system is big, need to push SALV higher.
|
||||
FIRSPK==0
|
||||
LASTPK==0
|
||||
NUDSL==500.
|
||||
DC10P==0
|
||||
RP10P==0
|
||||
RH10P==1
|
||||
T300P==0 ;UNIT 3 IS FIRST T-300 UNIT
|
||||
KL10P==0
|
||||
OLPTP==0
|
||||
NLPTP==0
|
||||
TTLPTP==0 ;NO LPT AT ALL
|
||||
TCMXH==100. ;LA36
|
||||
LIGHTS==4 ;KL-UDGE
|
||||
NDRIVE==1 ;8 DOESN'T FIT IN 128K
|
||||
NUNITS==1
|
||||
];M2
|
||||
TERMIN
|
||||
IFNDEF FIRSPK, .FATAL UNKNOWN MACHINE "MCHN"
|
||||
];IFNDEF ITS
|
||||
@@ -6696,6 +6714,7 @@ MAGBUF: BLOCK 2000
|
||||
IRPS A,,OTUT NTUT
|
||||
REPEAT NUNITS,CONC A,\.RPCNT,: BLOCK 2000*MXTUTB
|
||||
TERMIN
|
||||
IFNDEF OTUT1, OTUT1: BLOCK 2000*MXTUTB
|
||||
D0==OTUT0
|
||||
D1==OTUT1
|
||||
TUT=NTUT0
|
||||
|
||||
@@ -274,6 +274,11 @@ MCONDX MX,{ ;;; MX
|
||||
TTDPRT 44,SPEED=110,TT=%TTLCL ;T44 DC76 TTY
|
||||
.ENDC ;}
|
||||
|
||||
MCONDX KL,{ ;;; KL
|
||||
TTDLA36 0,TT=%TTLCL,HOR=80.,SPEED=110 ;T00 System Console
|
||||
TTDAAA 1,SPEED=9600 ;T01
|
||||
.ENDC ;}
|
||||
|
||||
REPEAT NSTTYS,[
|
||||
TTDSTY \NFSTTY+.RPCNT
|
||||
.ENDR ;]
|
||||
Reference in New Issue
Block a user