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

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - mk026w.ct
There are 2 other files named mk026w.ct in the archive. Click here to see a list.
;%1(43) VERSION OF MK026W  29 MAR 1977   /MS/RAP
;THIS MK026W.CT FILE IS MASSAGED BY TECO TO HAVE ALL # # # 'S TURN
; INTO THE CURRENT VERSION NUMBER OF THE MONITOR AT WHICH TIME IT
; BECOMES MK026W.CTL, THE CONTROL FILE WHICH LOADS A MONITOR FOR
; DECSYSTEM-10 #1026 (THE DEVELOPMENTAL 1080 KL10 SYSTEM).
;THIS MONITOR INCLUDES THE VIRTUAL MEMORY FEATURE.
;
G026W::  ;
.CHKPNT G026W
.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 VM HARDWARE CONFIGURATION
;
.RUN DSK:MONGEN
*
*HDW
*HDW26W
*1080
*    RK###  KL10 SYS#1026
*1026	;CPU 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
*6	;FSA'S
*0	;RH10 FOR RP04
*0	;RP10
*0	;# OF TM10BS
*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
*0	;RP10
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 2
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*1	;RP10
*7	;DPA'S
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DF10	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 3
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*0	;RP10
*1	;# OF TM10BS
*2	;MTA'S
*0	;# OF TC10CS
*0	;RH10'S FOR TM02S
*DX10	;TYPE CHANNEL
*1	;TX10'S ON CHANNEL 4
*5	;MTB'S (TU70)
*RH20	;TYPE CHANNEL
*1	;RH20 FOR RP04 ON CHANNEL 5
*8	;RPB'S
*0	;RH20'S FOR TM02S
*RH20	;TYPE CHANNEL
*1	;RH20 FOR RP04 ON CHANNEL 6
*8	;RPC'S
*0	;RH20 FOR TM02S
*RH20	;TYPE CHANNEL 
*0	;RH20 FOR RP04 ON CHANNEL 7
*1	;RH20'S FOR TM02S
*2	;# OF TM02'S ON RH20
*1	;# OF UNITS ON TM02 0 (MTCS)
*1	;# OF UNITS ON TM02 1 (MTDS)
*0	;# OF TM10AS
*1	;MTA'S ON 7 TRACK
*
*
*	;END MAGTAPE DEFINITION
*
*
*	;END MAGTAPE DENSITY
*4	;DTES ON CPU0
*100	;JOBS
*	;MAX PAGES CORE/USER
*384	;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
*0	;PLT'S
*Y	;PTP
*Y	;PTR
*55	;PTY'S
*N	;DC44
*0	;# OF DA28'S
*0	;# OF DC78'S
*	;DECIMAL VALUE DEFINITIONS
*A1080V,0
*PRVFIL,055
*LIMLVL,3
*DEFDEB,300000000000
*RTCH1,1
*MBFN,5		;NUMBER OF MONITOR BUFFERS
*M.DFNB,6	;DEFAULT NUMBER OF USR 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 VM TELETYPE CONFIGURATION
;
.RUN DSK:MONGEN
*
*TTY
*TTY26W
*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 VM NETWORK CONFIGURATION
;
.RUN DSK:MONGEN
*
*NET
*NET26W
*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
*Y	;REMOTE DATA ENTRY
*200	;CONNECTS (TOTAL # OF DEVICES THAT CAN BE CONNECTED)
;
;END OF SYSTEM #1026 VM MONGEN DIALOGUES
;
;AT THIS POINT MK026W.CTL EITHER CONTINUES PROCESSING ON ITS OWN OR RETURNS
; CONTROL TO WHATEVER OTHER FILE CALLED IT AS A SUBROUTINE....
.RUN DSKB:TECO[10,7]
*ERMK026W.KLG
.IF (ERROR)  .GOTO A026W  ;CONTINUE PROCESSING IF MK026W.KLG FILE NOT PRESENT.
;IF MK026W.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 MK026W.KLG/UNIQ:0/AFTER:+0:01
.IF (ERROR)  .PLEASE CANNOT EXIT FROM MK026W.CTL VIA MK026W.KLG
;KILL THIS JOB IF IT WAS BEING USED AS A SUBROUTINE
.KJOB/F
;
;CONTINUE PROCESSING IF MK026W.CTL WAS CALLED AS A MAIN JOB INSTEAD OF A SUBROUTINE.
;
A026W::  ;
.CHKPNT A026W
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT A026W
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
;NOTE:  SINCE THIS MONITOR IS FOR OUR "BASE" SYSTEM, ITS COMMON,
; COMDEV, COMNET, AND COMMOD WERE NORMALLY ASSEMBLED BY MONMKW.
;HOWEVER, PROVIDE FOR THE POSSIBILITY THAT MK026W IS BEING RUN WITHOUT HAVING
; RUN MONMKW.  ASSEMBLE COMMON ET AL ONLY IF .RLW FILES DO NOT EXIST......
.ASSIGN DSK SYS		;FORCE USE OF FIELD IMAGE COMPIL, MACRO
.RUN DSKB:TECO[10,7]
*ERCOMMON.RLW
.IF (NOERROR)  .GOTO A1
.ERROR %
.R MACRO
F26W/U,F26W/C_FVL
*S26W/U,S26W/C_S
*COMMON.RLW,CMN26W/C_HDW26W,TTY26W,NET26W,COMMON
.IF (ERROR)  .PLEASE  1080 COMMON ASSEMBLY ERROR--MK026W PROCEEDING
A1::  ;
.RUN DSKB:TECO[10,7]
*ERCOMDEV.RLW
.IF (NOERROR)  .GOTO A2
.R MACRO
*F26W/P/U,F26W/C_FVL
*S26W/P/U,S26W/C_S
*COMDEV.RLW/P,CMV26W/C_HDW26W,TTY26W,NET26W,COMDEV
.IF (ERROR)  .PLEASE  1080 COMDEV ASSEMBLY ERROR--MK026W PROCEEDING
A2::  ;
.RUN DSKB:TECO[10,7]
*ERCOMNET.RLW
.IF (NOERROR)  .GOTO A3
.R MACRO
*F26W/U,F26W/C_FVL
*S26W/U,S26W/C_S
*NP26W/U,NP26W/C_NETPRM
*COMNET.RLW,CMT26W/C_HDW26W,TTY26W,NET26W,COMNET
.IF (ERROR)  .PLEASE  1080 COMNET ASSEMBLY ERROR--MK026W PROCEEDING
A3::	;
.RUN DSKB:TECO[10,7]
*ERCOMMOD.RLW
.IF (NOERROR)  .GOTO A4
.R MACRO
*F26W/U,F26W/C_FVL
*S26W/U,S26W/C_S
*COMMOD.RLW,CMD26W/C_HDW26W,COMMOD
.IF (ERROR)  .PLEASE  1080 COMMOD ASSEMBLY ERROR--MK026W PROCEEDING
A4::  ;
.R MACRO
*F26W/U,F26W/C_FVL
*S26W/U,S26W/C_S
*TSKSER.RLW,TSKSER/C_TSKSER
.IF (ERROR)  .PLEASE  1080 TSKSER ASSEMBLY ERROR--MK026W PROCEEDING
A5::  ;
.ERROR
.DEASSIGN SYS
;
;NEXT WE ASK THE QUESTION "DO YOU WANT CREF LISTINGS ?"
;
K026W::  ;
.CHKPNT K026W
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.RUN DSKB:TECO[10,7]
.OPERATOR %
*!BEG!
*% MK026W 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 J026W
;
R026W::  ;
.CHKPNT R026W
.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]
*CMN26W
.IF (NOERROR)  .QUEUE CMN26W.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMV26W
.IF (NOERROR)  .QUEUE CMV26W.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMT26W
.IF (NOERROR)  .QUEUE CMT26W.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMD26W
.IF (NOERROR)  .QUEUE CMD26W.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
J026W::  ;
.DELETE CM?26W.CRF,TSK26W.CRF
.IF (ERROR)  ;OKAY
;
; NEXT LOAD A VIRTUAL MEMORY MONITOR FOR OUR IN-HOUSE KL10 DEVELOPMENTAL SYSTEM #1026
;
L026W::  ;
.CHKPNT L026W
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE CHKPNT L026W--BEGINNING SYS#1026 VM LOAD
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.RUN DSKB:PIP[10,7]
*RK###.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 RK### - BETTER ABORT
*/NOINITIAL /HASH:6000 RK###/SAVE ,RK###/MAP /CONTENT:NONE = /LOCALS /MAXCOR:60K -
*COMMON.RLW,COMDEV.RLW,COMNET.RLW,COMMOD.RLW,TSKSER.RLW,TOPW10/SEARCH /PATCHSIZE:200 /GO
.IF (ERROR)  .PLEASE ERROR LOADING MONITOR RK### USING LINK10--PROCEEDING
.DEASSIGN SYS
;
.QUEUE RK###.MAP/PRIORITY:47/DISPOSE:PRESERVE
.IF (ERROR) .PLEASE COULDN'T PRINT RK###.MAP
;
;NOW PRODUCE AN .EXE FILE INSTEAD OF .SAV OR .HGH/.LOW
N026W::
.CHKPNT N026W
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.SET PHYSICAL 256
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10
.GET RK###
.IF (ERROR)  .GOTO Q026W  ;NOT ENOUGH CORE TO .GET MONITOR
.NSAV RK###
.IF (NOERROR)  .GOTO F026W  ;RK###.EXE CREATED CORRECTLY
.PLEASE  NSAV RK### LOST -- ABORTING
.GOTO E026W
Q026W::
.RUN DEC:FILEX
*RK###.EXE=RK###.HGH
.IF (NOERROR)  .GOTO F026W
.PLEASE FILEX COULDN'T MAKE RK###.EXE -- ABORTING
.GOTO E026W
;
; CREATE FILDDT FOR KL10 SYSTEM #1026 VM MONITOR
;
F026W::  ;
.CHKPNT F026W
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE CHKPNT F026W-FILDDT
;
.RUN DSK:FILDDT
*RK###.EXE/S
.NSAV DSK:FRK###
.DELETE F26W.*,S26W.*,NP26W.*,RK###.XPN,RK###.HGH,RK###.LOW
.IF (ERROR)  ;NICE TRY
;
;FINALLY, COPY RESULTS BACK TO THE BLACK PACKS
;
C026W::  ;
.CHKPNT C026W
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT C026W--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_RK###.EXE,RK###.MAP
.IF (ERROR)  .PLEASE TROUBLE COPYING ONTO BLKA:
.GOTO X026W
%ERR:: .GOTO E026W
%CERR:: .GOTO E026W
E026W:: .PLEASE ERROR IN MK026W--EXAMINE .LOG FILE
.QUEUE MK026W.LOG/DISPOSE:PRESERVE
.GOTO X026W
X026W:: .PLEASE MK026W FINISHED
%FIN::  ;
.KJOB/F
;[END OF MK026W.CT(L)]