Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - monmki.ctl
There are 2 other files named monmki.ctl in the archive. Click here to see a list.
;%1(27) VERSION OF MONMKI      20 OCT 78      /MS
;THIS .CTL FILE ASSEMBLES THE MONITOR SOURCES FOR KI10 CONFIGURATIONS
; (BUT WITHOUT VIRTUAL MEMORY), CREATES THE TOPI10.REL FILE, AND OPTIONALLY
; PRODUCES CREF LISTINGS AND/OR A GLOB CROSS-REFERENCE LISTING.
;
; WARNING-----NEEDS MUCH CPU TIME    SUBMIT WITH /TIME:1::
;
;
MIGO::  ;
.CHKPNT MIGO
.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  MONMKI--KI10 MONITOR ASSEMBLY--RESTRICT SYSTEM USAGE TO GAIN SPEED
;
;
;BEFORE ASSEMBLING THE MONITOR, WE NEED FKI.MAC.  THIS FILE WAS TRANSFERRED
; FROM THE BLACK PACKS BY MONFIL.CCL@, BUT THAT VERSION OF FKI.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 FKI.MAC (TO AVOID UNNECESSARY
; ASSEMBLIES).  THEREFORE, WE WILL OVERWRITE FKI.MAC WITH A NEWLY CREATED
; FILE ONLY IF IT IS DIFFERENT.  THIS TAKES SOME SLEIGHT OF HAND......
.DELETE FKI.FAK
.IF (ERROR)  ;O.K. ONLY FOR REENTRANCY
.RUN DEC:PIP
*FKI.FAK/R_FKI.MAC
.IF (ERROR)  *FKI.FAK_MONMKI.CTL
.GET DSK:MONGEN
.VERSION
.IF (ERROR)  .E 137
.START
*
*F
*FKI
*KIFULL
*Y	;STANDARD SWITCH SETTINGS
*N	;VIRTUAL MEMORY?
;MONGEN HAS JUST CREATED A STANDARD KI10 FEATURE TEST SWITCHES FILE, FKI.MAC.
; [THIS FILE SHOULD BE IDENTICAL FOR 1070 AND 1077 CONFIGURATIONS.]
;NOW WE COMPARE IT TO ITS PREDECESSOR FKI.MAC (RECENTLY RENAMED TO FKI.FAK)
.RUN DEC:FILCOM
*FAKKI.FAK_FKI.FAK,FKI.MAC
.RUN DEC:TECO
*ERFAKKI.FAKYZ=C
.IF (NOERROR)  .GOTO MINUF
;THIS ERROR HAPPENS ONLY IF FILCOM WROTE A ZERO-LENGTH FAKKI.FAK FILE.
;IN THIS CASE, RETAIN THE PREVIOUS FKI.MAC BECAUSE IT IS IDENTICAL.
.DELETE FKI.MAC
.RENAME FKI.MAC=FKI.FAK
MINUF::  ;
.DELETE FAKKI.FAK,FKI.FAK
.IF (ERROR)  ;OKAY
;END OF DIDDLING WITH FKI.MAC......
;
;TO ASSEMBLE THE MONITOR USING CONKI WE ALSO NEED FILES NAMED
; HDWKI, TTYKI, AND NETKI.  GET THESE FILES FOR THE SYSTEM #514
; CONFIGURATION AND USE THEM HERE.  THIS IS ACCOMPLISHED BY A KLUDGEY
; "CALL" ON PART OF THE MK514D.CTL FILE.
;
.RUN DEC:TECO
*HK@I#.SUBMIT MONMKI/UNIQ:0/TIME:1::/TAG:MIREE/AFTER:+0:01
*.IF (ERROR)  .PLEASE COULD NOT RE-ENTER MONMKI.CTL
*.KJOB/F
*#EWMK514D.KLGHPEF
.IF (ERROR)  .PLEASE MONMKI.CTL CANNOT CALL MK514D.CTL
;NOW CALL MK514D.CTL AS A SUBROUTINE
.SUBMIT MK514D/UNIQ:0/TIME:10:/TAG:G514D
.IF (ERROR)  .PLEASE MONMKI.CTL CANNOT CALL MK514D.CTL
;NOW GO AWAY UNTIL MK514D.CTL HAS FINISHED RUNNING
.KJOB/F
;COME BACK HERE WHEN MK514D.CTL IS FINISHED
;
;THIS IS WHERE THE KLUDGE RE-ENTERS MONMKI AFTER RUNNING THE
; MONGEN PART OF MK514D.CTL
MIREE::  ;
.CHKPNT MIREE
.SET WATCH ALL
.IF (ERROR) ;O.K.
.PLEASE CHKPNT MIREE
.DELETE MK514D.KLG
.IF (ERROR) ;O.K.
.DELETE HDWKI.MAC,TTYKI.MAC,NETKI.MAC
.IF (ERROR) ;FOR REENTRANCY ONLY
.RENAME HDWKI.MAC=HDW14D.MAC
.RENAME TTYKI.MAC=TTY14D.MAC
.RENAME NETKI.MAC=NET14D.MAC
;NOW WE HAVE ALL THE NEEDED FILES, SO TURN THE ASSEMBLER LOOSE......
;
;FIRST WE ASK THE QUESTION "DO YOU WANT CREF LISTINGS ?"
;
MIASK::  ;
.CHKPNT MIASK
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MIASK
.RUN DEC:TECO
.OPERATOR %
*!BEG!
*% OPERATOR - DO YOU WANT MONMKI 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 MIMAC
;HERE IF ANSWER WAS YES -- MAKE CREF'S
MIMCC::  ;
.CHKPNT MIMCC
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MIMCC--BEGINNING COMPILE @CONKI/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 @CONKI
.IF (ERROR)  .GOTO MIAER
.ERROR
.GOTO MIAOK
;HERE IF ANSWER WAS NO -- (NO CREF'S)
MIMAC::  ;
.CHKPNT MIMAC
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MIMAC--BEGINNING COMPILE @CONKI
;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 @CONKI
.IF (NOERROR)  .GOTO MIAOK
.ERROR
MIAER::  ;
.IF (ERROR)  ;OK
.PLEASE  ASSEMBLY ERRORS EXIST--MONMKI
.DEASSIGN SYS
.QUEUE L:ERRORI=MONMKI.LOG/DISPOSE:PRESERVE/PRIORITY:51
.IF (ERROR) .PLEASE COULDN'T PRINT MONMKI.LOG - PLEASE QUEUE IT AND
.PLEASE EXAMINE ERROR LOG ON LPT, THEN KILL OR PROCEED ?
;THIS WAITS FOR OPERATOR RESPONSE......
.GOTO MIAGO
MIAOK::  ;
.PLEASE MONMKI CHKPNT MIAOK--MONITOR ASSEMBLES CORRECTLY
;
MIAGO::	;
.CHKPNT MIAGO
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.DEASSIGN SYS
.IF (ERROR)  ; OKAY
.RUN DEC:PIP 10
*CMBKI@
; CMBKI.CCL COMBINES .RLI FILES INTO TOPI10.REL LIBRARY FILE.
.RUN DEC:PIP 10
;
;
;NOW TO COPY RESULTS TO THE BLACK PACKS
MICPY::  ;
.CHKPNT MICPY
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MICPY--READY TO COPY FKI.MAC, ..., TOPI10.REL TO BLKA: ?
;THIS WAITS FOR OPERATOR TO CONTINUE......
;
;CMBKI.CCL CREATES TOPMON.RLI AND TOPEND.RLI IN ADDITION TO TOPI10.REL.
; THESE FILES ARE BASICALLY HISTORICAL ARTIFACTS LEFT OVER FROM THE DAYS WHEN
; WE COPIED THE TOPI10.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 THE .RLI FILES.
.DELETE TOPMON.RLI,TOPEND.RLI
.IF (ERROR)  ;OKAY
.MOUNT BLKA:
.IF (ERROR) .PLEASE CAN'T MOUNT BLKA:--BETTER ABORT
.RUN DEC:PIP
*BLKA:[7,5111]<100>/X/B_FKI.MAC,HDWKI.MAC,TTYKI.MAC,NETKI.MAC,TOPI10.REL
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
;
;AFTER FKI.MAC IS SAFELY ON THE BLACK PACKS, WE CAN SAFELY START UP
; TWICE.CTL IN PARALLEL (TWICE ALSO MESSES WITH FKI.MAC);
;.SUBMIT TWICE/UNIQ:0/TIME:20:
;
;NEXT PRODUCE GLOBAL CROSS-REFERENCE LISTING TOPI10.GLB
;
MIGLB::  ;
.CHKPNT MIGLB
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE MONMKI CHKPNT MIGLB--KILL THIS JOB IF NO KI10 GLOB DESIRED
;THIS PAUSES FOR OPERATOR RESPONSE
;
.RUN DEC:FUDGE2
=DSK:TOPI10.FUD_TOPI10/L
.IF (ERROR) ; NICE TRY
.R GLOB 15
*COMMON.RLI,COMDEV.RLI,COMNET.RLI,COMMOD.RLI
*DSK:TOPI10.GLB=TOPI10.REL
.IF (ERROR) ; NICE TRY
;
;COPY TOPI10.GLB TO BLACK PACKS
;
MICP2::  ;
.CHKPNT MICP2
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT MICP2--READY TO COPY TOPI10..FUD, TOPI10.GLB TO BLKA: ?
;THIS WAITS FOR OPERATOR TO CONTINUE......
.MOUNT BLKA:
.IF (ERROR) .PLEASE CAN'T MOUNT BLKA:--BETTER ABORT
.RUN DEC:PIP
*BLKA:[7,5111]<100>/X/B_TOPI10.FUD,TOPI10.GLB
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
;
.PLEASE  TO LIST TOPI10.GLB PROCEED, OTHERWISE KILL......
;THIS WAITS FOR THE OPERATOR TO CONTINUE......
; WE WILL PROBABLY NOT WASTE THE PAPER TO PRODUCE THIS LISTING NORMALLY.
;
.ASSIGN BLKA QUE
;SPECIAL HANDLING FOR GALAXY
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.QUEUE TOPI10.GLB,TOPI10.FUD/PRIORITY:1/FORM:NORMAF
.IF (ERROR) .PLEASE COULDN'T PRINT FILES TOPI10.FUD OR TOPI10.GLB - PROCEEDING
.DEASSIGN QUE
.LOCATE
;ALSO GET A HARD-COPY LISTING OF THE GLOB ON THE REAL LINE PRINTER
.QUEUE TOPI10.GLB
.IF (ERROR)  .PLEASE LIST TOPI10.GLB BY HAND
;
MICRF::  ;
.CHKPNT MICRF
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE MONMKI CHKPNT MICRF
;
; NOW GET ALL THE KI10 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 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 BLKA QUE
;WE MUST NOW DO THINGS DIFFERENTLY IF GALAXY IS RUNNING
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.RUN DEC:CREF
*FKI
.IF (NOERROR) .QUEUE FKI.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*S
.IF (NOERROR) .QUEUE S.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*COMMON
.IF (NOERROR) .QUEUE COMMON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*COMDEV
.IF (NOERROR) .QUEUE COMDEV.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*COMMOD
.IF (NOERROR) .QUEUE COMMOD.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*FILFND
.IF (NOERROR) .QUEUE FILFND.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*FILIO
.IF (NOERROR) .QUEUE FILIO.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*FILUUO
.IF (NOERROR) .QUEUE FILUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DPXKON
.IF (NOERROR) .QUEUE DPXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*FHXKON
.IF (NOERROR) .QUEUE FHXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*FSXKON
.IF (NOERROR) .QUEUE FSXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CDPSER
.IF (NOERROR) .QUEUE CDPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CDRSRX
.IF (NOERROR) .QUEUE CDRSRX.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CLOCK1
.IF (NOERROR) .QUEUE CLOCK1.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*COMCON
.IF (NOERROR) .QUEUE COMCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CORE1
.IF (NOERROR) .QUEUE CORE1.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CP1SER
.IF (NOERROR) .QUEUE CP1SER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DATMAN
.IF (NOERROR) .QUEUE DATMAN.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DISSER
.IF (NOERROR) .QUEUE DISSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DLSINT
.IF (NOERROR) .QUEUE DLSINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DL1INT
.IF (NOERROR) .QUEUE DL1INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*DTASRN
.IF (NOERROR) .QUEUE DTASRN.LST/PRIORITY:1/FORM:NORMAF
.DELETE EDDT.CRF
.IF (ERROR)  ; IT'S OKAY--OPERATOR MAY HAVE CREF'D BY HAND
.RUN DEC:CREF
*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 DEC:CREF
*IPCSER
.IF (NOERROR) .QUEUE IPCSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*KISER
.IF (NOERROR) .QUEUE KISER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*KILOCK
.IF (NOERROR) .QUEUE KILOCK.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*LPTSER
.IF (NOERROR) .QUEUE LPTSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*METCON
.IF (NOERROR) .QUEUE METCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*MSGSER
.IF (NOERROR) .QUEUE MSGSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*NULSEG
.IF (NOERROR) .QUEUE NULSEG.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PLTSER
.IF (NOERROR) .QUEUE PLTSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PSISER
.IF (NOERROR) .QUEUE PSISER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PTPSER
.IF (NOERROR) .QUEUE PTPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PTRSER
.IF (NOERROR) .QUEUE PTRSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PTYSER
.IF (NOERROR) .QUEUE PTYSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*QUESER
.IF (NOERROR) .QUEUE QUESER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*RTTRP
.IF (NOERROR) .QUEUE RTTRP.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SCHED1
.IF (NOERROR) .QUEUE SCHED1.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SCNSER
.IF (NOERROR) .QUEUE SCNSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SEGCON
.IF (NOERROR) .QUEUE SEGCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SWPSER
.IF (NOERROR) .QUEUE SWPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TMPUUO
.IF (NOERROR) .QUEUE TMPUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*UUOCON
.IF (NOERROR) .QUEUE UUOCON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*VBCSER
.IF (NOERROR) .QUEUE VBCSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*PATCH
.IF (NOERROR) .QUEUE PATCH.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SYSINI
.IF (NOERROR) .QUEUE SYSINI.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*SYSCHK
.IF (NOERROR) .QUEUE SYSCHK.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*ONCMOD
.IF (NOERROR) .QUEUE ONCMOD.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*REFSTR
.IF (NOERROR) .QUEUE REFSTR.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*ONCE
.IF (NOERROR) .QUEUE ONCE.LST/PRIORITY:1/FORM:NORMAF
;
;OUTPUT MONGEN & FGEN NEXT
;
.AS DSK SYS
.COMPILE MONGEN/CREF
.DEAS SYS
.RUN DEC:CREF
*MONGEN
.IF (NOERROR) .QUEUE MONGEN.LST/PRIORITY:1/FORM:NORMAF
.QUEUE FGEN.HLP/PRIORITY:1/FORM:NORMAF
;
;
.RUN DEC:CREF
*NETPRM
.IF (NOERROR) .QUEUE NETPRM.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*COMNET
.IF (NOERROR) .QUEUE COMNET.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*CCIINT
.IF (NOERROR) .QUEUE CCIINT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*D76INT
.IF (NOERROR) .QUEUE D76INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*D78INT
.IF (NOERROR) .QUEUE D78INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*D85INT
.IF (NOERROR) .QUEUE D85INT.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*NETSER
.IF (NOERROR) .QUEUE NETSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*RDXSER
.IF (NOERROR) .QUEUE RDXSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*RPXKON
.IF (NOERROR) .QUEUE RPXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TAPSER
.IF (NOERROR) .QUEUE TAPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TAPUUO
.IF (NOERROR) .QUEUE TAPUUO.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TCXKON
.IF (NOERROR) .QUEUE TCXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TM2KON
.IF (NOERROR) .QUEUE TM2KON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TMXKON
.IF (NOERROR) .QUEUE TMXKON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TSKSER
.IF (NOERROR) .QUEUE TSKSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TX1KON
.IF (NOERROR) .QUEUE TX1KON.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*TYPSER
.IF (NOERROR) .QUEUE TYPSER.LST/PRIORITY:1/FORM:NORMAF
.RUN DEC:CREF
*XTCSER
.IF (NOERROR) .QUEUE XTCSER.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
;
;
.GOTO MIXIT
%ERR:: .GOTO MIERR
%CERR:: .GOTO MIERR
MIERR:: .PLEASE ERROR IN MONMKI--EXAMINE .LOG FILE
.QUEUE MONMKI.LOG/DISPOSE:PRESERVE
.GOTO MIXIT
MIXIT:: .PLEASE MONMKI FINISHED--LOAD KI10 MONITORS NEXT
%FIN::  ;
.KJOB/F
;[END OF MONMKI.CTL]