.; .; command file RMDEVEL .; .; Copyright (C) 1982 by .; Digital Equipment Corporation, Maynard, Mass. .; .; .; MODULE DESCRIPTION .; .; This procedure performs operations to assist in the development .; of a LABSTATION 23 task. .; .; It performs the following tasks: .; .; 1) Establishes the locations of LABSTATION 23 system image files. .; .; 2) Establishes the target node for which the task is destined. .; .; 3) Invokes the editor, Fortran IV compiler and task builder for .; the user. .; .; 4) VMR's the correct system image with the new task. .; .; 5) Updates the host loader tables with the task name and location, .; if necessary. .; .; 6) Downline loads the new system image to the target node. .; .; .; The user can execute this file by assigning the full filespec .; to a logical variable. For example, if the file is located .; in DR0:[3,64], .; .; ASN DR0:[3,64]RMDEVEL.CMD=RMDEVEL .; .; The file can then be invoked by .; .; @RMDEVEL filename .; .; where filename is the name of a FORTRAN IV source program .; (extension omitted). .; .; ************************************************************ .; .; ASSUMPTIONS .; .; The user requires the following privileges: .; .; CMKRNL - to set UIC .; .; LOG_IO - to run VMR on system images .; .; OPER - to downline load LABSTATION 23 nodes .; .; ************************************************************ .; .; LDP Development Group .; .; Created 27-Sep-1982 R.H.Bauman .; .ENABLE GLOBAL .ENABLE ESCAPE .ENABLE SUBSTITUTION .DISABLE LOWERCASE .; .; Determine host (use DECnet/RSX codes) .; .SETN $TSYS 4 .IF = 1 .SETN $TSNUM 1 ! Host is 11M .IF = 6 .SETN $TSNUM 2 ! Host is 11M+ .IF = 5 .SETN $TSNUM 4 ! Host is VAX/VMS .; .IF $TSNUM = 1 .SETS $TSSTR "RSX-11M" .IF $TSNUM = 2 .SETS $TSSTR "RSX-11M+" .IF $TSNUM = 4 .SETS $TSSTR "VAX/VMS" .; .SETF $RSX .SETF $VMS .IF $TSNUM = 1 .SETT $RSX .IF $TSNUM = 2 .SETT $RSX .IF $TSNUM = 4 .SETT $VMS .; .IFT $VMS .GOTO X30 ; ; This command procedure has not been debugged for use under ; an '$TSSTR' host. ; .EXIT .X30: .; .; .; The necessary global symbols can be predefined by the user in an .; indirect file called RMUSER.CMD. If RMUSER.CMD is found in the current .; directory, it is executed to define the global symbols. .; The following is an example RMUSER.CMD file. .; .; .ENABLE GLOBAL .; .; .SETS $RMLOC "DR0:[3,64]" ! Device and UIC of the LABSTATION 23 .; ! system images. .; .; .SETS $RMTAR "ARGON" ! Node name of target LABSTATION 23 node .; ! where task is to be run. .; .; .SETF $RMQT ! Set true if command file .; ! informational text should be .; ! suppressed, else set false. .; .; .SETT $RMEOX ! Set true if end of execution .; ! breakpoints are desired, false .; ! if not. .; .; .; Test for the presence of RMUSER.CMD. .; .TESTFILE RMUSER.CMD .IF NE 1 .GOTO X40 .; .; RMUSER.CMD was found. Invoke it to define the symbols. .; @RMUSER.CMD .; .X40: .; .; Determine which globals were defined. .; .SETF DRMLOC .SETF DRMTAR .SETF DRMEOX .SETF DRMQT .IFDF $RMLOC .SETT DRMLOC .IFDF $RMTAR .SETT DRMTAR .IFDF $RMEOX .SETT DRMEOX .IFDF $RMQT .SETT DRMQT .IFNDF $RMQT .SETF $RMQT .; .; Get the device and group UIC from $RMLOC if defined. .; .IFF DRMLOC .GOTO X45 .PARSE $RMLOC ":[," RMDEV N1 GRPUIC N2 .X45: .; .; .; Print preliminary text information if quiet disabled. .; .IFT $RMQT .GOTO L20 .L10: ; ; =========================================================== ; LABSTATION 23 Task Development Procedure ; Started at '