Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

.SILENCE
;
;****THIS MIC CONTROL FILE IS USED TO GENERATE A SMP MONITOR
;
;****UPDATE OPR.ATO IN SYS IN CASE THIS IS A REGEN OF MONITOR
;
.R PIP
*KLAD:[1,4]/X<155>=KLAD:[35,1414]OPR.ATO
*^C
;
;
;****DOES THIS SYSTEM HAVE A DN60?
;****TEST HDWCNF.MAC
;
.ERROR?
.ON ERROR:GOTO DN60
.TECO HDWCNF.MAC
*NM.DN60,0
*^C
;
;
.REVIVE
;********************************************************************
;
;NOW COMPILING THE SMP OPERATING SYSTEM
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[10,20],KLAD:[10,701],KLAD:[10,700]
.COMP /COMP F,S,DTEPRM,NETPRM,MONBTS,CPNSER
.COMP /COMP HDWCNF+TTYCNF+NETCNF+<COMMON,COMDEV,COMNET>,HDWCNF+COMMOD
;********************************************************************
;
;NOW LINK LOADING THE SMP OPERATING SYSTEM
;
;********************************************************************
.R LINK
/NOINI,/HAS:7K,701SMP/SAV,701SMP/MAP,/LOCALS -
COMMON,MONBTS/SEARCH,COMDEV,COMNET,COMMOD,CPNSER/SEARCH,TOPL10/SEARCH,/G
.PATH /CLEAR
.SILENCE
;
.GOTO PAT1
;
DN60::
;
;MOVE THE DN60 UTILITIES TO THE SYSTEM AREA
;
.R PIP
*KLAD:[1,4]/X<155>=KLAD:[10,61]D60RTV.EXE,D60SPD.EXE,DDT60.EXE,*.HLP
*^C
;
;
.REVIVE
;********************************************************************
;
;NOW COMPILING THE SMP OPERATING SYSTEM
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[10,20],KLAD:[10,701],KLAD:[10,700],KLAD:[10,61]
.COMP /COMP F,S,DTEPRM,NETPRM,MONBTS,CPNSER,D60SER,D6SINT
.COMP /COMP HDWCNF+TTYCNF+NETCNF+<COMMON,COMDEV,COMNET>,HDWCNF+COMMOD
;********************************************************************
;
;NOW LINK LOADING THE SMP OPERATING SYSTEM
;
;********************************************************************
.R LINK
/NOINI,/HAS:7K,701SMP/SAV,701SMP/MAP,/LOCALS -
COMMON,MONBTS/SEARCH,COMDEV,COMNET,COMMOD, -
CPNSER/SEARCH,D60SER/SEARCH,D6SINT/SEARCH,TOPL10/SEARCH,/G
.PATH /CLEAR
.SILENCE
;
PAT1::
;
;
;******DOES THIS SYSTEM HAVE A TM02/3. IF SO INSTALL THE TM2KON.DDT
;*****IN CASE THERE IS A TU77 ON IT.
;
.ERROR ?
.ON ERROR:GOTO PAT1A
.TECO HDWCNF.MAC
*NXP M.TM02,0
*^C
;
;
.GOTO PAT2
;
;
PAT1A::
;
;
.REVIVE
;********************************************************************
;
;NOW INSERTING TM2KON PATCH FOR TU77'S
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[35,1414]
.R FILDDT
701SMP.EXE/P
"/TM2KON/Y
^Z
.PATH /CLEAR
.SILENCE
;
;
;
PAT2::
;*****WHAT PATCHES DO WE HAVE TO INSTALL AS A MINIMUM
;****INSTALL THE PATCH FOR TAPUUO FROM THE GALAXY VER 4.1 FLD TST
;
.REVIVE
;********************************************************************
;
;NOW INSERTING TAPUUO PATCH INTO THE MONITR
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[35,1414]
.R FILDDT
701SMP.EXE/P
"/TAPUUO/Y
^Z
.PATH /CLEAR
.SILENCE
;
;
PAT3::
;
;DOES THIS SYSTEM HAVE NETWORKS. IF SO INSTALL SCNSER PATCH FROM
;BEWARE FILE.
;
;
.ERROR ?
.ON ERROR:GOTO PAT4
.TECO NETCNF.MAC
*NM.NET,1
*^C
;
.REVIVE
;********************************************************************
;
;NOW INSERTING NETWORK PATCH INTO MONITOR.
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[35,1414]
.R FILDDT
701SMP.EXE/P
"/SCNSER/Y
^Z
.PATH /CLEAR
.SILENCE
;
;
PAT4::
;
;GET DIAG.DDT TO FIX DIAG UUO TO RUN ON RP06'S
.R PIP
*KLAD:[1,2]/X=KLAD:[35,1414]DIAG.DDT
*^C

.REVIVE
;*******************************************************
;
;NOW INSERTING DIAG.DDT (MCO # 9632)
;
;*******************************************************
.R FILDDT
701.EXE/P
"/DIAG/Y
^Z
.SILENCE
;
PAT5::
;
;
;
.ERROR %
.ON ERROR:GOTO SAVE
.DIR KLAD:[1,4]SYS.EXE
.GOTO NOSV
;
;
SAVE::
;****HAS ANYONE BUILT A MONITOR YET? IF SO SYSTEM.EXE WILL EXIST
.ERROR ?
.ON ERROR:GOTO COPY
;
;
.DIR KLAD:[1,4]SYSTEM.EXE
;
;
.REVIVE
;********************************************************************
;
;NOW PRESERVING ORIGINAL KLAD MONITOR
;
;********************************************************************
.REN KLAD:[1,4]SYS.EXE=KLAD:[1,4]SYSTEM.EXE
.SILENCE
;
;***NOW MAKE A NEW SYSTEM.EXE AND FDSYS.EXE
;
;
COPY::
.REVIVE
;********************************************************************
;
;NOW MAKING FDSYS.EXE TO BE SAVED ON KLAD:[1,4]
;
;********************************************************************
.R FILDDT
701SMP.EXE/S
^C
.SAVE KLAD:FDSYS[1,4]
;********************************************************************
;
;NOW PIPPING NEW MONITOR TO KLAD:[1,4]SYSTEM.EXE
;
;********************************************************************
.R PIP
*KLAD:[1,4]SYSTEM.EXE=KLAD:[1,2]701SMP.EXE
*^C
;********************************************************************
;********************************************************************
;
;TO LOAD NEW MONITOR TYPE KLAD:<CR> IN RESPONSE TO BOOTS
;
;********************************************************************
;********************************************************************
.SILENCE
.GOTO DONE
;
NOSV::
;
;
.REVIVE
;********************************************************************
;********************************************************************
;
;WILL NOT MAKE NEW SYSTEM.EXE ON KLAD:[1,4]
;TO LOAD NEW MONITOR TYPE KLAD:701SMP[1,2] IN RESPONSE TO BOOTS
;
;********************************************************************
;********************************************************************
;
;
;********************************************************************
;
;NOW SAVING FDSYS ON KLAD:[1,2]
;
;********************************************************************
.R FILDDT
701SMP.EXE/S
^C
.SAV KLAD:FDSYS[1,2]
.SILENCE
.GOTO DONE
;
;
;
NOKLD::
;
;
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;TO RUN THIS CONTROL FILE A KLAD PACK IS PRESUMED TO BE MOUNTED
;THIS FILE WILL NOT WORK AS IS WITHOUT ONE.
;
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
.SILENCE
;
;
DONE::
;
;
.NOERROR
.REVIVE
;********************************************************************
;
;NOW CLEANING UP [1,2] BEFORE FINISHING.
;
;********************************************************************
.DEL COM???.REL,F.REL,S.REL,DTEPRM.REL,NETPRM.REL,MONBTS.REL,*.UNV
.DEL CPNSER.REL,D60SER.REL,D6SINT.REL
.SILENCE
;
;
.GOTO END
;
;
DONT::
%CERR::
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;ERROR IN SMPMON.MIC
;
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
.SILENCE
%ERR::
.SILENCE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;ERROR IN SMPMON.MIC
;
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
.SILENCE
END::
%FIN::