PDP-10 Archive: mk514h.ct from dec-10-omona-u-mc9

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - mk514h.ct
There are 2 other files named mk514h.ct in the archive. Click here to see a list.
;%1(42) VERSION OF MK514H      01 MAR 1977   /MS/RAP
;THIS MK514H.CT FILE IS MASSAGED BY TECO TO HAVE ALL # # # 'S TURN
; INTO THE CURRENT VERSION NUMBER OF THE MONITOR AT WHICH TIME IT
; BECOMES MK514H.CTL, THE CONTROL FILE WHICH LOADS A MONITOR FOR
; DECSYSTEM-10 #514 BUILT WITH THE "LOCAL USERS' GROUPS'"
; FEATURE-TEST SWITCH SETTINGS PLUS FTKI10 TURNED ON.
;
G514H::  ;
.CHKPNT G514H
.SET WATCH ALL
.IF (ERROR)  ;O.K.
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
;THIS IS THE SYSTEM #514 "LUG" MONITOR HARDWARE CONFIGURATION
;
.RUN DSK:MONGEN
*
*HDW
*HDW14H
*1070
*    RH### Sys #514
*514	;CPU SERIAL NUMBER
*2	;DK10 CLOCKS
*Y	;EXCLUDE MONITOR OVERHEAD
*N	;HIGH PRECISION TIME ACCOUNTING
*N	;DK10 SOFTWARE
*5	;# OF DATA CHANNELS
*DF10C	;TYPE CHANNEL
*1	;RC10 ON CHANNEL 0
*1	;FHA'S
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 1
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 2
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*1	;RP10
*8	;DPA'S
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 3
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 4
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*1	;# OF TM10BS
*6	;MTAS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*0	;# OF TM10AS
*2-3	;MTAS ON 7 TRACK
*	;END MAGTAPE DEFINITION
*	;END MAGTAPE DENSITY
*30	;JOBS
*	;MAX PAGES CORE/USER
*144	;TOTAL CORE
*60	;TICKS/SEC
*0	;REAL TIME DEVICES
*N	;LOCK JOBS IN CORE?
*0	;HPQ'S
*Y	;CCL
*N	;METER
*Y	;SYSCHK
*N	;MSGSER
*N	;PSISER
*N	;IPCSER
*N	;ENQ/DEQ
*2	;CDR
*N	;CDP
*N	;DISPLAY
*1	;TD10 (DECTAPE CONTROLLER)
*8	;DTA'S
*2	;LPT
*Y	;LPT0 LOWER CASE
*N	;LPT1 UPPER CASE ONLY
*1	;PLT'S
*Y	;PTP
*Y	;PTR
*30	;PTY'S
*N	;DC44
*0	;# OF DA28'S
*0	;# OF DC78'S
*	;DECIMAL VALUE DEFINITIONS
*A1070H,0
*PRVFIL,055
*DEFDEB,300000000000
*	;END OCTAL VALUE DEFINITIONS
*	;SIXBIT VALUE DEFINITIONS
*	;DEV,PI
*	;DEV,PI,#
*	;DEV,PI,AC
;
;THIS IS THE SYSTEM #514 "LUG" MONITOR TELETYPE CONFIGURATION
;
.RUN DSK:MONGEN
*
*TTY
*TTY14H
*1	;DC10'S
*0	;DC68'S
*0	;DC76'S
*7	;DC10B
*1	;DC10E
*70-77,60	;DC10E/DC10B LINE CORRESPONDENCE
*
*CTY	;OPR
*60-67	;DATA SETS
*
;TABS
*2-4
*10-23
*30-46
*CTY
*
;ONLY THE CTY, TTY0 ("PLEASE") AND VT06 MAY LOG-IN AS [1,2]
*2-67	;REMOTE
*
*	;LOCAL COPY
*	;HALF DUPLEX
*	;SLAVES
*	;FORM FEEDS
;INITIA
*CTY
*0-7
*
*1,1	;FILLER FOR VT06
*
*3	;2741 INTERFACE LINE #
*
;
;THIS IS THE SYSTEM #514 "LUG" NETWORK CONFIGURATION
;
.RUN DSK:MONGEN
*
*NET
*NET14H
*N	;NETWORKS ARE NOT SUPPORTED
;
;THIS COMPLETES THE MONGEN DIALOGUE FOR SYS #514 KI10 "LUG" MONITOR.
;
;AT THIS POINT MK514H.CTL EITHER CONTINUES PROCESSING ON ITS OWN OR RETURNS
; CONTROL TO WHATEVER OTHER FILE CALLED IT AS A SUBROUTINE....
.RUN DSKB:TECO[10,7]
*ERMK514H.KLG
.IF (ERROR)  .GOTO A514H  ;CONTINUE PROCESSING IF MK514H.KLG FILE NOT PRESENT.
;IF MK514H.KLG FILE IS PRESENT IT CONTAINS A POINTER BACK TO THE FILE WHICH CALLED
; THIS FILE AS A SUBROUTINE, SO USE IT TO RETURN CONTROL AS FOLLOWS:
.SUBMIT MK514H.KLG/UNIQ:0/AFTER:+0:01
.IF (ERROR)  .PLEASE CANNOT EXIT FROM MK514H.CTL VIA MK514H.KLG
;KILL THIS JOB IF IT WAS BEING USED AS A SUBROUTINE
.KJOB/F
;
;CONTINUE PROCESSING IF MK514H.CTL WAS CALLED AS A MAIN JOB INSTEAD OF A SUBROUTINE.
;
A514H::  ;
.CHKPNT A514H
.SET WATCH ALL
.IF (ERROR)  ;OK
.PLEASE  CHKPNT A514H
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
;NOTE:  SINCE THIS MONITOR IS FOR OUR "BASE" KI10 SYSTEM, ITS COMMON,
; COMDEV, AND COMMOD WERE NORMALLY ASSEMBLED BY MONMKH.
;HOWEVER, PROVIDE FOR THE POSSIBILITY THAT MK514H IS BEING RUN WITHOUT HAVING
; RUN MONMKH.  ASSEMBLE COMMON ET AL ONLY IF .RLH FILES DO NOT EXIST......
.ASSIGN DSK SYS		;FORCE USE OF FIELD-IMAGE COMPIL, MACRO
.RUN DSKB:TECO[10,7]
*ERCOMMON.RLH
.IF (NOERROR)  .GOTO A1
.ERROR %
.R MACRO
*F14H/U,F14H/C_FLUGI
*S14H/U,S14H/C_S
*COMMON.RLH,CMN14H/C_HDW14H,TTY14H,NET14H,COMMON
.IF (ERROR)  .PLEASE SYS#514 "LUG" COMMON ASSEMBLY ERROR--MK514H PROCEEDING
A1::  ;
.RUN DSKB:TECO[10,7]
*ERCOMDEV.RLH
.IF (NOERROR)  .GOTO A2
.R MACRO
*F14H/U,F14H/C_FLUGI
*S14H/U,S14H/C_S
*COMDEV.RLH,CMV14H/C_HDW14H,TTY14H,NET14H,COMDEV
.IF (ERROR)  .PLEASE SYS#514 "LUG" COMDEV ASSEMBLY ERROR--MK514H PROCEEDING
A2::  ;
.RUN DSKB:TECO[10,7]
*ERCOMMOD.RLH
.IF (NOERROR)  .GOTO A3
.R MACRO
*F14H/U,F14H/C_FLUGI
*S14H/U,S14H/C_S
*COMMOD.RLH,CMD14H/C_HDW14H,COMMOD
.IF (ERROR)  .PLEASE SYS#514 "LUG" COMMOD ASSEMBLY ERROR--MK514H PROCEEDING
A3::  ;
.ERROR
.DEASSIGN SYS
;
;NEXT WE ASK THE QUESTION "DO YOU WANT CREF LISTINGS ?"
;
K514H::  ;
.CHKPNT K514H
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.RUN DSKB:TECO[10,7]
.OPERATOR %
*!BEG!
*% MK514H CREFS ?  (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 J514H
;
R514H::  ;
.CHKPNT R514H
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.ASSIGN DSK LPT
.ASSIGN MON QUE
;SPECIAL GALAXY HANDLING
.R ISIT ;GALAXY
.IF (NOERROR)  .LOCATE 50
.RUN DSKB:CREF[10,7]
*CMN14H
.IF (NOERROR)  .QUEUE CMN14H.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMV14H
.IF (NOERROR)  .QUEUE CMV14H.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMD14H
.IF (NOERROR)  .QUEUE CMD14H.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
J514H::  ;
.DELETE CM?14H.CRF
.IF (ERROR)  ;OKAY
;
;NOW LOAD THE KI10 "LUG" MONITOR FOR SYS#514
;
L514H::  ;
.CHKPNT L514H
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE CHKPNT L514H--BEGINNING SYS#514 KI10 "LUG" MONITOR LOAD
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.RUN DSKB:PIP[10,7]
*RH###.MAP<157>_TTY:
=^Z
.IF (ERROR)  ; NICE TRY
;USE FIELD IMAGE VERSION OF LINK-10
.ASSIGN DSK SYS
.R LINK
.IF (ERROR)  .PLEASE  LINK-10 IS REQUIRED TO LOAD RH### - BETTER ABORT
*/NOINITIAL /HASH:6000 RH###/SAVE ,RH###/MAP /CONTENT:NONE = /LOCALS /MAXCOR:45K -
*COMMON.RLH,COMDEV.RLH,COMMOD.RLH,TOPH10/SEARCH /PATCHSIZE:200 /GO
.IF (ERROR)  .PLEASE ERROR LOADING MONITOR RH### USING LINK10--PROCEEDING
.DEASSIGN SYS
;
.PLEASE  IF YOU WANT RH###.MAP, YOU MUST PRINT IT BY HAND
;.QUEUE RH###.MAP/PRIORITY:47/DISPOSE:PRESERVE
.IF (ERROR) .PLEASE COULDN'T PRINT RH###.MAP - PLEASE QUEUE BY HAND
;
;NOW PRODUCE AN .EXE FILE INSTEAD OF .SAV OR .HGH/.LOW
N514H::
.CHKPNT N514H
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.SET PHYSICAL 256
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10
.GET RH###
.IF (ERROR)  .GOTO Q514H  ;NOT ENOUGH CORE TO .GET MONITOR
.NSAV RH###
.IF (NOERROR)  .GOTO F514H  ;RH###.EXE CREATED CORRECTLY
.PLEASE  NSAV RH### LOST -- ABORTING
.GOTO E514H
Q514H::
.RUN DEC:FILEX
*RH###.EXE=RH###.SAV
.IF (NOERROR)  .GOTO F514H
.PLEASE FILEX COULDN'T MAKE RH###.EXE -- ABORTING
.GOTO E514H
;
;CREATE FILDDT FOR THE SYS#514 "LUG" MONITOR JUST LOADED
;
F514H::  ;
.CHKPNT F514H
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE  CHKPNT F514H--FILDDT
;
.RUN DSK:FILDDT
*RH###.EXE/S
.NSAV DSK:FRH###
.DELETE F14H.*,S14H.*,NP14H.*,RH###.XPN,RH###.SAV
.IF (ERROR)  ;NICE TRY
;
;FINALLY, COPY RESULTS BACK TO THE BLACK PACKS
;
C514H::  ;
.CHKPNT C514H
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT C514H--READY TO COPY 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_RH###.EXE,RH###.MAP
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
.GOTO X514H
%ERR:: .GOTO E514H
%CERR:: .GOTO E514H
E514H:: .PLEASE ERROR IN MK514H--EXAMINE .LOG FILE
.QUEUE MK514H.LOG/DISPOSE:PRESERVE
.GOTO X514H
X514H:: .PLEASE MK514H FINISHED
%FIN::  ;
.KJOB/F
;[END OF MK514H.CT(L)]