Google
 

Trailing-Edge - PDP-10 Archives - AP-D543V_SB - mk026z.ct
There is 1 other file named mk026z.ct in the archive. Click here to see a list.
;%1(50) VERSION OF MK026Z   20 DEC 78   /MS
;THIS MK026Z.CT FILE IS MASSAGED BY TECO TO HAVE ALL # # # 'S TURN
; INTO THE CURRENT VERSION NUMBER OF THE MONITOR AT WHICH TIME IT
; BECOMES MK026Z.CTL, THE CONTROL FILE WHICH LOADS A MONITOR FOR
; DECSYSTEM-10 #1026/1042 (OUR IN-HOUSE KL10 DUAL DEVELOPMENT SYSTEM).
;THIS MONITOR INCLUDES THE VIRTUAL MEMORY FEATURE.
;
G026Z::  ;
.CHKPNT G026Z
.SET WATCH ALL
.IF (ERROR)  ;O.K.
;
;THE VIRTUAL MEMORY KL10 MONITORS USE FVL.MAC FEATURE TEST SWITCHES FILE
; CREATED BY MONMKW.
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
;THIS IS THE SYSTEM #1026/1042 VM HARDWARE CONFIGURATION
;
.RUN DSK:MONGEN
*
*HDW
*HDW26Z
*1088
*    RZ###  KL10 SYS#1026/1042
*1026	;CPU0 SERIAL NUMBER
*1042	;CPU1 SERIAL NUMBER
*Y	;EXCLUDE MONITOR OVERHEAD?
*Y	;EBOX/MBOX RUNTIME ACCOUTING?
*Y	;EXCLUDE PI TIME?
*8	;# OF DATA CHANNELS
*DF10	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 0
*1	;RH10 FOR RS04
*3	;FSA'S
*0	;RH10 FOR RP04
*0	;RP10
*1	;# OF TM10BS
*2	;MTA'S
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 1
*0	;RH10 FOR RS04
*1	;RH10 FOR RP04
*8	;RPA'S
*1	;RP10
*4	;DPA'S
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DX10	;TYPE CHANNEL
*1	;TX02'S ON CHANNEL 2
*5	;MTB'S (TU70)
*RH20	;TYPE CHANNEL
*1	;RH20 FOR RP04 ON CHANNEL 3
*8	;RPB'S
*0	;RH20'S FOR TM02S
*RH20	;TYPE CHANNEL
*1	;RH20 FOR RP04 ON CHANNEL 4
*8	;RPCS
*0	;RH20 FOR TM02S
*RH20	;TYPE CHANNEL
*1	;RH20 FOR RP04 ON CHANNEL 5
*8	;RPD'S
*0	;RH20 FOR TM02S
*RH20	;TYPE CHANNEL 
*0	;RH20 FOR RP04 ON CHANNEL 6
*1	;RH20'S FOR TM02S
*3	;# OF TM02'S ON RH20
*1	;# OF UNITS ON TM02 0 (MTCS)
*2	;# OF UNITS ON TM02 1 (MTDS)
*1	;# OF UNITS ON TM02 2 (MTES)
*DX10	;TYPE CHANNEL
*1	;TX02'S ON CHANNEL 7
*6	;MTF'S (TU70)
*0	;# OF TM10AS
*1	;MTA'S ON 7 TRACK
*
*
*
*4	;MTF"S ON 7 TRACK
*	;END MAGTAPE DEFINITION
*
*
*
*	;END MAGTAPE DENSITY
*4	;DTES ON CPU0
*100	;JOBS
*	;MAX PAGES CORE/USER
*1024	;TOTAL CORE
*60	;TICKS/SEC
*4	;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
*1	;CDR'S
*Y	;CDP
*Y	;CP10D
*N	;DISPLAY
*1	;TD10 (DECTAPE CONTROL)
*8	;DTA'S
*3	;LPT'S
*Y	;LPT0 LOWER CASE
*N	;LPT1 UPPER CASE ONLY
*Y	;LPT2 LOWER CASE
*1	;PLT'S
*Y	;PTP
*Y	;PTR
*70	;PTY'S
*N	;DC44
*0	;# OF DA28'S
*0	;# OF DC78'S
*	;DECIMAL VALUE DEFINITIONS
*A1088V,0
*PRVFIL,055
*LIMLVL,5
*DEFDEB,300000000000
*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 #1026/1042 VM TELETYPE CONFIGURATION
;
.RUN DSK:MONGEN
*
*TTY
*TTY26Z
*1088	;TYPE PROCESSOR
*0	;DC10'S
*0	;DC68'S
*1	;DC76'S
*0	;DL10 PORT
*129	;DC76 LINES
*CTY	;OPR
*150-157	;DATA SETS
*
;TABS
*4
*
;ONLY THE CTY, TTY0 ("PLEASE") AND VT06 MAY LOG-IN AS [1,2]
*2-3	;REMOTE
*5
*7-300
*
*	;LOCAL COPY
*	;HALF DUPLEX
*	;SLAVES
*	;FORM FEEDS
;INITIA
*CTY
*0-7
*
*1,3	;FILLER FOR VT06
*
;
;THIS IS THE SYSTEM #1026/1042 VM NETWORK CONFIGURATION
;
.RUN DSK:MONGEN
*
*NET
*NET26Z
*Y	;NETWORKS SUPPORTED
*16	;NODES
*3	;DC75'S
*1	;PORT #-DN85
*4	;PORT #-DN87
*5	;PORT #-DN85
*3	;DN87S
*1	;TO WHICH DTE20 IS DN87S CONNECTED TO
*2	;TO WHICH DTE20 IS DN87S CONNECTED TO
*3	;TO WHICH DTE20 IS DN87S CONNECTED TO
*26	;CENTRAL SITE NODE NUMBER
;CENTRAL SITE NAME
*KL1026
*144	;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
*200	;CONNECTS (TOTAL # OF DEVICES THAT CAN BE CONNECTED)
;
;END OF SYSTEM #1026/1042 VM MONGEN DIALOGUES
;
;AT THIS POINT MK026Z.CTL EITHER CONTINUES PROCESSING ON ITS OWN OR RETURNS
; CONTROL TO WHATEVER OTHER FILE CALLED IT AS A SUBROUTINE....
.RUN DEC:TECO
*ERMK026Z.KLG
.IF (ERROR)  .GOTO A026Z  ;CONTINUE PROCESSING IF MK026Z.KLG FILE NOT PRESENT.
;IF MK026Z.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 MK026Z.KLG/UNIQ:0/AFTER:+0:01
.IF (ERROR)  .PLEASE CANNOT EXIT FROM MK026Z.CTL VIA MK026Z.KLG
;KILL THIS JOB IF IT WAS BEING USED AS A SUBROUTINE
.KJOB/F
;
;CONTINUE PROCESSING IF MK026Z.CTL WAS CALLED AS A MAIN JOB INSTEAD OF A SUBROUTINE.
;
;NEXT ASSEMBLE COMMON, COMDEV, COMNET, AND COMMOD FOR OUR 1088 CONFIGURATION
;
A026Z::  ;
.CHKPNT A026Z
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT A026Z
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.ASSIGN DEC SYS		;FORCE USE OF FIELD IMAGE COMPIL, MACRO
.ERROR %
.R MACRO
F26Z/U_FVL
*S26Z/U_S
*COMMON.R6Z_HDW26Z,TTY26Z,NET26Z,COMMON
.IF (ERROR)  .PLEASE  1088 COMMON ASSEMBLY ERROR--MK026Z PROCEEDING
.R MACRO
*F26Z/P/U_FVL
*S26Z/P/U_S
*COMDEV.R6Z/P_HDW26Z,TTY26Z,NET26Z,COMDEV
.IF (ERROR)  .PLEASE  1088 COMDEV ASSEMBLY ERROR--MK026Z PROCEEDING
.R MACRO
*F26Z/U_FVL
*S26Z/U_S
*NP26Z/U_NETPRM
*COMNET.R6Z_HDW26Z,TTY26Z,NET26Z,COMNET
.IF (ERROR)  .PLEASE  1088 COMNET ASSEMBLY ERROR--MK026Z PROCEEDING
.R MACRO
*F26Z/U_FVL
*S26Z/U_S
*COMMOD.R6Z_HDW26Z,COMMOD
.IF (ERROR)  .PLEASE  1088 COMMOD ASSEMBLY ERROR--MK026Z PROCEEDING
.R MACRO
*F26Z/U_FVL
*S26Z/U_S
*TSKSER.R6Z_TSKSER
.IF (ERROR)  .PLEASE  1088 TSKSER ASSEMBLY ERROR--MK026Z PROCEEDING
.ERROR
.DEASSIGN SYS
;
;
; NEXT LOAD A VIRTUAL MEMORY MONITOR FOR OUR IN-HOUSE DUAL KL10 DEVELOPMENTAL SYSTEM #1026/1042
;
L026Z::  ;
.CHKPNT L026Z
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE CHKPNT L026Z--BEGINNING SYS#1026/1042 VM LOAD
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.RUN DEC:PIP
*RZ###.MAP<157>_TTY:
=^Z
.IF (ERROR)  ; NICE TRY
;USE FIELD IMAGE VERSION OF LINK-10
.ASSIGN DEC SYS
.R LINK
.IF (ERROR)  .PLEASE  LINK-10 IS REQUIRED TO LOAD RZ### - BETTER ABORT
*/NOINITIAL /HASH:6000 RZ###/SAVE ,RZ###/MAP /CONTENT:NONE = /LOCALS /MAXCOR:60K -
*COMMON.R6Z,COMDEV.R6Z,COMNET.R6Z,COMMOD.R6Z,TSKSER.R6Z,TOPW10/SEARCH /PATCHSIZE:200 /GO
.IF (ERROR)  .PLEASE ERROR LOADING MONITOR RZ### USING LINK10--PROCEEDING
.DEASSIGN SYS
;
.QUEUE RZ###.MAP/PRIORITY:47/DISPOSE:PRESERVE
.IF (ERROR) .PLEASE COULDN'T PRINT RZ###.MAP
;
;NOW PRODUCE AN .EXE FILE INSTEAD OF .SAV OR .HGH/.LOW
N026Z::
.CHKPNT N026Z
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.SET PHYSICAL 256
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10
.GET RZ###
.IF (ERROR)  .GOTO Q026Z  ;NOT ENOUGH CORE TO .GET MONITOR
.NSAV RZ###
.IF (NOERROR)  .GOTO F026Z  ;RZ###.EXE CREATED CORRECTLY
.PLEASE  NSAV RZ### LOST -- ABORTING
.GOTO E026Z
Q026Z::
.RUN DEC:FILEX
*RZ###.EXE=RZ###.HGH
.IF (NOERROR)  .GOTO F026Z
.PLEASE FILEX COULDN'T MAKE RZ###.EXE -- ABORTING
.GOTO E026Z
;
; CREATE FILDDT FOR KL10 SYSTEM #1026/1042 VM MONITOR
;
F026Z::  ;
.CHKPNT F026Z
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE CHKPNT F026Z-FILDDT
;
.RUN DSK:FILDDT
*RZ###.EXE/S
.NSAV DSK:FRZ###
.DELETE F26Z.*,S26Z.*,NP26Z.*,RZ###.XPN,RZ###.HGH,RZ###.LOW
.IF (ERROR)  ;NICE TRY
;
;FINALLY, COPY RESULTS BACK TO THE BLACK PACKS
;
C026Z::  ;
.CHKPNT C026Z
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT C026Z--READY TO COPY 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_RZ###.EXE,RZ###.MAP
.IF (ERROR)  .PLEASE TROUBLE COPYING ONTO BLKA:
.GOTO X026Z
%ERR:: .GOTO E026Z
%CERR:: .GOTO E026Z
E026Z:: .PLEASE ERROR IN MK026Z--EXAMINE .LOG FILE
.QUEUE MK026Z.LOG/DISPOSE:PRESERVE
.GOTO X026Z
X026Z:: .PLEASE MK026Z FINISHED
%FIN::  ;
.KJOB/F
;[END OF MK026Z.CT(L)]