src/dspsubrs.c
/****************************************************
 *
 *	DSP_VideoColor() entry of SUBRCALL 66 1
 *			called from (VIDEOCLOR BLACKFLG)
 *
 ****************************************************/
DSP_VideoColor() entry of SUBRCALL 66 1
called from (VIDEOCLOR BLACKFLG)
DSP_VideoColor () entry of SUBRCALL 66 1 called from ( VIDEOCLOR BLACKFLG )
LispPTR DSP_VideoColor(LispPTR *args) 
{
  int invert;
#if   defined(XWINDOW)
  invert = args[0] & 0xFFFF;
  lisp_Xvideocolor(invert);
  if (invert)
    return ATOM_T;
  else
    return NIL;
#else
  return NIL;
#endif
}
LispPTR DSP_VideoColor ( LispPTR * args ) { int invert ; #if defined ( XWINDOW ) invert = args [ 0 ] & 0xFFFF ; lisp_Xvideocolor ( invert ) ; if ( invert ) return ATOM_T ; else return NIL ; #else return NIL ; #endif }
DSP_VideoColor() entry of SUBRCALL 66 1
                      called from (VIDEOCLOR BLACKFLG)
DSP_VideoColor () entry of SUBRCALL 66 1 called from ( VIDEOCLOR BLACKFLG )
/* args[0] :	black flag	*/