diff --git a/build/build.tcl b/build/build.tcl index 947b0074..d00b75f0 100644 --- a/build/build.tcl +++ b/build/build.tcl @@ -141,7 +141,8 @@ respond "*" ":pdump sys;atsign ddt\r" respond "*" ":kill\r" respond "*" ":midas .;_system;its\r" -respond "MACHINE NAME =" "AI\r" +respond "MACHINE NAME =" "DB\r" +respond "Configuration?" "RP06\r" expect ":KILL" respond "*" ":midas .;@ ddt_system;ddt\r" diff --git a/src/system/config.202 b/src/system/config.202 index 2c5d1661..4bfdfcd8 100644 --- a/src/system/config.202 +++ b/src/system/config.202 @@ -916,6 +916,72 @@ TERMIN TERMIN ] ;DU +IFE MCOND DB,[ ;DistriBution world +DEFOPT KS10P==1 ;DB is a KS10 + +IF1,[ +PRINTX /Configuration? (RP06, RP07, RM03 or RM80) / +.TTYMAC CNFG +DBRP06==0 ? DBRP07==0 ? DBRM03==0 ? DBRM80==0 +DB!CNFG==1 +IFE DBRP06\DBRP07\DBRM03\DBRM80, .ERR "CNFG" unknown. +TERMIN +] + +DEFOPT MAXJ==60. ;Max number of jobs allowed +DEFOPT NQCHN==30. ;Max number of user disk channels open in system +DEFOPT SCHBLN==10. ;Number of runnable jobs to remember +DEFOPT SWBLK==1 ;1= 1=> swap blocking, 0=> privileged user +DEFOPT SWPWSP==0 ;1= Use working-set swap scheduler +DEFOPT PAGPRE==1 ;1= Use page-in preemption + +DEFOPT DMDSK==1 ;1= Use DM DSK format +DEFOPT QRSRVP==1 ;1= Has reserved disk packs (Secondary pack) +DEFOPT QAUTHP==1 ;1= Keep track of file authors + +DEFOPT NQS==1 ;# of disk drive units +IFN DBRP06, DEFOPT NTUTBL==4 ;# 1K blocks in a TUT (better agree with +IFN DBRP07, DEFOPT NTUTBL==9 ; RP06 DEFS, RP07 DEFS, +IFN DBRM03, DEFOPT NTUTBL==2 ; RM03 DEFS or RM80 DEFS) +IFN DBRM80, DEFOPT NTUTBL==3 + +DEFSYM NUDSL==500. ;# directories in file system (better agree with + ; SALV and DSKDMP) +DEFOPT RH11P==1 ; Has RH11 controller +IFN DBRP06, DEFOPT RP06P==1 ; with one RP06 +IFN DBRP07, DEFOPT RP07P==1 ; with one RP07 +IFN DBRM03, DEFOPT RM03P==1 ; with one RM02/3 +IFN DBRM80, DEFOPT RM80P==1 ; with one RM80 + +DEFOPT NMTCS==1 ;Number of magtape units (so why not NMTUS?) +DEFOPT TM03S==1 ;TM03/RH11 Unibus tape controller + +DEFOPT DZ11P==1 ;Has DZ11 TTY controllers + DEFOPT DZ11NB==1 ; 1 of them + DEFSYM DZ0BA=:760010 + +DEFOPT NKSTYS==1 ;# KS-10 8080 console 0 TTYs +DEFOPT NDZTYS==8. ;# DZ-11 TTYs +DEFOPT NSTTYS==4. ;# of STY's (Pseudo-TTY's) + +DEFOPT TSYSM==512. ;Total PDP10 1K memory blocks +DEFOPT NMMP==4 ;# exec pages for MMP table (# vir pgs/512.) + +;;; Next four better agree with SYSTEM;KSDEFS: +DEFSYM PMAGEM==020000 ;2.5 Age bit +DEFSYM PMCSHM==010000 ;2.4 Cache enable bit +DEFSYM PMRCM==001777 ;2.1 - 1.1 Physical page number + ; (The page table supports 20 bit physical + ; addresses.) +DEFSYM PMUNSD==146000 ;Unused bits + +DEFINE ITSIRP BODY +IRPS ITS,,[DB] +BODY +TERMIN +TERMIN +] ;DB + ; Default settings for all configuration-dependent assembly parameters. ; If a system definition has already set a value for a parameter, the ; default here will NOT be used. diff --git a/src/system/ttytyp.317 b/src/system/ttytyp.317 index c32792ac..6e1e65c8 100644 --- a/src/system/ttytyp.317 +++ b/src/system/ttytyp.317 @@ -500,3 +500,16 @@ MCONDX DU,{ ;;; DU TTDPRT 10,SPEED=9600 ;T10 DZ Line 10 .ENDC ;} + +MCONDX DB,{ ;;; DB + TTDLA36 0,SPEED=1200,HOR=132.,TT=%TTLCL ;T00 System Console + TTDPRT 1,SPEED=300 ;T01 DZ Line 1 (300 baud) + TTDPRT 2,SPEED=1200 ;T02 DZ Line 2 (1200 baud) + TTDPRT 3,SPEED=2400 ;T03 DZ Line 3 (2400 baud) + TTDPRT 4,SPEED=4800 ;T04 DZ Line 4 (4800 baud) + TTDPRT 5,SPEED=9600 ;T05 DZ Line 5 + TTDVT 6,SPEED=9600,TT=%TTLCL ;T06 DZ Line 6 (Local VT52) + TTDVT 7,SPEED=9600 ;T07 DZ Line 7 (VT52) + TTDAAA 10,SPEED=9600 ;T10 DZ Line 10 (AAA) + +.ENDC ;}