ERROR real-valued function ; robot Number of the robot associated with the error ; [i.e., from ERROR(n,3)]. ; ; OUTPUTS: $msg Corresponding error message may be null ; AUTO i, n $msg = "" ;Assume no error IF code 0 THEN ;If there was an error... $msg = $ERROR(code) ;Get base message string ; Add bit numbers if applicable. IF (-1100 code) AND (code -1000) THEN n = 1 ;Initialize bit mask FOR i = 1 TO 7 ;For each of 7 bits IF vcode BAND n THEN ;If this bit is set, $msg = $msg+$ENCODE(i) ;add it to message END n = 2*n ;Shift the mask 1 bit END END ; Add numeric variable if applicable. $msg = $msg+$ENCODE(vcode) ;Add number END ; Add robot number if applicable.
IF (-1200 code) AND (code -1100) THEN $msg = $msg+" (Robot"+$ENCODE(robot)+")" END END IF robot AND (SELECT(ROBOT,-1) > 1) THEN RETURN .END Related Keywords $ERROR string function IOSTAT real-valued function REACTE program instruction eV+Language Reference Guide, v2.x, 18319-000 Rev A Page 207