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

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - mk514d.ct
There are 2 other files named mk514d.ct in the archive. Click here to see a list.
;%1(67) VERSION OF MK514D   01 MAR 1977   /MS/RAP
;THIS MK514D.CT FILE IS MASSAGED BY TECO TO HAVE ALL # # # 'S TURN
; INTO THE CURRENT VERSION NUMBER OF THE MONITOR AT WHICH TIME IT
; BECOMES MK514D.CTL, THE CONTROL FILE WHICH LOADS A MONITOR FOR
; DECSYSTEM-10 #514/546 (OUR IN-HOUSE KI10 DUAL DEVELOPMENT SYSTEM).
;THIS IS A "STANDARD" MONITOR, I.E., WITHOUT VIRTUAL MEMORY.
;
G514D::  ;
.CHKPNT G514D
.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/546 HARDWARE CONFIGURATION
;
.RUN DSK:MONGEN
*
*HDW
*HDW14D
*1077
*    R7###  SYS #514/546
*514	;CPU0 SERIAL NUMBER
*2	;DK10 CLOCKS ON CPU0
*546	;CPU1 SERIAL NUMBER
*1	;DK10 CLOCKS ON CPU1
*Y	;EXCLUDE MONITOR OVERHEAD?
*Y	;HIGH PRECISION TIME ACCOUNTING?
*7	;# 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 TM02'S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 1
*1	;RH10 FOR RS04
*4	;FSA'S
*0	;RH10 FOR RP04
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02'S
*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 TM02'S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 3
*0	;RH10 FOR RS04
*1	;RH10 FOR RP04
*8	;RPA'S
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02'S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 4
*0	;RH10 FOR RS04
*1	;RH10 FOR RP04
*5	;RPB'S
*1	;RP10
*3	;DPB'S
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02'S
*DF10C	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 5
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*1	;# OF TM10BS
*6	;MTAS
*0	;# OF TC10CS
*1	;RH10'S FOR TM02S
*2	;# OF TM02'S ON RH10 (TU16)
*3	;DRIVES ON UNIT 0 (MTCS)
*2	;DRIVES ON UNIT 1 (MTDS)
*DX10	;TYPE CHANNEL
*1	;# OF TX01S ON CHANNEL 6
*5	;MTDS (TU70)
*1	;# OF TM10AS
*2	;MTES
*2-3	;MTAS ON 7 TRACK
*
*	;MTB,C ON 7 TRACK
*4	;MTDS ON 7 TRACK
*
*1	;MTES ON 7 TRACK
*	;END MAGTAPE DEFINITION
*
*
*
*	;END MAGTAPE DENSITY
*100	;JOBS
*	;MAX PAGES CORE/USER
*272	;TOTAL CORE
*60	;TICKS/SEC
*3	;REAL TIME DEVICES
*0	;GUARANTEED CORE FOR NON-LOCKED JOBS
*3	;HPQ'S
*Y	;CCL
*Y	;METER
*Y	;SYSCHK
*Y	;MSGSER
*Y	;PSISER
*Y	;IPCSER
*Y	;ENQ/DEQ
*2	;CDR'S
*Y	;CDP
*Y	;CP10D
*N	;DISPLAY
*2	;TD10'S (DECTAPE CONTROLLERS)
*6	;DTA'S
*3	;DTB'S
*3	;LPT'S
*Y	;LPT0 LOWER CASE
*N	;LPT1 UPPER CASE ONLY
*N	;LPT2 UPPER CASE ONLY
*1	;PLT'S
*Y	;PTP
*Y	;PTR
*55	;PTY'S
*N	;DC44
*0	;# OF DA28'S
*0	;# OF DC78'S
*	;DECIMAL VALUE DEFINITIONS
*A1077S,0
*PRVFIL,055
*LIMLVL,3
*DEFDEB,320000000000
*RP1,360	;DEVICE CODE FOR 2ND RH10 FOR RP04'S
*RTCH1,1
*MBFN,5		;NUMBER OF MONITOR BUFFERS
*M.DFNB,6	;DEFAULT NUMBER OF USER BUFFERS
*MTDLTP,1	;STANDARD MAGTAPE LABELS ARE ASCII
*	;END OCTAL VALUE DEFINITIONS
*	;SIXBIT VALUE DEFINITIONS
*	;DEV,PI
*	;DEV,PI,#
*	;DEV,PI,AC
;
;THIS IS THE SYSTEM #514/546 TELETYPE CONFIGURATION
;
.RUN DSK:MONGEN
*
*TTY
*TTY14D
*2	;DC10'S
*0	;DC68'S
*1	;DC76'S
*7	;DC10B
*1	;DC10E
*70-77,60	;DC10E/DC10B CORRESPONDENCE
*
*2	;DC10B
*0	;DC10E
*1	;DL10 PORT
*80	;DC76 LINES
*CTY	;OPR
*60-67	;DATA SETS
*170-207  ;DC76 DATASETS
*
;TABS
*2-4
*10-23
*30-46
*CTY
*CTY1
*
;ONLY THE CTY, TTY0 ("PLEASE") AND VT06 MAY LOG-IN AS [1,2]
*2-330	;REMOTE
*
*	;LOCAL COPY
*	;HALF DUPLEX
*	;SLAVES
*	;FORM FEED
;INITIA
*CTY
*CTY1
*0-7
*
*1,1	;FILLER FOR VT06
*
*3	;2741 INTERFACE LINE #
*
;
;THIS IS THE SYSTEM #514/546 NETWORK CONFIGURATION
;
.RUN DSK:MONGEN
*
*NET
*NET14D
*Y	;NETWORKS SUPPORTED
*16	;NODES
*1	;DC75'S
*0	;PORT #
*0	;NUMBER OF DN87'S
*14	;CENTRAL SITE NODE NUMBER
;CENTRAL SITE NAME
*KI514
*64	;REMOTE TTY'S
*2	;REMOTE CDR'S
*2	;REMOTE LPT'S
*0	;REMOTE PTR'S
*0	;REMOTE PTP'S
*0	;REMOTE MTA'S
*16	;REMOTE PROCESSES
*N	;REMOTE DATA ENTRY
*100	;CONNECTS (TOTAL # OF DEVICES THAT CAN BE CONNECTED)
;
;END OF SYSTEM #514/546 MONGEN DIALOGUES
;
;AT THIS POINT MK514D.CTL EITHER CONTINUES PROCESSING ON ITS OWN OR RETURNS
; CONTROL TO WHATEVER OTHER FILE CALLED IT AS A SUBROUTINE....
.RUN DSKB:TECO[10,7]
*ERMK514D.KLG
.IF (ERROR)  .GOTO A514D  ;CONTINUE PROCESSING IF MK514D.KLG FILE NOT PRESENT.
;IF MK514D.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 MK514D.KLG/UNIQ:0/AFTER:+0:01
.IF (ERROR)  .PLEASE CANNOT EXIT FROM MK514D.CTL VIA MK514D.KLG
;KILL THIS JOB IF IT WAS BEING USED AS A SUBROUTINE
.KJOB/F
;
;CONTINUE PROCESSING IF MK514D.CTL WAS CALLED AS A MAIN JOB INSTEAD OF A SUBROUTINE.
;
A514D::  ;
.CHKPNT A514D
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE  CHKPNT A514D
;
;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, COMNET, AND COMMOD WERE NORMALLY ASSEMBLED BY MONMKI.
;HOWEVER, PROVIDE FOR THE POSSIBILITY THAT MK514D IS BEING RUN WITHOUT HAVING
; RUN MONMKI.  ASSEMBLE COMMON ET AL ONLY IF .RLI FILES DO NOT EXIST......
.ASSIGN DSK SYS		;FORCE USE OF FIELD IMAGE COMPIL, MACRO
.RUN DSKB:TECO[10,7]
*ERCOMMON.RLI
.IF (NOERROR)  .GOTO A1
.ERROR %
.R MACRO
*F14D/U_FKI
*S14D/U_S
*COMMON.RLI_HDW14D,TTY14D,NET14D,COMMON
.IF (ERROR)  .PLEASE  1077 COMMON ASSEMBLY ERROR--MK514D PROCEEDING
A1::  ;
.RUN DSKB:TECO[10,7]
*ERCOMDEV.RLI
.IF (NOERROR)  .GOTO A2
.R MACRO
*F14D/U_FKI
*S14D/U_S
*COMDEV.RLI_HDW14D,TTY14D,NET14D,COMDEV
.IF (ERROR)  .PLEASE  1077 COMDEV ASSEMBLY ERROR--MK514D PROCEEDING
A2::  ;
.RUN DSKB:TECO[10,7]
*ERCOMNET.RLI
.IF (NOERROR)  .GOTO A3
.R MACRO
*F14D/U_FKI
*S14D/U_S
*NP14D/U_NETPRM
*COMNET.RLI_HDW14D,TTY14D,NET14D,COMNET
.IF (ERROR)  .PLEASE  1077 COMNET ASSEMBLY ERROR--MK514D PROCEEDING
A3::  ;
.RUN DSKB:TECO[10,7]
*ERCOMMOD.RLI
.IF (NOERROR)  .GOTO A4
.R MACRO
*F14D/U_FKI
*S14D/U_S
*COMMOD.RLI_HDW14D,COMMOD
.IF (ERROR)  .PLEASE  1077 COMMOD ASSEMBLY ERROR--MK514D PROCEEDING
A4::  ;
.RUN DSKB:TECO[10,7]
*ERTSKSER.RLI
.IF (NOERROR)  .GOTO A5
.R MACRO
*F14D/U_FKI
*S14D/U_S
*TSKSER.RLI_TSKSER
.IF (ERROR)  .PLEASE  1077 TSKSER ASSEMBLY ERROR--MK514D PROCEEDING
A5::  ;
.ERROR
.DEASSIGN SYS
;
K514D::  ;
.CHKPNT K514D
.SET WATCH ALL
.IF (ERROR)  ;O.K.
; NEXT LOAD A MONITOR FOR OUR IN-HOUSE DUAL CPU (DECsystem10 1077) SYSTEM
;
L514D::  ;
.CHKPNT L514D
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE CHKPNT L514D--BEGINNING 1077 LOAD
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.RUN DSKB:PIP[10,7]
*R7###.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 R7### - BETTER ABORT
*/NOINITIAL /HASH:6000 R7###/SAVE ,R7###/MAP /CONTENT:NONE = /LOCALS /MAXCOR:60K -
*COMMON.RLI,COMDEV.RLI,COMNET.RLI,COMMOD.RLI,TSKSER.RLI,TOPI10/SEARCH /PATCHSIZE:200 /GO
.IF (ERROR)  .PLEASE ERROR LOADING MONITOR R7### USING LINK10--PROCEEDING
.DEASSIGN SYS
;
.QUEUE R7###.MAP/PRIORITY:47/DISPOSE:PRESERVE
.IF (ERROR) .PLEASE COULDN'T PRINT R7###.MAP
;
;NOW PRODUCE AN .EXE FILE INSTEAD OF .SAV OR .HGH/.LOW
N514D::
.CHKPNT N514D
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.SET PHYSICAL 256
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10
.GET R7###
.IF (ERROR)  .GOTO Q514D  ;NOT ENOUGH CORE TO .GET MONITOR
.NSAV R7###
.IF (NOERROR)  .GOTO F514D  ;R7###.EXE CREATED CORRECTLY
.PLEASE  NSAV R7### LOST -- ABORTING
.GOTO E514D
Q514D::
.RUN DEC:FILEX
*R7###.EXE=R7###.HGH
.IF (NOERROR)  .GOTO F514D
.PLEASE FILEX COULDN'T MAKE R7###.EXE -- ABORTING
.GOTO E514D
;
; CREATE FILDDT FOR 1077 DUAL CPU MONITOR
;
F514D::  ;
.CHKPNT F514D
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE CHKPNT F514D--FILDDT
;
.RUN DSK:FILDDT
*R7###.EXE/S
.NSAV DSK:FR7###
.DELETE F14D.*,S14D.*,NP14D.*,R7###.XPN,R7###.HGH,R7###.LOW
.IF (ERROR)  ; NICE TRY
;
;FINALLY, COPY RESULTS BACK TO THE BLACK PACKS
;
C514D::  ;
.CHKPNT C514D
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT C514D--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_R7###.EXE,R7###.MAP
.IF (ERROR)  .PLEASE TROUBLE COPYING ONTO BLKA:
.GOTO X514D
%ERR:: .GOTO E514D
%CERR:: .GOTO E514D
E514D::  .PLEASE ERROR IN MK514D--EXAMINE .LOG FILE
.QUEUE MK514D.LOG/DISPOSE:PRESERVE
.GOTO X514D
X514D::  .PLEASE  MK514D FINISHED
%FIN::  ;
.KJOB/F
;[END OF MK514D.CT(L)]