Trailing-Edge
-
PDP-10 Archives
-
AP-D483B-SB_1978
-
gal2.bwr
There are no other files named gal2.bwr in the archive.
BEWARE FILE FOR GALAXY RELEASE 2
Revision: 1
Date: 5 May 1977
Copyright (C) 1977
Digital Equipment Corporation, Maynard, Mass.
The software described herein including, but not limited to, the
functions, program portions and program modifications are the
proprietary information of Digital Equipment Corporation. This
software is furnished only to licensed customers for use on a
designated DECsystem-10 computer system.
Digital hereby places recipient on notice that the software described
herein is governed by the license agreement executed by recipient for
the operating system.
Permitting this software to be copied for any use other than for usage
on the designated DECsystem-10 computer system is a serious violation
of the licensing agreement. Unauthorized use of this software could
have serious legal consequences.
The information in this software is subject to change without notice
and should not be construed as a commitment by Digital Equipment
Corporation.
DEC assumes no responsibility for the use or reliability of its
software on equipment which is not supplied by DEC.
BEWARE FILE FOR GALAXY RELEASE 2 Page 2
1.0 INSTALLATION INSTRUCTIONS
1) Build the release 2 GALAXY system in the standard way. Run
GALGEN and then submit the control file, GALAXY.CTL.
2) Wait for the queues to become empty of all user jobs. All
jobs in the queues after this step will be lost.
3) Stop all GALAXY programs. This includes BATCON, LPTSPL,
SPROUT, SPRINT, and then QUASAR.
4) Delete the old GALAXY EXE files from SYS: and replace them
with the release 2 EXE files just built. This includes:
QUASAR.EXE
LPTSPL.EXE
BATCON.EXE
QUEUE.EXE
QMANGR.EXE
SPROUT.EXE
SPRINT.EXE
LOGOUT.EXE
Also delete the master queue file SYS:QSRMS1.QSR and if you
have a redundant queue file also delete QSRMS2.QSR[3,3].
5) Start the new QUASAR first then start the other programs.
1.1 Caution When Running GALGEN
When GALGEN asks for the file-structure on which to put the master
queue files "DO NOT" terminate the structure name with a colon (:).
Answers should be of the form "DSKB<CR>". If a colon is included,
QUASAR will get a "COP" stopcode when it is started.
1.2 Falling Back to 6.02
Note that if your system drops back to the 6.02 monitor, you must drop
back to GALAXY release 1.
2.0 PROBLEMS FOUND IN RELEASE 2 AFTER CODE FREEZE
The following problems were found in the GALAXY Release 2 software
after code freeze. The sources in the release do not have these
patches applied nor do the .EXE files. If any of these problems are
applicable to your site it is recommended that the fix be installed.
1) If a QUEUE request is made for a file whose device is
specified to be a logical disk unit like DSKB0 or DSKB1, the
request will sit in the queue waiting for a file structure to
be mounted. Note that any files which are queued up via
BEWARE FILE FOR GALAXY RELEASE 2 Page 3
QMANGR (which includes those queued up by QUEUE, SPRINT,
FOROTS and BASIC) will not suffer this problem. It is only a
problem at sites which have software which builds its own
messages to QUASAR.
The patch is in QSRT10.MAC at I$VSTR+5
change: CAIE S2,.DCTFS
to: CAIN S2,.DCTDS
2) A clobbered AC in SPRINT will cause jobs for PPNs which have
more than one structure in AUXACC to die horribly.
The patch is in SPRINT.MAC at MAKPTH:
change: MAKPTH: PUSHJ P,CLRUUO
to: MAKPTH: MOVE P1,[RIBCNT,,RIBCNT+1]
SETZM RIBCNT
BLT P1,RIBCNT
3) Occasionally LPTSPL will get an address check for the DSK
when given a backspace command.
The patch is in LPTSPL.MAC at FILLB+1:
change: MOVSI P1,(IN DSK,)
HRR P1,J$DBRH(J)
XCT P1
to: IN DSK,
4) A patch to QUENCH (QUEUE) was recently published which
changed the way it handled the /TIME switch so that
/TIME:3600 would be interpreted as 3600 seconds rather than
36 minutes. This patch occurred too late for inclusion in
the release, but a FILCOM is included in this file.
Note that this patch is quite long and should only be
installed if you are concerned about this problem.
BEWARE FILE FOR GALAXY RELEASE 2 Page 4
File 1) DSKB:QUENCH.MAC[30,4661,GALAXY] created: 1521 30-MAR-1977
File 2) DSKC:QUEBWR.MAC[30,4661,DEBUG] created: 1737 19-APR-1977
1)77 ;FORMATS ARE XXYYZZ OR XX:YY:ZZ
1) ;CALL: PUSHJ P,RDX60/RDX60W
****
2)77 ;FORMATS ARE XXXXXX (# OF SECONDS) OR XX:YY:ZZ
2) ;CALL: PUSHJ P,RDX60/RDX60W
**************
1)77 RDX60: MOVEI T2,0 ;PRESET TEMPORARY RESULT
1) RDX601: IMULI T2,^D100 ;ADVANCE TO NEXT RESULT
1) PUSHJ P,.DECNC## ;GET NEXT SUPER-DIGIT
1) JUMPL N,E.TCTL ;ERROR IF NEGATIVE
1) ADD T2,N ;ADD TO ACCUMULATOR
1) CAIE C,":" ;SEE IF MORE TO COME
1) JRST RDX605 ;NO--GO CONVERT RESULT
1) TLNE T2,(777B8) ;DON'T ALLOW OVERFLOW
1) JRST E.TTL ;ERROR IF TIME TOO LARGE
1) CAILE N,^D60 ;DON'T ALLOW GARBAGE IN
1) JRST E.TCTL ;ERROR IF DIGIT TOO LARGE
1) PUSHJ P,.TIAUC## ;SKIP SEPARATOR
1) JRST RDX601 ;LOOP BACK FOR MORE
1) RDX605: MOVEI N,0 ;CLEAR RESULT
1) MOVEI T1,3 ;INITIALIZE TO ALLOW THREE FIELDS
1) RDX606: IDIVI T2,^D100 ;SEPARATE TYPEIN
1) HRLM T3,(P) ;STORE LEAST DIGIT AWAY
1) JUMPE T2,RDX607 ;JUMP IF ALL DONE
1) SOJLE T1,E.IFT ;GIVE AN ERROR IF TOO MANY FIELDS
1) PUSHJ P,RDX606 ;IF NOT, DO SOME MORE
1) RDX607: HLRZ T1,(P) ;GET BACK HIGHEST DIGIT
1) IMULI N,^D60 ;MAKE ROOM IN RESULT
1) ADD N,T1 ;INCLUDE RESULT
1) CAILE T1,^D60 ;SEE IF ERROR
1) JRST E.TCTL ;COMPLAIN IF COMPONENT TOO BIG
1) POPJ P, ;RETURN
1) E.TTL: MOVE N,T2 ;GET ERROR
1) N$FATE <TTL>,<D>,<Time too large>
1) E.TCTL: N$FATE <TCT>,<D>,<Time component too large>
1) E.IFT: N$FATE <IFT>,,<Illegal format in time specification>
1)78 SUBTTL SUBROUTINES FOR LISTING OUTPUT
****
2)77 RDX60: PUSHJ P,RDX6.1 ;GET A TIME SPEC
2) JRST E.TMF ;TOO MANY FIELDS WERE GIVEN
2) MOVEI T1,^D3600 ;CONVERT HOURS TO SECONDS
2) IMUL T1,RDX6.H ;MULTIPLY, RESULT IN T1
2) MOVEI N,^D60 ;NOW CONVERT THE MINUTES
2) IMUL N,RDX6.M ;PUT THE RESULT IN N
2) ADD N,T1 ;ADD THE TWO TOGETHER
2) ADD N,RDX6.S ;ADD SECONDS IN
2) POPJ P, ;RETURN WITH RESULT
2) RDX6.1: SETZM RDX6.H ;ZERO OUT ANSWER
2) SETZM RDX6.M ; ...
2) SETZM RDX6.S ; ...
2) MOVEI T3,RDX6.S ;FIRST STORAGE PLACE
2) MOVNI T2,3 ;LIMIT THE NUMBER OF ARGUMENTS
BEWARE FILE FOR GALAXY RELEASE 2 Page 5
2) PUSHJ P,RDX6.2 ;GET THE ARGUMENT(S)
2) JUMPLE T2,.POPJ1 ;GIVE A SKIP RETURN IF NOT TOO MANY
2) POPJ P, ;OTHERWISE, INDICATE AN ERROR
2) RDX6.2: PUSHJ P,.DECNC## ;GET A DECIMAL NUMBER
File 1) DSKB:QUENCH.MAC[30,4661,GALAXY] created: 1521 30-MAR-1977
File 2) DSKC:QUEBWR.MAC[30,4661,DEBUG] created: 1737 19-APR-1977
2) JUMPL N,E.TCTL ;ERROR IF NEGATIVE
2) HRLM N,(P) ;SAVE IT ON THE STACK
2) AOJG T2,RDX6.3 ;COUNT ARGUMENTS
2) CAIE C,":" ;SEPARATED BY COLON?
2) JRST RDX6.3 ;NO, RETRIEVE RESULT
2) PUSHJ P,.TIAUC## ;YES, SKIP OVER THE COLON
2) PUSHJ P,RDX6.2 ;RECURSE FOR MORE ARGUMENTS
2) RDX6.3: JUMPG T2,.POPJ## ;UNWIND IF WE BLEW IT
2) HLRZ T1,(P) ;GET ARGUMENT
2) MOVEM T1,(T3) ;STORE IT
2) SOJA T3,.POPJ## ;UPDATE POSITION
2) E.TMF: N$FATE <TMF>,,<Too many fields in TIME specification>
2) E.TCTL: N$FATE <TCT>,<D>,<Time component too large>
2)78 SUBTTL SUBROUTINES FOR LISTING OUTPUT
**************
1)87 ZCOR:! ;START OF AREA TO ZERO ON INITIAL LOAD
****
2)86 RDX6.H: BLOCK 1 ;NUMBER OF HOURS (/TIME) ;;;;;;KEEP
2) RDX6.M: BLOCK 1 ;NUMBER OF MINUTES (/TIME) ;;;;;;IN
2) RDX6.S: BLOCK 1 ;NUMBER OF SECONDS (/TIME) ;;;;;;ORDER
2)87 ZCOR:! ;START OF AREA TO ZERO ON INITIAL LOAD
**************
[End of GAL2.BWR]