Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/rp2mon.moc
There are no other files named rp2mon.moc in the archive.
.SILENCE
;
;****THIS MIC CONTROL FILE IS USED TO GENERATE ANY KL10
;****MONITOR EXCEPT SMP
;
;****IS THIS A 1091 MOS?
;
.ERROR ?
.ON ERROR:GOTO 1090
.TECO HDWCNF.MAC
*NXP M.MOS,1
*^C
;
;
;****MAKE SURE THAT IT IS BUILT AS INSTRUCTED, I.E. AS A 1901.
;
.ERROR ?
.ON ERROR:GOTO DONT
.TECO HDWCNF.MAC
*NXP M.1091,1
*^C
;
;****PIP THE OPR.ATO FILE TO SYS THAT WILL AUTOMATICALLY START TGHA
;
.R PIP
*KLAD:[1,4]OPR.ATO<155>=KLAD:[35,1414]OPR1.ATO
*^C
;
;
.GOTO DNTST
;
1090::
;
;*****MAKE SURE THAT OPR.ATO DOES NOT BRING UP TGHA. THIS COULD BE REGEN
;*****OF MONITOR
;
.R PIP
*KLAD:[1,4]/X<155>=KLAD:[35,1414]OPR.ATO
*^C
;
;
DNTST::
;
;
;
;****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 10 OPERATING SYSTEM
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[10,20],KLAD:[10,701]
.COMP /COMP F,S,DTEPRM,NETPRM,MONBTS
.COMP /COMP HDWCNF+TTYCNF+NETCNF+<COMMON,COMDEV,COMNET>,HDWCNF+COMMOD
;********************************************************************
;
;NOW LINK LOADING THE 10 OPERATING SYSTEM
;
;********************************************************************
.R LINK
/NOINI,/HAS:7K,701/SAV,701/MAP,/LOCALS -
COMMON,MONBTS/SEARCH,COMDEV,COMNET,COMMOD,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 10 OPERATING SYSTEM
;
;********************************************************************
.PATH LIB:/SEARCH=KLAD:[10,20],KLAD:[10,701],KLAD:[10,61]
.COMP /COMP F,S,DTEPRM,NETPRM,MONBTS,D60SER,D6SINT
.COMP /COMP HDWCNF+TTYCNF+NETCNF+<COMMON,COMDEV,COMNET>,HDWCNF+COMMOD
;********************************************************************
;
;NOW LINK LOADING THE 10 OPERATING SYSTEM
;
;********************************************************************
.R LINK
/NOINI,/HAS:7K,701/SAV,701/MAP,/LOCALS -
COMMON,MONBTS/SEARCH,COMDEV,COMNET,COMMOD, -
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
701.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
701.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
701.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
701.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]701.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:701[1,2] IN RESPONSE TO BOOTS
;
;********************************************************************
;********************************************************************
;
;
;********************************************************************
;
;NOW SAVING FDSYS ON KLAD:[1,2]
;
;********************************************************************
.R FILDDT
701.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 D60SER.REL,D6SINT.REL
.SILENCE
;
;
.GOTO END
;
;
DONT::
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;YOU HAVE BUILT AN OPERATING SYSTEM FOR MOS THAT IS NOT A 1091.
;REFER TO MRFAT009 AND RERUN MONGEN.
;
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
.SILENCE
%CERR::
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;ERROR IN MONITR.MIC
;
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
.SILENCE
%ERR::
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;ERROR IN MONITR.MIC
;
;????????????????????????????????????????????????????????????????????
.SILENCE
END::
%FIN::