C SUBROUTINE TO CALL CONSOLE SWITCHING ROUTIN. FUNCTION ICNSOL(ICSR,IVEC) C WHERE: C ICSR= 1ST CSR OF TERMINAL SWITCHING TO. C IVEC= 1ST VECTOR ADDRESS. C ICNSOL= -1 IF UNABLE TO SWITCH. C 0 IF SWITCH OK. MASK="360/((15.*(IVEC-("20*(IVEC/"20)))/8)+1) MAPBIT="326+(IVEC/"20) ICNSOL=ISWTCH(ICSR,IVEC,MAPBIT,MASK) RETURN END