11642Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21642Smckusick 3*2997Smckusic static char sccsid[] = "@(#)CHR.c 1.2 03/07/81"; 41642Smckusick 51642Smckusick #include "h01errs.h" 61642Smckusick 7*2997Smckusic char 81642Smckusick CHR(value) 91642Smckusick 101642Smckusick long value; 111642Smckusick { 121642Smckusick if (value < 0 || value > 127) { 131642Smckusick ERROR(ECHR, value); 141642Smckusick return; 151642Smckusick } 16*2997Smckusic return (char)value; 171642Smckusick } 18