Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/mon71a.mic
There is 1 other file named mon71a.mic in the archive. Click here to see a list.
;EDITTED FOR 7.01A 12/14/82  T.I.
.SILENCE
;
;TO RUN THIS CONTROL FILE A KLAD PACK IS PRESUMED TO BE MOUNTED
;THIS FILE WILL NOT WORK AS IS WITHOUT ONE.
;
;***THIS CONTROL FILE WILL BUILD ANY 7.01A KL10 MONITOR
.SILENCE
;
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,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,701A/SAV,701A/MAP,/LOCALS -
COMMON,MONBTS/SEARCH,COMDEV,COMNET,COMMOD,TOPL10/SEARCH,/G
.PATH /CLEAR
.SILENCE
;
.GOTO PAT1
;
DN60::
.REVIVE
;%%%%%%%%%% ERROR IN MON71A %%%%%%%%%%%%
;%%%%%%%%% DN60 NOT SUPPORTED ON THIS VERSION %%%%%%%%%%
;%%%%%%%%% REBUILD MONITOR WITH STANDARD NETWORK SOFTWARE %%%%%%%%%%
.SILENCE
.GOTO END
.PATH /CLEAR
.SILENCE
;
PAT1::
;
;
.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
701A.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]701A.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:701A[1,2] IN RESPONSE TO BOOTS
;
;********************************************************************
;********************************************************************
;
;
;********************************************************************
;
;NOW SAVING FDSYS ON KLAD:[1,2]
;
;********************************************************************
.R FILDDT
701A.EXE/S
^C
.SAV KLAD:FDSYS[1,2]
.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
.SILENCE
;
;
.GOTO END
;
;
%CERR::
%ERR::
ERROR::
.REVIVE
;????????????????????????????????????????????????????????????????????
;????????????????????????????????????????????????????????????????????
;
;ERROR IN MON71A.MIC
;
;????????????????????????????????????????????????????????????????????
.SILENCE
END::
%FIN::