.TITLE DVFERR -- DVF Text Strings .Enabl LC .IDENT /V03.00/ ; ; DVFERR -- DVF Error and text strings ; ; Version: V03.00 ; Operating Systems: RSX-11M-PLUS V3.0 ; MICRO/RSX V3.0 ; (has NOT been tested under P/OS) ; ; Originally written by Ralph Stamerjohn ; ; Previously modified by: ; ; R.S. Mearns ; G. Everhart ; ; Updated by: G. L. Maxwell ; U.S. Geological Survey ; 27-AUG-86 ; ; ************************************************************************ ; * ; Although this program has been tested by the Geological Survey, * ; United States Department of the Interior, no warranty, expressed or * ; implied, is made by the Geological Survey as to the accuracy and * ; functioning of the program and related program material nor shall * ; the fact of distribution constitute any such warranty, and no respon- * ; sibility is assumed by the Geological Survey in connection therewith. * ; * ; Full permission and consent is hereby given to DECUS and to the DECUS * ; Special Interest Groups to reproduce, distribute, and publish and * ; permit others to reproduce in whole or in part, in any form and * ; without restriction, this program and any information relating thereto * ; * ; ************************************************************************ ;- .MACRO PASS NUM .ASCII /NUM'./ .ENDM PASS .MACRO SYMTAS,NUM .RADIX 10 PASS \NUM .RADIX 8 .ENDM SYMTAS .MACRO CRLF .BYTE 15,12 .ENDM CRLF ; ; Define macro to define error strings and lookup tables ; .MACRO DEFERR,CODE,MSG CODE == $$ERR $$ERR = $$ERR + 1 .PSECT $ERTXT,RO,D $$S = . .NLIST BEX .ASCII ^MSG^ .LIST BEX $$L = . - $$S .PSECT $ERADR,RO,D .WORD $$S .PSECT $ERLEN,RO,D .WORD $$L .PSECT .ENDM DEFERR ; ; Define initial globals for variables ; $$ERR = 1 ; First error code is 1. .PSECT $ERADR,RO,D ERRTAB:: .PSECT $ERLEN,RO,D ERRLEN:: DEFERR ER$NVD, DEFERR ER$ILD, DEFERR ER$NLD, DEFERR ER$GCM, DEFERR ER$SYN, DEFERR ER$EXT, DEFERR ER$NDV, DEFERR ER$ACC, DEFERR ER$RCE, DEFERR ER$OFL, DEFERR ER$HRC, DEFERR ER$GIN, DEFERR ER$ATT, DEFERR ER$BSY, DEFERR ER$PRV, DEFERR ER$NAS, .PSECT $WDATA,RW,D .NLIST BEX TSKNAM::.ASCII /XXX -- / ; Runtime task name TSKLEN == . - TSKNAM PRMSTR::.ASCII <15><12>/xxx>/ ; Default prompt string PRMSTL == . - PRMSTR .EVEN .PSECT $RDATA,RO,D HLPMSG:: .ASCII ^DVF -- Deassign Virtual Disk Device^ CRLF CRLF .ASCII ^ >DVF ddnn:^ CRLF CRLF .ASCII ^"ddnn:" is the name of an existing virtual device to be deassigned.^ CRLF .ASCII ^The device database remains in the system, and may be used again.^ CRLF .ASCII ^The virtual device must be quiescent (dismounted and idle), and^ CRLF .ASCII ^should still be online.^ CRLF CRLF .ASCII ^ /HE is the only valid switch.^ HLPLEN == . - HLPMSG .EVEN .END