FTN4,L C C C C C C CC************************************************************ C (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978. ALL RIGHTS * C RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * C PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * C OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * CC************************************************************ C C C C NAME: GFON3 C SOURCE: 92840 - 18141 C RELOC: 92840 - 16021 C C C CC*********************************************************** SUBROUTINE GFON3(IGCB,NUMB) +,92840-16021 REV.2013 790904 C*************************************************************** C IF NUMB = 0, GFON3 SETS THE SOFTWARE TEXT BIT IN THE STATUS WORD TO 0. C IF NUMB = ANYTHING ELSE, GFON3 SETS THE SOFTWARE TEXT BIT TO 1. C*************************************************************** INTEGER IGCB(1),NUMB C*************************************************************** C SET UP THE VALUE TO IOR INTO THE STATUS WORD. C IOR=40B IF (NUMB .EQ. 0) IOR=0 C**************************************************************** C 177737B EFFECTIVELY TURNS OFF BIT 5 OF THE STATUS WORD. C THE 2 INDICATES TO WRITE INTO THE STATUS WORD. C CALL GRSTS(2,177737B,IOR) RETURN END