Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - mk040g.ct
There are 2 other files named mk040g.ct in the archive. Click here to see a list.
;%1(40) VERSION OF MK040G     01 MAR 1977   /MS/RAP
;THIS MK040G.CT FILE IS MASSAGED BY TECO TO HAVE ALL # # # 'S TURN
; INTO THE CURRENT VERSION NUMBER OF THE MONITOR AT WHICH TIME IT
; BECOMES MK040G.CTL, THE CONTROL FILE WHICH LOADS A MONITOR FOR
; DECSYSTEM-10 #40 BUILT WITH THE "LOCAL USERS' GROUPS'"
; FEATURE-TEST SWITCH SETTINGS.
;
G040G::  ;
.CHKPNT G040G
.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 #40 "LUG" MONITOR HARDWARE CONFIGURATION
;
.RUN DSK:MONGEN
*
*HDW
*HDW40G
*1050
*    RG### SYS #40
*40	;CPU SERIAL NUMBER
*0	;DK10 CLOCKS
*Y	;EXCLUDE MONITOR OVERHEAD
*1	;# OF DATA CHANNELS
*DF10	;TYPE CHANNEL
*0	;RC10 ON CHANNEL 0
*0	;RH10 FOR RS04
*0	;RH10 FOR RP04
*1	;RP10
*2	;DPA'S
*0	;# OF TM10BS
*0	;# OF TC10CS
*0	;# OF TM02'S
*1	;# OF TM10AS
*2	;MTAS
*1	;MTAS ON 7 TRACK
*	;END MAGTAPE DEFINITION
*	;END MAGTAPE DENSITY
*25	;JOBS
*0	;MAX PAGES CORE/USER
*80	;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
*1	;CDR
*N	;CDP
*N	;DISPLAY
*1	;TD10 (DECTAPE CONTROLLER)
*3	;DTA'S
*1	;LPT
*Y	;LPT0 LOWER CASE
*0	;PLT
*Y	;PTP
*Y	;PTR
*25	;PTY'S
*N	;DC44
*0	;# OF DA28'S
*0	;# OF DC78'S
*	;DECIMAL VALUE DEFINITIONS
*A1050G,0
*PRVFIL,055
*DEFDEB,300000000000
*	;END OCTAL VALUE DEFINITIONS
*	;SIXBIT VALUE DEFINITIONS
*	;DEV,PI
*	;DEV,PI,#
*	;DEV,PI,AC
;
;THIS IS THE SYSTEM #40 "LUG" MONITOR TELETYPE CONFIGURATION
;
.RUN DSK:MONGEN
*
*TTY
*TTY40G
*1	;DC10'S
*0	;DC68'S
*0	;DC76'S
*2	;DC10B
*1	;DC10E
*20-27,10	;DC10E/DC10B LINE CORRESPONDENCE
*
*CTY	;OPR
*10-12	;DATA SETS
*17
*
;TABS
*2-7
*13-16
*20-47
*CTY
*
;ONLY THE CTY, TTY0 ("PLEASE") AND VT06 MAY LOG-IN AS [1,2]
*2-7	;REMOTE
*13-15
*20-47
*
*	;LOCAL COPY
*	;HALF DUPLEX
*	;SLAVES
*	;FORM FEED
;INITIA
*CTY
*0-7
*
*1,1	;FILLER FOR VT06
*
*	;2741 INTERFACE LINE #
;
;THIS IS THE SYSTEM #40 "LUG" MONITOR NETWORK CONFIGURATION
;
.RUN DSK:MONGEN
*
*NET
*NET40G
*N	;NETWORKS ARE NOT SUPPORTED
;
;END OF SYSTEM #40 "LUG" MONITOR MONGEN DIALOGUES
;
;AT THIS POINT MK040G.CTL EITHER CONTINUES PROCESSING ON ITS OWN OR RETURNS
; CONTROL TO WHATEVER OTHER FILE CALLED IT AS A SUBROUTINE....
.RUN DSKB:TECO[10,7]
*ERMK040G.KLG
.IF (ERROR)  .GOTO A040G  ;CONTINUE PROCESSING IF MK040G.KLG FILE NOT PRESENT.
;IF MK040G.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 MK040G.KLG/UNIQ:0/AFTER:+0:01
.IF (ERROR)  .PLEASE CANNOT EXIT FROM MK040G.CTL VIA MK040G.KLG
;KILL THIS JOB IF IT WAS BEING USED AS A SUBROUTINE
.KJOB/F
;
;CONTINUE PROCESSING IF MK040G.CTL WAS CALLED AS A MAIN JOB INSTEAD OF A SUBROUTINE.
;
A040G::  ;
.CHKPNT A040G
.SET WATCH ALL
.IF (ERROR)  ;OK
.PLEASE  CHKPNT A040G
;
;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, AND COMMOD WERE NORMALLY ASSEMBLED BY MONMKG.
;HOWEVER, PROVIDE FOR THE POSSIBILITY THAT MK040G IS BEING RUN WITHOUT HAVING
; RUN MONMKG.  ASSEMBLE COMMON ET AL ONLY IF .RLG FILES DO NOT EXIST......
.ASSIGN DSK SYS		;FORCE USE OF FIELD-IMAGE COMPIL, MACRO
.RUN DSKB:TECO[10,7]
*ERCOMMON.RLG
.IF (NOERROR)  .GOTO A1
.ERROR %
.R MACRO
*F40G/U,F40G/C_FLUG
*S40G/U,S40G/C_S
*COMMON.RLG,CMN40G/C_HDW40G,TTY40G,NET40G,COMMON
.IF (ERROR)  .PLEASE SYS#40 "LUG" COMMON ASSEMBLY ERROR--MK040G PROCEEDING
A1::  ;
.RUN DSKB:TECO[10,7]
*ERCOMDEV.RLG
.IF (NOERROR)  .GOTO A2
.R MACRO
*F40G/U,F40G/C_FLUG
*S40G/U,S40G/C_S
*COMDEV.RLG,CMV40G/C_HDW40G,TTY40G,NET40G,COMDEV
.IF (ERROR)  .PLEASE SYS#40 "LUG" COMDEV ASSEMBLY ERROR--MK040G PROCEEDING
A2::  ;
.RUN DSKB:TECO[10,7]
*ERCOMMOD.RLG
.IF (NOERROR)  .GOTO A3
.R MACRO
*F40G/U,F40G/C_FLUG
*S40G/U,S40G/C_S
*COMMOD.RLG,CMD40G/C_HDW40G,COMMOD
.IF (ERROR)  .PLEASE SYS#40 "LUG" COMMOD ASSEMBLY ERROR--MK040G PROCEEDING
A3::  ;
.ERROR
.DEASSIGN SYS
;
;NEXT WE ASK THE QUESTION "DO YOU WANT CREF LISTINGS ?"
;
K040G::  ;
.CHKPNT K040G
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.RUN DSKB:TECO[10,7]
.OPERATOR %
*!BEG!
*% MK040G 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 J040G
;
R040G::  ;
.CHKPNT R040G
.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]
*CMN40G
.IF (NOERROR)  .QUEUE CMN40G.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMV40G
.IF (NOERROR)  .QUEUE CMV40G.LST/PRIORITY:1/FORM:NORMAF
.RUN DSKB:CREF[10,7]
*CMD40G
.IF (NOERROR)  .QUEUE CMD40G.LST/PRIORITY:1/FORM:NORMAF
.DEASSIGN LPT
.DEASSIGN QUE
.LOCATE
J040G::  ;
.DELETE CM?40G.CRF
.IF (ERROR)  ;OKAY
;
;NOW LOAD THE "LUG" MONITOR FOR SYS#40
;
L040G::  ;
.CHKPNT L040G
.SET WATCH ALL
.IF (ERROR)  ; OKAY
.PLEASE CHKPNT L040G--BEGINNING SYS#40 "LUG" MONITOR LOAD
;
;AVOID USING VIRTUAL MEMORY
.SET PHYSICAL 256
.IF (ERROR)  ;OK, WE MUST BE ON A KA10
;
.RUN DSKB:PIP[10,7]
*RG###.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 RG### - BETTER ABORT
*/NOINITIAL /HASH:6000 RG###/SAVE ,RG###/MAP /CONTENT:NONE = /LOCALS /MAXCOR:45K -
*COMMON.RLG,COMDEV.RLG,COMMOD.RLG,TOPG10/SEARCH /PATCHSIZE:200 /GO
.IF (ERROR)  .PLEASE ERROR LOADING MONITOR RG### USING LINK10--PROCEEDING
.DEASSIGN SYS
;
.PLEASE  IF YOU WANT RG###.MAP, YOU MUST PRINT IT BY HAND
;.QUEUE RG###.MAP/PRIORITY:47/DISPOSE:PRESERVE
.IF (ERROR) .PLEASE COULDN'T PRINT RG###.MAP - PLEASE QUEUE BY HAND
;
;NOW PRODUCE AN .EXE FILE INSTEAD OF .SAV OR .HGH/.LOW
N040G::
.CHKPNT N040G
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.SET PHYSICAL 256
.IF (ERROR)  ;OKAY, WE MUST BE ON A KA10
.GET RG###
.IF (ERROR)  .GOTO Q040G  ;NOT ENOUGH CORE TO .GET MONITOR
.NSAV RG###
.IF (NOERROR)  .GOTO F040G  ;RG###.EXE CREATED CORRECTLY
.PLEASE  NSAV RG### LOST -- ABORTING
.GOTO E040G
Q040G::
.RUN DEC:FILEX
*RG###.EXE=RG###.SAV
.IF (NOERROR)  .GOTO F040G
.PLEASE FILEX COULDN'T MAKE RG###.EXE -- ABORTING
.GOTO E040G
;
;CREATE FILDDT FOR THE SYS#40 "LUG" MONITOR JUST LOADED
;
F040G::  ;
.CHKPNT F040G
.SET WATCH ALL
.IF (ERROR)  ;OKAY
.PLEASE  CHKPNT F040G--FILDDT
;
.RUN DSK:FILDDT
*RG###.EXE/S
.NSAV DSK:FRG###
.DELETE F40G.*,S40G.*,NP40G.*,RG###.XPN,RG###.SAV
.IF (ERROR)  ;NICE TRY
;
;FINALLY, COPY RESULTS BACK TO THE BLACK PACKS
;
C040G::  ;
.CHKPNT C040G
.SET WATCH ALL
.IF (ERROR)  ;O.K.
.PLEASE CHKPNT C040G--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_RG###.EXE,RG###.MAP
.IF (ERROR) .PLEASE TROUBLE COPYING ONTO BLKA:
.GOTO X040G
%ERR:: .GOTO E040G
%CERR:: .GOTO E040G
E040G:: .PLEASE ERROR IN K040G--EXAMINE .LOG FILE
.QUEUE K040G.LOG/DISPOSE:PRESERVE
X040G:: .PLEASE MK040G FINISHED
%FIN::  ;
.KJOB/F
;[END OF MK040G.CT(L)]