Trailing-Edge
-
PDP-10 Archives
-
de-10-omona-v-mc9
-
react.ctl
There are 3 other files named react.ctl in the archive. Click here to see a list.
;CONTROL FILE TO MAKE A VERSION OF REACT
;NOTE THAT THIS FILE WILL GENERATE A SMALL VERSION OF
;REACT A BIG VERSION CAN BE GENERATED BY SPECIFYING
;THE VALUE BIGREACT. THE SMALL VERSION ACCOMODATES 500(DECIMAL)
;USERS THE BIG ONE 1100 USERS.
;ALL CUSPS AND FILES USED ARE TAKEN FROM THE [10,7] AREA
;THE FOLLOWING PROGRAMS ARE TAKEN FROM THE 10,7 AREA
; MACRO
; LINK
; DIRECT
;THE FOLLOWING FILES ARE SUPPOSED TO BE IN THE USER AREA
; REACT.MAC
; REACT.DOC
; REACT.CTL
.SET WATCH VERSION
.RUN DSK:MACRO[10,7]
*REACT,REACT/C_REACT
.RUN LINK[10,7]
*REACT/SAVE_REACT/GO
;VERIFY THAT IT WORKS
.RUN DSK:REACT
*H
.R RUNOFF
*REACT.DOC_REACT.RND
.Q LPT0:=REACT.DOC/COPIES:3
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM_REACT.SAV,REACT.MAC,REACT.DOC,REACT.CTL,REACT.RND
;ENABLE THE NEXT 3 LINES IF A LISTING IS DESIRED
;.RUN DSK:CREF[10,7]
;*DSK:=REACT
;.PRINT REACT.LST
.DELETE REACT.CRF
.IF (ERROR)
.MOUNT DTA:D/WE/VID:REACT
.ZERO D:
.LABEL D: REACT
.COPY D:=DSK:REACT.MAC,REACT.SAV,REACT.DOC,REACT.CTL,REACT.RND
.DIRECT D:
.DISMOUNT D:/REMOVE