Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
sysinf.ctl
There are 4 other files named sysinf.ctl in the archive. Click here to see a list.
;THIS FILE WILL GENERATE 2 SAVE FILES:
; SYSINF.SAV A STAND ALONE VERSION OF [SYSTEM]INFO
; FSYSIN.SAV THIS IS A FILDDT VERSION OF SYSINF
;TO BUILD THIS FILE THE FOLLOWING FILES ARE SUPPOSED TO BE
;IN THIS AREA:
; INFSYM.MAC
; INFLIB.MAC
; SYSINF.MAC
; SYSINF.RND
; SYSINF.CTL
;THE CREF FILES CREATED ARE DELETED, IF THE LISTSTINGS
;ARE DESIRED THE COMMENTED CREF AND LIST COMMANDS SHOULD BE ENABLED.
;THE FOLLOWING PROGRAMS ARE TAKEN FROM THE 10,7 AREA
; MACRO
; LINK
; CREF IF A LISTING IS MADE
; DIRECT
; FILEX
; FILDDT
.SET WATCH VERSION
.ASSIGN DEC UNV
.ASSIGN DEC SYS
.R MACRO
*INFSYM/P/P/P/P/P,INFSYM/C_INFSYM
*INFLIB/P/P/P/P/P,INFLIB/C_INFLIB
*SYSINF/P/P/P/P/P,SYSINF/C_SYSINF
;BY INSERTING A COMMA IN FRONT OF THE DELETE COMMENT A SET OF LISTINGS
;CAN BE OBTAINED
.DELETE INFSYM.CRF,INFLIB.CRF,SYSINF.CRF
.R CREF
*DSK:=INFSYM
*DSK:=INFLIB
*DSK:=SYSINF
.IF (ERROR)
.PRINT INFSYM.LST,INFLIB.LST,SYSINF.LST
.IF (ERROR)
.R LINK
*SYSINF/SAVE,SYSINF/MAP_/SYMSEG
/SEARCH /LOCALS SYSINF/REQUIRE:(VERSION,INIMOD,INFO,INFERR,INFDAT)
*/SEARCH /LOCALS INFLIB
*/SEARCH /LOCALS SYSINF /START:INFEXC/GO
.R FILEX
*SYSINF.XPN=SYSINF.SAV
.R FILDDT
*SYSINF/S
.SAVE FSYSIN
.DELETE SYSINF.XPN
.IF (ERROR)
.R LINK
*SYSINF/SAVE,SYSINF/MAP_
/SEARCH SYSINF/REQUIRE:(VERSION,INIMOD,INFO,INFERR,INFDAT)
*/SEARCH INFLIB
*/SEARCH SYSINF /START:INFEXC/GO
.R RUNOFF
*SYSINF.DOC=SYSINF.RND
.Q LPT0:=SYSINF.DOC/COPIES:3/DISPOSE:DELETE
.R DIRECT
*TTY:/CHECKSUM_INFSYM.MAC,INFLIB.MAC,SYSINF.MAC
*TTY:/CHECKSUM_SYSINF.DOC,SYSINF.RND,SYSINF.SAV,FSYSIN.SAV
.MOUNT DTA:D/WE/VID:SYSINF
.ZERO D:
.LABEL D: SYSINF
.COPY D:=INFSYM.MAC,INFLIB.MAC,SYSINF.MAC,SYSINF.SAV,FSYSIN.SAV,SYSINF.RND
.COPY D:=SYSINF.CTL
.DIR D:
.DISMOUNT D:/REMOVE
.DELETE INFSYM.REL,INFLIB.REL,SYSINF.REL