;;; Begin user defined functions ; FN$DEFINE_LOG - Define a logical name ; ; no output ; Input is a string descriptor of the logical name $DTR$FUN_DEF FN$DEFINE_LOG, LIB$SET_LOGICAL, 2 $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS $DTR$FUN_NOVALUE $DTR$FUN_NOOPTIMIZE $DTR$FUN_IN_ARG TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1 $DTR$FUN_IN_ARG TYPE = FUN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 2 $DTR$FUN_END_DEF ; FN$LOG - Common Logarithm (Synonym for FN$LOG10) ; ; Output is a floating value in R0, R1 ; Input is a floating value passed by reference $DTR$FUN_DEF FN$LOG, MTH$ALOG10, 1 $DTR$FUN_OUT_ARG TYPE = FUN$K_VALUE, DTYPE = DSC$K_DTYPE_F $DTR$FUN_EDIT_STRING ^\ZZ9.999\ $DTR$FUN_HEADER HDR = <"Common"/"Log"> $DTR$FUN_IN_ARG TYPE = FUN$K_REF, DTYPE = DSC$K_DTYPE_F, ORDER = 1 $DTR$FUN_END_DEF ; FN$STR_REPLACE - String replace ; ; output is a string ; input is an output string descriptor, ; an input string descriptor ; a starting position in the input string ; an ending position in the input string ; the replacement string ; ; Joe H. Gallagher, 4GL Solutions, Overlang Park KS. ; ; Refer to the Combined Newsletters September 1988 Page DTR-11 ; $DTR$FUN_DEF FN$STR_REPLACE, STR$REPLACE, 5 $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS $DTR$FUN_IN_ARG TYPE = FN$K_TEXT, OUT_PUT = TRUE $DTR$FUN_IN_ARG TYPE = FN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 1 $DTR$FUN_IN_ARG TYPE = FN$K_DESC, DTYPE = DSC$K_DTYPE_L, ORDER = 2 $DTR$FUN_IN_ARG TYPE = FN$K_DESC, DTYPE = DSC$K_DTYPE_L, ORDER = 3 $DTR$FUN_IN_ARG TYPE = FN$K_DESC, DTYPE = DSC$K_DTYPE_T, ORDER = 4 $DTR$FUN_END_DEF ; FN$SPAWN - Create a subprocess ; ; No Output ; ; NOTE: V4.0 and newer has a function that will do this. It is only ; needed on older versions of DTR, hence it is commented out. If you ; want to use it, remove the semi-colons from the beginning of the ; next 5 lines. $DTR$FUN_DEF SPAWN, LIB$SPAWN, 0 $DTR$FUN_OUT_ARG TYPE = FUN$K_STATUS $DTR$FUN_NOVALUE $DTR$FUN_NOOPTIMIZE $DTR$FUN_END_DEF