PDP-10 Archive: monmkw.ctl from dec-10-omona-u-mc9

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - monmkw.ctl
There are 2 other files named monmkw.ctl in the archive. Click here to see a list.
;%1(15) VERSION OF MONMKW      29 MAR 1977      ALAN FRANTZ/MS/RAP
;THIS .CTL FILE ASSEMBLES THE MONITOR SOURCES FOR KL10 CONFIGURATIONS
; (BUT WITH VIRTUAL MEMORY), CREATES THE TOPW10.REL FILE, AND OPTIONALLY
; PRODUCES CREF LISTINGS AND/OR A GLOB CROSS-REFERENCE LISTING.
;
; WARNING-----NEEDS MUCH CPU TIME    SUBMIT WITH /TIME:1::
;
;
MLGO::  ;
.CHKPNT MWGO
.SET WATCH ALL
.IF (ERROR)  ;Okay, it's not critical to watch version numbers, etc.
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.PLEASE  MONMKW--KL VM MONITOR ASSEMBLY--RESTRICT SYSTEM USAGE TO GAIN SPEED
;
;
;BEFORE ASSEMBLING THE MONITOR, WE NEED FVL.MAC.  THIS FILE WAS TRANSFERRED
; FROM THE BLACK PACKS BY MONFIL.CCL@, BUT THAT VERSION OF FVL.MAC MAY BE
; OUT OF DATE IF FGEN.HLP HAS BEEN EDITTED.  IF RUNNING MONGEN PRODUCES AN
; IDENTICAL FILE, IT IS BETTER TO USE THE OLD FVL.MAC (TO AVOID UNNECESSARY
; ASSEMBLIES).  THEREFORE, WE WILL OVERWRITE FVL.MAC WITH A NEWLY CREATED
; FILE ONLY IF IT IS DIFFERENT.  THIS TAKES SOME SLEIGHT OF HAND......
.DELETE FVL.FAK
.IF (ERROR)  ;O.K. ONLY FOR REENTRANCY
.RUN DSKB:PIP[10,7]
*FVL.FAK/R_FVL.MAC
.IF (ERROR)  *FVL.FAK_MONMKW.CTL
.GET DSK:MONGEN
.VERSION
.IF (ERROR)  .E 137
.START
*
*F
*FVL
*KLFULL
*Y	;STANDARD SWITCH SETTINGS
*Y	;VIRTUAL MEMORY?
;MONGEN HAS JUST CREATED A VIRTUAL MEMORY FEATURE TEST SWITCHES FILE, FVL.MAC.
;NOW WE COMPARE IT TO ITS PREDECESSOR FVL.MAC (RECENTLY RENAMED TO FVL.FAK)
.RUN DSKB:FILCOM[10,7]
*FAKVL.FAK_FVL.FAK,FVL.MAC
.RUN DSKB:TECO[10,7]
*ERFAKVL.FAKYZ=C
.IF (NOERROR)  .GOTO MWNUF
;THIS ERROR HAPPENS ONLY IF FILCOM WROTE A ZERO-LENGTH FAKVL.FAK FILE.
;IN THIS CASE, RETAIN THE PREVIOUS FVL.MAC BECAUSE IT IS IDENTICAL.
.DELETE FVL.MAC
.RENAME FVL.MAC=FVL.FAK
MWNUF::  ;
.DELETE FAKVL.FAK,FVL.FAK
.IF (ERROR)  ;OKAY
;END OF DIDDLING WITH FVL.MAC......
;
;TO ASSEMBLE THE MONITOR USING CONVL WE ALSO NEED FILES NAMED
; HDWVL, TTYVL, AND NETVL.  GET THESE FILES FOR THE SYSTEM #026
; CONFIGURATION AND USE THEM HERE.  THIS IS ACCOMPLISHED BY A KLUDGEY
; "CALL" ON PART OF THE MK026W.CTL FILE.
;
.RUN DSKB:TECO[10,7]
*HK@I#.SUBMIT MONMKW/UNIQ:0/TIME:1::/TAG:MWREE/AFTER:+0:01
*.IF (ERROR)  .PLEASE COULD NOT RE-ENTER MONMKW.CTL
*.KJOB/F
*#EWMK026W.KLGHPEF
.IF (ERROR)  .PLEASE MONMKW.CTL CANNOT CALL MK026W.CTL
;NOW CALL MK026W.CTL AS A SUBROUTINE
.SUBMIT MK026W/UNIQ:0/TIME:10:/TAG:G026W
.IF (ERROR)  .PLEASE MONMKW.CTL CANNOT CALL MK026W.CTL
;NOW GO AWAY UNTIL MK026W.CTL HAS FINISHED RUNNING
.KJOB/F
;COME BACK HERE WHEN MK026W.CTL IS FINISHED
;
;THIS IS WHERE THE KLUDGE RE-ENTERS MONMKW AFTER RUNNING THE
; MONGEN PART OF MK026W.CTL
MWREE::  ;
.CHKPNT MWREE
.SET WATCH ALL
.IF (ERROR) ;O.K.
.PLEASE CHKPNT MWREE
.DELETE MK026W.KLG
.IF (ERROR) ;O.K.
.DELETE HDWVL.MAC,TTYVL.MAC,NETVL.MAC
.IF (ERROR) ;FOR REENTRANCY ONLY
.RENAME HDWVL.MAC=HDW26W.MAC
.RENAME TTYVL.MAC=TTY26W.MAC
.RENAME NETVL.MAC=NET26W.MAC
;NOW WE HAVE ALL THE NEEDED FILES, SO TURN THE ASSEMBLER LOOSE......
;
;FIRST WE ASK THE QUESTION "DO YOU WANT CREF LISTINGS ?"
;
MWASK::  ;
.CHKPNT MWASK
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MWASK
.RUN DSKB:TECO[10,7]
.OPERATOR %
*!BEG!
*% OPERATOR - DO YOU WANT MONMKW CREF LISTINGS ?  (YES/NO)
*
*!GET! ^^TUM QM-9"EOGET' QM-32"EOGET' QMUN
*!MORE! QN-10"EOEOL' QN-27"EOEOL' QN-125"EOEOL' ^^TUN OMORE
*!EOL! QM-^^^^Y"E 
*GENERATE CREF LISTINGS
* ODONE'
*QM-^^^^N"E 
* ? CANCEL CREF LISTINGS
* ODONE' 
*% OPERATOR - YOU MUST TYPE YES OR NO
* OGET
=!DONE!
.NOOPERATOR
.IF (ERROR) .GOTO MWMAC
;HERE IF ANSWER WAS YES -- MAKE CREF'S
MWMCC::  ;
.CHKPNT MWMCC
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MWMCC--BEGINNING COMPILE @CONVL/CREF
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.ASSIGN DSK SYS
; Force use of FIELD IMAGE cusps for assembling the monitor . . .
.ERROR %
.COMPILE /CREF @CONVL
.IF (ERROR)  .GOTO MWAER
.ERROR
.GOTO MWAOK
;HERE IF ANSWER WAS NO -- (NO CREF'S)
MWMAC::  ;
.CHKPNT MWMAC
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MWMAC--BEGINNING COMPILE @CONVL
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.ASSIGN DSK SYS
; Force use of FIELD IMAGE cusps for assembling the monitor . . .
.ERROR %
.COMPILE @CONVL
.IF (NOERROR)  .GOTO MWAOK
.ERROR
MWAER::  ;
.IF (ERROR)  ;OK
.PLEASE KL ASSEMBLY ERRORS EXIST--MONMKW
.DEASSIGN SYS
.QUEUE L:ERRORW=MONMKW.LOG/DISPOSE:PRESERVE/PRIORITY:51
.IF (ERROR) .PLEASE COULDN'T PRINT MONMKW.LOG - PLEASE QUEUE IT AND
.PLEASE EXAMINE ERROR LOG ON LPT, THEN KILL OR PROCEED ?
;THIS WAITS FOR OPERATOR RESPONSE......
.GOTO MWAGO
MWAOK::  ;
.PLEASE MONMKW CHKPNT MWAOK--KL MONITOR ASSEMBLES CORRECTLY
;
MWAGO::	;
.CHKPNT MWAGO
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.DEASSIGN SYS
.IF (ERROR)  ; OKAY
.RUN DSKB:PIP[10,7] 10
*CMBVL@
; CMBVL.CCL COMBINES .RLW FILES INTO TOPW10.REL LIBRARY FILE.
.RUN DSKB:PIP[10,7] 10
;
;
;NOW TO COPY RESULTS TO THE BLACK PACKS
MWCPY::  ;
.CHKPNT MWCPY
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MWCPY--READY TO COPY FVL.MAC, ..., TOPW10.REL TO BLKA: ?
;THIS WAITS FOR OPERATOR TO CONTINUE......
;
;CMBVL.CCL CREATES TOPMON.RLW AND TOPEND.RLW IN ADDITION TO TOPW10.REL.
; THESE FILES ARE BASICALLY HISTORICAL ARTIFACTS LEFT OVER FROM THE DAYS WHEN
; WE COPIED THE TOPW10.REL FILE ONTO DECTAPE AND IT BECAME TOO BIG TO FIT
; ON ONE DECTAPE.  NOW WE WANT TO DELETE THESE FILES TO SAVE SPACE ON OUR
; DISK PACK, BUT THE DELETION IS HERE AFTER THE PAUSE FOR OPERATOR
; RESPONSE IN CASE ANYONE WANTS A DECTAPE COPY OF TOPW10.REL
.DELETE TOPMON.RLW,TOPEND.RLW
.IF (ERROR)  ;OKAY
.MOUNT BLKA:
.IF (ERROR) .PLEASE CAN'T MOUNT BLKA:--BETTER ABORT
.RUN DSKB:PIP[10,7]
*BLKA:[7,5112]<100>/X/B_FVL.MAC,HDWVL.MAC,TTYVL.MAC,NETVL.MAC,TOPW10.REL
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
;
;NEXT PRODUCE GLOBAL CROSS-REFERENCE LISTING TOPW10.GLB
;
MWGLB::  ;
.CHKPNT MWGLB
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE MONMKW CHKPNT MWGLB--KILL THIS JOB IF NO KL MONITOR GLOB DESIRED
;THIS PAUSES FOR OPERATOR RESPONSE
;
.RUN DSKB:FUDGE2[10,7]
=DSK:TOPW10.FUD_TOPW10/L
.IF (ERROR) ; NICE TRY
.R GLOB 15
*COMMON.RLW,COMDEV.RLW,COMNET.RLW,COMMOD.RLW
*DSK:TOPW10.GLB=TOPW10.REL
.IF (ERROR) ; NICE TRY
;
;COPY TOPW10.GLB TO BLACK PACKS
;
MWCP2::  ;
.CHKPNT MWCP2
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MWCP2--READY TO COPY TOPW10..FUD, TOPW10.GLB TO BLKA: ?
;THIS WAITS FOR OPERATOR TO CONTINUE......
.MOUNT BLKA:
.IF (ERROR) .PLEASE CAN'T MOUNT BLKA:--BETTER ABORT
.RUN DSKB:PIP[10,7]
*BLKA:[7,5112]<100>/X/B_TOPW10.FUD,TOPW10.GLB
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
;
.PLEASE  TO LIST TOPW10.GLB PROCEED, OTHERWISE KILL......
;THIS WAITS FOR THE OPERATOR TO CONTINUE......
; WE WILL PROBABLY NOT WASTE THE PAPER TO PRODUCE THIS LISTING NORMALLY.
;
;GET A HARD-COPY LISTING OF THE GLOB ON THE REAL LINE PRINTER
.QUEUE TOPW10.GLB
.IF (ERROR)  .PLEASE LIST TOPW10.GLB BY HAND
;
.ASSIGN MON QUE
;SPECIAL HANDLING FOR GALAXY
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.IF (NOERROR)	.GOTO MWCP3
.PLEASE THIS SYSTEM HAS NO NETWORK CAPABILITY - CANNOT CREF
.GOTO MWXIT
;
MWCP3::  ;
.CHKPNT MWCP3
.SET WATCH ALL
.IF (ERROR) ;O.K.
!.QUEUE TOPW10.GLB,TOPW10.FUD/PRIORITY:1/FORM:NORMAF
.IF (ERROR) .PLEASE COULDN'T PRINT FILES TOPW10.FUD OR TOPW10.GLB - PROCEEDING
.DEASSIGN QUE
.LOCATE
;
MWCRF::  ;
.CHKPNT MWCRF
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE MONMKW CHKPNT MWCRF
;
; NOW GET ALL THE KL CREF LISTINGS THAT HAVE BEEN MADE
.PLEASE READY TO CREF ?
;THIS WAITS FOR OPERATOR TO CONTINUE (PAUSE SO OPERATOR CAN, OPTIONALLY,
; HAVE LPTSPL DO ITS OUTPUT TO A LISTING MAGTAPE OR CAN DELETE
; UNWANTED .CRF FILES)......
.PLEASE KL MONITOR CREFS BEGUN. EDDT AND EJBDAT MUST BE
.PLEASE CREF'D BY HAND IF LISTINGS DESIRED (USUALLY DISCARDED)
.ASSIGN DSK LPT
;USE A PRIVATE QUEUE SO WE CAN RUN A PRIVATE COPY OF LPTSPL TO MAGTAPE
.ASSIGN MON QUE
;WE MUST NOW DO THINGS DIFFERENTLY IF GALAXY IS RUNNING
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.RUN DSKB:CREF[10,7]
*FVL
.IF (NOERROR) !.QUEUE FVL.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*S
.IF (NOERROR) !.QUEUE S.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*COMMON
.IF (NOERROR) !.QUEUE COMMON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*COMDEV
.IF (NOERROR) !.QUEUE COMDEV.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*COMMOD
.IF (NOERROR) !.QUEUE COMMOD.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*FILFND
.IF (NOERROR) !.QUEUE FILFND.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*FILIO
.IF (NOERROR) !.QUEUE FILIO.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*FILUUO
.IF (NOERROR) !.QUEUE FILUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DPXKON
.IF (NOERROR) !.QUEUE DPXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*FHXKON
.IF (NOERROR) !.QUEUE FHXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*FSXKON
.IF (NOERROR) !.QUEUE FSXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CDPSER
.IF (NOERROR) !.QUEUE CDPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CDRSRX
.IF (NOERROR) !.QUEUE CDRSRX.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CLOCK1
.IF (NOERROR) !.QUEUE CLOCK1.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*COMCON
.IF (NOERROR) !.QUEUE COMCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CORE1
.IF (NOERROR) !.QUEUE CORE1.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CP1SER
.IF (NOERROR) !.QUEUE CP1SER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DATMAN
.IF (NOERROR) !.QUEUE DATMAN.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DISSER
.IF (NOERROR) !.QUEUE DISSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DLSINT
.IF (NOERROR) !.QUEUE DLSINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DL1INT
.IF (NOERROR) !.QUEUE DL1INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DTASRN
.IF (NOERROR) !.QUEUE DTASRN.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DTESER
.IF (NOERROR) !.QUEUE DTESER.LST/PRIORITY:1/FORM:NORMAF
.DELETE EDDT.CRF
.IF (ERROR)  ; IT'S OKAY--OPERATOR MAY HAVE CREF'D BY HAND
.RUN DSKB:CREF[10,7]
*ERRCON
.IF (NOERROR) !.QUEUE ERRCON.LST/PRIORITY:1/FORM:NORMAF
.DELETE EJBDAT.CRF
.IF (ERROR)  ; IT'S OKAY--OPERATOR MAY HAVE CREF'D BY HAND
.RUN DSKB:CREF[10,7]
*FEDSER
.IF (NOERROR) !.QUEUE FEDSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*IPCSER
.IF (NOERROR) !.QUEUE IPCSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*KILOCK
.IF (NOERROR) !.QUEUE KILOCK.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*KLSER
.IF (NOERROR) !.QUEUE KLSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*LPTSER
.IF (NOERROR) !.QUEUE LPTSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*METCON
.IF (NOERROR) !.QUEUE METCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*MSGSER
.IF (NOERROR) !.QUEUE MSGSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*NULSEG
.IF (NOERROR) !.QUEUE NULSEG.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PLTSER
.IF (NOERROR) !.QUEUE PLTSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PSISER
.IF (NOERROR) !.QUEUE PSISER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PTPSER
.IF (NOERROR) !.QUEUE PTPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PTRSER
.IF (NOERROR) !.QUEUE PTRSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PTYSER
.IF (NOERROR) !.QUEUE PTYSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*QUESER
.IF (NOERROR) !.QUEUE QUESER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*RTTRP
.IF (NOERROR) !.QUEUE RTTRP.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SCHED1
.IF (NOERROR) !.QUEUE SCHED1.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SCNSER
.IF (NOERROR) !.QUEUE SCNSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SEGCON
.IF (NOERROR) !.QUEUE SEGCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SWPSER
.IF (NOERROR) !.QUEUE SWPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TMPUUO
.IF (NOERROR) !.QUEUE TMPUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*UUOCON
.IF (NOERROR) !.QUEUE UUOCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*VBCSER
.IF (NOERROR) !.QUEUE VBCSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*VMSER
.IF (NOERROR) !.QUEUE VMSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*PATCH
.IF (NOERROR) !.QUEUE PATCH.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SYSINI
.IF (NOERROR) !.QUEUE SYSINI.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*SYSCHK
.IF (NOERROR) !.QUEUE SYSCHK.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*ONCMOD
.IF (NOERROR) !.QUEUE ONCMOD.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*REFSTR
.IF (NOERROR) !.QUEUE REFSTR.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*ONCE
.IF (NOERROR) !.QUEUE ONCE.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*DTEPRM
.IF (NOERROR) !.QUEUE DTEPRM.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*NETPRM
.IF (NOERROR) !.QUEUE NETPRM.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*COMNET
.IF (NOERROR) !.QUEUE COMNET.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CCIINT
.IF (NOERROR) !.QUEUE CCIINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*D76INT
.IF (NOERROR) !.QUEUE D76INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*D78INT
.IF (NOERROR) !.QUEUE D78INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*D85INT
.IF (NOERROR) !.QUEUE D85INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*D8SINT
.IF (NOERROR) !.QUEUE D8SINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*NETSER
.IF (NOERROR) !.QUEUE NETSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*RDXSER
.IF (NOERROR) !.QUEUE RDXSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*RPXKON
.IF (NOERROR) !.QUEUE RPXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TAPSER
.IF (NOERROR) !.QUEUE TAPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TAPUUO
.IF (NOERROR) !.QUEUE TAPUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TCXKON
.IF (NOERROR) !.QUEUE TCXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TM2KON
.IF (NOERROR) !.QUEUE TM2KON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TMXKON
.IF (NOERROR) !.QUEUE TMXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TSKSER
.IF (NOERROR) !.QUEUE TSKSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TTDINT
.IF (NOERROR) !.QUEUE TTDINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TX1KON
.IF (NOERROR) !.QUEUE TX1KON.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*TYPSER
.IF (NOERROR) !.QUEUE TYPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*XTCSER
.IF (NOERROR) !.QUEUE XTCSER.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
;THESE ARE THE EXTRA NON-KL FILES WHICH DO NOT GET LISTED ABOVE 
.PLEASE  CONTINUE TO CREF KALOCK,KASER & KLSER IF WANTED
;THIS WAITS FOR OPERATOR TO RESPOND
XCREF::  ;
.CHKPNT XCREF
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.AS DSK SYS
.R MACRO
,NUL:_FKA
,NUL:_S
,KALOCK/C_KALOCK
,KASER/C_KASER
.R MACRO
*,NUL:_FVI
*,NUL_S
,KISER/C_KISER
.DEASSIGN SYS
.ASSIGN DSK LPT
.ASSIGN MON QUE
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.RUN DSKB:CREF[10,7]
*KALOCK
.IF (NOERROR) !.QUEUE KALOCK.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*KASER
.IF (NOERROR) !.QUEUE KASER.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*KISER
.IF (NOERROR) !.QUEUE KISER.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
;
.GOTO MWXIT
%ERR:: .GOTO MWERR
%CERR:: .GOTO MWERR
MWERR:: .PLEASE ERROR IN MONMKW--EXAMINE .LOG FILE
.QUEUE MONMKW.LOG/DISPOSE:PRESERVE
.GOTO MWXIT
MWXIT:: .PLEASE MONMKW FINISHED--LOAD KL MONITORS NEXT
%FIN::  ;
.KJOB/F
;[END OF MONMKW.CTL]